home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Glitch Apple Disk Collection
/
2014.glitch.apple.collection.zip
/
indexed
/
4B.DSK
/
HELLO.bas
< prev
next >
Wrap
BASIC Source File
|
2014-09-09
|
616b
|
9 lines
10 TEXT : HOME : VTAB 5: PRINT " [1] - ABM": PRINT " [2] - CYBER STRIKE": PRINT " [3] - APPLE GALAXIAN": PRINT " [4] - MICROGAMMON II": PRINT " [5] - MICRO CHESS 2.0": PRINT " [6] - CRAZY CAR"
20 VTAB 3: PRINT "SELECT:";: POKE -16368,0: GET A$: PRINT A$
30 IF A$ = "1" THEN PRINT "<CTRL-D>RUNABM START"
40 IF A$ = "2" THEN PRINT "<CTRL-D>BRUNCYBER STRIKE"
50 IF A$ = "3" THEN PRINT "<CTRL-D>BRUNAPPLE GALAXIAN"
60 IF A$ = "4" THEN PRINT "<CTRL-D>BRUNMICROGAMMON II"
70 IF A$ = "5" THEN PRINT "<CTRL-D>BRUNMICRO CHESS 2.0"
80 IF A$ = "6" THEN PRINT "<CTRL-D>BRUNCRAZY CAR"
90 GOTO 20