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);