Listing of file='609ACAT' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 458, program filename = '609ACAT'
0010 REM "609ACAT" - ARCHIVE CATALOGUE
0090 DIM J$1,J$(52)3
: DIM S5(1),S0(1),T5(1),S3(1)
: DIM T1$(52)8,S1$(52)2
: DIM T1(1),S6(1),S1(1),T2$(1)1
: DIM T2(1),S7(1),S2(1),S4(1),T5$(1)1
: DIM S2$(1)2
: DIM S1$52
: DIM S2$1,T1$80,T2$2
: DIM S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
: RESTORE LINE2510
: GOSUB '61
: FOR C=1TO 52
: DATA LOAD DA T#0,(B3+C)A0$()
0240 IF STR(A0$(),136,1)=" "THEN 270
: J$(C)=STR(A0$(),133,3)
: T1$(C)=T1$(C)&" / "&J$(C)
0270 NEXT C
: S2=4
: S3=16
0320 PRINT HEX(0306);
: GOSUB 2540
: PRINT AT(0,24);B5$(2);T1$;B5$(1)
: PRINT
: GOSUB 2545
: PRINT T1$
: GOSUB 2550
: PRINT T1$
: GOSUB 2555
: PRINT AT(5,0);HEX(020400040E);AT(5,11);T1$;AT(5,27);T1$;AT(5,43);T1$;AT(5
,59);T1$;B5$(2);HEX(0F);
0380 GOSUB '62
: ON T5+1GOTO 670,410
: GOSUB 2560
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 380
0410 J=T5(1)
: J$=T1$(J)
: DATA LOAD DA T#0,(B3+J)A0$()
: IF STR(A0$(),136,1)<>" "THEN 500
: GOSUB 2565
: PRINT AT(23,0,);T1$;HEX(07);
: GOTO 380
0500 PRINT HEX(0306);
: GOSUB 2540
: PRINT TAB(24);B5$(2);T1$;B5$(1)
: PRINT
: GOSUB 2550
: PRINT STR(T1$,4)
: GOSUB 2570
: PRINT AT(7,25);T1$;" ";STR(A0$(),125,8)
: GOSUB 2575
: PRINT AT(9,25);T1$;" ";STR(A0$(),133,3)
: GOSUB 2580
: PRINT AT(11,25);T1$;" ";
: IF STR(A0$(),136,1)="1"THEN GOSUB 2585
: ELSE GOSUB 2590
: PRINT T1$
: IF STR(A0$(),137,25)=" "THEN GOSUB 2595
: GOSUB 2600
: PRINT AT(13,25);T1$;" ";STR(A0$(),137,25)
0610 PRINT AT(23,0,);
0620 KEYIN J0$,630,630
: GOTO 620
0630 IF J0$=HEX(82)OR J0$=HEX(F0)THEN 320
: PRINT HEX(07);
: GOTO 620
0670 LOAD DC T"609menu"
2500 % DO NOT RENUMBER THE FOLLOWING
2510 DATA 1,-7,11,1
: DATA "A","B","C","D","E","F","G","H","I","J","K","L","M"
: DATA "N","O","P","Q","R","S","T","U","V","W","X","Y","Z"
: DATA "a","b","c","d","e","f","g","h","i","j","k","l","m"
: DATA "n","o","p","q","r","s","t","u","v","w","x","y","z","\DE"
: DATA 0
2540 T1$="A R C H I V E C A T A L O G U E"
: RETURN
2545 T1$="Please Select Choice"
: RETURN
2550 T1$=" Press EXECUTE to Continue"
: RETURN
2555 T1$="Archive/Disk"
: RETURN
2560 T1$="Invalid Key"
: RETURN
2565 T1$="Archive not assigned"
: RETURN
2570 T1$="Archive :"
: RETURN
2575 T1$="Disk Address :"
: RETURN
2580 T1$="Type of Archive :"
: RETURN
2585 T1$="2200 System Archive"
: RETURN
2590 T1$="WP Archive Diskette"
: RETURN
2595 STR(A0$(),137,25)="Not Given"
: RETURN
2600 T1$="Comment :"
: RETURN