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