Listing of file='MENU.BAS;01' on disk='vmedia/ncc_9-sector.ccvf'
50 CLEAR 1200 60 PLOT 29,14,6,2,12,27,11 70 TT$= " LIBRARY-NORTHERN CALIFORNIA CCII USERS #9":PRINT TT$ 80 GOSUB 4000 90 REM V11.79H.BECK 6622 MT HOLLY DR. SAN JOSE, CA. 95120 100 PLOT 29,14,6,2,12,27,11 110 PRINT TT$ 120 PRINT TAB( 12);"SELECT A PROGRAM FROM THE MENU BELOW" 130 GOSUB 1000:PRINT 140 PRINT TAB( 12);"ENTER NUMBER OF PROGRAM DESIRED:"; 145 REM 150 GOSUB 900:GOSUB 800 160 S= PEEK (33278):IF S< 48THEN 100 162 S1= S- 48:IF S> 57THEN S1= S- 55 163 IF S1< 0OR S1> TS+ 1THEN 100 165 IF S1= 0THEN 2010 166 IF S1= 1THEN 6000 168 PLOT 15 170 PLOT 15,12:LOAD A$(S1- 1):RUN 800 POKE 33278,0 810 IF PEEK (33209)= 0GOTO 840 820 IF PEEK (33278)= 0GOTO 810 830 RETURN 840 GOSUB 900:GOTO 820 900 H= PEEK (33211):M= PEEK (33210):T$= " AM " 910 IF H> 11THEN T$= " PM " 920 IF H> 12THEN H= H- 12:IF H= 12THEN T$= " AM " 930 T$= STR$ (H)+ " :"+ RIGHT$ (STR$ (M+ 100),2)+ T$+ "" 940 PLOT 14,3,44,0:PRINT "TIME: ";T$:REM 945 IF S1= 1THEN PLOT 14,3,38,TS+ 11:RETURN 950 PLOT 14,3,45,TS+ 9:RETURN 1000 PLOT 15 1001 PRINT TAB( 12);"0 - ";TAB( 25);"SET REAL TIME CLOCK" 1010 PRINT TAB( 12);"1 - ";TAB( 25);"DISPLAY PROGRAM INFORMATION" 1070 FOR I= 2TO TS+ 1 1080 I$= CHR$ (I+ 48):IF I> 9THEN I$= CHR$ (55+ I) 1100 PLOT 15,6,6 1110 PRINT TAB( 12);I$;" - ";A$(I- 1);TAB( 25);A1$(I- 1) 1120 NEXT 1999 PLOT 14:RETURN 2010 PLOT 12,14,3,10,6 2020 PRINT "THE COMPUTER TIME IS: "; 2030 H= PEEK (33211):M= PEEK (33210) 2040 A$= " AM ":IF H> 11THEN A$= " PM " 2060 IF H> 12THEN H= H- 12:IF H= 12THEN A$= " AM " 2070 PRINT STR$ (H)+ " :"+ RIGHT$ (STR$ (M+ 100),2)+ A$ 2085 IF T= 0THEN T= 1:GOTO 2200 2090 S= PEEK (33209):IF S= 0THEN 2010 2100 SC= PEEK (33209) 2110 IF S= SCTHEN 2100 2120 PRINT S;:GOTO 2090 2200 PLOT 3,10,15 2220 INPUT "ENTER TIME: (HR,MIN,SEC,AM/PM) ";H,M,S,A$ 2230 POKE 33209,S:POKE 33210,M 2240 IF LEFT$ (A$,1)= "A"THEN 2270 2250 IF LEFT$ (A$,1)= "P"THEN H= H+ 12:GOTO 2290 2260 PLOT 28,11,28:GOTO 2200 2270 IF H= 12THEN H= 24 2280 GOTO 2300 2290 IF H= 24THEN H= 12 2300 POKE 33211,H:IF H< 1OR H> 24OR M> 59OR S> 59THEN 2260 3000 GOTO 90 4000 DIM A$(20),A1$(20) 4005 FILE "R",1,"CATALG",1 4010 FOR I= 1TO 20 4015 GET 1,I+ 1,1;A$(I)[6]:GET 1,I+ 1,74;A1$(I)[38] 4020 IF LEFT$ (A$(I),1)= " "THEN 4090 4025 NEXT 4090 TS= I- 1:RETURN 6000 REM SEARCH FOR PROGRAM BY NUMBER 6010 PRINT :PRINT TAB( 12)"DISPLAY PROGRAM NUMBER ? ";:GOSUB 900:GOSUB 800 6015 S= PEEK (33278):IF S< 48THEN S1= 1:PRINT CHR$ (28);:GOTO 6010 6020 S1= S- 48:IF S> 57THEN S1= S- 55 6025 IF S1< 2OR S1> TS+ 1THEN S1= 1:PRINT CHR$ (28);:GOTO 6010 6030 NUM= S1 6035 PRINT :GOSUB 6290 6040 GET 1,NUM,1;N$[6],K$[2],A$[24],DATE$[8],T$[12],M$[3] 6050 GET 1,NUM,56;S$[4],L$[5],F$[1],FINAM$[6],B$[1],H$[1],D$[50] 6070 PRINT 6090 REM PRINT CATALOG INFORMATION 6100 PLOT 15,3,14,1:PRINT N$ 6110 PLOT 3,52,1:PRINT K$ 6120 PLOT 3,14,4:PRINT A$ 6130 PLOT 3,45,4:PRINT DATE$ 6140 PLOT 3,14,7:PRINT T$ 6150 PLOT 3,47,7:PRINT M$ 6160 PLOT 3,14,10:PRINT S$ 6170 PLOT 3,39,10:PRINT L$ 6180 PLOT 3,7,13:PRINT F$ 6190 PLOT 3,40,13:PRINT FINAM$ 6200 PLOT 3,7,16:PRINT B$ 6210 PLOT 3,41,16:PRINT H$ 6220 PLOT 3,13,19:PRINT D$ 6230 PLOT 3,1,23 6250 PRINT "PRESS RETURN TO GO TO MENU, OR + TO DISPLAY NEXT PROGRAM ! ";CHR$ (26);CHR$ (26); 6251 POKE 33278,255 6252 IF PEEK (33278)= 255THEN 6252 6254 IF PEEK (33278)= 43THEN NUM= NUM+ 1:IF NUM< TS+ 2THEN 6035 6260 PLOT 6,2,12 6270 PRINT :GOTO 100 6280 REM PRINT CATALOG FORMAT 6290 PLOT 15,6,6,12 6300 FOR Y= 127TO 51STEP - 12 6310 PLOT 2,0,Y,242,127,Y,255 6320 NEXT Y 6330 PLOT 2,0,127,242,0,40,127,40,127,127,255 6340 REM 6350 PLOT 3,1,1 6360 PRINT "PROGRAM NAME: " 6370 PLOT 3,45,1 6380 PRINT "DISK #: " 6390 PLOT 3,1,4 6400 PRINT "AUTHORS NAME: " 6410 PLOT 3,40,4 6420 PRINT "DATE: " 6430 PLOT 3,1,7 6440 PRINT "PROGRAM TYPE: " 6450 PLOT 3,30,7 6460 PRINT "MEMORY REQUIRED: " 6470 PLOT 3,1,10 6480 PRINT "PROGRAM SIZE: " 6490 PLOT 3,30,10 6500 PRINT "LANGUAGE: " 6510 PLOT 3,1,13 6520 PRINT "FILES? " 6530 PLOT 3,30,13 6540 PRINT "FILE NAME: " 6550 PLOT 3,1,16 6560 PRINT "BUGS? " 6570 PLOT 3,30,16 6580 PRINT "HARD COPY? " 6590 PLOT 3,1,19 6600 PRINT "DESCRIPTION: " 6690 RETURN