home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / MISSION.DSK / ADVENTURE.bas < prev    next >
BASIC Source File  |  2014-09-09  |  1KB  |  42 lines
  1. 1 D$ =  CHR$(4): PRINT D$"CLOSEAEXEC"
  2. 2  HIMEM:  -29184
  3. 3  GOTO 330
  4. 7  PRINT  CHR$(4);"SAVE ADVENTURE": STOP 
  5. 100 J =  -22824: IF  PEEK(J) = 96  THEN 300: REM J=42712
  6. 110  IF  PEEK(J) < >173  THEN  STOP 
  7. 120  POKE J,96: REM  IGNORE DOS ERRS
  8. 150  RETURN 
  9. 330  PRINT D$"BLOADM2"
  10. 350  PRINT D$"BLOADA3.DAT"
  11. 360  PRINT D$"BLOADM1"
  12. 370  ONERR  GOTO 400
  13. 375  TEXT : HOME 
  14. 377  PRINT 
  15. 379  VTAB 10: PRINT "PLEASE WAIT ..."
  16. 380  IF FUSCO = 0  THEN  PRINT  CHR$(4);"DELETE ERREUR"
  17. 383  PRINT D$"BLOAD R0323,A$2000"
  18. 385  GOSUB 100
  19. 390  CALL 8 *256 -65536
  20. 400  HOME : VTAB 5
  21. 410  PRINT "THE FOLLOWING 1 KEY ENTRIES ARE"
  22. 415  PRINT "ALLOWED IN S.A.G.A.S:
  23. 416  PRINT : PRINT "1) ";
  24. 420  PRINT "C - TURN ON/OFF LOWERCASE
  25. 421  PRINT 
  26. 425  PRINT "2) ";
  27. 430  PRINT "V - ACTIVATE/DEACTIVATE  VOICE"
  28. 434  PRINT 
  29. 435  PRINT "3) ";
  30. 440  PRINT "Z - OFF/ON GRAPHIC MODE
  31. 444  PRINT 
  32. 445  PRINT "4) ";
  33. 450  PRINT "(RETURN KEY) - REVIEW TEXT WINDOW"
  34. 451  PRINT 
  35. 452  PRINT "5) N,S,E,W - GO NORTH,SOUTH,EAST,WEST"
  36. 454  PRINT : PRINT "6) I - TAKE INVENTORY OF ITEMS CARRIED"
  37. 460  PRINT 
  38. 465  PRINT : PRINT 
  39. 500 FUSCO = 1
  40. 503  PRINT "       < PRESS SPACE BAR > ";: GET A$
  41. 505  POKE 216,0
  42. 510  GOTO 370