Gravity Wars: boot.B

Является частью релиза: Gravity Wars
Размер файла: 55040
md5: f12db5bd5bc6dba7abf5480dbe8e173d
  1 RANDOMIZE USR 23886 NEXT  STEP [B]!h]▛[m MERGE  GO SUB VAL !z$AT INKEY$,<> GO SUB LN !©©;i~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL  LLIST  FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER  THEN ?O0AN# GO SUB VAL COS  THEN ?N8SGN 0=[U] LET  NEXT NOT W[H]!▘▘ COPY u GO SUB VAL ![L][L]*[O]CODE 6NOT -w%w,6,6 COPY } GO SUB VAL [G][K]!EXP [K]INKEY$[H] GO SUB VAL O/ASN ▘ MERGE > RESTORE  MERGE  COPY @ GO SUB [Q]# OR  POKE  MOVE  LLIST ##=  BORDER I9>bK THEN # CLS   SAVE = THEN G  LET  RETURN ▖( REM ATN ▛  DATA & OR >F,N,V,^p-q-r-so0 GO TO $-STR$  RESTORE ![P][P]6BIN  COPY >BIN <  CLS  RUN <. GO SUB [Q]} AND o SAVE $=  CLS  PLOT  { AND =_$k6$:P'! CLS NOT INKEY$PEEK (&,,}EXP   PRINT :▝ INPUT 2▝2▘2[S]2[T]:%NOT ▝$~, OR %-><>2} STEP ▝>%NOT  LLIST PI▛% RESTORE  CLEAR MD&^$~i▚W%Nh{ACS _$f INVERSE ny CLEAR © GO SUB y FOR ACS w#0#P LLIST  CLEAR ,>} CLEAR ABS CHR$ [I][K]<> STEP  FORMAT [H]NOT `FN " RETURN  RETURN 0$ RETURN  NOT y AND O INPUT  RETURN  x AND G DATA w$q,p,%ENOT INKEY$ [C]SINKEY$6 COPY }2VINKEY$2PI.wCODE 2gINKEY$ RETURN [N] RETURN  COPY (" CLS PEEK ( LET ,, RANDOMIZE ![R]w> RETURN $w,w}<*ANOT TINKEY$ GO SUB [gINKEY${ATN ( G FLASH  RETURN  NEW O GO SUB _ NEW ©LEN o&[P]N$fi FOR &[T]r,s, FOR  DATA  RETURN [L]![N]~ATN 2NOT INKEY$2PI2@PI(/. fU&PEEK ( PAUSE e[Q]A6[Q]~%[U]~[L]&[N]NOT INT INKEY$ THEN ▚,,&[N]M~ RETURN  RETURN ( NEXT 0- THEN  AND . RETURN ,,PEEK ( NEW  RANDOMIZE i6 RETURN $^,VVAL$ PASN NOT  GO TO INKEY$&[U]s,r&[L]NOT PI:gINKEY$2CHR$ PI![N]RND~,,B RANDOMIZE  ERASE FN  RESTORE . RETURN B5CHR$ WPI OR A GO SUB [Q] GO SUB [Q]%STR$  LIST  REM K![L]n THEN %--> RETURN --ABS (HNOT iPI PRINT &[U]w,w&[L]-( LET NOT lVAL U{EXP (>2kPI COPY   /0(? INVERSE b INVERSE k>_.N THEN ! RETURN .[R] INVERSE ~ COPY  INVERSE ~NOT } INVERSE -( INVERSE -NOT  STEP PI{USR O5,w#w#%>EXP w M% LLIST NOT 1 BEEP ASN [L][N] GO SUB VAL  INVERSE . FOR ATN  CLEAR g(6 INVERSE &[T] CLEAR .@ INVERSE ^ INVERSE V INVERSE %i INVERSE f RESTORE  STEP  TO FN  INVERSE }<< INVERSE o CLEAR SGN   INVERSE >$| OUT !USR USR  LIST :CHR$ PI CLEAR SGN (6==%0 INVERSE oE MERGE F LLIST ( STEP [I][K] INVERSE }== P ERASE ~s&[U]@n&[M]`©~SUSR 9RND, INVERSE , DEF FN >[E]2[C]tvh{[F] PAPER COS SCREEN$ Gz[E] PAPER BIN POINT LN 8uHG THEN ?XP RESTORE  INK  LLIST E8INKEY$`V CLEAR , INK $[B]8[I]<>,[D]<>Oxdu,@u$u GO SUB Di LOAD %y LOAD %  LOAD  DATA FN ATTR q DATA -i DATA -~ DATA r LOAD  DATA )e[U][I] DATA 8 CLOSE #EDLN hH;% TO H[U]D8VAL 8>=D>=8VAL VAL H4LN >= TO H[U]LN H>=89 OR >= CLOSE #LN h[M]>= BRIGHT [U]H DATA h -uLN [A]@ CLOSE # TO 4V OR [I]H>=VAL 8[A][U]LN [M]f 5( DATA h[U]h COPY VU8>=@[U]8LN w%8[I]H0j?[A]5[M]0▜ TO A @w%LN H TO @&%LN  BRIGHT 0m%0 CONTINUE 0/6=0E BRIGHT >= TO  FOR  RESTORE D8@ DATA >=[U][M]4Hh GO TO USR USR TAN w  LIST vRND<@DH,|x@[O]E48Lx/[F], (8,<4 >U@L`(L2.E8$4xASN @ HX $ LPRINT ▜ INK  LPRINT  LPRINT ▞U>=[A][U]H TO <> LPRINT E COPY 0[U]LN 2%D8[A]p%[M][I]T>=bT"Sp/E0 CLOSE # TO [U]DP GO TO  OR [A]▖FN ▖ CIRCLE 8VAL VAL B[G]PbI022}RND@D([A] FORMAT [A][U] TO (<> LIST !i508>=▖ COPY HTH BRIGHT >=[U] DRAW BCODE /;u[I]LN H[I]8b BEEP [A]x$x%LN [A]4[T]%04I[Q]e CIRCLE ▖▖ TO ▖ DATA  LIST [C][C]!YE@ CIRCLE VAL @ISIN 0OASN  CIRCLE  TO  TO ▖H▖@VAL  DATA VAL ATN 7 TO [U] TO @D[U]VAL H4LN ( TO H8Y▖e BRIGHT [U] CONTINUE >=[A]Y▖0 CONTINUE 8>=▖[I]8>=0HD BEEP E4VAL VAL 8[P][M]8▞4I0H LLIST 0e(>= TO LN 8 DATA (0"uD DATA >=@ CLOSE #IN @3VAL D CLOSE #|2TAN ▖ INK %[I]LN [A] DATA f CLOSE #[M]COS  RESTORE (80lD080(FeL Hp?u8,`4 (&|eH@4l8[J] CONTINUE  DRAW 8{ POKE H POKE  POKE ▗g▜tXB[K]g8>= NEW u8dn( BORDER [F]VAL [I] CLOSE #VAL  POKE ' CLOSE #C@?TAN D▖( FLASH %0[I]T"▚D40[U] TO H[U]▜ FORMAT e TO ▖>=H4 iU CIRCLE [U]H TO  FLASH  COPY  CIRCLE ▖D▖T%4▖[M]ABS UT8@8`8 BRIGHT  READ [F][A]( FORMAT  TO >=[M]<b,p4l0<LHic FORMAT 8D<8bE&5 PRINT 4L8/4p(@LH|* FLASH [T]P▖ DRAW  OVER [M]^[C]YD FLASH E4 [S] ERASE %48$% HD S5D(L/(&[8;>=
  2162 LINE %8( FORMAT (; JD DATA ZNOT % CLOSE # DATA  TO  BEEP 5[M]8VAL [A]}POINT  SAVE LEN 5[A]>=[M]X BORDER  SAVE D TO %0 SAVE 2b([A]X DEF FN 8U>= CLOSE # TO  TO [U]v8LNOT %>=[M]INKEY$[D]&b5[I]VAL  TO  STOP [P][J] CLOSE #EXP <TAB  BRIGHT % TO HZ)5H[U]H CLOSE #/ AND %( TO 6nIN  BRIGHT XSQR  TO [A]50[I][U]@&%H[U][M].[T]B[I] COPY ; DATA % DRAW VAL TAN @" "3 DATA 3@0`3p3@r@P@=[G]0[E]( LOAD U DATA  DRAW  % DRAW  COPY @ASN u0 DATA @48LN G{ OVER ▖FN G[J]ASN ▗[Q] LIST [I] SAVE 4T SAVE ^AT NOT 5[A][U]0 >@5,|mK6 PAPER EDH( MERGE 5<8D,G CIRCLE u<8|,4 $ CLEAR e8H(@8$H8E@X.STR$ U D(8?0COS (|@D(^EXP .e(84XP} MERGE 0 RETURN 6f~ff|`||f )`>6%©~`>k MERGE <ff<cgo{sckweflxlfffcw©kccfMf<f<Z]E`<f``)%ff>HRU>f< .%f~f>{)k©)k%}c{m{` [S]%<f[{{[n>I6f<<6©TAB 6P5<`~ FORMAT  BEEP U~f AND ▗n[G]`| AND  ~TAB   AND `%f~<u<cs{ogc<>=< TO >%vj4$Elf<`< k)f0 LOAD %ccEXP 6<~<B INK ~0`~8<<l~6 CLOSE #%%<< GO SUB s0[1▞▞ LET 2 NEXT <> LLIST "3[PEEK  MERGE {[ LLIST }2SQR [|2 INVERSE [ LLIST "J%G[1!5n,&)[F]##[A] THEN "p] FOR  GO SUB VAL 2( RANDOMIZE  GO SUB S LLIST /z2 LINE 2! LINE 2? LINE 2X LINE 2[C] LINE 2 BEEP  LINE 2CHR$ [2>=2/ CLEAR !H INVERSE H▜<(7 INVERSE n INVERSE f STEP `] CLEAR u CLEAR t INVERSE n INVERSE f [F] CLEAR t INVERSE n INVERSE f  CLEAR t INVERSE  CLEAR NOT  OR ▛ RESTORE NPz# ~▜# RANDOMIZE ABS !CHR$ [4STR$  LPRINT  INVERSE !4▞ OR  INVERSE ~aATN  >!2▚/=▚b<%{2 [H]ATTR &Q6 INVERSE #> ▜[P]% NEW W▜POINT  NEW  CLEAR w INVERSE ~ATN  IF 7/ CLEAR w CLEAR 60 OR  THEN w( INVERSE ^ NEW    OR  GO SUB R FOR  CLEAR p CLEAR s CLEAR r.%VAL$ = POINT  INVERSE # INVERSE # CLEAR !% CLEAR 6E CLEAR 6Y PRINT 6!/4!/4STR$ CHR$  STOP [Z*3[#~ATN (&=O▜▝▜#CODE  GO SUB [Q]PIeHo[F]gL OPEN #P LLIST  VERIFY  FOR 6@#6: INVERSE [!SQR [[G]8E:SQR [ RND▘W2 LINE 2 CAT  LINE 2 THEN [J]=!t] GO SUB VAL z=2 STEP >=2W<>2 STOP <>!>  AND  IF > COPY  GO SUB SY] GO SUB [p] GO SUB KJ[ VERIFY p RETURN 0o&Q~ AND p$ VERIFY `5  [A]o&P~5xLEN   AND  CLEAR !:/<> GO SUB [G[ FOR ▞ATN  GO SUB B FOR ATN  GO SUB RCODE [U]<> SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%# NEW n%>)[I]x[A]Hxp[I]x0[Q][A]([I](p[Q]p(LN xx`([I][Q]8h( PRINT  CIRCLE 8[A]VAL H[Q]>=LN [A][I] CONTINUE g[A]( H[Q][I] FOR  PRINT H ( SAVE x (  SAVE p [Q]x[F][I][I](h` LIST %xh(}E ([I]|h[I][Q]([A]x[A]H8Hp`Hp[Q][A]xVAL U[Q](USR [Q]wINT 5H[Q](pUSR E0p MERGE 580USR  LPRINT zVAL +%[I][I]1EVAL (`9EVAL [I]>=9h9%VAL xpVAL VAL [I]hx[A]e[I]FN x[A][Q] MERGE (USR n5 [A]FN 8E%`1E[I]hxX(+p_USR `+eX[A][I]px>=IX[R][A]weexh[A]X([Q] VE▗( FOR exhFN ,%Hh GO SUB [F] FORMAT USR [I]([Q][A]FN %H[Q]xe[I]h[I]FN p8(`xp5[Q]VAL 8W FORMAT x PRINT "[K][F] H[I]X [A]HVAL (%[I]©NOT #ASN 5(>=x|#E[I]@H[Q]P9exFN p `Rt5hxFN [I]65  LPRINT  M5p>=_[I]!;[B]@ RESTORE [Q][I]h SAVE [I][Q][I] SAVE [A][Q][I][Q]FN / SAVE  POKE 0uu[Q][A]X([A] SAVE IN x`%E(hFN `[A] SAVE ` SAVE 0 ( SAVE [A][I][Q]> U$7RNDxA05xx  READ $VAL$ (,EFN [I]FN `[H]AupXVAL x X.($▞PINT [B]w*E[I]`(>=[U]5[Q](@ OVER  5h9ol5x@xKU[I]H8 CLEAR [Q][Q][R]2▖s FORMAT j5hFN  NEW %xH TO UH[A]x[I] .d%H@FN  FLASH e([Q]px RETURN UPx>=x0ASN ( ERASE %>=[Q] DIM &K%@(g DIM ASN ©F%hFN 0[A](HRND([A]@(hH[I][Q][H]u8H[A]` INPUT [A]( REM VAL u[A]0x[A]kE([A]VAL  TO [B]xP%XH`▖exFN [A][Q]H((!'{RND`xxXxFN [Q] MOVE INKEY$ELN Hp x▜CODE 0>=xFN p((VAL$  OVER ULN H[I]@([I][M]p OUT [Q]/ GO TO U@(``x0▜x[Q][N]5Hp0x POKE  PAUSE % LIST  LIST  LIST 00E LIST  FORMAT  LIST VAL ;% LIST @ SAVE 5 LOAD xEXP e FN hI)5!>= CLEAR "x THEN ~= LINE  PAUSE <>w= LINE g<>= LINE  INVERSE >==CHR$ W LINE -5! POKE <>6 PAUSE W LINE 6>>=ATN CHR$ _>=1[A] THEN  LET CHR$ I 12<=>=2Q<>2 BRIGHT <> LLIST " REM >= LLIST "u<> MOVE  GO SUB s?>= AND `8a▝8▝8/▝8;▝8 VERIFY USR 2 ERASE >=NOT _>=( ONOT  MOVE >==NOT  DEF FN >=. NEW g RANDOMIZE o" LINE  LLIST " CLEAR <>CODE NOT STR$ 02 NOT BIN 0"h@!52/e2O LINE y2▜2 LINE >2 SAVE <> MERGE >= GO SUB S7>=NOT W LINE ,5! LINE `COS  ▟[F]^▝8▝8,▝880▟e/<>NOT  GO TO >=(U[<>=NOT X<>P! LINE K02" NOT N0"h@![A],@' REM  ▛0▛E BORDER <>NOT w<> ▛ NEW ▛ READ `▛?9▛ VERIFY @▛@ NOT  INK P▛0![C]JBE4u<>[F]6! COPY "^ LINE _"[ X<▜AY THEN 0[I] [F] $[C]Z TO _d@ INVERSE  < PAPER  B BEEP x THEN }o%>=CODE [H]W BEEP u COPY CHR$ o LINE CODE V# INVERSE !NOT [B] LINE y<SQR CHR$ v LINE z2^ LINE Eo RANDOMIZE  INVERSE  LLIST  MOVE k&>=r MOVE  AND o& RANDOMIZE _SQR >=:ETAB  LINE CODE  CLEAR otu> INVERSE ASN  INVERSE oNOT  VERIFY  >TAN >[I] >% MOVE { CLEAR j FORMAT E[A]E LIST Eg[L]U$ INVERSE ASN NOT  THEN ▝ RUN ▝ INVERSE  ▝yOGH CLEAR b0▛i0▖▖ OR >=IN  COPY  CLEAR  COPY  GO SUB iC GO SUB [T]B%y,+5 INVERSE | PLOT  @ CLEAR }p 5.~ATN g>U LINE SQR t604.0`NOT SQR tmp OPEN #VAL$  FLASH COMPILE V4.0▞ATN Tu@@@PI OR [A]ApHUSR P3E`5 e[Q][Q]SQR @, 25"8b;FN  AND #USR "!(  USR * ) <' K> .[Q]=[Q]L[Q][[Q]j[Q]C NEW r LOAD w PAUSE % RETURN  COPY  RETURN  DRAW  IF  SAVE  PLOT   POKE  PAUSE  LIST <> PRINT [] COPY  [P]&▘&&&` @S  AND  MERGE  s&s[F]Bs. LIST [F]<s0 LIST [F]Gs- LIST { [H]&<> STEP <>+ AND  BIN  AND >=<>+>= % STEP +<>  [H]-! STEP   THEN ! THEN  <><>IN  GO SUB CODE %4[I]▞TAN  BEEP  INVERSE  6f6`][F]'N▞ SAVE  PAPER <ABS H▞'▚5 e[Q][Q] RESTORE ( SAVE 5R( SAVE 5@K[Q]*cEY%  AND /CHR$ 2/GSIN [M]0 CAT  CIRCLE H%c  5?7>_N2&2[▖x'@USR (-(2'USR +-*2<*'7Bx%;2>A   Gg/[Q]>[Q]][Q]l[Q]▛[Q][K]7O FLASH 5"G CAT g INK % FORMAT o P,E FLASH  LPRINT !RND COPY  RETURN  CLEAR  DRAW  CLS  IF  RANDOMIZE  SAVE  RUN  PLOT   PRINT  POKE B[A][Q]^%o[Q]% POKE B47C[N] BIN %*CHR$ C&qC MERGE  CLEAR [L][F]Cm*CSCREEN$ 4CODE  COPY _`/[J]2 THEN [J]0[J]-# ERASE  ERASE ! ERASE sUs7090RND0# FORMAT  FORMAT ! FORMAT s4# MERGE ?C50#GKGC FORMAT 5!&  PAUSE GrE▟VAL %COS COS USR %LN LN 0USR %ASN ASN HGUSR ▟ GZU![K]2  RESTORE VAL  ERASE U THEN ![K]0  RESTORE VAL  FORMAT C%-  STEP  STEP #[F]2! INK   BEEP " MERGE   ERASE  CLOSE # MERGE  CLOSE # ERASE " BEEP  [L]2( BEEP [F]0! BEEP   MERGE " CLOSE #  FORMAT  ERASE U! MERGE   MERGE ! MERGE % ▞5! MERGE " MERGE  USR  LET b@ RETURN OT[E]e BEEP ! INK  ERASE  ▚7U ▗5 BEEP  INK  PAPER ATN  MERGE [P]%! BEEP  MERGE [R]u CLOSE # MERGE ! CLOSE # FORMAT  ▚5U ▗4 MERGE  BEEP  INK IN ? BEEP CODE /TAB Wu'[H]9![E]7SU INK % INK # BEEP  MERGE G PRINT 57 INK ' BEEP 5L% BEEP % PAPER #[H]- <>▞-▜-▞)▜+ STEP ▞+▜) THEN -- THEN )+ STEP &(&[F]&▞(!▜( ▞&>=(5(▜+<>"! FORMAT ='[E]9#[E]9[E]' BEEP @[D]5@'[J][J]P[J]0[J] .) INK #a[`!a]`CODE 1USR  OPEN # RETURN  INVERSE !VAL$ INKEY$ STEP LN INKEY$* FOR /" PRINT [K]:] NEW O: RESTORE INKEY$LEN 2 RESTORE INKEY$: DIM 4 DIM INKEY$* POKE /"▝PI*=]"[C]SCREEN$  CLEAR © OR > GO SUB y! CIRCLE  CIRCLE u GO SUB VAL !L|[t RESTORE  MERGE  OR  GO SUB VAL 7 NEW <> OR >=[A] GO SUB VAL  STEP [STR$  MOVE  LLIST &[S]▟ OUT ruTAN  GO SUB VAL STR$ >A▞P#!;i LPRINT  .U!CODE CODE  CAT VAL [> OUT  FLASH  RETURN  NEW (!-[L]">[K]NOT ][J]!VAL VAL 6 GO SUB VAL  OUT O4VAL ![E]SCREEN$  INK ©^#V THEN  THEN  THEN  THEN  INK 8 INVERSE r INVERSE s© THEN 0 INVERSE # INK  RESTORE  INVERSE $ INVERSE .  OPEN # OUT Du@@uNE[U]SCREEN$ E OR U INVERSE #_[S] RESTORE  CAT ;STR$  PRINT  LLIST ,  RESTORE  BRIGHT  INVERSE "[[I]! LPRINT D"COS [I] CLEAR .N!@ © CLEAR `CODE ACS  LINE ?[J]8 IF ( INVERSE i INK  INVERSE &VAL (+ LPRINT CODE  INVERSE ACS  IF  LINE [I]Mo INVERSE ~©ACS wi INVERSE $ FOR  INK  FORMAT + CLEAR `} NEW  RETURN  IN  INK [P]=5*COS [I][U INK  CLEAR - POINT  CLEAR [E]%USR SCREEN$ % INVERSE &CODE te CLEAR ~ PLOT   GO SUB yNOT  MERGE [P]g[F]>N INVERSE  THEN ~  GO SUB VAL ASN e,=  LET & DIM  MOVE >▘W>PEEK  INVERSE SGN ( INVERSE $z RETURN  DRAW   DEF FN USR  CLEAR #PEEK y CLEAR [E]O▙ CLEAR " PAUSE [I] GO SUB S PRINT [I] OUT nL[I]2 PRINT P GO SUB VAL 1/!XX FORMAT > RESTORE  PRINT = GO SUB y2 LPRINT BIN ! LPRINT  DRAW  LLIST  DRAW 6 LINE  RETURN   NEW ! LPRINT SQR >Ow#= CLS <w# CLS  AND  RETURN ©  GO TO > GO SUB y STEP ▗[L]CODE @ AND   IF Z, DRAW   PRINT 0u< PRINT ({ NEW #5 PLOT  x* AND C  NEXT NOT >▘ OUT VAL$   AND ? INPUT ![I]|[I]6AT  OUT  OVER - GO SUB G GO SUB ^:[C]SCREEN$ 2 CIRCLE [P]! LLIST BIN "FN SQR  STEP  MOVE [O]:[D]SCREEN$  STEP PEEK [P]NOT @[K] CLS  INVERSE . STEP [Q]CODE  FLASH  RETURN / NEW ( SAVE  INVERSE . VAL /1 RETURN  RUN  GO SUB x NEW  RETURN (8 DRAW  STEP ABS [P] REM  LOAD  GO SUB x PLOT   READ  RETURN  COPY (8 DRAW  DIM > CLS  FLASH  RETURN 8!tgvtu RETURN  COPY  DEF FN SIN > CLEAR U? OVER [K] AND %8@/U> VERIFY ▖>IN A[A]0▜ 0@> OR  NEW   LET  NEXT  STEP <=!▘ LOAD  CONTINUE  RESTORE  MERGE ?*[C]SCREEN$ "▘ MOVE  LLIST >Y2)[2u[>[Q]2#[X>_@P STOP %2JBE> GO SUB 2COS tTAB %[H][K]ASN  GO SUB Y~ GO SUB Qw#> OUT SGN   POKE  RETURN "( OR >2' OR ! CLS v"<=!FN q LOAD !*▘>k2 GO SUB  AND !SCREEN$ t" DEF FN [H] INK % GO SUB yNOT  LPRINT  INVERSE !9▗▘!G[Q]F VERIFY  DRAW 2[D][L]>t RESTORE ~ INVERSE w LOAD  LIST U OR  GO SUB [Q]STR$ ~▝ RUN [E] MERGE  PAUSE [Q][L]"IN [L] LLIST  VERIFY  RETURN  SAVE  COPY @w'5 STEP [Q] LLIST BIN bk+6o RESTORE  INVERSE 6 RUN  GO SUB sASN [M]▙!,SCREEN$ 6 STEP [H] LLIST "!6W RESTORE  MERGE -- IF o%| NEW  RETURN  } VERIFY  o8| AND g  LLIST ! STEP [H]6NOT ,6",6[Q]1 NEW  AND  COPY k!H!~G MERGE  RESTORE x MERGE  CLEAR G INVERSE  RESTORE  INVERSE %1 MERGE 3 RESTORE  GO SUB S MERGE }POINT o RESTORE " MERGE 3 LLIST  MOVE  MERGE  STEP  IF [P]>|t_ VERIFY 2d[M] MERGE &E AND | RESTORE  +0$ LET  t MERGE 3S1 MERGE 1 DEF FN {!{F} RESTORE -- MERGE [K]GRND INVERSE  RANDOMIZE  MERGE  MERGE   NEW 1U LLIST  CLOSE # AND  INPUT  LOAD "u FORMAT  LOAD  READ  RUN z5 LIST  IF  STEP [Q] RUN  CONTINUE  RESTORE  IF  PLOT  ~ THEN ' THEN ', PLOT  u} AND o RUN 5 LET { NEW u> CLS XEou GO TO  INVERSE &![G][U].![L][U]CODE {ASN  INVERSE -  INPUT  INVERSE %  LPRINT  GO SUB [Q]pj%> COPY F DRAW [O]5**!Ts~`EiFN E LLIST  CLS vO5 LLIST vt[H]TAB  PRINT  LOAD 5 DEF FN {ub+RNDPI*#q#6SQR #6 RESTORE # FOR E LET  FOR BIN % LLIST  RESTORE  GO TO " LLIST =  RUN  INVERSE . GO SUB ! DRAW > FOR s#r# IF   LIST `>=u NEW p▜ THEN 0O!USR  CLS  FOR & PAUSE r$s FOR   LLIST k&sNPIyPIRND& POKE wy NEW $w,  FOR 5 LIST  VERIFY &o8) RESTORE STR$ STR$ DM![H]{ COPY POINT %s$r< PAPER <E6 COPY ~G=w RESTORE INKEY$%e LLIST fek6-w,CHR$ %wE CIRCLE  [C]5k-WQ5- CLS F THEN 5<>CODE G INVERSE  RESTORE /!(▗AT AT  RESTORE ~<(=<(<(J<(L<(s<(R<(b<(#< LLIST #  OUT NOT 9SCREEN$  STEP  BEEP [P]!2[Q]&: RESTORE B GO SUB [Q] GO SUB [Q] LLIST [G]ABS e> MERGE >R  OR 1AT !;[Q]!?[Q] GO SUB VAL  FOR !bG BORDER  RESTORE "E[P]>2}|▖!} X[P] FOR >2h[P]# GO SUB S▘^INKEY$ AND 61# ▗[P]wy2▘[P]#6X#6 MERGE  REM $%>/P$FN $INKEY$[P]>X FOR [H]{o52[D]SCREEN$  RETURN (!oU<>!8POINT  SAVE > VERIFY =CODE  MERGE   LLIST  LLIST "[P]!mPOINT  RESTORE NOT  OVER [O].▚@U<>|% NEW USR  REM  CIRCLE  DIM %<>F#RND DRAW #  PLOT  <> LPRINT SQR  GO SUB s)[Q]ovNOT ▙ INVERSE -tR  INPUT  GO SUB S[Q]<> LET  MOVE BK THEN USR * THEN  CLEAR  MERGE  PRINT  MERGE  RESTORE  OR  PRINT  MERGE  PRINT ,VZ MERGE  RETURN  @ COPY [Q]@ COPY  H CLEAR H DRAW [Q]H CLEAR ▖H DRAW  P CLEAR P DRAW [Q]P COPY  LIST  LIST  RETURN USR @ COPY @H CLEAR (H DRAW USR H CLEAR FN H DRAW @P CLEAR (P DRAW USR  RETURN  LPRINT @ COPY `H CLEAR HH DRAW  LPRINT H CLEAR >=H DRAW `P CLEAR HP DRAW  LPRINT 8 RETURN  LPRINT C COPY `K CLEAR HK DRAW  LPRINT K CLEAR >=K DRAW `S COPY  LPRINT S QH CLEAR hH DRAW I CLEAR  CONTINUE H DRAW P COPY Q COPY  LET  LET  INVERSE  RESTORE O*ASN  PRINT  PRINT  INK  RESTORE  MERGE  GO SUB sSGN t1 CAT Ye1t RESTORE NOT SCREEN$ SQR [J] PRINT tNOT 6o& PLOT  h~ AND  NEW |_$i OR o${▚_$ACS x AND G FOR  INVERSE -CHR$ 6o AND 2) OR $>^o=2_o#o~2;oy2CoNOT k OR  CONTINUE Gz THEN CHR$  MERGE W RESTORE  MERGE  RESTORE 1H MERGE  RESTORE  MERGE  THEN  CLEAR  RESTORE >2 OUT VAL  COPY  LIST ," GO SUB  AND ^$V BEEP h AND >$~ INVERSE g$~$▚ INVERSE o$~ DRAW O OVER NOT  NEW u CLEAR  COPY IN .><=[P]<=<>[H]<>SCREEN$  OR ▘" ▖D0 P@`@P%DSCREEN$ UY/w;_ LOAD Gpxlx|f~|6vp6`px|n%||`<[F]xx`` >`o u@cc©©ccYASN 6>>bgn||~gb )0e>>Bg©©k(uFfv~nff[L] MERGE >6©©8<6<800 2uzl~wc~|ng8~~)%@`fu~<cw6>xe`ck©©s!>>wcBff<(<%(<%8~ OR  p88p ~n/8p`RND0n©3©© k~9 COPY  ,p3[ MERGE [5$LT/%h@▚▞[C][F][I][L][P][S]RNDFN ATTR TAB VAL COS ACS EXP SGN PEEK STR$ BIN  AND <> TO  DEF FN  FORMAT  OPEN # MERGE  CIRCLE  PAPER  BRIGHT  OVER  LPRINT  STOP  DATA  NEW  CONTINUE  REM  FOR  GO SUB  LOAD  LIST  LET  NEXT  POKE  PRINT  RUN  SAVE  RANDOMIZE  IF  IF  CLS  DRAW  CLEAR  CLEAR  RETURN I COPY  RETURN  CLEAR  DRAW ▜ FLASH  MERGE  NEXT  LET  LIST  INPUT  GO SUB  FOR  DIM  CONTINUE  NEW  DATA  STOP  LPRINT  OVER  BRIGHT o READ P ERASE  FORMAT  DEF FN  THEN <> AND NOT STR$ PEEK SQR LN ACS COS VAL TAB SCREEN$ PI[U][R][O][L][I][F][C]▛▖▘©|yvrolifc`]ZWTQNKHFC@=;8630.,)'%#! CLS ;<=j;Kb "$&(+-/247:<?BDGJMPSVY/_behknqtwz~ OR NOT  GO SUB t MERGE  OUT  MERGE ATN  MERGE  COPY  MERGE b RUN  [H]MU  s5xq%ATTR  THEN RND"q%B OR o<▜yo<}=0% COPY =▜  RETURN =N▜yo COPY @▝0%▚} CLEAR <e o DRAW <Ny(0  RETURN @ UACS <N THEN =o h0p@5<N[I]e<N}} [Q]▜y@%▝y5<n(FN x5=n}USR ▝USR VAL  P0@ CIRCLE  LPRINT ( 0@0//..-,+*)'&$#!2 BRIGHT 5 FLASH  INK E GO SUB y  OR [F]!7 NEW NOT  ERASE u INK 1=XPOINT  MERGE NOT SCREEN$ t.@}< RETURN }CHR$ [U]t>SCREEN$ 2[C]t>@2[F]t@gSTR$ [F]0NOT w INPUT  GO SUB ywIN 5 INK  LET  LET w AND 5 INVERSE  LLIST  CLS <>o-5u COPY w OUT U<=©>_![P][ TO E>TAN $HASN  INVERSE ! PLOT  t> INVERSE ^ INVERSE ,H[F]Y!USR USR  OUT ©4= RUN LN e OR  OR  OUT 6©B PAPER zATN O><0>, STEP H[ COPY yASN ©> STEP k[<%_>RND STEP _[ STEP z[STR$  LLIST (w[F]>"2BIN ${ NEW _ EXP <> READ ~# READ  OR O INVERSE !S* STEP e[STR$ <> INVERSE ! LINE ? INVERSE ! RESTORE ?NOT /= RESTORE  OR I COPY  TO LSTR$  LLIST <>* VERIFY / RESTORE CODE 2 VERIFY /![E][ RESTORE ![O][ RESTORE & RESTORE ![J] )ASN  NEXT : VERIFY / LLIST " VERIFY /ATN <> NEXT  COPY [N]U!/ RESTORE © CAT <>o GO TO ▜# GO TO ," VERIFY {n&u DIM !<>SQR  THEN -1 GO SUB  LLIST  GO SUB scu RANDOMIZE >< NEW 2lu GO SUB y▖ LPRINT  INPUT >PEEK (<PEEK (<PEEK  LINE  DATA vWhe# GO TO #"LN un[F]#~_NOT  DEF FN u1 LOAD  COPY  THEN  RESTORE  OVER ! GO SUB "cu VERIFY & LOAD  COPY  INPUT 1 LINE SQR 0M[F]v INVERSE g INVERSE ▗oF ASN N OR NOT ▝[P][J]▝NOT  COPY ▝[J]E COPY NOT ▝[J]▝[J]%NOT  BORDER  COPY  BORDER % COPY ▝▝  BORDER 9 COPY [J]%▝▝ FLASH P+@9%STR$ ▝9 COPY E[P]SL@Z%▝[P]PB@h [@{r[J]@h COPY %▝2[Q]s@^ LPRINT YCOS @`@R sU[J]▞▝▝[B][J] FORMAT ; BORDER U▝▝[P]▜▜[P]0 MERGE 0 CAT BNOT  LLIST BIN t& INPUT > AND  PLOT  2VAL SQR o_<=E, THEN  CLEAR  SAVE G BRIGHT  SAVE ATN z5 COPY T&/v!5/X INK OINKEY$E CLS pG55y< CLS G<U IF  RANDOMIZE  CLS ATN ▟%ATN [D]% IF  RANDOMIZE  CLS  IF  CLS  IF @ RANDOMIZE (5 CLS  IF  RANDOMIZE P  <*0%M>( VERIFY  CLS O2Oo CLS 2go2Ro CLS 2YE2ao CLS eo!f nG NEW U: LPRINT BIN FF9 MERGE 1}V RESTORE RND INK 1 SAVE &~$f.&SGN u RANDOMIZE !POINT bGW CLS .}W GO SUB w NEW W RESTORE > COPY w DATA >W<>=WPOINT E2?SCREEN$ >/WACS >=W OUT ++T]oM RESTORE B FOR ATTR  FOR g[D]u> OR 2ATN AT <> VERIFY ?ASN $$[C][C]SCREEN$ SCREEN$ ASN ASN  FLASH  FLASH  LOAD  LOAD  RUN  RUN eLN (`xh(▞[Q]xiASN Hp[I][Q]``[Q]HxpY5[A][Q]POINT x0▞uh(8Hp[Q][A]`DN8@` MERGE  CIRCLE 8[A]VAL H[Q]>=LN [A][I] CONTINUE Gx+U`X(>=[I]▖ LPRINT  ( (`>=[I]([Q] LPRINT Hp[F]H LPRINT  LIST @p8(9 MERGE `x[A] SAVE  LPRINT pxhFN `[Q]H E FORMAT  LPRINT >=([I]u LPRINT (p[Q]BIN p ACS 5([A] LPRINT  v%HpFN   POKE e[A]([I][I] CIRCLE  ▙  CLS 5[I]VAL (}FN  BEEP l<Y5(USR H[Q]B RANDOMIZE @N i LPRINT J 30CODE  OPEN # RETURN [B]! INPUT  MERGE #~0"0 ~#0 AND G~ DRAW  RESTORE  NEW <G~# IF  PAPER N# RESTORE  MERGE n FOR  NEW W GO SUB Ry NEW  AND G MOVE ~# IF  LLIST SQR @ LLIST xPOINT  NEW  SAVE POINT WPOINT FN _~#z RETURN X  GO TO  GO SUB VAL CODE  FLASH  RETURN / NEW ( SAVE USR  COPY  LLIST CHR$  COPY  COPY  LIST ▝ DATA USR  COPY  RETURN !%USR  READ USR STR$  POKE USR  RETURN  LLIST  LLIST ▘USR  RETURN  LLIST ▘ DATA  RANDOMIZE USR  COPY RNDUSR  READ  REM ▝CHR$  COPY  SAVE  NEXT ▖>=▗@ USR CHR$  DRAW  NEXT USR | DIM DUSR ▘#NOT (D▘USR  RESTORE ▘STR$ SCHR$  RETURN > NEXT "USR B LPRINT -STR$  @USR USR !!!!USR USR !!/:RNDZFUSR USR  PAUSE NOT ▘D( LLIST USR STR$  SAVE /&3 GO SUB ZUSR  LLIST [R]USR  RETURN  DRAW ▘USR  RETURN USR STR$ F3!4( PLOT  USR ▚ PLOT  USR  COPY USR ▙3!?( COPY * BEEP ASN USR  GO SUB USR  GO SUB COS  CLS  DATA USR USR ASN  COPY  POKE USR @ COPY USR  EXP BIN g COPY  LIST  CAT  OR BIN LEN  LIST p PLOT  xFN  LLIST  RUN  PRINT [Q]USR cLN  GO SUB STR$ (T COPY  LIST USR V<=)R▛; STEP 6n NEXT PI TO %M BRIGHT %[I]PEEK [M] LPRINT @USR X INPUT USR A GO SUB  OR CHR$ :IN  LOAD [A]`_SIN  PAUSE NOT  CIRCLE ` COPY  SAVE m PAUSE <=*< COPY * DEF FN  COPY  COPY  RESTORE 3[ PAUSE USR 0/f COPY  RUN  STEP U COPY  COPY  COPY  RETURN [F]M[A]0} AND T8 COPY LN TP DATA  COPY ATTR  LET TAB  COPY  COPY  SAVE s NEXT GI LPRINT USR  COPY  COPY  SAVE  LINE [BUSR  COPY USR  BORDER USR ` CLEAR ▙ LET ?USR gSTR$ BUSR [S]NOT  CAT <NOT ▖!7OSGN pLN  CLOSE #<USR <NOT SCREEN$ USCREEN$ UM MOVE [? RETURN  PAUSE >="▖b@.6<@ CAT J/ OUT © RETURN  IF  CONTINUE [S]▖"<=[S]"[B]COS <NOT AT S TO 3[J]BIN V▖▘ STOP USR  OR USR  ▖ @NOT ▛$CHR$ <STR$ WFN <<> TO 3 STEP 2DVAL [A]USR [Q] INPUT BIN [Q] < AND #▖SIN C'<v AND 2 STEP * OUT * COPY SCREEN$  FLASH  CAT } PAUSE NOT [F]SCREEN$ 2NOT ATTR WINT u<NOT 2 STEP 2 CAT :CHR$ ATTR  RETURN VAL$ u AND 5 CAT _ IF  PRINT  PAPER STR$ WVAL$ <: OR SCREEN$  COPY VAL$  SAVE SIN >=, THEN %K INPUT [ GO TO  POKE FN TCHR$ AT t REM :USR AT vVAL : OR FN VPEEK Z GO TO VAL {IL[S] TO USR @USR   LPRINT [Q] LIST [Q] LIST FN  DRAW [S]: RETURN mSNOT [Q](@ COPY FF?) COPY F CLEAR ;? COPY  COPY  OPEN #C ▘FN aP!c[F]▘[K]V.[H]D"([U]%? BRIGHT  RETURN  BRIGHT ASN [C] CONTINUE [M]VAL  @ LPRINT  LPRINT h,t/ZF2^▗|XLN  LIST USR  BORDER b OR  @/&Oe COPY  COPY  COPY [K] RETURN _ COPY  COPY  POKE [P] OVER  COPY  COPY [R]TAB  BORDER USR bf TO  PLOT   CAT #"BGO[P]j@ BORDER  COPY  RUN  MOVE $(P[R][S]DD▖[A] @@dUSR  COPY D~@ POKE  STEP "H"▖ A▘ 6 BORDER STR$  REM >USR IN  BORDER  COPY z©NOT $B1 CLOSE # OR %J"▝ LIST STR$ >~USR  SAVE kXCHR$ "▖%i>=,3SIN  OUT STR$ :<STR$ %WvCHR$ FN SQ DATA R CONTINUE CHR$  THEN 6 OUT 6INT SGN STR$  RETURN  LIST ><cZ<VVAL$ USR CODE  RESTORE  COPY CHR$  DRAW  SAVE  LPRINT `[E]<d/:UVAL$ USR ATTR <STR$  DRAW  SAVE <[P]<USR S<::$[P]vSTR$ AT sv:USR  RETURN : DIM v:STR$  LIST  LPRINT : GO TO :<:bCHR$  RETURN  SAVE  LIST "_ BRIGHT  REM v:TAB ?▜: BORDER TAB  COPY NOT  DRAW PEEK  RETURN  BORDER  CLS ▝ BORDER ▘ DATA  ? DEF FN  LIST [G](d COPY @DQIN STR$ ]-} FORMAT [N]hD<=~ SAVE `P[Q]@ OR [P]nIN  COPY EXP  OVER 7"_ DATA @<> [S]W REM  COPY &[I]<wP THEN [R][A]A▘)VCODE Z[A]x DRAW <>P,T RETURN T RETURN <IN D LOAD  OR </TAN o[D] COPY $+[`/# IF ©[P] CLEAR  CLEAR k▟ DIM USR  LET USR USR STR$  POKE  PRINT USR  LLIST USR  LOAD USR STR$  LOAD  LET [P][Q] FLASH %USR D_ INVERSE  READ  USR  IF    COPY  COPY  CLS AT  POKE USR  *@^ COPY  COPY  COPY  COPY  COPY  COPY  PRINT  LPRINT !XX COPY u GO SUB VAL NOT { MERGE  STEP ?/ RESTORE  MERGE  OR ><>2AT AT CODE  CLS v< OPEN # RETURN GX!X▜▜▜wxSTR$  OR  GO SUB VAL  RETURN   BORDER CODE  OPEN # RETURN >/2XSTR$  MOVE  LLIST  GO SUB VAL  MOVE !/o[B] STEP [NOT T{ STEP R;;STR$ !j FOR !p MERGE #~0"0 ~#0 AND G~ DRAW  RESTORE  NEW <G~# IF  PAPER N# RESTORE  MERGE n FOR  NEW W GO SUB Ry NEW  AND G MOVE ~# IF  LLIST SQR @ LLIST xPOINT  NEW  SAVE POINT WPOINT FN _~#z RETURN X  GO TO  COPY <> COPY  GO TO STR$  LLIST USR  THEN [Q] FORMAT  SAVE TAN CODE  CAT [B]IN TAN  VERIFY  AND VAL  COPY  GO SUB USR  DATA USR JBIN  LPRINT  DIM l RUN ? COPY  GO TO USR  NEW  COPY <= RETURN ©o COPY  RETURN  RUN SQR  COPY  GO TO  FORMAT  TO  LIST  NEXT  DRAW  DRAW  RETURN  COPY ▜ACS IqUSR USR  COPY  REM BIN 0USR 0USR CHR$ USR USR  LLIST  BORDER  CAT >| SAVE  LIST  NEXT  NEXT x< COPY  DEF FN ▝STR$  LLIST  LET y CLEAR  CLEAR y LET  LLIST STR$ ▝ COPY  GO SUB  AND  BORDER  LOAD  COPY  COPY  RANDOMIZE  LIST  LPRINT  READ  COPY NOT  LOAD  BORDER  READ  LLIST  COPY  PAPER  ERASE USR  LPRINT  LIST  SAVE  SAVE y LET  LPRINT USR ▝NOT  BORDER  NEXT  RANDOMIZE  DRAW ~< COPY  FLASH  LINE G LOAD  RUN  IF  DRAW ~IN  OUT  LOAD <=USR /NOT ?w BORDER  OR { CLS  RANDOMIZE  RANDOMIZE  SAVE  SAVE  READ x READ  SAVE  DRAW <=>} CLS  OUT SQR  READ ▘g CAT USR USR  LPRINT  LPRINT  LIST  LIST yy?? IF  LINE z OUT  COPY  LIST x CLOSE # OVER  PLOT   STOP  POKE  BORDER  THEN ==yy LET  LET  LLIST  LLIST STR$ STR$ ▝▝ STOP  SAVE  TO z BEEP  COPY  COPY  PLOT  m RETURN  MERGE  SAVE ]: BORDER  STOP  LOAD  REM  LLIST  PLOT  <>z MERGE IN  COPY  COPY  READ ▝(= LLIST NOT  CLEAR  CLEAR  DRAW  DRAW  FOR  LPRINT STR$ `  PAUSE  CAT pVAL  CONTINUE  CIRCLE AT T LOAD  VERIFY INT  RUN  RETURN  COPY  RETURN | RETURN © BORDER  RETURN  STOP USR 0dmNOT  @![U] DEF FN ?>}{{© CLS uVAL  BRIGHT IN  CLOSE #© COPY  COPY  BORDER  OR xx LIST  LIST  LPRINT  LPRINT ! CLOSE #COS CHR$ ? COPY  SAVE  OPEN # SAVE  VERIFY  CLEAR  RETURN  CAT ; CLEAR  FOR NOT ATTR  PAUSE  READ  CLS  COPY z AND  DATA  CLEAR  COPY  PAPER CHR$  RETURN  COPY  DEF FN  READ  INVERSE  CLEAR  CLEAR } INVERSE © DRAW  BRIGHT L[M]l▗d DATA STR$  GO SUB ABS NOT  LPRINT SGN  BEEP ~2OUSR PEEK  CAT | COPY  RUN  LOAD  COPY ^CODE ^-> STEP :STR$ H[K] STOP ▝STR$ [J]ABS  LLIST  COPY CHR$  NEXT  LLIST USR  OR  CIRCLE  LPRINT  FORMAT 8 LPRINT [I] POKE  IF }[O]oATN [▛O[H]1p▝_BBIN  LPRINT  LLIST  READ  READ  LLIST NOT  BORDER  LOAD g" LIST STR$ @2PI STEP CEG OVER  GO SUB  OUT ©IN  CLEAR > CAT  FOR  PRINT * FORMAT BIN  OUT  INPUT  POKE  SAVE 1USR O%PI STEP SGN  FOR  PRINT PEEK ©CODE  SAVE  FORMAT VAL p LPRINT [Q]USR  LPRINT S DATA  INPUT  RUN  RUN  LINE USR |ATTR  PRINT  COPY  COPY =/>@h BORDER USR [O] VCHR$  BORDER NOT ▝ LLIST  COPY  OR  DRAW  RETURN IN [P]▜ COPY STR$ [T]m+O▛@BNOT  LLIST  READ <=[D]@NOT  LIST  SAVE  LIST ` RUN ▗ OR ©ATN  CLS  CIRCLE ▖ FORMAT  BORDER C RETURN  STOP  COPY @F DRAW <=@VAL  CIRCLE  GO TO  PLOT  ;▗INT  CLEAR [D] COPY  COPY  COPY  COPY  COPY  LET NOT aOPI NEXT  TO  LINE qABIN c4@ POKE  OUT 0 LPRINT ▝S6 BRIGHT <yCF LPRINT |&NOT  OR u OVER rINKEY$ DIM  OUT }[▜' PAUSE dk LET  LET  OVER  RUN  VERIFY  LOAD  COPY w©n DEF FN  RANDOMIZE ;v GO TO  COPY  BEEP  RUN  GO SUB  OVER  RUN  FOR  COPY INT IN  OUT  RUN  PRINT  NEXT  INVERSE  RETURN  COPY INKEY$▖SCREEN$ mAT m[T] PRINT [I]Q▗CHR$ [S]EXP  IF [E] INPUT  OUT ATN >FN ASN  RANDOMIZE TAB  PAUSE  CLS  OUT TAB IN / COPY  RESTORE yIN  LET ©<=IN  OPEN #g[N]; GO TO  MOVE [J] LINE STR$  MERGE  CLS  OVER  FLASH  BRIGHT h GO SUB  OUT CHR$  STEP  PLOT   OPEN #g COPY { LOAD  FLASH  LOAD IN © CLEAR ~ RUN {=_E"U[I]EXP  LOAD ATN  STEP xCODE  COPY USR  RETURN @ OUT V| STOP  CLEAR  LPRINT F@D[S]VUSR PqA CONTINUE RTCHR$ t<|x PRINT  LINE  DATA  INVERSE  RETURN LEN LN  RETURN k▜ INPUT u MERGE Pu OUT  INPUT ~ COPY O COPY ?DQ[E] FLASH `[J] GO TO w OVER  OPEN # COPY ;NOT BTDGLEN G OUT &LEN Em/X5c INVERSE AD[B][A]@G LET  LOAD  PRINT  COPY IN IN  COPY CHR$ CODE  OUT  RETURN  LLIST  COPY  THEN om FORMAT D[B]BIN g CLOSE # COPY  INVERSE  RANDOMIZE  C OUT @[Q]@0USR USR  FORMAT  LPRINT [Q]P FORMAT [A]P FORMAT ▖hx( TO DSIN [E]n INVERSE :STR$ NPI BRIGHT  STOP  RUN  LET  OUT ;PEEK  COPY  READ [E]© RUN  COPY © RETURN ~ OUT © COPY o CAT v1 POKE  CLS  CLEAR  OUT USR  POKE >=~V RANDOMIZE  CAT  MOVE BIN [B] OR [L]eCOS  AND A@Y[E] LET SQR  COPY © COPY SGN  SAVE c▙INT USR o COPY >=@ PRINT lJTAN @0[N] ERASE G?© INVERSE {PI CLEAR f OR [U] FOR ] PRINT >LEN ©}G}CHR$ 8`?<NOT ▜ CAT _?P FOR >= RETURN  COPY  DRAW  IF  DRAW  LIST  NEXT  INPUT  RETURN `;>= OPEN # POKE  LET ▗J COPY  COPY CODE  GBIN <x LPRINT pNOT ~ DRAW  DRAW  SAVE `▝ FOR  VERIFY `[A][D] BRIGHT ©IN  PAPER  DEF FN IN  POKE  MOVE |:© CONTINUE STR$ INT U GO TO  SAVE ;8STR$ <A5 TO  CAT VAL ~IN  RANDOMIZE  MERGE  REM APOINT  BEEP  BEEP  COPY +WIN fUSR <=8p`5STR$ [Q]4 LLIST ▙NOT ??©<>USR  COPY @ NEW  COPY STR$  CONTINUE p COPY ! RESTORE  COPY  NEW  STOP NOT 00ppATN  GO TO  LPRINT  LLIST USR  AND  LPRINT  PAUSE  RETURN  POKE  OVER  DRAW  POKE  LLIST  BORDER  MOVE  TO  OVER  LIST  SAVE  FORMAT USR ` LPRINT  INK O VERIFY k OUT  COPY  COPY  CLEAR  RETURN  RETURN  COPY CHR$  MOVE  PAPER 9 CONTINUE [K]0aNOT ▚VAL `[Q]VAL  CIRCLE  NEW ©~©Q AND o/u{<>LN  LPRINT  OUT  PLOT  % LLIST CHR$ USR ▘ LLIST STR$ p CAT  COPY ©IN WCODE  MERGE  FOR  PRINT  IF ©?] NEXT  OUT 0@LEN ▗ VAL  BRIGHT @STR$ #O+2j *-I READ nCHR$ [N]f▙ DATA  COPY <>©IN  FLASH ~CODE  BEEP  FOR  CLEAR ~▞NOT H[T] INVERSE  MERGE <X[Q]H FORMAT  LPRINT @` [Q][Q]VAL (>=LN VAL   LLIST [Q]USR BIN  CONTINUE  COPY >= REM  LLIST  LIST  LET  CLS  RETURN  CLEAR ?QINKEY$<=,P LPRINT USR  LLIST @ REM [Q]>= SAVE  GO SUB  PAPER  PRINT  REM  MERGE ATTR VLN + OR  NEW ▝STR$  <> NEXT  DEF FN <> SAVE  RESTORE USCREEN$ UATTR _SGN povSTR$ 0[B]'USR tBIN WVAL$ /SGN xoy GO SUB  VERIFY FVM07 FLASH  ,[A]1 COPY >= BEEP [A]& SAVE [A]▛SGN VAL$ [F]%[P] MOVE LP[O] VERIFY bASN  CLS POINT USR  4NOT USR @h TO "7B%VP▘▗ RETURN  THEN USR @``P088<[S][C]G LLIST CODE  STEP A POKE >=▝[Q]3STR$ N+PVAL P[Q]SBIN  SAVE  SAVE  DRAW  DRAW  RETURN 20 LLIST © STOP ? STOP 0/<=/W<= BORDER C;,INT 7STR$ pp%Q AND STR$  STOP  RESTORE  DRAW  LET  DRAW  RANDOMIZE [Q] DIM 8▝BIN [Q] FORMAT  GO TO 6[A][M] LIST 2▝USR  SAVE }y BEEP  COPY _ OUT O RUN g#gki'/^A▘ LPRINT STR$  FORMAT  LIST  LLIST  LIST  FORMAT CHR$  LIST (E0? STEP <0 AND [Q]USR [D]BIN  INK  DATA  LIST  PRINT  RANDOMIZE  DRAW `p$ LIST <= COPY ©?IN /_[L]INT r FLASH g[L]VAL$ D3&vCODE ▗OEaI POKE  INK  LOAD  POKE  PAUSE L[P]fINT  OUT  COPY x RETURN _ INK  INPUT /][M] CIRCLE BIN  LLIST 6 PRINT  PLOT   NEXT TAB y RESTORE  FLASH 2 MOVE GqT=FT)<>J~ NEXT  THEN hATN  PRINT _©P[Q] LIST ) OUT nIN  BORDER STR$ L[N])nSTR$ ym[O]D[F]t MERGE B S5 ERASE Du}oj5W7D[J]▙Q~ NEXT PI[N]Wx[O][Q] OUT  COPY  COPY  OUT  CLEAR  DRAW  CLEAR  VERIFY  LET BIN  MERGE ▗q GO SUB  ERASE  RUN ]▟VAL DGG IF  BORDER [N]^ BORDER 6 LIST (ATTR  OUT SQR _© CLEAR  DATA D MOVE -▗USR [F] BRIGHT 1SGN EXP  PLOT   OPEN #[H]<=b CLS (ACS  IF IN © DRAW  COPY  SAVE  BRIGHT wt RANDOMIZE  PAUSE `kwe[M]▜^ OUT Q COPY }g%WO]_`p AND ,;?] CLEAR ©PEEK 4USR =` IF  OR ] OUT ©~}LN  LLIST y OUT :}^~©_0 TAB ©C<=FBIN  SAVE  LPRINT  SAVE  SAVE  MOVE  NEW <= BRIGHT [P] COPY <= COPY ~ COPY  COPY  RUN IN  RETURN ©IN  OUT  COPY  CAT  RUN IN  PLOT  © COPY  LOAD O[L]lIN  RUN <=O5f^]IN USQR 5 PRINT  RETURN [J] COPY ?L OUT !▙ NEXT  CLEAR  RETURN  GO TO [Q][S]}<= PRINT  CLEAR  NEW  RANDOMIZE  CAT  NEXT D{ OUT  INVERSE  COPY  CLEAR  DRAW © CLEAR W DRAW  PRINT STR$  GO SUB  LOAD  LLIST  COPY  BEEP  CLEAR  CLS IN  LOAD  GO SUB  RUN  CLS  LINE w AND }| CLS CODE ?[O]CHR$  NEXT  LLIST  DRAW  RETURN ©w READ  COPY  ERASE  LPRINT  LPRINT  }STR$  COPY  NEW OVAL$ _ DRAW ;EXP  BEEP  COPY 4 TO  INPUT ? VERIFY  OUT  CLEAR  INPUT  LET /© BORDER  CLS  CLEAR p COPY USR  NEXT  LLIST  COPY  OUT ~[O]<oo[P]M4^ LET  COPY [K][O] COPY v RUN  RUN  FLASH  CLEAR  POKE  CLEAR  COPY ©RND? COPY USR s AND ^qE BEEP  BORDER 3{P INVERSE STR$  COPY  CAT 0>=©w CLEAR POINT  DATA Q CLOSE # MERGE  DRAW  FORMAT  DRAW  DRAW  LET  READ  STOP  GO TO o?zd<>_/▜ THEN '[Q] LOAD  OR CODE {xIN  RETURN  CLS  OUT  RETURN  SAVE  CLEAR  RETURN  LET IN  RUN IN  INVERSE LN  CLEAR SCREEN$ wACS  CLEAR  SAVE  COPY  RETURN  RUN  COPY  DRAW  CLS tX CAT '©g COPY  MERGE M IF  RUN  RETURN  RETURN `Gg RUN '?ASN  NEXT uIN  OUT  LPRINT  LLIST  COPY NOT O LLIST  FLASH  PAPER  OVER USR  POKE  INPUT  COPY CODE ©IN  COPY  READ © REM © RUN  NEXT  PLOT   CLEAR INT ▝ CLS w; DRAW wN ERASE ©? READ  GO SUB INT G REM  BORDER  MERGE SQR  BEEP VAL$  PRINT  CAT © FOR A CLEAR NOT  CLEAR  PLOT   BRIGHT  OVER PI INVERSE  LOAD FCFN  POKE  REM  COPY  INK  VERIFY  REM  BORDER ATN _ GO SUB VAL$ ATN =[H] GO SUB |PEEK ? COPY  LLIST © DEF FN ▝8[M] DEF FN  STOP  FORMAT  SAVE  BEEP  COPY © PAPER  BRIGHT EXP NOT "8CHR$  SAVE  DRAW USR P8 LINE sCODE WT*P SAVE p[P] ERASE  OUT o LOAD [B].[M] COPY _ATN  CLS  COPY  RUN  COPY  CLEAR  INPUT  COPY © DATA h INK ©EXP  NEXT  IF z RESTORE  NEXT  RANDOMIZE ABS  IF  PLOT  ATN IN y COPY  BEEP ATN ATN ATTR USTR$  PAPER  INVERSE  RUN i`(COS  DIM < CLS  COPY  CAT  COPY IN ]ATTR  OUT  LOAD  CLEAR  STOP  COPY  CLOSE # LOAD ?▞TFN gs9INT INT LN LN INT = CLS  RUN  DEF FN  BRIGHT EXP s BORDER  COPY USR }m ERASE  INVERSE ?CODE M COPY =STR$ 7▛ LIST  OR  IF SQR  ERASE  RESTORE  LINE `<= LOAD © COPY  RUN _STR$  GO TO HBIN  COPY IN SQR  BEEP  OUT q BRIGHT USR ; LET  COPY  AND ; BORDER  FOR  RUN [A]/=r NEW  LINE [L]VSQR Uk BEEP  GO TO  LPRINT  INPUT USR ▙F OUT  CLS  LOAD  RUN |©oc FOR  RANDOMIZE  LLIST  RANDOMIZE  SAVE  DRAW  VERIFY  RANDOMIZE Q CLS  LIST  GO SUB  SAVE  RETURN  OUT +!VAL$ u[S]5 OUT =*=VAL$ &"[U]▙ PAPER [H] COPY  RUN O CAT  DRAW  COPY  COPY ` BORDER ?WCODE W# BORDER  OUT NOT ▝COS  BORDER ABS <[N] TO  NEW  READ  LIST uyy LET  RANDOMIZE y RANDOMIZE [P] DRAW 6/[P]byABS  MERGE O BEEP h MERGE  LOAD ©n©SQR E NEW INT  NEW  LOAD ©IN  CIRCLE  INPUT  COPY RND THEN  BORDER  NEXT  RANDOMIZE  OVER  COPY W COPY  LIST  RETURN  INK }U ERASE {SGN _no/ OR  READ  FOR  READ G LIST   FOR  RUN  COPY P6 ERASE LN X| BEEP  IF ? PAPER >= GO SUB  POKE  IF y?PEEK  PLOT  [A]LEN /VAL$ [Q]kCHR$ ? BRIGHT  ]USR  INVERSE q[T] INK  OUT  OUT ©<PEEK [K][U]▙PI+v INPUT  OUT  COPY _ COPY ?l}[C]SGN aSTR$ @▛ PAPER USR `[P]A.▜PEEK  OVER  IF ASN © PLOT   COPY  POKE  LIST I COPY _ RANDOMIZE Y CLS y CLS  FLASH  RUN  RUN  TO  COPY  PRINT  COPY  RUN ©x{z CLS  SAVE  COPY  SAVE  CLS USR  COPY u▟CHR$  BORDER ABS p* VERIFY 4 COPY [P] LOAD ▚K SAVE <= INVERSE  COPY ▛ATN © CLEAR  COPY w COPY © LOAD W DIM NOT  RUN  COPY w_ NEW  COPY  LINE C PAPER FZZ COPY  FLASH [NOT {<=[F]@ OUT [A]"} FORMAT  PRINT  RETURN  REM  PRINT [O] STEP  NEXT  PLOT  /]IN [F] CAT <= RUN  CAT  COPY  LOAD  CLS  RUN  OR  LOAD  OUT  CAT  CLEAR IN  OUT !QBIN  VERIFY  BEEP  BEEP [K]USR [R] LLIST  PAPER [H] RETURN lx LIST [ BEEP  MERGE yg[T]gp<▟ OUT _ LOAD w FOR STR$  NEXT  LOAD @CCHR$  FLASH  RUN ] STOP  COPY STR$  CLEAR  CLS  LLIST  COPY  TO ASN ASN ASN ASN  COPY NOT  OVER CHR$  IF CHR$  COPY S▝ BRIGHT USR [K].[I]pSTR$ g LET  TO  INVERSE VW LET  BRIGHT  RANDOMIZE TAN W▘▟ DEF FN  NEXT  OPEN # CLEAR u CLEAR  CLEAR BIN  CLS  PRINT  COPY  OUT  COPY < STOP  COPY >={x© COPY  ERASE ▚ OUT STR$  SAVE ?{ BEEP ?GfJ LET 6[J]' INPUT |f INK STR$  OUT  RUN % LLIST AUSR  RUN STR$  COPY uqSTR$  COPY } STOP © LINE  LOAD [U]; DRAW INT ASN vEXP E[S] OUT A3 CLOSE # PLOT   LOAD BIN Q DATA  COPY  LET EXP  LOAD  OPEN #ABS  LOAD  BRIGHT  MERGE  CLS  INPUT  FLASH ^©G SAVE 9CHR$ U OUT  RUN "N0 MOVE STR$  LOAD  GO SUB "[S] OUT  PRINT  COPY f GO TO SGN IN ~ CLEAR © CLEAR  DRAW  RANDOMIZE  RUN  LIST BIN u[M]G2v[P] PRINT [D] PRINT m,[P] FLASH  FLASH o1SCREEN$ v OUT  OUT  RUN  RUN  DRAW t RANDOMIZE  CLS  RANDOMIZE  PRINT  PRINT  LIST  PAUSE  LET  NEXT  MERGE  RUN ypv COPY :v LOAD  RETURN  RUN o OUT  LOAD f_ INK >=}BIN B BORDER o]2 INPUT PSTR$  OUT  GO SUB TAB  CLOSE #© CLS [P] INK  INVERSE  COPY  LOAD  RETURN CODE  THEN  COPY  ERASE  CLEAR © CLS g BORDER gO CAT  OVER  LLIST ▙ OUT [O]<[O]PEEK  DEF FN  STEP  BORDER [P]ATN [ COPY <=Y[L]PI COPY SQR  AND  OUT  OVER ©<= OVER  COPY  MOVE  BORDER ; BEEP  OUT  OUT [H]N? GO SUB  OVER v LOAD <? LPRINT < SAVE  COPY  OR gd LINE EXP w CONTINUE  POKE  DIM  THEN  REM  BORDER SQR ?w©} COPY  BEEP  LINE W[P]?ABS ?[N]/▞▟ FORMAT  BORDER  COPY  OUT ©©IN IN © LOAD IN SGN T LOAD  ERASE  TO SIN E OUT c▝! AND ▗Q[D]oCOS ©> POKE  IF  BEEP  RUN IN N REM x INK  RANDOMIZE  DIM  DRAW  OUT  OUT  RUN  RETURN ~IN 5 BEEP W▜ MOVE  LIST  SAVE ? RETURN pJ0f BORDER  COPY  OUT ▖3 COPY  LOAD  OPEN #p CLS 7 FOR  FLASH  OVER  RANDOMIZE s PAUSE  BORDER [P] COPY © CLS  CLEAR  IF  GO TO t CLOSE # CLS  GO SUB h[R] OUT [O] CIRCLE  DIM  RETURN OPI PRINT  COPY STR$  STOP  SAVE ?wOU@ho[J] DATA ~X FLASH  OUT o|CHR$ CHR$ ▝ CONTINUE 1iINKEY$G PLOT  <> LET VAL$ w COPY  BORDER  CAT [O]*y IF 4 LOAD IN q READ [T]p PLOT  j} STEP LN  COPY ]' FOR  CLEAR  VERIFY  CLS / COPY _ IF _PSTR$  STOP  COPY  OUT ow; GO SUB o PLOT  ySGN  COPY 8 LPRINT  CLS  STOP AT  BEEP y[N]T7 OVER D.}USR [N]>= LLIST  READ 0&▗Y LPRINT <=?[D]< COPY =© COPY  DATA  RETURN  DRAW  CLS ▝ CAT  OUT ` SAVE f; PLOT  +@▗u NEXT  RETURN ~7NOT LEN SGN  OVER W>[N]]]'/'C▖ OUT l DRAW ©R VERIFY xVAL [K]}u[P]ABS  RETURN  OUT  LIST  DATA ATTR 7IN  COPY  RUN  RUN  RETURN  RUN ASN TAB  INVERSE [ COPY [P] OUT  RETURN IN d7 COPY O CLS IN  POKE :POINT ▜m3 NEXT RND BEEP  FOR <=9[P] CAT  RUN  NEXT ATN i PRINT  RETURN PEEK  OUT  OVER G/SQR VPI NEW ▙SQR  INVERSE  LOAD { OVER  SAVE C READ  STEP  IF  LLIST  BORDER  COPY ABS  COPY [ CLEAR CODE  PAPER  OUT m COPY  CLEAR 7▙ BORDER  GO SUB 3▟ LPRINT 4[G][P] BEEP ©SQR  COPY VAL$  LOAD  BORDER  CLS  LOAD IN Z DEF FN  LOAD . NEW  PRINT _ BEEP PEEK [G] CIRCLE  CIRCLE s CLEAR [F]▜{INKEY$rAT 9 CLS  VERIFY [M] STEP [D]EXP  POKE ~ STOP ( PLOT  ) LLIST * READ ( PLOT  )    ! LLIST ( RESTORE * RUN ( USR  CHR$  (( NEW ( RESTORE   CONTINUE (USR  LLIST (STR$  REM (USR  USR *a[T]QASN y F FLASH [A] POKE  RESTORE * CONTINUE  USR :USR " CONTINUE  USR  CONTINUE STR$ *9>CHR$ " "! AND   "::[U]NSTR$   RESTORE STR$    LLIST :G"USR   ! NEW  LLIST USR :POINT !USR 8sUSR : GO TO USR E DIM   DIM  STOP 0f"CHR$ 8 8USR 88USR 8!]A @  LLIST 0*@x LPRINT USR USR USR [Q] FORMAT  SAVE TAN CODE  CAT [B]IN TAN  VERIFY  AND VAL ©©USR IN STR$  OUT STR$  LOAD STR$  RUN USR  CLS STR$  CLEAR STR$  RETURN  FORMAT  COPY ▞©?_/PICOS SQR ABS  OVER 3▜ FLASH  GO SUB  INPUT  DEF FN  COPY  COPY  BEEP  COPY STR$ ©h^USR  IF ▘ CLEAR  CLEAR IIN [P] CAT  BORDER  LIST  TO ©CHR$ IN ▗SQR EXP ACS ATN USR CODE [N][N]INT INT  CLS [E][L][S]FN QH[E]▘USR ?©05: AND  OUT [C]ooCODE  DEF FN  INPUT  RETURN  CLEAR  CLEAR }}{SQR SQR ATN  BEEP  BEEP  LOAD  LOAD h DEF FN ▘ DRAW  LPRINT ▘ COPY  REM  CLEAR  DRAW  CLEAR STR$  CLS  COPY ▚ BORDER  LOAD  LOAD  CAT  CAT <=USR ATN [D]w{{ CLS  RUN  FOR  FOR  BRIGHT PEEK PEEK ©wvvw{EXP ASN ACS `E READ  DRAW !▘x{:}}ABS 9▝STR$ ABS ▝ _▜}▛ STOP  CLS  PRINT [F]fPINT !M▚ LET  COPY  CLS  SAVE rBIN {NOT  CLS ▖ RANDOMIZE  RANDOMIZE  IF  IF  SAVE  COPY  COPY [C]▛ LPRINT  COPY / PLOT   MOVE  RUN + RESTORE y▙[P] RETURN  LLIST  LINE ▘ NEXT  LOAD !? OUT  LOAD  PAUSE [I]W[A] RUN  NEXT  RESTORE  INPUT  OVER  OUT IN w RUN ATN COS SM GO SUB  GO SUB y OPEN # COPY  COPY ? CAT  LET  RETURN  RETURN  DRAW  LET  FOR  FLASH ATN  DRAW ▚ATN ▜sy|~ CLEAR  NEXT a OR _ MOVE  COPY  LPRINT © SAVE  BORDER @©gLN ©[P] LPRINT CHR$  RUN >= CLS R▝ DRAW  RUN zS▜? CAT  RUN ; STEP  PLOT   IF u CLEAR  CLS  IF  PLOT   STEP ; RUN  CAT  CAT  BEEP  FOR  GO SUB  INPUT  INPUT (E[A]▚ NEXT  LOAD [P]© COPY  RANDOMIZE USR  LIST ▝ DRAW [G]*▚ CLS  COPY  COPY  RUN  NEXT  NEXT SGN SQR LN ▚oo__??j DRAW  IF  IF  FORMAT {ATN  BEEP  BORDER  RUN '▟ CLEAR  REM  MERGE SCREEN$ U REM  LIST J INK ▝ LIST USR wSTR$ ATN USR  BEEP  DRAW ;STR$ ~▖IN IN SGN SQR <= INVERSE  IF  PRINT <VAL$ WATTR USCREEN$ }VAL$ WSCREEN$ W+STR$  LIST  CLS ▗ COPY  COPY ATTR U COPY ▗ LIST  RUN  RUN  LIST   ©© IF  OUT INT uSCREEN$ UCODE ] IF USCREEN$ WPEEK  INVERSE  IF U INPUT }SCREEN$  MERGE ; LPRINT D▝m COPY  RETURN  COPY t▝=▝}[M]CODE _IN  MERGE VAL$ U FOR  PRINT VAL$ WINT U LOAD  MERGE SCREEN$ } FOR UVAL$ U REM  FLASH LEN QLEN JUSR ▗USR  CLS  LET +[T]+▚5>= LOAD !© CLS  COPY CODE  PRINT PEEK _SQR  OUT  CLS ~▞_SCREEN$  BEEP  RETURN _SCREEN$ U;USR ▝CM# AND ▝ LPRINT ▗ INPUT  GO SUB  GO SUB  FOR CHR$  REM ▜ FOR  GO SUB  GO SUB  INPUT ©IN [A]© RETURN  COPY IN w INPUT  CLEAR SQR  OUT  RETURN  RUN AT p▝| COPY  IF  PRINT 3y▚ LIST  CAT LN g OUT FN $▝ CAT ▙© COPY _ CLS  RUN  IF w GO TO  CIRCLE VAL @+ AND ▘IN _lc▘ BORDER ▝CHR$  RETURN ▝ BORDER  STOP ▝ NEXT USR ▘PI▘ RANDOMIZE  RANDOMIZE 3 STEP  OR  CLEAR  SAVE  NEXT USR SQR ▗ABS ABS }}|<= OPEN # COPY ▝ LINE  CLS ~@T# RUN  RUN  IF 0t▗ COPY  DRAW  READ "E TO  RUN ABS ], FLASH ▝ OUT <=LN ▝ LET COS 4 STEP ▝%zACS >= COPY ▝~-▗~PEEK PEEK SGN STR$ PEEK ▗ABS ABS [N] RESTORE  PAUSE ▘ SAVE <=~}[P]BIN  RETURN ▝|STR$ }▝|: {▘ LIST <=x▗ RETURN  RANDOMIZE  BORDER  OR JCHR$  OVER USR  INPUT ▝PEEK IN IN ASN 5 PRINT  COPY  IF  IF  OUT  INVERSE  INVERSE  CLEAR  CLEAR  INVERSE  INVERSE  MERGE U_ LPRINT ▟ DRAW  NEXT  CAT 8▝h CLEAR 1▖ PLOT   PLOT  v}} CLEAR G POKE Vel▝▜▞ RUN  LOAD  OUT ebTAN "CHR$ ooVAL$ VAL$ IN USR  INVERSE ▝ COPY PI`r DATA  COPY {▝PEEK  VERIFY  COPY  IF z}©©{z RANDOMIZE S CLEAR  BRIGHT  COPY ▘ LOAD [P]/SCREEN$ SCREEN$ PEEK  LLIST  NEXT  GO TO  COPY IN IN  COPY NOT ^▘ DRAW  CLS 4▝© LOAD  GO SUB  COPY  RETURN  CLEAR s[S]JA READ  COPY  RETURN  SAVE  PLOT   DEF FN ABS } RANDOMIZE  PRINT  STEP ABS j LOAD ▝/5SCREEN$ 2x REM  COPY ▘}PEEK q BEEP LEN  OR  COPY 7<= OUT  OUT  BRIGHT  CLS  AND IN 7 LLIST RNDL▝ RUN  OR ▝©SIN ▘ NEXT  CLEAR VAL$ ▝[P]V[P]▘<= LET ~ SAVE  MOVE  COPY ©IN  CAT  RUN  RANDOMIZE #▗? OUT  BORDER  CLS R&▗© READ  SAVE ~z COPY  RETURN  CLEAR  CLS  RUN O DEF FN N5]USR USR USR ▘ STOP  READ  DEF FN ;SQR ©[G]X▛ INK ▝USR TAB [I]©?USR  LIST  SAVE  DRAW  RETURN  DRAW  SAVE  LIST  LIST  LPRINT USR USR ?<=l©▘ OUT  BORDER ▚ INK ▘ RETURN /7[A]▙ COPY  COPY ©< A0{{BIN  COPY ▝ / LPRINT WSIN CHR$ @ / COPY ?STR$ }$ VERIFY ▝ LPRINT BIN  COPY ▝ MERGE STR$  COPY ▝ LIST  LINE BIN  COPY (jx( OUT ▝▘ SAVE  THEN ▟ RUN  PLOT   RUN  PRINT  RETURN  IF  RETURN  IF =NOT  CLEAR  RETURN  CLEAR }SCREEN$ @▚©▜ SAVE  COPY  RETURN USR  STEP ▝ RETURN  LLIST [H]~??▜ LPRINT XVAL$ USCREEN$  MERGE  REM  PRINT  IF  CLEAR  COPY  CLEAR  IF  IF  CLS  IF  OR  RANDOMIZE  IF  PLOT   INPUT  INPUT 0 DRAW ©[P]h?TAB INT UINT UINT UCODE  DRAW ▙p[N] REM UATTR WSCREEN$ ]PEEK uVAL$  MERGE CODE ] REM ]SCREEN$ ASN VAL$  MERGE  OVER  BEEP  REM ojuwSQR ATTR SQR ATTR ▞+;+[kWwWwWw{SQR  COPY U[G] LET CHR$ c▚j MERGE ATTR UATTR  PLOT  SQR VSQR VATTR USCREEN$ USCREEN$ [I]SCREEN$  INVERSE  INPUT U REM WVAL$  OUT VAL$  OUT PEEK WPEEK UPEEK  INVERSE f▖▖BIN BIN  NEW  NEW  DATA STR$  NEW [M] STOP USR ▙?[ASN n FLASH ASN n OUT VAL$  FLASH IN {IN {IN { COPY { INPUT [ASN  REM ATN  REM  BEEP FWVAL$ w FOR _ CLS  PRINT  COPY  RUN VAL$  RUN VAL$  COPY Q@STR$  1q{{ COPY USR w▘vbUSR "LN ©?CLEN >=dCOS  CIRCLE |IN nASN  OUT ATN  OUT CODE  FLASH  GO SUB  OVER  LOAD _ASN  FOR ATN  REM wSQR  INVERSE SCREEN$ _CODE w COPY wSQR }SQR }INT } RETURN  MERGE  RETURN  RUN H▘▚▗ TO  INVERSE  INVERSE ©USR v▝fUSR &[L]$ FOR  PRINT  LOAD  PRINT  FOR uUSR 0PEEK  COPY  IF  COPY IN  OUT ~ COPY IN  GO SUB  RUN  PRINT [E]ATTR CODE  LOAD © BEEP ]PEEK  INPUT  REM  PRINT  CLEAR  PRINT  COPY  CLS SQR { FLASH = CLEAR  ERASE `}©{CODE _ LOAD _CODE _IN  RETURN 8<USR 5 COPY  OUT  CLS o▛ CLEAR  PRINT  FOR  FOR  IF  PAPER  VERIFY  BEEP SIN ASN INKEY$USR o▝ LOAD $ABS  REM  MERGE  REM  MERGE ([K] PRINT  CLEAR  GO SUB  CLEAR  MERGE  CAT ▛? DRAW R CAT LN USR USR 0USR  LPRINT  OUT [U]▜x▜/ DRAW ▜ CLEAR ▟▟(H AND [B]USR 2<>: NEW ▖0 LIST `g▝VAL$  COPY  RETURN  COPY  PRINT ATTR /VAL PCOS ][H]▘WAT (UATTR V'H▚ BORDER }▞x LET ▘▝)▝ READ  POKE [H]< CLOSE #AT TAT TFN pUSR : VERIFY SCREEN$ VSCREEN$ VSCREEN$ TLN `7 READ [O]A OUT ? DIM IN <COS COS ▝ LIST #INT R FORMAT  OR  COPY ▗|O= CAT ▘ RETURN  RANDOMIZE ' LLIST ▘ DRAW  NEXT C SAVE pD??[P]<= READ P▝ SAVE 0▗ COPY  DRAW  READ [P]a▗ DRAW  READ ©e▝©hDNOT  COPY ▘©©# FOR ▘ RETURN  LET / INK  SAVE  BORDER 0SQR ][K]▝© OR ▘ ▛<= COPY ▗ LPRINT  SAVE  BORDER (y▝ NEXT F@[S]]7[R]??[Q]@3 PEEK $[O]m DIM &/ AND  COPY Kb▘ RETURN  RANDOMIZE  AND  COPY P©xG▝ LOAD  COPY  COPY  COPY  RETURN  LET ©^© INPUT ▘ RANDOMIZE  RUN ©▜STR$  COPY hO COPY  COPY  DEF FN  COPY ▝ RETURN |▝[P]NOT NOT  LOAD NOT  OUT ▗IN [P][T]SGN i▝?}'b INK ' INPUT ,'[E]x OVER  LET  COPY ▘ CLEAR  COPY  TO  OPEN # COPY ▝ LPRINT OUSR  LPRINT pGINKEY$▘USR xG LINE  COPY ▗?▗@p|©SQR  VERIFY  COPY ??©©u LIST ~ LPRINT  VERIFY  COPY ▘ RETURN  RETURN STR$  DRAW ▖<USR  POKE  CLS USR  SAVE ▚ LIST  LIST pVAL  FORMAT  LPRINT  OR  LIST ▘▘ SAVE  BORDER  CLOSE # LPRINT N CAT ▘ LPRINT C[L]cINKEY$▘USR 8C OUT &@0S FOR ▘USR > IF ▗pUSR  P-▘ LPRINT  OUT ▗`STR$ STR$  LLIST USR ▞▘▗D$+IN VAL  RANDOMIZE @ NOT ▗  !A_d▗<"BAUSR oxP<=9d @@)▗▝Osv▟5[G[Q][Q]`` MERGE ▖> CLEAR SCREEN$ 5*5*▘ IF  PRINT CODE  PRINT VAL$ © PRINT _ FOR 5.▝w TO VAL$ X LPRINT ▝▜[F][K][F][K][H]▚ THEN  LPRINT [F] VERIFY xAT _ LOAD u LOAD  MERGE IN  INVERSE zTAB WSCREEN$ UINT c▘▘[H][K]uSCREEN$ U INVERSE ABS  VERIFY VAL$  MERGE jASN k PRINT [K]cVAL PVAL P [D]`aLEN  LET  CLEAR IN  BEEP  IF ©IN _INT  RUN ^ATN S`"▘P STOP USR CHR$ ▘oINT  [C]SCREEN$  MERGE o:5jUk MERGE ATTR  VERIFY SCREEN$ T8p CIRCLE FN 2▜AT WSCREEN$  MERGE  REM  CLEAR  COPY l▙ RUN ATTR  PRINT  COPY =STR$ ![C] PAPER }ATTR UCODE WCODE WIN { STEP  LINE ▟▚7▝UjUATTR  MERGE  SAVE x▖wPEEK w FOR  PRINT ©▝:vSTR$ $▖[E] CLEAR  BEEP IN ] INPUT _ COPY COS ▟©[T]`STR$ G▟ LINE M LINE M0j▝ LINE ABS  RETURN  COPY  OUT  COPY © COPY U LOAD u*▟[B]{;?/OCODE oIN ©IN  OVER  RETURN  DRAW  SAVE  LLIST <=©..▟LN  LPRINT  LIST  INPUT  CLEAR IN  RUN PEEK  OUT CODE u FOR ▞ REM  PRINT  REM  PRINT  REM  MERGE ATTR [O]CODE uATTR UATTR USCREEN$ /VAL USR '$▚AT pCHR$ ; MERGE <. GO TO [B] LIST  BRIGHT  CLS  COPY  LOAD  COPY  RETURN  OUT CODE  MERGE :▟▛▚^▚(@▝jJ}p GO TO  RUN  RETURN  BEEP F▘uIN ▗]LEN a[R]cVAL$ USR VAL$ s[S]c[S]a[R]a[Q]`[Q]`[Q]`USR rPEEK r LPRINT  BRIGHT  COPY  CLEAR IN © IF 4 GO TO [U]FN ▗FN XFN X STOP VAT xZSCREEN$ ▘STAB  SAVE  BEEP  RETURN  OUT ▘Y▗``[Q][Q]BIN  k[G][O]▝CHR$  COPY  COPY  RANDOMIZE ▘STR$ USR STR$  AND ▝▝Q5e MOVE  COPY  INK g▙STR$ ©STR$ ?STR$ o(p<> COPY ▝ RETURN >=©<> INVERSE  COPY GBIN  OR © LOAD  LPRINT  COPY ▘ DRAW NOT © DIM  DIM  COPY ©▚ COPY  COPY  DIM  COPY  COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 COPY 8 BORDER 8 CLEAR ©> GO SUB y1]!t{[m MERGE  GO SUB VAL !1▗© MERGE Q<> GO SUB LN !/ STEP USR ~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL  LLIST  FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER  THEN ?O0AN# GO SUB VAL COS  THEN ?N8SGN 0=[U] LET  NEXT NOT 2▗<> COPY )[A]9VAL  LPRINT  POINT  LIST @I9 MOVE  IF `} ▝ COPY  CLEAR 9 RESTORE [Q] `%p  RESTORE  FORMAT  LIST   BORDER  FLASH  FLASH  FORMAT P ERASE P STOP [A]  FORMAT  P@ FORMAT 5 COPY  FOR  FOR #@` LPRINT @ ` USR  FORMAT   CLOSE # PAUSE `) LLIST  DRAW  DRAW P[Q] rf`USR  B FORMAT  CLOSE #[Q]B GO TO  LPRINT 5 COPY  RETURN  RETURN ▘[T] LPRINT BIN ,L CLS  CLS  RANDOMIZE  COPY v STEP R;;STR$ ![H] FOR !fs#r!{0▞0@ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~< NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP INKEY$t LLIST # OVER  LLIST STR$  NEW ©(# THEN w Ge# RANDOMIZE VAL$  NEW ?F#. CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <>BIN ▗USR 0 LINE ; PRINT  COPY USR  ▘ COPY BIN  COPY ▝? MERGE ▟ [L][;+▝`@C`@▝ COPY  LPRINT @@ LPRINT xx@ MERGE ▝ LPRINT ▚@x BORDER Ca& FOR ▘pa@Y] LPRINT i@ COPY ? NEW p@ OR ▝ BORDER x@z INK xzEUSR zH INK y LINE ▘ RETURN  RESTORE y@>▝ LIST  RESTORE ▘USR  DATA ▗▝ COPY yABS  MOVE ` DATA z▘ COPY  INVERSE ▘y|2▝© CIRCLE &y|@y RETURN xxqzUSR |GSGN ▘Pw|USR zSTR$  STOP {@y▚ INK {}USR |J INK |}%@} LINE %~USR ~%}~}@%}©0}USR | OPEN #~ GO SUB />=/ FORMAT h MERGE B*e▝ COPY USR ▝ COPY P READ % BORDER NOT <>▖© VERIFY hUSR USR  LIST  SAVE  DRAW  DRAW CHR$  RETURN ▗ DRAW  DRAW  SAVE  LIST }[D] OR [Q]1%x LIST  COPY 3 FORMAT  TO [Q]U({VAL  LLIST ▚?©© COPY  RANDOMIZE ▝ COPY T▗?USR ©▗??~▟ AND #i|@|@ VERIFY  TO |USR  DATA u LIST NOT ▖@ ATTR VAL COS }0VAL ▘CHR$  CONTINUE ▝USR (hSTR$  COPY x <=INKEY$FN 5Pxh AND SCREEN$ SIN ASN [A]xFN ▝© LPRINT © LIST     PRINT P CLEAR VAL © CONTINUE W LIST ▝ RETURN g▝ LPRINT  OR USR ▝ COPY tP© LPRINT c LIST ▝©g▝ OR 5[A] MERGE ©@, FORMAT VAL SQR VAL RRND}P<>}x}▖}[A]>=5>=} FORMAT <=~~ AND ~8~H~P CAT ~~[A]~[A]<=~USR ~ FORMAT ~ FORMAT ▘e~ SAVE ©©>=%H©P MERGE  SAVE ©▖©[A] AND ©LN ©>=© FORMAT  CAT o%© MOVE &p[L]%© LPRINT |$p BEEP © SAVE  FORMAT  RUN .E CIRCLE ▝}$_ CIRCLE bq FORMAT  DIM ▘,e|USR STR$ xH▝ PAUSE }FN u@[A]xUSR } CONTINUE }@ TO  INVERSE  COPY  INVERSE [Q]5 LLIST  COPY © SAVE BIN STR$  COPY ▞% INVERSE  COPY ▘[. STEP XUSR x`00Dh-[ INVERSE 2 INVERSE 8d OPEN # MOVE x COPY  ERASE USR L PAPER  ▝2A q/x x  @G2QPEEK H[Q]x ` H~!LEN  OR 2+% BORDER ▘k GO SUB p@rSTR$ 8USR ▝GZ#  OR ) CLOSE #2?%d'IN  LIST  MERGE ▗SCREEN$ USCREEN$ U LOAD %(  MERGE [D]xRu PRINT x[Q] FOR xUSR y [F]`y[Q]yyUSR  MERGE y%y LPRINT z*zzhFN ASN  CONTINUE  FOR { {`{@{ MERGE ^U{USR {[Q]{ LPRINT % LPRINT | > OR @|({ LPRINT  MOVE |h|[Q]|[C]%FN |`}` MERGE dU}}`}[Q]t}4~(/~/~/[F]©@©0 INK ©©p%USR ©VAL ~ PLOT  [I]EXP [L] PAUSE [M] INPUT XsRNDz(z:zLz^zp▚0Lz▖z[K]zAT zPEEK ©[A]©FN z POKE ▘SCREEN$ U{© FORMAT STR$ {0▙VAL le{Pz▖{tE[A]{[S]{TAN %n FORMAT ▖©©?{ CONTINUE { IF |▞SCREEN$ U RETURN  RETURN ASN USR |(|8|J|/|n▜@STR$ u|▖|[K]|AT |PEEK l% CONTINUE | POKE W}4h}P@SCREEN$ 5}h}z"INT }[A]PFN }INT } TO } OVER } LIST @ STEP !U~,~>~P4[F]~h~z~~[O]~VAL P"%>=© CIRCLE ©5 CLEAR ©VAL USR  STOP  RUN 5© POKE [C]]U FORMAT NOT © LIST [G]z5>=~[A][U][H]) FORMAT USR ~▗©"~▖ CAT ©X©j~▖<=©[I]©SCREEN$ ~>=u LPRINT ~Hj5.H INVERSE C% RESTORE [A] LIST IN  FLASH  LIST %y FLASH E%y OPEN #*b}M LPRINT wzbz,bE~ READ ▖d OR  LPRINT  NEW {TAN  INVERSE V% INVERSE FN ! READ t MERGE '+%~>=VAL$ %VHINKEY$%U©P©b~AE[A]©[S]~USR IU FORMAT © STOP © POKE SIN +p(w SAVE -RND^1 COPY [A] FLASH ▙+▛;▛K▛k0$% READ w▗SGN g FLASH w DEF FN w[C]EXP  o[N]VAL /©%p ©D[H] ©sw[K][E] ▜▜ DRAW  DRAW  NEW ▜19 LET w=U CLEAR  CLEAR  OUT  OUT  CLS  CLS  IF  IF wg COPY 9 LIST  MERGE  LOAD  LOAD  CONTINUE  BORDER  BORDER  OUT  OUT  BEEP  BEEP  FORMAT  FORMAT  CAT  CAT ) DEF FN ▜q   CONTINUE VAL   COPY  E LIST  <> COPY [Q]@ COPY  FORMAT  STEP  COPY  LINE  CLOSE #[U] INPUT  READ  READ U FLASH  FLASH  LINE  LINE  THEN  THEN ) TO f  LINE  LINE  ?@ LIST `[H][K]X PAPER @[Q]E DATA  DATA  COPY  IF  IF iVAL  VERIFY   PAPER % DATA  DATA  INK  PLOT  @ % DATA  DATA  FLASH   RETURN  GO SUB % READ  GO SUB  GO SUB % INK  INK  CLS [P]`   PAPER  INK ! [P] READ  READ  PAPER [H]y PAUSE v0  fWH9 CLEAR  CLEAR ?`[P]▚[P]$SIN y COPY PEEK ABS  SAVE © MERGE !/o GO SUB VAL  CLEAR ©> GO SUB y!Z▗[m MERGE  GO SUB VAL ! LPRINT [N]/ CLS <> GO SUB LN !C STOP USR ~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL  LLIST  FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER  THEN ?O0AN# GO SUB VAL COS  THEN ?N8SGN 0=[U] LET  NEXT NOT  LLIST [N]NOT > CLS NOT USR NOT DSTR$  NEXT ~2xUSR "SQR USR # STEP ASN USR <2zUSR  GO SUB SpUSR E GO SUB SrUSR  MERGE  UtUSR ! STEP INT USR  FOR "vUSR !▝USR "{USR !▘USR USR ,p GO SUB VAL  LLIST !CODE  STEP CODE USR =2▛USR 2[F]USR 2[P]USR >2yUSR #"▞USR "[D]USR "[N]USR  STEP BIN  CLS <>w LET  LET  PAUSE ^ INPUT * NEXT  CLEAR  PRINT ▟ PLOT   COPY %_ INPUT [A] LET N LIST [A] LET $LEN  LIST LEN  LET  SAVE 1[Q]7PEEK >=NOT CODE USR ^#V# FOR C INPUT  FOR <>_▜_ INVERSE  INVERSE ~ THEN ©J THEN wCHR$  FLASH USR B NEW g INVERSE ^ INVERSE ~ PRINT  NEW  LIST 3W LET  NEW o INVERSE  THEN n>= THEN  STOP <>:[Q]USR O!zUSR PEEK  PAPER STR$ CODE O<2[Q]USR i&) GO SUB [pUSR N#~2DNOT y*tUSR  FORMAT % GO SUB S{2}2 PRINT ©USR <> INVERSE 5 LIST  INVERSE ~ COPY  INVERSE w<>:y PRINT uyUSR CHR$ ▙CHR$ :xUSR  NEXT  INVERSE !▗USR  STEP 9STR$  PAUSE oSTR$ *{USR ~< TO  SAVE USR % STEP [I]STR$ 1% INVERSE !▙ %▘STR$ *K}.[I] .5▙CHR$ *© &(©USR NOT ▙CHR$ ~ RETURN ` PAPER  AND STR$  RETURN p PAPER  OPEN #STR$  RETURN  PAPER  POKE STR$  LINE  FOR STR$  RETURN ▝ LINE  MOVE STR$  RETURN ▘ LINE  LET STR$  RETURN  PAPER CHR$  VERIFY [R]|ASN  INVERSE w COPY #NOT [I]STR$  INVERSE w INVERSE 6 RESTORE  INVERSE 6 #<> VERIFY ` RESTORE c*vUSR ABS e INVERSE u INVERSE t LLIST %#u COPY <>CODE  VERIFY p RESTORE AT *r@!u INVERSE t INVERSE 6 RETURN  %RND VERIFY 2VAL$ USR #~#2AT USR % RESTORE CODE  FORMAT * LLIST o[F]~<>=== INVERSE w PRINT _O< NEW  INVERSE w LET USR  INVERSE ^ INVERSE V!`~= IF  GO TO STR$ @%#~<)e<>yATN USR |2PI8<[F] INVERSE ~ RETURN ATN >= RETURN  LINE ▜CHR$ yENOT ▛CHR$ CODE v% THEN  NEW <>":5CHR$ y2<NOT  INVERSE *▜USR  STEP USR USR yVAL 2FN "Ru LINE INT CHR$  STEP iCHR$  STEP 2NOT "[R]USR !POINT USR w STEP qCHR$ "R5CHR$   LOAD @:[B]:E:FN USR LEN VAL <1"v55[T]USR !SCREEN$ @5t@5(NOT 0o[L]@5U THEN  THEN VAL LEN P9[M]n5RNDUSR !ATTR  n RESTORE NOT BIN } PRINT  MERGE  INVERSE n INVERSE fwRND▚ AND ▜_!_NOT [I] INK  FOR  MOVE  LET  THEN b( THEN [S]<>PI GO SUB R<> SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!!VAL$ USR CODE ACS >  VERIFY +yIN  GO SUB ATTR = PAUSE /BIN <>3AT $`SONG BY ST COMPILE[Q][Q][Q][Q]O RESTORE   !! LcQABS  AND 25  LIST 0       [A]`▝USR i`%0TN%▝%▘%%▝u▘▗Ku+<>) COPY  PLOT   REM Ibbbb}zATN ,ACS EXP ,5 LIST AL E5 FORMAT  COPY  RETURN  CLEAR  DRAW  CLS  IF  RANDOMIZE  SAVE  RUN  PLOT   PRINT  POKE  NEXT  PAUSE  LET  LIST  INK E FLASH 0USR k` STOP  ERASE = BORDER  PRINT [J]>=*[J]=L` SAVE kE>={<5x[F] CAT [F] GO SUB  COPY [S]dsI95[R]99[S]I75[R]77[S]I55[R]55[S]I4 OR [R]44 COPY [S]aqc▘brVAL Uc▘brVAL Uc▘brVAL Uc▘br[A]! COPY VAL$ e-[S]/VAL$ +[S]-VAL$ )[S]+AT ([S])+ COPY  FORMAT [S]ft//++(($a+"p LPRINT #[F][S]eu9gvEft(RNDEEt(eu;7gvC C"55gvA #A E74gv@5%[R]([S]U(([S]e57Le-gv9ftRND99teu/+gv7 7"5)gv5 #5 +{45%[R][S]5[S]eSQR  PRINT VAL$ e9[S];VAL$ 7[S]9VAL$ 5[S]7AT 4[S]_VAL$ _ LIST IN  w975SCREEN$ 2[S]7540FN 2[S]542SCREEN$ 0[S]4202FN 2 COPY [S]h-[R]-[S]5--[S]p'E2+[R]+[S]RND+[T]+[S]402)[R])[S]))60p THEN =<e2YINKEY$e![S]FN !INKEY$[S]FN INKEY$[S]FN INKEY$[S][U][S]-[S]+FN -INKEY$+[S])FN +INKEY$)[S](FN )INKEY$([S]&[U]"[C]INKEY$ep[S]FN INKEY$[S]FN INKEY$[S]FN INKEY$[S]Xs<?%[N] COPY j© LINE yh/: OPEN # BRIGHT  LINE |: FOR : RESTORE : OUT  LOAD /[Q]=[Q]K[Q]Z[Q]i[Q]x[Q]▜[Q][G]_0 TO L0@B@B@B@B@B@?!2"[G]#>=$ IF (,!^"[A]#CHR$ $ POKE %)&AG▙[Q][S][S][T][T][U][U]RNDSQR =RNDINKEY$INKEY$PIFN FN POINT FN PIINKEY$RND[U][T][S][R][Q][Q][Q][Q][Q]G4/ OR [Q][R]<[S]Z[T]xG?,J?"OTAN OATN k LIST 5o CONTINUE yGL CLEAR 0@0 F? COPY  RETURN  CLEAR  DRAW  CLS  IF  RANDOMIZE  SAVE  RUN  PLOT   PRINT  POKE  NEXT  PAUSE  LET  LIST Gs POKE E<<>P▛< INK  FOR %VAL  INPUT [L][F]IknI[A] OR RND<>RND:ke▜[H]ASN :][C]ASN  INVERSE ]]▖ COPY [U]a[T]LEN u[T][S][U]P5[T] CAT % COPY  LPRINT ▝%E&&[T]&&EXP %))[T]$)[U]P@ BEEP % COPY [U]b<>%[S] CONTINUE %p0P  COPY [S]bpcb`[R]c PRINT p+ DEF FN pSCREEN$  ]d!0td!`p#&ASN  COPY FN epSLE>70[U]qTCHR$ d(.)(% COPY [U]▝0eOHA;4INKEY$- 1[S]TBE[A][U]ar>>[T]>>[S]>[U]AA[T]AA[S]A[U]PeCC[T]CA[S]@ LET t CLS [T] CLS hu[T][S][U]P5[T]▚ STEP RNDGd&[S]bGc/[U]d)%G[R]d.:IASN s22[T]22[S]2[U]55[T]G LET 5[U]P577[T]7O% COPY [S]g/5[R]//[S] LIST ASN  COPY [R]bf_cf_d!0VAL .2 PAPER :?F THEN 5VAL phS?q4[S]0INKEY$2BIN e;[U]p<[R]<[T]< COPY /▝hwFN %▘oo!o▘`o▛os©o4 INPUT u[Q]-[S]GeY[Q]W[Q]e[P]*LU -[Q]ZcwFN O©©O& MOVE ?/[N]oo©ew6FN ©n>RND©ACS %w [M]&$, J!X V!d GAdC▜ FOR © DATA LG AND GINT G VERIFY G CLOSE #▜! DIM O▛ FLASH 0VAL % CLEAR 6©[H]5 RETURN  COPY ▜© MOVE ATN [A] FORMAT E▜[H]e[K]ABS  FOR % INPUT CABS C▛UC[E]5CSQR ▜ GO TO Gn     ERASE [G]/INKEY$v+[T]q/[S]b/[T]/[S]a)INKEY$+[U]w8-INKEY$v)[T]y-[S]b-[T]-[S]a(INKEY$q)Oc INK $▜%$e#@[A]!@ P`POINT g@p%g@`u COPY [R]d$f_e#USR  R[A] U COPY  BRIGHT ▝[R]iuK[R]jLVAL ▟" G% 5 COPY [U]er BEEP 5+[U]s+p CLOSE #5)[U]s)`U COPY [U]ky$h▜[$[U][R]▜E#[S]3▜[)- INPUT CHR$ {[Q]  INPUT CHR$ {[Q] e COPY  RANDOMIZE @[T]IN *E^[Q]CODE PI IN <5[Q]CODE %[U][Q]PCODE CHR$ G▘?GVIN *IN  BORDER IN  GO SUB IN  LIST ATN SQR ATN X FN  OUT  STEP pATN  OPEN #[Q]IN */ ▜ RESTORE G RESTORE Y[Q]g[Q]e[Q]CODE L COPY IN *L▗ATN d?1SGN cNf© BEEP #NOT 2 AND )+))-7-52©[O]F%&(,*+,:.90[S]F"▜ RESTORE %▜ MOVE ▜ LOAD  LPRINT P&%EXP E<=Te READ &El DEF FN  SAVE _[D]{ INVERSE  COPY lbl[Q] VERIFY  RUN  COPY [R]▝[S]c-+-[U])INKEY$&[S]-[S]+)+[U](INKEY$$5[U]+([T]!PIep$e_k/ew[P]"ATN Zerjpis#Ujpise[R] COPY [S]c9<=MU9[U]5INKEY$[S]%[U]95ATN  NEW <=VE7[U]4INKEY$ 5[U]740©:99*[R]©▘5[R]2RND2<=5779[T]@[T]2<=[E]5u[R]4[T]4[R]0RND0 ©[N]0[T]@BU MERGE RND&[S]a!!PI[S]l-c"Y5RND$[S]aR9▘Y-▝5[R]l-"©e[R]Cc+A)CIN ]@<=EaH[S]$[R]O'5a979▜,hauaOMOOLLkIN USR @RND[U]IN Z CONTINUE 5[S])([U]IN X5$[T]&FN [O]<=▘%$[U]&" RANDOMIZE USR  E[U]&FN <=U%[U][H] POKE ▙▙▙[S]▙▙[U]▙]▙[[U]0[S]5▙ [U]%!5[▙Y![H]j<=m<=;E[U]2SCREEN$ [U]<=sE[S]2/[U]0 $5INKEY$▙[H] CLEAR U--++))[C]%AT [S] (&$AT >▙9▙7▙5▘4▙0▙22I0y52▙ /y0x%[[P]PECE[U]AINKEY$>[S]EC[U]EA>[S]CAC[U]@INKEY$<5[U]C@< t PAUSE s@ PAUSE e3^[Q] COPY ▖ OR <=} LOAD  LIST .[U][Q]<=tUSR  RUN Yn[C] RUN Y[Q] RUN Y RUN _%()*',5.N▜ LPRINT ▜}eZ[Q]i[Q]x?O CLS %E<= CLOSE # LOAD <IN PO LOAD 2 COPY STR$ /ASN ("$$TmATN SCREEN$ [P]USR [H]RNDUSR [P]USR [P] COPY (▖[P][C] OUT 8O6[P]D% COPY ▖ COPY <=a[K]©ATN ▜ DIM  COPY  LLIST >[U]<=!w RUN >= PRINT  LPRINT `ATTR `? LPRINT [G]STR$ k[F]` LPRINT  INPUT [F]h▝PITAN 8UCHR$  COPY [R]cb)e_[A]PR /ee_ COPY [R]a▙/[0((▙%[L]  0,,[G]%##0// OR %22KEq@g@a@u[S]a@[R]AgAINKEY$5DgDa@u[S]aD[R]EgEINKEY$5GgGa@u[S]aG[R]HgHINKEY$5JgJa@e[S]aJ[R]KgK RESTORE [U]K COPY [U]d_f(d_[R]f([T](5[S]f(+ RUN p[S]@[T]0E COPY  ERASE [R]f5d__ PLOT  p RND COPY C&[S]RU[R],,-RND,5[S],[T],IN +0RNDG[C]0[S]▜[D]E[R]223[S] FORMAT IN rP RUN  STOP q44INKEY$2[S]8[R]9RND8[S]8INKEY$ COPY 9U[R]<RND;[S];%5>[R]?RND<=INKEY$?O<gp@[R]>RND@[S]@M COPY eRNDD[S]DINKEY$E[S] NEXT URNDG[S]GINKEY$HP-RND?XE@@[U]<[S]UDD[U]E[S]GCIN  COPY %C@[S]>?< CAT  LET EXP  COPY SQR 5[T] COPY APEEK [S]SQR U[R] [S] [R] (ABS SCREEN$  ERASE U[S]0[U]4SCREEN$ 8G DRAW 58FN ;7 INK 3IN k`_RNDc COPY  LINE ASN  COPY LN hqEUSR A[S]f))[U]%4STR$ .  BEEP  CLOSE #e CONTINUE Y▘ COPY B%o1IN 9IN Q/IN RNDCODE SSc COPY  REM PI<=/ATN 8 STOP [▝[R]▘[S][T]▗[U]RND▚▜▖▜▚▗▘▝/B COPY BIN [J]INT  CAT <=%ACS GNd FORMAT IN RND RUN ©"/ CAT y CAT p% RUN  CONTINUE  CAT y  CAT aG|78 OR  CAT  STEP W CAT  STEP % CAT BIN  c% CAT BIN % CAT BIN % CAT BIN  l COPY 2B RUN  IF IcIN RND_<= DEF FN ({© DIM !#2%Z')>=+ OVER %.[Q][H];W@uh[Q]v[Q]▗W VERIFY G%+'*)9+0-@/@1B CAT [B] BEEP  BEEP  AND <=u POKE <=©GTAN ?5 OUT wO/ LOAD $57 CAT  NEW  CAT 5 BEEP V CAT ; CAT =Ot CAT RND[H]/<=▙&[A]0(0R CAT ▛OPEEK & CAT }% CAT [U]  BEEP [K]%?? BORDER  FLASH [H]Y<> OUT [B] BEEP " BEEP ( BEEP 0 CAT PEEK  BORDER [K] PRINT  GO TO t[G]LN  CIRCLE  RUN >t[G]>LN  CIRCLE U RUN [P]5[G] READ  CIRCLE RND RUN &>g{5RND LINE [P]`FN [T]%pLgLASN [U]OOSS[S]Of74gMH OR [U]LLOO[S]Lf40[R]00[H]/Erb▘&eaqb▘&▜ydp4e4d7e7d;e;FN f7[U]d0e0d@%FN f4 BEEP M(WM▜<=[U]0&[U]$$[T]$$[S]$@& FORMAT DUSR CBEe@@[T]@O INK Gh>4SCREEN$ @[U]e<<[T]<<[S]<Ch;0SCREEN$ < BEEP VAL$ p4 RETURN W&[U]@@c0 IF 0Oh@A[S]h!,uirjtku iqjtku MERGE v COPY [S]lpn_m+n_l2%[R]++D?C/[R]_S[R]4_h_l2[F][S]542INKEY$o4[U]y4 <[S]@_[J][R] BEEP  INPUT  BORDER ?ASN 20/INKEY$o0[U]y0 COPY FN o_ DEF FN  OR )(&SCREEN$ (FN $#[S]&$#SCREEN$  BORDER %oz( INK RND[S]+INKEY$([S]42[U]0[S]7 Kp0[P] INK >%[S]op0!EINKEY$4[S]@>_%CINKEY$@@3 5<CFN @[Q]O W5FN ([S]|`7KSCREEN$  MERGE ozpr5FN 4[S]|`RHSCREEN$ HUbpf(b`g CIRCLE &[S]pp%f$p[R]f CIRCLE  LIST NVAL  CIRCLE 1 rVAL VAL CODE _RNDy442200[U]7[S]c OR 0SQR PCODE  [U]4PI RETURN VAL [S]0_E[U][R]VAL [S]`aUmz@[H] DEF FN AT WBIN }%W CLOSE #W BEEP %W}WWWWW PAUSE /BW RETURN  OUT & PAUSE  CAT f CAT [O][P] CLS GCHR$ * PRINT V[R]F[R]fPOINT  % COPY [S]gIN  CLS IN  COPY [S]+&<=<=IN USR IN  DEF FN 7]lU[R]ep440E20002IN  LOAD f,(%4[R]7 DEF FN 0SIN ▜LN %0[R]3▜SIN ,SIN  CAT [K]e>c▜ASN ▜_!M CLS ~#foNOT USR <BIN G THEN  DATA  ERASE f FLASH BIN  READ ▞ REM [C] PLOT   CLEAR ©> GO SUB y! RETURN [N][m MERGE  GO SUB VAL !$EXP VAL  CLEAR INT <> GO SUB LN ! RUN  STOP USR ~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL  LLIST  FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER  THEN ?O0AN# GO SUB VAL COS  THEN ?N8SGN 0=[U] LET  NEXT NOT %EXP v STEP R;;STR$ ![H] FOR !fs#r!{0▞0@ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~< NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP INKEY$t LLIST # OVER  LLIST STR$  NEW ©(# THEN w Ge# RANDOMIZE VAL$  NEW ?F#. CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =#| INK <> MERGE ▞T[C]*I*FN V[R]B (((  MERGE x0P▘P[Q] RESTORE Pp▝[Q]x8 INVERSE x[Q] FOR x LPRINT  FOR y  FOR Ip▗ GO SUB yVAL !>=▗*I LPRINT y LIST *I(yUSR  VERIFY X8▝Ty SAVE  BRIGHT z` FOR *USR ▚ LOAD +CHR$  COPY ▘ RETURN  SAVE  INPUT +@▗USR USR  LET {!{VAL H▝ NEW C LIST ▝H{LN  BRIGHT |a,PEEK ▘z RETURN  OVER YUSR ▝x INPUT yUSR  FOR %@▝▝ PRINT }V}VAL 4▘* LPRINT } LIST }USR  INK ~( FOR ~hASN x FOR ^ LIST ▝} BRIGHT ©©[F]©FN  OPEN #© CIRCLE _ LIST [Q]B@ DATA P GO TO  FORMAT  COPY  LIST ▛+(USR SGN ~@ VERIFY ©8©▖ INK ©x▝SCREEN$ /▖*(~ FORMAT  THEN ©LN _>=NOT  COPY ▝|  SAVE pi RESTORE >=▘ LPRINT  LPRINT  ERASE  FLASH [A] FORMAT  LPRINT [Q]|©>=q COPY  IF ▖ COPY CHR$  OVER <= OUT  OVER CHR$  COPY / SAVE [A]!USR ASN O FORMAT t[C]▜ COPY  CONTINUE MABS ABS M CONTINUE x@▜BSQR ©FN  LPRINT 4 PAPER  COPY ATTR USR  LOAD ▝<=0[A] FORMAT  CONTINUE E© CONTINUE © SAVE [E]%© SAVE ▙SIN  OR }0}@}P=`▘P[A]Mp STEP }[A]m[I](H( CIRCLE  MERGE } FORMAT } CIRCLE s~ MOVE  COPY  COPY ~H~X~XBIN ▘ COPY x@~[I]~[I] OR ASN  CIRCLE ~ CIRCLE <=x©©<= OR y©X©X STEP ©[A]©[I]> FORMAT ©D▖`[L] CIRCLE ©M%▘T[C]%X BEEP  LIST SQR 5[I] FLASH CHR$ LN %{@ BRIGHT pA[F]|>={@ MOVE }{ OR 8}P{USR <=}x}[A]|RNDLN } FORMAT |@ CAT ~|+%@|USR kASN ~~[A]}USR K▛~LN ~ FORMAT }@USR ▝>NOT  COPY ~ SAVE ©}STR$ ▚USR  LPRINT  LPRINT  LIST  LIST  LIST P}PE©x©[A]~P©LN © FORMAT ~@~LN [E]Ie~<=yLN [N]j%© CONTINUE CODE ▛ DATA [L] OR  FLASH  LPRINT  &▝USR /P7 G O0W(`X0w0 BRIGHT x xI VERIFY USR Nx`` CLEAR  INK  INK h`USR x INK Ab OPEN #xCHR$ q OUT  INK ! OUT CHR$ *j BORDER z COPY  NEXT 'STR$ ABS 5▜bb~e~~USR b GO SUB INKEY$SCREEN$ LN VAL$  SAVE VAL$ 8SIN yyzz'z z { {7{0{0|0|G|@|@}@}W%-USR ▜©©? INPUT .▜ RETURN  RETURN  DRAW  DRAW  SAVE  LIST USR  INPUT ~`w~p~p5o@oP REM Ex@xPEux[A]O CIRCLE xVAL @[S]P%x FORMAT ▝-%x LIST ▚PSQR y%y0pEP▝© LPRINT X[E] RETURN ??CHR$ ©?? OVER z LIST PTU{▝{0`H@p`$▖$(`ASN {>=▝KUSR ▘'▘{`N|NRNDL▜USR  LIST  SAVE  DRAW  DRAW  RETURN  RETURN |`T|T|@INT $% LPRINT © STOP ©©VAL$ %STR$ ; CLS <E8WLN ▞>%>>";% ERASE ▗"AT ▚"TAN b[F] CONTINUE  DIM  SAVE }LN P3 ERASE EU0@COS  DEF FN 5[I]}@ OR @ CIRCLE } TO ©© {uUSR  AND ©P©`▝p%[A]©[Q]@% FORMAT © LPRINT  ERASE  LIST '<=] CAT ▟`DU MERGE |>=|FN 25%}|~%H}(S]5}▖}h]%}>=}(©]%~}F%▗%%qUSR F&H~7p GO SUB `TAN FN  CONTINUE [I]ABS E LPRINT USR b~USR b%©f▗©EE©H©X▜8P%bUSR @ BORDER  PLOT  %▖©h LIST uGPH▝@©USR SQR [A]<>▖udv OUT % FORMAT © FORMAT f OPEN # DATA [H] FORMAT 73&_ LIST ,5 MOVE ▘;u = PAPER x=x  LIST }▘+xABS ([Q]xAT ( BRIGHT x,X CLS c▝x GO TO `]/xAT y#`USR P BEEP x GO TO ▝9[I]y0 EXP  LPRINT ▘K[F]x` COPY  DATA  INVERSE B INVERSE A7USR 9 COPY  PRINT WkE RETURN  LOAD  COPY  RETURN PI LIST  LPRINT WoSTR$  DIM  COPY ▗ DRAW  SAVE  LPRINT USR 5>= RESTORE  COPY  RETURN  LIST USR  ERASE  MERGE  FORMAT G"[F] RESTORE  COPY r}▝ FOR  COPY zABS G;[ GO SUB  COPY ~ FOR  COPY ~USR  FOR  COPY o▝ RETURN  MERGE  DRAW CHR$  RETURN  CAT  COPY  INPUT USR ▝USR SCREEN$ ▝ SAVE T% DRAW oW/ READ INT  COPY  READ ▝L▘9▝? DEF FN  COPY ▞_d▛K+ CAT o▝© NEW  COPY ▝©L▝8Hx: STOP  OR ©@ GO TO  COPY ▝© DATA  COPY  OR  LPRINT USR X NEW  COPY ▚% MERGE  STEP ▘USR #[S]{ POKE ▝ COPY  LPRINT  MERGE q{© INK ▝USR  I7pk_ />= BRIGHT |= READ  CLOSE # COPY  FLASH ?©>= FOR  COPY © FORMAT 0yH5▖ FOR  COPY  STEP  GO TO ( STEP  CAT  SAVE USR  DRAW |[F]y INVERSE  STOP ▝ SAVE }) GO TO ▝z BORDER  DATA ▝z@ LLIST ~ DATA z OPEN # OPEN #puzUSR  CIRCLE x>{ BEEP ▝ BRIGHT  COPY  BRIGHT xSQR { CIRCLE  OUT  COPY  INK xSGN  CAT E LLIST  COPY  CIRCLE  STOP { INPUT  FORMAT  COPY  PAPER 4▝ DRAW |}~ FLASH ▗ LPRINT  SAVE  DRAW  CLOSE # COPY  NEW  ERASE " LPRINT  ERASE  COPY  DIM  MOVE  COPY  CONTINUE |G© MERGE ? OPEN # COPY  MOVE NOT NOT ▝| CLS _ LLIST >=© LOAD Oc# COPY B VERIFY xx@>USR Bx[Q]xNx H STEP 14▝X[N]▝B  GO SUB 0c▝COg* 8 OVER p@1>x)^ynx A DATA ayYiPEEK  FLASH y[P]y CLEAR xUSR 1 MOVE I OUT y PAUSE z< COPY rOCHR$ a[F]▖▝C';} RETURN (O`0@▜B%*UATTR  GO SUB (▖WVAL$ /LN p LPRINT USR Oyo[R]ywO▝yO▝oLEN zzO[B]OqU*▗SQR 5 FORMAT  OR ATTR  MERGE O|%jowASN ▞ COPY ▝CHR$  DATA  SAVE  CONTINUE  BRIGHT PEEK ©xO<%@{USR O<_ DEF FN { SAVE xUSR xUSR |@y] MOVE O[K]%y@y_CHR$ %yy_ REM l SAVE ) SAVE ▜ MERGE SCREEN$ TFN XSGN ~yUSR }@U8▜@[Q]PFN TSCREEN$  DEF FN  MERGE gFN w}W}WOINKEY$WEnUSR ~>= FLASH gPI©R%©PX5USR ©[A] INK EXP © FORMAT O DRAW ▖ RETURN };'C▝(hx 0 OR ▜ATTR U*%BO CAT Xxg ▖g[F]pLN /VAL$ WxHx[I]x_ GO SUB RND CIRCLE xUSR  CAT x[A]y x CIRCLE y@ PAPER ?©©STR$  COPY ▝;yw▟OPxPEEK n"[Q]y LLIST 9 CONTINUE ▝:0 PRINT *0 CLEAR LN ▗ PRINT >=▝x*LN xH OUT _UxH READ @@a DEF FN W-aeUSR x▖ LPRINT *LN ©[O]EUSR x FORMAT y`xO FLASH x▖uPx>=G PRINT  NEW  MERGE ▜RNDP[Q]@{[P][P]USR  RETURN WPIw FLASH " SAVE ▖j`▜ REM u: TO .0▝▝l ▚B[U]XCE2ATN © SAVE VAL$ 2R© LIST -1w[D][M]R% LPRINT © LIST ! CIRCLE w BEEP p[U]y`[A]Ey[A]y[Q][A]"EUSR y FORMAT y LPRINT 3zzz z0zHzXzh▘C▝ NEXT zz[I]zFN LN ▗ NEXT  RESTORE /xHz CIRCLE j LIST k0{{ xGex▖{X{h85y{FN "[R]U`y FORMAT ▗ DRAW RNDPEEK yy@ ERASE & INK ▖Z LINE |hCHR$ y LPRINT yUSR  LLIST 2(BIN ATTR ▜[F]J%$By@ DATA -` PRINT gINT % RESTORE ▗+5 INK g![F]USR  DATA USR  LIST  DRAW 1 CIRCLE  PRINT FV▜ LINE 5H'R PAUSE  RESTORE [U]z STEP /H▖©PEEK  BRIGHT  CONTINUE  SAVE  DATA CHR$ COS ([U]u@XH/ CONTINUE o CIRCLE ▞R LLIST [F] MERGE  FN x[A]>=▖gE8xUSR  FORMAT wT RESTORE ▝D INVERSE ▘B "hx(AT GL38!X OR 8BP8▗DD▘ ERASE ▝(!@ ▝D(My▝Bp@Mx!@3npB0SrG[E].@@▘DVAL ▝B@▚8 LPRINT  ERASE 0 OPEN #@PIHLEN   PAUSE x!axB`@▚y8@]x!H@!▘{yr@DP INVERSE X@#1 FORMAT p▚(| LOAD x@ ERASE ") CLEAR  SAVE  OUT  OUT  SAVE  CLEAR U[S]x BRIGHT |x[H]ABS x LIST [P]T0[P]Xp[P]/VAL [P]`z[H] MOVE z[H] MOVE ASN zFN z CIRCLE z>={{{5([Xo[K]USR  RETURN >[H] LET u{FN  FOR k CONTINUE { SAVE  CLOSE #|8 CLOSE #E|x INK |}wPEEK  INK >=%}}5}USR }LN [P]+~▖%~▖~%~>= MOVE _SgCHR$ %©@_HSCREEN$ ▖W LOAD >=©[Q]P OR %©>= THEN F%[P]▞ RESTORE w5 OPEN #[H]u▚@i%~▟2S©▚5 OVER ~P©,[P]>=% GO TO ▜*▗©ASN  SAVE ▙USR AT  FORMAT BIN w LLIST  LIST [P][H]GF©t[R]gO% OVER FN R GO TO  MERGE R+*/[!ASN } CIRCLE } CONTINUE } SAVE } SAVE  STEP ~0[H] RESTORE x[P]7ex~x ERASE |' SAVE <='8 DEF FN CODE 83p'LN o&FN [P]>=▘LEN ) ERASE [E]B: LINE tcPIf[P][T][P]nPId@$VAL wSIN  FORMAT ~[P][C]©toRND8oLN [Q]©VAL ASN ,ATN  LIST VAL$ # MOVE r INK 0} CAT w;G[B]/P©w(w1VAL w$5 LPRINT © SAVE [O]] DEF FN  COPY  DATA <=[P] COPY E CLOSE #▘BB▝APICC PAUSE ▘k' MOVE [P]CHR$  GO TO e▗▖U"UO[Q]<=[U][P]e[P]i%x▖W+OxUSR yx CONTINUE  READ y<=y<=y!z[P] RANDOMIZE  INK W▖zP5z▖zATN %UzUSR z FORMAT zUSR Y{WW%{@{=5{{p%USR {VAL C%{ LIST I<=X|<=XQ| CONTINUE <=w<=h}<=h}wn[P]P$RND▖~ATN ▜4RNDU▗(U%k▜FATN [T]FN  CAT !PP+<= PAUSE  OUT IN [E]IN  ERASE IN [E]<=[D]<=VAL$  FORMAT [J]oJE COPY [C] LIST PI-P STEP %© FORMAT  READ IN  LLIST  CAT O% STEP ▖[A]`o FORMAT PI~U LINE ▘ OVER [A]▖CODE `X[I]&U/ SAVE ▖+ MERGE #%▝USR  OUT  LIST  MOVE %o CONTINUE  INVERSE  LIST  NEW x@ CLS  CAT 8 LIST [M]POINT "![U]! FOR _k FORMAT  OPEN # GO SUB [P] DATA <= BORDER ©<= BORDER [H] DEF FN  DEF FN 5 CIRCLE © CIRCLE <> PAUSE  LPRINT |`|p|▗|[E]|FN |LN | TO | BRIGHT | LIST }}}$ CAT MH&u©>=B STOP >=~@ RESTORE [P]sH OUT [C]e▖~▖ LLIST ~>= OUT ▗ OUT ▖H OUT ▖ OUT [A]tx▗©LN [A]G FORMAT  PAUSE ▜x[M]LN  OUT  INVERSE `P[G] SAVE  OUT ▜[I]▙CHR$ PEEK  CIRCLE USR 5~ LIST © FORMAT  OPEN #%0©0 POKE / SAVE ▜1[F]T▘TTPH LEN ▝▜w3e▞x[J]PXEXP W INVERSE  CAT [A] RESTORE  OVER  FLASH xcyx88( COPY ▛$yV@ Ax a▘GG9[Q]y^YUSR y^yyL RETURN 1"ylYTAN y2; OPEN #g[E]5Y NEXT T COPY   RETURN  CLEAR 0p! LIST  LOAD 5 INPUT  COPY  CONTINUE  BORDER  NEW () PAUSE @   INPUT  CONTINUE    NEW @`  @ CONTINUE  INPUT 0  NEW USR   LIST  LOAD  CONTINUE  INPUT 0 @!@`) LIST    INPUT 0 BP[P]9 LIST  READ  INPUT 0 c`IN @BIN 0 INPUT  BORDER  BORDER  OPEN # FORMAT  0 PRINT % ERASE  ERASE  ' !USR @9 LLIST  DRAW ) INVERSE B FORMAT `) LLIST % LPRINT  OUT  OVER 0  ERASE   CLOSE # CLOSE #▘b LPRINT  OUT  OVER  ERASE  OPEN # OPEN # CLOSE #VAL CHR$  LPRINT   @! `[C]@  0B CLS r!) RANDOMIZE  OUT @ OR  COPY ) READ  FLASH  FLASH Y">[C]^VAL  % CIRCLE  BEEP  BEEP  VERIFY   CIRCLE   CIRCLE  LIST @4@@p` COPY  FOR  FOR [Q]fAT ) CIRCLE  I COPY USR  5 THEN  BEEP  BEEP vBIN  FOR  FOR  DIM  CLEAR %  LINE  @▚10f> LINE !@ H& FOR  FOR  GO TO p  LINE `    LINE  THEN hX FORMAT  9 MOVE  IF hy EXP `ATN ▚ OVER [A]INT F COPY  REM  REM E STOP  STOP  FOR  STOP  STOP  READ  DATA y LPRINT A !  STOP F BRIGHT  BRIGHT Hp  !@ CLEAR  DATA IN PEEK  BRIGHT  BRIGHT $H B FOR J▘ FLASH 4i c FOR I COPY  FLASH |STR$ ) LET  RETURN I COPY *TAN ( ,[T],A COPY :% FORMAT  FORMAT ^LCHR$ p INKEY$n, LLIST  LOAD LB OUT INKEY$ e LIST  LIST  INK  INK  LOAD  INK  INK  CLS e MERGE  MERGE  OUT  MERGE  MERGE  OVER  OVER [A]@ LOAD 9 VERIFY  VERIFY _VAL |COS [Q] 9 VERIFY [A] [M]B(X([J]  CIRCLE USR 1[Q]@/G$G67 TO I CLOSE #T IF  REM :GI) CLOSE # LPRINT  y COPY 9 CLOSE #O]  CLOSE # PAUSE ; LIST @%9 MERGE @  GO TO O[G][Q] [O]*▖ SAVE ,[O] VERIFY &[Q] COPY  @[K] OPEN # BEEP 9 VERIFY Y COPY  RETURN  RETURN 0O RANDOMIZE >[Q] OH READ ,▞^ B PAUSE @ READ .I cWh STOP (@#j!0  COPY @@SCREEN$   COPY  `. LINE 9 BRIGHT  DIM  COPY  PAPER @_@ _1 5 PAPER  DRAW  DRAW @[N] COPY g0:_m THEN . STOP _ RESTORE  MOVE  THEN Gb _[S] igG! IF _$ _<=  g LPRINT OCgY@ o`  FLASH  FLASH  ,[L]T[I] INK  CLS h#Op oP l8n^[Q]@_ VERIFY  LIST  XgPIG NEW 8 /[P] REM  LPRINT oWRI LLIST  DRAW  w LPRINT  w) LPRINT  OUT 7v:<  5 OUT  OUT  COPY  CLS $_Y<  OUT _ READ  o DIM g`AJ/ LPRINT wp _ LLIST j/©+ ▜%OABS O IF ▜@@ _USR  STR$ g  `▜9 FORMAT  CAT  CAT  O[G] FORMAT  & OVER VAL  @@ COPY P ▜ 0@▜ COPY USR   gai COPY OLN D COPY  LOAD STR$ 5▝ COPY  DATA %Y OVER CODE SCREEN$ E @ G LOAD  RUN  GO TO  RUN  LIST uUSR !X TO ▝ MERGE y_ OVER  RUN  READ Uib COPY ▛K"yABS yUSR b2_NOT  COPY ▝> VERIFY pZJ▚ COPY  LIST  LIST  LPRINT  LPRINT USR z~z@ POKE q▗ RETURN  OUT  CLS r RUN  SAVE <= LOAD X{ LOAD XIN  CAT IN  PRINT EZ▘;RND{PEEK {USR zB▝| VERIFY  e RETURN y COPY || COPY u|▝e|USR  FOR %@ OVER [R]%} OPEN #ATN I}[F]}~go~ COPY [B]~RNDa LOAD !E BRIGHT m0 GO SUB [F] MERGE  POKE 7[I] POKE © CIRCLE  COPY  VERIFY u CIRCLE o OR  NEW ▝PIc% MERGE  BORDER qe/ THEN zX MERGE  BORDER bEg@z COPY ©8%▝ COPY  OPEN # LOAD S CLOSE #IN k@@P@ '~aSTR$ } BRIGHT xH}X LLIST x[A]CHR$ © LPRINT  BRIGHT }[I] FOR m CIRCLE  INPUT } BORDER  FOR © BORDER  REM ~X LOAD 8~CODE z CIRCLE BIN  BORDER <=E REM ▜©© BORDER <=E MERGE zNOT [G] RESTORE ▝_LEN f[H]~ LIST  BRIGHT ©>=z[J] OPEN #NOT  BEEP  OPEN #e DATA '▝©H DATA ▘[Q] RUN [M]B[M]yVAL y/zoez@NOT }[B] CLOSE #H2 LINE  RESTORE > BORDER  DATA "zU{ READ 6 LET NEUSR  STEP - RUN VUUSR  MOVE  LPRINT  SAVE  LOAD mUSR  CLS x5© DIM CHR$ 0i@POINT @P% DIM ~ CAT <=[A]) LLIST @ CLOSE # &©&©USR  DIM ©@pDE NEW ▝ OPEN #▝G FLASH G OUT M MOVE  @ )eLQ0 (*DILQZx USR ▗QZ{ BEEP 85 x[Q]▛ MERGE  xUSR p P LIST 0 PLOT    CAT ▘[%8 P LPRINT  &Q2x A;@F9>I/x  VERIFY y[O]x H{y<>Xzy DIM p CODE  DATA SQ-z@i- CONTINUE M OUT CHR$ ^ASN ▖▖ COPY "D COPY D( GO SUB v[T]LN ATTR  SAVE  OUT N8 OUT Rx OUT VejjzzuP OUT ▚ASN x[A]z[I]zUSR x>=z CIRCLE  MOVE  THEN %{ INK  STEP {<={ READ {@{@|@|@|P|P}P}P}`}`U~8^j▖▛U RANDOMIZE  MERGE [N]|[A]~[I]~USR |>=~U<=▟U©©@} LOAD  BORDER ©[I]©USR } LOAD  BORDER  LIST ▙0ACS PPEEK e~x@~0EPx~p[A]U[A]~[Q]~VAL ▘+u>=~USR STR$ ~ LIST ▚0 SAVE  LOAD  CLOSE # COPY  COPY  PRINT  COPY k OUT % CONTINUE © LPRINT   SAVE ▗ MERGE  [A]lo LIST  BEEP  RETURN  TO  DRAW  RETURN  DEF FN  PAPER  DEF FN  RETURN  DRAW  TO  BEEP COS  BEEP  SAVE  OUT >=<= OUT uxNOT ▜ STOP  VERIFY  BEEP  BRIGHT ~x COPY  OPEN #[A]RwR© BEEP r[A] ERASE [C]! SAVE ACS [N]%© SAVE VAL$ -1IN 3jbXCODE ][T] CLOSE #Uh©h MOVE ▖+5<l OR ©FN ©FN  OPEN #▚USR  LIST xl RETURN  RETURN  COPY  REM  CONTINUE ▗M4Y FORMAT  MOVE  LOAD fCHR$  RANDOMIZE | OUT e OUT 5>=}H▘ OUT }( OUT ▚E LPRINT  OPEN #6<fez` INVERSE 6H LOAD zRNDz` VERIFY `p OR ~` CLOSE #SGN  LOAD  ©▖ RUN zEx©▖|USR V5©VAL ©USR $ STEP } LET  LIST [G]a}@ OUT !▘}! RUN  READ BIN  BORDER [S]!▗~▗ OUT RND LPRINT /CHR$ HNOT Xpx Xx@X [K]{(▝ OUT ACS %h (SIN @  THEN ` STOP x qxIN Qx RETURN X y OUT  DEF FN Ex)av▘+ PRINT x AND 9[G]yfyRNDQ FORMAT Q VERIFY q CAT 2 OUT >= RESTORE Y[T] VERIFY /yjL▘FFx> CIRCLE / OUT FN [P]FN ©[Q] BEEP ATTR  BEEP  COPY _(<=K  OUT  RETURN wi<= LIST @ BORDER ) BEEP K  IN  MOVE #  BORDER z BORDER wI FORMAT  BORDER PI BORDER [S] BORDER LN 9 FORMAT  BEEP  MERGE  BORDER INT @@ BEEP  PRINT CODE > ERASE  OUT [S] OUT  LOAD   BORDER | BORDER G OUT  STOP  OUT  STOP   OUT  STOP p  AND  BORDER 1PI CLEAR ©> GO SUB y!BEXP [m MERGE  GO SUB VAL !<> COPY F<> GO SUB LN ! NEW EXP [A]~ PRINT #~ THEN ?8 NEW G GO SUB oOxG## RESTORE ~+{[G]oz[I]g GO SUB VAL  LLIST  FLASH # THEN ?8"8O8AN#~#~ RESTORE bk OVER  THEN ?O0AN# GO SUB VAL COS  THEN ?N8SGN 0=[U] LET  NEXT NOT [A]M NEXT !6[A][ GO SUB VAL 1 RETURN [> CLEAR © GO SUB y!PEEK  RESTORE  MOVE 6IN  GO SUB VAL >PEEK  GO SUB G GO SUB ^>NOT 2IN IN  GO SUB VAL <>!F[A] COPY [ MERGE NOT [![N]j"USR IN  CLS  STEP [G]/CODE 2 REM cB STEP  VERIFY _*EXP j"^/ STEP AT  STEP xdCODE 2 VERIFY j!" OPEN #j2 BEEP j STEP Wd STEP b STEP +k> COPY 2 MERGE j!6<=| STEP [G]k STEP 9s STEP PEEK lCODE 2Io*^/"EXP j CLS NOT [B]b> LOAD  FLASH  RETURN  NEW  TO  CLS m 5 TO l  TO rl STEP k:@l<2@l RETURN USR CODE  ,ASN  TO  RETURN o<> FLASH  RETURN  COPY (<>z INVERSE dD% RETURN D% RETURN D,% RETURN DUx8@,!(@4F$x@0PF: REM cATN >=>© FLASH  RETURN  THEN _USR > CLS 5WUSR > RETURN 0NOT  LPRINT q: VERIFY jO▜▝O CLEAR ! PAPER / CLEAR  CLEAR ^ CLEAR V CLEAR ~ GO SUB SQn2ql<>POINT RND MERGE -?6USR ] OVER ABS BIN ] LLIST  CAT  LINE ] DATA E DEF FN ] BORDER 5/ OPEN #] REM 5POINT  CIRCLE ] GO SUB 5] LIST  IF ( RESTORE  POKE USR  LIST <=ABS  DEF FN k5NOT ABS  MOVE <>RND![![F]qm[A] AND (XHFi!LN VAL Sg:~S[R]x}P LIST `1[I]▝VAL EXP @SIN  PRINT [I]18j▖yh BORDER MLEN FN !ha(<=@ FORMAT xLN -8E8▗[Q][B]I POKE [Q]1@b▗?0▞8 TO 0Pqhp[A]p[A]8[A]hp▖X▖ STEP  REM ^ STEP  NEXT ^ STEP  DRAW ^ STEP _<> INVERSE FN uNOT u INVERSE !6P^P▚PVAL$ 0$ OR ,!<]"E]CODE 2H] CLEAR !RjCODE  GO SUB K OPEN #j CLEAR n CLEAR fATN  GO SUB B8< RETURN >= CLEAR # CLEAR # BORDER  CLEAR q CLEAR py CLEAR !fATN ( CLEAR =  CLS  OR  LLIST  CONTINUE  STEP sw CLEAR wd %0+0u CLEAR 6 PRINT   CLEAR n CLEAR f"<] STEP  IF d' RESTORE SGN  LINE  INVERSE !{f STEP miv>2e([G]>!2h CLEAR  RESTORE >2a STEP [Q]g CLEAR  LLIST :G] RETURN (BIN Ia INPUT  NEW  RETURN ( STOP : LLIST c CLEAR w*E]^#V#w FOR  STEP CODE i FOR # DEF FN es#r:H]< CLOSE #% RESTORE >D[S]`D DVAL ▖D  LPRINT  U STEP h STEP ▖g:> STEP  CIRCLE <>>5 NEW  28 OR  *AT 5ATN ($= INVERSE  FORMAT  INVERSE + n INVERSE f INVERSE ~ INVERSE [O] INVERSE ASN  CLEAR 6 ><>> COPY <>J]U PAPER STR$  INVERSE !ASN a9Lr>`oNOT /ZCONGRATULATIONS !&bYOU HAVE COMPLETE"bTHIS MINI GAME0+xKICK ANY KEY OR !X CIRCLE >`r OR Hb STEP Eb! CIRCLE X>VAL ESTR$  FORMAT >R INK <>vv<> RESTORE  MERGE  OR ~ NEW USR O~ NEW ATN (=LEN 8LEN #| RETURN [( RETURN  FLASH ( BEEP STR$  LLIST  MOVE :e NEW /2▗bv#5 GO SUB y[P]v STEP  SAVE / STEP  CIRCLE j: DIM cATN CHR$ / STEP Bl STEP Ql STEP ro STEP u STEP  LLIST ^[G] PAPER >IN ,.5 RESTORE b TO POINT =5ATN  LINE  MERGE bSTR$ %CHR$  CAT b4 GO TO SCREEN$ U".c2-c/ INVERSE uX COPY u GO SUB VAL [E][E]<>2[N]j STEP n ERASE > NEXT vp NEW !USR @ LET [F] PRINT >o| OVER g LET  COPY [F] INVERSE *;c*.c:-c[G]0c LINE Wc>▗g>o INVERSE 6 RESTORE  CLEAR  STEP  LINE p LLIST $ RESTORE  INVERSE % RETURN , LPRINT ;6%[A] H[Q] RETURN Z-[A]H CLEAR  k#SGN [U]% INVERSE ~q@je  GO SUB [ FOR c4[B]E RESTORE ~,0 LLIST  STEP  GO TO m INPUT 4 0E PAUSE p<32 PRINT  SAVE  STEP Ld<>* FOR c" FOR c<>tFU!@USR "Jv▗3%!AT G$GR>= DIM |e STEP Jh INVERSE ! NEW hLN 45v STEP eG1% LINE  CIRCLE fGC5(-> RUN GK% LINE  PAPER e 5 LINE h %() 5 LINE  GO SUB d #e(PEEK [D]GNOT  RESTORE NOT /=>> OVER 2 LPRINT c<>CODE  RANDOMIZE v>O-5{ STEP USR O8$<>O%<>> CLEAR GATN GE NEW USR > OUT 0> OPEN # RETURN xLEN   CLS CODE  OPEN # RETURN /O@O* PRINT Tu"Uu<>C.SHIFTZuJCVASDFGQWERT1234509876POIUYENTERLKJHSPACES@VMNB!I} OR  RESTORE  p RESTORE  MOVE  GO SUB VAL SQR ESTR$ CHR$ USR e<>%NOT JhOVAL$ ESQR e INVERSE ! RANDOMIZE  LINE ▜%!Dd~RND! PLOT  j CLEAR s CLEAR r!T0 GO SUB Pd0  DATA P t00k@0▗0@INT b@@[E]0P@ W&5 INVERSE !/g LINE  DRAW B5 LINE ~dOs"SGN  OR  GO TO TFALL OFCOS [F]MES,ZSST▗90eDZGMR%▗755/ZVV%%/▗2 EtZAVO▗0 ZF CIRCLE U▗0100WAT 7▖EXP %NOT xd^TURN LEFsUD_:T05RIGH▚TdFORWARD#EtFIRUt0U▗PAUSc▗>U[E]QUIT*ce_:TAN *{CORRECT ? (Y/N)©IN  OUT  LOAD  RUN  CLS  CLEAR  RETURN  INK WSU CLEAR  INK GPIugF GO SUB x/ NEW USR  INVERSE #  PAUSE  CONTINUE "iW/ CLEAR !WeX THEN 0 STEP $[M] RUN  THEN G(1 STEP }g5 THEN O('@%W(@%_(5U  IF /W/WTAB EX MERGE  CLEAR NW STEP 5~2G# LLIST c MERGE  INVERSE  LLIST  GO SUB VAL CODE !@ STEP [D]i MERGE  MOVE <>>v=  DRAW <> ERASE _ LOAD USR E@ COPY 9VINKEY$bINKEY$ ERASE Q>G▚▟5w GO SUB VAL  GO SUB  PRINT >== RETURN @( REM  REM BPROTAB eMMED BYi%$FSPEXP % SO©-J,[K]%MAS PRINT ▞uKARTWORK0/d FORMAT /mVAL /e[M]XMUSIC0/%AT _ '[F] ASN WD.J. %%[Q]1 CONTINUE BO" THEN RND[Q]2 SINCLAI`%[Q]3PSTON[Q]4 REDEFIN5 CIT[P]e-[Q]6 HI-SGN 7 EX PAUSE ETO DOPEEK UdCOPY$> BORDER  [Q] READ 5 '96eATN >= INVERSE #G#%~<> E RETURN  TO ti PAPER U ( CIRCLE  INVERSE  RESTORE Oe INVERSE  LLIST  INVERSE #NOT [D]iXASN  INVERSE # DATA 2 DATA i RESTORE  RESTORE o&)#>= FOR  MOVE  FOR : DATA i VERIFY   INVERSE o INVERSE & RESTORE i INVERSE  RESTORE  STEP  j LLIST ,CHR$  MOVE i LLIST q5▗g<>{[L]U  OR  MERGE [C] BRIGHT 1j$CHR$ %j MOVE STR$ <> PRINT  RESTORE  OR  STEP  INK pSTR$  LLIST  LET <>* OPEN #jd LOAD U OPEN #j: BEEP j<w  OR 8NOT Dw(#LBIN  POKE W;=o>=w;,WLW~wJ% BEEP  LLIST O9G INVERSE ABS  CLOSE #ACS [R]w▜G CONTINUE  NEXT  PRINT GW INK 5 INVERSE  RESTORE  CLEAR  RESTORE G5 PLOT  :ACS % STEP USR GDw INPUT [F] CLEAR  LLIST  INVERSE  LLIST STR$  MOVE  LLIST  LET  INK  CLS o[H]: LPRINT /ATN CHR$ [U]/*LN w▗*INT w▗* MOVE w▗[Q]w▗5CODE 2 DIM cZ PAUSE  OVER E<> CLEAR ! OUT ]w▜w5 CLEAR ~W PAPER _G1 MERGE GBIN O5 LLIST  PRINT G BEEP % CLEAR ~p-_▞5"|k STEP ©OD% CLEAR ^_;RND CLEAR ~2[F]k<>! POKE t©STR$ Ep GO SUB VAL w▚%!>^G LPRINT (_[P]U DRAW /^© LOAD %![Q] INPUT G[T]5 OR  MERGE  GO SUB VAL  MOVE STR$ z NEW CHR$  INVERSE k{ AND  _ PAPER  INVERSE kz VERIFY W READ OSQR `▜AT  PRINT  STEP Lj STEP 7w!JoKo'6▜2©>= OR Hm! PRINT "Im>2nlm!#m"DmCODE 2IN n2iu©[O]%2Alw INPUT 2p© BRIGHT ESn STEP ]OASN  STEP al:nlATN  LINE USR n=C<>@ OR >= PRINT  STEP n LET NOT Ll:Al/BW<> LLIST ©2ASN :Cm RETURN  LINE }lNOT [H]▜-5Cm:p<%CODE l=`%NOT PEEK l0[M]▜Cm▘ 5 RETURN  LINE ATN ▜'  >0(CODE 0/ GO SUB [Dm*Fm STEP ▝0G NEXT l POKE U RANDOMIZE l RETURN  LINE  COPY ▜T LINE iASN m RETURN  LINE m RETURN  LINE mJm▜VU DRAW NOT Km!  CLEAR    RETURN    COPY  $ INK  MERGE  RESTORE *QnL& SAVE ~$Vi$▚_ MERGE 9U STEP 3m:ql▜▜3C MERGE  GO SUB SFm FOR  RESTORE  MERGE *Im:Hmw6% STEP Kqq5 GO SUB SImC NEXT  STEP FN s MOVE  LLIST  RESTORE VAL$ w,VAL$ wO{QVAL$ w<>$| NEW USR } AND  o CIRCLE | VERIFY g<>" NEXT "©Tn,bn8n8[R]n[R];o8 FLASH n8 IF n▘o<>:SnATN ( READ [F]ATN  LINE <n=NOT Jn> NEXT [R]%Nn<OW %--" LOAD  CLEAR p OPEN #uRn RETURN  PRINT >= RETURN  POKE >=$?+n$q0!$ !!,].?%:IN zIN ACS [H]BIN /  CONTINUE PyE>= RETURN >=O NEXT Pz% ;"Pz[Q]@"%INT 6"A  INK GSQR mpn& INVERSE % OR weATN  LINE  LIST o INVERSE 5wUPu~ INVERSE ▚ INVERSE w INVERSE ▚ INVERSE wg RESTORE ;U LLIST  RETURN  COPY  TO  RANDOMIZE o4 MERGE _:IoATN {CHR$  RESTORE o RETURN  RETURN  TO ASN sE5 RETURN  CLEAR  TO  CIRCLE  % DRAW  TO  CLS  5 CLS  TO t% IF  TO A  PAUSE 09EXP g▛5STR$ <>g[S]z5 ▙Up INVERSE  PRINT &[G]BpCSpOdpOupLN ▚pO[H]pOFN p[J]%EXP p<>g} OVER o SAVE NOT  LINE p 0 CLS U AND o[A]~`"DPD OVER @" CLS [A]D SAVE " OVER U CLS " RESTORE  INVERSE u INVERSE t INVERSE s INVERSE rNOT  INK pv[S]$VAL$ <>>o">l STEP Wq*>l>▗©SGN q<>0 GO SUB P%oPp0 LPRINT %N%L& PAUSE H<> REM ATN >= RETURN  NEXT >= RETURN  COPY  LINE INT q RETURN  RANDOMIZE  LINE  ERASE q RETURN  RETURN  CLEAR  DRAW  CLS  IF  SAVE # RUN ( PLOT  - PRINT 2 POKE 7 PAUSE  LINE  FLASH q RETURN  ERASE  PAPER u RETURN  PAPER  PAPER ▘u RETURN  STOP  PAPER zu RETURN  REM  PAPER ru RETURN  PAUSE  PAPER ju<> LLIST g TO CODE n8_ STEP r STEP /jNOT G/~}e LLIST <>:[F]kATN USR PIBIN U< RETURN  LINE ▞aCODE <>%NOT ,/%v INVERSE wATN CGPOINT 6r0dSCREEN$ u MOVE STR$  INVERSE CHR$  r|>w DRAW 5o RESTORE G ©SIN E CLOSE #^! LOAD qATN ▙s COPY ©| LLIST  FORMAT % LLIST  RESTORE  INVERSE "-©-©*E LLIST  RESTORE $-©*P%,©#@,%,:%©P©0W%V©8©[B][H]©INKEY$ NEXT E SAVE v OR [A]SIN [B]U STEP voSTR$  CONTINUE CODE  DATA [J]u CLEAR !I] INVERSE ! sATN %5ATN (G[P]D OR  DRAW P GO TO  GO SUB S FOR c OR ATN . RESTORE  STEP isSTR$  LIST <> INVERSE w{ NEW  PLOT  @ DEF FN {%▘ DATA  THEN ?E PLOT  X INVERSE w5 STEP  GO SUB c▜8 OUT  CLEAR ▗]ex<> RESTORE  PRINT  INVERSE  RESTORE IN ©5";c CLEAR G STEP  OR b! MERGE j THEN ▙ CLEAR ▙U STEP tNOT at #60#AP#e[G] CLEAR !%sh[A]#^0FDPFe[O] CLEAR !*s[A]F▚0iGPieINKEY$ CLEAR !/s[I][A]iVAL$ 0JPeVAL$  CLEAR !4sVAL hPI U> RESTORE  STEP  MOVE tO%[N]CODE U STEP ;j STEP =cRND=G NEXT E INVERSE  LLIST  LET  LLIST <>ATN ATN CHR$ NOT tW[D]N %VAL$ w0% LLIST  PRINT ▜POINT u LET CHR$ [Q]t<>eCHR$  OR t<>O0@ RESTORE @E REM tyw,<>e ww CLOSE # PRINT %NOT uPEEK *[O]Zu REM [O]/[O]eZu RETURN  NEXT  LINE cuzjTAN <>_/NOT INT q VERIFY  REM g.NOT [C]u VERIFY  STOP g.5 PAPER g.5 ERASE g.5 LINE g. } CLEAR  DEF FN  OR ATN CHR$ [Q]u CLEAR  THEN N>= RETURN CHR$ SCREEN$ UV>= RETURN CHR$ TAN ^ OPEN #CHR$ PEEK Uf>= RETURN CHR$ >=(Un>=:iu<OCODE  RETURN  CAT JiATN  GO TO &PEEK ,f FOR u* CIRCLE %}▜<= TO  MERGE /^ CLEAR CODE SGN  LINE w<SGN  LINE  CAT v FOR AT ▚c@ vb[E]UATN CHR$ 5v,O5 COPY NOT &wMe| OVER gNOT /v Xv} AND o$#5| OVER gtNOT R[A]#~#o| AND gI%%>#x[A]F[R] F%| AND #I AND @I[L][A]lBIN v,| AND g# BRIGHT [P]yNOT PEEK [A] NEW v[P]▟ COPY  h%-NOT  LPRINT [A]ATTR Ew>▗[B]5o COPY [Q]ew LET %-w$0# COPY [P] CAT @ PAPER P MERGE  GO TO  BEEP [F]o,& FORMAT NOT ^wIN /e STEP [C]w>▘WIN 3PIN 7PIN ;5 MERGE  FOR  OUT R> THEN  THEN  GO SUB j GO SUB B0?=  LET  FOR  GO SUB j FOR >0 MOVE <>o CIRCLE  RESTORE  MERGE o READ  RESTORE  STEP VAL w MOVE $ OUT  SAVE  MOVE  LLIST <>{PI7PIATTR  NEW  SAVE ATTR gz5ATTR  NEW <=ATTR ▛o BEEP [F]!FACS NOT pVAL$ NOT  AND LEN  ©tRNDTRACKER 2.1w[B]^GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{e[H] PAPER Z>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!)RNDY[A]P)0*@[ :0 BEEP  LET J * *0 ,©:?X0ATTR  Y SQR  /K /PP.U NEXT  RESTORE "eCODE  RESTORE ~2 SAVE SIN 2 LINE LEN ##~#"CODE QE"CODE  CAT CODE g PRINT RCODE O"GCODE  LLIST "`CODE !bVAL$ cVAL$ w OR YCODE 2_VAL$ 2`VAL$ 2aVAL$ 2PSIN 2ASN SIN 2 PAUSE CODE 2qVAL 2 NEXT VAL 2KSIN 2VAL SIN 2@VAL 2CHR$ VAL 2ELEN G/2 AND CODE 2EVAL 2<=VAL >/2[J]SIN 24SIN ! LOAD TAB "USIN "INT SIN ";VAL "ABS VAL "@LEN  STEP MCODE  GO SUB S STOP LEN STR$  GO SUB s.CODE 1u COPY TAB >  LLIST  FOR  BEEP !E# FOR =  PRINT 5?VAL$ >VAL *?VAL$ "eSIN " LINE SIN " MOVE CODE "PVAL " ERASE VAL  CLS NOT ILEN  RUN  BRIGHT u~▜ GO SUB suCODE  E8 INPUT ▚▜# AND  RUN  PRINT  RANDOMIZE  LOAD [M]XE LLIST "SIN SIN m<>{▜_~0 THEN #~ NEW  THEN Z  PRINT 2hVAL$  LET ~ NEW #ng INVERSE b FOR >= INVERSE }▚▜O!?AT ~#fo THEN :8 GO SUB R<><>><(w RUN  LOAD Ky<PEEK # ~2 THEN CODE #"AT CODE  FOR x_@E TO CODE # INVERSE .[P]INT % STEP zCODE )E"bVAL$  FOR 1e IF 3VAL (& RESTORE  COPY [O]{PI PAUSE VAL  GO SUB DOPIM LLIST >2 LIST CODE CODE 2VAL go" RUN CODE "VAL  LLIST CODE U INVERSE |2iVAL$   FLASH U~ PLOT  2jVAL$ ©z LPRINT ©JVAL VAL ©KVAL VAL ©d@©SIN p©[B][Q]©o LOAD ©©vVAL ©▖0©[F]vVAL  INVERSE |!iVAL$ ACS wp▘k ▘{ STOP  TO USR ▘ STEP USR ▘fB4LEN bLEN R LET pLEN % SAVE VAL  LLIST LEN " SAVE @▘[Q]lVAL$ !oVAL$ IN  COPY   VERIFY !lVAL$ B GO SUB yC GO SUB ATTR =W[F]2oVAL$ <>CODE G>=R(>=("=CHR$  OR CODE !_VAL$ 5 PAUSE  OR CODE 6uPI TO MCODE  STEP ▛COS  INPUT 52#SIN NOT `p STEP CODE TAN  GO SUB SSIN 2▖ a7"SIN 0[F]ACS ASN  GO SUB SSIN CODE 064 THEN CODE ]$<=POINT  DEF FN CODE !52DSIN 1@VAL 6 PAUSE  ;VAL 8▗%2[SIN <= FORMAT  MOVE '%2k'ATN Pc.  COPY D%go LOAD  GO SUB %"JVAL ▟/IN $ CAT %2POINT eCHR$ eq CABS 0e0USR  ePu%2 FORMAT  r▖▟[J][C]TAB  p~ OVAL$  CAT ]mVAL$  LOAD  IF E LINE LEN CODE 2 GO SUB  MERGE 2rSIN :SIN =(y29SIN CODE +>7FN <> CLOSE #E: LIST CODE OU( PAPER CODE 2G%>7<>▜%! COPY AT [S]U+5NOT ▛COS  1&o"▘SIN PIx PAUSE XCOS /2}SIN -@l o[U]%g"w% OR A VERIFY  PRINT  LPRINT LEN  AND  8+ AND `8 AND 8gE1 AND @8 DATA  OR ▙<(v<([K]<(VAL <  LINE ▖ [R]5 CAT (%▖TAB O(%">SIN ▞5!?VAL$ ▜@e<=[<> SGN  PIPI[F]K@SQR U( GO SUB  RETURN ( LIST  COPY aASN KSIN 2 PAUSE SIN 2 NEXT SIN 0 INK [T] SAVE X OR 2 INVERSE SIN : CONTINUE SIN = LINE 5TAN y2[O]$[J]$ FORMAT $EPOINT SIN :oVAL $[O]$E INK CODE 2 CONTINUE SIN  ▘$INT "$CODE TAN  12$ BORDER $E|TAN /2 STOP r$ [A] B$ BEEP B$ASN B$ RUN  RETURN &$ CONTINUE 0[R]CHR$ $[T]SIN ▞▘$ LINE  FOR USR <>,*"$h$VAL @SQR [C]$VAL CHR$ $CODE TAN 2$C: LET E LET VAL (8 MERGE NOT lASN 2LEN :LEN = LINE lASN yM(J[D]5" TO VAL <>4.LEN . MERGE ▚ASN /2/LEN *o&0[K] D.. NEXT VAL + CLS l+&++J/,D+ OR g<(/<([S]<(COS <  STEP PEEK 5 CLOSE #($▗&E CAT VAL NOT ACS ASN ▗& ERASE CODE BIN 5<=VAL <>>=4ELEN t4;4ACS ASN v@e RETURN `CHR$ $G POKE %▚ RESTORE G IF y%GPOINT G IF Yet [G]`[K] G PAPER [F]SQR  MERGE  COPY  OVER  LIST ) LIST E` CONTINUE O<=5 LIST ▜TAB % LIST  LINE   BORDER  &$f$e▛VAL  LIST  PRINT O READ ASN + LLIST ©`TAB !ATTR POINT /ATTR +POINT FN ! READ ©eINKEY$INKEY$TAB SIN TAB INKEY$TAB INKEY$[U][U]ATTR VAL ATTR [U]ATTR [U][S][S]POINT VAL$ POINT [S]POINT [S]P%!pUSR 9-FN @K5SIN TAN /ASN  KRND# NEW TAB ATTR !POINT ePOINT `FN eU@0eTAB ATTR % STOP `INKEY$  INPUT ©g▙ BORDER `▙[K][K] LOAD f0 INPUT  LPRINT u BORDER `[I][I] LOAD f0 LIST e BORDER `[G][G] LOAD @ LIST @E LOAD h[I] BORDER `T #' INT eATTR +FN #POINT 'INKEY$ OR %FN +[U]v[S]P PAUSE SCREEN$ USR [P]%VAL #VAL$  SCREEN$  NEW TAB eTAB `ATTR eATTR `Rh' CAT SIN !ASN TAN #SIN 'VAL !VAL SIN #TAN +SIN #ASN 'TAN !TAN SIN #VAL PEATN #EXP 'ATN  $P%! DATA :uASN  TAN ASN TAN SIN !TAB @VAL TAN  SIN TAN SIN VAL #ATN TAN !VAL$ SIN  VAL SIN VAL VAL$ `@u!TAN eSIN `ASN eTAN 5?eTAN kASN eATN kEXP # DATA ©eSIN SIN !SIN SIN TAB ASN VAL uTAN SIN TAN #ASN ASN !ASN #fEASN ATN ASN TAN VAL %EXP #ATN ATN !ATN ATN TAN ATN %#%[F]! NEW ©`[K] [K][K]![K]! e[K][I] [I][I]![I]! e[I][G] [G][G]![G]! [G] FORMAT  /HuVAL VAL$ VAL  [Q] VAL `%USR `*E[Q][Q]5[Q]E[A][A]5[A]  REM  REM   PAPER %0 LINE %@INT %PSCREEN$ %`[K]%p%z[A]j[Q]ZVAL JUSR : FORMAT * LPRINT  % FORMAT STR$ [B]|Ep BEEP  PLOT  [Q]P@@ 0 <?[S]0b2`[C]22G"M[C] /USR [F] LPRINT  LIST  LPRINT +@ LINE +E[A]@ LINE ePPP+P<=*@STR$ eUSR USR " AND U[Q]b,%pheppA)Iu PAUSE  POKE  VERIFY D.CHR$ ▛©E@0 BORDER ATTR p LIST  LET  MOVE CHR$ SIN [T]Lb▜3  FLASH  9.$P9r RETURN  COPY [A]▖ LPRINT [K] PAPER [A] CONTINUE I9 MOVE  IF `} ▝ COPY  CLEAR 9 RESTORE [Q] `%p  RESTORE  FORMAT  LIST   BORDER  FLASH  FLASH  FORMAT [C]ZBi`  FORMAT  P@ FORMAT 5 COPY  FOR  FOR ATTR @` LPRINT @ ` " BEEP  PRINT v STEP R;;STR$ ![H] FOR !f[H] CIRCLE !{0▞0@ MERGE  INK ▜< RESTORE ATN H LLIST  INK ~ THEN © : NEW O[H]▞< NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP INKEY$t LLIST # OVER  LLIST STR$  NEW ©(# THEN w Ge# RANDOMIZE VAL$  NEW ?F# CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE  IN  GO TO  RESTORE  AND 0 LPRINT =# DEF FN  INK <> STOP ▖(HQQ[B][B]CHR$ [T]PIRND[U][U][S]STR$ [B]QHH$$ FLASH [S]<rt REM  LPRINT >= STOP USR  DIM  LPRINT  DATA  LET  LIST tLN [I] CONTINUE  CIRCLE  PAUSE FN  STOP `BIN  STOP  LET  CONTINUE  CLOSE # OVER  REM  CLEAR  BEEP ▖< LET [O]<▜@[S]IN U PLOT   CONTINUE v CONTINUE  PRINT ~|>A! ->{v}w}©:>=41 `USR ▖" VERIFY , INK VAL d<> MERGE C+&e GO TO FN @  H[Q] CLOSE # STOP  CONTINUE ABS B▝1▗#-Z^!▜`T*D*[E]x?_ CAT  CAT ▙[M]80p LPRINT  LPRINT USR  LPRINT +@)1▘ ;[K] NEW  C$▗OTAB  OUT  p LIST 8▘ LIST q`▞@ `<8▗ [A]PUSR (▙▖HH▗[d[E]D[U]D▗USR >=((STR$ ▗$$o@F[L][%f COPY  FORMAT )wW NEXT ▘ VERIFY CHR$ NOT (STR$  OR CHR$ k POKE w©;=SCREEN$ ?>} RETURN  DRAW  IF  GO TO  IF  CLEAR  RETURN  RUN  COPY  CLS  COPY  PLOT   RETURN  DRAW  DRAW  IF  SAVE  IF  POKE  SAVE  POKE  DIM  FORMAT  CONTINUE SIN  CIRCLE  LIST  DATA  FORMAT  POKE  LPRINT  REM  LIST  POKE  LIST [N] CLEAR ▖ OR D STOP 2 PAPER POINT POINT Ud CLOSE #[S]LEN  OR  ERASE USR  POKE  REM  LIST  AND ( RND▝SCREEN$ ▝FOA,'LSW[Q]▛ POKE zIN ©?▝▖[A]HD#[A]'PI+VAL G[A]▘STR$ STR$ @NOT  USR ![Q]AUSR  DATA  PLOT  r SAVE  BRIGHT  COPY ? CAT cSTR$ 1(<SGN  IF  COPY  RETURN USR  COPY ▖© RETURN  COPY  CLEAR ©}?7CHR$ ?▘©©▘[P]▝NOT USR RO▟[Q]@[C]m: CLEAR  CAT  RUN  CLS y1"[A]IN  RUN  DRAW  RETURN  RETURN ©<<=[T] LET  SAVE  GO TO  CLS H FLASH  COPY w COPY  INPUT  OR  COPY ▝ [R]ATTR ▝[J]USR [Q]PFN  POKE  IF ©IN  CAT  BORDER  RANDOMIZE v COPY ?▜ LIST U OUT ▘▙ LET  CIRCLE  RETURN © COPY  CLS  DRAW  LET USR BIN [A] DATA  ▘(C ERASE USR p POKE [J]DPOINT  VERIFY  RANDOMIZE  RETURN  RUN }IN  OUT  LOAD  BORDER  LET  LIST  SAVE >PI RUN  LOAD  PAUSE  CLEAR  SAVE  RETURN F▗3▘ LLIST ▝@A REM  SAVE  PRINT  IF W4 OR NOT E LIST `WqfCTINT  FOR  SAVE [C] DRAW @,© LLIST  LET  DRAW  RETURN  BORDER STR$ x6 FOR  OR 3 DRAW  LIST b[A]▘aA[U][Q] CLOSE # INK  CONTINUE  RETURN  RETURN USR  LIST  !aBSTR$ f[L]PI_© COPY  SAVE  LPRINT  LPRINT 0<| SAVE  DATA x LIST USR @0![I]POINT [A]▗C ([R]ASN USR  <`@[H][F][Q] FORMAT l<= STOP RND LPRINT  RANDOMIZE IN [P]▜D"c OR !<=IN ▝USR ▖c CAT *U`"|VAL 0``USR USR ( FOR jCHR$ b!LNUSR ▟[I]"D▗ v(<808_ASN 9= RANDOMIZE  THEN ▖USR `[A]0 MERGE !CHR$ ASN  LINE  INVERSE  NEW [Q]0lSfyEXP + INVERSE  RETURN  FLASH  LOAD  CLS  LOAD  BEEP  CLEAR _© SAVE  POKE  RANDOMIZE  POKE  RANDOMIZE  IF  COPY |~~©©~~USR  RETURN [D] DRAW  DRAW  RETURN  DRAW  RETURN  CLEAR |z|z<>=▛ PRINT Pc[E]USR aPI OVER 5MPEEK  SAVE  RETURN  INVERSE  CLS rASN [F]@▖@ OVER CHR$ |e LET ▘ ▖ GO TO ▘ @ OUT ([Q]▖0[E] LIST  POKE  SAVE NSTR$ |9<x PAPER =X,pp IF S RANDOMIZE c OUT  COPY AUSR B▗▗STR$ ▘STR$ "QUSR  COPY USR ▝STR$ ▝▗ CLS  COPY P▘[Q]▖ FORMAT BIN  DIM  CLOSE # OR V[E] BEEP N?z^q/INT [U] COPY ASN  IF IN ©{=7? DIM [E] IF  TO z DRAW © LOAD N[F]PILN C[I] RESTORE  GO TO  CLEAR  COPY  REM [C]VAL gABS & POKE  PAUSE  INVERSE : DRAW  NEXT SGN [[K] OR  RETURN }H@▘+~STR$ NOT y BEEP CHR$ INKEY$ COPY  AND ( CIRCLE ,nKINKEY$)BIN  VERIFY  COPY EAT © COPY <=<>©~ RETURN  CLEAR  DRAW  SAVE  IF  PRINT  SAVE  CLEAR  SAVE  PRINT  SAVE  IF  CLOSE # IF  DRAW  CLEAR  RETURN  RETURN  COPY ©©? AND [E] COPY __O▜ BORDER  COPY <=BXOAT  CLS  USR ▝CHR$ ▝COS <>INT [B][I]B FORMAT [U] PRINT  LPRINT  LINE  LPRINT TAN  LIST TAN  ERASE  SAVE  ERASE x MOVE  POKE a POKE  IF  OUT  CLS NOT `C<= COPY <> COPY  LLIST [O] MOVE STR$ A FORMAT @ AND  STR$  Ji ERASE } LOAD @▜ SAVE  STOP [I]E GO TO © COPY NOT [Q]▘  ©[G] CAT USR ?D[U]SCREEN$  PRINT  RETURN ▘▚GEAT  DIM [P] FOR SGN 0HCODE UAT  VERIFY ©C▗©©IN OyUSR  OUT ▟h OPEN #▜y[E] PAUSE  COPY ACS ▝[R]b▜ CLEAR  DRAW Yx@ LLIST ▛©▗ OR  SAVE MAT I[F] GO SUB  A LET /© MERGE  GO TO ixUSR  INK [D]`O▝O RETURN IN iABS  REM [D]|c !USR QCHR$ yG< BRIGHT  DRAW  LOAD  CLOSE # GO SUB [A] SAVE ▗ MOVE @ CLEAR &CHR$ IN  GO TO [B]0.3 LLIST 0 AND 7WIN  REM  REM [J]▗NOT ? CLS ▝USR ▖-R INK |[N] RUN  NEW [G]; MERGE ?<USR SGN CHR$ >=x>! LOAD  GO SUB |@ OPEN #[J] CONTINUE  LPRINT LEN `  COPY @▝ LIST o GO SUB © RETURN  READ [F]USR @p▙[B][Q]= COPY <=VAL  ERASE ▙#`a RUN PEEK LN ▝ BORDER y@ MOVE ▝5[H]@[O]x▗#0@[D] INPUT ATN a[N] CLEAR  COPY ~ATN  LLIST [M] TO wt@[Q]@f NEW 5 CLEAR  RETURN  OVER  COPY o$ RANDOMIZE M COPY  RUN  LOAD  INVERSE 5<>k! REM [D]JSCREEN$ ▙ RUN  OVER z[I]$BIN  NEXT qEXP  OVER  RUN  CLS  SAVE  PAPER ▘pb▘▛[T]B COPY [I]z BEEP  OVER  DATA Ed[Q]|{ CLS IN  RUN |@<=RND CONTINUE EXP ' VERIFY R▞CODE [M]=<=C▛& LPRINT CUSR <>wm BRIGHT f▚ COPY  SAVE  RUN  LLIST  IF ▗ CLOSE #POINT # CONTINUE !KS<[p CLOSE # CONTINUE I SGN | CLEAR 7▛  RETURN M©LEN ATTR  RESTORE <>TAN  COPY CACS d>= TO [P]VAL$  "@ DATA [E]?`[E]8[I]ATN SQR pbm5) CONTINUE  FLASH  RETURN { DRAW  PLOT   GO SUB  COPY SQR  STOP  DRAW POINT 9[B] COPY  COPY SGN | COPY G% BORDER GGIN  STOP ^TAB  GO SUB ▖d50USR  DIM ▜%USR ;J▝ySTR$ >`VAL DUSR ▚USR 8USR  SAVE ▙# BORDER [G] LET  LLIST [A][A]HHD  NEW [H][Q][Q]P`[T]AT  OPEN #hATN `@[Q]>=d4[K]Jd[L]5 FOR ▚USR  OVER ,@ DIM USR  COPY ▘ BORDER  BORDER  CIRCLE  COPY  INVERSE x(x INK xhxX INK (USR x CIRCLE xUSR  MOVE x@x CIRCLE  INK A@)HP"USR y5yy[I] CONTINUE y%z(z4%zhz4 PRINT zUSR zUSR  CONTINUE ▚ PAUSE [G]k OR 5 THEN 8 GO SUB &,YR& [E] OR P[Q] LPRINT USR @ LIST USR ▜8wUSR @ATTR 3" GO TO ▘ RANDOMIZE L▘@@USR q REM ▗0>=p▖<USR  ▞@@▝[O] LPRINT |▖ PLOT  ▜ LPRINT & CIRCLE AT  LIST G LLIST [F] FLASH  AND ▗O PAPER % TO  BEEP  LPRINT STR$ USR FN  FOR [M] LPRINT VAL >=6 STEP 3 TO COS LCOS lCOS /CODE USCREEN$ WATTR _VAL$ WATTR USCREEN$ NOT ▚  VERIFY [J]@ LET 9 CAT 3 STEP , INPUT PEEK VSCREEN$ VSCREEN$ UATTR WATTR  INVERSE CODE  RUN  FOR 8CHR$ STR$ STR$ `Hj▘USR USR o THEN ▘ LPRINT >[C]▘ TO  CLS  DATA [T]N3SQR /STR$  !"SGN  LPRINT @▝d THEN ▚b▗▗▖7#IN   REM ▜8 POKE  LET 9x*[G][I]▖[A][B]Qcca 0PI▚▗[L] PRINT (HD▗ OPEN #▞D▖▖"!sUSR ul? PLOT  `g>=i▙#DBIN ▛>= FORMAT  RUN  RESTORE  CLEAR  COPY p;USR  THEN [D]'((CHR$ " NEW ) OPEN #< TO 3 TO TAN >=p`Ag[B]dR[C]RD[U][R] STOP E<$ FORMAT  `>[A] LLIST D;RB,2B POKE (BIN 0`]9[P]ySQR NOT ▘USR  hS©[Q] SAVE  COPY  STEP © LIST © LIST  INK P CIRCLE P<>© LPRINT © LIST ▝ BORDER NOT 5pUSR 1`%`7`C RESTORE <> CLEAR  COPY  OR ▘mK OR ▗[. BEEP [B]&JIJ"%G[S]<P$h-[A]x▜ " BRIGHT 1JB4LB/#`L[E] NEW W MOVE uBIN "# MOVE  LOAD PI LOAD Z   BRIGHT `o[D]USR 0▖ DATA CDg[E] THEN <3 TO 3-BIN [M]1W COPY ▞▛<=<=▜[D]a! CONTINUE =>USR ?[B]{SQR ©IN ?&IN ©▝ SAVE 7 RUN ▗p`'_l©[T]EXP STR$  OUT STR$  LOAD ▖ RUN wwEXP  OVER  OVER  INPUT  LOAD BIN  RUN ▗ BORDER NOT KRND.x▝x: OPEN # COPY ©?IN $s▗~>uUSR  LIST  SAVE  DRAW  RETURN $▚BIN  OUT slUSR  CLS USR  CLEAR USR  RETURN ▘ DRAW  DRAW dATTR |COS  TO [A]BIN USR  LPRINT @H MOVE  COPY [B] CLEAR  IF o/sL3< RUN  CLEAR  REM  MERGE  REM  MERGE SCREEN$ SQR  PRINT  LOAD  STEP STR$  LIST USR  SAVE USR  DRAW STR$  RETURN =▘ OPEN #ln▚2 STEP 6 STEP : PRINT @U REM  MERGE  IF uF DATA  AND ▗@USR @USR  CONTINUE E©BIN <>S}=▘ PRINT  DEF FN  MERGE SCREEN$ Uj5*5yPI▝W▚v COPY  IF  INVERSE  GO TO ▘ PRINT  IF !▘z>=[C]vPEEK ^PEEK |SGN ^PEEK _IN _CODE _CODE WCODE W ▘_IN  DRAW ~ OUT  LOAD TAN * ©VAL$ [L]▞USR STR$  LPRINT ▘STR$ STR$ ? PAUSE  COPY  NEXT BIN ▝ COPY STR$ ▝ LIST  CAT ▟CGG<= BORDER _CODE  OUT IN  OUT &USR ©[D]? CLOSE #G<RND INK ▗ SAVE  SAVE  LIST  LPRINT LEN ~=[N]. DEF FN  RETURN  RETURN  REM  VERIFY  GO TO  CLOSE # GO TO  CLOSE # REM  PLOT   FOR  PRINT  COPY  CLEAR  FOR  PRINT  INPUT  RANDOMIZE  PAUSE  CLOSE # PRINT  OVER AT  CIRCLE FN pw+~}qRND CLOSE #~ABS  FOR ~ CLEAR  FOR ©=} OPEN #e CIRCLE  COPY v[Q]▝ COPY  FORMAT $▟ OR  FORMAT %_[I]<>@x@0( TO  DATA [M]z STEP ExUSR |NOT  BEEP y LIST J LIST ^ASN  CIRCLE  COPY zUSR  DRAW } FOR }USR [F]u TO &L~R}<![M]/s©©Wk7+7+Wo BEEP CODE  COPY IN  BEEP CODE w[P]O+CODE {5[C]$▝USR STR$ CHR$  STOP  STOP  READ  BORDER  IF  PRINT  CLS  CLEAR  CLS  COPY  RETURN 7POINT ▘ DRAW  SAVE COS USR ▝ CAT ~USR [A] OUT  LPRINT USR p FORMAT FN X SAVE p LET  BORDER SQR STR$  LPRINT  SAVE  COPY  LIST  CAT IN ▗©gWwo[C] BEEP n}z}>=z} IF  CLEAR  IF  PRINT  IF  PRINT  REM  PRINT  REM "TAN  IF  CLEAR TAN  OR ?~ CLS  RUN -[E]~STR$ @[A]U VERIFY !VAT TAT XFN PVAL `[Q]`[Q][U]AT ▚n COPY _SQR WATTR AUSR vS INK  BEEP [R]U▝ LPRINT  RESTORE g DEF FN  CLEAR ▜[R]▗▝s<=C▝s MOVE G▝CSTR$ F▝FSIN xLN DeDx @>=C BeBx`STR$ E& RESTORE Exx`xUSR  OR 8p LPRINT STR$ A8%Ax LPRINT ( ,@ %` FORMAT GX LPRINT ) LPRINT ySTR$ Y[Q]y LLIST  COPY G OPEN #G STEP  BEEP !@@u GO SUB VAL 6G COPY  GO SUB VAL  CLS v NEXT  STEP w OPEN # STEP  BEEP  INVERSE !x CLOSE #&R STEP  NEW  ERASE bk GO SUB VAL  RETURN © GO SUB x>=2▛ OPEN #>2RND ERASE >2INKEY$ ERASE >UEXP  ERASE (&@ /e STEP G CLOSE #&F9LEN e> DEF FN />">/<> OR  INVERSE n INVERSE #& INVERSE  THEN 0q}-ro SAVE  U IF $ INVERSE # INVERSE ^'0,#,(0'/50,/STR$ CHR$  CONTINUE  ERASE <> GO SUB sD CLOSE #1USR  CLOSE #> RETURN ? >8 INK  DEF FN 2© OPEN #▜O!© VERIFY ^#V FOR "Q CLOSE # MOVE {ACS w,z2$| NEW CHR$  LIST  OPEN #} AND  o8| VERIFY gO-O-2 O? CLOSE #pOECHR$ [R] OPEN #1 FORMAT %b CLOSE #% !E> MERGE  ▚W07 RESTORE ▚P OUT 0&<>! S(AB@$KS ERASE  9+U%+CODE I2+7RQ?,I R &CODE @I© SAVE  LPRINT  RUN ▝ COPY USR ©USR USR  LIST USR  LET USR  LPRINT  LIST ASN USR  SAVE  LIST  LPRINT  LIST x LPRINT STR$ px SAVE )ASN NOT USR |> SAVE  DRAW |<USR <=8 SAVE <>ASN <=>| DRAW  DRAW  DRAW > CAT T[F] DRAW >?? DRAW aASN  CAT ~ DRAW  RETURN  RETURN  DRAW  DRAW  OUT 0~}E OUT ▝ SAVE  DRAW PI BEEP % DRAW  LIST 8~00pE CAT USR  DRAW <= LIST p8%~ LIST ?5 SAVE  DRAW  COPY BIN % CLEAR >BIN % LPRINT  DRAW TEA SAVE  LPRINT  OPEN #5 LPRINT ©[P]M PAPER %USR  CAT ECOS ??STR$  USTR$ STR$  SAVE < LPRINT y DRAW  LPRINT BIN E CAT USR 5USR 7 CAT FN % FORMAT ~>CODE  NEW 5>~[A]FN 5 CAT 7USR FN 5USR w LOAD FN %>BIN u<[P]USR  BORDER gP[P]< DRAW  DRAW USR  NEXT  READ STR$  8U READ NOT  NEXT  LPRINT < RESTORE  LPRINT  LET NOT  COPY   COPY ▝ SAVE  LIST 8▝ LPRINT USR <= LIST | SAVE ▝CODE  OVER ▝RND COPY  COPY  RETURN > DRAW ~©▖9▖<▖>FN 9FN ;FN >>=8>=;>== CONTINUE 8 CONTINUE : CONTINUE = CONTINUE ?BDF(A(C(FH@HBHDHGh@hBhDhF▖@▖B▖D▖FFN @FN BFN DFN EFN G>=A>=B>=D>=F>=G CONTINUE A CONTINUE B CONTINUE C CONTINUE E CONTINUE F CONTINUE GHIJKLMN%O(H IJ[M]!3 LLIST NOT ] INK NOT COS  BRIGHT  PROTRACKER 2.1 BY GOLDEN DISK  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙▚Bwpkd^YTOKGB?;852/,*'%#! BORDER [O] BEEP COS I[A]P)0*@O CAT  :0kJ * *0 ,?X0ATTR  Y SQR  /K /PP.U NEXT  RESTORE "R PAPER  RESTORE ~2 RESTORE  INVERSE 2ATN  BRIGHT ##~#" PRINT  INK  " PAPER  STOP v#"? PAPER O"4 PAPER  LLIST "M PAPER !O INK P INK p GO SUB VAL CODE 2L INK 2M INK 2N INK 2= INVERSE 2[S] INVERSE 2 OUT  PAPER 2^ FLASH 2 LPRINT  FLASH 28 INVERSE 2[N] INVERSE 2- FLASH 2CODE  FLASH 22 BRIGHT G/2COS  PAPER 22 FLASH 2TAN  FLASH >/2▚ INVERSE 2! INVERSE ! BRIGHT  CIRCLE "B INVERSE "PI INVERSE "( FLASH "SCREEN$  FLASH "- BRIGHT  STEP : PAPER  GO SUB S CAT  BRIGHT STR$  GO SUB s PAPER LEN u GO TO  CIRCLE >  LLIST  FOR <=E# FOR =  PRINT 5, INK >VAL *, INK "R INVERSE "ATN  INVERSE "PEEK  PAPER "= FLASH "IN  FLASH  CLS NOT 6 BRIGHT  READ 5~▜ NEXT  PAPER  E8 INPUT ▚▜# AND  DRAW  RANDOMIZE  LOAD XE LLIST " GO SUB  BRIGHT  INVERSE <>{▜_~0 THEN #<=d<=e THEN Z  PRINT 2U INK  LET ~ NEW #ng INVERSE b FOR  INVERSE }▚▜O!, BEEP ~#fo THEN :8 GO SUB R<><>><(w LOAD fomy<PEEK # ~2LN  PAPER #"[J] PAPER  FOR x_@EEXP  PAPER # INVERSE .z% STEP g PAPER [I]E"O INK  FOR [Q]e IF   FLASH (& RESTORE RND!{PI PAUSE  COPY  PAPER  GO SUB DOPI GO SUB B0 LLIST >2 INVERSE  PAPER CODE 2 GO SUB  PAPER go" DATA  PAPER " PLOT   PAPER  LLIST CODE U INVERSE |2V INK   FLASH U~ PLOT  2W INK ©z LPRINT ©7 FLASH VAL ©8 FLASH VAL ©Q@©[P]p©~ FLASH [A]©U/ FLASH CODE 2l FLASH ©c FLASH ©u FLASH  ©[F]c FLASH  INVERSE |!V INK ACS wp▘X ▘{ STOP EXP USR ▘INT USR ▘SB! BRIGHT b BRIGHT R OVER ▝ INPUT ▝% RESTORE  FLASH  LLIST  RUN 0▘ RESTORE @▘[Q]UY INK !/ INK o[D] CLEAR CODE ACS >  VERIFY !Y INK B GO SUB yC GO SUB ATTR =WU2/ INK <>CODE G BEEP LEN =R(>=("=CHR$ SIN  PAPER !L INK 5 PAUSE SIN  PAPER 6uPI TO : PAPER  STEP x OVER  INPUT 52 INVERSE NOT Mp STEP [M] OUT  GO SUB S GO SUB  BRIGHT 2u N7 INVERSE 0[F][T] LPRINT  GO SUB S INVERSE CODE 064LN  PAPER ]$G PAPER %"SQR  PAPER !521 INVERSE 1- FLASH 6 OUT  ( FLASH 8▗%2H INVERSE 'PEEK '%2X' FLASH 9 PLOT  D  GO TO D%go LOAD  GO SUB %"7 FLASH ▟/IN $e:N%2[G]eCODE e^ CSCREEN$ 0e0TAB  e=u%2ABS  ru▟▚[C][K] pk O INK TAN 5Z INK >©%CODE 2 PAPER  MERGE 2_ INVERSE :p INVERSE =(y2& INVERSE CODE +>7FN <> CLOSE #E: INVERSE  PAPER O(pG%>7<>▜%! GO TO  BEEP [S]B+5NOT x OVER  1&o"o INVERSE PIx PAUSE E OVER /2j INVERSE -@Y uog"d% OR A VERIFY  PRINT  STEP  BRIGHT  AND  8+ AND `8 AND 8gE1 AND @8 DATA  OR ▙<(v<([K]<(VAL <  LINE ▖ [R]5 CAT (%▖ CIRCLE O(%"+ INVERSE ▞5!, INK ▜@R<=H<> SGN  %PI<>CODE 00SQR U( GO SUB  RETURN ( LIST >D[F]2 OUT  INVERSE 2 LPRINT  INVERSE 0 INK [T] RESTORE X OR 2 LINE  INVERSE : MERGE  INVERSE = LINE " OUT y2▛$▚$ABS $E[G] INVERSE :/ FLASH $▛$E INK CODE 2 MERGE  INVERSE  ▘$PI"$[M] OUT  12$ CLOSE #$Ei OUT /2 CAT r$ } B$BIN B$[S]B$ RUN  FOR &$ MERGE 0[R]CHR$ $[A] INVERSE ▞▘$ATN  FOR TAB <>,*"$h$[N]@SQR [C]$[N]CHR$ $[M] OUT 2$C: OVER E OVER  FLASH (8 MERGE NOT Y LPRINT 2 BRIGHT : INPUT  FLASH = LINE Y LPRINT yM(J[D]5"EXP  FLASH <>4. GO SUB  FLASH . MERGE s LPRINT /2 BRIGHT *o&0▜ D.E RUN  FLASH . LPRINT  FLASH + CLS l+&++J/,D+ OR g<(/<([S]<(COS <  STEP PEEK 5 CLOSE #($▗&ESGN  FLASH NOT [T] LPRINT ▗&IN dEXP > COPY 42 BRIGHT t4CODE [T] LPRINT v-& RESTORE  PLOT  XINT ~ LPRINT B[U]G OUT 5h LINE %u,/QsSCREEN$  OOSIN CODE  SAVE E[P]] CLS U0 RESTORE  COPY  STOP k[D]EXP  LIST 4[D]ACS  FLASH 7  e@C ERASE  _ASN  DATA ©`EXP ATN #ASN !ATN %TAN !RND'TAN !ASN TAN #SIN !TAN %SIN 0 OR VAL %SIN ! LLIST ©a[F] READ `[R] STOP   LLIST 0bUb[B] READ `[N] STOP  !E p! RESTORE ▛$▛LEN TAB ATTR #POINT !ATTR %FN !RND'FN !POINT FN #INKEY$!FN %INKEY$0%[U]%INKEY$N NEW ([F]POINT  RESTORE POINT  NEW ATTR FN  RESTORE FN FN  NEW 0uFN  NEW POINT FN INKEY$ RESTORE INKEY$ NEW INKEY$@[U] INKEY$' BORDER ©`POINT POINT ]INKEY$)[U]"xYPOINT   LPRINT !POINT  LPRINT POINT x^FN #xw[U]xjINKEY$+ LPRINT AT '^0)u([U]! BORDER STR$ % NEW STR$ USR #SGN /PEEK ! RESTORE z`TAB zATTR #zPOINT !e% DATA zFN !p'0#U#zINKEY$!&%0VAL %[U] E! READ ▞[F]VAL [B]VAL #5©c[R]TAB VAL [N]POINT VAL %`J# CONTINUE m5!TAB #ATTR  uATTR -TAB %POINT !POINT #q%FN +POINT @  5FN ATTR 'POINT "[A]=[U]"RND-FN _p! DIM [U] REM  OUT 3[U] [U][U]![U]  READ Q▞ LPRINT [F] LPRINT ▞ LPRINT ![F] ! m LPRINT [B] LPRINT  LPRINT ![B] !  ERASE % FOR ©`E "# OUT q LIST [F] LPRINT  FORMAT USR VAL  COPY ;* RESTORE   LIST  LPRINT  FORMAT  USR ( b-e BORDER 5&PEEK p STOP  COPY  DATA &[K]E[Q]VAL  )03[Q][A][A]pp``P5@0b` 0[Q]PP80ASN 00Aw FOR <`0P9`YBIN [A][B]`[E]0b`Y``G0Y0MPOINT   ERASE &#[Q][Q][Q][Q][A][A]k[F]pp+POINT @ DRAW [T]+"4ATTR [E]VAL$ [Q] d` OPEN #[A]<=STR$ VAL$  LET  OPEN #TAN [G]wY91B RUN  READ VAL P@0$ABS L USR [Q]`@0Gh&%, DIM %B INK O[J] COPY IN E▝ COPY USR  COPY E CAT ▝NOT ▝ RUN [J])!0%▝CHR$ ▝(H MERGE ▝ RETURN USR USR ▘▝ RETURN 0NOT  CIRCLE XUSR ASN H TO 66 SAVE  ERASE ▖▞▗@ PUSR  INPUT  DRAW  ERASE ▝|>=D▝▘#▗(D▘ USR BIN ▘▘SH RETURN > ERASE "▝B FORMAT -▘ @xUSR `USR x LLIST ` LLIST pUSR YTAN x LLIST Q[F]XUSR A COPY 1!P!z:;Z!Fy[R]Q[R] MOVE ▗▘D(xy[R]▘ SAVE (/23 TO Z▝x LLIST 9[R]1TAN ▝ RETURN  FLASH [P]7ba!g!#( MERGE [!+IPI#a MERGE ▝ COPY Q[R]▙*p!{( REM # IF !ASN hUSR  BRIGHT YCOS p<>|@|yASN  RUN  BEEP  OR >=▝ DRAW © FOR  FOR |LEN  FOR  OUT % COPY  IF  DRAW ~[R]$EXP L= 5 THEN  COPY 8% BORDER 8~ll9%$~$|P|T|bd6f<$:fc~8V9j COPY ▚oU(|(QHy@,|YjE0`<=u AND  LINE  ERASE  STOP  RETURN  RETURN ASN  RETURN  RETURN  RETURN USR USR  RETURN  RETURN  DRAW  DRAW  RETURN  CLS  RETURN 5USR  AND  AND  RETURN {% RETURN  AND USR  RETURN  RETURN [F] AND 8p LPRINT  LPRINT ||D|@&CODE < INPUT  LET G~h(G>IN ? DIM z<B OPEN #gI#<JV^@</w;_ LOAD Gpxlx|f~|6vp6`px|n%||`<[F]xx`` >`o u@cc©©ccY`ASN l||bgn||~gb@)`e||Bg©©k(uFfv~nff GO SUB 5>6©©ppP2uzl~wc~|ng8~~)%@`fu~<cw6>x RESTORE `ck©©s! AND  INPUT |8| INPUT  AND f<(%©© ;>5p▝BIN [G]5}iU LLIST STR$  CAT <i5c} INVERSE UNOT c▙ GO TO Fp UwaFu RUN coJ@6@Jo OVER 5 RUN  CAT `RUSR  Ro RETURN 5 READ f CAT b``bw5STR$  CAT  GO SUB  FORMAT [Q]e OUT } LIST <$E GO TO  BORDER  AND v5 CAT =WAT ASN  CIRCLE o INK  CIRCLE 8 DRAW c 5ASN | INPUT /cc^ INPUT 8RNDUSR  AND w6cAT  INPUT  AND  MERGE  RANDOMIZE ASN  OVER  DRAW ;6c DRAW v DRAW  RETURN 5l SAVE _  PEEK  SAVE %8 BRIGHT  LOAD   % STEP  OVER  BRIGHT E DEF FN Ga CAT 25▗▙ DEF FN pIIJPOINT L[A]9NEXP K[A]MOmI Y@Y`YY[Q]YUSR Y LPRINT |@>= PRINT = PLOT  < RUN WGPOINT  OUT  SAVE  OUT  STOP  OUT  NEW 9YYYYYYYYYYYYYYYYYYYYYYYYI17TAN HSfTfUfVfW▚P▚Q▚R▚S▚T▚U▚V▚WINKEY$PINKEY$QINKEY$RINKEY$SINKEY$TINKEY$UINKEY$VINKEY$W AND P AND Q AND R AND S AND T AND U AND V AND W NEW P NEW Q NEW R NEW S@ABCDEFG5uHIJKLMNO5uPQRSTUVW4@SjTjUjVjWPQRSTUVWSCREEN$ PSCREEN$ QSCREEN$ RSCREEN$ SSCREEN$ TSCREEN$ USCREEN$ VSCREEN$ W LINE P LINE Q LINE R LINE S LINE T LINE U LINE V LINE W REM P REM Q REM R REM S7 DRAW ▜2PIt POKE %8w FORMAT E VERIFY  AND  RETURN  AND wJwaEkc© OR c1? OR 1USR USR %USR g▘USR `` LPRINT  LPRINT `USR  LPRINT VAL 0 LIST  LIST 0[P]ABS  LPRINT  LIST X SAVE IN Hp SAVE AT  DRAW ^Es PAUSE ~xw>=9y?xUSR USR USR <z_aASN  LPRINT  LPRINT USR gOASN p LIST 0  LPRINT USR IN [I] CAT e SAVE [I][A] LIST IN AT  LPRINT PI;| TO >= SAVE xp[P]k©@E NEW  DATA  DRAW  RANDOMIZE 58 SAVE %fo% DRAW  SAVE © BRIGHT e~373[C]© CONTINUE >eUSR ?©wASN USR  LPRINT USR G> OR USR ` LIST `USR ▜ RETURN  MERGE USR  LPRINT 0x0 LPRINT USR <=ASN  LPRINT  LIST [I]SGN [I] LIST _. OUT ▖[F] SAVE  TO  OVER  TO  SAVE <=Qp RETURN  PAUSE /p9"p$5< DATA o PAUSE $EUSR @ LPRINT p$ LPRINT 0Ppp$ LIST [I] MOVE 8"p%p SAVE  TO ▜EXP CODE D SAVE  DRAW  NEW ▜J▜ VERIFY b SAVE k▜g[A]R SAVE 5 INPUT [A]R SAVE  INPUT [A]R SAVE %`[C]o OUT B SAVE %VAL [C]R SAVE X INPUT [A]R SAVE AT o[A]0E~O DEF FN  LPRINT BE?'ghpBeUSR 3>AT 2eUSR  LPRINT USR AT 2u LPRINT  LIST  LPRINT w["U LIST xpATN =l%<8 CAT >=E DRAW [O][M] LOAD D? PLOT  ? CONTINUE  FORMAT  DRAW { FORMAT  DRAW %= CONTINUE 2 FORMAT  DRAW %USR  CONTINUE " FORMAT  DRAW %`` CONTINUE ©u SAVE lE0VAL 0r4Q DRAW  DRAW % CIRCLE [I]r4Q~ DRAW  GO TO ~>= LPRINT v DEF FN  RETURN ~4%|g RETURN ?F8 LOAD 3 RETURN  BRIGHT ▙ RETURN ▙& RETURN v&&EUSR pxv&&E LPRINT 8<&&E LIST [M][O]BBBB<|BB|@@<BBRJ<|BB|DB<@<B< RETURN BBBD? PLOT  ? CONTINUE  FORMAT  DRAW { FORMAT  DRAW %= CONTINUE 2 FORMAT  DRAW %USR  CONTINUE " FORMAT  DRAW %`` CONTINUE ©u SAVE lE0VAL 0r4Q DRAW  DRAW % CIRCLE [I]r4Q~