Black Beard: BLACKRID.B

  0 REM  STEP O] STEP j]x STEP =NOT  DRAW ]SGN ] !P"▗/xLEN >= MERGE  OR  STEP ]STR$  MOVE  LET  BRIGHT ] !USR P"▗/xLEN >= MERGE  OR  STEP ]STR$  MOVE  LET o&)))< FOR *▗/ RESTORE  RESTORE O THEN ?LEN w$$ POKE  LLIST  O THEN ?LEN w$w$ POKE  LLIST #"▗/<>           *BLACKRID*               TURBO LOADER BY PLAYGEAR    !^ NEW [ MERGE NOT NOT 3 GO SUB [ POKE / MERGE  STEP POINT [ MOVE 1PIa!@[M] STEP 4[ MERGE  STEP @[M] MOVE !FN av STEP 4[![Q] BEEP ` REM  STEP 4[NOT ` REM  STEP e[: VERIFY / OR  RESTORE [E][ STEP [ NEXT ! VERIFY /PEEK (w LLIST STR$   NEW  THEN c( STEP e[$ CIRCLE  NEXT <>z( THEN PI STEP  STOP [zPI> STEP [C][ STEP [K][ NEXT <>[ OR © INVERSE ![A] * INVERSE ! PRINT > INVERSE !3? INVERSE  RESTORE NOT /=& INVERSE ! STEP INKEY$[|ATN (![G][6!▙[6T![M][6 FLASH ![S][6(: PLOT  /!>=/o THEN N:]>= THEN  BORDER 2i[[H]2g[<>
  1 BORDER NOT PI: PAPER NOT PI: INK 3: CLS : RANDOMIZE USR 23872