image of READY prompt

Wang2200.org

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