Listing of file='LPREADFD' on disk='vmedia/701-2721C.wvd.zip'
# Sector 531, program filename = 'LPREADFD'
2000 REM % READ FIELD DEFINITONS SUBROUTINE ('72)
2040 DIM X1$20
2050 DEFFN'72(X1$)
: L5=0
2070 GOSUB '152("NX","2","8"," "," "," "," ")
: IF M=64THEN RETURN
: IF M<>0THEN GOSUB '74(1,"LPREADFD","Reading")
: FOR I=1TO 13STEP 1
: J=35*(I-1)
: IF STR(K8$(),J+1)=" "THEN RETURN
: IF K8$(J+22)<>"S"THEN GOTO 2200
: L5=L5+1
: IF L5>L3THEN GOSUB '99
: STR(L3$(L5),1,8)=STR(K8$(),J+LEN(X1$)+2,8)
: STR(L3$(L5),9,1)=K8$(J+25)
: STR(L3$(L5),10,2)=STR(K8$(),J+29,2)
2190 STR(L3$(L5),12,2)=STR(K8$(),J+26,2)
2200 NEXT I
: GOTO 2070
2220 DEFFN'99
: GOSUB '156(K6$())
: IF M<>0THEN GOSUB '74(0,"LPREADFD","Closing")
: L0$=BIN(1)
: STR(L0$,2)=L0$(1)
: RETURN CLEAR
2280 LOAD T"LPERROR"
2500 DEFFN'74(M4,L0$(3),L0$(4))
: LOAD T"DDA.DAT"7000,7999BEG 2510
2510 GOSUB '140(1,"160")
: LOAD T<R9>R9$()7050,7999BEG 2530
2530 GOSUB '160(M4,L0$(3),L0$(4))
: COM CLEAR A0$()
: LOAD TR3$(2)
9000 DEFFN'0"SCRATCH T";HEX(22);"LPREADFD";HEX(22);
9100 DEFFN'1"SAVE T ()";HEX(22);"LPREADFD";HEX(22);