image of READY prompt

Wang2200.org

Listing of file='CAT.RD' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 975, program filename = 'CAT.RD'
4610 M=M+1
   : GOSUB 4724
   : V7(4)=0
   : V7(4)=U3(4)
   : U3(9)=0
   : STR(U7$,LEN(U7$)+1,1)="."
4612 GOSUB 4722
   : U3(9)=U3(9)+1
   : U2(U3(9)),U3(1)=V7(4)
   : GOSUB 4616
   : IF U3(2)<>0THEN 4614
   : V7(4)=0
   : GOTO 4838
4614 V7(4)=VAL(STR(V2$(),U3(2)+16,2),2)
   : V7(3)=V7(3)-1
   : IF V7(3)=0THEN 4838
   : GOTO 4612
4616 M=M+1
   : U3(6)=0
4618 GOSUB 4710
   : IF V7(9)<>0THEN 4620
   : U3(2)=0
   : GOTO 4622
4620 MAT SEARCHSTR(V2$(),6,V7(9)*18),=STR(V3$)TO U3$()STEP 18
   : U3(2)=VAL(U3$(),2)
   : IF U3(2)=0THEN 4622
   : U3(2)=U3(2)+5
   : GOTO 4838
4622 U3(6)=U3(1)
   : U3(1)=VAL(STR(V2$(),4,2),2)
   : IF U3(1)<>0THEN 4618
   : GOTO 4838