Compucolor.org – Virtual Media

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

0 POKE 32936,0
5 N= PEEK (32936):IF N= 7THEN N= 0:GOTO 20
10 IF N= 5THEN N= N+ 1
15 IF N= 0THEN 100
20 RESTORE 300:POKE 32936,N+ 1:FOR X= 1TO N+ 1:READ P$,T$:NEXT :GOTO 260
100 REM  ** GENERAL MENU - SEP 22,1979 **
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 8:READ P$,T$
200 T= 4
210 PRINT TAB( T);"";I;" - ";T$;""
220 NEXT I:E= I- 1:PLOT  14:PRINT :PRINT
230 INPUT "     MENU SELECTION (TYPE NUMBER AND HIT RETURN KEY): ";N$
240 N= VAL (N$):IF N$= "ALL"THEN N= 0:GOTO 20
245 IF N< 1OR N> ETHEN PLOT 28,11:GOTO 230
250 PLOT 15:RESTORE 300:FOR I= 1TO N:READ P$,T$:NEXT I
255 IF N= 8THEN PLOT 27,4:PRINT P$
260 PLOT 6,2,12:LOAD P$:RUN
270 REM

    ** MENU PROGRAMS **

300 DATA "BIORHY","BIORHYTHMS (CHARTS PHYSICAL, EMOTIONAL, AND MENTAL)
310 DATA "METRIC","ENGINEERING APPLICATIONS (ENGLISH/METRIC CONVERSION)
320 DATA "DEMO","DEMO PROGRAM (SAMPLE DISPLAYS AND CCII FEATURES)
330 DATA "BANDIT","ONE-ARMED BANDIT PROGRAM (SLOT MACHINE)
340 DATA "LOAN","LOAN PROGRAM (AMORTIZATION/PAYMENT)
350 DATA "MEMTST","COMPUCOLOR MEMORY TEST
360 DATA "CONCEN","CONCENTRATION (MEMORY GAME)
370 DATA "RUN DUP","DUP PROGRAM (DEV: TO DEV: / SINGLE OR DUAL DISK)
510 DATA "END","END"
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,300