Compucolor.org – Virtual Media

Listing of file='MENU.BAS;02' 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 #":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$+ " "+ K$+ ""
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,46,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 CATALOG 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
4008 GET 1,2,7;K$[2]
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