Compucolor.org – Virtual Media

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

50 CLEAR 1000
80 GOSUB 4000
90 REM 
100 PLOT 29,14,6,2,12,27,11
110 PRINT "COMPUCOLOR LIBRARY"
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,40,0:PRINT "TIME: ";T$:REM 
950 PLOT 14,3,45,TS+ 10:RETURN
1000 PLOT 15
1001 PRINT TAB( 13);"0 - SET REAL TIME CLOCK"
1050 A$(0)= "TIME"
1070 FOR I= 1TO TS
1080 I$= CHR$ (I+ 48):IF I> 9THEN I$= CHR$ (55+ I)
1110 PRINT TAB( 13);I$;" - ";A1$(I)
1120 NEXT I
1999 PLOT 14:RETURN
2000 T= 0
2010 PLOT 12,14
2020 PRINT "  THE TIME IS:"
2030 H= PEEK (33211):M= PEEK (33210)
2040 A$= "  AM ":IF H> 11THEN A$= "  PM "
2050 PRINT :PRINT ,:PRINT ,:PRINT ,
2060 IF H> 12THEN H= H- 12:IF H= 12THEN A$= "  AM "
2070 PRINT STR$ (H)+ " :"+ RIGHT$ (STR$ (M+ 100),2)+ A$
2080 PRINT :PRINT :PRINT
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 INPUT "DO YOU WANT TO SET THE TIME ? (Y/N)";A$
2210 IF LEFT$ (A$,1)< > "Y"THEN 3000
2220 PRINT :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 2220
2270 IF H= 1THEN 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,"XXX.DAT",5
4010 FOR I= 1TO 20
4015 GET 1,I,1;A$(I)[6],A1$(I)[22]
4020 IF LEFT$ (A$(I),1)= " "THEN 4090
4025 NEXT I
4030 TS= 20:RETURN
4090 TS= I- 1:RETURN