Listing of file='REC.RD' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1017, program filename = 'REC.RD'
5012 DEFFN'220(V3,V6,V9,V8,U5(2))
: U0(19)=0
: GOSUB 5020
: RETURN
5016 DEFFN'221(V3,V6,V9,V8,U5(2))
: GOSUB 5018
: RETURN
5018 DEFFN'228(V3,V6,V9,V8,U5(2))
: U0(19)=1
5020 U7=V9
: V5(5)=0
: V9(6)=LEN(STR(V0$(),V6))
: GOSUB 5132
: GOSUB 5158
: GOSUB '240(U5(8),V9-1,V6(2),V6(3))
: FOR U=1TO V8
: GOSUB '241(U5(9))
: U0$(U)=BIN(V9(1),2)
: IF V9(1)<>0THEN 5022
: R1$=HEX(20)
: GOTO 5006
5022 IF U5(9)=0THEN R1$=HEX(28)
: IF U0(19)=0THEN 5026
: IF U5(2)=2THEN V1$()=STR(V0$(),V9(9)*(U-1)+V6,V9(9))
: DATA SAVE DA T#U0,(V5(2)+1+V2*(V9(1)-1))V1$(),U0$
: ERRORGOTO 5000
5024 GOTO 5030
5026 DATA LOAD DA T#U0,(V5(2)+1+V2*(V9(1)-1))V1$(),U0$
: ERRORGOTO 5000
5028 IF U=1THEN V4$=U0$
: V5(5)=V5(5)+V9(9)
: IF U5(2)<>2THEN 5030
: IF V5(5)>V9(6)THEN STR(V0$(),V9(9)*(U-1)+V6,V9(9))=STR(V1$(),,V9(9)-(V5(5
)-V9(6)))
: ELSE STR(V0$(),V9(9)*(U-1)+V6,V9(9))=V1$()
5030 NEXT U
: U0(11)=U0(23)
: U0(23)=-1
: GOSUB 5148
: GOSUB 5138
: U0(23)=U0(11)
: RETURN