home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Glitch Apple Disk Collection
/
2014.glitch.apple.collection.zip
/
indexed
/
9B.DSK
/
HELLO.bas
< prev
next >
Wrap
BASIC Source File
|
2014-09-09
|
625b
|
14 lines
10 TEXT : HOME
20 VTAB 5: PRINT " [1] - GLOBAL THERMONUCLEAR WAR"
30 PRINT : PRINT " [2] - POLICE ARTIST"
40 PRINT : PRINT " [3] - MISSILE DEFENSE"
50 PRINT : PRINT " [4] - FLIGHTSIM I"
60 PRINT : PRINT " [5] - HANDY DANDY"
70 PRINT : PRINT " [6] - NUKEWAR"
80 VTAB 3: PRINT "SELECT:";: POKE -16368,0: GET A$: PRINT A$
90 IF A$ = "1" THEN PRINT "<CTRL-D>BRUNGTW"
100 IF A$ = "2" THEN PRINT "<CTRL-D>RUNPOLICE ARTIST"
110 IF A$ = "3" THEN PRINT "<CTRL-D>BRUN MISSILE DEFENSE"
120 IF A$ = "5" THEN PRINT "<CTRL-D>BRUNHANDY DANDY"
130 IF A$ = "6" THEN PRINT "<CTRL-D>RUNNUKEWAR"
140 GOTO 80