Colossal Cave Adventure: COLOSSAL.B

Is a part of release: Colossal Cave Adventure
File size: 811
md5: 0a583bb743140d6457149522d132346b
  0 REM  STEP } CLS 
  1 REM ©1985 ANUBIS SOFTWARE  
  2 LET a=PEEK VAL "23613"+VAL "256"*PEEK VAL "23614": POKE a,PEEK VAL "23635"+VAL "5": POKE a+VAL "1",PEEK VAL "23636": POKE VAL "23606",VAL "120": POKE VAL "23607",VAL "229"
  3 PAPER NOT PI: INK NOT PI: BORDER NOT PI: CLEAR 25062: LOAD ""SCREEN$ : PRINT AT VAL "2",NOT PI;: LOAD ""CODE 25063
  4 PAUSE VAL "0"
  20 BORDER VAL "0": PAPER VAL "0": INK VAL "7": BRIGHT VAL "1": CLS 
  21 PRINT "DO YOU WANT INSTRUCTIONS (Y/N)": PAUSE 0: PAUSE 0: IF INKEY$<>"Y" AND INKEY$<>"y" THEN  RANDOMIZE USR 25063
  30 CLS : FOR f=VAL "62000" TO VAL "64175"
  40 POKE 23692,255: LET l=PEEK f
  41 IF f<=VAL "62031" THEN  INK 4
  42 IF f>=62032 AND f<=62190 THEN  INK 5
  43 IF f>=62223 AND f<=62255 THEN  INK 3
  44 IF f>=62256 AND f<=62512 THEN  INK 6
  45 IF f>=63888 THEN  INK 4
  46 IF f<=63887 AND f>=63760 THEN  INK 3
  59 BEEP .03/,-40: PRINT CHR$ l;">";CHR$ 8;
  60 INK 7: NEXT f
  70 PRINT  INK 7;"Read instructions again (Y/N)?": PAUSE VAL "0": PAUSE VAL "0": IF INKEY$="y" OR INKEY$="Y" THEN  GO TO VAL "30"
  80 RANDOMIZE USR VAL "25063"
  58880] CLOSE #](#lea3