image of READY prompt

Wang2200.org

Listing of file='REC.REP' on disk='vmedia/731-0071G.wvd.zip'

# Sector 1044, program filename = 'REC.REP'
5200 DEFFN'226(V3,V9(3),V5(3),V5(4))
   : IF V9(3)>0AND V9(3)=INT(V9(3))THEN 5202
   : R1$=HEX(27)
   : RETURN
5202 V6(1)=V3*U0(5)
   : GOSUB 5140
   : V2=VAL(STR(V5$(),V6(1)+29,1))
   : U0(18),U0(2)=1
   : V9(9)=246*V2
   : V4=FIX((V9(3)-1)/V9(9))
   : IF V4+1>V5(3)THEN 5204
   : IF V4>0THEN GOSUB '228(V3,1,V5(4),V4,2)
   : GOSUB 5208
   : GOSUB '228(V3,1,V5(4)+V4,1,1)
   : IF V4+1=V5(3)THEN 5206
   : GOSUB '255(V3,V5(4)+V4+1,V5(3)-V4-1)
   : GOTO 5206
5204 IF V5(3)>0THEN GOSUB '228(V3,1,V5(4),V5(3),2)
   : IF V4>V5(3)THEN GOSUB '222(V3,V5(3)*V9(9)+1,V5(3)+V5(4),V4-V5(3),2)
   : IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 5206
   : GOSUB 5208
   : GOSUB '254(V3,1,V5(4)+V4,1,1)
5206 V4=V4+1
   : $CLOSE#U0
   : U0(18),U0(2)=-1
   : RETURN
5208 V1$()=" "
   : V1$()=STR(V0$(),1+V4*V9(9),MOD(V9(3)-1,V9(9))+1)
   : RETURN