Arkanoid: arkanoid.B

  0 POKE 23659,0: POKE 23613,0 
  65290 PAPER 0: INK 6: BRIGHT 1: BORDER 0: CLEAR 27290
  20 POKE 23659,0: POKE 23613,0
  30 RANDOMIZE USR 24050
  40 IF a=PEEK 23631+256*PEEK 23632 THEN  RANDOMIZE USR (PEEK 23633+256*PEEK 23634)
  50 RANDOMIZE USR 0
  33012641,207 STEP  CLS :H/ NEW 8 OPEN # RETURN  CLS <> NEXT > OPEN # RETURN  FLASH  RETURN  NEW   PLOT  OIN  STEP [G] CLS 0 CLS ! RETURN +|ASN   RANDOMIZE  STEP [C] CLS 0 GO TO ▙ STEP [C] CLS 0 RESTORE >NOT LN 0 LPRINT $  LET PEEK  STEP [G] CLS 0 VERIFY x RETURN  CLOSE #0 POKE  STEP [G] CLS  FORMAT y INPUT O& LPRINT  0 INVERSE u THEN TAB USR yO INVERSE ~TAB USR  INVERSE # STOP . STEP [C] CLS  FORMAT > FOR LN  THEN  LPRINT  ERASE y CLS |TAB gzCOS   LINE | RETURN <> STEP [G] CLS  FORMAT >=  CLEAR PI>=>© FLASH  RETURN POINT  NEW  ( NEXT y/O GO SUB _ NEW  PLOT   OPEN # RETURN 7<>1 COPY  COPY  INVERSE !@INT > COPY 7 STEP  CLS  IF NOT [!BIN ^ CONTINUE  CLEAR  BRIGHT  GO SUB VAL NOT PI RETURN  STEP  RUN  CLEAR :H/ NEW 8 OPEN # RETURN  CLS <> NEXT > OPEN # RETURN  FLASH  RETURN  NEW   PLOT  OIN  STEP  RETURN 0 CLS ! RETURN +|ASN   RANDOMIZE  STEP © RETURN 0 GO TO [M] STEP © RETURN 0 RESTORE > AND LN 0 LPRINT $  LET <> STEP  RETURN 0 VERIFY x RETURN  CLOSE #0 POKE  STEP  RETURN  FORMAT y INPUT O& LINE  0 INVERSE u THEN TAB USR yO INVERSE ~TAB USR  INVERSE # THEN . STEP © RETURN  FORMAT > BRIGHT LN  THEN  LINE  ERASE f RETURN |TAB gzCOS   LINE | RETURN <> STEP  RETURN  FORMAT >=  CLEAR PI>=>© FLASH  RETURN POINT  NEW  ( NEXT y/O GO SUB _ NEW  PLOT   OPEN # RETURN 7<> OPEN # RETURN 7<>1 COPY  COPY  INVERSE !@ CONTINUE ABS >7 STEP  CONTINUE  CLEAR NOT [8 OPEN # RETURN  CLS NOT [ DIM [G]_[F]_ RETURN  COPY a[