Listing of file='REC.INS' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1106, program filename = 'REC.INS' 5060 DEFFN'222(V3,V6,V9,V8,U5(2)) : GOSUB '254(V3,V6,V9,V8,U5(2)) : RETURN 5062 DEFFN'254(V3,V6,V9,V8,U5(2)) : GOSUB 5132 : GOSUB 5164 : IF R1$<>HEX(00)THEN 5006 : IF V0<>0THEN 5066 : V9(1)=FIX(RND(1)*U8/V2) : GOSUB '244(V9(1),V8) : IF R1$<>HEX(00)THEN 5006 : U5(8),V6(2)=VAL(U0$(1),2) : V6(3)=1 : U5(7)=0 : GOTO 5068 5066 GOSUB '240(U5(8),V9-1,V6(2),V6(3)) : GOSUB '244(V9(1),V8) : IF R1$=HEX(01)THEN 5006 5068 FOR U=1TO V8 : IF U0$(U)=HEX(0000)THEN R1$=HEX(01) : NEXT U : IF R1$=HEX(01)THEN 5006 : IF V3=4THEN 5076 : FOR U=1TO V8 : IF U5(2)=2THEN V1$()=STR(V0$(),V9(9)*(U-1)+V6,V9(9)) : DIM U4$(256)1 : DATA LOAD BA T#U0,(V5(2)+1+V2*(VAL(U0$(U),2)-1))U4$() : ERRORGOTO 5000 5070 IF POS(U4$()>HEX(00))=0THEN 5072 : PRINT AT(22,0,);"Serious error occurred.";HEX(07) : $CLOSE : STOP "Call your WANG representative."# : END 5072 DATA SAVE DA T#U0,(V5(2)+1+V2*(VAL(U0$(U),2)-1))V1$(),U0$ : ERRORGOTO 5000 5074 NEXT U 5076 GOSUB '242(U0$(),V8,U5(8)) : R1$=HEX(00) : V0=V0+V8 : GOSUB 5144 : GOSUB 5138 : RETURN 5186 DEFFN'225(V3,V6,V8,U5(2)) : V6(1)=V3*U0(5) : GOSUB 5140 : U0(18)=1 : V0=VAL(STR(V5$(),V6(1)+2,2),2) : GOSUB '254(V3,V6,V0+1,V8,U5(2)) : U0(18)=-1 : RETURN