Listing of file='CAT.LIST' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 1015, program filename = 'CAT.LIST' 4642 M=M+1 : V1=0 : IF U7$<>" "THEN 4644 : U3(1)=U3(4) : GOTO 4646 4644 GOSUB 4610 : IF V7(4)=0THEN 4838 : U3(1)=V7(4) 4646 U3(2)=0 : V1=0 : IF U3=0OR V7(6)=0THEN 4838 4648 IF U3(1)<>0THEN 4650 : V1=0 : GOTO 4838 4650 GOSUB 4710 : V7(6)=V7(6)-V7(9) : U3(1)=VAL(STR(V2$(),4,2),2) : IF VAL(STR(V2$(),3,1))=0THEN 4652 : STR(U1$(),,128)=STR(V2$(),129,128) : GOTO 4838 4652 IF V7(6)>0THEN 4648 : V7(6)=V7(6)+V7(9)-1 4654 IF V7(6)>=V7(9)THEN 4656 : STR(U1$(),1+U3(2)*16,16)=STR(V2$(),6+V7(6)*18,16) : HEXUNPACKSTR(V2$(),V7(6)*18+22,2)TO STR(U2$(),1+U3(2)*4,4) : U3(2)=U3(2)+1 : V7(6)=V7(6)+1 : V1=V1+1 4656 IF V1=U3THEN 4838 : IF V7(6)<V7(9)THEN 4654 : IF U3(1)=0THEN 4838 : GOSUB 4710 : U3(1)=VAL(STR(V2$(),4,2),2) : V7(6)=0 : GOTO 4654