home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / LOC1.DSK / LL.txt < prev    next >
Text File  |  2014-09-09  |  2KB  |  70 lines
  1.  FORGET T1
  2.  VARIABLE PZ
  3.  VARIABLE FILE
  4.  : DIE RND 11 MOD ADD1 ZR DO RND DROP LOOP RND SWAP MOD ;
  5.  : DMO? 24418 PEEK ;
  6.  : PKENT 41728 22965 POKEW 41731 22969 POKEW ZR 22967 POKE ZR 22971 POKE ;
  7.  : PHASE PZ PZ 24567 POKE ;
  8.  VARIABLE RESFLG
  9.  : LEV2 24427 PEEK ;
  10.  : DSPORDR 19336 CALL ;
  11.  : XEQBIN 39936 CALL ZR ;
  12.  : SKIP? 8 DIE N4 = 24413 PEEK N2 < AND DUP
  13.  IF CR 132 PUTC PRINT " BLOADTT,D1 " CR 47104 CALL CLRSTK N1
  14. THEN ;
  15.  : LDSHP CR 132 PUTC PRINT " BLOADSHIP.BIN,D1 " CR ;
  16.  : INTC N1 -> FILE N1 ;
  17.  : ATT 14 HTAB PRINT " CONQUEST " PKENT
  18.  SLO? IF CR 132 PUTC PRINT " BLOADZZ,D1 " CR THEN
  19.  RESFLG IF ZR -> RESFLG LDSHP THEN
  20.  CR 132 PUTC PRINT " BLOADH,D1 " CR 36608 CALL AREG ;
  21.  : SHIP 14 HTAB PRINT " SHIPMENT " PKENT LDSHP SKIP?
  22.  IF ZR
  23.  ELSE SLO? IF 24429 PEEK IF CR 132 PUTC PRINT " BLOADHH " CR CR 132 PUTC PRINT " BLOADKK " CR THEN THEN XEQBIN
  24. THEN ;
  25.  : TRADE 15 HTAB PRINT " TRADE " SKIP? IF ZR ELSE CR 132 PUTC PRINT " BLOADS,D1 " CR PKENT XEQBIN THEN ;
  26.  : PROD 13 HTAB PRINT " PRODUCTION "
  27.  SLO? IF CR 132 PUTC PRINT " BLOADSLOP1.BIN,D1 " CR THEN SKIP? IF ZR ELSE
  28.  CR 132 PUTC PRINT " BLOADF,D1 " CR
  29.  PKENT XEQBIN THEN ;
  30.  : DEV 12 HTAB PRINT " DEVELOPMENT " PKENT CR 132 PUTC PRINT " BLOADVV,D1 " CR
  31.  
  32.  SLO? IF
  33.    CR 132 PUTC PRINT " BLOADFF " CR 20 VTAB 43816 CALL
  34.   THEN XEQBIN ;
  35.  
  36.  : MWIN 19342 CALL ;
  37.  : MMRD READ " MAINMENU,D1 " ;
  38.  : TMRD ;
  39.  : ICRD READ " V,D1 " ;
  40.  
  41.  VARIABLE SSAV
  42. : RSETSLO SSAV 24442 POKE ;
  43.  : UTIL ZR 24575 POKE ZR -> FILE PHASE N4 = -> RESFLG 39936 CALL N2 -> FILE ;
  44.  : MAIN FILE N2 <>
  45.   IF N2 -> FILE
  46.    BEGIN 24575 PEEK
  47.    IF REF DSPORDR UTIL
  48.    ELSE MWIN ZR 24566 POKE PHASE INC PHASE PHASE N2 = NP N2 = AND
  49.     IF PHASE INC PHASE
  50.     THEN DSPORDR 17656 CALL PHASE 5 <
  51.     IF 22 VTAB 10 HTAB PRINT " PRESS BUTTON TO " CR 10 HTAB PRINT " SAVE GAME / ETC " ZR SLO? -> SSAV ZR 24442 POKE
  52.      BEGIN 22100 CALL AREG 128 >
  53.       IF CR 132 PUTC PRINT " BLOADG " CR RSETSLO UTIL DROP 3500
  54.       THEN ADD1 DMO?
  55.       IF 1000
  56.       ELSE 1600
  57.       THEN OVER <
  58.      UNTIL DROP RSETSLO
  59.     THEN
  60.     THEN 20 CLRWIN PHASE CASE: DEV PROD TRADE SHIP ATT INTC THEN
  61.   UNTIL
  62.  THEN FILE CASE: TMRD ICRD MMRD THEN ;
  63.  
  64.  : LOAD ZR 24575 POKE 24560 PEEK
  65.   IF READ " Z "
  66.   ELSE READ " I "
  67.   THEN ;
  68. CLOSE RUN
  69.  
  70.