Compucolor.org – Virtual Media

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