Compucolor.org – Virtual Media

Listing of file='MENU.BAS;02' on disk='vmedia/ncc_5-sector.ccvf'

50 CLEAR 1000
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 "  LIBRARY- NORTHERN CALIFORNIA CCII USERS"
120 PRINT TAB( 12);"SELECT A PROGRAM FROM THE MENU BELOW"
130 PRINT :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> TSTHEN 100
165 IF S1= 0THEN 2010
168 PLOT 15
170 LOAD A$(S1):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 
950 PLOT 14,3,45,TS+ 10:RETURN
1000 PLOT 15
1001 PRINT TAB( 12);"0 - ";TAB( 25);"SET REAL TIME CLOCK"
1070 FOR I= 1TO TS
1080 I$= CHR$ (I+ 48):IF I> 9THEN I$= CHR$ (55+ I)
1110 PRINT TAB( 12);I$;" - ";A$(I);TAB( 25);A1$(I)
1120 NEXT I
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$(32),A1$(32)
4005 FILE "R",1,"XXX.DAT",2
4010 FOR I= 1TO 20
4015 GET 1,I,1;A$(I)[6],A1$(I)[26]
4020 IF LEFT$ (A$(I),1)= " "THEN 4090
4025 NEXT I
4030 TS= I:RETURN
4090 TS= I- 1:RETURN