SBP
 ˙‚˙ł
 '      ENTRUST: OMNIBASE
 '      is an industrial strength database management system that includes:
 '              Total Information Management (TIM), AlphaBase, ProjecTA, OverLeaf,
 '              CheckInOutBoard (CIOB), TeleMan, EvenTrac/etLOG, QVerse, and NewWay.
 '      Optional associated modules available include: 
 '                      JumpStart, KeyStone, CashFLO, Guide, and Engage. 
 '      Copyright 1990-1996 All Rights Reserved 
 '      Entrust: FlexWare and NBS Consultants
 '      VOICE (770) 455-6272 <> FAX/BBS (770) 455-3100 
 '      1905 North Hill Parkway
 '      Atlanta, Georgia
 '      30341-1269 USA
 '      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
 '      This procedure creates an ascii text file with the extension "SDF" which is
 '      used by Sharpe's Wizard Organizer Link II.
 '      The Wizard palmtop dos application is used to export pc data
 '      via a special serial port adapter cable.
 '      The Organizer has a maximum of 8 fields
 '      The original basic procedure code was drafted by Mike Lord with Honeywell.
 '      This version was re-written by Don Wagner to interface and export data from
 '      Entrust: OmniBase.
 '      You may use this code as you see fit just give Mike and Don the credit.
 '      You will need to replace 
 '      "\ENT\RES" with your DATA directory and "RES" with your Resource database name.
 '      "P1Cat" stands for Profile one Category.
 '              The "P1Cat" field is used to categorize a record as in "LEGAL", "MEDICAL", etc.
 '              During the export process the records may be filtered.
 '      "\ENT\EXP\COPY1.SDF" with your Export Directory and export filename.
 '      COMMON is a company or name in common.
 '      AC01 stands for Area Code one. TN01 stands for Telephone Number one.
 '      StateProv stands for the State or Province field and PostCode stands for Zip field.
 '      Add0 stores the street number, Add1 stores the street name, Add2 stores the remainder.
 '      NOTES is a 4000 character notes field where we only export the first 1000 characters.
 '      SRN stands for Sequential Reference Number (SER function).
 '      Replace or remove GO_ENT which reloads our main application.

˙˙main()
˙ł˙_˙wErrChk
˙…
˙Ž"\ENT\RES"
˙´˙™˙ŕ,0"RES"
˙Ę˙Ź5
˙˝ SET HELP FILE "WIZARD"
˙˝ SET HELP 100 
˙Ę˙ź"Exporting to Wizard 'SDF' File"
˙˝ SET ICON "\ENT\ATV\TIM.ICO"
˙ŁP1Cat
˙É˙`
˙É˙Đ˙~
˙´"\ENT\EXP\COPY1.SDF"˙¶
q$˙˙(34)
qc$˙˙(34)˙
","
˙Ř˙O˙B("RES")
˙˝                                 ~~~~~~~~ FIELD1
x$˙˙H(COMMON.RES)
y$˙˙F(x$)
z$˙˙+(y$,80)
L1%˙˙/(z$)
˙vFilterText
˙˝ FIF$ = q$ + C2$ + " " + qc$
F1$˙q$˙
C2$˙
qc$
˙˝                                 ~~~~~~~~ FIELD2
FULLNAME$˙FIRSTNAME.RES˙
" "˙
LASTNAME.RES
x$˙˙H(FULLNAME$)
y$˙˙F(x$)
z$˙˙+(y$,80)
L1%˙˙/(z$)
˙vFilterText
˙˝ F2F$ = q$ + C2$ + qc$
F2$˙q$˙
C2$˙
qc$
˙˝                                 ~~~~~~~~ FIELD3
F3$˙q$˙
"("˙
AC01 ˙
TN01 ˙
")("˙
AC02 ˙
TN02 ˙
")("˙
AC03 ˙
TN03 ˙
")("˙
AC04 ˙
TN04 ˙
")("˙
AC05 ˙
TN05 ˙
")"˙
qc$
˙˝                                 ~~~~~~~~ FIELD4 
F4$˙q$˙
Dept.RES˙
" "˙
Add0.RES˙
" "˙
Add1.RES˙
" "˙
Add2.RES˙
qc$
˙˝                                 ~~~~~~~~ FIELD5 
F5$˙q$˙
City.RES˙
" "˙
StateZone.RES˙
" "˙
PostCode.RES˙
qc$
˙˝                                 ~~~~~~~~ FIELD6
x$˙˙H(NOTES.RES)
y$˙˙F(x$)
z$˙y$
n%%˙1024
z$˙˙+(z$,n%%)
L1%˙˙/(z$)
˙vFilterText
F6$˙q$˙
P1Cat.RES˙
": "˙
C2$˙
qc$
˙˝                                 ~~~~~~~~ FIELD7
SRN$˙˙H(˙(SRN.RES))
F7$˙q$˙
SRN$˙
qc$
˙˝                                 ~~~~~~~~ FIELD8 
˙˝         ( FIRST uploaded version was missing a quote mark after odmmmyy)
F8$˙q$˙
˙(DateToCall,"0dmmmyy")˙
" / "˙
˙(DateOrig,"0dmmmyy")˙
q$

˙˝                 ~~~~~~~~ Concantenate 8 fields to create a record and add to file.
˙{F1$˙
F2$˙
F3$˙
F4$˙
F5$˙
F6$˙
F7$˙
F8$
˙É˙±
˙wWrapItUp

FilterText: 
˙˝                 ~~~~~~~~ Replaces Carriage Returns, Line Feeds, Quote Marks, Commas 
˙˝                 ~~~~~~~~ with Something Else
n%˙0
C1$˙""
C2$˙""
˙›I%˙1˙qL1%˙k1

C1$˙˙,(z$,I%,1)
˙ˇC1$˙˙(13)˙pC1$˙"~"
˙ˇC1$˙˙(10)˙pC1$˙"~"
˙ˇC1$˙˙(34)˙pC1$˙"'"
˙˝ IF C1$ = "," THEN C1$ = "-"
˙˝ IF C1$ = "?" THEN C1$ = " "
C2$˙C2$˙
C1$
˙±
˙Ă
WrapItUp: 
˙Ů
˙†˙¶
˙¨"\ENT\#ENT\GO_ENT"
˙˝ RUN 
 ˙’˙˙

˙˙REINITIALIZE()
˙¨"\ENT\#ENT\GO_ENT"
˙Ä
 ˙’˙˙
 

 '                                       ERROR ROUTINES
 '                                      ~~~~~~~~~~~~~~~~
 '      ADD YOUR OWN ERROR CHECKING AS NEEDED.