Listing of file='MENU.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'
50 CLEAR 1000 80 GOSUB 4000 90 REM H.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 2000 170 LOAD A$(S1):RUN 800 POKE 33278,0 810 R= RND (1):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 2000 T= 0 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= 20:RETURN 4090 TS= I- 1:RETURN