Listing of file='609@Cat1' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2028, 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