Listing of file='MENU.BAS;01' on disk='vmedia/blackjack-sector.ccvf'
100 REM ** BLACKJACK MENU - JAN 3,79 - JESSEN ** 110 PLOT 6,2,12,14:PRINT TAB( 22);"COMPUCOLOR CORPORATION" 120 PLOT 6,1:PRINT 130 PRINT "TYPE IN THE NUMBER OF THE PROGRAM YOU WANT FROM THE MENU BELOW" 140 PRINT :PLOT 6,6 150 PRINT TAB( 17);"1. BLACKJACK" 160 PRINT TAB( 17);"2. ROULETTE" 170 PRINT TAB( 17);"3. ONE-ARMED BANDIT" 180 PRINT TAB( 17);"4. DRAG - AUTO RACE GAME" 190 PRINT TAB( 17);"5. DERBY - HORSE RACE GAME" 200 PRINT :PLOT 6,3 205 X= PEEK (33209):FOR I= 1TO X:A= RND (1):NEXT I 210 INPUT "NUMBER? ";A 220 IF A< 1OR A> 5THEN 210 225 FOR I= 1TO PEEK (33209):X= RND (1):NEXT I 230 ON AGOTO 240,250,260,270,280 240 LOAD "BJACK":RUN 250 LOAD "ROULET":RUN 260 LOAD "BANDIT":RUN 270 LOAD "DRAG":RUN 280 LOAD "DERBY":RUN