image of READY prompt

Wang2200.org

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