Listing of file='609ACAT' on disk='vmedia/701-2738G.wvd.zip'
# Sector 992, 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