Listing of file='LPGETNAM' on disk='vmedia/701-2721C.wvd.zip'
# Sector 253, program filename = 'LPGETNAM'
0010 COM K8$(300)1
0230 COM R2,R2$6,R3$(6)9,R4$3,R7$20,R8$3,R7$(1008)1
: DIM X$20
: MAT REDIM R7$(50)8
: K9$=R4$&R8$
: GOSUB '150("B 5 56")
: IF M=0THEN GOTO 750
: COM CLEAR R9$()
: R2=18
: LOAD TR3$(2)
0750 GOSUB '152("KY","B"," ",R7$," "," "," ")
: IF M=0THEN 913
: COM CLEAR R9$()
: R2=17
: LOAD TR3$(2)
0913 X$=STR(K8$(),20,20)
: I=1
: GOSUB '151("EQ","5",X$," "," "," "," ")
: IF M<>0THEN STOP #
: M5$=" "
0930 GOSUB '151("GT","5",X$," ","6",M5$," ")
: IF M=64THEN GOTO 980
: R7$(I)=M5$
: I=I+1
: GOTO 930
0980 GOSUB '156("ALL")
: MAT REDIM R7$(1008)1
: COM CLEAR R9$()
: LOAD TR3$(1)
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPGETNAM";HEX(22)
9100 DEFFN'1"SAVE T() ";HEX(22);"LPGETNAM";HEX(22)