home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / EAMAZON1.DSK / HELLO2.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  26 lines
  1. 0  ONERR  GOTO 80
  2. 1  HIMEM: 16383: HOME : TEXT : PRINT  CHR$(4)"BLOADTITLE.PIC,A$4000
  3. 2 Z1 =  -16304:Z2 = 0: POKE  -16297,0: POKE  -16302,0: POKE  -16299,0: POKE Z1,Z2
  4. 3  HOME 
  5. 5  IF  PEEK( -16384) >127 GOTO 8
  6. 7  GOTO 5
  7. 8 A =  PEEK( -16384) -209:C =  PEEK( -16368): IF A <1  OR A >7 GOTO 5
  8. 9  ON A GOTO 10,63,5,5,19,5,15,5
  9. 10  TEXT : PRINT "<CTRL-D> RUN INS"
  10. 15  TEXT 
  11. 16  VTAB 17: CALL  -875: VTAB 19: CALL  -875: VTAB 11: HTAB 11: PRINT "PRESS A KEY TO PLAY,": HTAB 8: PRINT "OR TURN YOUR COMPUTER OFF."
  12. 17  IF  PEEK( -16384) <127 GOTO 17
  13. 18  HOME : VTAB 22:C =  PEEK( -16368): GOTO 2
  14. 19  REM 
  15. 21  PRINT "<CTRL-D>BLOAD COVERANIM"
  16. 22  TEXT 
  17. 24  CALL 34048
  18. 40  RUN 
  19. 49  IF  PEEK( -16384) <127 GOTO 49
  20. 50 A =  PEEK( -16368): GOTO 20
  21. 63  TEXT 
  22. 64  HOME : VTAB 12: HTAB 5: INVERSE : PRINT "PLEASE TURN YOUR DISKETTE OVER": HTAB 5: PRINT "       AND PRESS A KEY.       ";: NORMAL 
  23. 65  IF  PEEK( -16384) <128  THEN 65
  24. 66  POKE 768,0: POKE 769,0: POKE 770,0: POKE 771,0: HIMEM: 16360: HOME : VTAB 12: HTAB 4: PRINT "AIR FLIGHT TO SAN ANTONIO, TEXAS": HTAB 6: PRINT "BUS RIDE TO KERRVILLE, TEXAS": HTAB 7: PRINT "JEEP RIDE TO NIHIL, TEXAS
  25. 67  VTAB 1: PRINT : PRINT : POKE  -16368,0: PRINT  CHR$(4)"RUN FLINT
  26. 80  CALL 979: RESUME