home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / LOC1.DSK / CC.txt < prev    next >
Text File  |  2014-09-09  |  1KB  |  64 lines
  1.  FORGET RESTG
  2.  
  3. : DIE RND SWAP MOD ;
  4. : FEELT -> AREG 17216 CALL ;
  5.  : CXCHK
  6.  ZR 24457 POKE 48 ZR DO 255 I 24458 + POKE LOOP
  7.  SWIN HOME 21 VTAB 14 HTAB PRINT " PLEASE WAIT " NT ADD1 N1
  8.   DO I FEELT
  9.  LOOP
  10.   HOME ;
  11.  VARIABLE LEVEL
  12.  
  13.  : STNDMP
  14.  CR 132 PUTC PRINT " BLOADNN,A2816,D1 " CR
  15. ZR RDLNK0 24573 POKE
  16. 49 N1 DO ZR I WRRES ZR I 5333 + POKE ZR I 24505 + POKE LOOP
  17.  24561 PEEK PUSH ZR 24561 POKE BWIN HOME REF PULL 24561 POKE CXCHK
  18. READ " RLOAD " ;
  19.  
  20.  : DMOCTL N2 24574 POKE ( NP
  21.  N4 DIE ADD1 24561 POKE ( PC#1
  22.  ZR 24562 POKE ( PC#2
  23.  99 DUP 22098 POKE 22099 POKE ( COLOR MASKS FOR WHITE T-CHOICE
  24.  5 24559 POKE ( ODDCLR
  25.  255 24442 POKE ( SOLO
  26. ZR 24560 POKE ( ?
  27.  N4 ZR DO ZR I 24426 + POKE LOOP
  28.  N2 DIE DUP -> LEVEL ADD1 ZR DO 255 I 24426 + POKE LOOP ( LEVS
  29. N2 DIE DUP ADD1 24555 POKE ( PORDR
  30. IF N1 ELSE N2 THEN 24556 POKE
  31.  24427 PEEK ( LEV2
  32.  IF N2 DIE N2 + DUP 24441 POKE ( CIGH
  33.  DUP SUB1 24440 POKE ( NTREE
  34. 5 * SUB1 24439 POKE ( TOTRES
  35.  ELSE N2 24440 POKE ( NHORS
  36.  5 24441 POKE ( NGOLD
  37.  7 24439 POKE ( TOTRES
  38.  THEN 255 24418 POKE ( DEMO
  39.  N4 24422 POKE N2 24423 POKE 17 24424 POKE N1 24425 POKE ( WEAP,CIT,ETC VALUES
  40.  N3 24414 POKE ( WINCITS
  41. -1 N4 DIE NOT IF ADD1 THEN 24413 POKE ( LUCKLEV
  42. 45 ZR DO I 24368 + POKE LOOP ( CATFLGS
  43.  ZR 24367 POKE ( KBD INPUT
  44.  STNDMP ;
  45.  
  46. CLOSE RUN
  47.  
  48.  
  49. FLGS
  50.  ZR 24367 POKE ( KBD INPUT
  51.  STNDMP ;
  52.  
  53. CLOSE RUN
  54.  
  55. CATFLGS
  56.  ZR 24367 POKE ( KBD INPUT
  57.  N4 DIE N3 <
  58.  IF STNDMP
  59.  ELSE LS3
  60. THEN ;
  61.  
  62. CLOSE RUN
  63.  
  64.