home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / HUMANFLY.DSK / TEMP.bas < prev   
BASIC Source File  |  2014-09-09  |  507b  |  6 lines
  1. 10  POKE 230,32: PRINT "<CTRL-D>BLOADLINE1": PRINT "<CTRL-D>BLOADLINE2,A$4000"
  2. 20  POKE  -16300,0: POKE  -16302,0: POKE  -16304,0: POKE  -16297,0
  3. 50  PRINT "<CTRL-D>BLOAD SOUND": POKE 769,8
  4. 60  POKE  -16300,0: FOR P = 20 TO 1  STEP  -1: POKE 826,P: CALL 768: NEXT P: POKE  -16299,0: FOR P = 20 TO 1  STEP  -1: POKE 826,P: CALL 768: NEXT P: ON  PEEK( -16384) >127 GOTO 100: GOTO 60
  5. 100  POKE  -16368,0
  6. 1000  PRINT : PRINT "<CTRL-D>BLOAD SPLAT.B": PRINT "<CTRL-D>BLOADSWITCH EXACT2": PRINT "<CTRL-D>RUNGAME.B"