Listing of file='REC-RD' on disk='vmedia/731-0071G.wvd.zip'
# Sector 854, 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