QBasicMiniGames/STARTUP.BAS at master · levidsmith/QBasicMiniGames · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
1  PALETTE 1, 5
5  SCREEN 7
10 CLS
COLOR 1, 0
15 PRINT "PICK A GAME TO PLAY"
SLEEP 2
20 PRINT ""
COLOR 2, 0
A$ = "C"
PLAY A$
25 PRINT "1 FOR BLACK JACK"
SLEEP 1
COLOR 3, 0
B$ = "D"
PLAY B$
30 PRINT "2 FOR HIGH-LOW GAME"
SLEEP 1
COLOR 4, 0
C$ = "E"
PLAY C$
35 PRINT "3 FOR DART GAME"
SLEEP 1
COLOR 5, 0
D$ = "F"
PLAY D$
36 PRINT "4 FOR BASEBALL"
SLEEP 1
COLOR 6, 0
E$ = "G"
PLAY E$
37 PRINT "5 TO SEE A STUPID SHEEP"
SLEEP 1
COLOR 8, 0
F$ = "A"
PLAY F$
40 PRINT "6 TO END"
SLEEP 1
COLOR 9, 0
41 INPUT A

45 IF A = 1 THEN RUN "A:\BLAKJAK.BAS"
46 IF A = 2 THEN RUN "A:\HIGH-LOW.BAS"
47 IF A = 3 THEN RUN "A:\DARTS.BAS"
48 IF A = 4 THEN RUN "A:\BASEBALL.BAS"
49 IF A = 5 THEN RUN "A:\SHEEP.BAS"
50 IF A = 6 THEN END