Listing of file='CAT.INS' on disk='vmedia/731-0071G.wvd.zip'
# Sector 1007, program filename = 'CAT.INS' 4598 M=M+1 : V7(5)=0 : GOSUB 4724 : V7(4)=0 : IF V7(3)=0THEN 4838 : V7(4)=U3(4) : STR(U7$,LEN(U7$)+1,1)="." 4600 GOSUB 4722 : U3(1)=V7(4) : GOSUB 4616 : IF U3(2)=0THEN 4602 : V7(10)=U3(1) : V7(4)=VAL(STR(V2$(),U3(2)+16,2),2) : V7(3)=V7(3)-1 : IF V7(3)>0THEN 4600 : V7(4)=0 : GOTO 4838 4602 GOSUB 4742 : IF V7(5)=0THEN 4604 : V2$()=ALL(00) : STR(V2$(),,2)=BIN(0,2) : STR(V2$(),3,1)=BIN(0) : V7(9)=0 : STR(V2$(),4,2)=BIN(0,2) 4604 U3(1)=V7(4) : U3(8)=U3(2) : IF V7(5)=0THEN GOSUB 4630 : ELSE GOSUB 4636 : V7(10)=U3(1) : V7(4)=U3(8) : V7(5)=1 : V7(3)=V7(3)-1 : IF V7(3)=0THEN 4838 : GOSUB 4722 : GOTO 4602 4628 U3(1)=U3(2) : GOTO 4632 4630 M=M+1 4632 GOSUB 4710 : IF V7(9)<>13THEN 4634 : U3(2)=VAL(STR(V2$(),4,2),2) : IF U3(2)<>0THEN 4628 : ELSE GOSUB 4684 : STR(V2$(),3,1)=BIN(0) 4634 STR(V2$(),6+V7(9)*18,16)=V3$ : STR(V2$(),22+V7(9)*18,2)=BIN(U3(8),2) : STR(V2$(),,2)=BIN(V7(9)+1,2) : GOSUB 4714 : GOTO 4838 4636 M=M+1 : STR(V2$(),240,2)=BIN(V7(10),2) : GOTO 4634 4684 M=M+1 : GOSUB 4742 : GOSUB 4710 : STR(V2$(),4,2)=BIN(U3(2),2) : GOSUB 4714 : STR(V2$(),,241)=ALL(00) : U3(1)=U3(2) : V7(9)=0 : STR(V2$(),4,2)=BIN(0,2) : GOTO 4838 4742 M=M+1 : U1$=BIN(U3(1),2) : GOSUB 4706 : U3(2)=VAL(STR(V2$(),3),2) : IF U3(2)>0THEN 4748 : U3(1)=0 : GOSUB 4710 : STR(V2$(),26,2)=BIN(U9,2) : STR(V5$(),4*32+1,32)=STR(V2$(),4,32) : V7(1)=VAL(STR(V2$(),32,1)) : STR(V5$(),132,1)=BIN(255) : V7(2)=V3 : GOSUB '225(4,1,FIX(10/V7(1)+1),2) : IF R1$>HEX(00)THEN 4834 : $OPEN #U0 4744 H=5 : V3=V7(2) : V2$()=ALL(00) : FOR U5=1TO V8 : FOR U=0TO V7(1)-1 : STR(V2$(),H,2)=BIN((VAL(U0$(U5),2)-1)*V7(1)+U,2) : IF STR(V2$(),H,2)<=STR(V5$(),4*32+25,2)THEN 4746 : PRINT AT(22,0);"Serious error occurred. Call your Wang representative.";H EX(07) : $CLOSE : STOP # : END 4746 H=H+2 : NEXT U : NEXT U5 : U3(2)=V7(1)*V8 : STR(V2$(),,2)=BIN(2,2) 4748 STR(V2$(),3,2)=BIN(U3(2)-1,2) : GOSUB 4718 : U3(2)=VAL(STR(V2$(),3+U3(2)*2,2),2) : U3(1)=VAL(U1$,2) : DATA LOAD BA T#U0,(U9+U3(2))V2$() : ERRORGOTO 4830 4750 IF POS(V2$()>HEX(00))=0THEN 4838 : PRINT AT(22,0);"Serious error occurred.";HEX(07) : $CLOSE : STOP "Call your WANG Representative."# : END