home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / SPACEVIK.DSK / RECALL.bas < prev    next >
BASIC Source File  |  2014-09-09  |  878b  |  12 lines
  1. 0  ONERR  GOTO 63999
  2. 10 D$ =  CHR$(4)
  3. 11  PRINT D$;"OPEN MISC FILE": PRINT D$;"READ MISC FILE": INPUT SD: INPUT TR: INPUT CR: PRINT D$;"CLOSE"
  4. 12  POKE 974,32
  5. 20  HCOLOR= 1: HPLOT 1,1 TO 139,1 TO 139,110 TO 1,110 TO 1,1
  6. 2000  PRINT : IF  PEEK(38209) < > PEEK(38158)  AND  PEEK(38166) >0  AND  PEEK(38166) <3  THEN  PRINT "TROOPS ARE NOT ON": PRINT : PRINT "THIS PLANET, SIR!": GOTO 2050
  7. 2005  IF TR = 0  THEN  PRINT "WE HAVE NO TROOPS": PRINT "LEFT, SIR!": POKE 38166,0: GOTO 2050
  8. 2010  IF  PEEK(38166) = 1  OR  PEEK(38166) = 2  THEN  PRINT "TROOPS ARE BEING": PRINT "RECALLED, SIR!": POKE 38166,0: GOTO 2050
  9. 2020  IF  PEEK(38166) = 3  THEN  PRINT "TROOPS ARE IN": PRINT "CRYOGENIC SLEEP!": GOTO 2050
  10. 2030  IF  PEEK(38166) = 0  THEN  PRINT "TROOPS ARE ALREADY": PRINT "ON BOARD, SIR!": GOTO 2050
  11. 2050  POKE 974,64: PRINT D$;"RUN GROUND FORCES"
  12. 63999  PRINT : PRINT "<CTRL-D>INT"