Listing of file='CAT.DEL ' on disk='vmedia/701-2739G.wvd.zip'
# Sector 366, program filename = 'CAT.DEL' 4662 M=M+1 : U2$=U7$ : GOSUB 4610 : IF V7(4)=0THEN 4838 : U3(1)=V7(4) : GOSUB 4710 : IF VAL(STR(V2$(),3,1))=1THEN 4664 : R1$=BIN(10) : GOTO 4834 4664 U3(6)=0 : GOSUB 4690 4666 IF U3(9)<>1THEN 4668 : V3$=U2$ : GOTO 4670 4668 MAT SEARCHU2$,="."TO U3$() : V3$=STR(U2$,VAL(U3$(U3(9)-1),2)+1) : U2$=STR(U2$,,VAL(U3$(U3(9)-1),2)-1) 4670 U3(1)=U2(U3(9)) : GOSUB 4672 : U3(9)=U3(9)-1 : IF U3(9)=0THEN 4838 : IF U3(2)=-1THEN 4838 : IF U3(2)=-2THEN 4666 : MAT SEARCHU2$,="."TO U3$() : V3$=STR(U2$,VAL(U3$(U3(9)-1),2)+1) : U3(1)=U2(U3(9)) : U3(9)=U3(2) : GOSUB 4616 : STR(V2$(),U3(2)+16,2)=BIN(U3(9),2) : GOSUB 4714 : GOTO 4838 4672 M=M+1 : GOSUB 4616 : IF U3(2)=0THEN 4838 : U3(5)=(U3(2)-6)/18+1 : IF U3(5)<>V7(9)THEN 4674 : STR(V2$(),U3(2),18)=" " : GOTO 4676 4674 STR(V2$(),U3(2),(V7(9)-U3(5))*18)=STR(V2$(),U3(2)+18,(V7(9)-U3(5))*18) : STR(V2$(),6+(V7(9)-1)*18,18)=" " 4676 STR(V2$(),,2)=BIN(V7(9)-1,2) : GOSUB 4714 : U3(2)=-1 : IF V7(9)<>1THEN 4838 : IF U3(6)<>0THEN 4678 : U3(2)=VAL(STR(V2$(),4,2),2) : IF U3(2)=0THEN U3(2)=-2 4678 GOSUB 4690 : GOTO 4838 4690 M=M+1 : IF U3(1)=U3(4)THEN 4838 : V1=VAL(STR(V2$(),4,2),2) : GOSUB 4706 : U3(5)=VAL(STR(V2$(),3),2)+1 : IF U3(5)=124THEN 4838 : STR(V2$(),3,2)=BIN(U3(5),2) : STR(V2$(),3+U3(5)*2,2)=BIN(U3(1),2) : GOSUB 4718 : V2$()=ALL(00) : DATA SAVE BA T#U0,(U9+U3(1))V2$() : ERRORGOTO 4830 4692 IF U3(6)=0THEN 4838 : U3(1)=U3(6) : GOSUB 4710 : STR(V2$(),4,2)=BIN(V1,2) : GOSUB 4714 : GOTO 4838