home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SPACEVIK.DSK / INSTRUMENTS.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  32 lines
  1. 0  ONERR  GOTO 63999
  2. 2  HIMEM: 8192
  3. 3  POKE 974,32
  4. 5  HGR : POKE  -16302,0
  5. 10  HCOLOR= 1: HPLOT 123,145 TO 1,145 TO 1,128 TO 279,128 TO 279,145 TO 157,145
  6. 20  HPLOT 123,128 TO 123,183 TO 133,183 TO 133,189 TO 147,189 TO 147,183 TO 157,183 TO 157,128
  7. 30  HPLOT 13,131 TO 13,130 TO 77,130 TO 77,131: HPLOT 45,131
  8. 40  HPLOT 261,131 TO 261,130 TO 199,130 TO 199,131: HPLOT 231,131
  9. 50  HPLOT 129,131 TO 129,130 TO 151,130 TO 151,131: HPLOT 139,131 TO 141,131
  10. 60  HPLOT 139,152 TO 141,152 TO 141,184 TO 139,184: HPLOT 139,167
  11. 70  HCOLOR= 5: HPLOT 5,177 TO 117,177: HPLOT 163,177 TO 277,177
  12. 80  HCOLOR= 3
  13. 90  HPLOT 6,152 TO 17,152 TO 17,157 TO 6,157 TO 6,152
  14. 100  HPLOT 71,152 TO 82,152 TO 82,157 TO 71,157 TO 71,152
  15. 110  HPLOT 6,160 TO 17,160 TO 17,165 TO 6,165 TO 6,160
  16. 120  HPLOT 71,160 TO 82,160 TO 82,165 TO 71,165 TO 71,160
  17. 130  HPLOT 200,152 TO 211,152 TO 211,157 TO 200,157 TO 200,152
  18. 140  HPLOT 261,152 TO 272,152 TO 272,157 TO 261,157 TO 261,152
  19. 150  HPLOT 200,160 TO 211,160 TO 211,165 TO 200,165 TO 200,160
  20. 160  HPLOT 261,160 TO 272,160 TO 272,165 TO 261,165 TO 261,160
  21. 165  POKE 973,255
  22. 170  VTAB 18: HTAB 4: PRINT " SPEED ";: HTAB 19: PRINT "TURN";: HTAB 30: PRINT " ENERGY "
  23. 175  VTAB 20: HTAB 22: PRINT "V";: VTAB 21: HTAB 22: PRINT "E";: VTAB 22: HTAB 22: PRINT "R": VTAB 23: HTAB 22: PRINT "T"
  24. 177  VTAB 20: HTAB 19: PRINT "C";: VTAB 23: HTAB 19: PRINT "D";: POKE 973,0
  25. 180  VTAB 20: HTAB 4: PRINT "MANUAL";: HTAB 13: PRINT "AUTO";: HTAB 24: PRINT "ORBIT";: HTAB 32: PRINT "DAMAGE"
  26. 190  VTAB 21: HTAB 4: PRINT "MISSILE";: HTAB 13: PRINT "LASER";: HTAB 24: PRINT "COND";: HTAB 32: PRINT "SHIELD"
  27. 200  VTAB 23: HTAB 3: PRINT "X";: HTAB 9: PRINT "Y";: HTAB 15: PRINT "Z";: HTAB 25: PRINT "XHDNG";: HTAB 34: PRINT "YHDNG"
  28. 205  COLOR= 15
  29. 206  FOR J = 0 TO 47: HLIN 0,39 AT J: NEXT 
  30. 210  IF  PEEK(38391) < >77  THEN  POKE 38189,10: CALL 38402: PRINT "<CTRL-D>RUN STARSHIP SIMULATOR"
  31. 220  PRINT "<CTRL-D>RUN GALAXY MAP"
  32. 63999  PRINT : PRINT "<CTRL-D>INT"