Listing of file='609@Cat3' on disk='vmedia/701-2737G.wvd.zip'
# Sector 877, program filename = '609@Cat3' 0010 REM '609@Cat3' - CATALOG DISPLAY/LIST - SUMMARY 0180 COM D1,D0$(256)16,D1$(256)6 : DIM U1$(2)64,V2$(256)1,U2$(8)4,V0$(1)1 : DIM C0(4),C1(4),C0$80,C1$2,C2$2,C3$2,C0$(4)16 : GOSUB 2505 : PRINT AT(3,0,80);B2$ : INIT(FF)D0$() : GOSUB 300 : A5$()="609@Cat4"&"609FG070" : LOAD T<2>A5$() 0300 MAT C1=ZER : INIT(" ")C0$(),C0$ : MAT C0=ZER : C3=0 : FOR C=1TO 4 : C0$(C)=D$(C) : IF STR(C0$(C),,1)=" "THEN 400 : C3=C : C0(C)=1 0400 NEXT C : ON C3GOTO 590,760,930,1100 : C1(1)=0 : C0$(1)=" " 0460 IF C0(1)=1THEN RETURN : IF C1(1)<>0THEN D1$(C1(1))=C3$&STR(C1$,,2)&C2$ : C3$,C1$,C2$=ALL(00) : C1(1)=C1(1)+1 : C0$=" " : GOSUB '217(1,C1(1),C0$,D2$) : IF STR(V2$(),3,1)<>HEX(01)THEN 560 : GOSUB '50 : GOTO 460 0560 IF U1$(1)=" "THEN RETURN : C0$(1)=U1$(1) : D0$(C1(1))=U1$(1) 0590 C0$=C0$(1) : C1(2)=0 : C0$(2)=" " 0630 IF C0(2)=1THEN RETURN : IF C3<1THEN 670 : IF C1(2)<>0THEN D1$(C1(2))=C3$&STR(C1$,,2)&C2$ : C3$,C1$,C2$=ALL(00) 0670 C1(2)=C1(2)+1 : C0$=C0$(1) : GOSUB '217(1,C1(2),C0$,D2$) : IF STR(V2$(),3,1)<>HEX(01)THEN 730 : GOSUB '50 : GOTO 630 0730 IF U1$(1)=" "THEN 460 : C0$(2)=U1$(1) : IF C3>0THEN D0$(C1(2))=U1$(1) 0760 C0$=C0$(1)&"."&C0$(2) : C1(3)=0 : C0$(3)=" " 0800 IF C0(3)=1THEN RETURN : IF C3<2THEN 840 : IF C1(3)<>0THEN D1$(C1(3))=C3$&STR(C1$,,2)&C2$ : C3$,C1$,C2$=ALL(00) 0840 C1(3)=C1(3)+1 : C0$=C0$(1)&"."&C0$(2) : GOSUB '217(1,C1(3),C0$,D2$) : IF STR(V2$(),3,1)<>HEX(01)THEN 900 : GOSUB '50 : GOTO 800 0900 IF U1$(1)=" "THEN 630 : C0$(3)=U1$(1) : IF C3>1THEN D0$(C1(3))=U1$(1) 0930 C0$=C0$(1)&"."&C0$(2)&"."&C0$(3) : C1(4)=0 : C0$(4)=" " 0970 IF C0(4)=1THEN RETURN : IF C3<3THEN 1010 : IF C1(4)<>0THEN D1$(C1(4))=C3$&STR(C1$,,2)&C2$ : C3$,C1$,C2$=ALL(00) 1010 C1(4)=C1(4)+1 : C0$=C0$(1)&"."&C0$(2)&"."&C0$(3) : GOSUB '217(1,C1(4),C0$,D2$) : IF STR(V2$(),3,1)<>HEX(01)THEN 1070 : GOSUB '50 : GOTO 800 1070 IF U1$(1)=" "THEN 800 : C0$(4)=U1$(1) : IF C3>2THEN D0$(C1(4))=U1$(1) 1100 C0$=C0$(1)&"."&C0$(2)&"."&C0$(3)&"."&C0$(4) : GOSUB '50 : GOTO 970 1140 DEFFN'50 : C3$=C3$ADDCHEX(0001) : C1$=ADDCSTR(V2$(),5,2) : C2$=ADDCBIN(VAL(STR(V2$(),5,2),2)*VAL(STR(V2$(),32)),2) : RETURN 1220 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="(Reading Volume Catalog)" : RETURN