image of READY prompt

Wang2200.org

Listing of file='CAT.INS' on disk='vmedia/701-2739G.wvd.zip'

# Sector 390, 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