MBJ boot: boot.B

  10 CLEAR VAL "29999": RANDOMIZE USR VAL "23929"
  20 RANDOMIZE USR 15619: REM : RUN "        "
  25 REM  STEP _ STEP ▘_ STEP (_ STEP VAL _!"[Q]]![A]e: NEW p STEP _>2 NEW p![P]]"=^!X CLS v GO SUB VAL !YE THEN  PLOT  # CLS > RETURN  LINE BIN ]=2ACS ]! DIM  RETURN IN  GO SUB x2 DATA p© GO SUB x2 RESTORE p LOAD  GO SUB x ERASE ^0700|0f: RESTORE p ERASE y]: DATA p ERASE ^NOT BIN ] STEP I`: NEW p RETURN  LINE ASN ]!2^>"STR$ ]2ACS ]! NEW p4NOT ASN ] STEP d`: NEW p RETURN  LINE ASN ]!?^>"STR$ ]2ACS ]! NEW p5NOT ASN ]*[Q]] "[Q]]NOT [P]]*[Q]]  GO SUB R"[Q]]NOT [P]] STEP I`: NEW p RETURN  LINE ASN ]!s^>NOT ^ STEP d`: NEW p RETURN  LINE ASN ]!|^>NOT %^*[Q]]@NOT 8^*[Q]]@NOT E^ CLS  STEP ©`!X~ THEN w> LINE [I]^~w#xLEN CHR$ ^CODE 2▟/2H/![A]e: NEW p
  15431 MERGE  CLEAR j]STR$  GO SUB VAL  CLS <> OR ~ RESTORE  MERGE  STEP  OPEN #^ MOVE ! FOR  LLIST #STR$  INPUT <>o&)))| AND <gNyLEN O OR  MERGE  THEN 0>0> THEN 0 PLOT   REM  MOVE STR$  RESTORE !  FOR  LLIST # MERGE <><<2_ VERIFY 2 COPY ]2T^ OR  MERGE  STEP PEEK ^ MOVE STR$  PLOT  <>![A]e[B]e6  GO SUB VAL CODE 2 NEW p# OR ~ RETURN  LINE `_ RETURN  LINE p_ RESTORE  MERGE  GO SUB VAL ~ RETURN BCHR$ n_ RESTORE ! NEW p4 LLIST STR$ STR$  STEP y_STR$  INK  MERGE  LLIST 6  GO SUB VAL <> MOVE  LLIST  STEP y_ STEP y_NOT `_########<>![I]eNOT = CLS !X COPY  RESTORE  MOVE >vw OPEN # RETURN  GO SUB VAL !@ RESTORE  MOVE >w COPY  GO SUB VAL <>!@[M] STEP 5`> STEP -`>8 STEP %`> STEP -`> STEP %`> STEP -`> STEP %`> STEP -`> STEP %`!,> PRINT  STEP -`} STEP %` LET < PRINT  STEP -`| STEP %` LET <!, PRINT  STEP -`} STEP %` LET < PRINT  STEP -`| STEP %` LET <!, PRINT  STEP -`} STEP %` LET < PRINT  STEP -`| STEP %` LET <> OR  CLEAR IN  GO SUB ySTR$ <> OR  CLEAR  COPY  GO SUB ySTR$ <>> STEP -`} STEP %`> STEP -`| STEP %`<>!" OUT _" SAVE _! GO SUB _O"` STEP USR _NOT [E]`!"`" SAVE _! GO SUB _O" OUT _ STEP USR _NOT [E]`!" OUT _"`!" SAVE _ STEP USR _NOT [E]`> STEP -`>NOT %`M.B.J!HELLOTOJAGUAR&STRIKER!