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