Listing of file='MENU.BAS;01' on disk='vmedia/sampler-3.31.78-sector.ccvf'
4 POKE 32936,0 5 REM 6 PLOT 29,14,6,2,27,11 100 CLEAR 500 600 GOSUB 2800 700 ADR= 32936 800 A= PEEK (ADR) 805 IF A= 5THEN A= A+ 1 890 IF A= 7THEN POKE ADR,1:A= 0:GOTO 4100 900 IF A> 0THEN POKE ADR,A+ 1:GOTO 4100 1000 PLOT 12,3,8,0 1400 PRINT "C O M P U C O L O R C O R P O R A T I O N" 1500 PRINT 1600 PRINT "TYPE IN THE NUMBER OF THE PROGRAM YOU WANT "; 1650 PRINT "FROM THE MENU BELOW" 1700 PRINT 1800 PRINT "0 - BIO RHYTHM CHART" 1900 PRINT "1 - ENGINEERING APPLICATION (ENGLISH/METRIC CONVERSION)" 2000 PRINT "2 - DEMO PROGRAM (SAMPLE DISPLAYS & CCII FEATURES)" 2100 PRINT "3 - ONE-ARMED BANDIT GAME (SLOT MACHINE)" 2200 PRINT "4 - LOAN PROGRAM (PAYMENT/AMORTIZATION)" 2300 PRINT "5 - COMPUCOLOR MEMORY TEST DIAGNOSTICS" 2400 PRINT "6 - CONCENTRATION PROGRAM (GAME) 2500 PRINT "7 - COPY PROGRAM (DEV:FILE.EXT;VER TO DEV:FILE.EXT;VER) 2700 GOTO 3800 2800 A$(0)= "BIORHY" 2900 A$(1)= "METRIC" 3000 A$(2)= "DEMO" 3100 A$(3)= "BANDIT" 3200 A$(4)= "LOAN" 3300 A$(5)= "MEMTST" 3400 A$(6)= "CONCEN" 3700 RETURN 3800 PRINT 3900 INPUT "MENU SELECTION (TYPE NUMBER OR ALL AND HIT RETURN KEY) :";A$ 3950 IF VAL (A$)> 8THEN PLOT 28,11:GOTO 3900 3975 IF VAL (A$)= 7THEN PLOT 27,4:PRINT "RUN COPY" 4000 A= VAL (A$):POKE ADR,A+ 1:IF A$< > "ALL"THEN POKE ADR,0 4100 LOAD A$(A)+ ";1":RUN