home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / EAMAZON1.DSK / KA.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  18 lines
  1. 0  ONERR  GOTO 300
  2. 10  CLEAR : HIMEM: 8191
  3. 12  PRINT "<CTRL-D> BLOAD EX": HOME : GOSUB 310: POKE  -16297,0: POKE  -16304,0
  4. 289  PRINT "<CTRL-D> BLOAD DR,A$4000": POKE 0,0: POKE 1,64: POKE 230,32: CALL 24576
  5. 290  PRINT "<CTRL-D> BLOAD IC"
  6. 291  FOR A = 1 TO 4: CALL  -1052: NEXT : POKE  -16301,0: VTAB 22: HTAB 11: PRINT "THE DOOR TO KA!!"
  7. 292  CALL 36928: IF  PEEK( -16384) <127  THEN  FOR A = 1 TO 50: NEXT : GOTO 292
  8. 294  TEXT : HOME : VTAB 12: HTAB 10: PRINT "THIS IS NOT THE END.": HTAB 9: PRINT "IT IS THE BEGINNING OF": HTAB 13: PRINT "EXPEDITION:KA":X =  PEEK( -16368)
  9. 296  IF  PEEK( -16384) <127 GOTO 296
  10. 298  PRINT "<CTRL-D> RUN HELLO"
  11. 300  CALL 979: RESUME 
  12. 310  PRINT "<CTRL-D> BLOAD SD"
  13. 312 Y =  RND(1) *200 +1: CALL 768:Y = Y -6: IF Y <100  THEN Y = 200
  14. 314 X = X +4: IF X >100  THEN X = 4
  15. 316  POKE 0,Y: POKE 769,X: CALL 768: POKE 769,5: CALL 768: CALL 768: POKE 769,10: FOR I = 1 TO 10: CALL 768: NEXT : CALL 768:G = G +1: IF G = 16 GOTO 322
  16. 318 L = L +1: IF L = 10  THEN L = 0: GOTO 314
  17. 320  GOTO 312
  18. 322  RETURN