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