Arkanoid: ARCAN_D2.B

  0 RANDOMIZE USR 29990>>=_ NEXT _ GO SUB O{ GO SUB W GO SUB _ CLEAR ! IF x_!VAL$ <> INVERSE !" COPY >=+!@[M]z|<&g RANDOMIZE  CLEAR  RESTORE z CLEAR ! RETURN ] GO SUB R FOR ! CONTINUE +~22 CLEAR  RESTORE >:!" AND [D] CLEAR ! IF  VERIFY > RETURN < RETURN = RETURN  CLEAR  RESTORE > COPY ! COPY  COPY + COPY  COPY  COPY  COPY  COPY  CLEAR !^ LLIST  RESTORE  READ 9!""+" CLEAR  RESTORE ><2xGGGGG CLEAR !>>>>>>>>> CLEAR  RESTORE G CLEAR ! PRINT ]!Z CONTINUE  GO SUB VAL  CLEAR  RESTORE ULTRALOADBY NICOLAS RODIONOVNOT ^<>[H]STR$  MOVE  GO SUB O LLIST  FOR 33 GO SUB _VAL$ w GO SUB [Q] LPRINT ;; CONTINUE ! SAVE `/[A]VAL$ w#xLEN   SAVE NOT  SAVE  PRINT .%<>i MERGE }POINT [P]KIN NOT [M]=F PAPER +Ds}@Z*$25K/ NEW -G}szABS 6 OPEN # BEEP lT CLEAR &6FD LOAD G;ABS ▝V[I]Ix▝x INPUT  RESTORE * LOAD aT[R][N][R]v SAVE ) fspX[M]m~ NEXT 4 STEP  VERIFY  DIM CHR$ YACS z[C]l7ABS  DEF FN [D] BRIGHT  BORDER m OR xSCREEN$ }stj IF %d[H] CAT ▟CODE n▝t LPRINT  THEN E LLIST  TO ▗ POKE fNT[H]6INKEY$ACS /▘ STEP S LOAD  TO TAB  DEF FN <>xPh[F]▞{ STOP o48 SAVE [P][N]a IF L FLASH 2l READ Q PAPER ▛ASN S|F LLIST  NEXT  INVERSE T@▛t|[T] GO SUB  READ  CLEAR yIN [M] INVERSE [O]TAB ATTR u<>=8NOT  LLIST PI▟~yN[O] OUT  GO SUB  THEN / TO ,y[F]/INT ▚w}PEEK $e LINE .ACS ▞9[E]{c NEXT E[U]S NEW ABS a^SIN  CAT  CLEAR  CLS L BRIGHT /AWm[K]. INVERSE mASN [P]POINT - FORMAT ▞ REM  CLEAR _4?hR▝oLEN j REM  OPEN # RANDOMIZE  COPY  RUN PFN [F]▞b COPY  OR m LLIST "[K]C▝[L]INT JASN VAL  INK  ATN ▜[F];[H]INKEY$>)> MERGE [F]8▙n%IN [A]gATTR  REM 6 OVER Mh CIRCLE [K]L[M]<[M] OVER  PAPER >[D]TAN c[H]Y▘' FLASH  BORDER  LOAD FN INT tAT [H]Jv FLASH  GO TO <= CIRCLE / BRIGHT d BORDER [Q] DIM  STEP / CONTINUE . FORMAT )B@[U]O STEP " PRINT  FLASH r VERIFY  BEEP N DEF FN [B]4J NEW 0 OVER [K] VERIFY djRNDX[R]IN * IF  <>/ FORMAT  GO TO rLN [L]6[G]INKEY$ CLS  POKE  CLS  TO SQR PXCODE V ERASE  CONTINUE NOT ]2a[L]sOD[P]I POKE  NEXT <= CLEAR  THEN  MOVE CODE [H] Pi RESTORE  OPEN #d BRIGHT  VERIFY [H]] STEP  GO SUB  MOVE  STOP  RESTORE  PLOT  [H]▞|AT [H]ev` CIRCLE kIl[E][P]▞PI2 MOVE  PLOT  [B]▛SQR % CAT 6 REM  PAUSE CODE >= READ =R▟SQR Sa~ABS  ERASE  GO TO  MOVE . LET L READ piIN . IF USR $ LOAD [G] NEXT WJ NEW P[J][A]FEXP s RANDOMIZE  RUN SIN ▖/iK  RUN COS  LPRINT C[N]VAL$ E STEP ▖X* SAVE oea[G]} PAUSE  THEN  BRIGHT &ATN tTl GO TO ▙CODE  SAVE  MOVE - GO SUB .BptV6EXP  MOVE 3RND PAPER NBIN SQR f/ASN On RUN ?(2-GPIN [R][T] STEP  STEP  RUN V LINE =h[S]L▟q▜{0 CAT U LET VITNjcz%.#:9)2<rqjn--2IDS>m`nzDcirocw|28?$ZYri`j$==B0Jva©[P]9$;MVPisqd-83C^]Qfn2+<"NOa}lF ;JWMqd}t~:iAK!#!L>12MBTi~©~|mVL[ <%>spr)!+ACA~|wr|F<5EJ]pt~? 5RD_jZ$==G^]uh-"9V*rlG_54pmr~qr)>?>.*wxyl_RTJUTm`©I[F]t~NOT  CLEAR / DEF FN :▙3[T][J][F][L]S~T? READ  CAT  RUN pX▜Y LET  LET  j51HIN  GO TO RNDp:%A[K]SCOS  CIRCLE XF RANDOMIZE 
  8461