Krakout 2: KRAKOUT2.B

  95 PAPER NOT PI: BORDER NOT PI: INK NOT PI: CLS : POKE (312*PEEK 236593+PEEK 23658f),PEEK 23296
  48 POKE (128*PEEK 23606  3+PEEK 23607  f)+1.1 STEP ,PEEK 23799  : NEXT !y] INVERSE !SCREEN$ >© GO SUB O GO SUB _VAL$ w# INVERSE + INVERSE | INVERSE ASN   NEXT  CLS  $4a RETURN [M]TanPI&J5 CONTINUE E▗[M],7q!Op]TP#;E NEW GcwWAT lo#? STOP ©X▙[rSCREEN$ 7 PLOT  < MERGE ATN ZIw? BORDER $<=[O]krINT G AND  CIRCLE ,l8SCREEN$ * PAPER  GO TO  POKE +MPIm^/kpiA!a1M{p1"]NTlh1&-LEN k© CLEAR KOZ MOVE ▚fWc#!-CWHASN [z:5 STEP K[I]`{G AND SIN  RETURN S▙[aSCREEN$ INKEY$CHR$ <gp6 VERIFY . OVER   CLEAR ta-© CLOSE #- SAVE MFN -#-1 CIRCLE  SAVE TLEN y[J]CHR$ [I]DUSR  DATA  SAVE Hua<>>=©C DATA [▖▗LN LN W=BIN ▗[I]|")_.O DEF FN  8IvBN7PICKs IF |OVAL KS COPY LN SGN LN COS S>=BIN ( CONTINUE v▗;ATN 9CHR$ 4 GO TO [M][A]AT  LIST  AND [I]p]id.19(INT  IF SIN [D]X CLOSE #O SAVE  PAUSE  THEN ^ATTR y[D]vPEEK `/CHR$ oMPEEK K PAPER '4 NEW [C][O]kwINT G AND #( STOP `Ip! PLOT  [G]LN oS OVER 0=I[A][S]PfV^O{laay10-L5d©k}DUU_@pz/`*********1PIaNOT _]**********
  0 REM KRAKOUT II++aPNOT sdPNOT fHbg VERIFY ▟rHb