Compucolor.org – Virtual Media

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

100 REM  ** BOUNCE SOFT-DISK ALBUM - MAR 24,1980 **
110 GOTO 60000
120 CLEAR  500:PLOT 29,14,6,2,12,27,11,3,9,0
130 PRINT "C O M P U C O L O R     C O R P O R A T I O N"
140 PLOT 3,22,2:PRINT "COPYRIGHT (C) 1979
150 PRINT :PRINT :PRINT :PLOT 14
160 PRINT "TYPE IN THE NUMBER OF THE PROGRAM YOU WANT FROM THE MENU BELOW."
170 PLOT 15:PRINT :RESTORE 300
180 FOR I= 1TO 100:READ P$,T$
190 IF T$= "END"THEN E= I- 1:I= 100:GOTO 220
200 T= 4:IF I> 9THEN T= T- 1
210 PRINT TAB( T);"";I;" - ";T$;""
220 NEXT I:PLOT  14:PRINT :PRINT
230 PLOT 3,0,14:INPUT "     MENU SELECTION (TYPE NUMBER AND HIT RETURN KEY): ";N$:REM 
240 N= VAL (N$):IF N< 1OR N> ETHEN PLOT 3,0,14,11:GOTO 230
250 PLOT 15:RESTORE 300:FOR I= 1TO N:READ P$,T$:NEXT I
270 PLOT 6,2,12:LOAD P$:RUN
280 REM

    ** MENU PROGRAMS **

300 DATA "BOUNCE","BOUNCE"
310 DATA "BSHIP","BATTLE SHIP"
320 DATA "SLIT","SLITHER"
500 REM
510 DATA "END","END"
520 REM
60000 REM  ** LOAD GETCHR, SOUND AND SCROLL PATCHES **
60010 TM= PEEK (32940)+ PEEK (32941)* 256
60020 IF TM> 65500THEN 60060
60030 POKE TM+ 1,50:POKE TM+ 3,15
60040 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT
60050 IF A= 1445THEN 60150
60060 AD= 32940:TM= TM- 200:DA= TM:GOSUB 60160:CLEAR 100
60070 TM= PEEK (32940)+ PEEK (32941)* 256
60080 RESTORE 60190
60090 FOR N= 1TO 200:READ A:IF A> 255THEN N= 220:GOTO 60140
60100 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 60160:GOTO 60140
60110 POKE TM+ N,A
60140 NEXT
60150 AD= 33283:DA= TM+ 8:GOSUB 60160:GOTO 120
60160 Z1= INT (DA/ 256):Z2= DA- Z1* 256
60170 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN
60190 DATA 50,0,15,0,0,0,0,123,254,0,194,-121,30,8,243
60200 DATA 58,-6,87,58,-7,254,0,194,-33,122,50,-7,42,-1
60210 DATA 34,-49,42,-3,34,-46,33,-22,1,50,0,11,120,177
60220 DATA 194,-51,123,238,2,211,4,95,43,124,181,194
60230 DATA -48,58,-5,254,0,202,-100,61,50,-5,58,-49,130
60240 DATA 50,-49,58,-7,103,122,50,-7,84,195,-45,50,-7
60250 DATA 50,-4,50,-2,62,15,50,-3,62,50,50,-1,251,201
60260 DATA 254,1,194,-158,33,0,0,6,4,14,17,17,128,0,25
60270 DATA 126,17,128,255,25,119,35,0,13,194,-133,17,8
60280 DATA 0,25,5,194,-131,201
60290 DATA 254,2,194,-182,245,229,197,205,36,0,194,-166
60300 DATA 95,175,87,50,255,129,193,225,241,201,201
60310 DATA 300