home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SPACEVIK.DSK / STATUS.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  60 lines
  1. 0  ONERR  GOTO 63999
  2. 5 A = 38209
  3. 10  VTAB 1: HTAB 2
  4. 12  POKE 32,1: POKE 33,39
  5. 15  HCOLOR= 1
  6. 20  FOR Y = 0 TO 123: HPLOT 0,Y TO 279,Y: NEXT 
  7. 30  POKE 973,255
  8. 40  POKE 974,64
  9. 50  GOSUB 5000
  10. 60  POKE 974,32
  11. 1230  FOR C = 1 TO 15: VTAB C: HTAB 2: PRINT "                                      ": NEXT : VTAB 1: HTAB 2
  12. 1232  IF R = 4  THEN R = 0: RETURN 
  13. 1235  FOR C = 1 TO  PEEK(A): READ S$: NEXT 
  14. 1240  HTAB 9: PRINT "-SHIP STATUS REPORT-": PRINT 
  15. 1250  PRINT "LOCATION :";S$: PRINT : PRINT "STARDATE :";SD: PRINT 
  16. 1255 EN =  PEEK(38199):EN = EN/62:EN =  INT(EN *100)
  17. 1256  IF EN >100  THEN EN = 100
  18. 1260  PRINT "ENERGY  :";EN;"%"; TAB( 22);"CREDITS  :"; INT(CR)
  19. 1270  PRINT "SHIELDS :"; PEEK(38200);"%"; TAB( 22);"CONDITION:";
  20. 1280 C =  PEEK(38165)
  21. 1290  IF C = 1  THEN  PRINT "GREEN"
  22. 1292  IF C = 2  THEN  PRINT "BLUE"
  23. 1294  IF C = 3  THEN  PRINT "RED"
  24. 1300  PRINT "HULL DMG:";100 - PEEK(38193);"%"; TAB( 22);"MISSILES :"; PEEK(38187)
  25. 1305  GOSUB 5100
  26. 1310  PRINT "ENGINE#1:"; PEEK(38198);"%"; TAB( 22);"ENGINE#2 :"; PEEK(38197);"%"
  27. 1315  GET I$:R = 4: GOSUB 1230
  28. 1320  PRINT : PRINT  TAB( 12);"-TROOP STATUS-": PRINT 
  29. 1330  PRINT "NO. OF TROOPS"; TAB( 18);"-"; TAB( 24);TR
  30. 1340  PRINT "TROOP MORALE"; TAB( 18);"-"; TAB( 24);:M =  PEEK(38203)
  31. 1350  IF M = 1  THEN  PRINT "AWFUL!!!"
  32. 1352  IF M = 2  THEN  PRINT "POOR"
  33. 1354  IF M = 3  THEN  PRINT "SO-SO"
  34. 1356  IF M = 4  THEN  PRINT "FAIR"
  35. 1358  IF M = 5  THEN  PRINT "GOOD"
  36. 1360  IF M = 6  THEN  PRINT "EXCELLENT!"
  37. 1370  PRINT "TROOP LOCATION"; TAB( 18);"-"; TAB( 24);:L =  PEEK(38166)
  38. 1380  IF L = 3  THEN  PRINT "CRYOGENIC SLEEP"
  39. 1381  IF L = 0  THEN  PRINT "ON BOARD"
  40. 1382  IF L = 1  THEN  PRINT "PLANETSIDE"
  41. 1384  IF L = 2  THEN  PRINT "SHORE LEAVE"
  42. 1385  GOSUB 5200
  43. 1386  IF ( PEEK(38167) *256) + PEEK(38159) = 0  THEN  PRINT "THE TROOPS ARE ALL DEAD!";
  44. 1390  GET A$
  45. 1395  PRINT " "
  46. 1396  POKE 973,0
  47. 1400  PRINT "<CTRL-D>RUN COM
  48. 5000  PRINT "<CTRL-D>OPEN MISC FILE": PRINT "<CTRL-D>READ MISC FILE": INPUT SD: INPUT TR: INPUT CR: PRINT "<CTRL-D>CLOSE MISC FILE": RETURN 
  49. 5010  INPUT SD: INPUT TR: INPUT CR
  50. 5020  PRINT "<CTRL-D>CLOSE MISC FILE"
  51. 5030  RETURN 
  52. 5100  PRINT "COMPUTER:"; PEEK(38196);"%";: HTAB 22: PRINT "H-DRIVE  :"; PEEK(38190);"%"
  53. 5110  PRINT "RADAR   :"; PEEK(38195);"%";: HTAB 22: PRINT "ENV.     :100%"
  54. 5120  PRINT "LASER   :"; PEEK(38186);"%";: HTAB 22: PRINT "NAV.COMP.:";100;"%"
  55. 5130  RETURN 
  56. 5200  PRINT "FIGHTERS";: HTAB 18: PRINT "-";: HTAB 24: PRINT  PEEK(38156): PRINT "TRANSPORTS";: HTAB 18: PRINT "-";: HTAB 24: PRINT  PEEK(38155)
  57. 5210  PRINT "TANKS";: HTAB 18: PRINT "-";: HTAB 24: PRINT  PEEK(38154): PRINT "GROUND MISSILES";: HTAB 18: PRINT "-";: HTAB 24: PRINT  PEEK(38153)
  58. 5220  RETURN 
  59. 10000  DATA   SOL,ALPHA CENTAURI,BARNARD'S STAR,WOLF 359,LUYTEN,LALANDE 21185,SIRIUS,VARCAR,XANADON,EPSILON ERIDANA,CYGNI,PROCYON,TAU CETI,LACAILLE 9352,LARSEN-C,GROOMBRIDGE 1618,KRUGER 60,EPSILON INDI,ARGO,SHIVANDA 
  60. 63999  PRINT : PRINT "<CTRL-D>INT"