OPLObjectFile**
LOC::B:\OPL\CONVADD.OPL
convadd.DBF
\DAT\
PARNTID%
FOFF%
ADDFILE$
NAMELN%
NAMEORD%
NAMESEP$
NAMETRM$
LABELS$
CONFIRM%
GETLAB
PARENT
GETFLD$
LINKED
+/Conversion from Database to Address Book format
Version 1, March 1994
1994 John W Dawson
Surname:
+	Forename:
Organisation:
Home:
Work:
Mobile:
Email:
Address:
Notes:
\add\K
.ADDK
Delete 
LINK%
SURNAME$
FORENM$
ORGAN$
HOME$
WORK$
MOBILE$
EMAIL$
ADDR1$
ADDR2$
NOTES$
GROUPS&
O*h@[
\addK
\add\K
.ADDK
LINK%
SURNAME$
FORENM$
ORGAN$
HOME$
WORK$
MOBILE$
EMAIL$
ADDR1$
ADDR2$
NOTES$
GROUPS&
Converting
TXTOPEN%
TXTREAD%
TXTCLOSE
FOFF%
LABELS$
NAMELN%
NAMESEP$
NAMEORD%
NAMETRM$
LABKO
Too many labelsW8
Invalid Label: 
GETFLD$
GETTEXT$
TRIM$
NAMEORD%
NAMESEP$
SURNAME$'
FORENM$'
SURNAME$'
FORENM$'
SURNAME$'
FORENM$'
SURNAME$'
F10$#
F11$#
F12$#
F13$#
F14$#
F15$#
F16$#
F17$#
F18$#
F19$#
F20$#
F21$#
F22$#
F23$#
F24$#
F25$#
F26$#
F27$#
F28$#
F29$#
F30$#
F31$#
SETNAME
GETTEXT$
ORGAN$'
HOME$'
WORK$'
FAX$'
MOBILE$'
EMAIL$'
NOTES$'
LOx8`[@
|Oy|W
ADDR1$'
ADDR2$'
ADDR1$'
ADDR2$'
IDX%$
LINK%$
SETNAME
PARNTID%
IDX%$
LINK%$
TXTopen%:(
O$h@[	
+	TXTread%:W8
+	TXTclose:W8
NoON+
YesOY
W7Oy@
CONVERT
GETLAB2
GETTEXT$
SETNAMEo
TRIM$
GETFLD$
PARENT
LINKED
TXTOPEN%
TXTREAD%n
TXTCLOSE
CONFIRM%