Rick Dangerous 2: RICK_II.B

  160 PAPER NOT PI: INK NOT PI: POKE VAL "23624",NOT PI: CLEAR VAL "24999": POKE (PEEK 236243+256*PEEK 326783),1: POKE (PEEK 236533+256*PEEK 234563)+1,2
  65535 RANDOMIZE USR VAL "26000"AT P ERASE [D]ABS @ CLOSE #[M] INPUT I LET [P]ABS  LIST [T][T]`PEEK [A]^` READ  NEXT TAB [D][P][P]I LET [P]ABS  LIST [T][T]`PEEK [A]^TAB TAB AT P ERASE [D]ABS @ CLOSE # PRINT  VERIFY AT TAB  OPEN #C PAPER ▙INKEY$ MERGE ▟[` GO TO  NEXT [D][O][P]I LET [P]ABS  LET [T][T]`PEEK [A]^[M]R PAUSE TAB  GO SUB SGN TAB  STEP AT AT @n" VERIFY TAB  GO SUB SGN AT  GO SUB AT RATN  CIRCLE @d` GO TO  NEXT ` CLEAR nd NEXT !c^@[M] MERGE  GO SUB VAL <> GO SUB s>[M]1Z[M]CODE =' GO SUB O GO SUB _ LLIST TAB o RESTORE 3zCOS  oK LINE ▘[ NEXT TAB t STOP FN ▞y FORMAT G REM nSGN  PRINT  IF [G]D[S]y[D]ATN COS ▜ CAT w▛POINT SIN PINOT  OUT CODE  INPUT  CONTINUE  DATA [G]COS  OPEN #[N][C][H][K]▝▜[O] READ  DRAW ▘POINT ▝[K] DRAW  DRAW ▞ THEN  AND  STOP [G]T ERASE  BORDER uINKEY$F FORMAT TAB  BORDER  NEW $deVAL$ INT [C] LOAD HR IF [A] STEP ] RESTORE LN SGN FN  OUT R OUT F[O]▟ RESTORE ATTR  STEP [M]USR  SAVE  MERGE  LPRINT DCHR$ F[H][S][D]EXP ][B]SCREEN$ [L] BEEP [L]7 DRAW  CONTINUE  NEXT  BRIGHT  STOP >=▙ASN STR$  DEF FN  BEEP  LLIST  GO TO  RUN qlINT >= PAUSE [I][C] FLASH [P] LIST h< FOR ▗EXP  OR y NEXT (STR$ V{ PLOT  [E][E][A]U PLOT  111111SCREEN$ [Q]ICK_II" LINE 160VAL "15616"15616 LINE ?`?`[Q]