Park Patrol: P.Patrol.B

  1 REM !@]l MERGE  INVERSE  LLIST H GO SUB Sb GO SUB Cb STEP x]iH GO SUB Sbb STEP x]NOT _^> RETURN   RESTORE *b "b]T LLIST  REM  OR vv RESTORE *b READ STR$  MERGE  GO SUB VAL  MOVE  INVERSE  RESTORE  INVERSE  INVERSE  READ  MOVE STR$ = CAT <> LIST 80ag'p<▜▗N▖| SAVE 8p LPRINT  SAVE ~<= READ  DRAW 1cF0` RANDOMIZE  DEF FN I LOAD ▜[B]1c0`L[A]QCHR$  LLIST ~ LPRINT `L▙qBIN NOT BIN Ac@`LICHR$ d!cF ` RANDOMIZE  OVER E LOAD ▜ DEF FN  SAVE ~ AND `   ! DEF FN c@ GO SUB VAL <>>!2▝^!^"▘^<>
  10 REM NOT  N( GO SUB VAL NOT  N NEXT 1 NEW [! Q[ GO SUB VAL !@ RETURN [SCREEN$  GO SUB VAL <>
  11 CLEAR VAL "24999"
  12 BORDER NOT PI: PAPER NOT PI: INK VAL "7": CLS 
  13 RANDOMIZE USR VAL "23872"
  20 RANDOMIZE USR VAL "15619": REM : LOAD "PP$1"CODE VAL "25550"
  21 RANDOMIZE USR VAL "24147"
  30 RANDOMIZE USR VAL "15619": REM : LOAD "PPc2"CODE 
  40 RANDOMIZE USR VAL "15619": REM : LOAD "PPc1"CODE VAL "16384"
  41 RANDOMIZE USR VAL "15619": REM : LOAD "PP$2"CODE VAL "20768"
  49 REM  POKE VAL "00000",VAL "000": POKE VAL "00000",VAL "000"
  50 RANDOMIZE USR VAL "24193"