home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / ABM.DSK / HELLO.bas < prev   
BASIC Source File  |  2014-09-09  |  641b  |  19 lines
  1. 10  PRINT "<CTRL-D>NOMON C,I,O"
  2. 20  HOME 
  3. 35  VTAB 12: PRINT " CONTROLS 1, 2 OR 3 (PRESS 1, 2 OR 3) ";: GET C$:C =  VAL(C$): IF C <0  OR C >3  THEN 35
  4. 36  PRINT 
  5. 37  IF C = 2  THEN  PRINT "<CTRL-D>BLOAD CONTROLS2": GOTO 50
  6. 38  IF C = 3  THEN  PRINT "<CTRL-D>BLOAD CONTROLS3": GOTO 50
  7. 40  PRINT "<CTRL-D>BLOAD CONTROLS"
  8. 50  POKE  -16297,0: POKE  -16302,0: POKE  -16304,0
  9. 60 I = 0
  10. 70 I = I +1
  11. 80  IF  PEEK( -16384) = 155  THEN 200
  12. 85  IF  PEEK( -16384) >127  THEN 100
  13. 90  IF I <200  THEN 70
  14. 100  POKE  -16368,0
  15. 105  TEXT : HOME 
  16. 110  PRINT : PRINT "<CTRL-D>BRUNABM"
  17. 200  POKE  -16368,0
  18. 205  TEXT : HOME 
  19. 210  PRINT : PRINT "<CTRL-D>RUN ADJUST"