Listing of file='LPGETDEF' on disk='vmedia/701-2721C.wvd.zip'
# Sector 246, program filename = 'LPGETDEF'
0001 COM C$4,K8$(490)1
0105 LOAD T"DDA.DAT"7000,7050BEG 110
0110 GOSUB '140(4,"150151152156")
: LOAD T<R9>R9$()7000,7999BEG 120
0120 GOSUB '150("2 5 B 525657")
: IF M<>0THEN GOSUB '6(0,"opening")
: PRINT AT(23,0);HEX(060E);"Retrieving Definition";HEX(0F);
: GOSUB '152("KY","B"," ",L0$(6)," "," "," ")
: IF M<>0THEN GOSUB '6(1,"READINGB")
: R5$=STR(K8$(),1,5)
: B4$=STR(K8$(),6,6)
: B9$=STR(K8$(),12,16)
: L0$(2)=STR(K8$(),28,20)
: L9$(1)=STR(K8$(),49,3)
0160 L9$(2)=STR(K8$(),52,3)
: B3$=STR(K8$(),96,5)
: L0$(1)=STR(K8$(),101,8)
: D0=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(D$,5))
-1
: IF L0$(1)<>" "THEN GOTO 215
: GOSUB '151("GT","5",L0$(2)," ","2"," "," ")
: IF M<>0THEN GOSUB '6(1,"FIND 52 ")
: L0$(1)=M5$
: L0(5)=2
: A$="PKDICST"
: GOTO 225
0215 L0(5)=1
: A$="LPFKBLOB"
0225 GOSUB '156("2 5 B 525657")
: IF M<>0THEN GOSUB '6(0,"156GETDF")
: COM CLEAR C$
: LOAD TA$
0245 DEFFN'6(M4,L0$(4))
: LOAD T"DDA.DAT"7000,7050BEG 255
0255 GOSUB '140(1,"160")
: LOAD T<R9>R9$()7000,7999BEG 265
0265 GOSUB '160(M4,"LPGETDEF",L0$(4))
: COM CLEAR K9$
: LOAD TR3$(2)
9000 DEFFN'0"SCRATCH T";HEX(22);"LPGETDEF";HEX(22);
9100 DEFFN'1"SAVE T ()";HEX(22);"LPGETDEF";HEX(22);