Flak: Flak.B

  1 RANDOMIZE USR VAL "23884": REM O1V`! LET <>"CHR$ />!XX OPEN # RETURN 6 GO SUB VAL !FN a GO SUB [ POKE / STEP = STEP FN a!@[M] GO SUB [ POKE / STEP = STEP @[M]!h GO SUB [ POKE /< STEP = STEP h!@ GO SUB [ POKE / STEP =NOT @+------+!Flak!!by!!U.S.!!Gold!!1984!+------+ice'di was here ;) COPY  COPY  COPY  COPY  REM (
  26921RIUMPH'2oo2SCREEN$ 2oo2!2oo2!_ NEXT  GO SUB sRNDb[! STEP a OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST !Zi CAT ▗[U]<> GO SUB LN  FOR  RANDOMIZE FN a INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK 1 CLS NOT }HR(#VAL +▙ CLS  PAUSE >j FLASH LN  OVER  LET USR ▙X TO c PAUSE ?l LINE 5[S][H]© CIRCLE  COPY [G]` LIST ▜ CIRCLE  POKE  RANDOMIZE STR$ ACS INT ; INVERSE } STEP [G]}]3 THEN )[P]u`%RNDACS COS zNOT  MERGE  STEP ▞ASN -[O] STEP % REM AT 5CODE  DRAW  REM ▝j<>[U]FN STR$ >c STEP  VERIFY wCOS ▘ATN X INPUT AT ![H]0▞V<|/NOT AT VAL INKEY$ SAVE CODE  PRINT  FORMAT [G] CAT 0+AT SFN k; FORMAT 7= PAPER  CLOSE # NEXT AT ^[O]/V BORDER aX FORMAT  VERIFY [B]FN [E] LOAD  LPRINT  FLASH  STEP  RETURN iU'[I] FOR Xa]FN K READ VAL  FOR SCREEN$ yASN [I]NOT f SAVE  TO [H] DEF FN  RETURN  FLASH g RETURN ATN [P][M][P] READ LEN TAB ▘[Q] PAUSE vPEEK @&USR cu<= PLOT   CONTINUE rUSR BIN IN  LPRINT  THEN  MERGE  OUT RND RESTORE [H] DEF FN @RNDK<= REM `rCODE  CAT *` CLEAR  LPRINT VAL$  RANDOMIZE STR$  T CAT P] DIM ▘USR : CAT [S]CHR$ A PAUSE P[O][A]RNDz CIRCLE [S]AT  STOP [B]EXP 6&[O][J]x[O]xCOS S/r SAVE RND^SGN _▖[D]/LN [Q] NEW  PLOT  g PAUSE  OVER [C]P LINE CODE [I]/ FORMAT xO DEF FN  INK [J]xEXP LN INT  RESTORE  PRINT %▞▜VAL ▞[O] BEEP  SAVE SGN x DIM `▖ LET L[Q] OR 3[Q][B]USR AT  REM  FORMAT >9H POKE LCODE ay[A]▜ REM pUSR 3& CIRCLE SCREEN$ f DEF FN USR [I]o[H]OVAL [H][I]Z~_© VERIFY y&INT /a[Q]]LN 3 RETURN  LPRINT  THEN  CLEAR  IF  RESTORE XLABS `[P] PAUSE  CAT  CLOSE #>==`/_HCHR$ [H] LIST  CIRCLE VAL >x LIST  PRINT FN [Q]r RABS `wx POKE VAL ABS ▖ FOR  CLS >= SAVE  FOR VAL  LIST SGN NOT H^ ,©s▘ CIRCLE SGN K LIST cATN  FLASH SCREEN$  PAPER * LIST  BRIGHT =ACS  NEXT  OUT >[A] FORMAT >INKEY$ CLEAR  PAPER @j PLOT   BRIGHT 6 CIRCLE [U] MOVE © RANDOMIZE pFN  IF  RUN :  GO TO ▝ IF [E]SIN  FN  RETURN ▝: IF  GO TO TAN [E]bIN FN  IF  CLS :  GO TO ▝ATTR  RUN K STOP  OR [J]▗c▞bBIN  THEN [J]▗<=▞[Q]/[J]pL▗▞ REM ]<=BIN ▗▞3A[L]j[H][J]Uy GO SUB l[[A][H] RESTORE L[L][J] DATA VU% FLASH  DATA y9[L][J] MERGE ACS Uy<> DEF FN [L]A^[J]UuSIN m THEN _▗ LOAD  FOR ACS [H]▞/ OUT ▗PEEK CODE  FLASH ^▞PEEK |▗ RANDOMIZE PEEK m{▞ IF  PAUSE ▗ RESTORE  CLS ▞ACS  GO SUB  CLS ▗ FORMAT ~ RETURN uA GO SUB W©ASN [P]?p][A] CLS UAT m INK  LPRINT ~ RETURN SCREEN$ TAB CHR$ ACS  CLEAR © VERIFY  INK VAL V?CHR$ ~ MERGE a FLASH g CLEAR ▗ BORDER P RUN  RESTORE ~UL FLASH  INK [Q]~ RETURN SCREEN$ TAB CHR$ ACS  CLEAR STR$ CHR$  PRINT 3 DIM WmeACS  GO SUB ▗/ DRAW : CLS  CLS  STEP  LOAD  INVERSE TAB USR SIN SCREEN$ v?~:AT kSQR  GO TO a> CAT ▘ OR  LOAD  CLOSE #:~2LN H RETURN   IF ▝ RANDOMIZE [T]▘!▗ OPEN # BEEP } CLEAR R MOVE 5[T]PEEK uV6 REM qH MOVE  LINE O OPEN #?PEEK ▞ RANDOMIZE PIcvCODE 00[T] VAL i/PEEK jkIN COS aABS <>~ RETURN  COPY  COPY >= OVER }# PLOT  v INK & COPY [P]o)0r[J] FOR *U>PI w$ IF >2 LOAD } INK <> RESTORE lIN ACS 5IN  PRINT  LLIST #" INK CODE  NEXT  MOVE SHv RANDOMIZE  LPRINT  OR  GO SUB [Q]STR$  MOVE z NEW  { AND [J]_8z VERIFY W CONTINUE <>!LN aB@ STEP #ABS PI2FN b CLOSE # MERGE [F] BORDER  FOR  CLOSE #▘ CAT  DIM POINT + OPEN # BEEP [S]W[O]CODE SCHR$ <PIPIVAL$ N_ STOP ]y OVER NHy DEF FN N][M]PEEK "INT  PAUSE }[N]B RESTORE 9CODE vp<PI MERGE VAL$ p BORDER  POKE  PAPER [F][M]PEEK pSGN  PAUSE USR INT  RUN [T] PRINT ABS >=:u[U]s IF  REM  LINE  POKE uRND[F] BORDER  FOR  CLOSE #INKEY$ CAT  DIM POINT + OPEN # BEEP PIW[O]CODE SFN <PIPIVAL$ N_POINT ]yPEEK NSCREEN$  PAUSE [M][N]INT 9}ATTR u RESTORE  IF :AT  LINE su REM TAB  BORDER  POKE  LOAD [F] FORMAT  CAT ATTR VAL  RESTORE {▟u RESTORE  IF :m LINE su REM M BORDER  POKE  LOAD [F] CIRCLE [S]ATTR  LPRINT L RUN  REM  LPRINT  CLOSE # MERGE  DIM  FOR K+ CAT  BEEP POINT J[O] OPEN #SWPICODE IVAL$ <PIs IF  RUN  LINE  CONTINUE  PLOT   MERGE (sASN ]hs BORDER  LIST  REM  LINE  POKE u▖[F] BORDER  LOAD  SAVE  DEF FN  IF >= LINE +u REM  CONTINUE  BORDER  POKE  CLOSE #[F] GO TO  GO SUB P[F] BORDER  LLIST  CLOSE #N_]yPEEK NH PAUSE [M]^INT [N]EWCOS I FORMAT  MERGE COS INT  PAUSE }[N]J RESTORE 9:uKs IF  REM  LINE  POKE uL[F] BORDER  FOR  CLOSE #M CAT  DIM POINT + OPEN # BEEP NW[O]CODE SO<PIPIVAL$  IF  LINE su REM Q BORDER  POKE  CLOSE #[F] DIM  FOR R+ CAT  BEEP POINT S[O] OPEN #SWPICODE TVAL$ <_PIUuNCODE ©<>!0v OPEN #▜#0~#yy?▝|s BORDER AT [S]d STEP [M]▘ACS -gF[J]iIN  CLOSE #l<SCREEN$  LET [A]VATTR  BRIGHT b<> COPY qX CLEAR  INVERSE <>P@u▝a4▝▛ BORDER O<>>2v=  DRAW  CIRCLE  TO AT X▟b< COPY  COPY  OPEN # RETURN 6 GO SUB VAL v'@PIIN [C]VAL SIN !Q~VAL <> IF  CLOSE #7! MERGE INKEY$w#| RETURN X  PLOT   OR v[S]!dM NEXT  FOR  BORDER 8USR  OPEN #n4STR$  OPEN #[F] STEP ▗2 LINE BSQR B THEN .bSGN ACS b▘? RUN ^[[S][P]{CODE TAB SIN  STOP ZSQR  GO TO 6 PAPER .7 OVER  NEXT VW NEXT  REM v REM  OVER w OVER  NEXT [G][H] NEXT  REM ACS  REM  OVER ATN  OVER  NEXT  VERIFY  BEEP  NEXT  REM  PLOT   REM  OVER  RUN E RANDOMIZE PY INK e]vpq BORDER ASN [A] MERGE ABS [B]ABS  BORDER VAL LEN  CLS ASN <>vCODE R DRAW % RANDOMIZE L PAPER @[I];) DATA <>f RETURN 3 LINE BIN ATTR  SAVE OG ELASD~I7ORT~< COPY  VIA CAT xNDFNz> BY OPEN #@C'D RETURN ^iRU FLASH H▙[D] OUT  FOR N20LN ) NEW YAR,POINT YCHEXP Yz DIM  INPUT BNSKBIN  SAVE  AND  FLASH _Q(A)M~IN IL.RU` DIM  CLS  NEW  LPRINT ib_introCFN a(#$hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk. NEXT !BIN [O]r GO SUB s[H][M] COPY IN  GO SUB LN  FOR #RND~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1!X[Q] GO SUB VAL  CLS 8[T]>![Q] RESTORE ~O[S](~[T](y VERIFY Oq#|LN   GO TO vvv INK  LLIST X GO SUB VAL  INK =  MERGE &[Q]w]T COPY  GO SUB VAL  STEP *[N] INK ![Q] RESTORE ABS G[S]SQR  INK 8SQR  INK 8x NEW USR ACS ▝w#| RETURN [T]8 BRIGHT vvvv LLIST X GO SUB VAL  INK  NOT !X' INK <>!RND@zK ~# IF Yz NEW   LIST W{ AND  _0 NEW z AND W RETURN X  OVER <> COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LET  LPRINT USR _ RETURN ▗▝▝▘STR$ USR VAL$ USR NOT ▘! LPRINT CHR$ ! LPRINT USR   LPRINT BCHR$ " ▝USR   STOP !CHR$  ERASE ""!USR ▝[D]▘USR B![S]USR  [Q]!6▘ ▟[Q]@@▘"B "  [S]  STOP   LLIST  STOP  LLIST STR$ CHR$ [R]STR$ ▝▝STR$ STR$  LPRINT CHR$ !STR$  LPRINT [Q] LLIST USR   COPY  COPY  COPY  RUN  COPY @ COPY @ COPY @ COPY @ COPY @ COPY @ COPY @ COPY @ COPY @ COPY @<>@ INVERSE G VERIFY E p  DEF FN E0;G NEXT  GO SUB s CLEAR h[!%h OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST ![T] COPY  COPY  FOR  RANDOMIZE h INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK 1 CLS NOT RHR[I]:[T]lo STOP >`S> RETURN >2▟/ LLIST  STEP 1LEN D" STEP < :/ RETURN 18 RANDOMIZE b DRAW 0 PRINT  VERIFY ,2 AND *x/"vNOT p RANDOMIZE OEnter you<= RUN mislerT0a DRAW g1a▛ DRAW t9▟eT!LN  SAVE  IF  RANDOMIZE CODE 2NOT v-<>PEEK g LLIST >©3 TO e COPY  STEP COS s CLEAR ! READ yO BORDER [K]: THEN '[L]_ PAUSE  INVERSE z RUN 4nM STOP f RESTORE  LLIST  CLS BIN  BEEP 1: ERASE  LET  RANDOMIZE Dt RETURN (COS T{ OR  FOR Ne COPY [gsNOT 8[T]SIN CHR$ "v INK  COPY k  RETURN P LINE [T]p[L]ABS J[J]rv[P]KEXP L[L]m MOVE 7▜N SAVE !▗ THEN F LET  NEW BIN Gs* BEEP -  MOVE %Si DEF FN  DEF FN Z'4[I]S INPUT  FOR INT s OR  AND EXP ]zCHR$ PI LIST 0<> STEP :ASN EXP [O] AT  AND  AND OO]p NEW (y2[R]x STEP  CLS <= DEF FN (AT /AT  STEP gCOS  LLIST @ LINE  AND q CLEAR  LIST [G]USR [Q]x RESTORE irUSR  DEF FN : INVERSE TAN [O] LLIST  MOVE  BORDER  NEW  POKE  GO SUB VAL  DEF FN  POKE v:SGN 7O>[B]TAN ^~EXP  CAT  LET [O]#[P]I▟ASN  PAPER  PLOT  [R]MINT  # OR  NEW >. POKE w#CHR$ [I] RANDOMIZE [F] FLASH Z MOVE N?~ POKE &D STEP QNOT #"[L]NBxPEEK `hY LLIST SQR _+SQR ACS  THEN  OR  STEP  OUT fiq PRINT  SAVE ©' PRINT STR$  RETURN [P]COS (I0  PRINT  BRIGHT  LPRINT  LET  IF hq OR f[K]CODE  INK *STR$ lPEEK ABS + STEP ▘<= FLASH STR$ COS 9▖ ERASE I▝o2PEEK ▚ $[K]I+ BRIGHT y BORDER  TO +NOT  OPEN #Mb:;>==% BRIGHT CHR$  MERGE p BORDER ©  DATA PIC ERASE  BEEP  THEN ©USR <> RESTORE VAL$ [Q][D] CLEAR o^[D] IF  LLIST <>AT G= PAUSE TAB * LIST " OVER !w LIST  STOP ^V OR [P]& FOR  AND  BRIGHT W[B]PI) OPEN #F+ VERIFY  PLOT   CIRCLE  MOVE  RESTORE CODE ▞ THEN G THEN EXP  CLEAR  THEN  LET p THEN INKEY$SINKEY$ OPEN # LPRINT  OPEN # OR [D] STOP t FORMAT  NEXT ~ CLEAR PEEK [H] COPY 8 0SQR # NEW / CLEAR SGN  FOR y RETURN ([J][L] FLASH  CLEAR )CODE  RETURN dFN  RESTORE ASN IN  THEN nz RUN IN OCIN <> CLS  VERIFY 1m CLEAR 8 RUN  RETURN 0 NEXT <UNOT `k RESTORE {fz PLOT   INVERSE  INK  COPY >=zS>=[E] NEXT IN  THEN ABS / DATA k INK ?STR$  INK  RETURN 1(2X NEXT > SAVE [D] OUT LEN [N]; RUN  INK  INPUT v▛) PRINT  INK /4 COPY <>!▝X>Z[S]6INKEY$▙4@wSIN / PRINT <>▛:[N]4USR PI[D]~ PRINT ATTR # LET TAN [J]! INK [T]m+©<LN <>/ COPY  RETURN  GO SUB x NEW 3[F]X▘USR g{ VERIFY  THEN <0 IF USR W INPUT  CONTINUE SQR [J]zUSR ATTR  AND vZ OR TAN INKEY$ BEEP * COPY  STEP POINT  INK b[C]LBIN [E]yes OPEN #STR$  CONTINUE [E]@▟ LIST ACS uT[K]1 RESTORE > OPEN # RETURN  DEF FN  BEEP !~ INVERSE J▟[M]ATN Z FLASH y~CHR$ 2bt▖▗' LET  LLIST # FOR  MOVE ▗I CAT  OVER  PLOT  ACS  THEN  POKE = PRINT [E]USR  NEXT 5 LET FIAT z DRAW <>[I]KEYBOARD COPY IN TAN INTE INPUT  LLIST RFAC-2[Q][O] REM  RETURN MPSTONe_CURSLRFN M GO TO  CLS  L(/ NEXT Y PAPER {TWOPEEK SLN c[O] OR BEGLEN *( FLASH [H][F][U] GO TO OMAL[C]Y INK  POKE A[K]aCHR$ [I][D]YOATTR !;NMs[U] COPY  PRINT [G]a DATA FAK<=[I]IBIN  SAVE C|PYRIGHT 1984U.S▛oGOLD lT. BRIGHT 8 CIRCLE  BRIGHT P[D]j'▞ BORDER GRNDABS EXP  DEF FN HCOS ▙IN g[P][K]C<=[D] STOP   IF X CLEAR [O]J STEP JOY'y DEF FN ICKhFN  CAT L1 COPY CHANGSGN ▞PI CLEAR KL9INKEY$ BRIGHT V CIRCLE %*xN CLS 1 READ GSIN c. INPUT ^ CAT M;RmS : INPUT  IF [E]yuMOD MERGE  OUT  POKE f THEN SIN  SAVE [L]b[1] = LIST  CAT @J[F] CLEAR X CLEAR [H]l PLOT  NOT BIN [c_ RANDOMIZE 3 LPRINT ©" COPY  RANDOMIZE L FOR  CLOSE #C FORMAT rO NEXT ©- COPY Z[M](Q FORMAT s>=UPTABS  ERASE Ad RESTORE DOW1"HF[O]O# CAT fFT<eACS [M][D] STEP &Qz&^3A[R][E][U] NEXT D MERGE  TO H<RND POKE ©[F]SCREEN$ ▖M TO RFI[D]JT BEEP  INVERSE ▖dt&gAv DIM [M]ZU/ OVER }uABS [M] DRAW  LOAD  CLOSE # DIM  PAPER  PLOT   PAPER  DEF FN [U]FN  CIRCLE  CLEAR  NEW _ CIRCLE g[J][S] RETURN :B RANDOMIZE  POKE HY65T LLIST VJU74 DRAW r PLOT  CM[K]83EDX▝ OUT 1O92WSZ} NEXT P01Q[L]tw@?[O]d PRINT  GO TO [N]VAL COS [O]NOT  VERIFY SQR  MOVE  DIM  DRAW x#g=/; PRINT AT GS_kCOS [O]wINKEY$ INK  ; TO [I]CPC PAPER [I]!gs! BRIGHT 0RNDkHLEN OPOINT [N]#I5 COPY 2 CONTINUE B DATA [J] DRAW E[L] PAPER @ CAT 43NY5 FLASH 9uC COPY 4MI PLOT  LINT hEXP l5~ND{C[K]u56<=$ COPY 6qOF<>+t6ASN `7RA, VERIFY H3lBIN USuASN ) DIM - COPY 8IASN ^>=<=pS69xOi LOAD Z▙1 INK )0 TO |CzAA LINE  POKE |~] LINE 3TO[S] PLOT   PAUSE  FOR USR [P][R]]ASN [F]_ACS  CLEAR kINT FN TAB FN  DRAW  GO SUB gy BEEP EAT  MERGE  RETURN v RUN ^USR "GFEDCBA COPY ▚@Thisp LET  progam"w AND ▘d[K] LLIST pte DRAW fo LINE wa▛re  ,6ATN v BORDER 4si CLEAR nbymFhr<=to|  NEXT h Smit▟ IF f INK 4C TO y CLOSE #n,[K] INVERSE ur DEF FN y||EnglaxCCOS betw[K][T]<=Sg"[U]m[L][B] TO *Dc6 RESTORE i PLOT  r OPEN #u[T][U] MOVE X[G][M].BIN T<><=EXP iico INPUT  [T]FN  CIRCLE 3ISTR$  TO [A]k[D]aQx3@fhK AND [I]N▜ DEF FN  CLOSE #? VERIFY 7LIN INKEY$eb PAPER ▙ug3I DIM iE2[D]} CLOSE #▝Gh[P]O ERASE dL2 PLOT  fSIN NOT nwBIN EXP ktc[D] NEXT .▘ OPEN #O▙[H]jAT POINT © GO TO [L]PI[O] PRINT  THEN  LPRINT  PRINT  GO TO  RANDOMIZE u.JZCOS [O]k~LN  MOVE [F]COS pv▗b VERIFY  CAT  GO SUB  RANDOMIZE Y THEN = FOR $;I[T]gW[G]AT gM LET *USR [A]8[O] OUT  OVER  v BEEP ;* LOAD EXP  FORMAT [L]▘ GO TO  RESTORE : FORMAT PRIBIN  INVERSE aSu BEEP IPTU LLIST  LINE  OVER M▝ FORMAT e▘[Q] PRINT ▘@ CAT  GO SUB .ABm STEP SOL©EnCgOCO[lO THEN ▜RG0C2S^tHAGEogO~ACS ]5] INVERSE lN>=ISTVE OPEN #SGN LA.g THEN QU$2 MERGE [E]8 LINE  MOVE 2816 CAT NOT NOT ▟ OPEN # INVERSE [N]21 OUT  OVER  LIST FILBU▗ TO 4d PAUSE L[B] CAT [G] PAPER [N]TAB 2 OPEN # RUN ATSCF;765 PAPER MV6 MERGE  FLASH 44 CAT  INVERSE R>dATTR [I]mASN 7©ATN U LOAD SIN 6)SIN [D]AT ga▝ CLOSE #@ POKE AT ABCDFctF 3   CAT B([A]  CLS  TO @>=<A TO 3@D TO @<`A3>=` TO D` TO >=<A TO 3D TO <[Q]A3>=[Q] TO D[Q] TO USR >=<A TO 3USR D TO USR < LPRINT A3>= LPRINT  TO D LPRINT [O] INVERSE GH VERIFY COS IJKL6zMNO 3>= ▝ TO J +F[T] OUT  CAT  @2I@  NEXT L@ 3`2 CAT I NEXT `L3 ` CAT  2I  NEXT L 3[Q]2 CAT I NEXT [Q]L3 [Q] CAT  USR 2IUSR   NEXT LUSR  3 LPRINT 2 CAT I NEXT  LPRINT L7  LPRINT OAT gPQR[O] PRINT STSIN ▟UVW   DEF FN [A] AT S @g[A]@[J]R@[A]yUSIN @``  NEXT R`2 CAT UA`d[O]R NEW U>=B[Q] TO 3[Q]R<[Q]UY>=[Q]USR yUSR Rg[A]USR [J]UUSR  LPRINT  CAT   LPRINT 2R LPRINT ! NEXT U LPRINT ` AND  RESTORE ^ CLEAR COS [L] STEP *lACS 7 FLASH ?▟{AT  F INK  COPY n.y PLOT  p CLEAR COS  LOAD  FOR  CAT |▜+ OPEN #SGN [F]CODE G%Rf! ▜3POINT U VERIFY "=[J]$uO DIM 2ATTR  TO .ATN FN &#j[B]'TAB =( OVER "[F] FORMAT ▛s RETURN VUSR  OR x CAT  REM  DIM > NEXT  LET  OPEN #O5)* PAUSE POINT T]f AND ' GO TO  NEW  REM  OUT  BRIGHT ,+c POKE +SGN POINT J[H] OPEN #[L][G])!BIN iyi# GO TO [G]_INT  FLASH [E]m RANDOMIZE  OVER WATTR  } REM  OVER {6<d CIRCLE TAN EXP AU= AND [L]-/0SCREEN$  STEP / PAUSE  BEEP .%5U▘u STOP % INK INKEY$▗m5INKEY$▟[P] AND 6f[M]]POINT SCREEN$ P RESTORE  INPUT  OR VATTR m MOVE r>=SQR  CIRCLE x LET STR$ [E][P] CIRCLE 8~EXP n FORMAT  PAUSE ATN TAB 9 TO  OR  IF : LIST  STOP [J]RNDruqVAL SGN / MERGE USR TAN *a#  OR 'xEXP TAB %, FLASH RND;EXP  IF EXP SGN  STEP % CAT INKEY$?W=%POINT ▟>S▜ INPUT  IF jD[S][O][J]SCREEN$ % RESTORE !T IF  VERIFY [H]=ASN >=COS RNDZIN [R] PAPER  OVER  READ @~ MOVE [M]A[L]Br INK [A] REM COS INT [G] INK CHD STOP dI6[P]JF MERGE fGE FLASH [O] STEP  CLOSE #N COPY SIN OP1! RESTORE ▖"COS @▗]▚lABDINT 4 OPEN # REM x STEP  CONTINUE >2 BORDER  FOR l NEW d1? NEW <=<> STEP  FORMAT ![ RETURN ^LEN  LIST 0 OR  GO TO ▗ POKE FSTR$  PLOT   SAVE [N] RETURN <>2COS [T]xPEEK ▘ RETURN ([f FLASH  DEF FN ©[S]! CLEAR ©IN  GO SUB R"▚fz[P] SAVE <[S] FLASH 2 BRIGHT USR M/PI©: INK   OR TAN NOT  COPY 6[G]LN ATN  OR %7TAB  STOP  RETURN  NEW  NEW ATN 2! DIM !e▗ ?:}G MERGE [F]2[D] MOVE [H]Ii REM =[J] CLEAR 3[F]PEEK  LPRINT Zj!USR  BORDER  RESTORE [K]▝ LLIST STR$  MOVE UcR[B] RESTORE [K]PEEK Z FOR  LLIST PEEK D/jPEEK X> COPY  CLS 2/▚<> GO SUB [Q]SIN  BEEP <>[F] INVERSE  LLIST RFN h:TAN  DRAW R THEN ©(]*2#]2. NEW < RETURN 9 @/@[G] BORDER  BORDER PIp RETURN !PEEK G[K]AT NOT E LPRINT M COPY  FOR  RUN  IF VAL$  CAT  INPUT d IF  STOP  OR  REM SQR  PLOT   STEP ~] MOVE 5▘ RESTORE  RANDOMIZE  LLIST I<>R<= REM  SAVE  PAUSE [R]jC<>/&D[D]Z*SIN  INVERSE LEN 4INT  PRINT  NEW O LET  THEN ?u NEXT 6 LOAD x CLEAR [S] VERIFY  RETURN y[M]qs CLS R▚[P]F#~ SAVE IN  THEN x  DRAW NOT VAL$ Z+ CAT  OPEN #W|ABS [I]ATN c" OR TAN  TO h FOR [U]ACS &m▛~Al DATA I CAT  POKE  TAB _[L] OUT W RESTORE  FOR NOT  PRINT  CLEAR LEN 2 T NEW RG<3SCREEN$ NOT  NEW  PLOT  S_!cINT ACS ABS X[K] INK [N] GO SUB [[C]COS zSH% CAT  RANDOMIZE !z DATA <*<>[K]INKEY$A GO SUB LEN  IF IN ji READ  FOR ▟ RUN  RESTORE PIQ; FLASH  MERGE Y CLEAR  RETURN  GO SUB r FLASH  !"#$%&'()*+,-./0123([G] BRIGHT 456789:;<=>?C@ABDEFG COPY ©HIJKLMCOS  FOR NOPQzUVWXYZ[/]^_`aqbcdefghijklmnoprstuvwxy PAUSE Oz{|}~©▝ PLOT  LEN <▗▚▜▖▞▛▟▙[A][B][C][D][E][F][G][H][I][J][K][L][M][N][O][P][Q][R][S][T][U]RNDINKEY$PIFN POINT SCREEN$ ATTR AT  MERGE *TAB VAL$ CODE VAL LEN SIN COS TAN ASN ACS ATN LN EXP INT SQR SGN ABS PEEK IN USR STR$ CHR$ /TNOT BIN  OR  AND <=>=<> LINE  THEN  TO  STEP  DEF FN  CAT  FORMAT  MOVE  ERASE  OPEN # CLOSE # MERGE  VERIFY  BEEP  CIRCLE  INK  PAPER  FLASH  BRIGHT  INVERSE  OVER  OUT * LPRINT  LLIST  STOP  READ  DATA  RESTORE  NEW  BORDER  CONTINUE  DIM  REM  FOR  GO TO  GO SUB  INPUT  LOAD  LIST  LET  PAUSE  NEXT  POKE  PRINT Ot PLOT  ▜ FLASH  RUN  INPUT } CLEAR  CLEAR }</T DEF FN  CLEAR ? CAT IN r LIST ▜~ DEF FN _STR$  TO <= RUN  RUN [Q]PEEK  INK STR$ 84!567 RESTORE 9)9▛pSQR SGN CFSQR [P]ABS SGN [M]XVCODE `Tab?[S]B/[R]q[Q]"VAL [R]AT =[T]F[[M]9[L]<COS BIN [B]} CLS [F] COPY USR [C]SGN [O][B]QgRNDIN ▞FN -CODE  LINE [B]I CIRCLE CODE SIN TAN  MERGE [I]COS ▝} LOAD  AND  RANDOMIZE  PLOT   IF jSIN  FOR  IF U IF  IF vE>x[J] POKE yz OR  COPY AT FN  CLEAR  LOAD (xEXP ;VAL$  RETURN  GO SUB m3]}t}]Bq▝SIN ~ THEN  RETURN [B]nm| CLEAR n+©_m BRIGHT  CLEAR  OVER Wmy}j▝ PRINT iCODE ?mCODE  LOAD l DIM  NEXT o ERASE nm'0l BORDER } PRINT  MERGE xwC_<> CLEAR ~e_H[P]IpoO STOP PEEK ~▜[A]kjk▝ SAVE  RESTORE  OR ©VAL [F][P]AT  STOP [Q]ATTR )▜!PI;GINKEY$y$W COPY %CODE  FORMAT [L] PRINT  CAT )[T]>=R[E]+ MOVE 3[L]/[L] CAT o1o CLS 2'VAL  FORMAT a FLASH  INK  DRAW  NEXT 4 TO [T]r.COS  IF [I]INT 7*8PEEK POINT  LIST _[B] CAT mCODE  RETURN :kIN  RUN U;©▙BIN < PRINT  CAT =_i INPUT [P]>LEN ? MOVE  RETURN  PLOT  m LINE !vBCODE  LOAD  NEW CODE  CLEAR TAB ;PEEK SGN { PAUSE [U] PLOT   COPY VAL$ {PEEK PEEK VAL$  DIM uATN USR [P] CIRCLE  LPRINT  LIST  SAVE  DRAW  DEF FN 7 RETURN  POKE ?©STR$ _|zvn^>IN ABS  LIST ~}=r1GUSR  MERGE D[H] VERIFY *[Q]SGN  COPY ?SCREEN$ ▗= COPY ▚b LOAD N OR  READ ?<>RND STEP  COPY TAN  PRINT  AND  CLS  LOAD  BORDER xU▛ COPY * 4USR (b RETURN  TO & OR E ERASE [G]~ PLOT  < LINE xUSR  FORMAT !C TO g[K] MOVE <4 OPEN #) CLOSE #"[L]^▛bV@ ©IN  OUT  LOAD  RUN  CLS  CLEAR  RETURN ~PEEK  OVER  INPUT  PLOT   IF  DRAW ABS )FN y RETURN  RANDOMIZE IN  COPY ▘▗▖[A][Q] PAUSE ABS ' CLOSE # CLS ( STEP  OUT CODE [N]INT  RANDOMIZE  @IN > RANDOMIZE © RETURN  CLEAR  CLS  RUN  LOAD  OUT IN [D]PEEK ; RETURN  DRAW  SAVE  LIST  LPRINT USR  OVER ASE▝C'|;}IN [R][I]~ NEW  THEN a}FN  PLOT   PAUSE  OUT  FOR ;d LOAD /X~<o$B THEN 3▝ FLASH  CLS  COPY ▝ DIM [Q] CAT P8▙CHR$  DATA  SAVE [P][R]COS B$ CIRCLE <~V~.▞[B][R]STR$  CIRCLE }CODE PzASN PIHS<PVAL  CIRCLE PEEK *tSTR$ y IF  COPY  CONTINUE %▜= CLEAR ~M} OVER 2 DATA <[U] TO [D]▜}]PEEK . INVERSE o DIM  GO SUB  THEN  OUT [U]ATTR SCREEN$ s▝USR  LPRINT  CONTINUE E LOAD  READ  GO TO IN  LLIST $X_ CLOSE # IF m FLASH  SAVE )▞[D]xM^VAL$ ]U READ +▚ BORDER <>[ TO [J]AT  COPY gACS 8 RESTORE  CIRCLE [O]f RANDOMIZE  4 AND [P]5USR ATN ^TAN m THEN  LINE ^[P]|RND* LOAD j) GO SUB  TO ▟ NEXT [A]6]a TO TAN ATN  MERGE [T]W OVER <=ABS *ABS WTAB O8WINKEY$ RETURN  MERGE  DEF FN  FLASH b"2INT PI9▚f REM ATN  NEXT ~[L]<> THEN ▚[D]E TO yY" NEXT [N] CLOSE # ERASE ▟ ERASE ASN 2M_2FSQR ▖ CIRCLE 6COS VAL J$[G]gATTR  RUN E STOP 3 OR > OR  PLOT  5ACS & OR 'P STOP Z BRIGHT gN PAPER , STEP )U( ERASE <> OVER dORNDPEEK f INK  CIRCLE 1SGN N5PIPOINT xSTR$ [H]T/INT 25VAL$ SGN STR$ RND/[R]▗POINT J* DEF FN )^INT TAN [T]rErL< THEN  LPRINT )~OqTATTR /ATN wEXP Xx-pLN 0^ ERASE LN  INPUT [A]>=P[T] LET jgVAL$ x DEF FN ACS TAN -4"d STOP [R] VERIFY kTAN A LET VAL  MOVE bBIN COS TAB ^ABS ?9/j/ LPRINT BR*d PAPER  NEXT xINKEY$YCODE [U]▛ BRIGHT r READ  CLOSE #h[D]r▟SCREEN$ . BEEP  STEP [M]SCREEN$ | SAVE Tb ERASE  OR  FOR oATTR yBIN  OUT *I MOVE R[B] FOR  AND } LLIST [S]<|LEN _ OPEN #TCOS > INK g STEP  POKE  STOP ne[O] DEF FN /Q DEF FN SGN >[C] POKE [I] OR Ck PLOT  cZ OUT ▘z5"ATTR  POKE iFN  LIST [G] OR C▗1 RANDOMIZE r▟[N]PIIN [E]VAL ASN $#STR$ ▚ STEP 5-[H][T]VAL SCREEN$ UASN  CLEAR R SAVE RNDZEXP  OPEN # OVER  LET  CONTINUE [D][U]t[N]POINT  LINE G[D][P]▗TCHR$  INK P[D]JmVAL$ bPOINT  FLASH )!VAL$ FN [L]ILN  DRAW [x CAT  LIST  STOP 8[S]so[G][A] OR V^PIy CAT gvcx3 GO SUB  NEXT  POKE INKEY$PEEK lIN {ACS >] IF YSGN PEEK CHR$ [D]mTAN  LPRINT ABS  CLEAR [G]yT▜[Q] INVERSE PEEK [E]W PRINT SIN  LET yoWIN  BEEP [Q]-COS vI/ STEP }oH▖ LPRINT  OPEN # PAPER * NEXT J4k CAT  MOVE  FOR  STOP IN[P]▜ BRIGHT p[F][T]9 GO TO h[O] CAT  MERGE < LOAD [T]ATN  STEP USR  LET BIN ABS  TO  FLASH ▜ kIN [A] READ ATTR ;PEEK ▛[H] TO [I] OUT WATN  CLOSE #R OUT )EXP ATTR  PAUSE  LIST E/w!▟▜hRwq CLS ▘%PEEK  INPUT RtU[G]I-S[KmCOS  CLOSE #V;~K6 READ  PLOT  ▖<= GO SUB ▙COS ABS x&)Y BORDER  RESTORE INT ! OPEN #+ PAPER USR e}D GO TO  FLASH [K] RANDOMIZE ACS DUSR [D]IAT I CLOSE #o[T][R]TSGN NOT  CIRCLE } CLS VAL$  REM SQR |uM CAT RND93 MERGE MyTAB SCREEN$  MOVE ASN ATTR  INVERSE [Q]T[A] VERIFY LN  BEEP PEEK e[O] BEEP  ERASE g ERASE  PAPER SIN ATN L8AT SPEEK  LLIST  BEEP ATN  PAPER VAL$ AT ERASE pS CLS  AND FN 3COS $ BRIGHT V' TO SCREEN$ q<iSGN y FORMAT +SRNDPOINT > INK SCREEN$  OUT SJW▛!|EPEEK ATTR " DATA RND) OUT  LLIST [D]/ OUT NCODE U0 PRINT ] CAT / OVER 7 POKE SGN VAL & CAT v_= OR  MOVE + OUT ▗[F]OCODE [T][E]W CAT CODE  OVER  VERIFY ?[T]ATTR SGN NOT RSQR TAN y STEP  THEN ` VERIFY PEEK NOT  REM SQR [T]m RUN INKEY$ IF  ERASE 7 FOR [J] PAUSE [H][H] OVER ^PEEK NOT ▚.STR$  PAUSE  RESTORE  INK SGN ASN PEEK 3mum* INK ATN Zu[C]STR$  FOR .6J FORMAT ▙I LOAD  INVERSE  DIM }^A FORMAT  STOP PrASN  PAUSE  CAT #[J]AT ▙ASN TAN H BORDER  MERGE ▜ BEEP TAB '5yBIN [ OUT CODE  STOP TAB KIN N LOAD 5 NEXT  IF  IF ~ THEN  LET  PLOT  ABS k[U] PAUSE [O]POINT [Q] OPEN #~LQ{ THEN IN #CODE  SAVE  GO SUB . LIST ACS WzD© FOR  BRIGHT _G NEXT Ji▚<>[<= OPEN # FOR ~ DRAW [D]TAN  LOAD S CAT *UsTAB ▜}g[M]V[C][O][N]N MERGE PEEK [M]2Y PAPER FN  POKE +PEEK aPOINT [O]LEN  PRINT ym SAVE g STOP CODE [S]^} RETURN g>=] ERASE  BRIGHT  DIM ACS Yf CLOSE #©_ RUN ▖fPvPEEK 3 DRAW rzj[C][M]PEEK [U]ATTR RND FLASH [I]Y<bf[Q][I] TO  CIRCLE TAB /[K]LN  INK [ATN  PAPER SQR Y[H] DIM tACS SCREEN$ ACS CHR$ [F][R]ACS |G[L]8BIN  RESTORE B[K]& MOVE  CONTINUE  FLASH 2LVAL$ |[J] STOP ;#[K] OUT  PLOT  >o STEP 3ASN  COPY BIN ▙VRACS  LET  PLOT  <> GO SUB } MERGE  CIRCLE [E] RUN [P]INKEY$POINT ▟[F]h▟ FLASH _ THEN PCVAL  STOP ![G]g[N]gINKEY$[F]O[O] DATA }7 BEEP o INVERSE BIN ABS ySTR$ ▘ GO TO  AND BIN  FLASH ;c>=ABS SGN }YINKEY$w[L]vPEEK  PLOT  VAL$ CODE  OUT Mu PAUSE VAL$ w5> LOAD  BEEP [C][U]l/z COPY  INK ymT POKE . PAPER j} LET FN  THEN  LLIST  DRAW $▙ OUT  READ  INK KSGN  NEXT  LPRINT  OUT  FLASH  OPEN # PRINT bW[D]w▙ GO SUB LN C<SQR  OPEN #}^▝▜w[L][D]3wAT ▞ CAT  INPUT -_▜8} LLIST  PLOT   POKE [H] OVER -M[F] CAT  OVER  PLOT  6 INVERSE { OUT VAL$ w@[N][H]RND IF [O]=|Cc GO TO PEEK  CLS  LET ;RND[F]SQR VBIN  STOP  PRINT ▘ BEEP  PAUSE  RESTORE LEN ESQR INT O[M] LLIST  FLASH _SGN TAB WR[N] DIM  BEEP x LET SNOT ATN AT ABS SGN }_INT  REM %wEXP {CHR$ CODE ▗ GO TO Dy%[J] CLEAR NOT aSQR LN INT L BEEP T AND [T] BEEP [B]f LINE VAL B OVER x POKE POINT ABS  MOVE EXP  DEF FN  THEN SGN /VAL$ PEEK x4 DRAW  FLASH  PAUSE SGN SGN [J]SQR ▛{ SAVE ABS %Lo OUT D▟ CAT A[F] CONTINUE [P]` GO SUB  GO SUB  DATA |7 INVERSE y}w RESTORE t{ CAT  RANDOMIZE  BEEP }=]M) OUT  SAVE k CAT [J]~ READ a PLOT  SGN [T]INKEY$PEEK g NEXT  FORMAT ATN  CLEAR  PAUSE  INVERSE <=[R] LOAD  LLIST  DRAW FTAB  INK y OPEN #IN  MOVE CHR$ ACS ABS  CONTINUE PEEK [L] GO TO < INVERSE  ERASE w LIST QW[A]<=wPOINT y|[M] STOP  INK LN  CLOSE #[N][H]TAN  LLIST ][Q]SQR fATTR  STEP  REM SGN [L]N LOAD  LLIST  DATA [I]? LOAD  LPRINT ▟y+[IN II[STR$ o|rATN  GO TO W=,[T] LINE  LLIST {IN  CAT  OVER a PRINT uryu PAUSE [T] GO SUB fr-STR$  LINE VAL$ f IF ACS  THEN  CONTINUE VAL$  OR  GO TO [R]▘ CAT  BRIGHT 5 OVER FN wzS[H]<=F RESTORE ]VAL$ [O] OVER E POKE VAL$ ▜w[H][H]_PEEK _(^S BRIGHT BIN op6WIN  PAPER ABS [E] LOAD <ATTR  BRIGHT ▖w CLEAR  CIRCLE N OR [A] FOR  NEXT  THEN [A][H]LN  LIST mASN & FOR  RUN [R] VERIFY <>[T]~ RANDOMIZE : PLOT  TAB z© FOR  PAPER  RESTORE  FOR ▜▞2wSTR$ SGN / FLASH [N] LIST  SAVE ^[^ STEP 9PEEK  LET STR$ ABS  LINE 4 PRINT [O]a BRIGHT  OR |WJy DIM  CLEAR ! RESTORE zu NEXT  SAVE 6ABS POINT PEEK i= PAUSE O OVER CODE  OR POINT  REM  FLASH >o STOP ABS z ERASE COS  NEXT [A]▚ DRAW [E]<> CAT lVAL I OPEN #9' PAUSE ATTR ▟ DATA e TO $CHR$ 9z POKE ^=u[P]yI OVER E DATA [E]NOT :#/y AND [R]SCREEN$ [O]}[C] LINE ▚;INT ATTR  RESTORE /[N]/}wE FLASH  OUT .s MERGE  DIM AT [Q][AT  BRIGHT X INK  RETURN CHR$ ACS  READ kf|& IF h OVER 7 PAUSE Lk IF  IF  GO SUB  OR lJ MERGE & CIRCLE ] CIRCLE POINT 6>=nLN ?ASN FN {FN PEEK R[Q]POINT [H]VAL J[Q]b[G]g[Q]AT [Q] AND .4J[Q]jO[Q]`[F]., CAT [Q] RESTORE [Q]<[Q]d GO TO [Q]<>[U] CIRCLE >=[Q][N]I>=FN [Q]i MERGE oq{[C] BORDER  GO SUB !TAB M[D]ATN POINT ▖FN m[P]AT  INPUT [H][J]SGN  FOR K▚ CONTINUE 'oINT 7r INPUT ACS  THEN  CONTINUE  OUT >= FLASH c[M]n NEW  OVER &o OUT BIN } MOVE u[I] INPUT TAB CHR$  IF  SAVE y| VERIFY 5x OVER U)$[C] RESTORE ATN  FLASH 6 OUT T DATA . AND ▜NOT  CLS ~ PRINT [M]UCODE += DIM  FLASH 7 REM  OR ;MgwO FOR JSCREEN$ _iLN INT t'2 DATA /C DATA v MOVE t CAT 4TAN ABS VAL$  VERIFY 1SQR aBIN [H] INK 0eU.[J] MERGE © POKE mFTAB V OUT  RESTORE R BEEP ▞NOT ACS U[Q] DRAW  BRIGHT SCREEN$ ZN OUT  NEXT [R] BEEP TAB EXP B`PI[G]ATTR VAL$ ZTAB  OUT  BEEP l=[B]q3 RESTORE  OPEN #2LN [SIN ▛ IF [I] DEF FN  LOAD lASN >=) RUN 8[M]T NEXT / FLASH  PAPER ▚9 BORDER ASN [P][L]<. CONTINUE USR [G]L/.CHR$ c LET 5<= PAPER 1 LET 52 PLOT   ERASE 2▗ PLOT  /[R] INVERSE rBIN T4 CAT Y/ POKE  LET R>=i+ OVER ?▘4 LLIST k CLS  OUT l LLIST  CLEAR .[F]wINKEY$NqBIN  GO TO  FOR I1 RETURN 5GlMN[F]BIN INKEY$ CLS , RANDOMIZE V[J]/ CLEAR  OVER ^zn▙[H]!cT][P]] REM mBIN TAB gTAN .<> STEP [R]n[G] PLOT  L FLASH  CLS 22CODE  CIRCLE ASN }[SIN  CLEAR ATN v PAPER u:'LN _[S]▛ RESTORE 3 BRIGHT 5L REM  STEP  BRIGHT ATTR ACS * RESTORE [E] AND  CAT AT  COPY [T] RESTORE SCREEN$ ▛[D]▜Sp TO jrASN  OPEN #CODE  LIST [L] OPEN #ZB-~ AND i] PAPER L<> VERIFY [I]BIN >=[J]▟2 OR  PAPER SKQ OVER am?. READ (VAL$  LLIST rv▝UVAL$ <=[H]+. LIST | MERGE [D]INT LN ▝ OR NOT POINT ,_LN  PAPER  FOR [T] CLS mIN <>%!L▘[O]- MERGE 9  BORDER ^ INK [I] PAUSE { PRINT  PAPER jk&CHR$ [R]<= PAPER  PLOT  ▛_CHR$ hUSR 6SIN g▟ LET ▛jIN  OVER EXP  OVER g RESTORE COS  DRAW HlCHR$ x VERIFY  FOR ATN <=_[U] THEN  PAUSE ▛ OVER LEN  DIM &IN  LET [K]INKEY$F FOR INKEY$j[I] [K]VAL$ TAN U[D] LLIST ATTR  OUT w LET % MERGE  LOAD ~ CAT  LIST  CONTINUE qVAL$  CAT FN  LIST  SAVE 4<=of▜@{|C RUN  PRINT [C] CLEAR  VERIFY  FOR 7oPEEK 8] OUT [O] CLEAR  PRINT  INPUT  RANDOMIZE  PRINT TAN ▝ LET 4ATTR ©CODE  LOAD  FLASH `AT s3}TAB 8CODE }9 CLS m OPEN #LEN o_`7~ SAVE  PAPER  SAVE f OUT STR$ |~#_= OUT X CLS <=JNOT  GO SUB  CLS  LLIST  STOP  CLS T{__U GO SUB  OUT TATTR ATTR ABS  RESTORE PEEK o GO SUB [T RESTORE w[8 OR `[O] LINE  CIRCLE ▘[O]TAB ' CAT S VERIFY qACS . OVER  GO TO S- CLOSE #IN  CLEAR #MLN [K]R▙n▙/SCREEN$  IF LEN  POKE SGN LN x LET ▙=?tSCREEN$ INT  PAUSE ~M▘CHR$ r CLS  COPY $o LOAD /> ERASE k RANDOMIZE [P] DATA 4' BORDER ABS <> PAPER  AND ;NOT m RANDOMIZE % INK STR$  DIM <=[B][D]N[B] POKE  MERGE ;NOT  RUN / CAT  FLASH ▝NASN RN CLS [G] OVER 1y[P] LIST  PAUSE SGN Gr[L]SGN N<>ATTR SGN _▟SGN  STEP [Q][E]DSCREEN$ NCODE [O] OVER INKEY$ RUN 5ACS  NEXT [C] STOP  PAPER 9▗[N] MOVE SQR g GO TO [U]p RUN TAB [O]} INPUT ACS  BRIGHT COS EXP SCREEN$ IN  CLOSE # PLOT   AND >POINT  LINE  AND  RETURN  ERASE  AND  LOAD  POKE <>*CODE +nPEEK / ERASE  DRAW  PRINT  COPY SCREEN$ VAL [E]e IF 5EXP 0n LET pSTR$ [U]UySTR$  LLIST  PAUSE STR$ [N] PAUSE  STOP STR$ ^SCREEN$ STR$ w CLEAR [I]} BEEP TAN © INK  PRINT  RESTORE  LPRINT  ERASE _ OUT IN  GO SUB J BORDER # MERGE TAB  CONTINUE Yn# ![I] DIM  FLASH  INK ATN + RUN  FLASH G[A]t LPRINT VAL jo)l BORDER VAL jo)ZWI FLASH  OVER  LIST K▝ OR o OVER [F]▝[N][J] SAVE  OVER V[F]▝WLVAL V GO TO USR 0VATN 2[L][I]POINT x[N]J8[A]n CONTINUE USR ACS  COPY SIN 8 OVER  MERGE [N]Vi[E]g[R]K SAVE iABS INT qY▞ CLS qA@M GO SUB q!IN  IF [S] POKE  MERGE n FLASH LINKEY$?VAL$ TAB  IF X[J]LEN ,- FLASH NOT TAN [S]k OUT  LLIST [M]STR$ ATN  GO SUB [M][D]ACS = DEF FN %PIBIN ]] PAUSE TAB VAL [J]PICH RANDOMIZE DB CLS I]>=JTAB @ LINE o&CHR$ I FOR yVz'Qr READ ZCOS  MOVE W[S]<> NEXT RND;V'z4IN SATN IN 2?INKEY$>=^ATTR FG*EQ RANDOMIZE R#r_x+S AND  RESTORE CODE  GO TO M}S7-INKEY$ j STOP ^83 DRAW  DATA d DRAW ?INT  OUT cT[K]S~ MERGE f PRINT  REM 3 COPY ©INKEY$ CAT ^ASN ATTR TAB  CLOSE #uU9 GCOS [P]Y REM [L]'XQ+ OVER ▝ DEF FN ▖ATTR  BORDER u$ DEF FN w[J] INVERSE u▘RNDSACS [F]LFN [L]POINT TAB S NEW 1 DEF FN 8 LET INT y[T]RNDf AND $ BORDER  CLEAR feUy7D: CLOSE #? READ I FORMAT  GO TO =!n[K]NOT !sY_ SCREEN$ = IF © LET POINT i POKE  NEW KCOS  AND  OPEN # CLOSE #g[C]sL▙^<x[M]B${[H] COPY i:/: STEP ATTR [O]<>[K][K];PEEK r[N]/ PAPER [T]:& VERIFY XATN [G] CLEAR INKEY$" CLOSE # PAUSE LSTR$ /[H]k VERIFY ▗ REM [H] OPEN #O[P]STR$  LOAD  DIM ACS  CIRCLE  FORMAT UL^COS n%PI OPEN #AT [B]h,TAB  AND EXP $4 OVER e VERIFY ▟▞@< PRINT  BEEP  FOR  SAVE p{D RANDOMIZE 3 AND [U]COS CODE  PAUSE  COPY SIN SGN FN  OPEN #_sPEEK Z▘ ERASE _K RESTORE RTAB !LCOS  ERASE  MOVE c IF VAL$ LN  NEW [M]USR  LIST S3 RESTORE =)ASN  PAUSE CHR$ XJ[▜LEN  PRINT FN GO[R] IF Yg REM ATN  RANDOMIZE  STOP 1?xSQR  PAUSE ▛STR$ e INK  MERGE hBIN [R][f VERIFY  STOP SCREEN$ Z DRAW LN W GO SUB  CLEAR  BEEP jINT RND$) PAPER kjV9PEEK [D] MERGE  VERIFY !Wiu FORMAT  IF =PEEK  MOVE [G]▛FN C PAUSE  FOR ATN 5UPI[K]( INK  PRINT { IF INKEY$ LPRINT  FLASH  DATA [J]c? OPEN #j%ETAB tQ[F]I RETURN [U]C CLOSE # PAUSE RNDIN  FOR  CLS 1 REM [H] VERIFY [F] CLS ▜ PAPER  OPEN # PRINT |^ RESTORE j POKE ▘<=[R]▖C53MATTR ▗USR h FORMAT 3Sl[ THEN SGN [R] DATA [H]6 OR  OPEN #ASN g[O]8 TO RTAN <>CODE  FORMAT SCREEN$ ATN 'TAN 7 PRINT p FOR j CLS [G]d CLEAR r[N]STR$ !▙ DATA [P]EXP %[E]X DRAW [G]/[U]IN Y CAT < PAPER [E][B]x IF Q OVER  DRAW ~M~ DIM AT | OVER  IF ▙/U FLASH  NEXT  OUT "▛j_CODE F PAPER ▛CODE >7C▛LN ATN  LINE i[G] OR oABS  PAUSE U CIRCLE ^Y<>IN fB▚[U]O LOAD  PLOT   CONTINUE UNOT [L]POINT G[S]ATTR _ACS TAN k PAUSE X RETURN TAN [C]V COPY NOT VCODE TAN RND[H]CODE ] THEN  BEEP  DATA VAL  DRAW TAN %#CODE  RETURN NOT ?RJI IF [O]/©O|>= CONTINUE [N]^ CAT ▞PEEK U[F] OUT }^E{SIN _IN j{}IN 5q[jE RANDOMIZE  PRINT  CLS @u▝ THEN  STOP SCREEN$ [' COPY RND[U] THEN 1 FOR ATN S CLEAR  OR 9"$ FOR ;VIz PRINT }RNDEXP  COPY [S]©| PAUSE  LOAD  IF  GO TO USR O[G] POKE >INKEY$ DIM SGN PEEK r[S]Z SAVE SGN  DATA  MOVE  FLASH  CLS [K]; IF }( GO TO [H][B] PLOT  u`$ATTR  CONTINUE T FLASH j TO  READ 7 TO ASN RND}C IF  PAPER LEN  RUN [J]▟ TO  INPUT RND DEF FN ? MOVE 5 RESTORE  TO  DEF FN TAN  RUN KINT  CLEAR RND| RETURN  CLOSE #[F] GO TO +a IF eCPEEK  PRINT SGN  LET i<RNDo OR  RANDOMIZE IN U POKE .[R][N] PLOT  PEEK  PLOT  N{O LOAD p- REM O BEEP  PAUSE ' LINE  CAT ▖DoVAL$ CATN  RETURN j CAT POINT [R]UhINT  STOP [D] SAVE ©*?~ASN ,hSSQR  GO SUB g OR 0`F![J] PAUSE V[N][E]l COPY  READ ATN n PRINT WG>S DIM ! ERASE INKEY$ PAPER BIN >==}/#LEN ![O]> RUN  MERGE [SIN [H] CLEAR GVz OUT COS  VERIFY  MOVE PEEK Dp MOVE  PLOT  [E]ASN  GO TO ATTR RNDkk REM  LINE COS  INVERSE  SAVE  GO SUB : OUT [B]IN i[F]< CAT |_IN Y</ATN *4CODE `R OUT  IF Y DIM oI IF TAB ▟ DIM  NEXT -QFN [D]$ GO SUB  FLASH  BEEP  BORDER  OR  LOAD  CLEAR *8 CLOSE #`IN G TO TAN CHR$ kPOINT 8[G]R SAVE  CLEAR SGN 9 PLOT  UWzIN  GO SUB -X TO  NEXT ▚▚ REM ] RETURN  MERGE [G];'LEN [P]WIN />= GO TO W} CLEAR  COPY p▗[F][S] PRINT _ OUT sG STOP COS NOT  CLEAR  STOP  VERIFY PEEK _▜ THEN _Gt OVER G CONTINUE  ERASE _G|_ LET }Z▝SGN CODE CODE / FORMAT } LET COS  DRAW  LLIST  TO NOT ATN ▞ CLEAR  RESTORE ATN  RETURN -[C].EXP  CLS  MOVE ATTR ATN INT |2 MERGE ; CLOSE #[G]<>ASN CHR$  RANDOMIZE G AND ABS -▟ OUT <=STR$ IN  IF ▖TAN SCREEN$ >_STR$  RUN  MERGE  GO SUB  IF CODE  DRAW k RETURN  POKE  RUN  CLS [C] CLEAR  OPEN #PEEK  CLEAR [K]X VERIFY {^AT  FOR ©TAB  LOAD ? RETURN  PLOT  H[O]_Vw^SIN ATTR ~ RUN [B]ABS  READ  DEF FN oABS vABS iG[D] OVER [E]mTAN BIN [R]7▙S_>=_ DATA  INK 5 FLASH  BEEP  CLOSE # SAVE V GO TO j<V REM [K] IF [L] PAUSE PEEK SQR  DATA  OVER INKEY$j CAT UCOS ATN YATN SCREEN$ | READ DCODE 9MIN (=|pUSR  SAVE )[H][E]ATN  LOAD  LPRINT  LIST  STOP  PAPER  LET © GO TO gW LOAD [L] RUN SIN  ERASE }_{VAL$ y COPY /~g8IN <qABS FN  PRINT [P[U][H] BORDER  OPEN # RUN  DATA ATN  BORDER S CLEAR [T]▟ CLS [C] RANDOMIZE  THEN  BEEP  FORMAT ySTR$  AND fCODE  LOAD M INVERSE  INVERSE SCREEN$ :SQR l MERGE COS mACS  OVER  DATA k CLEAR vTAN ▟FN ESCREEN$  PLOT  C LOAD [K] INK  DATA nO PAUSE Y[O][P]▜[H]T INVERSE T[P] RETURN [O]w[G]Tj© OR  OUT [O][G] THEN  MERGE $ COPY  GO SUB <PEEK / INK NSGN cSIN  DIM ASN Iph INK  BORDER [P][H]▛ BEEP 1PEEK ;SGN [D]E_[C]<> THEN ATN  STOP TAB  LIST [H] COPY }#I[H]j PAUSE  OVER /(o-<= COPY >[F]>=j$ REM ▛F#SIN 3x LIST nSGN [M]SCREEN$  REM 6ATTR [A]7AT [Q] AND ▟TAB INT @VAL$ ▙ READ 2CODE  TO  AND ▟VAL  CLOSE #PLEN  CIRCLE = CLS SIN COS ~ BRIGHT PEEK  LET fTAN $ASN  DATA ~ACS ATN INKEY$7$LN  LINE , INK ▟EXP  DRAW ▙U CAT  INPUT CODE Dh| LIST [C][A][B]STR$ VLN 1BIN P[D] POKE n BRIGHT z[E] RANDOMIZE L[F][G]C CAT  CLEAR TAB q READ ![H]x[I]▘ INVERSE LN [J]RND[K]_ READ [O] MERGE i[L]>= OR eq[M] FOR  COPY v STOP 9▘ LIST <~u[T]6E AND WT0qNOT uX POKE l[INT /? INVERSE WNOT PEEK  MOVE U INK ▟g PRINT  VERIFY ^ FLASH CODE 6[J]TAN <[D] INVERSE ka[RNDUCOS  PAUSE ▜[J] REM  FLASH  OVER e[H]/[} FOR S"<=- GO SUB  GO TO FN W THEN sr OPEN #POINT g= RANDOMIZE  LINE l[D]O TO [R]T READ ▜SCREEN$ -ABS  RESTORE  PAUSE [J]TAB > DRAW j7 MERGE [E] BEEP ©M[O] DIM  BEEP CODE 1)PIINT c[H]PI[A] IF  RESTORE &SCREEN$ PIVAL$ ~ BRIGHT  FORMAT ▞_JUCOS [M] PLOT   COPY  RESTORE .[M]USR >TAN K READ ~ DATA _IN  CLOSE # RETURN 9SGN f MOVE ▗[G]L OPEN #[A]4q[C]1SCREEN$ [K][D]} COPY dB▚OU PLOT   INPUT #R▜V CAT  LPRINT  MOVE <▜ LPRINT x CIRCLE  RETURN  INVERSE ▘_ RANDOMIZE [Q] DRAW RBIN CHR$ ^~S PAPER  NEW kLEN  r▚tATTR [Q][B]FE[O] TO  LLIST ' MOVE [O]jK2EXP  MERGE f FORMAT ▖ AND POINT I STEP ~ INPUT  INPUT  DEF FN t^- BRIGHT EXP jSLEN SGN >= AND OSCREEN$ u<> LINE <POINT ▜3BIN ▜ FLASH  BRIGHT [R] REM cCHR$  AND  PAPER  OR 3SQR VAL$  LINE ACS  OVER [J] TO ▛PEEK C<>_SGN TAB r PLOT  g[O]R STOP yIN <=fASN =EXP  OUT FSCREEN$  PLOT  WYL9[H]2 CIRCLE  RETURN  BEEP 8 RUN ©f CAT [G] DATA %[J]| CLEAR [9[N][F]q[K];[F][P]NOT f STEP q OVER [P]U INK 0 SQR  INVERSE ©PEEK INT [A]SQR SGN l BRIGHT COS ABS x>=PEEK |▟o INK [M]R[N] CAT  INPUT  INK [P][S]7p[Q] RANDOMIZE  READ 7 RETURN [R]USR [S][I][T]/[U] MERGE ©RND RETURN  AND NINKEY$VAL$ |PIQFN %POINT STR$ 7TSCREEN$ BIN  READ !CAL  GO TO TSWPR>eDBC,30 RANDOMIZE W;AN. AND OW&FI SAVE [K] TO  STEP RIBU[L]tE LINE  CLS D USR  TO HL, AND  STEP [T]VAL A,( CAT [E] RUN TFLG)}[R]A PAUSE 0 CONTINUE SQR T CLS 7ACS RASN =ENZ[I]]b`I[B] CLS kASN [R]OKz FORMAT  BEEP ;TO DRAW  OUT h=13,457 T-S0 PAUSE G▞f TO   TO HPC.B©sY7;'[H]*STR$  RANDOMIZE USR  LIST ERVICcO CLOSE #Z STEP O DIM [I] RETURN   DEF FN 3UP>=  INK ▝% MERGE  RESTORE CHR$ ▟ AND  PLOT   STOP  OUT (Ao[B]Y RANDOMIZE [T]VAL$ ED{XTAN [R] NEXT yOATN 2248>=4 FORMAT i LIST E[D]1[J]yA[G]USR RRNDHIN AT / IF ?C▝VAL$  LET INKEY$25IN [K]INT >=>=LN V LLIST  INK  RESTORE [P] OUT  GO SUB swCHR$  STEP {LN LN  LPRINT Z<=IN  BRIGHT  OUT >2 BORDER  LLIST TAB /▚ LIST  COPY IN  FLASH  RETURN  THEN g !-sLEN  CLEAR % IF CODE  COPY NOT / NEW ( RANDOMIZE  THEN [J]ATTR 8*[D]BIN  NEXT  COPY z RANDOMIZE [L]NOT pPEEK  GO TO ▗IN h DEF FN  OR  CLS vEXP H NEXT  READ INKEY$d LINE f DIM <> OR USR ^ OVER [T] INK o BRIGHT xm| POKE  GO SUB V CLS  INK  LLIST <>7_SCREEN$  RETURN BIN  CLEAR q# DRAW  STOP  SAVE >NOT  INVERSE ! CLEAR  TO Nw[Q]CHR$ _,ut> COPY  STOP  RETURN  GO SUB G NEXT ^<>LN >= STEP COS COS cNOT *:▛Iq RETURN ) CLOSE # NEW  STEP  BEEP [F]BIN mn CLEAR * CONTINUE [K]BIN  POKE [A] COPY :y READ OQ[P]M THEN [D]~USR  CLS  GO SUB M SAVE  DRAW >i GO TO L LIST ]^ OUT d OVER  CLOSE #1Fb INPUT [K]PI MERGE ▘BIN |[O]INT SGN  RANDOMIZE  RESTORE  MERGE  DATA M STOP o<>*p>= GO SUB [n1~} NEW  SAVE o THEN % CAT U COPY  COPY X<>w$ IF B><>l▚#7©~# FORMAT  SAVE ! LPRINT bNF INK [I]<= THEN  GO SUB KhABS NOT :▘ RETURN  NEW  CONTINUE >#2 RANDOMIZE I. PAUSE  CLEAR  STOP  STEP  MERGE NOT + DIM SIN  FOR  OVER  RESTORE  OR  PRINT ▘QBIN STR$  PAUSE & LLIST V[M]C DIM TAB ACS  COPY SCREEN$ TAB IN #PEEK [N][M]LEN <> CLS  GO SUB <>KVAL$  RANDOMIZE <=>=<>> CLEAR [G]GSCREEN$ CODE >=Ey RANDOMIZE ($vFNOT  PRINT  BRIGHT  LET jj/^SGN  OR sLN {U BEEP 5 PRINT  CLS  LET TAB  OUT =  INPUT <=#5▝<=Z FORMAT ~ CLEAR . TO  POKE <>yY^TAB  PLOT  w OR :o▞<> OR  TO T4POINT <> LINE  RETURN EXP  + RESTORE  LIST | LLIST  #"?J DIM  IF y 5 OPEN #IN  GO SUB R CLS  MERGE  SAVE  MOVE RNDC SAVE p72 FORMAT }VAL$ ©RND VERIFY  RETURN 8Oe[N]T DEF FN ▖8 CLS D FLASH <> RETURN [Q] CIRCLE ATTR .[Q] RESTORE  INVERSE  RESTORE UBIN ACS ACS  SAVE  SAVE BIN BIN ACS  MOVE BIN %l-LEN | THEN '_6 BRIGHT PInf AND [P]e LLIST  DIM  FLASH  INPUT  NEW 0ATTR <>mF#[I] TO 6[L]f DATA USR  RETURN 'SCREEN$ {x><= CLEAR  PLOT  [J] REM  OUT X[O] INVERSE EXP l~H LET  OR 6[D]IN r<= LOAD  POKE  OUT ▖ PAPER SGN vgVAL [T][G][L] PAPER ATN  RUN IN  OVER  OR  CAT [L]:0 OPEN #USR <2 GO SUB [E]"1[L] CLS qPEEK  GO SUB #eB3f RETURN !d STEP  TO <=RmCOS  FLASH >=ATTR   OR | BEEP NOT  NEXT  AND * BEEP ▙3u OUT y$5j VERIFY IsP RANDOMIZE 3 LINE , INVERSE PEEK ?5[G]&[R] DATA =wATN SCREEN$ IN PEEK  RETURN CHR$  DIM  AND CODE ▜ GO TO 3 VERIFY ^ INK  LINE <=3:8 TO A[C][M]B9KPOINT GF LPRINT  PAUSE $ DATA IN g OR  CLEAR  LINE  LLIST OZ&SGN  GO TO  OUT  THEN [J]}uABS  PRINT ▞ LPRINT PEEK VAL F_LN POINT [S]V=^>=AAT n[A] AND NOT 4 DIM BSCREEN$ 5[M]N CLEAR  THEN  RETURN STR$  PLOT   AND H LPRINT F OR ! RETURN <= LLIST  THEN ©c!>>=~ TO < RETURN : 0wLEN  LLIST + NEXT  NEW y RETURN 8>2 NEW <=!e LLIST  FLASH f▛4STR$ <=C▖NOT Z[O]1gTAN >( RETURN  PAPER ?} READ G▜(*h>▚ FLASH ^ THEN ?W DEF FN ;} OVER kSGN  jdABS [R]h>+ DIM [H] CONTINUE  PAPER  NEW  NEW ~ PRINT  NEW ( LET e_ RANDOMIZE =K!xIN [Q]COS [O][T]VAL$ > GO SUB  THEN  LET { LINE NOT s REM <=XPp IF [C]*>=!@  OR  RESTORE  STEP ▘<= LLIST STR$  LINE wXZ.' FOR  GO SUB VAL do& LOAD EXP mCODE  RESTORE < MERGE  LLIST _[Q]ASN #w$>=[I] RUN TAN ! NEXT )n SAVE ▛ IF CHR$ O> THEN a(|▝ OPEN # RETURN 2/: AND [I][D][F]/ TO #:>= RANDOMIZE  PLOT  © POKE z STEP  BRIGHT <= REM  FLASH  LINE  RESTORE K PAUSE  FOR [F] READ <=[B]x RETURN >= PLAYER1 SAVE aSCOVAL$ E0 OUT PEEK | LIST +;V OUT  RUN 6USR 23 OVER USR h<n GO TO IN 3 RANDOMIZE ?. LIST  COPY [I] CLEAR  IF [P]~BNOT POINT PEEK %0IN |BIN  DATA  LPRINT [P] POKE  DRAW jCHR$ 0 LIST  NEXT %IN =▝ FOR  INK V OR ▘3g=^▜ LET AT :[H]cg RANDOMIZE AeSCREEN$ [P]kHCOS Lsr MERGE [U]O▛USR ABS  LIST u CLS sz THEN  BORDER m TO SQR [F]▚<>▙ FLASH <[G]z VERIFY ACS PEEK f, LOAD _ACS [P]<=▖ REM ][R] COPY / PRINT [B]ATN  CLEAR 8DmCHR$ ©/ RUN 6&e LPRINT  SAVE EGg[F]% BORDER  RUN  RUN  COPY  INVERSE *4 TO [P][Q]INKEY$y[C] DIM  PLOT  J CIRCLE YG`COS  RANDOMIZE  REM  RESTORE ^?_[J] TO  GO SUB COS 2S MOVE  IF  IF !1 CAT [I]u INK I6▟W[Q] IF 6▛o3g CONTINUE sCODE w# RESTORE  STEP S LINE  LLIST O:3 TO [R] AND w!84TAN [L]|"[C][R]jF INK ([R]<>uPt*v/[P]<=]T) DATA PI"ATN  POKE | LOAD  OVER  DEF FN G TO p DEF FN  OR  MOVE [H]) MOVE PEEK  BEEP !@< PAUSE [H] OPEN #▝ RETURN [Q] CAT  STEP 8(>USR w= RUN  LINE  COPY ~ DRAW PEEK  CLEAR  RESTORE  MOVE  MERGE  LLIST #(▞if*p[O] OPEN #>"▚w DIM 5STR$  PAPER  RETURN  STEP 'CODE  STOP ATN [U] RESTORE [S]`[O]USR ~CHR$ 'c1 CLS  THEN © RETURN :8 DRAW  FLASH  LLIST  LET U©[S] RETURN  > COPY  PRINT  ERASE + NEXT , INVERSE ▚ RETURN ▖8VAL$ }t>= INVERSE qNOT  AND  THEN } RUN  LOAD NL VERIFY [L] MOVE  IF ^6 LOAD 6 THEN # RANDOMIZE !▞ BORDER g INK [H]EXP > MERGE aEXP kGOABS >x[B]SQR tSGN >=zATTR NCODE  INPUT  BORDER [I]b FOR [O] PRINT  STEP [U] OVER ;ORND2& RESTORE  OR ATTR ` PLOT  SQR LN z RUN J THEN G}a_ RETURN r THEN PIX BEEP COS _ MERGE  SAVE  OVER SIN ~$BIN STR$ / OVER IN <>[D] FOR [▘VAL$ ▘ RETURN J NEXT  FOR  FLASH n PRINT [T] INVERSE 4P5[F]w' [R]▟y(s^POINT  THEN  PAUSE >= RUN JINKEY$<=| CLOSE #ACS  LINE <>©a DEF FN [C] READ ©IN  DRAW  BEEP [P]i THEN  STOP y^LZATN  MOVE h8 FORMAT [F]COS  BEEP  OVER ▜p LIST [M] RESTORE  GO TO [F]COS @ NEXT   IF COS s ERASE 8e▜COS / THEN $▖*T+2C DATA 9 LINE TBIN @GgEXP N"UBIN /TAT cLEN Jj*Vqx@ OR ©FN INKEY$▚ CLOSE #▟ LINE U[E][L]M[J][S]VAL POINT ATTR HVAL  CLOSE #ATN >=PEEK l OR  BRIGHT  TO @ RESTORE P OPEN #SCREEN$  PAPER  LLIST VAL$ r CONTINUE  LINE U LOAD  PLOT  gEXP  CLEAR D30 OPEN # TO [M]5 TO v▖H LINE U '[R]. MOVE 45>=*U<CCBIN J5D CLOSE #QTAN X▖T_EXP jf*QmtL RESTORE {[P]▘▞[U]jTAN [A][H]UC[O]jRND TO AT XCOS [Q]INKEY$INT  FORMAT STR$ U>= CAT UEXP  VERIFY BIN * INVERSE  DATA UCT FOR [R] PAUSE V RANDOMIZE p NEW  CLOSE #ATTR  POKE [S]!<#FN SGN *U18VLEN ?"F[M]M[S]![M]TINKEY$USR [5Db@iSCREEN$ Hpb[F]w~DAT X54ATTR [D][K] DEF FN b[R]UXFN CODE MEXP ACS >=ABS ATTR XBIN R[F] THEN  ERASE UAT  INK POINT  LINE  LPRINT *V BORDER  INPUT [M] RESTORE  PRINT ATTR p DRAW  MERGE [S]USR [M]"V!▖&RNDSCREEN$ [M]-4ATTR /; MERGE [E]B BRIGHT I▚▖PATTR [M]W^AT e LINE UlsEXP zb MERGE FN ▝▖U[U]EXP [G])W[N][U]ATTR AT ATTR SIN VAL$ rEXP 5DUSR <=ATTR X DEF FN ATTR ▘r[F] BRIGHT  READ LEN [K] BRIGHT  REM *W LET  SAVE / RESTORE  COPY  LLIST  GO TO  VERIFY xW LET  RESTORE *"COS /)b[F]`07UVAL$ >[M]>=EH COPY {>=L?ohAT  LLIST Ch" CAT TAN h CAT  RETURN :NOT ▞ RESTORE  STEP  BRIGHT [K]Y REM I VERIFY AT  COPY D OVER SIN SGN [F] PLOT  K DATA 7 THEN  LOAD [C]ABS ,[U][H]>=W[G];g OUT ▘VAL$ lCOS  GO SUB EQ`SIN SGN f{ PRINT  INVERSE  LET SIN SGN AT [F] PLOT  ATN  RETURN  CAT  AND ATTR [A][O] STEP  PAUSE  PAUSE  REM 5 MERGE [D] CAT ATN  GO TO ATTR t RETURN ▟<ATTR ATN {[A] CIRCLE z PRINT  CAT ABS  TO [CODE [H]mo CLEAR  TAN  CAT CODE [O] INVERSE TAB W<▞ PAUSE  REM fm[H] THEN [L][G]7,oY OVER SIN SGN EXP SIN [P]▜+STR$  INK UB[G]fy STEP  PAUSE [H] RESTORE  OVER  DRAW  INVERSE SGN YyCOS  PAUSE f▝ STEP  COPY F INVERSE TAB Wt_[F] RESTORE NOT [F]C CLEAR ^ CLEAR  INVERSE [G]ATN  CAT md FOR  THEN [L][G]7,oSGN dy> CAT QCOS SGN Kfy<> PAUSE p▘ATN ▛gJ[J]AT  INK re PAPER RNDf DRAW  BEEP [A]^ABS fC RANDOMIZE CODE _IN z<Q CAT  DATA  CAT [A]z LET COS  BORDER [F]>=x[G] BEEP gl[G]7 VERIFY  PRINT o[K]z▘[A]▘u LET COS INT [C]▚ RESTORE  STEP :[D]INT [N]<>AT  DEF FN dCWSIN 3Y▞ CIRCLE AT L) INVERSE {& FOR [C]©Xm STEP [H] CAT [O]/ VERIFY [U]g© GO TO  CIRCLE , INK L PAPER [E]VAL$ IN  BRIGHT |zvn^>ABS >pbF@ PAUSE  LLIST ][G]N RUN  PRINT  CLOSE #|@cABS  FORMAT USR  COPY 7 READ  LOAD  BORDER  SAVE  OUT  CAT NOT  BORDER C[P] AND ▜▝ STR$ PPEEK |EXP  IF [Q] RESTORE  FORMAT ABS  SAVE USR  RETURN IN  RETURN  CLEAR  CLS  RUN  LOAD  OUT IN ©NOT  IF  READ  COPY [C]} COPY  RETURN  DRAW  RANDOMIZE  NEXT  BORDER  CAT [P]?© COPY a RETURN CHR$  SAVE  LIST  LLIST NOT ▜>t COPY VAL tb LPRINT USR ![ FLASH ▜ PRINT _ FORMAT ▛ LIST X USR X!X$@_^a|[L] NEXT  TO  SAVE  @po COPY ABS PIk8pVAL ©P= TO n RANDOMIZE  CLEAR  STOP 0[R]PEEK  GO TO ATTR @t VERIFY @ VERIFY CODE ©EXP  FORMAT W FOR  CIRCLE wIN  READ o>| LIST  MERGE x) DRAW !USR  SAVE  RUN ▙VAL  BRIGHT  DATA [P]USR  VERIFY >=0`VAL @VAL N@TAB FIN  STEP  GO TO  MERGE W<EXP [F]#__ CLEAR 8A{[I] RANDOMIZE SGN  SAVE  FORMAT  IF IN  COPY ▘▗▖[A][Q] }▜▙[M]LN ▜[Q]v[P]IN ] LET /~3(>FN  RANDOMIZE VAL z FORMAT USR VAL  `9(X[P] RANDOMIZE 0` FORMAT `X LOAD C MOVE }ASN <x▝a8 COPY STR$ `LN @[I]AT USR AT ,@IN  INVERSE  RESTORE *{ READ  CAT k"_!}4 CLEAR  LLIST [▞>w[R][F]qSIN ©O:n>=[B]0 LIST  THEN  DEF FN  GO SUB D LOAD TAB y5 CLOSE #[D][D]pQ OVER >= AND  PAPER x BRIGHT  AND <> ERASE  BRIGHT  PRINT PEEK [F]% DIM SIN  DIM s VERIFY N PRINT  NEW  INVERSE  LLIST R NEXT ▗ INVERSE Q▚ OR yPIf TO i INVERSE ▙ ERASE 4 FLASH V(BIN [G]▜T LIST ACS  PAPER 8- DEF FN Zmo▗N OR 5NOT MCOS PEEK  BRIGHT 4wTAN :[F<= DIM COS  MERGE  INVERSE RINT V  CONTINUE ▚ LINE [A][D]eACS ▗ CLOSE #7[C]USR 7 RETURN RNDn0. DEF FN INKEY$ PAPER  INK x! CLEAR  RESTORE  LLIST  MOVE F[S] GO SUB VAL 5 CLEAR BIN  RETURN  LPRINT TAN v DRAW STR$ T_ INVERSE ▖ LINE aINT   MOVE | CLOSE #[F] VERIFY  INK  INVERSE  PAUSE SQR PI▙ LINE ▝ BRIGHT  DRAW F[G]( VERIFY  ERASE IN  INVERSE INKEY$TAN SQR  STEP y IF [Q]NOT CODE  INVERSE STR$  OPEN #nzINKEY$PEEK ; BORDER CHR$ y BRIGHT wB PRINT N INK  NEW  CLEAR a REM x[O][J] FOR  LLIST  RESTORE ACS H!z[P][x'▜ INK S%TAB  MOVE [B]h©pUSR 6i:w~[S]INT LPEEK LN  RESTORE ~h RESTORE SGN  VERIFY  BRIGHT uBIN IN ~i GO SUB Hw OVER VNOT Z INVERSE Y NEW hIN 4<=> SAVE wSTR$ s=G AND  INPUT  MOVE (INT ▟ LOAD  AND != LIST LN 8y-[Q][|0w)STR$ s SAVE >=IN <>CODE ©9`ATN  CIRCLE ,COS ? LIST <> STEP  DRAW  INVERSE >= GO SUB ▘ GO TO E OVER ?<>R!+CODE SCREEN$ <>N▟LEN zPI32 CONTINUE [R][F] MERGE COS  BORDER :<=yCHR$  DEF FN O NEXT ^uh LLIST  OR #g" CONTINUE <=OAT LEN iC`[I]7 VERIFY ▘ LPRINT [D]XXP OVER [B]X OVER  DEF FN  OR  FORMAT  OVER d LINE LEN SGN <>AyUSR ZlA{ STEP JhVAL$ ▘[B]k< OUT  DEF FN B;FN 1TAN ;F#O~=w PAUSE @ OUT  RANDOMIZE  STOP y TO 9RZ@g<=  RETURN 0 NEW G>[A][F] BEEP  CIRCLE !CHR$ fD OVER WHVAL > wfLEN VAL  LIST ATN zlLBIN  DATA  GO SUB Vcs~ FOR s+<> RANDOMIZE  OPEN # BEEP R_ THEN [M]H[Q]=G[K]~#LEN [T]~ LINE pCHR$ *B▗▟▚} NEW  BORDER o$ NEW  OR g RESTORE B LLIST 0^;ATTR  GO TO g!"c7▛a< OVER  STEP  OR  LPRINT ABS  INPUT | RETURN  DEF FN  STEP YN~  LET 2 VERIFY ▙NOT CHR$ ▝kJ OR X CLS A OR 9[D]▜+n POKE #▗▞: NEW [A]?eLEN n~ FORMAT yCOS SGN ^0[L] AND ] BRIGHT  PLOT  RNDLN  GO SUB ^z<I1( CLEAR >=[S] FOR V OR ASN  CLEAR  RUN ^[A] READ TAB 4 MERGE  VERIFY  TO  LPRINT !y READ 5[Q][K]/ GO TO  MOVE *s CAT nBIN 2c THEN 2[I];dSIN   CAT C COPY  LIST  COPY  POKE U TO zVSTR$ ▜O STEP SCREEN$ z[R] DRAW y DRAW NOT  TO <=!"L▘7LN PEEK <=? CLS <=;>=IN Y# IF CODE ▚ NEXT  MERGE r: COPY +▗ GO SUB  RANDOMIZE  LET  INVERSE [A] RESTORE  BEEP }RNDCODE ?i NEW }@oPIABS  INVERSE  THEN N REM TAN /!▝TAN H BRIGHT [P]8[B]▘H IF -f2 RUN ABS  OUT  IF < OPEN #Z PRINT 9 TO [E]▚ DATA >2n]X[K]LEN d@ VERIFY PEEK DweV>?U[ DRAW _[J]x TO om<>PEEK  INPUT SQR ATN USR { OUT +x LLIST LN  INK = SAVE 9 STOP y READ EXP ASN <$[O] RUN 4 BORDER vIN ~ FLASH q BEEP  LLIST [P] CLS [ COPY ▝ LOAD  FLASH AT  OVER N SAVE _©ATTR ©STR$ ASN  CLS O IF  IF IN [T]TAB CODE  GO TO USR  REM CODE  TO  IF {USR @m CLEAR USR Wn LLIST ▚ OUT  BEEP  COPY [T]▜TAN _L~e DRAW zRND OUT  DRAW  DIM   OUT ATN EXP  GO TO STR$ SIN GM[D] REM OV CIRCLE CODE  VERIFY PEEK U COPY USR [B] GO TO #USR [E] GO TO  DRAW  RETURN %USR LN  INK  COPY BUG~OF. RETURN ; CLEAR & DIM . PLOT   STEP . READ  LOAD  INK ]Tkb LIST  RETURN  GO SUB W DATA 0[J] SAVE _VAL$ w[Q] LPRINT  CAT IN  BRIGHT  CONTINUE  PRINT :H/ NEW 8▖ COPY  OPEN # RETURN >© FLASH *BIN  CLS 8 CAT  LET <> NEXT >POINT g!? RESTORE UL NEW   PLOT  OIN USR  STEP  BORDER 0 IF ! RETURN +|ASN   RANDOMIZE  PLOT  [B] READ 0 FOR [M] LIST  INK  DATA > AND LN [B] CLEAR  LPRINT $  LET ▜O<> FLASH  MERGE x RETURN  CLOSE #PEEK U POKE  FORMAT y INPUT O NEW SQR ASN VAL  FOR  DATA 0n CLEAR ? THEN TAB USR yO=t- RETURN C#SIN .F[K]LN  FORMAT  RESTORE  THEN  RETURN [L] ERASE  ERASE  LINE |TAB gzCOS  ; RETURN [P]SVAL$ [M] CLS =  CLEAR PI>=[ FORMAT POINT A PAPER o( NEXT  BORDER / COPY  NEW  PLOT  [7<> LET :t/ VERIFY |[P] LPRINT 2 STEP  REM _0%(<kCHR$ [L]PI( LLIST >  DRAW  INVERSE 6 LLIST  COPY  LET +! PLOT  k NEW r INVERSE 07 [H] THEN ▝ LLIST #[S] RETURN  FOR  GO SUB VAL  OUT  RETURN  DATA  IBIN ▘% LINE  BORDER  STEP SIN ( THEN  RANDOMIZE 0a NEXT 7=( CAT CHR$ CODE POINT [M]#ATN  GO SUB ~ INVERSE wOq THEN (<ty FOR  BORDER  CLS  STEP  NEW ) PAPER <= INPUT  FOR NOT Z~)SCREEN$ aPICOS INKEY$}[H]RNDCODE @MPI NEXT  REM tM RUN CODE O GO TO  IF  INVERSE H U[C]gR< STEP  NEW ©COS  ERASE ▘: PRINT  DIM  RETURN [J]CHR$ ~ro CONTINUE SGN /RND VERIFY  CLEAR !:/>&V CLS NOT To"TAB ATN STR$  THEN  MERGE  OUT  DIM  NEXT  CLEAR ▜[B][L]RNDCODE EXP NOT  STEP  BEEP  LLIST  FOR  PRINT  COPY ▞[D][N]PILEN SQR  OR  CAT  INK  READ  GO SUB l AND  RUN ▝▛[F][P]POINT COS ABS <= MOVE  FLASH  RESTORE  LOAD  RANDOMIZE ▟[H][R]ATTR ASN IN <> OPEN # INVERSE  BORDER  LET  CLS [J][T], COPY USR IN [U]USR x[I]Q[S]P DRAW  PAPER ?ASN  PAUSE  INPUT _▜YSCREEN$ L RESTORE RND OVER  BEEP 0 DIM NOT T[L] OUT [F]H[N]▚ MERGE ]PI▟ CLEAR  OUT 7ASN  NEXT ATN NOT ACS [K] CLS ▗SIN 6%aCODE D:EXP CHR$  LPRINT  RETURN  RUN IN ▛POINT  INVERSE  FOR  STEP  COPY [J]TAB 6STR$  CAT  FOR ▞ CLEAR USR l[Q][P] FLASH  NEW NOT  THEN  LLIST  DIM  CAT [L] NEW ATTR [P][F]` RANDOMIZE  FLASH  CIRCLE [U] LOAD  OR `<>ABS  OUT  BRIGHT  INVERSE  OUT [L]▜▟PI[R]h[K]CODE ASN @ATTR LSQR s3 RANDOMIZE USR  BORDER  GO SUB  CLS  RANDOMIZE MUSR ATTR USR  LET  RUN EXP [L][J]RND STEP [M]USR `<>USR LN  RANDOMIZE [H]EXP COS LEN IN  OR USR  BORDER tSQR  OUT < PRINT  BEEP a@1[J][C] BORDER ▘SQR E- REM  NEXT  COPY ]' VERIFY * DATA  COPY ▗▝,?D CIRCLE 2 NEW  COPY ZPIo GO TO FLAK   2Ch[I][I]hrust-packer v1.3 by Dima Pyankov,Gorno-Altaisk. NEXT  GO SUB s CLEAR @[!%@ OVER  MERGE  GO SUB VAL  MERGE  INVERSE  LLIST !F<M CLS <> GO SUB LN  FOR  RANDOMIZE @ INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]!X' INK 1 CLS NOT @HR= OR  COPY  NEXT 1 COPY W!=@[j LPRINT  GO SUB VAL >@ FOR [B]y6 SAVE  LIST 1 DATA  COPY V NEXT  LET  PLOT  [D]OG? LLIST  MOVE STR$ [T]f INK  CLEAR  INVERSE  COPY * STOP ;@ CLS  CIRCLE  LET <>[P]IN  COPY LEN [B] COPY   ERASE  PLOT  # CAT [G]>=M[S]VAL 1VAL 4©<@ LINE  TO INKEY$ DEF FN  FOR  DRAW UTAB  DRAW [M] LET ` RUN  GO TO ACS /SQR  THEN  DRAW ^ LINE Ybh CLS ou[J] DATA  IF [C] RUN  DRAW  GO SUB COS  TO  DRAW BIN  REM X LINE |!K NEXT /_H LPRINT P!2WIN  COPY } RETURN  POKE FN K CLS  DRAW BIN S▝ACS ACS RP[P]rACS   LET  LOAD  DIM PI REM ?© REM Protec^|d bySPE FLASH ?DLOCKh|?<> INVERSE  BORDER  OUT EXP 0W INK SCREEN$ CODE  BRIGHT 1= RESTORE [R]x READ  CLS  POKE 236FASN 4H CIRCLE [ STOP ,3ABS 9}^ABS  POKE (PEEK nINKEY$ OUT 4 FORMAT 8SIN ACS  NEXT +56ABS INKEY$ INVERSE  OR *"▙ RUN TAN [J][K]),*TAN 99▚CHR$ f)[I]POINT Wo AND +tNSCREEN$ PEEK  PRINT 0[I]▞BIN PEEK L|SGN  CIRCLE [T]zFACS  CAT 1B LET 3| DEF FN SCREEN$ |7[G]?INKEY$|[H] AND [I] RETURN | BORDER 8[J] CONTINUE [I]PEEK ▛7|^|[F][U] CIRCLE [J]I BRIGHT LN k FOR  PAPER 1 PAPER L<▗[I] PAUSE [P]Y[K] OVER COS iB PLOT  CHR$ ~▚~k[F] LPRINT TAN "BIN ?[O] DIM [M]BU COPY  GO TO G~OF; CLEAR & DIM . PLOT   READ  GO TO f▝ RUN ]Tkb| SAVE  RETURN  GO SUB W DATA 0_VAL$ w TO L[Q] LPRINT  BRIGHT [G]n CONTINUE  TO  FLASH x([N]k[D]>=5 LINE v OPEN # MERGE s CONTINUE TAN  REM IPEEK 5 OR  BRIGHT <[N]▚[T]FN bE LET SQR  AND >6[O]mASN iATTR  DRAW PEEK 3 MERGE  CIRCLE [G]▞▜_<> DIM * READ  GO SUB <[E]mIN sRNDi▞ BEEP INT 7 INK NOT bQ)[T]WPOINT } CLEAR  FLASH ▙ OR ,ATN L%[P]UF DATA  RETURN 3▛ RUN ▜OATTR ▞d BRIGHT UX LET o RESTORE (W<>^POINT ATN NTAB  MERGE ▝ OUT SIN STR$ VSQR [J]T TO E▜g PRINT ~▝[Q] MOVE  RANDOMIZE [U]l NEW [[K][J] MERGE [I] PLOT  VAL #COS CODE  READ © INVERSE  STEP  BORDER  LOAD  [I]i[ GO SUB [H]aLEN ABS pFN 9 FLASH  DRAW <=@5/TAN TAB m PAPER : READ  IF L9 RETURN ▖©+[B]STR$  STEP  LET  CONTINUE  LLIST BIN  PRINT [P]F FORMAT CODE d LPRINT  VERIFY  MOVE % OR  POKE  COPY ATN [F]RND COPY LEN [Q]13[F] COPY IN X LIST Ac CLOSE # LOAD ]$ GO TO IE INPUT B<>VAL$ POINT n<=!▜{▙PV[H] COPY [N]- GO SUB  FORMAT  NEW  DRAW .[F] READ y`Cb(LEN  GO TO  BEEP a GO SUB :Dt CLOSE #[C]z MERGE 8P>[P]▛ OVER [J]V▟CHR$ /=RNDF MOVE [B] INPUT ▙M PRINT  LIST  INK < BORDER   PLOT   LET 8.fLN [T]TAB INKEY$ NEXT K OPEN # GO SUB , DIM  CLS ▜ OVER [C]ACS nPOINT 5( PLOT   LLIST  FOR  DATA 2[F]CODE bATTR ABS  OR  FORMAT  LIST , BORDER wJ DIM aPOINT [D]VAL$ `<[J] DATA  INVERSE  RANDOMIZE $ MERGE y[S]TAN r6t0RND!<=ATN zpjTAB q LIST  LPRINT  THEN U DEF FN  CLEAR  NEXT 0xF▗CODE  RANDOMIZE  ERASE  STEP  TO ,a"FN <= PAUSE ACS  STEP E1 INK ©▛W[P]POINT [C]▘CHR$ USR TAN  INPUT /`'? READ $&RND DRAW STR$ [E][P]TAB ABS mE@y[C]IN & INVERSE bdS LPRINT LN  RANDOMIZE R INK  INVERSE hSCREEN$  GO SUB  NEXT mw CIRCLE  SAVE  CLEAR ▗TAB 9KSGN b INVERSE TAT ▛'hib VERIFY TAB c INK  OUT  THEN  STOP ▜ OVER Y INK POINT  SAVE  POKE OUFN  RETURN IPIWAL TO  POKE Y PAPER M RESTORE O DRAW _@DhYo©mJ@ GO SUB VAL '[P]SQR  CONTINUE HO INPUT  VERIFY CMLN dmR.AUX^ INK OMzSIN  READ AND RETURN j DEF FN <> RANDOMIZE ] FOR B~UP.[U]J{TAN S_~ COPY tWM LLIST R| CONTINUE  DRAW + RESTORE  CLEAR  PRINT  OPEN #[G]▖ GO TO <=_@TAB O; MOVE  STOP VAL WATN  CAT  RETURN [N]LN { ▚i=_n Sys AND `m©[P] BORDER DJLofG PLOT  tware&D[O].Aub INK TAN y DRAW JnOCODE s1984 CLEAR -TeM DRAW l:0793 245[L]1 COPY *GA< RANDOMIZE vrnmCHR$ it SAVE Hal6hWPEEK ni[L]>=g ERASE A LINE Lt[U]p[I]LN [J] IF ocra INPUT ATN k CAT aF[S]▝dm INK [L]g[A]yoursCs<>ty!MAT  NEXT AT O= DRAW {b LPRINT  TO ^"`kmp/OC@YASN LEN ▟ BEEP &PEEK wxUSR FLAK   3C@=ust-packer v1.3 by Dima Pyankov,Gorno-Altaisk.