home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SPACEVIK.DSK / SUPPLY.bas < prev   
BASIC Source File  |  2014-09-09  |  2KB  |  27 lines
  1. 0  ONERR  GOTO 63999
  2. 2  HIMEM: 8192
  3. 5  HTAB 2
  4. 10  POKE 32,1: POKE 33,39: POKE 34,0: POKE 35,15
  5. 18  HCOLOR= 1: POKE 974,64
  6. 19  GOSUB 5000: POKE 974,32
  7. 20  FOR Y = 0 TO 123: HPLOT 0,Y TO 279,Y: NEXT 
  8. 1400  VTAB 1: POKE 973,255: FOR C = 1 TO 15: HTAB 2: VTAB C: PRINT "                                       ": NEXT : VTAB 1: HTAB 11: PRINT "- SUPPLY REPORT -": PRINT : IF R1 = 1  THEN R1 = 0: RETURN 
  9. 1405  VTAB 3
  10. 1410  PRINT "* PLATINUM ";: HTAB 19: PRINT "= "; PEEK(38181) *10;: HTAB 24: PRINT "POUNDS": PRINT "* GOLD";: HTAB 19: PRINT "= "; PEEK(38183) *10;: HTAB 24: PRINT "POUNDS"
  11. 1420  PRINT "* SILVER ";: HTAB 19: PRINT "= "; PEEK(38182) *20;: HTAB 24: PRINT "POUNDS": PRINT "* TITANIUM ";: HTAB 19: PRINT "= "; PEEK(38180);: HTAB 24: PRINT "THOUSAND POUNDS"
  12. 1430  PRINT "* COLLAPSIUM ";: HTAB 19: PRINT "= "; PEEK(38179);: HTAB 24: PRINT "TONS": PRINT "* STEEL ";: HTAB 19: PRINT "= "; PEEK(38178);: HTAB 24: PRINT "TONS"
  13. 1440  PRINT "* FISSIONABLES ";: HTAB 19: PRINT "= "; PEEK(38177);: HTAB 24: PRINT "POUNDS"
  14. 1450  PRINT : PRINT "HIT SPACE BAR TO CONTINUE.";: GET C$
  15. 1460 R1 = 1: GOSUB 1400
  16. 1465  VTAB 3
  17. 1470  PRINT "* ELECTRONIC PARTS";: HTAB 19: PRINT "= "; PEEK(38176);: HTAB 24: PRINT "CRATES": PRINT "* WEAPONS ";: HTAB 19: PRINT "= "; PEEK(38175);: HTAB 24: PRINT "CRATES"
  18. 1480  PRINT "* FIGHTER PARTS";: HTAB 19: PRINT "= "; PEEK(38174);: HTAB 24: PRINT "CRATES": PRINT "* LUXURY FOODS";: HTAB 19: PRINT "= "; PEEK(38173);: HTAB 24: PRINT "CASES"
  19. 1485  PRINT "* WINE/LIQUOR";: HTAB 19: PRINT "= "; PEEK(38172) *100;: HTAB 24: PRINT "CASES"
  20. 1490  PRINT "* ART WORKS";: HTAB 19: PRINT "= "; PEEK(38171) *10;: HTAB 24: PRINT "UNITS": PRINT "* CREDITS";: HTAB 19: PRINT "= "; INT(CR)
  21. 1500  PRINT : HTAB 9: PRINT "HIT SPACE BAR TO RETURN": HTAB 8: PRINT "(1 TO RETURN TO 1ST PAGE)";
  22. 1510  GET A$: IF A$ = "1"  THEN 1400
  23. 1515  POKE 973,0
  24. 1516  POKE 974,64
  25. 1520  PRINT " ": PRINT "<CTRL-D>RUN COM"
  26. 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 
  27. 63999  PRINT : PRINT "<CTRL-D>INT"