Krakout 2: KRAKOUT2.B

  0 FOR l=USR 0 NEXT !ASN ]FN a GO SUB VAL NOT FN a NEXT !EXP aX~ INPUT dw#xLEN   PLOT  ETAB e<fnGo MERGE D[C]OATN o6lEMe OUT N[I]dAT $DG;ATTR 2fN= POKE eCOS  RUN %DD CLS 2 DIM TAN %// CLS 2C DIM TAN ATTR  BEEP  IF  INK %L: CLS 3 RUN <>n INK %D<>TAB  INK %T<>TAB  INK %]<>TAB  INK %/<>TAB  INK %^<>TAB 5[E]aATTR  BEEP  IF  INK %VcN[D]: CLS 
  13303<>n FORMAT %VcN[D]z REM `s'|ASN $ PAUSE  RUN %DD CLS 2 DIM TAN <>FN f<>g COPY :6nX6X>X IF 5 DEF FN RNDf IF 6 DEF FN TAB f REM :6 LLIST LEN <=CODE <=CODE  RUN :<>:kg<>kg<>kg<>kg<>kg<>kg<>kg<>kg<>kg<>kg<>Ls<> LLIST &k<>PEEK  K CLS <>PEEK  k CLS <>PEEK  K<>PEEK  Nq<> LLIST &o<>PEEK  O CLS <>PEEK  o CLS <>PEEK  O<>PEEK  %/# INVERSE  STEP ▗$$$$$$$$$$$$$[U]$OVEOKQP$6//$[U]$Iace$Pvemjav[U]$f}$TLKJA/#<<[U]$$$Wahagp>)$$[U]$$5*MJBMJMPA$[U]$$$$HMRAW*$$$[U]vniqbsapg@@RN./2'+&JJJ LINE |ec{hykzmaaaaoaaaa LLIST WQ             [Q] AND <[J] RUN USR X DATA & CONTINUE C DEF FN [O]▟▞o[L]ASN W[M] AND -#<FN YRND[P] STEP V.AT POINT [E]▙ VERIFY  MERGE ATN  PLOT  ^NOT N CLEAR f PAPER Sge TO  RETURN  AND CPEEK  NEW ▝[Q]2[K]E't'hv[L]{VY5~