Kong's Revenge 1, 2: KINGKONG.B

  1 RANDOMIZE USR VAL "24308": RANDOMIZE USR VAL "23894": REM 1PIaCODE  OPEN # RETURN  STEP  BORDER ^!FN a% STEP d^ STEP FN a RESTORE  STEP EXP ^! STEP d^ STEP  STEP [P] LLIST } RETURN (l!0ue STEP d^ STEP EXP ^ STEP  BORDER ^![~ RETURN  TO >=]#~ RETURN  TO  STEP ]#~ RETURN  TO  ERASE ]#~ RETURN  TO  CIRCLE ]#~ RETURN  TO  OVER ]#~ RETURN  TO  DATA ]#~ RETURN  TO  REM ]NOT 0uCODE 2Qu<>CODE 2Vu<>>2[u<>>2`u<>>2eu<>>2ju<>>2ou<>e: POKE /< RETURN (2 POKE / NEXT CODE 2 POKE /: PRINT /<2 PRINT / DATA !FN ak STEP d^ STEP EXP ^ STEP  BORDER ^ STEP FN a![~ RETURN  TO G^#~ RETURN  TO L^#~ RETURN  TO R^#~ RETURN  TO X^#~ RETURN  TO ^^NOT  OVER sCODE 2▘ INPUT <>><>2INKEY$ GO TO <>><>2 GO SUB <>><>2 PLOT   GO TO <>><>2 INK  GO TO <> GO SUB [ POKE / OR  MERGE zATN O>,8>< INVERSE ! NEXT  STEP TAN ^y© INVERSE !S* STEP TAN ^> INVERSE !NOT / STEP TAN ^ MOVE STR$  OR  MERGE  INVERSE !/ STEP TAN ^ MOVE $ THEN c(STR$ STR$  GO SUB S POKE /<>STR$  STOP  GO SUB S POKE /<> INVERSE  RESTORE NOT /= CLS  OR !X~ NEW (=w#| RETURN [  NEXT STR$ v FOR > COPY < RETURN >=2 ERASE ^ CLEAR  COPY  GO SUB y CLEAR IN CODE  GO SUB y REM !@@ COPY u GO SUB VAL <> GO SUB {=/ LLIST ! RESTORE !v RESTORE *E/"B/:G/<2D/PEEK :;/ NEW  LOAD VAL 2;/*O/ FOR