Listing of file='609@Cat1' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2003, program filename = '609@Cat1' 0010 REM '609@Cat1' - CATALOG DISPLAY/LIST 0160 COM D1,D0$(190)67,D1$(190)4 : DIM U1$(2)64,V2$(256)1,U2$(1)4,V0$(1)1 : DIM C0$(4)16,C0(4),C1(4),C0$80 : GOSUB 2505 : PRINT AT(3,0,80);B2$ : D1=0 : INIT(FF)D0$() : GOSUB 300 : A5$()="609@Cat2"&"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 560,690,820,950 : C1(1)=0 : C0$(1)=" " 0460 IF C0(1)=1THEN RETURN : C1(1)=C1(1)+1 : C0$=" " : GOSUB '217(1,C1(1),C0$,D2$) : IF STR(V2$(),3,1)<>HEX(01)THEN 540 : GOSUB '50 : GOTO 460 0540 IF U1$(1)=" "THEN RETURN : C0$(1)=U1$(1) 0560 C0$=C0$(1) : C1(2)=0 : C0$(2)=" " 0600 IF C0(2)=1THEN RETURN : C1(2)=C1(2)+1 : C0$=C0$(1) : GOSUB '217(1,C1(2),C0$,D2$) : IF STR(V2$(),3,1)<>HEX(01)THEN 670 : GOSUB '50 : GOTO 600 0670 IF U1$(1)=" "THEN 460 : C0$(2)=U1$(1) 0690 C0$=C0$(1)&"."&C0$(2) : C1(3)=0 : C0$(3)=" " 0730 IF C0(3)=1THEN RETURN : 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 800 : GOSUB '50 : GOTO 730 0800 IF U1$(1)=" "THEN 600 : C0$(3)=U1$(1) 0820 C0$=C0$(1)&"."&C0$(2)&"."&C0$(3) : C1(4)=0 : C0$(4)=" " 0860 IF C0(4)=1THEN RETURN : 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 930 : GOSUB '50 : GOTO 730 0930 IF U1$(1)=" "THEN 730 : C0$(4)=U1$(1) 0950 C0$=C0$(1)&"."&C0$(2)&"."&C0$(3)&"."&C0$(4) : GOSUB '50 : GOTO 860 0990 DEFFN'50 : D1=D1+1 : IF D1<191THEN 1030 : GOSUB 2510 : PRINT AT(23,0,);B2$;HEX(07); : GOSUB '34(0) : IF J$=HEX(F0)THEN GOSUB '31 : D1=190 : RETURN CLEAR : RETURN 1030 D0$(D1)=C0$ : D1$(D1)=STR(V2$(),5,2)&STR(V2$(),32,1)&HEX(00) : IF STR(V2$(),8,6)<>" "THEN STR(D1$(D1),4,1)="*" : RETURN 1080 DEFFN'31 : COM CLEAR C : LOAD T"609menu" 2500 % DO NOT RENUMBER THE FOLLOWING 2505 B2$="(Reading Volume Catalog)" : RETURN 2510 B2$="Too many files to process" : RETURN