Sound Tracker: ST.128K.B

  1 CLEAR VAL "24999": RANDOMIZE USR VAL "23941": REM  MAD MAX PROTECTION SYSTEM (WAS) COPY  COPY  NEXT CODE 2H/2▟/!@@ COPY w GO SUB VAL  OPEN # RETURN >L GO SUB O!CODE ] GO SUB _VAL$ w#xLEN   PLOT  n[LEN [F]PIC PRINT .tJ;^WD INVERSE NOT  CAT [P] THEN % OVER K1DTAB M"}l>=" CLEAR 4 COPY z(-~DIN ▞0 CIRCLE v+ READ  TO w REM }PTAN STR$ | OUT  NEW 0eJ< IF SQR K+ FORMAT u DRAW KPIO[L]IN [C] NEW ▞[E] REM LN ▝ PAUSE ~ IF  PRINT EXP ATTR ATTR [T] GO TO  RESTORE [D]ATTR CODE RNDABS  NEW  BORDER LN [A] DIM  STOP  SAVE )AT @[I] FOR  RANDOMIZE )Jb[K]O2_ OR  OR  INVERSE  RANDOMIZE  TO CODE ATTR [I]f  INK +NOT [H]ATTR CODE [D]4-<=[B]9[J][J]7 BEEP dH RUN RND INK  OR [J]k▜IN TPITAB POINT {W+&ATN POINT FN TAB COS "?ASN PI[U]CODE ASN $9ATN RNDABS LEN INKEY$&?LEN PIABS IN LN $=ATN [R]PEEK ABS VAL Z?ASN PIIN IN [H]T1ATN V LLIST ▖[L]POINT CHR$ _ RESTORE POINT [H] RESTORE  DRAW ZINT ▚▖UFN  STEP  INPUT TAN AT INT  INK  RETURN >=CODE VAL TAB <>< DIM  FLASH dg LINE  RANDOMIZE CODE ▖SCREEN$  RANDOMIZE [G] LLIST [O]rrl[G][E]t VERIFY x LLIST [O]USR ] READ PI[O]$ DATA [U]fSTR$  AND P&<>LEN @/0$ATN fpNLN PI* CAT  CLOSE #z`ACS d[E][G]P▛[J]ATN <> FLASH <>IN ▞[L]▞ATN  INK  THEN EXP [J]▛EXP  BEEP <>SQR ▞[P]▞SQR <> BEEP EXP ▛[J]EXP  THEN  INK ATN ▞[L]▞IN <> FLASH <>ATN [J]▛EXP  CAT  INK  THEN EXP [H]▞SQR <> OUT <>SQR ▞[H]EXP  THEN  INK  CAT EXP ▛[J]ATN <> FLASH <>IN ▞[L]▞ATN  INK  THEN EXP [J]▛EXP  BEEP <>SQR ▞[P]▞SQR <> BEEP EXP ▛[J]EXP TAN TAN [E]AT SGN AT  BRIGHT TAN TAN [E][E]SGN AT  BRIGHT AT TAN [E][E]TAN AT  BRIGHT AT SGN [E][E]TAN TAN  BRIGHT AT SGN AT [E]TAN TAN  CLOSE #AT SGN AT [M]TAN TAN  CLOSE # CLOSE #SGN AT [M]AT TAN  CLOSE # CLOSE #TAN AT [M]AT SGN  CLOSE # CLOSE #TAN TAN [M]AT SGN AT  CLOSE #TAN TAN [E]AT SGN AT  BRIGHT TAN TAN [E][E]SGN AT  BRIGHT AT TAN [E][E]TAN AT  BRIGHT AT SGN [E][E]TAN TAN  BRIGHT AT SGN AT [E]TAN TAN  CLOSE #AT SGN AT [M]TAN TAN  CLOSE # CLOSE #SGN AT [M]AT TAN  CLOSE # CLOSE #TAN AT [M]AT SGN  CLOSE # CLOSE #TAN TAN [M]AT SGN AT  CLOSE #TAN TAN [E]AT SGN AT  BRIGHT TAN TAN [E][E]SGN AT  BRIGHT AT TAN [E][E]TAN AT  BRIGHT AT SGN [E][E]TAN TAN  BRIGHT AT SGN AT [E]TAN TAN  CLOSE #AT SGN AT [M]TAN TAN  CLOSE # OUT FN LEN INT [F][O] BORDER  LIST  RANDOMIZE CHR$  THEN  CLOSE # INVERSE INKEY$CODE LN ▝[D][M] RESTORE  INPUT  RUN USR <> ERASE  FLASH [U]TAB ACS IN ▖[B][K] READ  GO TO  PRINT  RETURN <= FORMAT  INK [S]ATTR TAN ABS ▚[I] LLIST  REM  NEXT  DRAW  OR  DEF FN  BEEP [Q]POINT SIN SQR ▗▟[G][P] CONTINUE  BRIGHT ZSCREEN$ AS1" LINE 115616 LINE NaNa                                                                                                                                                                                                         NEXT  STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ 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 j LLIST # OVER  LLIST STR$  NEW ©(# THEN w G~ STEP j# RANDOMIZE VAL$  NEW ? AND G~ STEP j CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <> COPY  COPY  COPY  COPY  COPY  COPY  COPY  BRIGHT ▜?0?? PLOT  IN 1USR LEN ▝IN  PLOT  NOT LEN x@ RESTORE ▜[R]LEN EXP ASN COS LEN VAL  PLOT  ▘IN ▝x REM CHR$  RUN ▘?CHR$  PLOT  ▜ COPY 1?631 PLOT  ▗IN 11LEN  PLOT  ▘IN STR$ VAL z RESTORE ▚LEN 36<63x RESTORE ▚IN 0>00z RESTORE USR @y RESTORE  RETURN z RESTORE ▘ PLOT  ABS 00{USR  RESTORE ▜LEN LEN 11[P] PLOT  ▚1COS ACS <ACS COS z RESTORE ;{A COPY  COPY  COPY  COPY  COPY  COPY  LPRINT ▖d[U]$d[U][U]T: RUN ▝hUSR $▘&$ PLOT  ▝H?, P RUN ▘(tSTR$   RUN ▝STR$ $▝ PLOT  USR ▝ RUN ▚8DH@@8 RUN ▚(@@H0 PLOT  xUSR  GO TO XUSR ▗ RETURN USR  SAVE USR USR  BORDER ▚04DD1NOT  AND ▝ RETURN  PLOT  CHR$ USR x@ BEEP ▜  $4$$X OR x@ INVERSE ▚,$$p COPY NOT @y MERGE ▖p[Q]$r,hDSIN  OR ▘ DRAW B▝ DRAW  BORDER ▝CHR$ 3▝~CHR$ ▝~ CONTINUE 8D4Ld4@▘ COPY A BORDER bx INVERSE /▝ RETURN z@ VERIFY 0I▜▚ AND  NEW  VERIFY  DEF FN  AND CHR$  CONTINUE { REM ▜@  6",& PLOT  `USR  LOAD zUSR  COPY  BORDER ▖,H DRAW [G]z SAVE  RUN }@ FOR ~@ FOR ▚(DD4| RUN ~ FOR | COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  NEW ▖ PRINT ▖[T]D@@BA▝ LIST  PRINT ▖ [B][D][F][F]$NOT  PRINT ▖NOT [U]PQ[R]USR  PRINT ▝ STR$ [A]▘ x@ COPY  BORDER @@ COPY  NEXT ▜USR ABBA@a PLOT  ▚USR a MOVE y RESTORE ▚NOT b FORMAT yUSR  RESTORE ▖ LIST USR  0 LPRINT  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  OVER  COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G BORDER G FORMAT ^ DIM KSP CLEAR  THEN  AND  CLEAR  THEN VAL$  CLEAR  THEN 0 NEW  CLEAR  THEN ▚ CLEAR  THEN ▙NOT M CLEAR  THEN  DEF FN <> RESTORE  STEP  LLIST  STEP d*e/ FOR  GO SUB LN <> PRINT  RESTORE !K/>PI GO SUB R READ 0 MERGE  FOR  FOR r+s# MOVE #=  CONTINUE  FOR  MOVE  LET PI GO SUB RDM FOR <> FOR ~ NEW USR   RUN V#^<>*c/+ STEP U##STR$  GO SUB Ca/STR$  FOR #<>*Y/6"[/#6#"a/*a/"c/*c/"e/ RESTORE ![C]/"h/ LLIST <> GO SUB [Y/NOT  RESTORE #~PI>=EXP  STEP  BORDER [C] NEXT  GO SUB s FOR i![G]i▟[d MERGE  GO SUB VAL ! NEW [C] COPY  COPY  GO SUB (<> GO SUB LN ! BEEP USR ~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RCOS !USR USR  COPY ?u GO SUB VAL ![O]<=[Q]<= RETURN 6#6+ GO SUB VAL >@2USR  THEN :[A]2IN  THEN *[A] STEP ▚"[C]* ▗#▝* [S]G▝ STEP ▟ STEP "▝ STEP E▝ STEP |▘> STEP ▝STR$  RESTORE >S2 RESTORE /c MOVE FN a" NEW /:]<> RESTORE !"] LLIST NOT = MERGE [A] MOVE <>![A] FOR FN ATN  GO SUB R>= FOR  RESTORE  STEP VAL * STEP  FOR  LLIST a GO SUB [Q] GO SUB [Q] LPRINT #" FORMAT +n-&)]TNOT )▟USR " STEP  S▗~ NEW USR # PLOT   A▝ A▞* FORMAT #~ THEN CODE ▝ INVERSE ]▛@ INVERSE ~w# INVERSE ~STR$  NEW w INVERSE  THEN n( THEN  NEW # INVERSE # INVERSE  LPRINT <>INKEY$▗ FOR *G▝0[F]▝nyw[P]<>[H]▞#  GO SUB VAL  LPRINT  INVERSE  LINE ▚I RETURN  COPY >= INVERSE n INVERSE f1▖TAB ▝ INVERSE n INVERSE f=▝SGN ▗ INVERSE fI[D] THEN ▝ INVERSE  RESTORE  OR  STEP [N]▝STR$  INVERSE  LLIST  INVERSE STR$ o CLOSE #▗_ CIRCLE ▝0 PAPER ▘<>=!M THEN "SCREEN$ ▝c0▞ STEP  STEP ▝ INVERSE *SCREEN$ ▝3p▘0▚CODE 2 MERGE ▝2d= PAUSE e▘~▞[T] RETURN ` PAPER K▘ RETURN p PAPER ▘ RETURN  PAPER ▘ LINE E▘ RETURN ▝ LINE $▘ RETURN ▘ LINE (▘ RETURN  PAPER 6▘ VERIFY [R]0# OPEN # VERIFY `[C] INVERSE ACS  INVERSE w LOAD  VERIFY p INVERSE w INVERSE ~ PLOT   LPRINT #NOT c▘P DEF FN  VERIFY 0+▘#~)[C]IN  INVERSE 6 LET  INK [A]0 DRAW  RESTORE  THEN ▟p▘~LEN  INVERSE w LLIST #>[H]▘ RESTORE [S]NOT  CLOSE #▝08@HP`hpx *[C]~2[O]<><▜O#[O]<= GO SUB VAL <> COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  INPUT [E] NEXT  GO SUB V STEP ▚<> STEP <= FORMAT  STEP ]<=> STEP  COPY ▗! DATA e]77 GO SUB VAL  STEP >[B]▟ CAT  GO SUB ^ CLS NOT  FLASH  INVERSE  CLEAR © GO SUB yrv NEXT ▝ NEXT E▖ GO SUB VAL CODE [NOT 8<= COPY  COPY  COPY  COPY  COPY  COPY  COPY  FORMAT [K]NOT >=ATN  LINE >=>== LINE  RETURN  INVERSE = LINE N STEP = LINE  OVER = LINE  MERGE =NOT  RANDOMIZE ▘ MERGE ▟ STEP VAL$  FORMAT !@ZAZ6IN '[L]<>> STEP Z<= STEP [G]<=:k<=ATN CHR$ >= STEP  FLASH <= STEP ▙{NOT  MERGE  STEP [O] COPY ! STEP I INVERSE  STEP + CAT #X!v BEEP  RESTORE > STEP  LLIST  INK SCREEN$  BEEP # SAVE DISK BY GOLDEN EAGLE '94 COPY <>0ECODE >=X'! LET <=SQR SELECT DEVICE:T-TAPED-T▚ COPY !@@STR$ X_!<>= STEP AT  TAN [G]<( RANDOMIZE NOT y>=THIS FIxNOT S.T. MUSIC USR .[K]PRESS ANY KEY. COPY !▘M▘ "[B] COPY >2j/!@@ COPY [B] COPY 6▜[I]2▟/CODE  OPEN # RETURN NOT  OR  INVERSE (<(> COPY 2[F]<=<2k<=]▜[F]<== PAUSE :[F]T▗ MERGE   MERGE NOT S LINE Qo!MA▝NOT M▝!!VAL$ <> THEN [M] INVERSE ![N]<>>7 STEP N<>0 FOR *AT <> PAUSE |INT CHR$  INPUT <>}SQR ▖![O]<>( LINE  DATA ! LINE  0▖FN a GO SUB [FN <>> COPY  1INT >I▝CODE  MERGE ▖!y>= RESTORE  CLS NOT M NEW ~▞ CLS !`<>0uNOT 0u>$cgUSR ] POKE U▝$uPOINT NOT USR ] STEP BIN  NEW NOT N<> GO SUB VAL  LET <> NEXT > COPY  STEP [C]<>> CLEAR  COPY  GO SUB y CLEAR IN  GO SUB Q<> POKE ▝G▘ NEXT [B]SEARCHING FOR SO▚BLOCK COPY @ UND0<> ▝ COPY  ERASE ▘ STOP <>0 ERASE ▝ DEF FN 6▘<=▘ GO SUB VAL ▘NOT  RUN  BEEP  e▗LOADcpF@EPeZP%▚ERROR!0e▚: CAT ATN  LINE  RESTORE ▘ RESTORE  INVERSE arK"K▗!ASN  THEN K▟>2[R] BRIGHT >2 BORDER  BRIGHT  STEP [E] BRIGHT  RETURN ▝! RUN [O]0INKEY$>2[N]<>S8▚!_ RETURN (%▝Px2 FORMAT  LINE ,<=X0!! DEF FN c▚NOT  THEN ! TO ATN ▖ GO SUB K+ NEW  STEP [T] FLASH #CHR$ ▗ RESTORE *+ NEW 3▗ RESTORE STR$  LLIST p▗ NEW <p/▘▚ BRIGHT /▘![P]FN B NEXT SUSR ?▙"SCREEN$ <>*▚ BRIGHT "FN <>!Ce▜ AND X!inC%B▘SCREEN$  TO 2B▝[A] {z~"AT <>b{ STEP EXP  TO q▝VAL rbc▘?s<#<yU▚ENTERCxAME :▝PAR[N]SCODE ADDR :NNDELAY SET▛,DLENGTH)pBpBINI VERIFY fb▘ b D@▝ pX▖▝ &pY [L]TAN ▚START $i▗THLEN tCHR$ ▝ '▘AVb|) CAT  ▞ COPY !USR  TO  RESTORE NOT  AND  PRINT ▞>© FLASH  RETURN 8 LET  CLS [E]▖ LET <> FLASH <(=USR ▚0 LLIST NOT  OR  CAT  ▝EXP 0▞TAN  CAT > LOAD  STEP  RETURN  TO > RUN ▗ CLS  FLASH  RETURN <> 8▝ LLIST 0(▝ CIRCLE ▘ OR  CAT E▝D BRIGHT j CIRCLE  BRIGHT  CIRCLE 0 LLIST <><▘: STEP <▝ RETURN 0<[B]08 STEP  CIRCLE <> CLOSE #j CIRCLE <> LLIST  LLIST <>B CLS * AND ▘ LIST ▘[B]▟:▝/2[J] STEP CODE 2▝/ STEP <= NEW &▚!5 READ ▖EX*![T] STEP ^▝ CLS Rl▝,!▞y>=u@@TO STOP5j▗A PAUSE ▜RETURN MENU. COPY  MERGE  STEP  AND  VERIFY >2!▞:I MERGE  VERIFY AO STEP SQR 0 CLS : =>(>[U] MOVE [D]_NOT ▙( ▖▙/p8p8 8<[L] COPY [R]iw44667799RND;[S]hs/[R]/r2[S]2[R]2[S]▟x+[S]r--[R]-[S]s*x&p*p*p**[T]i~>[U]> COPY [R]a$dV_Vb▘_V@pp4p4@4/>[I]= IF  GO SUB S6/ SAVE ~ACS  GO SUB [R] REM  CAT USR [T] LLIST ^#V#F#~=2M CAT O> [B]2R CAT #~2K CAT # RESTORE  FOR  OR ]T6WSTR$  INPUT <> STEP  CAT  LIST ! THEN !t*▗XO BRIGHT ▝&2▝W' VERIFY ! FORMAT 7 CIRCLE [F]NOT ▛ CAT >O STEP  FORMAT  CAT v CLEAR  STEP  ERASE  TO 0q02 DIM ▟ NEW y2[F] CAT <>y= IF [K] CAT y)▖ MERGE y RETURN ( FORMAT ▝ LINE CHR$ ▜X OR  [G]▘STR$ yp ▝WP▝<>D▖S&7▛ TRACKER&[▚DECOMP OVER ▚R V1y&wBIN ` FLASH AVE4@6@*▘8▞ON/OFF▘8©▖QUIT COPY p Fp ECODE H▘!XX COPY w FORMAT .WX STEP  BORDER  FORMAT .A▖ I[A] ▗T[I]X/ATN SCREEN$  GO SUB K6/ OR ~ NEW ©R FOR q# FOR  NEXT # FOR  FOR STR$  READ <> GO SUB VNOT BIN  NEW  ERASE ▖[[ COPY p7▘4 OPEN #9<>▛6G GO SUB VAL 6?▜n MOVE o MOVE #INT [M]TAN  ERASE  STEP  ERASE  STEP ) ERASE "IN  ERASE  CLS <>!W MOVE V MOVE %[H] GO SUB VAL NOT AT  OPEN #Ffv^NF! COPY [ INVERSE !u MOVE  STEP [C]0pPI INVERSE  THEN  RESTORE !TAN  ERASE  THEN F LINE INKEY$ MOVE  PRINT  INVERSE + THEN -0pppp*p3p<pHpQZ▛<>> RETURN  GO SUB G! RETURN  RETURN USR ▘6^w[I]NOT !. ERASE 2^^"_^ GO SUB ^<>!BIN  OPEN #~<> PRINT  OR  MERGE  RESTORE  INK [B] INK  INVERSE  RESTORE  CLEAR  RESTORE >ATN  PRINT  TO COS  ERASE  LET  TO r OPEN # STOP ▛ATN  TO  LINE  NEW :? ERASE ATN  LINE ^ ERASE : RETURN  NEXT NOT [Q] ERASE *f PRINT PI RESTORE  GO SUB RV FOR TAB ]TH_b▗ GO SUB _Y[T]Z NEW ( LINE [Q] ERASE  GO SUB b RESTORE  CAT bk+' GO SUB VAL  CLEAR  LLIST  INVERSE  LLIST  INK  LLIST  MOVE STR$  LET 0 CLS  COPY <>>[A]5CHR$  DIM  ERASE 6! FORMAT  OPEN #~ RETURN @ TO ) ERASE #w▜o& GO SUB [6/ DIM ▖n MOVE  GO SUB [Q] GO SUB [Q]P▖ STEP v MOVE NOT 4 OPEN # OR  MERGE pp"p,p6p@pJT▘ MOVE STR$ SGN ▗V MOVE #SGN @P OR  INVERSE F INVERSE # RESTORE  STEP  LOAD  ERASE  LLIST z NEW CHR$ ] OPEN #{ AND  _ PAPER ] OPEN #z VERIFY W BORDER  STR$  PAPER >!g OPEN #5USR 6NOT ^ MOVE !@P LPRINT W4▜!P LLIST $$|8▙[F] OPEN #} AND  o PAPER [F] OPEN #| VERIFY gJ▜ RETURN CHR$ POINT  OPEN #{ VERIFY L▗POINT  OPEN #z AND L▗ CAT <>>©0 FOR ▜ CIRCLE !n OPEN #~=n▚CHR$  OPEN #>w<>+©▘3IN CPEEK :sSGN ▝ [O]AUT0AT [E]UNKNOWN, DATE OF MAKOp▘. USR ▖NCEPTION# FLASH DESIGN WASIN ▝Kj▗FROM+ GO SUB T4▝H:▗-WOR|[C]/[C][C]IN 1994A.D. CREDITH[K]O: BR0MBA,GEN,MONIKA,RAF &[R][P]BASTIAN CHELWICH. SPECIAL THANK?LN ▝DSGN X -LqWRIABS >= ▝H[E]▖ A FUN !:[T]{▟@NOT  VERIFY NOT f MERGE NOT  GO SUB  MERGE  NEXT v CLS  CLOSE # STEP / BEEP j[T]▘[G] BEEP  INPUT ▙:]2 PLOT  /2 RANDOMIZE / AND <2],[S][B]CODE 2/ COPY :/ RETURN Y( RETURN N>= LOAD P STEP 9 BEEP  NEXT  STEP n BEEP ( CLS ▘  CLS /<=▝<= CLS <> STEP  MERGE  INVERSE ~ LINE 2[L] LINE  POKE [K] LINE >C2[Q] LINE ><>2AT  LINE ! INVERSE /"[I] LINE ! RESTORE /"[S] LINE  STEP ^0&▝&▝&▝&▘[O]<>&▘[N]<>&7▜ CLEAR >= STEP  READ >=> INVERSE [G]▚<>CODE 2]y NEW !SIN  BEEP  ▘<@▘NOT = CONTINUE 0▘y>={[K]▝ INVERSE p[C]▗ LINE 2e THEN p[F][F]▘r THEN 0[F]"_ THEN 0[I]▚!R CIRCLE "R THEN p[O] 2p[R]▝!2 [R]2 [U]2h1▗▚ BRIGHT y2u BEEP G:▝L▘ NEW /< RETURN CHR$ ~<=CODE  LPRINT ▚!SQR <="FN <=▗! CIRCLE ▟lQ[B][F] RETURN A( RETURN B( RETURN C( RETURN D  READ  GO SUB ▙C{2] AND A2; CIRCLE jq BORDER Q! ERASE  BORDER  GO SUB ^ CLS !0▝ LLIST  RANDOMIZE P$▝,@l LINE + BEEP ! OVER ▖NOT TAB  VERIFY  INVERSE ! PLOT   VERIFY  NEXT  INVERSE  RESTORE  GO SUB V GO SUB s=/x STEP = INVERSE  LLIST J INVERSE  BEEP NOT = BEEP | RETURN OI▖<>CODE  FLASH  RETURN / NEW <>l▝▝©SQR ©SQR /SQR  LLIST / FLASH CATALOGUE Y/N ? DATA ▗= CIRCLE ▝NUCH?}][P]▝/▝0>DRI RETURN -[P]p:/ATTR ▝H<>▘BE▝ DIM INKEY$- INK +[T]▗ELEC[M]:▚: A,B,ACS R DLwZ U▘A: BIN  RUN  LPRINT [C][CHR$  LOAD ▜▝E  { FOR |<=▚Y COPY e BEEP  STEP g RUN ▙ BEEP *e BEEP  RUN PI GO SUB R>=▛"e BEEP  STOP !?LN  GO SUB XO!* INK  STEP ▛ CAT CODE t!= INK  STEP NOT  PAPER NOT b FLASH >^ DATA < COPY  COPY @ NOT ▗ COPY PFRE^ INK /▘'@ LET D▛ COPY CSTOp▞E COPY Trr▝8M▗|NOT -[P]r 1 INVERSE PLEN ▞}SCREEN$ -SCREEN$ POINT ▝L READ ASN M DEF FN = -TAN  p STOP ▝:_ DEF FN RND▗ COPY  SAVE % CLEAR ▗CORRTAN "▝?0[K]▝▘/[H]▝} OR ▝:CHR$ ▘mSTR$ ▝~▘~A+nA▘: ,A GO SUB !>F^,PROTBT NEW ▗FULL- AND 'DI +#@2▖  IHARDW8▚FAULTJ3 OVER ▘UPP<>SNG[B] RUN  STEP ASN  BEEP : RUN <>=NOT  PRINT  PAPER ~ BEEP #c▘ AND  VERIFY "I▝ +TAB ▞>.!VAL  PAPER z▜ FOR 6<>! LIST  CIRCLE ;jNOT NOT  PAPER :▖(LN  STEP  BORDER  PAPER  STEP <> PAPER e▖M!!▝Q"N!|▚"P! STEP STR$ tX FLASH :! STEP ATN  LINE W FLASH  PRINT !MAT ▜AXW! BEEP [L] LET !T FLASH  RESTORE !S PAPER ( +  RUN CODE ACS "INKEY$VAL  STEP IN  VERIFY ( CLS NOT M NEW TAN ▜> BEEP CODE  BEEP ><>!P>▟BYO STEP  ! INK VAL COS  BEEP  CAT  RESTORE  STEP +- STEP  READ -L/GNOT XO STEP } FLASH !_ i[E] BRIGHT ! RUN ;,x▗Lr<=XO!O▘>▟ 1! NEW e▖# GO SUB K+ NEW  STEP [T] FLASH ▗ RESTORE PI▗MD LLIST 0<0!! PAPER [G]▘!w[M]!a[I]▘!C▗ GO SUB K▚ BRIGHT D▘r FLASH q[N]J[B]> OVER ▙4!!FN a STEP  =wNOT  FLASH  AND COS  RUN  RESTORE 61 DEF FN  MOVE TATTR SCREEN$  BRIGHT >2POINT  BRIGHT >_ STEP ( INVERSE  STEP 5 INVERSE  RETURN ([ RETURN (9 RETURN !8 LET  RETURN +( GO SUB  RETURN ?( DIM  RETURN ^( RESTORE  RETURN :( LLIST ▗▟ RETURN 0 INK O:SCREEN$  BRIGHT < RETURN (=y9▗!POINT  BRIGHT 4 B▘SGN =(ACS W▝ 0▝5 [▜> [O]a RETURN  ([H]<([E]>  OR  PRINT  GO SUB KFN  BRIGHT [K] LET  BEEP STR$ <> MERGE ▗ STEP IN v▛ MOVE <>! THEN  THEN ATTR  THEN  THEN  GO SUB CABS  INVERSE "IN  INVERSE  STEP  INVERSE  GO SUB KABS  INVERSE x STEP LEN " STEP [Q] INVERSE :PEEK  INVERSE  AND 2PEEK  INVERSE :USR  INVERSE =2USR  INVERSE CHR$ _▝<$▝ %▖[L] INVERSE :IN  INVERSE G6 COPY  FORMAT ▖ THEN  RETURN <>+ THEN  AND #<>+0_6 BORDER  STEP [I] INVERSE +▛$CHR$ [S] INVERSE <>0▝f[F]! MOVE  INVERSE "[U]a![U]a"=/1[T]a STEP BIN  NEW CODE 2▝FN ▜? ERASE  STEP  MOVE  STEP Y▙ CAT NOT ;<== LINE N OVER =(7= LINE 7▚# NEXT NOT |<><=[A]( LLIST NOT  FORMAT ▗ STEP <= FORMAT  STEP  COPY  OVER "▚ BRIGHT >_▘2 OPEN #▘ INPUT I▖BIN BIN  NEW SGN  STEP  MERGE  CLOSE # BRIGHT ▜(VAL  STEP COS  PAPER [U]-▘ PAPER G@▜[K] STEP AT  FLASH NOT  FLASH  INVERSE wW▝CODE ;▘> COPY W▟:FN a RETURN !CHR$ SGN  OVER :ATTR a RETURN NOT ▝VAL$ @▗LEN a RETURN  NEXT ▗SIN a RETURN ~ ▗ GO TO b RETURN :(▗ LOAD b RETURN =0 [J]NOT  TO  MERGE >=/d▗NOT >=SQR 6/v[I][N][E]N([R] RETURN Y  GO SUB  GO SUB [+ NEW *▚ BRIGHT 8[D] STEP | READ BEXP "POINT a[N[Q] STOP  INVERSE  STEP F LPRINT ! VERIFY ACS PEEK E# GO SUB VAL : SAVE INT 2U LLIST ![T] LPRINT 6[U] LPRINT = PLOT  FN : VERIFY LN G2 CAT  STEP  IF  LPRINT n&[T] LPRINT +6STR$  GO SUB !7CODE PI AND STR$ E GO SUB LN  LINE ▗ CLEAR !AT l<[L] OR  RESTORE CODE ACS y( MERGE  CLEAR q CLEAR # STEP [A] LLIST  MOVE  LLIST #4▛ CONTINUE {2 LLIST  LPRINT CODE a! NEW  LPRINT t AND [L]@ RESTORE !CHR$  LPRINT ~ATN  LLIST ( FOR q4 FOR b OR LN PI GO SUB B▝n▚ BRIGHT kbFN aIN [F]!PEEK G GO SUB [Q] RESTORE !PEEK E: CAT <▜O THEN  GO SUB VAL ` ▘ATTR a5 MOVE  LPRINT  LLIST @Y▝ MOVE 0Y▝ `X[M]▛ INVERSE kb RESTORE  INVERSE  LLIST " STOP  LPRINT @^▛TAB a: LLIST  LPRINT O▜G▜▝ YkbCODE d▝=R▖AT l STEP  BRIGHT  STOP : OUT I BEEP ▘w FOR FN ▖STR$ a CLEAR !:/<> CLEAR [J]!8CODE  OR O▚ INVERSE  INVERSE  RESTORE  THEN  NEXT N INVERSE F INVERSE  LLIST x NEW STR$ ▞ INVERSE ACS  CLEAR wx NEW ▜  CLEAR w CLEAR q[T]▙ CLEAR {< NEW _  OR ~!▝#[A]# CLEAR # CLEAR #STR$ TAB <>VAL$ LEN  DATA ,VAL ORLN [R]▗,CHR$ VAL  DATA ,g▗3 TO  ▝  [D] VERIFY  PAPER RND,RND LPRINT <>RND REM COS [E],53"0-[C]▝S[-▘   VERIFY ACS <> INVERSE ~ STEP  LLIST Gy NEW O<>O NEW  LIST STR$ ▛<> INVERSE ~VAL$ ATN G>= RETURN >=_! LLIST Fy NEW  THEN Y LINE ; LLIST ▜▜O▜▝G<>G INVERSE !FN ~@ INVERSE  DRAW <>n▘@NOT ▟ INVERSE  RESTORE  LLIST  STEP u LLIST  FLASH [N] NEW  LIST ATN USR  RUN <>:V LLIST O:U LLIST [B]<> STEP ] LLIST !W LLIST yPEEK >=q AND [Q]▛ CLEAR #<> PRINT  STEP E LLIST  STEP TAB  LLIST  LET  INVERSE ▝[E]CODE 2V LLIST 2Y LLIST =2W LLIST 2X LLIST 2Z LLIST 2/ LLIST H▘G OR FN [E] NEW  LIST  LINE  STOP  STEP ~ LLIST  STEP  LLIST xATN  LINE  PAUSE  LLIST !X LLIST PEEK p_Z6 PLOT  ` c▛ STEP 2 STOP  STEP  LLIST zATN CHR$  STOP )▚ STOP  CLEAR p[S]▝STR$ [F]▝<`POINT <=TAB  CLEAR 6 COPY SCREEN$ ATN CHR$ X[D]▝ CLEAR #NOT  STOP yATN >= RETURN CHR$ Q STOP :Y LLIST ATN USR '▘ CLEAR #[T]▝/ [D]Y LLIST <> RETURN CHR$ z STOP  INVERSE ~!/ LLIST  NEW PEEK >=w©▝p  STOP ▝CODE  STR$ ▝Z)▜ CIRCLE O!Z LLIST PEEK ,# *▘+qy PLOT  !P)ACS / LLIST <> RESTORE  GO SUB [R]CHR$ IN  STOP <CHR$ [U] STOP  RETURN ▜ PAPER PEEK  STOP  RETURN  PAPER [U] STOP CODE  LLIST <> MERGE  FOR ~#<  CLS ++~## RETURN ▜8 RETURN 8 INPUT  MOVE M RESTORE STR$ <>>=▜G" DATA  LPRINT  OR ~#▘ INVERSE wFN [B] OR  CLEAR * STOP  LPRINT  MERGE  STEP 9 READ  MOVE   CLEAR ~[A] CLEAR ~ INVERSE w INVERSE # INVERSE #* DATA  LPRINT  MERGE  FOR  OR 3k▘}D7▝pSTR$  INVERSE # FOR  MOVE [A]P▖SQR STR$ ATTR <>?[G]<(' CLEAR # OR  CLEAR N CLEAR FxLEN  MOVE ( MERGE  GO SUB [ DATA  LPRINT  PRINT ▜ STEP [T] STOP  LINE r READ 2NOT ▗ OVER NOT 9 READ ▜ STEP STR$  STOP CODE <<> LLIST P'▘VAL  READ b▞ INVERSE ACS >= INVERSE n INVERSE f ▗POINT aLEN ▘MD0▞ MERGE  FOR i`s#r MOVE [R][Q]NOT  READ DxASN zp#r'IN +t1INT 5v8▝;{>▘AOCODE S▛V[F]Y[P]^yb▞e[D]h[N]k▘SIN $▟ CAT  OPEN # BEEP  FLASH  SAVE [Q] DRAW d[R][Q]DtCODE #ASN '{*.}15©INKEY$yH▞K▙NxQ▟U▗X9[o^4c SAVE f<i[I]lDp▙s v▘yL▝|▝©T[I]▚8▝▞L▝/▝0▝[C]d▝[F]/[N][L] AND RND POKE [Q] OPEN #FN  FOR TAB  MOVE SIN  LET ATN NOT X INK v BRIGHT FN ▝ CONTINUE d IF r CLEAR TAN ▙[I]VAL$ AT $4▗CODE 2[B]X GO TO mPI}▜▗▛▖$[J]▗[C]5[G]<[K]▜[N]USR [T]FN PI[N]VAL$ INT LEN iTAN 2ATN [R]INT POINT PEEK qCHR$ ▙ OR 4 TO  LOAD  FORMAT 8 CLOSE #[B] BEEP 8▝ PAPER 8▝ OUT <▝ STOP 4▝ NEW $▝ DIM 8▞ GO TO [T] LOAD SCREEN$  NEXT 8 RUN [I] IF l[F](<[L]USR FN [P]i[I]"2%RND(ATTR ,q/I_▚VAL$ 8/TAB ▘P^▜"+ NEW >2-w▝0.:0 GO SUB  VERIFY 0 AND 0 BEEP :- NEW ATN (G STEP ! NEW  CLS /▝4▘= SAVE 7▖<=)]T)) VERIFY R[A][H]"K INC.CREDIT©[J]OUSR [H]": BR0M<>TAB  FORMAT !. NEW ]T6 INVERSE FiP^## RESTORE !- NEW  LLIST  NEXT b▖@STR$  GO SUB VAL [P]▘im CLEAR ▝ INVERSE 3▘▚#ATN CHR$ SQR  NEW  RESTORE o▚6 OR ? $▗STR$  LLIST  DATA $hPI 6!(COS  SAVE INT ▘Q GO SUB LN <> OR @$[S]STR$  OVER ! FOR NOT  STEP  NEW NOT  CONTINUE  NEXT ~2< BORDER "© BORDER # STEP y BORDER <2> BORDER  GO SUB S4 BORDER  GO SUB S6 BORDER  MERGE  VAL 8 BORDER ! STEP ~ BORDER  FOR ": BORDER !E BORDER "? BORDER !F BORDER G BORDER ,p GO SUB VAL  LLIST !CODE  STEP s BORDER =2O BORDER 2Y BORDER 2c BORDER [T]= BORDER #"M BORDER "W BORDER "a BORDER  STEP  READ  REM  CLS <>] LOAD PI LOAD L LIST  FOR %E BORDER  COPY  LOAD D LIST  COPY H[F]▘FN  LOAD ppPXINT [H]PEEK >=NOT s BORDER ^#V# FOR  FOR  FOR <>_▜_3[I]~ THEN ©J THEN wCHR$ [P] BORDER B NEW g INVERSE ^▜▝ PRINT 6[J][P]W LET  NEW o INVERSE  THEN n>= THEN  STOP <>:d BORDER O!> BORDER PEEK  PAPER <> BORDER CODE O<2d BORDER i OPEN #[C] GO SUB [4 BORDER N#~2 REM y*8 BORDER  FORMAT  GO SUB S?1▝A1[A]C BORDER <> INVERSE 5 LIST  INVERSE ~ COPY  INVERSE w<>:= PRINT ▖= BORDER CHR$ R DIM :< BORDER  NEXT [C] INVERSE !H BORDER  STEP  CLEAR  BORDER  PAUSE 3 CONTINUE *? BORDER ~< TO SGN  BORDER  STEP / CONTINUE 1 INVERSE !R F CONTINUE *K▝A.▝/ .▗R DIM *C &[S]C BORDER NOT R DIM ~ RETURN ` PAPER  CONTINUE  RETURN p PAPER [H] CONTINUE  RETURN  PAPER LN  CONTINUE  LINE CODE  CONTINUE  RETURN ▝ LINE [F] CONTINUE  RETURN ▘ LINE ASN  CONTINUE USR ▗ CLOSE # CONTINUE  VERIFY [R]|▜ INVERSE w COPY #NOT / CONTINUE [C]6 INVERSE 6 #<> VERIFY ` RESTORE c*: BORDER ABS ▜ INVERSE u INVERSE t LLIST %▝#▘ COPY <>a VERIFY p RESTORE AT ▘*6@!▖ INVERSE t INVERSE 6 RETURN  %▛ VERIFY 2r BORDER #~#2p BORDER  RESTORE CODE p*0*▝ LLIST o~<>=== INVERSE w PRINT  NEW ▝O▝" LET USR  INVERSE ^ INVERSE V!`▞▗= IF VAL  CONTINUE @#~<)▜<>yATN USR |2k8< INVERSE ~ RETURN ▗ LINE K DIM yNOT O DIM CODE v▘ THEN  NEW  VERIFY :[C] RANDOMIZE  CONTINUE y2 REM  INVERSE *K BORDER  STEP ▗ BORDER yVAL 2l!Ru[D] LINE ~ DIM  STEP - DIM  STEP  PLOT   DIM "e BORDER !m BORDER w STEP 5 DIM !R▝ RANDOMIZE  [D] LINE COS  DIM 0:▝U::l BORDER LEN VAL <1!v5▗g BORDER !n@5t@5▝ GO TO @5▝_@5▞▘VAL LEN P9[M]n▗i BORDER !o nNOT  READ  REM } PRINT  MERGE  INVERSE n INVERSE fcw▗▚ AND ▜POINT # REM [I]▛ FOR  MOVE  LET  THEN b( THEN [S]<>kIN <> SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X  PLOT   LINE [S]CODE |X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN ▞[G]▙~w OPEN #kd[P]YTASN ▜KGB? THEN ▝8 BEEP ▜2/,* GO SUB ▝% PRINT ▝! CLEAR ▝[B]!r BORDER CODE ACS >  VERIFY USR +[G]yIN  GO SUB ATTR = PAUSE  NEXT  REM <>/PILz!Z!▚RND@ THEN ▚@@▘@ COPY  TO _ o[Q][N][Q][Q][Q]▝[B][Q][Q][Q];▝[J] INPUT    CLS `▞ ▘ w ATN  PLOT  ▖HASN ##$▚▞ATTR POINT POINT ▛▛USR USR  LPRINT  LPRINT P▗ABS ▗[A][Q][Q][Q] TO ▝ ▝▝ p0p$p$p ux0ppp!p*p6p?pHpT AND [Q]INT ▘▝[Q]ATN INT ▝USR NOT ▗▝[Q]0pppp*p3<▗ READ ▜[Q][Q] PAUSE ▝5▝! PRINT  5 ▝▝ ▝▘[Q]S`6$P [O]?[Q]COS L[Q]▞[Q]▘INKEY$[Q]COS [Q]STR$ [Q] FORMAT   LPRINT   LIST  <= RETURN X[Q] AND CODE @ CAT ▝ [P]!2 GO TO @ATN p[P]p CAT pATN p CAT p0@ BORDER CODE [M]!@"▘#$(%'%6'5)6▞ NEXT ▝[Q][Q]qPOINT ▘ASN {[Q]#{[Q][Q][Q]Ls{s{s{[J]▗$[O]▝6 ▝IN  ▝p  &0 ▝ BORDER 20"▝ OUT  FLASH Pp0▝HDHPp /MimP`IN  BEEP  LIST  RETURN ;LSQR LL[[L] RETURN LEN ▗L[I] CIRCLE L &[q▛ COPY [R]np[S][R][S]@[S]▝@[S]▝@p6@?[T] COPY VAL ip!!FN !![U]!![R]![S]m#[R]##i!m## COPY VAL apFN [U]STR$ ▘ COPY [U]'▝m ▘[R]ip+##[U]P0pPK▝FN KIOP COPY [R]bUSR ▝nSTR$ ▘c▝bp[S]n<>▘c▝c VERIFY ▛bcm#b[S]n ERASE ▘cp▞[S]n[R][S]c)▗bcp'[R]'[S]' P*[R]*[S]* P%[R]%[S]% P@ COPY VAL kp361/ COPY [R]eq@L K▚,[S],[T],POINT 0L▝,▗,[R].[S]USR ,▚[R]*[T])FN '@i)) COPY FN hp35SCREEN$ 6[T]56SCREEN$ 8▘VAL :[Q]▗y''* [E]'INKEY$.@[D] GO▘[U]. L,[S]11[R]1[S],RND,[R]'eP)[U]' COPY SCREEN$ R▘[S]5@U[F]VAL 8[S]565SCREEN$ 3 COPY [R]f▖bgpf▖3ppppp4p>p4pNpN▛▖{gpf▖>ppppp4p>p4pNpN COPY FN etq;▚68AT 6[U]5 INVERSE ▝qq=q=q=q=q=q= COPY [R]▝[S]hpBq©q©q©q©a©▙[T]' COPY USR ky'% COPY USR hs31s[K]s[K]s[K]s[T]s[K]S[T]▘[S]USR ▝ OR 0 COPY [S]a▛▘p#▘#i0ppp*▘ COPY a▝d▝b▙ COPY [S]f[Q][R][S]▛COS [R][S]▛ LIST [R][S]▛ INK  COPY [S]gr75727[R]5[S]7[R]7[S]2l▚[R]0[S]5[R]5w▙[R]32.[S]0.0[R]+[S]0[R]0▖[R].0+[S]202"▚25[R]252p©p©p©p©p©0©TAN FN PEEK [C]p▚p▚p▚▚<:<[O]▗<[R]<:▘:<POINT ▚2FN 0 OPEN #0 MOVE [S][S]  PRINT 0 NEXT [S][S]▚[R][S][S][C][S][Q][R][S]▙[R][S]▝▜s259[R]2[S]▖5952[S]047▚4740[S]. IF ▝.)▝[R] +.2 ▞-[R]-[S]14[R]54Q▝q`@▘hr0B▘gq`Dhr040Fgq5..Fj▘[T].).5.:+$$[R]$M▗$INKEY$- COPY  COPY U RESTORE U▝S OR   COPY U COPY U COPY U COPY U COPY U COPY U COPY U COPY U COPY U COPY U COPY U NEW U COPY  SAVE  COPY  SAVE  COPY  SAVE  LOAD  SAVE o OPEN #STR$ 66? NEW 6©6 INPUT ▟?<??sv7g <?f?;▘STR$ ▗0A▝0 RETURN ?'K[E]▝;:6? RETURN ▘[B]▘0▚>go{s>▝<IX▚>c>`©<l© BRIGHT ©`~ ▗>`~c▝©@[B]>c> ▘?HCHR$  OR @[B]g[Q]© ▝c▚>o©©`0@▜©cc~c`▝~▖▘``▚|fccf| ▝`[I] ▝`  ▝o[Q] 78 GO SUB  USR USR  [Q]flxlfPCHR$ ` FORMAT ▘cw0(cs{oghACS  >=n0Pc{o@8>`>!▝ COPY CHR$ h007▝6@?[Q]▘6LN NOT f< (▝©W@▝[I]▝ CIRCLE ▘`0!▝x LLIST ▝xUSR ▝~ P?▚ COPY 3|00<>f▖00>33H▝USR 0>=▝▗<f|(▘< LPRINT ▝|USR fv▗8<2▝[R]0<88<L IN ▝STR$ ~STR$ f P▘ff0▝|!QP▝0xH▗<`<xp0@706▝<▞▝fP <<P▚[A]▘~WUSR 8!NOT ▝t INPUT ▜B[J][R][R][J]B< COPY ^ COPY ^ COPY ^ RANDOMIZE ^ COPY  SAVE  COPY  SAVE  COPY  SAVE  POKE  SAVE <> STEP 6[H] NEXT  GO SUB s FOR i![G]i▟[d MERGE  GO SUB VAL !5[H] COPY  COPY <-<> GO SUB LN !BIN  ERASE USR ~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT R[B] NEXT  GO SUB V CLS  STEP ;_> STEP )_ STEP H INPUT >▘>[R]! PLOT  "USR >2USR !▛USR USR 6 GO SUB VAL !yy[P]INKEY$ STEP H_ STEP ^NOT ABS ^ SAVE >O STEP F^v CLEAR  STEP x^0> RETURN  FLASH  RETURN 0>©▙8 NEW y2^<>y= IF ^y)▖ MERGE y RETURN ( FORMAT 4NOT ^CHR$ ▜_!JY]T6V OR l▘STR$ yp ▝{P▜<>> COPY <(=USR ▖  LLIST NOT :^0▝.0▞)^> LOAD  STEP [U]^> RUN ▗ CLS  FLASH  RETURN <>▘ LLIST 0(▝ CIRCLE ▘:^ CLEAR ▝ PRINT  RETURN ▖ LET ATN  LINE  INK ^= LINE  GO TO ▝ COPY ▜_NOT _>▘/_!▚1 POKE `NOT xi!%!8<= STEP 20▝▘D OR 13p.▘ STEP |0<[I]! RESTORE NOT /= CLEAR © GO SUB y<>!USR xi@ GO SUB VAL ▖@@ COPY u NEXT !LN LN 6ATN eRNDATN ATN 6NOT #j_s#r>LN  GO SUB G GO SUB ^ CLS <> NEXT  INVERSE  RESTORE  PRINT  RESTORE  MERGE  OR  STEP USR STR$  MOVE  LLIST  LET  INVERSE  LLIST  CLS <>}▝[C]INT ▝▝▝ s▗USR USR fLEN ▝<> COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  REM [C] STEP  NEXT  GO SUB s FOR i![G]i@d MERGE TAB  COPY  COPY %<> GO SUB LN ! PRINT  PAPER 8<=~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]DgxLTAN `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1[@ LLIST ; LET w IF 1 CLS NOT 8<=e DEF FN VAL [C]NOT >=ATN  LINE >=>== LINE  RETURN  INVERSE = LINE N OVER = LINE  MOVE N STEP = LINE VAL  MERGE NOT  RANDOMIZE  INVERSE  STEP VAL$  FORMAT !@ZAZ6IN &IN > STEP Z<= STEP [G]<=:k<=ATN CHR$ >= STEP  FLASH <= STEP ▙{NOT  MERGE  STEP IN  COPY ! STEP I INVERSE  STEP + CAT #X!v BEEP  RESTORE > STEP  LLIST ~ RETURN  COPY >= BEEP IN # SAVE TAPE MODULE BY CRA▟ZY MAN COPY <>0EINKEY$>=X'! LET <=SQR SIN ELECT DEVICE:T-KD-DISK COPY !@@STR$ X_!<>= STEP AT  TAN [P]<( RANDOMIZE NOT y>=IN SORRY,YOU HAVEN'XA[Q] DRIVEPRESS ANY KEY. COPY !▘MNOT  FLASH  INVERSE  "TAN  COPY  VERIFY ▘j/W©▝©RND COPY 6 GO SUB VAL >2▟/CODE  OPEN # RETURN NOT  OR  INVERSE (<(> COPY 2[F]<=<2k<=▘>^IN = PAUSE :[F]T▗ MERGE   MERGE NOT S LINE Qo!MA▝NOT M▜ STEP ▚<>!VAL$ <> THEN [M] INVERSE ![N]<>>7 STEP N<>0 FOR *AT <> PAUSE |[P]INT CHR$  INPUT <>}SQR ▖![O]<>( LINE ABS ! LINE  0▖FN a GO SUB [FN  MERGE [F] 1▜INT >2 CAT CODE  MERGE [E]!y>= RESTORE  CLS NOT M NEW [U][A]!`<>0u NEXT [D]NOT 0u>(ONIN USR ] POKE  DEF FN ▝ POINT NOT USR ] STEP BIN  NEW NOT N<> GO SUB VAL  LET <> NEXT > COPY  STEP [C]<>> CLEAR  COPY  GO SUB y CLEAR IN  GO SUB Q<> POKE ▝B"▘ACS  NEXT [B]SEARCHING FOR SO▚BLOCK COPY @ UND0<> ▝ COPY  ERASE ▘ STOP <>0 ERASE ▝ DEF FN ▖ CLOSE #IN [Q]▘ GO SUB VAL ▘NOT  RUN  BEEP  e▗LOADcpF@EPeZP%▚ERROR!0e▚: CAT ATN  LINE  RESTORE ▘ RESTORE  INVERSE arK"KIN ▗!ASN  THEN K▟>2[R] BRIGHT >2 BORDER  BRIGHT  STEP [E] BRIGHT  RETURN ▝! RUN [O]0INKEY$>2[N]<>S8▚!_ RETURN (%▝IN Px2 FORMAT  LINE ,<=X0!! DEF FN c▚NOT  THEN ! TO ATN ▖ GO SUB K+ NEW  STEP [T] FLASH #CHR$ ▛ RESTORE *+ NEW  RESTORE STR$  LLIST p▗ NEW <▖p/▘▚ BRIGHT IN ![P]FN B NEXT SUSR ?▙"SCREEN$ <>*▚ BRIGHT "FN <>!Ce▜ AND X!inC%B▘SCREEN$  TO 2B▝[A] {z~"AT <>b{ STEP EXP IN  TO q▝VAL rbc▘?s<#<yU▞ENTER FI RANDOMIZE ▚NAME :▝PAR[N]SCIN ODE ADDR :NNDELAY SET▛,DLENGTH)pBpB▚INIT2fb▘ b D@IN ▝ pX▖▝ &pY [L]TAN ▜ STEP <= FORMAT  STEP ]<=<>i▜THEN tCHR$ ▝ FLASH SAVb|) CAT  ▞ COPY !USR  TO  RESTORE ▜NOT  AND  PRINT ▞;[S] LET  CLS [E]▖ LET <> FLASH ZUSR ▚S▛ OR  CAT  ▝EXP 0▞TAN  CAT U▜ RETURN  TO > RUN ▗TIN  8▝ LLIST 0(▝ CIRCLE ▘ OR  CAT E▝D BRIGHT j CIRCLE  BRIGHT  CIRCLE 0 LLIST <><▘: STEP <▝ RETURN 0<[B]08 STEP  CIRCLE <> CLOSE #j CIRCLE IN <> LLIST  LLIST <>r CLS ▗ INVERSE = .! DATA ep▟:▝/2[J] STEP CODE 2▝/ STEP <= NEW &▚!5 READ ▖EX*![T] STEP ^▝ CLS Rl▝IN ,!▞y>=u@@[E]TO STOP MUSICA PAUSE ▜RETURN MENU. COPY  MERGE  STEP  AND  VERIFY >IN 2! RESTORE ▞:I MERGE  VERIFY AO STEP SQR 0 CLS : =>(>[U] MOVE [D]_NOT ▙(USR IN  ▖▙/p8p8 8<[L] COPY [R]iw44667799RND;[S]hs/[R]/r2[S]2[R]2[S]▟x+[S]r--[R]-[S]s*xFN &p*p*p**[T]i~>[U]> COPY [R]a$dV_Vb▘_V@IN 4p4@4/[M]!= IF  GO SUB S6/ SAVE ~ACS  GO SUB [R] REM  CAT USR [T] LLIST ^#V#F#~=2M CAT O> [B]2R CAT #~2K CAT IN # RESTORE  FOR  OR ]T6 BORDER ▛STR$  INPUT <> STEP  CAT  LIST ! THEN !t*▗XO BRIGHT ▝&2▝W' VERIFY ! FORMAT 7 CIRCLE ▘NOT ▛▜8[A]O STEP  FORMAT  CAT = DATA ▘ ERASE  TO  DATA q READ 2 DIM ▟ LPRINT ▘[F] CAT  LPRINT ▜[K] CAT y)▖ LPRINT ▝ LPRINT ▜▝ LINE CHR$ ▜ BRIGHT ▘ NEW X BRIGHT ▝O BRIGHT IN }▘STR$ yp ▝WP▝<>D▖S&7▛ TRACKER&[▗COMPd▖R V1.2yIN &wBIN @0▖MERGE $▚ROUTINQ▝ DEF FN ▚E DATA$TAB ▘4?@X@J▘"<> ON/OFFIN [S]8[P]T COPY CODE H▘!XXw/ STEP TAB  FORMAT .WX STEP  BORDER  FORMAT .A▖ I[A] ▚COS T[I]X&USR )INT  GO SUB K6/ OR ~ NEW ©R FOR q# FOR  NEXT # FOR  FOR STR$  READ <> GO SUB VNOT BIN  NEW  INVERSE ▖[[ COPY p4IN 4 OPEN #9<>▛6G GO SUB VAL 6?▜n MOVE o MOVE #INT [M]TAN  ERASE  STEP  ERASE  STEP ) ERASE "IN  ERASE  CLS <>!W MOVE V MOVE %[H] GO SUB ATN VAL NOT AT  OPEN #Ffv^NF! COPY [ INVERSE !u MOVE  STEP [C]0pPI INVERSE  THEN  RESTORE !TAN  ERASE  THEN F LINE INKEY$ MOVE  PRINT  INVERSE + THEN -0!▗ppoIN 3p<pHpQZ▛<>> RETURN  GO SUB G! RETURN  RETURN USR ▘6^w[I]NOT !. ERASE 2^^"_^ GO SUB ^<>!BIN  OPEN #~<> PRINT  OR  MERGE  RESTORE  INK [B] INK  INVERSE  RESTORE  CLEAR  RESTORE >IN ATN  PRINT  TO COS  ERASE  LET  TO r OPEN # STOP ▛ATN  TO  LINE  NEW :? ERASE ATN  LINE ^ ERASE : RETURN  NEXT NOT [Q] ERASE *f PRINT PI RESTORE  GO SUB RV FOR TAB ]TH_bSIN ▗ GO SUB _Y[T]Z NEW ( LINE [Q] ERASE  GO SUB b RESTORE  CAT bk+' GO SUB VAL  CLEAR  LLIST  INVERSE  LLIST  INK  LLIST  MOVE STR$  LET 0 CLS  COPY <>>LEN IN [A]5CHR$  DIM  ERASE 6! FORMAT  OPEN #~ RETURN @ TO ) ERASE #w▜o& GO SUB [6/ DIM ▖n MOVE  GO SUB [Q] GO SUB [Q]P▖ STEP v MOVE NOT 4 OPEN # OR  MERGE pp"p,p6p@pJIN T▘ MOVE STR$ SGN ▗V MOVE #SGN @P OR  INVERSE F INVERSE # RESTORE  STEP  LOAD  ERASE  LLIST z NEW CHR$ ] OPEN #{ AND  _ PAPER ] OPEN #z VERIFY W BORDER  STR$  PAPER >!g OPEN #5USR 6LN NOT ^ MOVE !@P LPRINT W4▜!P LLIST $$|8▙[F] OPEN #} AND  o PAPER [F] OPEN #| VERIFY gJ▜ RETURN CHR$ POINT  OPEN #{ VERIFY L▗POINT  OPEN #z AND IN  CAT <>>©0 FOR ▜ CIRCLE !n OPEN #~=n▛CHR$  OPEN #>w<>THIS 3IN CPEEK :cSGN ▝!<=NCEPTp▜& WRITT|IN 0[Q]JAROSLAW BURCZYNSKI, AUGUST '90.@▜SOFTWARNOT ▜ISTRIBUEkBAJTIN EK INC&*i+ SAVE ▝Vy▘IO ^ OVER ▚© 1992 LINE  ▜CREDITSFN [H]: BR0MBA,GEN,MONIKA,IN RAF[T][R]SEBASTIAN CHELWICH. SPECIAL THANK? CONTINUE ▗CIEJ FORMAT ▝OEXP ▘ -7IN R@[G][E]▝ {▗UN !:[T]{▟@NOT  VERIFY NOT f MERGE NOT  GO SUB  MERGE  NEXT v CLS  CLOSE # STEP / BEEP j[T]▘[G] BEEP  INPUT ▙:]2 PLOT  /2 RANDOMIZE / AND <2],[S][B]IN CODE 2/ COPY :/ RETURN Y( RETURN N>= LOAD P STEP 9 BEEP  NEXT  STEP n BEEP ( CLS ▘  CLS /<=▝<= CLS <> STEP  MERGE  INVERSE ~ LINE 2[L] LINE  POKE [K] LINE >[R]S2[Q] LINE ><>2AT  LINE ! INVERSE /"[I] LINE ! RESTORE /"[S] LINE  STEP ^0&▝&▝▚&▘[O]<>IN [N]<>&7▜ CLEAR >= STEP  READ >=> INVERSE ▞▚<>CODE 2]y NEW !SIN  BEEP  ▘<@▘NOT = CONTINUE 0▘y>={[K]▝ INVERSE p[C]▗ LINE 2e THEN 0[F]▝C0[F]▘r[J]"_ THEN 0[I]▚!R CIRCLE "R THEN p[O] 2p[R]▝!2 [R]IN [U]2h1▗▚ BRIGHT 2u BEEP G:▝L▘ NEW /< RETURN CHR$ ~<=CODE  LPRINT ▚!SQR <="▙FN <=HIN  CIRCLE ▟lQ[B][F] RETURN A( RETURN B( RETURN C( RETURN D  READ  GO SUB ▙C{2] AND A2; CIRCLE jq BORDER Q! ERASE  BORDER  GO SUB ^ CLS !0IN ▝ LLIST  RANDOMIZE P$▝,@l LINE + BEEP ! OVER ▖NOT TAB  VERIFY  INVERSE ! PLOT   VERIFY  NEXT  INVERSE  RESTORE  GO SUB V GO SUB s=/x STEP = INVERSE  LLIST J INVERSE  BEEP NOT = BEEP | RETURN OI▖IN <>CODE  FLASH  RETURN / NEW <>l▝▜TR-DOS©ABS 3/▘92>=▝ LLIST /F▝C8▛LOGUE Y/N ? DATA ▗= CIRCLE ▝TAB NUCH<][P]▝/▝0>/▗=[P]p:,3▚HAS BE▝ DIM ▚- INK +|▗@IN NOT PEEK ▚: A,B,[G]R DLwZ U▘A:  REM NOT+>=[C][CHR$  LOAD ▜$4CHR$ { FOR k FOR ▗e BEEP  STEP g RUN ▙ BEEP *eIN  BEEP  RUN PI GO SUB R>=▛"e BEEP  STOP !?LN  GO SUB XO!* INK  STEP ▛ CAT CODE t!= INK  STEP NOT  PAPER NOT b FLASH >^ DATA ▟< COPY  COPY ATTR [A] NOT ▗ COPY PFRE THEN ^ INK /▘[H]'@ LET D▛ COPY CSTOp▞E©IN Trr▝8M▗|NOT -[P]r 1 INVERSE PLEN ▞}SCREEN$ -SCREEN$ POINT ▝L READ ASN M DEF FN START[I]sTAN  p STOP ▝:_ DEF FN RND▗ COPY  SAVE % CLEAR +IN RRTAN "▝?0[K]▝▘/[H]▝} OR ▝:CHR$ ▘mSTR$ ▝~▘~A+nA▘: ,AIN  GO SUB !>F^,PROTBT▗FULL- AND 'DI +&2@2▜  IHARD&l▚FAULTJ3IN  OVER ▝UINT <>SNG[B] RUN  STEP ASN  BEEP : RUN <>=NOT  PRINT  PAPER ~ BEEP #c▘ AND  VERIFY "I▝ +TAB ▞>.!VAL  PAPER z▜ FOR 6<>! LIST IN  CIRCLE ;jNOT NOT  PAPER :▖(LN  STEP  BORDER  PAPER  STEP <> PAPER e▖M!!▝Q"N!|▚"P! STEP STR$ tX FLASH :! STEP ATN  LINE W FLASH  PRINT !MLN AT ▜AXW! BEEP [L] LET !T FLASH  RESTORE !S PAPER ( +  RUN CODE ACS "INKEY$VAL  STEP IN  VERIFY ( CLS aIN TAN ▜> BEEP CODE  BEEP ><>!P>▟BYO STEP  ! INK VAL COS  BEEP  CAT  RESTORE  STEP +- STEP  READ -L/GNOT .▛O STEP } FLASH !_ i[E] BRIGHT IN POINT ;,x▗Lr<=XO!O▘>▟[R]SGN ▚ RETURN  1! NEW e▖#LACS ▗▗ RESTORE SIN PI▗MD LLIST 0TAN COS 0!! PAPER [G]▘!w[M]!a[I]▘!C▗ GO SUB K▚ BRIGHT D▘r FLASH q[N]J[B]> OVER ▙4!FN IN FN a STEP  =wNOT  FLASH  AND COS  RUN  RESTORE 61 DEF FN  MOVE TATTR SCREEN$  BRIGHT >2POINT  BRIGHT >_ STEP ( INVERSE  STEP 5 INVERSE  RETURN ([ RETURN (9 RETURN !8IN  LET  RETURN +( GO SUB  RETURN ?( DIM  RETURN ^( RESTORE  RETURN :( LLIST STR$ ▟ RETURN 0 INK O:SCREEN$  BRIGHT < RETURN (=y9▗!POINT  BRIGHT 4 B▘SGN =(ACS W▝ 0IN ▝5 [▜> [O]a RETURN  ([H]<([E]>  OR  PRINT  GO SUB KFN  BRIGHT [K] LET  BEEP STR$ <> MERGE ▗ STEP IN v▛ MOVE <>! THEN  THEN ATTR IN  THEN  THEN  GO SUB CABS  INVERSE "IN  INVERSE  STEP  INVERSE  GO SUB KABS  INVERSE x STEP LEN " STEP [Q] INVERSE :PEEK  INVERSE  AND 2PEEK  INVERSE :USR  INVERSE =2USR  INVERSE CHR$ _▝<$▝ %▖[L] INVERSE :IN  INVERSE G6 COPY SQR  FORMAT ▖ THEN  RETURN <>+ THEN  AND #<>+0_6 BORDER  STEP [I] INVERSE +▛$CHR$ [S] INVERSE <>If[F]! MOVE  INVERSE "[U]a![U]a"=/1[T]aI▞IN FN ▜? ERASE  STEP  MOVE  STEP Y▙ CAT NOT ;<== LINE N OVER =(7= LINE 7▚# NEXT NOT |<><=[A]( LLIST =  OVER  STEP p TO  STEP  COPY  OVER "▚ BRIGHT >_▘2NOT  OPEN #▘ INPUT I▖BIN BIN  NEW SGN  STEP  MERGE  CLOSE # BRIGHT ▜(VAL  STEP COS  PAPER [U]-▘ PAPER G@▜[K] STEP AT  FLASH NOT  FLASH  INVERSE  ▟CHR$  RESTORE  INVERSE PIa RESTORE ,▖ FOR  LLIST  GO SUB LN !BIN  NEW  DIM ▗< GO SUB VAL m/!?▘XOr=▝▘!#D▗ INVERSE  RESTORE ![N] CLEAR IN B[H] 4▝?L▘Y4▝SQR 6/v[I][N]▛N([R] RETURN Y  GO SUB  GO SUB [+ NEW ▙▚8[D] STEP | READ BEXP "POINT a[[A] CAT NOT  STOP  INVERSE  STEP F LPRINT IN ! VERIFY ACS PEEK E#[K][A]: SAVE INT 2U LLIST ![T] LPRINT 6[U] LPRINT = PLOT  INKEY$: VERIFY LN G2 CAT  STEP  IF  LPRINT n&[T] LPRINT +6STR$  GO SUB !7CODE IN PI AND STR$ E LPRINT ▚P CLEAR !AT l<[L] OR  RESTORE CODE ACS y( MERGE  CLEAR q CLEAR # STEP [A] LLIST  MOVE  LLIST #4▛ CONTINUE {2 LLIST  LPRINT CODE a! NEW  LPRINT t AND [L]VAL$ @ RESTORE !CHR$  LPRINT ~ATN  LLIST ( FOR q4 FOR b OR LN PI GO SUB B▝n▚ BRIGHT kbFN aIIN IN [F]!PEEK G GO SUB [Q] RESTORE !PEEK E: CAT <▜O THEN  GO SUB VAL ` ▘ATTR a5 MOVE  LPRINT  LLIST @Y▝ MOVE 0Y▝ `X[M]▛ INVERSE kb RESTORE  INVERSE  LLIST IN " STOP  LPRINT @^▛TAB a: LLIST  LPRINT O▜G▜▝ YkbCODE d▝=R▖AT l STEP  BRIGHT  STOP : OUT I BEEP ▘w FOR FN ▖STR$ a CLEAR !:/<> CLEAR [J]!8CODE IN  OR O▚ INVERSE  INVERSE  RESTORE  THEN  NEXT N INVERSE F INVERSE  LLIST x NEW STR$ ▞ INVERSE ACS  CLEAR wx NEW ▜  CLEAR w CLEAR q[T]▙ CLEAR {< NEW _  OR IN ~!▝#[S]# CLEAR # CLEAR #STR$ TAB <>VAL$ LEN  DATA ,NOWORLN [R]▗,CHR$ VAL  DATA ,K3 TO  ▝  [D] VERIFY  PAPER IN RND,RND LPRINT <>RND REM COS [E],53CHR$ ▗S.T.&▘x[L]©   VERIFY ACS <> INVERSE ~ STEP  LLIST Gy NEW O<>O NEW  LIST STR$ ▛<>IN  INVERSE ~VAL$ ATN G>= RETURN >=_! LLIST Fy NEW  THEN Y LINE ; LLIST ▜▜O▜▝G<>G INVERSE !FN ~@ INVERSE  DRAW <>n▘@NOT IN ▟ INVERSE  RESTORE  LLIST  STEP u LLIST  FLASH [N] NEW  LIST ATN USR  RUN <>:V LLIST O:U LLIST [B]<> STEP ] LLIST !W LLIST yPEEK >=q AND [Q]▛ CLEAR #<> PRINT  STEP E LLIST  STEP TAB  LLIST  LET ▝▝[E]CODE 2V LLIST 2Y LLIST =2W LLIST 2X LLIST 2Z LLIST 2/ LLIST H▘G OR FN [E] NEW  LIST  LINE  STOP  STEP ~ LLIST  STEP  LLIST xATN  LINE  PAUSE  LLIST !X LLIST PEEK pZ6 PLOT  ` c▛ STEP 2 STOP  STEP  LLIST zATN CHR$  STOP )▚ STOP  CLEAR p[S]▝STR$ [F]IN `POINT <=TAB  CLEAR 6 COPY SCREEN$ ATN CHR$ X[D]▝ CLEAR #NOT  STOP yATN >= RETURN CHR$ Q STOP :Y LLIST ATN USR '▘ CLEAR #[T]▝/ [D]Y LLIST <> RETURN CHR$ z[U] STOP  INVERSE ~!/ LLIST  NEW PEEK >=w©▝p  STOP ▝CODE  STR$ ▝Z)▜ CIRCLE O!Z[F]IN ,# *▘+qy PLOT  !P)ACS / LLIST <> RESTORE  GO SUB [R]CHR$ IN  STOP <CHR$ [U] STOP  RETURN ▜ PAPER PEEK  STOP  RETURN  PAPER [U] STOP CODE  LLIST <> MERGE  FOR ~#<  CLS ++COS ~## RETURN ▜8 RETURN 8 INPUT  MOVE M RESTORE STR$ <>>=▜G" DATA  LPRINT  OR ~#▘ INVERSE wFN [B] OR  CLEAR * STOP  LPRINT  MERGE  STEP 9 READ  MOVE   CLEAR IN IN [A] CLEAR ~ INVERSE w INVERSE # INVERSE #* DATA  LPRINT  MERGE  FOR  OR 3k▘}D7▝pSTR$  INVERSE # FOR  MOVE [A]P▖SQR STR$ ATTR <>?[G]<(' CLEAR # OR TAN  CLEAR N CLEAR FxLEN  MOVE ( MERGE  GO SUB [ DATA  LPRINT  PRINT ▜ STEP [T] STOP  LINE r READ 2NOT ▗ OVER NOT 9 READ ▜ STEP STR$  STOP CODE <<> LLIST P'▘VAL  READ b PAPER ▛>= INVERSE n INVERSE f ▗@IN LEN ▘MD0▞ MERGE  FOR i`s#r MOVE [R][Q]NOT  READ DxASN zp#r'IN IN +t1INT 5v8▝;{>▘AOCODE S▛V[F]Y[P]^yb▞e[D]h[N]kABS ▘SIN $▟ CAT  OPEN # BEEP  FLASH  SAVE [Q] DRAW d[R][Q]DtCODE #ASN '{*.}y[R]5©INKEY$yH▞K▙NxQ▟U▗X9ABS ATN o^4c SAVE f<i[I]lDp▙s v▘yL▝|▝©T[I]▚8▝▞IN /▝0▝[C]d▝[F]/[N][L] AND RND POKE [Q] OPEN #FN  FOR TAB  MOVE SIN  LET ATN NOT X INK v BRIGHT FN ▝ CONTINUE d IF rIN  CLEAR TAN ▙[I]VAL$ AT $4▗CODE 2[B]X GO TO mPI}▜▗▛▖$[J]▗[C]5[G]<[K]ATTR ▜[N]USR [T]FN PI[N]VAL$ INT LEN iTAN 2ATN [R]INT POINT PEEK qCHR$ ▙ OR  LPRINT ▛ TO  LOAD  FORMAT 8 CLOSE #[B]L8▝ PAPER BIN [J] OUT <▝ STOP 4▝ NEW $▝ DIM 8▞ GO TO [T] LOAD SCREEN$  NEXT ([L] RUN [I] IF l[F](<[L]USR FN  DIM IN [P]i[I]"2%RND(ATTR ,q/I_▚VAL$ 8/TAB ▘P^▜"+ NEW >2-w▝0ATN .:0 GO SUB  VERIFY 0 AND 0 BEEP :- NEW ATN (G STEP ! NEW  CLS /▝4▘= SAVE 7▖<=)]T)) VERIFY R[H]". NEXT [A].CRK©[J]OUSR [H]"> OVER IN  STEP TAB  FORMAT !. NEW ]T6 INVERSE FiP^## RESTORE !- NEW  LLIST  NEXT b▖@STR$  GO SUB VAL [P]▘im CLEAR ▝ INVERSE 3▘▚#ATN CHR$ IN SQR  NEW  RESTORE o▚6 OR ? $▗STR$  LLIST  DATA $hPI 6!(COS  SAVE INT ▘Q GO SUB LN <> OR @$[S]STR$  OVER ! FOR NOT  STEP  NEW NOT  CONTINUE  NEXT ~2< BORDER IN "© BORDER # STEP y BORDER <2> BORDER  GO SUB S4 BORDER  GO SUB S6 BORDER  MERGE  VAL 8 BORDER ! STEP ~ BORDER  FOR ": BORDER !E BORDER "? BORDER !F BORDER G BORDER ,p GO SUB VAL  LLIST !CODE IN  STEP s BORDER =2O BORDER 2Y BORDER 2c BORDER [T]= BORDER #"M BORDER "W BORDER "a BORDER  STEP  READ  REM  CLS <>4 INPUT L INPUT  FORMAT  INPUT  FOR E BORDER ^ LOAD  LOAD  COPY BIN ▘M INPUT ppP OR IN [H]PEEK >=NOT s BORDER ^#V# FOR  FOR  FOR <>_▜_3[I]~ THEN ©J THEN wCHR$ [P] BORDER B NEW g INVERSE ^▜▝ PRINT 6[J][P]W LET  NEW IN o INVERSE  THEN n>= THEN  STOP <>:d BORDER O!> BORDER PEEK  PAPER <> BORDER CODE O<2d BORDER i OPEN #[C] GO SUB [4 BORDER N#~2 REM y*8 BORDER  FORMAT  GO SUB S?1▝A1[A]ATN C BORDER <> INVERSE 5 LIST  INVERSE ~ COPY  INVERSE w<>:= PRINT ▖= BORDER CHR$ R DIM :< BORDER  NEXT [C] INVERSE !H BORDER  STEP  CLEAR  BORDER  PAUSE 3 CONTINUE *? BORDER ~< TO SGN  BORDER  STEP / CONTINUE [A]!R F CONTINUE *K▝A.[H]IN .▗R DIM *C &[S]C BORDER NOT R DIM ~ RETURN ` PAPER  CONTINUE  RETURN p PAPER [H] CONTINUE  RETURN  PAPER LN  CONTINUE  LINE CODE  CONTINUE  RETURN ▝ LINE [F] CONTINUE  RETURN ▘ LINE ASN  CONTINUE USR ▗ CLOSE # CONTINUE  VERIFY [R]|▜ INVERSE w COPY #NOT / CONTINUE [C][O]6 INVERSE 6 #<> VERIFY ` RESTORE c*: BORDER ABS ▜ INVERSE u INVERSE t LLIST %IN ▘ COPY <>a VERIFY p RESTORE AT ▘*6@!▖ INVERSE t INVERSE 6 RETURN  %▛ VERIFY 2r BORDER #~#2p BORDER  RESTORE CODE p*0*▝ LLIST o~<>=== INVERSE w[S] PRINT  NEW ▝O▝" LET USR  INVERSE ^ INVERSE V!`▞▗= IF VAL  CONTINUE @#~<3IN <>yATN USR |2k8< INVERSE ~ RETURN ▗ LINE K DIM yNOT O DIM CODE v▘ THEN  NEW  VERIFY :[C] RANDOMIZE  CONTINUE y2 REM  INVERSE *K BORDER  STEP ▗ BORDER yVAL 2l!Ru[D]PEEK  LINE ~ DIM  STEP - DIM  STEP  PLOT   DIM "e BORDER !m BORDER w STEP 5 DIM !R▝ RANDOMIZE  [D] LINE COS  DIM 0:▝U::l BORDER LEN VAL <1!v5▗g BORDER !n@5t@5▝ GO TO IN _@5▞▘VAL LEN P9[M]n▗i BORDER !o nNOT  READ  REM } PRINT  MERGE  INVERSE n INVERSE fcw▗▚ AND ▜POINT # REM [I]▛ FOR  MOVE  LET  THEN b( THEN [S]<>IN kIN <> SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X  PLOT   LINE IN [S]CODE |X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN ▞[G]▙~wIN  OPEN #kd[P]YTASN ▜KGB? THEN ▝8 BEEP ▜2/,* GO SUB ▝% PRINT ▝! CLEAR ▝[B];IN !r BORDER CODE ACS >  VERIFY USR +VAL$ yIN  GO SUB ATTR = PAUSE  NEXT  REM <>3L FORMAT EVGENY KULEV'1994 S@[G] THEN @@@ BEEP ▚@@  TO [H] RETURN [O]GKOSW[ GO SUB LN SHC@u CLS ▜[Q]0▗0[Q][Q]0Pp$P6pBppT[T][R]IN /[Q]N[Q]l[Q]▛[Q]POINT [Q]>=[Q] NEW [Q] PRINT [Q] COPY #[Q]B[Q]0pppp*p30<AT  ^2▟CODE 8SGN > FOR $*I0x6PI< VERIFY """(4".c PRINT ▗▝ d▝ ▟[C]i▙p LLIST p GO SUB p PLOT  p AND RNDQZ[Q][Q][Q][Q][Q] u[T]u $▞[Q][Q][Q]{▞▘▘A▙▜▗c▝ TO  NEXT [D]TFN $▗[Q] COPY V<=CODE [U] OVER  POKE Pp0▝`!▝@Q&IN ▛G▟ RANDOMIZE ▝[P]<▟© TO zEXP  RANDOMIZE ?▟z LINE  COPY [S]aUSR <▝[R]ASN ▝[S]p # +▘<b.4▟ COPY [S]c▙▙▙[R][B]▝p 0 ▛▙[R]$[E]▞ COPY  LPRINT ▝ COPY [R]d$aY▙0 ▘e$ p5p5[G]`5 COPY [S]f INK pSIN ACS ▘COS SIN ▘PEEK `SIN Q▘▝ LIST INT  LPRINT pSIN ▟[S]gr2[R]2[S]5[R]259[S]`▛75INKEY$0[S]457[R]75▘0[U]▘202-[U]0[S]▚[S]54[R]5[S]▚40p▚p▚AT qX@▚▜ INK [R] LIST [S]@ LINE p[A][A]42RND-[R]-[S]-[R]0▗-)[S]+ CLOSE #[B]+$[S]&[R]$&$qq▚[P]ATTR ▝b▘[I]q[O]qLN q AND q ERASE p3▘▝▞[Q][R]▜1▝▗[R]▜1p▗[R]!IN qVAL$ "d}75727KT▗2535 BEEP ▗5[R]53[B]▟32.[S]0.0[R]+[S]0[R]0▜[R].0+[S]20[S]52VAL ▚▝2p©p©▙p©2 OUT TAN )▝' 0 INVERSE LN ▚<:< PAUSE Y▝:*▘:<POINT ▚▘2FN a CLS 31[S][S]"e0 NEXT [S] DATA ▜▚[R]!IN [S][C][S][Q][R][S]▙[R][S]▝▙▝s▖[A]▖5952[S]047 REM ▚4740[S]. IF ▝.▘)6[Q] +.2 ▝1 DEF FN ▝q`@▘hr0B▘gq`DATTR 40Fgq5..Hj▘[T].).5.:+$$A-[R]$INKEY$-k LOAD sCsCP0▖t{s<>s<>t[L]@ OPEN #s OPEN #P▜>=t>=t VERIFY t STOP &▞ LLIST t CLS t CLS usvpFpP@ZCHR$ sCHR$ jVZptp~p▖p[C]@[M]▙CC COPY U RESTORE U▝S OR   COPY U COPY UP0 NEW U COPY  SAVE  COPY  SAVE  COPY  SAVE  LOAD  SAVE oBIN STR$ ▚66? BEEP 6©6POINT [H]?<??sv7g(<?f?>[P],.7STR$ ▗0A▝0 COPY ? COPY ▝▝?[J]0-6? COPY ▘[J]▘0▚>go{s>X▚>c>`©<l©H©`~ ▗>`~c OR @VAL >c> z▘?IN  LINE  STEP @[B]g[Q]© ▝c▚>o©©`0@▘©c=▘~c`▝~▖▘``▚|fccf| IN ▝`[I] ▝`  ▝o[Q] 7u GO SUB  USR USR  [Q]flxlf▟CHR$ ` FORMAT ▘cw0(cs{ogRNDACS  >=n0Pc{o[C]@8>`>!▝ COPY CHR$ h00 FLASH RND6@?[Q]▘6 PRINT NOT f< (▝©W@▝[I]▝ COPY ▘`02x LLIST INKEY$USR ▝~ P? COPY ▚ COPY 3|00<>f▖00>33H▝USR 0>=INKEY$▗<f|(▘< LPRINT ▝|USR fv▗8<2LN [M][R]0<88<L IN ▝STR$ ~STR$ f P▘ff[Q][G]▝|!QPExH▗<`<xpPAT 706▝<|▝fP <<P▚[A]▘~WUSR 8!NOT ▝t INPUT ▜B[J][R][R][J]B< COPY ^ COPY ^ COPY ^ RANDOMIZE ^2? POKE  SAVE <> COPY  COPY  COPY  COPY  COPY  PRINT [F] NEXT  STEP R;;STR$ ![H] FOR !fs#r!{0▝▞0[[F] MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~USR [P] NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))|▙[L]} NEW  LPRINT TAN oa~ STEP  READ  INPUT  LLIST # OVER  LLIST STR$  NEW ©(# THEN w G▜# RANDOMIZE VAL$  NEW ?F#IN  CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <> COPY  MERGE USR USR (cPEEK 0▘(( FLASH USR FN NOT NOT (H[I] LPRINT USR [Q]0@   LPRINT <>[Q]USR *l▘** [S]USR ▘AT USR ▘ATN USR SCREEN$ <>▘ @▘SCREEN$ SCREEN$  READ wNOT 80 [E] MERGE  COPY  INK  CLEAR  TO  GO TO 0yq= TO ,IN BsL POKE JJ"cI@T INVERSE USR I#WzUSR  MOVE HUSR bUSR xUSR |▝: AND  TO  CLOSE # |{[N]▘[Q][Q]NOT ▝USR [R]LAT ▗(([R][R]{ FORMAT USR UUSR AUSR  EXP IN  READ USR BF J@{ COPY ] TO USR  AND 9 ▘ OVER USR 0USR Q,▘QQ( BEEP w0[C]Y▝ PAPER TAN tUSR PNOT  GO TO AT ▞PPAAP*[J]/ CIRCLE 1 RUN NOT @J▝@} [H]K COPY  COPY P0SCREEN$  RANDOMIZE ▝ BORDER ▝0 THEN ▛ COPY <@<B<((▗|BB|O▘~@~ PLOT  ▝+XIN >=▝r6▝qUSR ▝s>▝r(LN ▟▙▝[B]O▖S!Q▛x@CHR$ U▝/m▝>=USR ▚<=((' (▛VAL$ DEE=8 pUSR  ▝[I]xCHR$ USR ▚[O][S][S][O]USR % NEXT ▚<[S][R][R][S]SGN  CLS ▞ READ  DATA  POKE FN xUSR USR @ FORMAT ▝STR$ %▗8EyA▘%▙▝pUSR ▖▘pySTR$ ▗▗CODE ▖O[F]'(<= NEXT ▝ BORDER USR ▝ BORDER [L]▜ DATA  DATA TAN ▟ ERASE 8ky@▜USR  !"!SQR [D]4PEEK ▝*(▘ LIST ▜STR$ ▖yRND[F]▗<=( CONTINUE (p▜ LIST ▛▞ LET (▙ LIST  PAUSE  LET  POKE Wy[B]▙@SdgTK #$'$[D][L] CLS ▝ CAT USR ([I]▚G((H▜zCHR$ ▙P[A] FORMAT USR !Q[B]▝[H]▖▘[Q][M]▘`z@A▚USR  BORDER @▝USR STR$ ▘~▗q[S]qAT ACS ▚ INPUT ©USR [Q]▜[Q]CHR$ ▝ BRIGHT (TAB 2USR [R]NOT <=FN FN  OUT <>AUSR UCHR$ ▘UU OVER <>B<=[U] PAPER  TO  CAT ▜FN FN ( BRIGHT  TO :&▙**QO CLEAR _ FORMAT O DEF FN qJ"& THEN o THEN  AND HD▙ ▝jp@ FLASH USR NOT P"ASN ▟ DEF FN p7USR Q0 GO SUB USR [D] THEN x@" AND PUSR T GO SUB ▘TT[A]▝ TO  LOAD ▘ AND (USR ▗PY[R]q@/▝[T]USR  IF ▘[J]Ljqb AND ▘;m[F]yNOT 0@9USR y CAT  POKE  AND 9COS USR  CAT <>(T+ RETURN _ FORMAT g DEF FN <>h FLASH wUSR ENOT T"▙z▗<=TAN USR @NOT |IN 7 FLASH 1 MERGE P BRIGHT c:;@▝{C MOVE NOT  AND  IF  ABS STR$  INK   BRIGHT ABS  CLEAR USR }-NOT ▖UQQy▘ TO <>@} DIM ATTR ! POKE 3G▜ DRAW USR  CIRCLE ECHR$ [C] BIN G(<>G INK Fx x  INK F▙ PAPER  [G]@ OUT <>D@ LPRINT 8 <=Vx `  LINE E▘'[S]x@x@x` `@STR$ x<=Ox[Q]x@0NOT  MOVE ▘FFATN  MERGE  N▟x@h@ BEEP ▘EEz!h  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  STOP <> STEP >FN  NEXT  GO SUB s FOR i![G]i▟[d MERGE  GO SUB VAL !=FN  COPY  COPY D><> GO SUB LN !SGN STR$ USR ~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN  STEP  LINE PI NEXT  GO SUB s FOR i![G]i@d MERGE  GO SUB VAL !>=PI COPY  COPY  CAT =<> GO SUB LN !1CHR$  RUN `~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]DINT gx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1[@ LLIST ; LET w IF 1 CLS NOT  IF >= AND IN IN RND TO RND TO [M]9--'[P] VERIFY *a$u[U]TAN PX'[L]6!:/FN a CAT [PDV DEF FN q<>& LPRINT +-e3 COPY  COPY  GO SUB IN [C]Rv>>▙ INK 7 VERIFY STR$ SGN  INK J OPEN #o BRIGHT  INVERSE S VERIFY  PLOT  SCREEN$  COPY  THEN ▙33At33@`   NEXT PEEK  POKE C0 *▝a@@?P0$pZpQ@ZHQH0?Hpup$0u0c▝pZpu[A]▝p[A]p[A][H] CAT p CIRCLE ` CAT pABS  NEXT ▝`p DRAW qp DRAW p AND q q q_qV[B]z`[A]p~q[F]q[O]q[O]qDqVAL qVAL ▗q NEW q NEW USR qIN  CLOSE #x▘#PB▝sP▝SP▝3`@H[O]2tCODE '0CODE ▗I[O]2 d▝P@$Ip$ $s@$▚SQR @0[O]<E $NQ CLEAR ▝1 `u0▝DP$!▝d Z$@p[O](0~0[A]▝qPO[P]0[A]$▝ [A]p$▘[O]( AND @$ H0$ OVER T0Hl[A]T0[A]`[O]- DRAW ▘3!@a3N[R]! ▝s! ,1 ▝Kq A 3EH`$▝ LET !*PATTR !D` DRAW 0H&1hD1▝3q $[A]q ▝(Hq ! 0q [O](@▘D<▘!h©th▝c! CLOSE # LIST @1 [I])@  CIRCLE ▘P OVER a L@a  OUT [T] DRAW 2@▘p$A &a ▘'1TAB Db.[I]2@d▝ l▝p$▝<0Zrb@lv7IN a SAVE ▘3Q INK [C] SAVE ▗p[A]E4:▘p[B] GO TO ▘q[B]C▗"▖6=>= `$ 60s▝` 60ZI▝LN a Zsyr@s`C`3i@ DRAW #`1 NEW s▗SWr@#▗ PAPER c<2ACS a 2AT bI2[0 AND c`▘"q BORDER [H]Bqc3LEN 3▗▘bq9c▗▝! $c▞IN ATTR 6]3`0?`H]1 r@r@8▝4PTAN 01[M]4[C]s[O]<5$0[M]` CIRCLE ] NEXT -D▘[M]▜6<>3E%q& ERASE [F]@P$▝A $A[O]64>= FORMAT UGACS I[M]VAL 5ATTR 5$Pce-@H▘[M]7Y5X[R]▝I [S]uX▝?▝5s▝HP▝10[S]▞SGN ABS  CLOSE #[M]"3 LIST [O]!5[Q][O]!4>=5[Q]SIN  DIM 0$▘[M]!1 `▝ 0$[I]0H`MH 6▜[H]C0$7 OR aq8[M]0?8[O]80H▝9[O]▛]0y▘ LIST '3`0H# LIST 0$[D] CLEAR [E]USR cBUSR 0HUSR QH 60C[S]dAT ATN dCODE EBIN  TO  tCODE  FORMAT "▖%F▝u CONTINUE ▘CODE SGN ▗5 CONTINUE USR VAL$ 0PEEK %▙ $" FORMAT  ERASE 0v0P660▝8p~▝@ DRAW [B]| [S]|CODE  DRAW ! `[A]aIN 1DNk0[A]0H`1_`HhP AND 7P▝Hqu[Q]1 VAL AT TAN ▝A*▝A%[Q]AT  `$8(1 CONTINUE `g,LIN 70▘IN AT p$Pf0▝P6gt0 READ `H▝E Z▝M H OPEN #▝VK0[J]0 CAT 2@ CONTINUE [D]TAN 2@7[I]▝|)9`%9ATTR ▘▝ DATA ▝@ LINE ▖3`L9ZUTAN m8▘`$l▝<)ZiHW9▜``f0b@Z6[M]s`WPc`0$s▗▘[O]8lsFN #FN 0s TO IN 0 AND C TO * 1 )`TAN `ABS 480: ` CIRCLE 9[A]@$Zhp$pHpH`cplPZ@l%SQR b[K]jD/"AT hP$40pCOS 6G8p`Hp$(pH▝A▝ RUN pH@d▝ZD GO TO :D DRAW 8p;@0$=▞p$Y;@0V[E]pHZPI`cy5[Q]iQ5s`[A][Q]▘ LET t▖0[A]PEEK {[A]@[A]AT ▞H $p CIRCLE PHp[C]▖;7a ;Z▖▜q {@q PO[K]{©I NEXT 85jql[P]1VAL 1;qVAL !VAL 1Vp$INKEY$[Q]VAL p$7COS qM0H;@(6USR k@i LLIST <▗9-:PI6x{mR[F]▚[©[S]<=j PRINT [Q]{ASN :PI4 GO TO @c▝[B]B@IN =▘1[B]GCOS  LPRINT b<=6xB%+ CLEAR 2BIN Tw[S]PYtIN r.`H8L@c3=w[T]}e,▟&v▝2a[T]▖{©}TAB `H?0SPEEK ~x PLOT  ▝!2tk[teD[L]:t[L]te GO SUB pHt[L]!t[L]O0pH$ READ r[B]▝q CLEAR FN ATTR VAL$  COPY  COPY Pppp$p.p8pBpLpVp`pjptp~p▖p[C]p[M]pINKEY$pVAL pINT pBIN p DEF FN p CIRCLE p STOP p GO TO p PLOT  qqqqq(q2q<qFqPqZqdqnqxq▘▝ COPY GIN ▖ MERGE ▖ MERGE USR [A] LOAD p~ FORMAT  INVERSE @ COPY  CIRCLE CHR$ IN  COPY  CIRCLE ▞p▜ LINE  INVERSE ▘z[H]INT  CIRCLE  FOR ▗▘q[A]>=▟IN /^▟SGN  FOR IxPI VERIFY 4c READ ▝▞q▟ THEN GKOSW[_SHIN Cq POKE  COPY <>IN IN r[H](2<FPZdnx$▝PppHa▚r▝q▛r BRIGHT "[A]p p 8@0 BEEP P▗p▝>=&(▖▜&RND  OVER ▘STR$ 1▚<= INVERSE ▝ MERGE ▝▝ppp00▗▝`wss▙ BEEP ▝|sN3X[U] NEXT  LINE  TO ▝ VERIFY /▝  ▝ PAUSE ▝P FORMAT IN .p8pBpLpVp`pjptp~p▖p[C]p[M]pINKEY$pVAL pINT pBIN p DEF FN p CIRCLE p STOP p GO TO p PLOT  qqqqq(q2q<qFqPqZqd[N]qnqxq▘qq[G]q[Q]qSCREEN$ qTAN qPEEK q>=A ERASE ▝ INVERSE INT 1:▞ ▝ INVERSE ▘[O]▝1M▚Y/[B]*`4▝ COPY pa ERASE [Q]p_pipsTIN  LLIST ▝U<>▝[Q]9[G]j COPY STR$ ▝C▘$$O RETURN ▗$~$~▚>(>> RETURN ▟ZRND[R]RNDZ[Q]U(*D: VERIFY G▝ OUT ▝IN  RETURN ▝ B▜ <fB@Q▝|▘;▝ RETURN ▘Z▘ C'FJR<▗(PI RETURN <B[J]~ ▘B▗(|>~` <@| TO LN ~@@<B<0▗B>':K>= COPY ASN  COPY ASN  COPY ASN  RANDOMIZE ASN j▗@  NEW ▝p LPRINT ▝pO RETURN ▘▝ COPY / RETURN ▝ RUN [▚"x  MIN HH▖▗@pHH '▗0@@0ATN ▝▝8 ▘H▗ P@`50H80-`1!v0)j$[C] (0(MCHR$ ▝o▝hSTR$ TLN RNDxDDBDpUSR DY▝x▜▚<DNOT  VERIFY  THEN [B]STR$  [A]▗@8xcIN @▘STR$ D▞DD▞( STEP ▝DP▞(D((DASN O[A]<8| |jNOT ▚ LPRINT !![J]▘(/ RETURN IN xB3[R][R]2< STEP R;; LLIST 6[P]RND>[INT >=~ RETURN  CLEAR ( GO SUB [Q] NEXT #F THEN x( THEN LN xPI( RETURN >0> CLEAR #~rATN #▗ CLOSE # CLEAR ▖▞ CLEAR ▗ CLEAR ▜ CLEAR ▚pppp-▗ CLEAR ▖p-p0KN▝▞pK]c▝▚@$ CLEAR ▖LTAN ~>>~ COPY ~>c@~> COPY  COPY ©~c> CLEAR @ INVERSE 0▜`>f CLEAR ~▘c©2 PLOT  @ASN ▗> COPY >IN 4▚`©c> COPY c`▜©|~ COPY >E▜>>c~`©p8▝>:▝▚~©~©PV▟c~ COPY c>|©IN B<|D]`tq CLS  LIST p CLOSE #  CLOSE #▛cc` CLEAR cs3Tcc`00`c< CLOSE #[Q] ▝`%L@5▗`cc@``ss▘c0▛▗`cwcUSR `8m▝VcpV▛wcf` CLEAR BH ▘`sp<_COS ▚NOT qFN @ CLOSE #▝> CLOSE #▗{<  CLOSE #▗©~▗ ▝P~EXP POINT ©~n© VERIFY 07▝>0 VERIFY ▝`6`~{n▟0R▝~& BEEP ▘{▚>©©c`;`T PRINT [H] BEEP ~c~pW▘{ BEEP ©ccsBp[R]p<@ CIRCLE ▘ CLS  NEXT p CIRCLE B▘cAT ▗ofP▚`~o!AT @[S][P]qAT !h@5 GO TO 1AT ▘oc!AT 0OAAT ~o!AT ▝[T]m1AT ~[F]▗~`c`VI▝<AT ▗ZB|  PLOT  IN o`t LET COS !AT r3T▖`>~~~>gC CLOSE #W▗©cgv0SU0aAT #V▘C▛>`V!<=▘©gSQR s[A]W▘|~▙cg) NEXT ▗>>[R]!i▖TAB esTAB ▘*▞ BEEP W$<BDi[P]©gc THEN ▝`@ LIST NOT  CLS r▗$,▘ CLEAR ▞tRNDtRNDtTAN tNOT tNOT  ▝TAN   CLEAR © COPY  CLEAR a COPY tEXP EXP t<=pp*p8d COPY ▝upTpbu)USR p▛~uEuSp[K]pFN uou[J]p LPRINT p INPUT uASN [Q]IN u MOVE u OUT q&q4u CLS qBqPvv%qlqzvAq▖&O▝v]q[U]qSIN vyqUSR q DEF FN v[F]v[T]q REM q SAVE vIN rrv FLASH v DIM r0IN r>wrLrZw!w/rvr▗wKr[C]r[Q]wgwurSGN r LINE w[B]r CIRCLE r NEW wTAB wSQR ssw BEEP ss,w NEXT xsHsVxsds[M]rx9▚ COPY  COPY  BORDER  CLEAR  ▜ LPRINT  CLEAR  RETURN  ppu[S] CLEAR [Q]p%p/p90%▘▜> MERGE ▙>c>`f?©~ CLEAR ▖ CLEAR [O]/7+IN  CLEAR ▜`c|VAL wcsc`<|cp1p9pAb▘``@▞©©{©`` bpIN p<>p OPEN # [K]PEEK C>cco▙▘▘?© ip RUN qq@ RUN ![G] THEN @IN ▘  COPY p OVER p NEW ` OVER ▛©G CLEAR aG0RND[E]▘ CLEAR ppp"p"p3▗GGDABS [G]pDPY▝pfpfpwpwp▖# CLEAR [O]7 THEN ▘[O]z▚z[A]IN  MERGE EXP Va"Za "Xa"[A] OR  STEP JCHR$  STEP  ERASE CHR$  STEP ▜BIN !XX6 COPY  GO SUB VAL  STEP INT BIN  RETURN  OUT  GO SUB x THEN O TO MBIN  THEN G TO _▝IN IN G!STR$  RESTORE  LINE IN BIN  LLIST  RETURN  CLS ▘ TO g(▝ RETURN  ▝y2▝©#▟ PRINT  TO BIN  LET  THEN W TO 8CHR$  RETURN  LOAD  %▘▞NOT USR v▛VAL$  PRINT  STEP IN BIN IN { NEW _^▚ STEP SCREEN$ CHR$  LET v<>[A]{ GO TO  PRINT  STEP  OR < NEW  STEP  OR  STEP  BEEP ▘ READ ▝=0▟CODE  RESTORE y_2ATN BIN  STR$ IN  NEXT >n2ATTR BIN CODE [O]BIN  LPRINT >= STEP SCREEN$ BIN NOT jCHR$ CODE G STEP SCREEN$ "} AND o<>▜▚CHR$  OR  MERGE  OR %[B]6 COPY  STEP 5 OR STR$  POKE  MOVE IN STR$ <> STEP = OR F>oC[M]x NEW (GO OR  STEP BIN BIN STR$  RANDOMIZE yG>[A]ATN >= BRIGHT  GO SUB >=G OR  STEP ,▝ RANDOMIZE *▝{w▝~3w<> OR  MERGE {2 OR IN  O▖>ATN   THEN  RETURN  V▝ GO SUB Pa^▗:ATTR BIN <[P]ATTR <>*Za<> STEP R OR  STEP  SAVE  AND  STEP PI OR NOT  TO  OR  x OR  STEP iSTR$ NIN a MOVE  MERGE *[A] OR  THEN #'▞^#~ NEW W STEP [C] OR  OUT ▙ OUT <> THEN c({ NEW <[O] STR$ /▟ RUN  COPY <> THEN b>+(>-?▗ RANDOMIZE IN  COPY  THEN [S]FFa<>.Q[G]> BEEP } BEEP !USR  OR ~ RETURN  COPY >= BEEP # SAVE . DIM BIN   COPY !COS ▜ PRINT  CLOSE #E AND  LET  PRINT  CIRCLE ▘d AND RND▘/ AND QIN USR ▝5▝ CLEAR ! NEXT ▝{ ▝s▝ PRINT  COPY ▝L,O TO T, STOP ▝[H] =▝=▘ FORMAT Q DIM ▘ STEP  AND  CONTINUE ▚[H] STEP SGN IN  OR {< BORDER ▜PI OR vvNOT SCREEN$ CHR$ = INPUT ▗ PLOT   NEW  NEW  LOAD  OVER  MERGE  STEP [R] AND NOT SGN  AND ▖ RESTORE  FOR  FOR  LLIST @▝pPI GO SUB R`▗y INPUT O@3USR IN =QIG[I]K THEN !^#Vz NEW O THEN [S]<>z NEW LEN Wr+sT▝ MOVE  ▖C MERGE | INVERSE *VaY}▖La STEP SGN NOT !▖PIN a" LET [[A]Dav][B] INVERSE NOT AT NOT >_2<=26<=>28<=2 STEP <=>▜@▝[A][N] NEW ATN (G OR yG"6 LIST STR$  PAUSE ▖CODE  GO SUB o+ CLS ▜ GO TO  INVERSE #STR$ <><>▘TAN >=! ▘  PLOT  LN ▘Z>=CZ!]W TO Q>= LET sVAL ▘ LOAD <=1LEN ~▘>=SIN Y▘v▝ RUN &1ACS ▘ COPY  AINT ▝L]COS e3▛z>= CLS [B]▛ STEP 3>=~▝ THEN ©  NEW ? PLOT  @w[A]NOT TAN >=▜.[I]!BIN Z PAPER IN Z>=0[C] ▚ THEN  READ .=0▝[T]▙2~*/" PLOT  INT ▚O THEN c<=▝STR$ ▝2STR$ x▙ GO SUB DwIN Z STEP :>=> BEEP > BEEP "ATN ▜>  BEEP  CLS NOT ▘CODE  BEEP CODE  BEEP <> MERGE CTAB ▖> RETURN 2 SAVE [x▗ RANDOMIZE [/▗>/▚;▗RIN a GO SUB SQTAN ▖ MOVE z INPUT W ▝ VERIFY SGN  FLASH ▝ MERGE ^ STEP (>=_y#&▗Ta MOVE <>> #8[Q]U3PIN ![Q]UIN o]T<>ATN ![Q]U STEP  LPRINT >= FOR <>!▙ INK "Da!7 VERIFY "Fa!SGN  INK "La!J OPEN #"Na!o BRIGHT "Pa! INVERSE "Ra!IN S VERIFY "TaIN :'COS 2 LLIST 2 IF  BRIGHT >2j/!R OPEN #" RUN  COPY ! OPEN #" RANDOMIZE  COPY  STEP  OR <> STEP s<>CODE 2/ COPY :/ PRINT  RETURN 7 TO >= MERGE  LET  RETURN 6 TO  PAPER  MERGE :d TO ATN ( NEW CODE 2d TO IN  STEP  NEW  STEP A PRINT 0RND STEP  STEP A LINE  MOVE >NOT 2ASN ASN ! VERIFY  THEN "ACS ASN >TAN  GO SUB G GO SUB ^ CLS <>>2? TO <>!▘ ERASE _PRND STEP R OPEN # STEP CODE  DEF FN !X<>#7IN  GO SUB Z{ AND GLN <> GO SUB [R]BIN AT  RESTORE  PRINT pV▛<> STEP ▚<>![M]+"el[H] INVERSE CODE 2[P]Y STEP )ACS  STEP Q CLOSE # STEP  OVER  CLOSE # STEP [G] MERGE  STEP  CLEAR  CLOSE # STEP BIN  CLOSE #IN a[D]/2 DATA : OVER  STEP c OVER :! ▗:)SCREEN$  STEP RND TO NOT TAN  MERGE  STEP ▘ BRIGHT :x MERGE  VERIFY  STEP  CIRCLE  READ O:w MERGE  STEP F PAPER  STEP  LIST  PAPER  STEP  OVER  STEP [T]▙ INK  STEP b INVERSE v STEP : LINE   INPUT f[F] STEP  INK CODE  FLASH  RETURN / NEW <>![A] LINE  GO SUB Ke TO  THEN 8 THEN 8[C]ACS 9 THEN 9 THEN 9[Q][L]LN  #~#EXP (V PRINT z RETURN  CLS   LET  LET <EXP (IN IN  RETURN  RETURN #  RUN  VERIFY ~ RETURN  CLS #  IF N!▗*IN N#F OR <> CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN [P] CLS  RETURN  CLS  RETURN  CLS  RETURN IN  CLS  RETURN  CLS  RETURN  RETURN  CLS  RETURN  CLS   RETURN V▚" RETURN  CLS $ ▜ RETURN  CLS  RETURN ▝ATTR  CLS & RETURN VAL  CLS ( RETURN  CLS * RETURN  CLS , RETURN  CLS . COPY  CLS 0 RETURN  CLS 2 RETURN  CLS 4 RETURN FN [M] CLS 6 RETURN  CLS 8R CLS : RETURN  CLS >v▙@ RETURN ▞B RETURN  CLS D ▝F▞CHR$ ▞H RETURN  CLS J[K]IN ▜L RETURN  CLS NeIN  CLS P COPY ATTR  STEP | MERGE PI MERGE E CLOSE #? CLOSE # CLOSE #▙ CLOSE #[M] CLOSE #[T] CLOSE # ERASE  CLOSE # CIRCLE  CLOSE #▛ VERIFY [R] BRIGHT ▖ OVER z OVER W OUT : DEF FN Y DATA  INPUT  CLOSE # PAUSE  CLOSE #C MERGE ? MERGE [ MERGE _ MERGE IN  LOAD  READ ><>EXP  STOP  BRIGHT  LPRINT # LPRINT STR$ [R] LPRINT m LLIST SCREEN$  OUT INKEY$ OUT  LPRINT ^ LPRINT Z LPRINT C LPRINT ▝ LPRINT } LPRINT [S] LPRINT ▚ LLIST  CLEAR  RESTORE  INVERSE  RESTORE  RESTORE  MERGE  OR  PRINT  INK [J]CODE g AND 2.3o,^,CODE V FOR IN  PRINT PI RESTORE  GO SUB Rg AND oV FOR POINT ]TH_b▗ GO SUB _Y▚Z NEW  RESTORE ▜NOT > TO  LLIST  LET [T]VAL CHR$ . TO PI GO SUB b RESTORE IN (COS  CIRCLE L!'COS NOT 7 DEF FN >ATN  TO  DATA :? TO ATN BIN m STEP >ATN  TO  LIST  BRIGHT CODE  OPEN # RETURN  LET STR$  MOVE  LLIST  INK POINT  INVERSE  LLIST  CLEAR  LLIST  CLS <>[M]+[M]+?@`pxIN |~xH[T] LET  LET  SAVE  SAVE  DRAW STR$ [C]~ COPY  COPY <F(JR<>@▝<aRND GO SUB Cg TO x STEP SIN "2 FORMAT  TO  INVERSE !i TO IN ▜ TO >NOT <= TO  FOR  STEP [K] STEP  FOR  OR  GO SUB [Q] GO SUB [Q]++▜ INVERSE V INVERSE #INT INT  LINE  INPUT  TO 7 THEN  THEN : THEN  PLOT  INKEY$SCREEN$ w} PLOT   LPRINT < LINE  RETURN EXP  TO #~[R]ATTR w+ MOVE STR$ =CHR$ STR$  TO <>!e TO > OUT  FLASH  RETURN  NEW CHR$  STEP  [I]CHR$  STEP H~ RETURN  RETURN  ERASE . STEP  RETURN  PAPER . STEP w> CLS [I]:%MIN %▙D STEP #~ RETURN 4 FORMAT w<> STEP z STEP E[L]:e TO  INPUT  NEW ( THEN  THEN   RUN  NEXT  STEP  STEP )@▗ NEW  INPUT <> GO SUB K0 MOVE ▘ FOR IN ! THEN USR  DEF FN [E][P]▖ STEP <>z NEW USR { AND  _?[P] NEW  SAVE ▘W<>>*e TO "<><> STEP  LET ▜ STEP  DEF FN  STEP d DEF FN CODE  CLOSE #[A] STEP ! DEF FN IN CODE  STEP ▖<>!W CAT " DATA " DATA q▙CODE 2D PRINT <2X PRINT  STEP C PRINT  STEP W PRINT y▘ CAT NOT 04!+ ERASE @&▘ INK  CAT 6 STEP D OR  0▝X0▝Dp0IN R.[A]>!@@u GO SUB VAL :DBw GO SUB VAL u▗0[D]▚! GO TO  DEF FN  STEP  BRIGHT  CAT ▝ CLS U▙ATN ( PRINT  RETURN YCHR$  OR <>NOT [D] CONTINUE !EXP  DEF FN IN v$ CLOSE # INVERSE ! PAPER  DEF FN  LPRINT p0=FN  RETURN   LLIST NOT  OR <> RETURN 18 GO TO  RETURN G0 CONTINUE  RETURN A8 VERIFY  VERIFY 0G▘! NEW INKEY$ CLEAR "Va<>~# DRAW VAL IN  STEP  OPEN # PLOT  PRESS KEY (1-F) TO SELECT SAMPLE COPY OR ENTER F[C]MENU COPY ARE EXP YOU SU[F]/N ? COPY  CHOOSE DELAY - pY Y▘ COPY  P!▗ORNAH▝T`$0 ▚ MERGE  RESTORE !IN V▗ASN ▗ LLIST  MOVE v<>[F]▛SOUND TRACK▚128]ENVELOPE/NOIt▜EDITOR.INOT 0 OPEN #[E]IN : Q,CS,O,P-MOVE  0-P[K]▛ M-SET MASK/▛PACE-CLEAR 0 BORDER -EXIT<= ▗ COPY ! FORMAT IN %iCHR$  LIST  CAT #[S▘#NOT [U]▝ z7 COPY ▞<>ABS ▚[Q]N:▜ANGE COPY @ BORDER 1COS  DIM ▛-UP,DOWN NEXT ▟LEFT,RIGHT`~`}▘p}}▘qRIN 1. COPY FROM PAT▞N (01-31)▝▝+p ▘  [K]▚FIRSDPOSK▚(00[D]-632▗LAp 2[J]IN xp0P▝0} ▚NEL (A[P]▝C~▝~p0 ©▘pAT @[F] FLASH  LEN pHP0@©HOW▘NY CLS IN ▝MJ▘NE[F] DIM ▝6 DIM ▗UPASN ▝ ^ (U,DP8▘3NEW LENGTHDP GO SUB ▘3ZCMWIN ▖RETURN. COPY r FORMAT r FORMAT tr AND R|r IF r IF c>r POKE rVAL$ ▚ COPY WORK COPY ▝▖VAL$  ERASE  STEP J OPEN # STEP  LIST  ERASE ▘ INVERSE #▖STR$ SGN  FOR <> INVERSE ^{STR$  NEW ATN  AND @ RETURN O LINE  BRIGHT  ERASE ▞ THEN [>- LINE  MOVE  ERASE >#{ NEW  AND 1NOT  OPEN # AND *▗NOT  CONTINUE  ERASE y1uPEEK &O NEW  LIST F▞ AND 0 RETURN : PAPER  OPEN # AND  ▝ NEW 06▝:o&USR )▖ACS  SAVE  FOR :v MERGE USR ▜O:u MERGE G FOR  GO SUB [Q] STEP IN 0 PAUSE ([I]<2v MERGE <> THEN ! THEN ! THEN ! GO SUB Cu MERGE <>>" RETURN * CLOSE #RND TO CODE  INVERSE ▖:f TO  RETURN *2^ OPEN #) FOR ▟ CIRCLE NOT z STEP ? OR >@Gx[B][R]][H] GO SUB VAL STR$  BORDER <> STEP i OPEN #> LLIST A!I> BRIGHT ▘, STOP p$p$[C] READ  FOR  FOR =CHR$ [U] OPEN # STEP [L] STEP $ FOR ▘ FOR $ PRINT ▛[R] OPEN #NOT ] OPEN #G OR x AND 80CODE w,w,,]TwPa0qIN  STEP + CLOSE #▜STR$  MERGE <>,,p0▙▜<>: LIST [=▞<2 LIST [v CLEAR =▗# OR ▗6 VERIFY  SCREEN$  CLOSE #n&▘▝IN #NOT 6 VERIFY ▝~<wPEEK  NEXT > LOAD &4POINT -5[S]0Y▛)CODE <> VERIFY !2 LOAD [o▖BIN [E] CLOSE #NOT RND TO 1: LOAD [! PLOT  ▚!LEN 4IN 5vv▚:LEN [D]n COPY :t MERGE ▝ NEW 2t MERGE ▛ATN  !r MERGE  STEP [R] DEF FN [R]▘INT ▝ RESTORE PEEK ▝▖<=▘ LLIST  RESTORE @ABS ▝+▘SQR [U]IN  FLASH vv<>Q@@~▝ NEW ? RETURN !8CODE w[S]`m/▝▝ ▗w▛▜P`@ CLS ▖2w MERGE >2xVAL  MERGE +VAL ▚ OPEN # ERASE ▘w MERGE ▛!▝ FORMAT  ERASE [T]▝[A][S]2▛ OR  STEP >= MERGE  CLEAR IN <> STEP [G] OPEN #LN ▝<0D▘ STEP z▝= TO  PRINT  VERIFY @▘ STEP ] OPEN # LET n▝<> REM  RESTORE ▙ INVERSE !h_G@ INVERSE  DRAW IN  INVERSE 2USR ▜ THEN  INVERSE <>▞▘ CLEAR  MERGE  ▞ STEP S VERIFY [E]▞NOT [G] ERASE  FOR LN  PAPER ` VERIFY ^▘!c OR P▝p▘ OPEN # FOR ▙v[T] VERIFY }`i PRINT }TAN BIN a VERIFY  LET  AND 0[K]▘El▜ VERIFY ehA ERASE ▘ VERIFY > STEP <>vP STEP IN C▛ PRINT ! LIST  LINE BIN D LINE  LET BIN  CONTINUE  VERIFY $"(^[A] RETURN A0 VERIFY  RETURN ) BRIGHT ACS  CLOSE #-{▖L TO ) BEEP  LET  PRINT  RETURN ▜0I TO ! GO SUB IN  STEP a BEEP ATTR ,[U],[O]<SCREEN$ x RETURN  x AND EXP ( SAVE POINT >=VAL$ ▜[ BEEP >2L TO ▖MNOT  INK  STEP  PAPER  MERGE *IN [M]>= MERGE ": INPUT [_ THEN ' THEN ' THEN ' AND _: GO SUB [_<>_x STEP 1 BEEP ▖ STEP E BEEP 6 COPY NOT B CAT <> RETURN (d RETURN  LINE  LET  BEEP O,POINT [C]ATN  LINE - CIRCLE y RETURN 0 CIRCLE  RETURN G FORMAT  RETURN :8 RETURN A CIRCLE  READ  STEP  BEEP NOT e CIRCLE  PRINT  STEP  CIRCLE 0]▖_ INVERSE IN ] RETURN 8 INVERSE # THEN G  MOVE ▗ NEW _ LET 0{▜ THEN 'COS  INVERSE w<> LIST _ LET  EXP ▟= RETURN  CODE  RETURN  COPY  SCREEN$ = NEW ▟[P]=2 INPUT [>2 GO SUB [NOT S BEEP 0(▟< RETURN  > RETURN   OPEN # LOAD ▗)▝CODE 0([H]SGN IN "0[S][G]!RND CIRCLE  STEP | CIRCLE <(CODE INT ((>INT (#!LN  >= INVERSE  THEN  OVER S▘( STEP ▘ GO SUB [▘ BEEP O▘"I LPRINT N[▚ STEP IN ( VERIFY NOT  LINE 3▝O,▖##EXP   RUN +~WSTR$ ▝_<=▘COS _eIN O▝O INVERSE  INVERSE s<>ZXCVBNMR COPY IN SDGHJ COPY  SAVE  CIRCLE (▖ LIST ` LPRINT X[Q] LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗IN X'[T] PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQ>,EXP IN  DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]IN ▙~wpkd^YTOKGB?;852/,*INT '%#!IN  LLIST ! RANDOMIZE [6# CLS ! RETURN [CODE ACS >CHR$ [N] INK  VERIFY USR +[D]yIN  GO SUB ATTR = PAUSE [P] INK <> INVERSE Ny6INT IN ▝GCODE ▗O<>&[N]~o INVERSE ~  THEN  NEXT  INVERSE  THEN ©J THEN wCHR$  FLASH  INK B NEW g0 INVERSE V}<> CLS ▝3IN C[E]ATN >= RETURN >=_! RESTORE  INK Fy NEW  THEN Y LINE  PAPER  BORDER ▟▜▝ AND <>$$7USR USR ▙hPI INPUT FN  PLOT  SCREEN$ B NEW CHR$ ▜SQR  THEN _IN !LEN <>: PAPER O: PAPER  STEP  VERIFY  STEP  GO SUB  INK  INK  PAPER  INK   PAPER ! PAPER  STEP a BRIGHT  LINE q PAPER  STEP AT  INK xATN  LINE k PAPER  STEP [S] DEF FN "& PAPER !# PAPER  STEP  AND  PAPER $▘ INVERSE  -▞▝-▗! PAPER ![J][O]@-▝[I] -▗( PAPER !$p-Z▝Z▗" PAPER !PI>=0X▝NOT  XIN * PAPER !% PAPER yATN >== LINE  OUT  PAPER  RETURN  CIRCLE  RETURN NOT  OUT  PAPER  INVERSE ~ NEW w OUT IN y2 RETURN [ INVERSE n&" DRAW [<>: PAPER < LINE Z FLASH  VERIFY 2 PAPER CHR$  FLASH *▘& PAPER %ATN = IF  FLASH 2  PAPER #~<▘:  MERGE TAB ▟, PAPER : PAPER ▚ STEP ▛ INVERSE  GO SUB S LET [▝_POINT P INVERSE 5[O] STEP SGN  INK  RESTORE * LET [ STEP kABS  LET [ LLIST yATN CHR$ N FLASH |2 RUN [yVAL 2 SAVE [ DIM ▜D BRIGHT 2 RANDOMIZE [:m▝ THEN m▜ PAPER CHR$ ▝ FLASH *(Pm▗~ FLASH 2! m▗ PAPER :!B GO SUB  @m▘ NEXT ^▗ m▝!/(0m▝ NEXT IN SQR  m▜: SAVE [ NEW  GO SUB LEN VAL q-q▗ IF [: OVER ▘@ BRIGHT  OVER ▜ PAPER CHR$  PAUSE  FLASH **P OVER ▗ LOAD  FLASH 2"  OVER ▗ PAPER :"COS ▝%  OVER ▝@ OVER ▘ PRINT U▛ OVER ▝" OVER ▝*0 OVER ▝ PRINT IN ▘, BRIGHT Pq▝ FLASH  OUT ▝ 0uD NEW ▞ CLS [<>M FOR  THEN ~y>=VAL ▜ THEN  LLIST ~=y>=CODE p[T]y<>ATN >= INK > COPY CODE <> THEN B LINE Y BRIGHT w> INK > IN <> THEN b LINE w BRIGHT NOT } BRIGHT  THEN [S]>▖| NEW g<> STEP  INK  INVERSE [L] LET  BRIGHT CODE 2 PAPER ! COPY  COPY " PAPER " PAPER !"# PAPER "$ PAPER <>>▛▘ BRIGHT 2 PAPER :(IN COS  VERIFY 6 RUN ;2 PAPER F COPY ▘CODE vCOS ▛v: LET  BRIGHT =CHR$  THEN  BRIGHT  STEP . OVER [H]'▘ PAPER H▝ LINE [A] CONTINUE  VERIFY NOT  THEN  BRIGHT >=CHR$  CLS  BRIGHT  STEP ? PAPER >▗t▟o BEEP IN NOT b INVERSE ▜l!NOT  CIRCLE ^#V<>!!Z>6y!y+y5i[Q]▚,,=CHR$  INVERSE G▘>`[E]2f INVERSE CHR$ ~ INVERSE  ! POKE  INVERSE CODE IN ACS  LINE { INVERSE 5# RUN C▚: RANDOMIZE [ STEP SGN  INVERSE  OUT ▘: IF  ▝ CLS [U]! OVER  OR ~+ RESTORE ATN  LINE ATN  INVERSE ! COPY ZX GO SUB R Gw GO SUB R CLS  LLIST STR$ IN  READ <>LN  THEN L▖ POKE  INVERSE GACS w# CIRCLE ▗ACS w++▗<>! NEXT  INVERSE ▗!pLN ▜ LET [ PAUSE [ BEEP [Q]▖▘0STR$ ▘>[B]▛ATN CHR$  OVER w#0USR w<>[D]▚>=USR ▜[R] RETURN USR  AND G INK   FORMAT O OVER ATN  LINE _ OVER ! OVER  RETURN [A]) OVER  INPUT ▘ OVER ATN CHR$ m OVER  OVER  IF ▗USR SIN ▘3 OVER PISTR$ v▜<>ON OFF1 BORDER ▘ REM  OVER q OPEN # OPEN #▘aATN CHR$ SIN  OVER  NEXT  GO SUB ▚Q CLOSE # STEP RND TO  CLS IN SIN  OVER  BORDER ▜ STEP  OUT !# OUT  RESTORE )!▝ LLIST  STEP 4 OUT NOT [Q] OVER *w MERGE "y MERGE [R]▗2{ MERGE CODE [O]rDBD{yH▘#~|VAL  TO B5▝USR  `▝ DATA ▗w MERGE EXP  LINE [N]▗Q CLOSE #NOT [B]Ii▝USR p▚PEEK  PAPER K OUT > COPY @T<><>▘LN  RESTORE LN [F](COS  OPEN #▜ STEP ` VERIFY ASN  LLIST  STEP [P] MERGE STR$ MIN >▖ SAVE ▘( IF ?[F]▞! THEN NOT D LINE >[M]VAL$ ▝/!FN a"[ STEP  STEP  DATA CODE 2^a:▝/ATN  !▝Q"[ STEP $ LOAD :^aATN ([J]>@2(COS = STEP ` RESTORE CHR$  IF >=[I]j_[B]NOT  IF >= STEP : LINE   CLS j▝ COPY Y▟N8 SAVE  RETURN Y LLIST CHR$ ><> DIM  STEP  LIST  OUT f[H]POINT a6~Q GO SUB VAL  STEP  SAVE !CODE 6#RND,pSPSA<> RESTORE T▝r▞NOT ><>>>ASN p ▝ LET ABS !▘0VAL ▟▘>#▝p#▞!" CAT  STEP g DEF FN  LLIST + NOT t LPRINT [S]p`g▝@gNOT d FOR H3 VERIFY  INVERSE  RESTORE  LLIST ▝LN ▘? ▘u▜▟XX OUT 6B GO SUB VAL 6EdIN D COPY t! ERASE  LOAD  RESTORE  STEP  PAPER  OVER !! OR ▞▙ INK  STEP b INVERSE vSTR$  PAUSE m^![N]▝ LLIST A[N]▞*y MERGE "w MERGE :{ MERGE  CLEAR mCODE  j▘ COPY `j▚ COPY 6G GO SUB VAL  RETURN ▘!> L@ BORDER ▝  BORDER 2'COS [B]RND)SCREEN$ [G]▚▞ MOVE  INVERSE #▛[K]▚# RESTORE  STEP PI READ } LPRINT ▛IN 0aINKEY$▞A8 POKE  RETURN D0 LIST  VERIFY A ▘ AND Az MOVE  OR p6 6STR$  GO SUB pI LLIST  RETURN %0[P]. POKE a LOAD ▜U( RETURN D  LIST ▘ GO SUB D[G]I[C©▖ATN  LINE ▚ LLIST  RETURN   ERASE ▚▙▝IN _RSQR (▚ STEP  NEXT  OUT  INVERSE F▚[A]<G OR  INVERSE N©▝STR$  FLASH :▘ LLIST ATN ( INVERSE =  CLS  OR *[O]▚(9 RETURN  LIST (5O INVERSE  RESTORE  aVAL$ [O]▚ INVERSE  LLIST  RETURN `0Oy RETURN 8 VERIFY  RUN x▜▜_▜_y[D]▗INKEY$ STOP ~VAL  OUT ▘ LPRINT AT IN ATN L[D]08@HP`hpx [G]22,7,<>▖ CIRCLE  FORMAT  INVERSE !SIN  STOP qaAK▝vA<▝ NEXT <▝ LOAD !<!: INVERSE #STR$  FLASH EXP ?[D]~ATN (LEN  RETURN  0TAB # PRINT ~ RETURN @0[T] NEW [A]++^+~SQR (0[G]O{[B]##▚▝ SAVE q▘ INVERSE ^ DRAW ▝[D]  DRAW FN IN ~ INVERSE  RESTORE ▚:LN  STOP  STEP [O] READ ▘ INVERSE  LLIST a▘:ATN 0▜ MOVE  FOR STR$  OR  MERGE [[J] READ 2[H] READ  STEP  READ ![ MOVE STR$ > FOR `0▛IN   RANDOMIZE  OR s▘ OR ▝<><>CODE og_W#VAL$ ▝v▝0 STEP :0 LOAD g VERIFY 0_zATN { >▚▜o|▖z RETURN IN >= CLOSE # RESTORE  PRINT .[C]g LET SGN  PAPER  GO SUB  READ  RETURN  PAPER  GO TO  READ ▗NOT  GO SUB  READ [E] LLIST <> COPY ▘ NEXT  MOVE  COPY c▗ RETURN 8 LOAD  INPUT ▘ FOR <3LEN ▗W CAT W CAT  LOAD L STEP  SAVE FN IN  FORMAT ▞CODE  GO SUB o+[G] SAVE  LLIST $  LOAD > INPUT 20 DATA >=*u MERGE  RESTORE  READ * DATA BIN  * DATA ~#" DATA uuIN ▘<> LLIST s▘U ERASE ▖" DATA > STEP s FOR C FOR ▘/a[H]▘ STEP s▝▘ DATA !p FORMAT [R][G] NEW CODE 2D PRINT <2X PRINT  STEP C PRINT  STEP W PRINT  STEP ▞ STEP bSTR$  ▝XX[C]Dpk:[G]CODE  STEP ! DEF FN !hPIAIN STR$  RUN gPI(COS USR E GO SUB LN [O]▘FN a  MERGE  STEP A▜" RESTORE  MOVE bkV INVERSE #ATN CHR$  RESTORE  OR @STR$  LOAD  FOR '▚ AND  OPEN #J▜6# RESTORE H[B]FiP^## RESTORE !! RESTORE 6 LLIST  NEXT <>>=IN qSP[G]▘im▛▘`©[T] RESTORE  RESTORE kbEXP ▝ OR $INT ▗STR$  LLIST  BORDER N▘hPI  AND `▛[E] DIM PI GO SUB b RESTORE  CIRCLE L%<> CONTINUE CODE 2 FLASH  RESTORE !. REM ?▖ LINE   REM # RESTORE &oUSR )▚{IN  RETURN d FOR  LPRINT @~ACS SIN FN  FOR 6 COPY ! FLASH  RESTORE 4 LLIST  FORMAT !NOT @ AND  NEW  STEP  NEW   OR  FOR  GO SUB VAL  FOR  BORDER [A][Q] LET | VERIFY g<><> MERGE  OR  PRINT  INVERSE  RESTORE  CLEAR  RESTORE >SGN . REM ▞ LOAD [U]8 PRINT  STEP #STR$ O CLEAR ▝![E]CODE x▝STR$ =[H] CLEAR ![L] THEN  PRINT  STEP BIN 3 CLEAR  CLEAR 3 CLEAR 3STR$ PY INVERSE ; CLEAR  CLEAR ; INVERSE ▗ INVERSE ; LLIST  FOR CODE _ CIRCLE  CLEAR STR$ !LEN IN JrUSR  CLEAR ▝CODE STR$  CLEAR ▝g▟l[P] THEN 6CODE  FLASH  RETURN  IF >=![I] NEW I]0ACS ▝ CLEAR ?▗ LET STR$  MOVE  LLIST INKEY$ DIM IN r@' INPUT pIN  LPRINT  PAPER '3~p0 NEW USR ▙▗ STOP [A] ▘4TAN 0▘BIN @▚ LPRINT `▗< ▝ 2 LIST <USR @IN  DATA p▞ LPRINT USR ▗ LPRINT 0@~K▘ POKE 0KpxK▝p}p[G] [G]8 SAVE }POINT 8x0CODE x[G]▝8CODE ▜▝0▝< LLIST IN  LLIST USR ▚0< PLOT  ▜<[N]p@VAL <'@ LIST [O]8~ CIRCLE ?>'~[O]CHR$  ▚SAVINGIN  FORMAT  ▝ COPY "[G]PRESS ANY KEY TO START@4▗. COPY >AT ▜NOT ' LOAD <><>COS  FOR EXP  THEN ? PRINT  LET [Q]! PAUSE O"IN  MERGE  CONTINUE  LET  PAPER  DIM { SAVE  GO SUB VAL  NEXT  GO SUB V CLS !RND CONTINUE 0u#T[H]NOT 0u> CLEAR © GO SUB y!USR USR ] POKE  GO SUB VAL > ▜NOT USR ] ERASE  SAVE  MERGE =▘IN  GO SUB VAL ;! TO /[B] MOVE zAT  {TAB ( GO SUB VAL  THEN [C] INVERSE *[ GO SUB [[> COPY  STEP h DIM  CIRCLE !LEN  SAVE [D] BRIGHT 3 CONTINUE  GO SUB VAL  STEP [E]IN  DIM ![E] SAVE  RESTORE 7 CONTINUE # LINE ▝ CONTINUE w1▖/ATN ( RANDOMIZE  LLIST  TO /0▝$>2 THEN /N[S]" CIRCLE /*[" VERIFY /* MERGE  CONTINUE " PAPER / INVERSE ! THEN /CODE IN  STEP  DIM  INVERSE * CIRCLE / GO SUB [ VERIFY /l[O] DIM <>7 NEXT > OPEN # RETURN  STEP b PRINT CODE  OPEN # RETURN >© FLASH  RETURN  CLS 0 LET <> LLIST [G]▘ AND ` CIRCLE  LOAD ▖[F] SAVE 6 IN  ▞▗>_2[E]s▝ GO SUB [O]" NEXT  DIM !©TAN p[I]▛ RANDOMIZE  PRINT !d2 STEP ASN 0[R] RESTORE  MOVE [I]: GO SUB VAL  LET  RETURN (& RETURN ((2 PLOT   DIM  RETURN ©0>= RETURN  IN 8BIN > RETURN (PEEK  NEW 6<Q▝#O6_TAB *▞ <>: GO SUB  DIM ATN ([R]=i ▝+0▝[A]y5▝<▗LOADMIN PLEd ▗ORN.0▘SO"▝EP    0 ▛CLEAR SMP.d0 @@A0 [J]PATTERNdIN DELAY CHANGE (  )@@▜POSITIO!▜VICEdMOv▗TEXTP,@AS LENGTH -0> IN  PQSCREEN$ ▚dTRANS`I▞ RETURN  COPY BIN ▖ FLASH  LOAD ATN (<(1<2i CONTINUE !- FOR " SAVE  LET =▘D FOR  RETURN PEEK ▘0 RANDOMIZE IN D[C]( CLS  PAPER SORRY,YOU HN'T DISK DRIVE COPY t▝[L] 7▗2j/kt▜Y( RETURN N  LIST qIN NOT BIN  LPRINT kw▗IN E6 PLOT   IF >=10ALLp OPEN #[K]? COPY  STEP  GO TO !▗H" FLASH  RESTORE ><>2  REM CODE 2 BORDER  RESTORE ! FLASH  FOR  STEP IN  RESTORE  CLS ▗ BRIGHT  RESTORE >!▘IN > COPY ▙<>TAPE MODULE BH[H]RAZY MAN COPY  STEP  DIM  PAUSE  MERGE >2!:>=[T]O STEP  STEP 0 CLS : =IN NOT  INPUT  RUN  NEXT  STEP [C];; LLIST 7 RESTORE  INK  MOVE  INK LSQR  INK x RETURN   RETURN  CLEAR  OGy INK w#xLEN   OVER  CLS <> CLS IN j DRAW © LPRINT  DRAW ?? RETURN  COPY  CLS  NEXT  LIST  DRAW ▖ CAT NOT  LIST  CLS 2? COPY [G] SAVE ? CAT  COPY  NEXT  COPY  LPRINT  CLS ? COPY  LLIST  LIST  SAVE  DRAW / COPY  SAVE  CLS r[N] DRAW  COPY  SAVE ?▘ COPY  ▘p?0? LPRINT ?USR © RETURN 0?▝ SAVE ▞STR$  ?Z▝Q$▞ COPY q▗ COPY  CAT  COPY  LIST VAL p~▜ COPY  LIST ?USR  COPY  COPY ▙~▝ DRAW ~ COPY  [Q]▞©USR ?USR  CLS rp??ABS p??▘© LPRINT c[F]`?© LPRINT  DRAW  DRAW  CLEAR ? CAT USR ? RETURN USR [H] LOAD ▖USR  LIST  CLS f0o▗ LIST  CLS 5=▚> CLS z COPY ?NOT  LOAD ][E]POINT  LPRINT  CLS s COPY p:p:P:▘ COPY  LIST :▝ RETURN IN  READ  :W▚ SAVE  CLS s©qct LLIST  COPY  SAVE  COPY  RETURN  READ ▝ LPRINT q_▘ LIST  RANDOMIZE ▝ DRAW _ NEXT ▜ COPY  NEXT  LOAD  DRAW 1D▜ LIST  DRAW  CLS s? READ q[S]IN COS ▝ READ ▝ SAVE "▝p?p?▗ COPY ?1CHR$ [Q] LIST  DRAW  CLS  CLS 2o LOAD <= CAT <= TO ` CLS  POKE lln`VAL NOT o`▛ TO USR cm LPRINT ▝*▗ GO TO o8 LPRINT  READ ▜ LPRINT H▝LJ CLS 8TINKEY$ CLS USR ▗▖ CLEAR  COPY  LIST  CLS [Q]▝$▝ LPRINT  CLS [Q] 44IN '0@<pJ T` CLEAR j CLEAR  CLEAR  ▜2 CLEAR  CLEAR  2 CLEAR ▟N CLEAR G CLEAR BIN  CLEAR D! CLEAR  @ COPY  COPY NOT h CONTINUE NOT 3IN  LOAD NOT  LIST  NEXT v CLS C▛ NEXT  CLEAR !:/ STEP VAL$  LIST ! DRAW  LIST H▙:]2 PLOT  /2 RANDOMIZE / AND <2]s STOP 3 STOP [D] RETURN N( INPUT !ACS  SAVE "6/ STEP  LIST $IN 5?/▝w7'▘ MOVE  LOAD ' STEP  STEP  LIST !a[S]▗ INVERSE / LIST CODE 2]#▖ LIST y NEW ! LET  LOAD ▘b LET  MOVE ▜ CLS IN <v CLEAR <>6 STEP ;F STEP 66 STEP $VAL$ ▝ LLIST PJ6<=PG▘ CLS <>ATN  PRINT ▘!▗R/^}[B] RETURN A( RETURN B( RETURN CIN ({2] AND A2VAL  LET ▘!@▟▘ GO SUB ^0 LLIST <> NEXT  BRIGHT ▝PI@O RANDOMIZE /^▜ DEF FN [M]! LLIST  LIST  NEW IN  POKE ~2 RESTORE /<> INVERSE !Q LIST SQR [D]:/ INVERSE  RESTORE  GO SUB V GO SUB s=/x STEP = NEXT  INVERSE  LLIST  GO SUB ^▙a LIST NOT [A] LIST ! DATA  LIST " AND  FOR  STEP COS  FOR  PAUSE !<= LET C▗8IN ! VERIFY ▝<>`[N] DIM 2 LOAD  DIM  TO ▘>0<>SsoTR-DOSu▜ ED '92ACS ( CIRCLE %ATTR CATALOGUE Y/NIN  ?h CIRCLE h LOAD ▝N OPEN #▚UCH FIPx IF `"u LET ▚ ERRORy9> 8▞HAS BEEN J▜9>▖ SELECIN 61  A, B, Cb▘ D#▝0[▘A: ]▗NOT v▜ENT COPY E :'p hY COPY  COPY  ERASE SNGGATTR  LLIST ▜CODE <>>$ LOAD  OVER ▖/STR$ !v PRINT tNOT ▗<>>! ▗!/STR$  ▘ OR  RESTORE [S]▗ OPEN #▞NOT  CAT NOT NOT D OR NOT S<=©"eSTR$  GO SUB SgSTR$  LLIST ^#V# RESTORE  FOR ▘ MERGE *▞[gSTR$ <>[Q]U STEP [G]CHR$ %[H]/ NEW   SAVE  RETURN  OUT  GO SUB x THEN OIN  TO  FLASH STR$  THEN G TO  GO SUB STR$  RETURN IN G>= RETURN  CLS ▘ TO  PRINT ▝ RETURN  CHR$  RETURN ©▞ PRINT  TO CHR$  LET  THEN W TO ▝ LOAD  %▘▞NOT USR v▛ASN  PRINT IN  STEP ▗CHR$ { NEW __▚ STEP SCREEN$ CHR$  LET v<>[B]{ GO TO  PRINT  STEP =NOT < NEW  STEP HNOT  STEP NOT  =NOT = REM [K]CODE  READ  STEP ▘NOT ~ INPUT w0 THEN IN ©(STR$  RUN  COPY z▜ RANDOMIZE  COPY vvNOT SCREEN$ CHR$  !▝@!▝w!▟ INVERSE  2▝CHR$ USTR$  NEXT >n2sCHR$ CODE [R]IN rCHR$ NOT jCHR$  6 COPY # CLS <>n VERIFY PG STEP SCREEN$ "} AND  o<>vv>  b`▘>* rATN  BRIGHT  FORMAT >=<> MERGE  RESTORE !-▝▞ LLIST  MOVE v<> OR  MERGE ▙6 COPY  STEP zNOT STR$  POKE  MOVE STR$ <>*Xau▛  RESTORE  OR :▝CHR$ G▚0 THEN ~(< CHR$ STR$ v`▞!▝CHR$ 4 LLIST #<><>IN  DRAW F>oSGN [M]x NEW (GO OR  STEP IN CHR$ STR$  RANDOMIZE yG>[A]ATN >= BRIGHT  GO SUB >=G OR  STEP Tm▝ RANDOMIZE *▝{ LIST ~ NEW 5▖ NEW O~ NEW USR LEN w[F]IN ▚{2cNOT  [J]▖>ATN   THEN  RETURN  [Q]▝ GO SUB PATTR FN ▗:sCHR$ <!VAL [C]<>C MERGE " LET [ OR  INVERSE *VaYrLa STEP SGN IN NOT zDavQ▝ CONTINUE [" IF [ [H] MOVE <>2 RANDOMIZE [> PLOT   THEN 9LEN  THEN 8VAL 2 SAVE [|2 RUN [<>*U>(>[U] MOVE [D]_<>:i CONTINUE ATN IN  CLEAR )[F]>= LLIST NOT  INPUT  PAUSE :e TO  THEN ? THEN ? THEN ? RETURN  OUT  CONTINUE 63|LEN 8D RETURN T  GO TO {NOT * LOAD INT VEXP -▛INT ▘D-, IF IN ▗, T-▝Ge▝S SAVE CHIBLOCKWaINPUT7VNAMNOT <> w▗FOUNw[D]▝ , STOP w[B]m7TAN 'EXP  STEP <>R CAT IN 6h[H]>[INT >=~ RETURN  RETURN ( GO SUB [Q] NEXT #F THEN x( THEN LN xPI LIST [E]>0> RETURN #~ DRAW # CLOSE # NEXT 1w▘ CONTINUE }!3 RANDOMIZE m▝dIN  RESTORE [J]+-e3 RESTORE Y GO SUB Rv>W MOVE CODE ▚$$G READ ▗$~$~>(>&ZRND[R]RNDZIN ((*D:▝-▝▝ <fB@Q▝|R0▝@+▝~X=▘G C[E]<FJR<(▙▗<B`*IN B(|>▘` <@| ▝~P@▘B<0B>H THEN >= TO [A]SIN ▝DB0 INPUT ▘"O▘8DAT STR$  LIST <JV^@0@▘~BINT |B|B| ▖▝@ xDBDxPEEK @|@CHR$ ▖▝LDATTR BP8 LET 8USR  LN ▗DHpHySTR$ @ IF BfZ `BbRJF  CONTINUE ▝B  LPRINT ▗|BLIN PBRJPB▗<@<▖▝ RETURN ![K]h007▝$@?▝ZAT ▘D(0(▝>W VERIFY ▝▝▘ ABS [R]▝p STOP ▝pIUSR ▝▝9<> CAT ▗$p  LIST ▗8HH▖▗@pHH '▗0@@0 CONTINUE ▝8 ▘Hp▗ P@`▖▘8 RETURN IN 1!v▘0(!a (00(BY▝7▝hUSR T?`0P▝H`▝p!Q$J [A]▘p▞CODE ▗8 LPRINT ▘7 PEEK ▖ 8DTT` LIST [K] PPI[A]▗x VAL ▗xCHR$  CAT [N] FORMAT ▝ 5b FORMAT >▙ INK 7 VERIFY  VERIFY SGN  INK J OPEN #o BRIGHT  INVERSE S VERIFY lFN uVAL$ uLN  FORMAT [O] RETURN U[Q][K][L]$[K]R OPEN # OPEN #$ THEN <>! VERIFY PI/[R]▝<>POINT ▖ Y"YY#Y▖ MERGE <@ COPY  GO TO VAL _VAL _[K] COPY  RETURN  COPY ;]&]&];]J]:]<]C]I▛K]K]K]-[C]/PO[J]ACS GSGN X COPY ![!@ LPRINT P!!STR$ ▝0 u▗ RETURN ( REM ▗@▚▘0A[D]COS _ COPY  COPY  POKE FN K POKE BIN S▝<>RSTR$  COPY ▖5616/=]24500USR  ▖CTAN _ ▝3▞ AND 1  REM [A] PAPER [B]][U]a,SCREEN$  THEN ▙a7 RETURN  LLIST pp▝BIN  p▚P RANDOMIZE USR  apTAN _(▘[Q]▘ CLEAR ©RNDABS 1@▝3 CLS <> STEP BIN [H] NEXT  GO SUB s FOR i![G]i▟[d MERGE  GO SUB VAL !NOT [H] COPY  COPY  LINE -<> GO SUB LN !6 ERASE USR ~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT R[G]>= &! PLOT  # THEN ~(! PLOT  "USR n&USR )INT 0 LET ▛USR  GO SUB S0USR  GO SUB VAL >2USR  INVERSE !▛USR ! STEP JUSR !Q RETURN  STEP qUSR <> INVERSE  THEN  INVERSE # THEN -0p@▞ PAPER <> MERGE  GO SUB [Q] GO SUB [Q]P▛ MOVE  BORDER <> DRAW  AND  DRAW  AND  DRAW  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  PAUSE IN  STEP ▙[A] NEXT  GO SUB s FOR i![G]i@d MERGE  GO SUB VAL !▟[A] COPY  COPY [E]&<> GO SUB LN !l INK 8<=~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]DgxTTAN `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1[@ LLIST ; LET w IF 1 CLS NOT 8<=g SCREEN$ [G]NOT >=ATN  LINE >=>== LINE N STEP = LINE * OVER = LINE  MERGE NOT  RANDOMIZE  INVERSE ▝`SCREEN$ VAL$  FORMAT !@ZAZ6IN PEEK IN <>> STEP Z<= STEP [G]<=:k<=ATN CHR$ >= STEP  FLASH <= STEP ▙{NOT  MERGE  STEP IN  COPY ! STEP I INVERSE  STEP + CAT #X!v BEEP  RESTORE > STEP  LLIST ~ RETURN  COPY IN >= BEEP # SAVE TAPE MODULE BY CRA▟ZY MAN COPY <>0EINKEY$>=X'! LET <=SQR IN SELECT DEVICE:T-KD-DISK COPY !@@STR$ X_!<>= STEP AT  TAN [P]<( RANDOMIZE NOT y>=IN SORRY,YOU HAVEN'XA[Q] DRIVEPRESS ANY KEY. COPY !▘MNOT  RETURN  INVERSE  "TAN  COPY  AND [D]j/!@@ COPY u GO SUB VAL  COPY 6 OVER IN 2▟/CODE  OPEN # RETURN NOT  OR  INVERSE (<(> COPY 2[F]<=<2k<=▘>= PAUSE :[F]T▗ MERGE   MERGE NOT S LINE Qo!MA▝NOT M▜IN  STEP ▚<>!VAL$ <> THEN [M] INVERSE ![N]<>>7 STEP N<>0 FOR *AT <> PAUSE |INT CHR$  INPUT <>}SQR ▖![O]<>( LINE ABS ! LINE  0▖FN a GO SUB [FN IN <>> COPY  1▜INT >2 CAT CODE  MERGE [E]!y>= RESTORE  CLS NOT M NEW  NEXT  GO SUB V CLS !`<>0u NEXT [D]NOT 0u> CLEAR © GO SUB y!USR USR ] POKE  DEF FN ▝ IN POINT NOT USR ] STEP BIN  NEW NOT N<> GO SUB VAL  LET <> NEXT > COPY  STEP [C]<>> CLEAR  COPY  GO SUB y CLEAR IN  GO SUB Q<> POKE ▝B"▘ NEXT [B]SEARCHIIN NG FOR SO▚BLOCK COPY @ UND0<> ▝ COPY  ERASE ▘ STOP <>0 ERASE ▝ DEF FN ▖![Q]▘ GO SUB VAL ▘NOT  RUN IN  BEEP  e▗LOADcpF@EPeZP%▚ERROR!0e▖: CAT ATN  LINE  RESTORE  INVERSE =arK"K▗!ASN  THEN K▟>2[R] BRIGHT >2 BORDER IN  BRIGHT  STEP [E] BRIGHT  RETURN ▝! RUN [O]0INKEY$>2[N]<>S8▚!_ RETURN (%▝Px2 FORMAT  LINE ,<=XACS 0!! DEF FN c▚NOT  THEN ! TO ATN ▖ GO SUB K+ NEW  STEP [T] FLASH #CHR$ ▛ RESTORE *+ NEW  RESTORE STR$  LLIST p▗ NEW <p/▘▚ BRIGHT IN ![P]FN B NEXT SUSR ?▙"SCREEN$ <>*▚ BRIGHT "FN <>!Ce▜ AND X!inC%B▘SCREEN$  TO 2B▝[A] {z~"AT <>b{ STEP EXP IN  TO q▝VAL rbc▘?s<#<yU▞ENTER FI RANDOMIZE ▚NAME :▝PAR[N]SCIN ODE ADDR :NNDELAY SET▛,DLENGTH)pBpB▚INIT2fb▘ b D@IN ▝ pX▖▝ &pY [L]TAN ▜ STEP <= FORMAT  STEP ]<=<>i▜THEN tCHR$ ▝ FLASH SAVb|) CAT  ▞ COPY !USR  TO  RESTORE IN NOT  AND  PRINT ▞>© FLASH  RETURN 8 LET  CLS [E]▖ LET <> FLASH <(=USR ▚0 LLIST NOT  OR  CAT  ▝EXP 0▞TAN  CAT > LOAD  STEP  RETURN  TO > RUN ▗ CLS  FLASH  RETURN <> 8▝ LLIST IN 0(▝ CIRCLE ▘ OR  CAT E▝D BRIGHT j CIRCLE  BRIGHT  CIRCLE 0 LLIST <><▘: STEP <▝ RETURN 0<[B]08 STEP  CIRCLE <> CLOSE #j CIRCLE <> LLIST  LLIST <>IN r CLS ▗ INVERSE =  LPRINT ▚!m STEP TAN _4▘TAN _▘>$ STEP USR T OUT  INVERSE EX*![T] STEP ^▝ CLS Rl▗2▝/!▞ OVER IN u@@[E]TO STOP MUSICA PAUSE ▜RETURN MENU. COPY  MERGE  STEP  AND  VERIFY >2! RESTORE ▞:IIN  MERGE  VERIFY AO STEP SQR 0 CLS : =>(>[U] MOVE [D]_NOT ▙(USR IN  ▖▙/p8p8 8<[L] COPY [R]iw44667799RND;[S]hs/[R]/r2[S]2[R]2[S]▟x+[S]r--[R]-[S]s*xFN &p*p*p**[T]i~>[U]> COPY [R]a$dV_Vb▘_V@IN 4p4@4/[M]!= IF  GO SUB S6/ SAVE ~ACS  GO SUB [R] REM  CAT USR [T] LLIST ^#V#F#~=2M CAT O> [B]2R CAT #~2K CAT IN # RESTORE  FOR  OR ]T6 BORDER ▛STR$  INPUT <> STEP  CAT  LIST ! THEN !t*▗XO BRIGHT ▝&2▝W' VERIFY ! FORMAT 7 CIRCLE [F]NOT ▛IN  CAT >O STEP  FORMAT  CAT v CLEAR  STEP  ERASE  TO 0q02 DIM ▟ NEW y2[F] CAT <>y= IF [K] CAT y)▖ MERGE y RETURN ( FORMAT ▝ LINE CHR$ ▜_!IN  NEW X]T6O OR }▘STR$ yp ▝WP▝<>D▖S&7▛ TRACKER&[ GO TO h▖VER0.IN 1y&wBIN $,▝E@▘"[C] ON/OFFk8h▖QUIT COPY 4?▗COMPSGN @J▝p7IN 7▝p7ECODE H▘!XXw/ STEP TAB  FORMAT .WX STEP  BORDER  FORMAT .A▖ I[A] ▚T[I]IN X&USR )INT  GO SUB K6/ OR ~ NEW ©R FOR q# FOR  NEXT # FOR  FOR STR$  READ <> GO SUB VNOT BIN  NEW  NEXT ![[ COPY p GO SUB VAL  STEP 4IN  OPEN #9<>▛6G GO SUB VAL 6?▜n MOVE o MOVE #INT [M]TAN  ERASE  STEP  ERASE  STEP ) ERASE "IN  ERASE  CLS <>!W MOVE V MOVE %[H] GO SUB VAL [N]NOT AT  OPEN #Ffv^NF! COPY [ INVERSE !u MOVE  STEP [C]0pPIm[D] RESTORE !TAN  ERASE  THEN F LINE INKEY$ MOVE  PRINT  INVERSE +}0!▗ppbIN 3p<pHpQZ▛<>> RETURN  GO SUB G! RETURN  RETURN USR ▘6^w[I]NOT !. ERASE 2^^"_^ GO SUB ^<>!BIN  OPEN #~<> PRINT  OR  MERGE  RESTORE  INK [P] INK  INVERSE  RESTORE  CLEAR  RESTORE >IN ATN  PRINT  TO COS  ERASE  LET  TO r OPEN #:▝/ATN  TO  LINE  NEW :? ERASE ATN  LINE ^ ERASE : RETURN  NEXT NOT [Q] ERASE *f PRINT PI RESTORE  GO SUB RV FOR TAB ]TH_bSIN ▗ GO SUB _Y[T]Z NEW ( LINE [Q] ERASE  GO SUB b RESTORE  CAT bk+' GO SUB VAL  CLEAR  LLIST  INVERSE  LLIST  INK  LLIST  MOVE STR$  LET 0 CLS  COPY <>>[U]IN [A]5CHR$  DIM  ERASE 6! FORMAT  OPEN #~ RETURN @ TO ) ERASE #w▜o& GO SUB [6/ DIM ▖n MOVE  GO SUB [Q] GO SUB [Q]P▖ STEP v MOVE NOT 4 OPEN # OR  MERGE pp"p,p6p@pJIN T▘ MOVE STR$ SGN ▗V MOVE #SGN @P OR  INVERSE F INVERSE # RESTORE  STEP  LOAD  ERASE  LLIST z NEW CHR$ ] OPEN #{ AND  _ PAPER ] OPEN #z VERIFY W BORDER  STR$  PAPER >!g OPEN #5USR 6LN NOT ^ MOVE !@P LPRINT W4▜!P LLIST $$|8▙[F] OPEN #} AND  o PAPER [F] OPEN #| VERIFY gJ▜ RETURN CHR$ POINT  OPEN #{ VERIFY L▗POINT  OPEN #z AND IN  CAT <>>©0 FOR ▜ CIRCLE !n OPEN #~=n▛CHR$  OPEN #>w<>THIS 3IN CPEEK :CSGN [K]AUT-*▝MABS [L]MAX. DATIN E: 13.11.1994 A.D. [I]▖NCEPTIONVAL$ ▝D#SIGN WAS TAKLEN ▞FROM S.T.CSTR$ IN ▝R4▝H2-WORK▗GOLD INK EAG[D]Fp/J▟▚CREDITP[K]O: BR0MBA,GEN,MONIIN KA,RAF &[R][P]BASTIAN CHELWICH. SPECIAL THANK?P TO ▘ -7▗ WRI`i* CLEAR IN [E]▖ A FUN !:[T]{▟@NOT  VERIFY NOT f MERGE NOT  GO SUB  MERGE  NEXT v CLS  CLOSE # STEP / BEEP j[T]▘[G] BEEP  INPUT ▙:]2 PLOT  /2 RANDOMIZE / AND <2],[S][B]CODE 2/IN  COPY :/ RETURN Y( RETURN N>= LOAD P STEP 9 BEEP  NEXT  STEP n BEEP ( CLS ▘  CLS /<=▝<= CLS <> STEP  MERGE  INVERSE ~ LINE 2[L] LINE  POKE [K] LINE >S2[Q] LINE [N]><>2AT  LINE ! INVERSE /"[I] LINE ! RESTORE /"[S] LINE  STEP ^0&▝&▝▚&▘[O]<>IN [N]<>&7▜ CLEAR >= STEP  READ >=> INVERSE ▞▚<>CODE 2]y NEW !SIN  BEEP  ▘<@▘NOT = CONTINUE 0▘ OVER {[K]▝ INVERSE p[C]▗ LINE 2e THEN 0[F]▝C0[F]▘r[J]"_ THEN 0[I]▚!R CIRCLE "R THEN p[O] 2p[R]▝!2 [R]EXP [U]2h1▗▚ BRIGHT 2u BEEP G:▝L▘ NEW /< RETURN CHR$ ~<=CODE [B]SQR <="FN <=2IN  CIRCLE ▟lQ[B][F] RETURN A( RETURN B( RETURN C( RETURN D  READ  GO SUB [C]C{2] AND A2; CIRCLE NOT % OVER q BORDER Q! ERASE  BORDER  GO SUB ^ CLS IN !0▝ LLIST p▝ CLS ~ RANDOMIZE P$▝,@l LINE + BEEP ! OVER ▖NOT TAB  VERIFY  INVERSE ! PLOT   VERIFY  NEXT  INVERSE  RESTORE  GO SUB V GO SUB s=/x STEP = INVERSE  LLIST J INVERSE  BEEP NOT = BEEP | RETURN OIN I▖<>CODE  FLASH  RETURN / NEW <>l▝▝/&s131'94>=▝ LLIST /FCATALOGUE Y/N ? DATA ▗= CIRCLE ▝NSCREEN$ UCH<][P]▝/▝0>/▗=[P]p:,3▝H MOVE ▘BE▝GABS - INK +|▗&IN NOT PEEK ▚: A,B, STEP R DLwZ U▘A:  REM NOT+>=[C][CHR$  LOAD ▜▝E  { FOR |<=▚Y COPY e BEEP  STEP g RUN ▙ BEEP IN *e BEEP  RUN PI GO SUB R>=▛"e BEEP  STOP !?LN  GO SUB XO!* INK  STEP ▛ CAT CODE t!= INK  STEP NOT  PAPER NOT b FLASH >^ DATA < COPY  COPY [D][A] NOT ▗ COPY PFRECOS ^ INK /▘[H]'@ LET D▛ COPY CSTOp▞EgIN Trr▝8M▗|NOT -[P]r 1 INVERSE PLEN ▞}SCREEN$ -SCREEN$ POINT ▝L READ ASN M DEF FN START[I]TAN  p STOP ▝:_ DEF FN RND▗ COPY  SAVE % CLEAR  INVERSE IN RRTAN "▝?0[K]▝▘/[H]▝} OR ▝:CHR$ ▘mSTR$ ▝~▘~A+nA▘: ,AIN  GO SUB !>F^,PROTBT NEW ▗FULL- AND 'DI +#@2▖  IHARDW8▚FAULTJIN 3 OVER ▘UPP<>SNG[B] RUN  STEP ASN  BEEP : RUN <>=NOT  PRINT  PAPER ~ BEEP #c▘ AND  VERIFY "I▝ +TAB ▞>.!VAL  PAPER z▜ FOR 6<>IN ! LIST  CIRCLE ;jNOT NOT  PAPER :▖(LN  STEP  BORDER  PAPER  STEP <> PAPER e▖M!!▝Q"N!|▚"P! STEP STR$ tX FLASH :! STEP ATN  LINE W FLASH  PRINT !SGN ▝? RESTORE ▜AXW! BEEP [L] LET !T FLASH  RESTORE !S PAPER ( +  RUN CODE ACS "INKEY$VAL  STEP IN  VERIFY ( CLS MIN TAN ▜> BEEP CODE  BEEP ><>!P<▟BYO STEP  ! INK VAL COS  BEEP  CAT  RESTORE  STEP +- STEP  READ -L/GNOT ▛O STEP } FLASH !_ i[E] BRIGHT AT POINT ;,x▗Lr<=XO!'XO▘>▟[R]SGN ▚ RETURN  1! NEW e▖#L[T]▗▗ RESTORE [P]PI▗MD LLIST 0[R]COS 0!! PAPER [G]▘!w[M]!a[I]▘!C▗ GO SUB K▚ BRIGHT D▘r FLASH q[N]J[B]> OVER ▙4![E]IN FN a STEP  =wNOT  FLASH  AND COS  RUN  RESTORE 61 DEF FN  MOVE TATTR SCREEN$  BRIGHT >2POINT  BRIGHT >_ STEP ( INVERSE  STEP 5 INVERSE  RETURN ([ RETURN (9 RETURN !8IN  LET  RETURN +( GO SUB  RETURN ?( DIM  RETURN ^( RESTORE  RETURN :( LLIST STR$ ▟ RETURN 0 INK O:SCREEN$  BRIGHT < RETURN (=y9▗!POINT  BRIGHT 4 B▘SGN =(ACS W▝ 0IN ▝5 [▜> [O]a RETURN  ([H]<([E]>  OR  PRINT  GO SUB KFN  BRIGHT [K] LET  BEEP STR$ <> MERGE ▗ STEP IN v▛ MOVE <>! THEN  THEN ATTR IN  THEN  THEN  GO SUB CABS  INVERSE "IN  INVERSE  STEP  INVERSE  GO SUB KABS  INVERSE x STEP LEN " STEP [Q] INVERSE :PEEK  INVERSE  AND 2PEEK  INVERSE :USR  INVERSE =2USR  INVERSE CHR$ _▝<$▝ %▖[L] INVERSE :IN  INVERSE G6 COPY [I] FORMAT ▖ THEN  RETURN <>+ THEN  AND #<>+0_6 BORDER  STEP [I] PLOT  [Q]+▛$CHR$ [S] INVERSE <>If[F]! MOVE  INVERSE "[U]a![U]a"=/1[T]a5IN CODE 2▝FN ▜? ERASE  STEP  MOVE  STEP Y▙ CAT NOT ;<== LINE N OVER =(7= LINE 7# NEXT NOT |<>i▘? ERASE a▟[F] CAT  STEP p TO  STEP  COPY  OVER "▚ BRIGHT >_▘SQR 2!▘>=NOT  FLASH  INVERSE ^▘ PAUSE  LLIST ▘ INPUT WBIN BIN  NEW VAL$ -▘ PAPER G▘ MERGE  CLOSE # PAUSE ([K] STEP AT  FLASH ) ▟CHR$  RESTORE  INVERSE PIa RESTORE ,▖ FOR  LLIST  GO SUB LN !BIN  NEW  DIM ▗< GO SUB VAL m/!?▘XOr=▝▘!#D▗ INVERSE  RESTORE ![N] CLEAR IN B[H] 4▝?L▘Y4▝SQR 6/v[I][N]▛N([R] RETURN Y  GO SUB  GO SUB [+ NEW ▙▚8[D] STEP | READ BEXP "POINT a[[A] CAT NOT  STOP  INVERSE  STEP F LPRINT IN ! VERIFY ACS PEEK E#[K][A]: SAVE INT 2U LLIST ![T] LPRINT 6[U] LPRINT = PLOT  INKEY$: VERIFY LN G2 CAT  STEP  IF  LPRINT n&[T] LPRINT +6STR$  GO SUB !7CODE IN PI AND STR$ E LPRINT ▚P CLEAR !AT l<[L] OR  RESTORE CODE ACS y( MERGE  CLEAR q CLEAR # STEP [A] LLIST  MOVE  LLIST #4▛ CONTINUE {2 LLIST  LPRINT CODE a! NEW  LPRINT t AND [L]VAL$ @ RESTORE !CHR$  LPRINT ~ATN  LLIST ( FOR q4 FOR b OR LN PI GO SUB B▝n▚ BRIGHT kbFN a;IN IN [F]!PEEK G GO SUB [Q] RESTORE !PEEK E: CAT <▜O THEN  GO SUB VAL ` ▘ATTR a5 MOVE  LPRINT  LLIST @Y▝ MOVE 0Y▝ `X[M]▛ INVERSE kb RESTORE  INVERSE  LLIST IN " STOP  LPRINT @^▛TAB a: LLIST  LPRINT O▜G▜▝ YkbCODE d▝=R▖AT l STEP  BRIGHT  STOP : OUT I BEEP ▘w FOR FN ▖STR$ a CLEAR !:/<> CLEAR [J]!8CODE IN  OR O▚ INVERSE  INVERSE  RESTORE  THEN  NEXT N INVERSE F INVERSE  LLIST x NEW STR$ ▞ INVERSE ACS  CLEAR wx NEW ▜  CLEAR w CLEAR q[T]▙ CLEAR {< NEW _  OR IN ~!▝#[C]# CLEAR # CLEAR #STR$ TAB <>VAL$ LEN  DATA ,NO_▟LN [R]▗,CHR$ VAL  DATA ,o▗3 TO  ▝  [D] VERIFY  PAPER RNDIN ,RND LPRINT <>RND REM COS [E],53CHR$ -[K]▝S[,ASN ▘   VERIFY ACS <> INVERSE ~ STEP  LLIST Gy NEW O<>O NEW  LIST STR$ ▛<>IN  INVERSE ~VAL$ ATN G>= RETURN >=_! LLIST Fy NEW  THEN Y LINE ; LLIST ▜▜O▜▝G<>G INVERSE !FN ~@ INVERSE  DRAW <>n▘@NOT ▟ INVERSE ABS  RESTORE  LLIST  STEP u LLIST  FLASH [N] NEW  LIST ATN USR  RUN <>:V LLIST O:U LLIST [B]<> STEP ] LLIST !W LLIST yPEEK >=q AND [Q]▛ CLEAR #<> PRINT  STEP E LLIST  STEP TAB  LLIST  LET ▝[E]CODE 2V LLIST 2Y LLIST =2W LLIST 2X LLIST 2Z LLIST 2/ LLIST H▘G OR FN [E] NEW  LIST  LINE  STOP  STEP ~ LLIST  STEP  LLIST xATN  LINE  PAUSE  LLIST !X LLIST PEEK ▝▝pZ6 PLOT  ` c▛ STEP 2 STOP  STEP  LLIST zATN CHR$  STOP )▚ STOP  CLEAR p[S]▝STR$ [F]IN `POINT <=TAB  CLEAR 6 COPY SCREEN$ ATN CHR$ X[D]▝ CLEAR #NOT  STOP yATN >= RETURN CHR$ Q STOP :Y LLIST ATN USR '▘ CLEAR #[T]▝/ [D]Y LLIST <> RETURN CHR$ z[U] STOP  INVERSE ~!/ LLIST  NEW PEEK >=w©▝p  STOP ▝CODE  STR$ ▝Z)▜ CIRCLE O!Z[F]IN ,# *▘+qy PLOT  !P)ACS / LLIST <> RESTORE  GO SUB [R]CHR$ IN  STOP <CHR$ [U] STOP  RETURN ▜ PAPER PEEK  STOP  RETURN  PAPER [U] STOP CODE  LLIST <> MERGE  FOR ~#<  CLS ++COS ~## RETURN ▜8 RETURN 8 INPUT  MOVE M RESTORE STR$ <>>=▜G" DATA  LPRINT  OR ~#▘ INVERSE wFN [B] OR  CLEAR * STOP  LPRINT  MERGE  STEP 9 READ  MOVE   CLEAR IN [N][A] CLEAR ~ INVERSE w INVERSE # INVERSE #* DATA  LPRINT  MERGE  FOR  OR 3k▘}DSTR$  INVERSE # FOR  MOVE [A]P▖SQR STR$ ATTR <>?[G]<(' CLEAR # OR  CLEAR N CLEAR FxLEN  MOVE ( MERGE  GO SUB [ DATA  LPRINT  PRINT ▜ STEP [T] STOP  LINE r READ 2NOT ▗ OVER NOT 9[E] READ ▜ STEP STR$  STOP CODE <<> LLIST P'▘VAL  READ b BEEP ▛>= INVERSE n INVERSE f ▗=IN LEN ▘MD0▞ MERGE  FOR i`s#r MOVE [R][Q]NOT  READ DxASN zp#r'IN IN +t1INT 5v8▝;{>▘AOCODE S▛V[F]Y[P]^yb▞e[D]h[N]kABS ▘SIN $▟ CAT  OPEN # BEEP  FLASH  SAVE [Q] DRAW d[R][Q]DtCODE #ASN '{*.}y[R]5©INKEY$yH▞K▙NxQ▟U▗X9PEEK ATN o^4c SAVE f<i[I]lDp▙s v▘yL▝|▝©T[I]▚8▝▞IN /▝0▝[C]d▝[F]/[N][L] AND RND POKE [Q] OPEN #FN  FOR TAB  MOVE SIN  LET ATN NOT X INK v BRIGHT FN ▝ CONTINUE d IF rIN  CLEAR TAN ▙[I]VAL$ AT $4▗CODE 2[B]X GO TO mPI}▜▗▛▖$[J]▗[C]5[G]<[K]ATTR ▜[N]USR [T]FN PI[N]VAL$ INT LEN iTAN 2ATN [R]INT POINT PEEK qCHR$ ▙ OR  LPRINT ▛ TO  LOAD  FORMAT 8 CLOSE #[B]L8▝ PAPER BIN  OUT <▝ STOP $▝ DIM 8▞ GO TO [T] LOAD SCREEN$  NEXT ([L] RUN [I] IF l[F](<[L]USR FN  DIM IN [P]i[I]"2%RND(ATTR ,q/I_▚VAL$ 8/TAB ▘P^▜"+ NEW >2-w▝0IN .:0 GO SUB  VERIFY 0 AND 0 BEEP :- NEW ATN (G STEP ! NEW  CLS /▝4▘= SAVE 7▖<=)]T)) VERIFY R[A][H]"K INC.> INK ▞©OUSR [H]"> OVER IN (!. NEW ]T6 INVERSE FiP^## RESTORE !- NEW  LLIST  NEXT b▖@STR$  GO SUB VAL [P]▘im CLEAR ▝ INVERSE 3▘▚#ATN CHR$ IN SQR  NEW  RESTORE o▚6 OR ? $▗STR$  LLIST  DATA $hPI 6!(COS  SAVE INT ▘Q GO SUB LN <> OR @$[S]STR$  OVER ! FOR NOT  STEP  NEW NOT  CONTINUE  NEXT ~2< BORDER IN "© BORDER # STEP y BORDER <2> BORDER  GO SUB S4 BORDER  GO SUB S6 BORDER  MERGE  VAL 8 BORDER ! STEP ~ BORDER  FOR ": BORDER !E BORDER "? BORDER !F BORDER G BORDER ,p GO SUB VAL  LLIST !CODE IN  STEP s BORDER =2O BORDER 2Y BORDER 2c BORDER TAB = BORDER #"M BORDER "W BORDER "a BORDER  STEP  READ  REM  CLS <>4 INPUT L INPUT  FORMAT  INPUT  FOR  MOVE  LOAD " LIST  LOAD  COPY $E GO TO M INPUT  FORMAT IN ▗ GO SUB ?M INPUT  COPY  OUT X[A][O] INK PEEK >=NOT s BORDER ^#V# FOR  FOR  FOR <>_▜_3[I]~ THEN ©IN J THEN wCHR$ [P] BORDER B NEW g INVERSE ^▜▝ PRINT 6[J][P]W LET  NEW o INVERSE  THEN n>= THEN  STOP <>:d BORDER O!> BORDER PEEK  PAPER <> BORDER CODE O<2d BORDER i OPEN #[C] GO SUB [IN 4 BORDER N#~2 REM y*8 BORDER  FORMAT  GO SUB S?1▝A1[A]C BORDER <> INVERSE 5 LIST  INVERSE ~ COPY  INVERSE w<>:= PRINT ▖= BORDER CHR$ R DIM :< BORDER  NEXT [C] INVERSE ![H]H BORDER  STEP  CLEAR  BORDER  PAUSE 3 CONTINUE *? BORDER ~< TO SGN  BORDER  STEP / CONTINUE 8[A]!R F CONTINUE *K▝A.LN IN .▗R DIM *C &[S]C BORDER NOT R DIM ~ RETURN ` PAPER  CONTINUE  RETURN p PAPER [H] CONTINUE  RETURN  PAPER LN  CONTINUE  LINE CODE  CONTINUE  RETURN ▝ LINE [F] CONTINUE  RETURN ▘ LINE ASN  CONTINUE USR ▗ CLOSE # CONTINUE  VERIFY [R]|▜ INVERSE w COPY #NOT / CONTINUE [C][O]6 INVERSE 6 #<> VERIFY ` RESTORE c*: BORDER ABS ▜ INVERSE u INVERSE t LLIST %TAB IN ▘ COPY <>a VERIFY p RESTORE AT ▘*6@!▖ INVERSE t INVERSE 6 RETURN  %▛ VERIFY 2r BORDER #~#2p BORDER  RESTORE CODE p*0*▝ LLIST o~<>=== INVERSE w[S] PRINT  NEW ▝O▝" LET USR  INVERSE ^ INVERSE V!`▞▗= IF VAL  CONTINUE @#~<TIN <>yATN USR |2k8< INVERSE ~ RETURN ▗ LINE K DIM yNOT O DIM CODE v▘ THEN  NEW  VERIFY :[C] RANDOMIZE  CONTINUE y2 REM  INVERSE *K BORDER  STEP ▗ BORDER yVAL 2l!Ru[D]PEEK  LINE ~ DIM  STEP - DIM  STEP  PLOT   DIM "e BORDER !m BORDER w STEP 5 DIM !R▝ RANDOMIZE  [D] LINE COS  DIM 0:▝U::l BORDER LEN VAL <1!v5▗g BORDER !n@5t@5▝ GO TO IN _@5▞▘VAL LEN P9[M]n▗i BORDER !o nNOT  READ  REM } PRINT  MERGE  INVERSE n INVERSE fcw▗▚ AND ▜POINT # REM [I]▛ FOR  MOVE  LET  THEN b( THEN [S]<>IN kIN <> SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X  PLOT   LINE IN [S]CODE |X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN ▞[G]▙~w[M] OPEN #kd[P]YTASN KGBV▝; MOVE ▞59[T]/,* GO SUB ▝% PRINT ▝! CLEAR ▝u[B]YEXP !r BORDER CODE ACS >  VERIFY USR +[G]yIN  GO SUB ATTR = PAUSE  NEXT  REM <> RANDOMIZE .[B]z!Z!G@@ DEF FN @USR ACS 0pppp*p3p<pH Q[T]/[Q]N[Q]l[Q]▛[Q]POINT [Q]>=[Q] NEW [Q] RESTORE [Q][H] READ [Q]INT  STOP [Q] CIRCLE p8 8IN  <AT  ^2▟8SGN > FOR $*I0x6PI< VERIFY #""(4!.c PRINT [G]AT [Q][Q][Q]▗▝[I][Q][Q][Q][Q] MERGE /▘:$RND LIST   DRAW `▙o▖[Q][Q][Q]▚[J]▖c▗[Q]LEN  ▝ `p$▝< IF  DRAW [D]c CAT USR [Q]▙ABS ▝ MERGE ▖[Q]LEN ▘u LLIST ▝i!▝ 'P LIST ▝P[Q][Q][Q]E[J]809IN [P]!▘q SAVE rrrr2+]▚[I]▘[L]▝[L][I] RANDOMIZE  COPY  SAVE  RETURN  SAVE  CLEAR  RUN  RETURN [M] RUN  COPY ;▜ PRINT  COPY  PLOT   COPY  PLOT   RETURN  ERASE CODE  ▘ 1M[A] CLS [I] RETURN VAL  COPY  LPRINT  CLEAR  LPRINT   AND ▝!PI MERGE  CLS  BORDER ACS ! DRAW '` PLOT  D6[C]"0 COPY JATN ▝2▗[Q]g>▝jD▝J▘[Q]G▗ CODE [Q]pp0[A]▝Xppp ▝ OUT G▘IN Pp COPY  FLASH PINOT 9XAT  BORDER NOT $8XYoNOT STR$  CIRCLE NOT USR [B]NOT DIN 9 COPY [S]d<b<e$b<0▗[R]b<<@@ p!p)p)▘$[S]USR $[O] COPY [S]▝nu-/0/-($FN )[U](INKEY$&[S]js!INKEY$#!$!#[U]![S]0[D]! COPY INKEY$ip[S]INKEY$[S]INKEY$INKEY$pp[F]IN PEEK pPEEK pPEEK  OUT [T] COPY [U]j[S]nu9j-[U]-[S]n5j)[U])[S]n2j&[U]&[S]n4j([U]([S]npp[Q] COPY [U]i▘[S]$!▘[U]IN [S]-▘[U]▘pp`▞ COPY FN ns&(-)[U]STR$ &▝[S]STR$ (▘FN ( COPY ▝uA▛INKEY$uAT _▚FN u▞[U]m((--))2 [S]( COPY [S]ln▜[U]k▘[S]l7▜R▝l[B] VERIFY [S] FLASH (p([E]F[C] COPY [S]m▘[U][RND[S] COPY [U]h INPUT ▚!$▘$ LIST ▚(▘0 ` LOAD ▘[U]m09▘USR PEEK ?Ap-▝,A'#`<=▝ [G] COPY  LPRINT  COPY [R]5[S]7[R]7[S]2535[R]0[S]5[R]53▜32.[S]<:<"▜<[R]<:▘[D]#[C]02[R]02FN 0 COPY [S]f INK ATTR [A][S][S] LIST [R][S]▞[S]▚[R]&[S][Q][R][S]▙[R][S]▛ COPY [S]gs259[R]2[S]▖5952[S]047▟4740[S].25[R].[T]▝[R] LOAD [S][K]+.2[R]+[S]-[R]-[S]14[R]54@▝q`@▘hr0B▘gq`D40Fgq5..rSIN  DATA ▘[T].).5.:▘+$D-[R]$INKEY$-7I[S]  STOP P DATA ▘[S]  OVER ▜ LPRINT [R][S] CLEAR [E]ASN ▘r2COS SIN ▝[S]`75INKEY$LN ▝5[O][D]5▘0[U]2▝0▗2-[U]0!iSCREEN$ COS ▝[S]ATN aHpfCOS PEEK [R]▘p▚p▚▝}[R] LIST _0[M][K][A]p[A]p[A][A]42RND3▝- NEW ▗-)[S]+AFN +$[S]&F▜&$ COPY [R]d$apb'p POKE [D]ApMp3▘C▞[Q][R]SQR ▜0 CLS ▗[R] AND LN 1pBP▘[S]q▙"v}75727rABS rABS "ABS 0.0#0[R]0▗[R].0+2ABS ▘[S]5ICp©p©[E]p©2TAN [T]▝[R] p▚sCsCPppp$0.▙CC COPY U RESTORE U▝S OR   COPY U COPY UP0 NEW U COPY  SAVE  COPY  SAVE  COPY  SAVE  LOAD  SAVE n POKE STR$ ▚INT 66?6©6?<??sv7g(<?f? LLIST ▞,1▝STR$ ▜[M]A▝0 CLOSE #? BRIGHT ▝K GO TO ▝0-6?c▘USR +▘0▚>go{s>SCREEN$ INKEY$IX▚>c>`©<l©4©`~ ▗>`~cg@VAL >c> ▘?SGN [D] LINE  STEP @[B]g[Q]© ▝LN FN ▚>o©©`0@▜©cc~c`▝~▖▘``▚|fccf| ▝`[I] ▝`  ▝o[Q] 7USR USR  [Q]flxlfPCHR$ ` FORMAT ▘cw0(cs{og>=n0Pc{o@8>`>!▝ COPY CHR$ h00|RND6@?[Q]▘6LN NOT f< (▝©W@▝[I]▝2x LLIST IN USR ▝~ P= TO ▚ COPY 3|00<>f▖00>33H▝USR 0>=▝▗<f|(▘<[A] LPRINT ▝|USR fv▗8<2)ASN [R]0<88<L IN ▝STR$ ~STR$ f P▘ff0▝|!QP▝0xH▗<`<xpP706▝<|▝ RUN [P] <<P▚[A]▘~WUSR 8!NOT ▝t INPUT ▜B[J][R][R][J]B< COPY ^ COPY ^ COPY ^ RANDOMIZE ^2= POKE  SAVE <> COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY <>USR (6$3 POKE ,.▜>T>>▗cd▘▚?60▝4▝9▝8▝0A▝0H~<~H~R@/▝HF@kh▗``▘gk@[E]▗pAxc0f©[I]C▘~[A]E[A]▗©xH (▗>c? b GO SUB  xx▝©[Q]©0 CONTINUE ` NEXT  LPRINT IO@0@▘c© LPRINT ▗~c~c h▘c` ▝~USR cxNOT  [I] LN ▘`g [Q]7 8A (▘0▝f[P] FORMAT ▗cw©k@6▝ pP`▝~!▗ckg?@h▗>p> LIST X[I]STR$ c0p▘6Occk![Q]▝6 X▝(0@▝ MOVE P`!x LLIST ▝x CONTINUE ▝<0P% PAPER Q▗2x0X▝c@(▝~RNDhUSR f▘g}▝USR 3[A]~1kk> h INK 0STR$ k  LPRINT @▝nUSR {▝nP3! ▝hSTR$ T▖STR$ Dh▝8▝8 CIRCLE  INK x▝?▝`▝STR$   @8VAL ▘8j`[Q]▖~▘>k0x▝j[Q]T!VAL c{mm{ H▘wPCHR$ !▝!B LPRINT ▖<f FLASH [R][R] FLASH f< COPY  COPY  COPY  OUT IN  pPiBET BCEM ! dObPO pOvAlOBATx B dABHO ObEwAHHyj HAMi 128-Oj p▘AK<[N]<SOUND TRACKER>, FULL EDITIONU[M]CPAbOTAli EgO My - PEbqTA iz=▗ILIC(AT BRAINS> GROUP: GOLDEN EAGLE (GREATER PART OF▞CK-WORK Az▟CODING) & MADX (0+▗PLAY:(▖MUSIC WR[J]▛IN DECOMPIL@ 0+);  TAK-vE GO TO ▚ OaEHxMOg©▚INTMAS▛▜, KOTOP!PiC.▝l▖OLx$▖gPAfOH K@}▘u. OR  POINT TEpEPx KPATKiE iHCTPuKcii i zAMEaAHiq: 1.p[L]R iME[S]c[A]MEwEHHuk Opcik "`IN !▚SAVE",SIN ▜PEzulxT1▖ BypOlHEU0CODE TAN ▗uKAz1 LINE [E]fAjl dEKOMpiliPuETCq ▖▚piCyBA ▖HA diCK,(▜aEM, EC>=@E u%▜CuwECTB?0RC idEHTiaHyMSGN ▝HZ▝iINT ▗ChiPh▜(.S), TVH bud INVERSE ▗TEPTx▘2.COS XOd1EXP ▝A▙▛ KlABihE 'SG▘E'[R]▝3p) KAvd▟▜aACTi O@▘lq  CAT =-▖i "QUIT" FLASH  REM %▗xHOE▙▝B▗ bEz?▗ObyX[J]LN HijPI▗AK aAT "8!&lihvEl#%'H▗qTHO LLIST ▛BPEMqpPOBOvz▝B4▝h_#.▝Ef>= P.S NEXT ▘ MLVAL ▜pOzBOHiy{ IF ▗TElEK[D]AM: (0512) 21-96-57Fb INPUT ▚MAKCiMEXP P%▜4-82-09ksII▚CEPgEj~▜C H[A]▘Pp1[F]TAB ▝M LINE ▗hiX ▗KOBpSCREEN$ FN  SCREEN$ ▝DU▘IS[S]▟3:11:1994 A.Db LPRINT  STEP  ▝ COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  FLASH <> STEP 4▘ NEXT  GO SUB s FOR i![G]i▟[d MERGE  GO SUB VAL !3▘ COPY  COPY :<> GO SUB LN ! AND  BORDER USR ~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN  NEXT !@@ COPY u} GO SUB VAL  OPEN # RETURN <> STEP USR  STEP  CIRCLE  VERIFY  STEP *USR  STEP  RANDOMIZE  FORMAT >© FLASH  RETURN  THEN Gv  POKE ? NEXT  STEP PNOT ! IF  IF > RETURN w GO SUB VAL > IF  GO SUB FN G GO SUB ^! RETURN  RETURN PUSR 6NOT #s#r CLS <> NEXT  PRINT  RESTORE  MERGE  OR  INVERSE  RESTORE  CLEAR  RESTORE  STEP ` REM  STEP VNOT  CLEAR  LLIST  INVERSE  LLIST STR$  MOVE  LLIST  LET  GO SUB V CLS B▘[B] COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY R VERIFY [P]!FN aNOT YNOT NOT [E]BIN  NEXT ~2>=NOT "BIN # STEP BIN <2 LINE NOT  GO SUB SUSR NOT  GO SUB SCHR$ NOT  MERGE  IN BIN NOT ! STEP BIN  FOR " AND NOT ! MOVE NOT " THEN NOT ! ERASE NOT  OPEN #NOT ,p GO SUB VAL  LLIST !CODE  STEP  COPY NOT =2 FLASH NOT 2 RESTORE NOT 2 LOAD NOT >2<>NOT #" INK NOT " READ NOT " GO SUB NOT FN  STEP o<= CLS <>4 INPUT L INPUT  FORMAT  INPUT  FOR  THEN  LOAD   LIST c LIST  COPY $FN  GO TO M INPUT  GO SUB IN 2n GO SUB  INPUT =X CIRCLE 0 INK PEEK >=NOT  COPY NOT ^#V# FOR  FOR  FOR <>_▜_ INVERSE  INVERSE ~ THEN ©J THEN w[C]CHR$ +BIN B NEW g INVERSE ^ INVERSE ~ PRINT  NEW  LIST STR$ TAN W LET  NEW o INVERSE  THEN n>= THEN  STOP <>: LIST NOT O! LINE NOT PEEK  PAPER UBIN CODE O<2 LIST NOT i&) GO SUB [USR NOT N#~2[E] AND y*BIN NOT  FORMAT  GO SUB S THEN 1▝ STEP 1[A] CAT NOT <> INVERSE 5 LIST  INVERSE ~ COPY  INVERSE w<>:<> PRINT ▖<>NOT CHR$  OVER  OR :>=NOT  NEXT [B] INVERSE ! CLOSE #NOT  STEP ▞BIN  PAUSE IN BIN * THEN NOT ~< TO H STEP  CONTINUE BIN 1 INVERSE ! OVER   ERASE BIN *K▝ STEP .▝ CONTINUE  .▗ OVER  OR * CAT  &POINT  CAT NOT NOT  OVER  OR ~ RETURN ` PAPER  OR  RETURN p PAPER # OR  RETURN  PAPER D OR  LINE ; OR  RETURN ▝ LINE ! OR  RETURN ▘ LINE A OR  RETURN  PAPER ` OR  VERIFY [R]|[N] INVERSE w COPY #NOT  CONTINUE BIN  INVERSE w INVERSE 6 INVERSE 6 #<> VERIFY ` RESTORE c* AND NOT ABS ▜ INVERSE u INVERSE t LLIST %▝#▖ COPY <>CODE  VERIFY p RESTORE AT ▘*CHR$ @!▖ INVERSE t INVERSE 6 RETURN  %▛ VERIFY 2 RETURN NOT #~#2 DRAW NOT  RESTORE CODE p*0*▝ LLIST o~<>=== INVERSE w PRINT _[I]O< NEW  INVERSE w LET USR  INVERSE ^ INVERSE V!`~= IF < OR @#~<)▜<>yATN USR |2 RUN 8< INVERSE ~ RETURN ATN >= RETURN  LINE  BEEP  OR yNOT  FLASH  OR CODE v THEN  NEW <>!:[C] OR y2 AND  INVERSE * BEEP NOT  STEP BIN yVAL 2 SAVE !Ru[D] LINE  AND  STEP EXP  OR  STEP ▘ AND " LET NOT ! RANDOMIZE NOT w STEP STR$  OR !R▘ OR  ▘? AND 0:▝ LLIST :: SAVE NOT LEN VAL <1!v5▗ NEXT NOT ! IF @5t@5▝x@5▝ FOR @5▚ THEN  THEN VAL LEN P9[M]n▗ PRINT NOT ! CLS  nNOT o<=} PRINT  MERGE  INVERSE n INVERSE fw▛▚ AND ▜_!CODE  AND [I]IN  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 IN PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P]IN [G]▙~wpkd^YTOKGB?;852/,*'%#![N]! RETURN NOT CODE ACS >  VERIFY USR +yIN  GO SUB ATTR = PAUSE ©<=<> COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  STOP [J]!<= MOVE !~ATN (5# SAVE CODE  PRINT ▜O< STEP LEN  MOVE _y THEN { NEW ▛▜ LINE  MOVE  LET  PRINT  AND ▛w RESTORE  INVERSE  LLIST O THEN 9y INVERSE ACS $LEN ▝ COPY  ;▝▗ RETURN  INVERSE w RETURN   ▗ INVERSE w'[J] CLEAR  INVERSE w CLEAR  LET <[R]!#H RESTORE  INVERSE ! BORDER  MOVE  MERGE HLN SQR 0 THEN  THEN  THEN  INVERSE +  FOR  MOVE  RESTORE q$ DRAW  LLIST #  INK  LLIST $$| NEW  } AND  o8| VERIFY g ABS <> OR  CLEAR 4 GO SUB xSTR$ z/_ RETURN  STEP  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY /G[F] NEXT  STEP R;;STR$ ![H] FOR !fs#r!{0▝▞0@ MERGE  INK >ATN H LLIST  INK ~ THEN © : NEW O~USR ABS  NEW  AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW  LPRINT TAN oa~ STEP [E]t LLIST # OVER  LLIST STR$  NEW ©(# THEN w G▜# RANDOMIZE VAL$  NEW ?F#IN  CLS #[Q] INK !X' INK  CLS <> INK w($  SAVE   COPY  AND 0 LPRINT =# INK <>[B]U"UjU;U_k>|IN ,xxPp0USR p▜Ppxx/|~ LINE ©STR$ sUSR qCHR$ p▗qsw©4▝j<▝@▟ REM UIN  LPRINT ;/©©w5▚??USR IN USR  LPRINT  LIST  DRAW  RETURN  TO  COPY ▜USR  LIST  COPY USQR 8(@ RETURN  LPRINT  FORMAT x OVER  RUN  INVERSE © COPY  RUN  COPY © RUN 3▗?F▚USR  LPRINT  SAVE  DRAW  RETURN 0G▜ RETURN  DRAW  SAVE  LIST IN X@▜ CLS  MERGE [P]USR [P][O][P]0)▜ DRAW  SAVE  SAVE  LIST  LIST p  LINE >©[D]PIN T COPY m BEEP © CLS IN  CLS  COPY LEN ▖ DRAW  LPRINT ▝?IN ?XSGN  BRIGHT ▝ LPRINT  DRAW XUSR ▟ COPY  LPRINT | LOAD SQR  COPY { COPY  OUT  RETURN  COPY IN  LET ▗USR  LIST HASN 9▝ RETURN USR USR h@.▗ COPY IN  RETURN   CLS  LPRINT  DRAW  RETURN ©?ABS ▜<=▖▜?xUSR @▗ COPY  RESTORE  COPY STR$  OVER  INK Sx@▝ OVER zIN ▘ COPY  LIST xINT 9 LET NOT ,IN  LOAD  SAVE  DRAW l DRAW SGN STR$  DRAW USR USR  MOVE ▗▖▝▜[M]yPI▘CHR$ ▜pUSR  SAVE  ERASE ▚ POKE | CIRCLE p@y@[E]$SCREEN$ SCREEN$ w INVERSE IN ATN  COPY  CLEAR ??<81'[C]!SCREEN$ U@▗w COPY  COPY NOT ABS ▝ LIST ▝ ERASE ▗8`yUSR ▛ISCREEN$ UCODE { OUT © OVER ▟ BORDER ▚CHR$ ▘USR IN USR ▘ CIRCLE ▘r▞=o CLEAR  COPY  COPY  OUT ▞ LIST  LPRINT NOT ▜0USR  0pxUW; LPRINT  SAVE b? INPUT  SAVE  LPRINT IN  LOAD IN  COPY  COPY  CLEAR  INVERSE ▘y▘ LET  LPRINT STR$ @ AND ▘ LPRINT  LPRINT BIN USR ▞STR$ STR$ <= BRIGHT  LIST xc RESTORE ▜USR USR ▜▝▚BIN ▜STR$ USR 8&▝yUSR ▖SQR UIN  COPY  GO SUB  COPY ACS  COPY }▝▝ COPY  POKE ▘{▗ LPRINT  `p@▗n CLS  OVER ATN IN © COPY  INPUT  CLEAR  RANDOMIZE $5USR  DEF FN  LIST p00Ih RETURN  PAPER IN  CLEAR SQR  RUN  LOAD  OUT _IN ~ DRAW  COPY N▝ MERGE v RANDOMIZE >==NIN ,T▛© COPY  COPY  COPY  BORDER  CAT [P]^U8@j COPY x@ LOAD U NEXT  PLOT  ▗LEN  DRAW  POKE  DATA  COPY ▝T▝STR$ ▝ THEN  DRAW  OPEN #M▚SCREEN$ U COPY ©% LIST ▗SQR KCHR$ STR$ ▘COS [B]P AND ]@ABS ▜z CAT [P]0©@CODE XINT SCREEN$ Lse▞h@▖@ COPY  COPY  NEXT  TO @@CHR$ ▝[A]}>=▝p@▝[P][K] SAVE  LET 0USR  CLOSE # INVERSE %▛ RANDOMIZE IN USR x@▚ COPY  COPY  DATA >=[A]#▜0USR 91[D]yUSR ( RETURN  COPY Aw▝USR USR  LPRINT 9 LINE  y@ O?A@4>=@B(yIN @[P]▜ CLEAR  IF  RANDOMIZE  PRINT CODE j@STR$ ??85>>=6=4aUSR  DRAW  IF  LET  FOR  MERGE CODE [P]7PEEK ©IN & COPY *USR ▗ LIST  LIST  SAVE  SAVE ?D▗[I]STR$ 7@IN [B]T T CONTINUE TLN  CLOSE #SGN TSGN | POKE  BRIGHT | DRAW  POKE  DRAW ▗ DRAW  BRIGHT  DRAW  GO TO ▜▘|< OR :▗ TO L TO USR  DRAW TLN 8▘ T[B]*U*U O+N.[R]M-M.N/O/8 ▗+O @&U+▜©©|[B] BORDER 6▘▞| NEW  VERIFY [C] VERIFY  DATA x▝LEN ▝ DEF FN ▗ TO p▝ COPY &USCREEN$ Q LOAD ▝SCREEN$ AT  DRAW  COPY @▙W NEW [S] NEW  STOP fbfb NEW  STOP  NEW  STOP a[M][S] NEW ATTR @▘Tm@▝C▘ COPY 6A BEEP A[D]▝FN ~+▚ COPY  COPY  LPRINT x@ CLOSE #[C]USR ▝D ▞ RETURN  DRAW  PAUSE  PRINT x[B]HUSR  LPRINT D+G/_[O]^xUSR  CLOSE #'TAB [S]▚TFN H[T]▗ CLEAR [K]Cy CLOSE #USR [A]P▘W'V.NVAL$ J'#▚[B][S]y@ MOVE qINKEY$USR [A] LET  SAVE 9[E][M]:; POKE  BORDER SQR u]y MOVE @)USR Us▝ SAVE STR$  CONTINUE [U])USR ▝s▘ LIST oOiO(hoO LPRINT ▝2@'SIN  FLASH STR$  PLOT  [A] PAUSE  ERASE  VERIFY  PAUSE r PAUSE SIN  PAUSE V▝ ERASE ▝6▚R PAUSE  PLOT  `@USR ▘ PLOT   LINE STR$ zo▙@▝E"USR ▝3[U]Q▘q▝XTRND RETURN  RANDOMIZE ({ ERASE 2 RANDOMIZE ? NEXT ▘©AT [S]@▚//x▚ RETURN  SAVE [M]3 CAT STR$ {IN [C]▚ READ XPIv) MERGE j RUN 0TAB [N]▝j INPUT 0@[Q] RUN h▗COS  DATA ▗ FORMAT POINT `"@/ INVERSE SQR  DIM  RETURN  CLEAR  CLEAR  RESTORE ▗[N]0EXP LEN ▟9LEN SCREEN$ @[P] CODE +CODE /CODE / CLEAR IN +CODE  @@USR ▖ LPRINT  PRINT k INVERSE  CONTINUE [P]FN USR [Q]FN ▘SCREEN$ X COPY ' BORDER ' BORDER ' BORDER ~~[E]▝SCREEN$ ▛IN P"▗FN Z COPY 4▟  DRAW  RETURN  DATA ▞ RUN [E] RUN ▗[H] POKE [H][E] @▗ DATA  DRAW  DATA  DRAW ▜ DATA  DRAW  LPRINT  LOAD  LPRINT  LOAD  LPRINT ▘T@▞f RANDOMIZE  COPY ©▗ INVERSE IN ▞POINT TAB ATTR POINT LN [U][U]LN   DRAW  COPY  DRAW  COPY  DRAW  CLEAR  DRAW  CLEAR  DRAW  COPY  OUT  OUT  @▘[Q]▞ CLS 7USR CFN ![S]▞t'$$KzKJ USR IN STR$ [P] CLS  CLS <=[P](USR ▚  RANDOMIZE  NEXT ▘C1ABS RNDSGN RND ERASE L ERASE R!▛[D] NEXT IN IN  NEXT [D] NEXT [D]@▖ CLS RNDwATN P BORDER  DIM  INPUT ▞ INPUT BIN $ DATA  DRAW  IF  CONTINUE  IF  SAVE zxzxz SAVE  IF  SAVE  IF /▞ CONTINUE  IF ^NEXP IN [A]@▖BIN ▜ POKE CBCzUSR P[H]U[H]W[H]V[G]T[E]T[F]U[F]▘[G]VU[H]PUSR h@[U]▞▙ ERASE R CLOSE #HUSR [F] DRAW  LLIST NOT IN ;[J]SQR  THEN u~ PLOT  ~u THEN SQR [J];NOT  LLIST  DRAW )▝Q& LOAD  RUN  RUN USR  CLS ▝STR$  RESTORE ▖{JKz▙▙ RETURN ▝ CLEAR  CLEAR ▙▙▖TAB DUSR INT  BRIGHT ▞{qy@[G] CLEAR ?G READ  THEN  DIM [J]q PRINT } PRINT q[J] DIM  THEN  READ G? CLEAR  COPY :@BXUSR [B]FN TDFN SGN FN ▖TT CLS IN 0▖▖FN TFN T▖FN |SGN  BRIGHT  GO TO  POKE  SAVE STR$ ©p~aCHR$ ©xg08▘~yD▝ RETURN IN LSTR$  COPY ▝u▘ RESTORE wYNOT  COPY  READ ▘ BORDER ▟▘ CLEAR >= COPY ▗ RETURN  BORDER [P];▛ LPRINT  STOP %* DATA  LINE  MOVE SCREEN$ ▗"D LPRINT ▜ RESTORE * RESTORE  REM  RESTORE  REM IN ▗* RESTORE USR  (V▗ DRAW  READ [P]©0c[K]FN PIVRNDV▟K[P]?IN wwgGW%RRNDSPIWPIW▝INKEY$▖OztaJCODE ▗ COPY IN  DRAW  NEXT  CAT TAB 0[T][D]ZEXP z LET  REM  MOVE [S]e REM  RESTORE USR AT l GO SUB  CONTINUE POINT b RESTORE  STOP ~▙ DATA  LINE [Q] REM USR [S]h SAVE  SAVE  IF  RANDOMIZE  STOP [F] POKE IN  COPY (<P@[P]SGN ,[M]5hY:xIN zaT[R]SCREEN$ PRNDSCODE OCODE ^[N][[H]K[G]L[A]&SIN ▗CODE  RETURN  RANDOMIZE  BORDER )POINT  DRAW  RANDOMIZE  NEXT  BORDER  LOAD VAL$  GO SUB  REM  RESTORE  READ  PAUSE  RANDOMIZE  DRAW  RETURN PICODE O| DRAW  INVERSE LN p PAUSE  RESTORE IN  FOR <= OUT ABS  IF  POKE  CONTINUE STR$ CHR$ *.▗TATTR G+kINKEY$ LET  CAT > CLEAR  COPY  OUT  COPY © COPY  LOAD  COPY IN © COPY  RETURN  CLEAR :POINT ▘RND'W'WWQSCREEN$ [F]SCREEN$ [F]IN /(@FN A▛(▛ DRAW  CLEAR  CLEAR  DRAW  RETURN  SAVE ▜VABS _LEN [J] CLEAR  COPY  PLOT   COPY  CLS  COPY CODE  OUT PEEK } IF N▜INKEY$EN[O] CLEAR  NEXT  CONTINUE  FORMAT E REM  vFN FN Q ERASE [B]ACS STR$ 7o OUT IN o OVER ABS z5 LLIST  SAVE  RUN  COPY IN  GO SUB ▝ CLS ▝▗_ COPY o OUT @▗ PRINT >=8v<▝lP7 INPUT  OUT  COPY  CLEAR ASIN  COPY 3▖> SAVE  BEEP CODE © DRAW  PAUSE USR  LOAD ▚ NEXT  RANDOMIZE  RETURN  COPY  BEEP CODE & RESTORE FN  OR  INPUT ▝0ACS ▘Q[S] RETURN TAB  FLASH ATN ©A[A] COPY IN  OVER  COPY { RUN  FOR  REM  LIST  COPY © TO w▞ NEXT /USR  CLEAR  COPY  DRAW  PRINT  LINE 1INKEY$ VERIFY  BRIGHT <)vPOINT  CLS  RUN )▜ SAVE  READ <> OUT  CAT [T] SAVE E[D] LOAD  OUT © COPY  OVER  BORDER  BORDER ▝© CLS IN U COPY FN E*( LIST SCREEN$ Tx▖INKEY$CODE  COPY ©INT } FOR  OUT IN  COPY > COPY [L] COPY  RANDOMIZE <=IN  REM  CLEAR  CLS ATN ©_ LPRINT  DRAW o COPY f© BORDER  DRAW  LPRINT W COPY 10T[S]TAN ▚ACS ▘ATTR ~▞ CAT > CLEAR  LOAD  OUT QIN  OVER  COPY  RUN  FLASH ATN  LOAD >▟ READ g BORDER ▚; RUN  GO SUB  FLASH  PAUSE TAN T[S]D(QSCREEN$ RNDSINKEY$UCODE FTAB K STOP ▚K BORDER [S]a FORMAT  PAUSE  SAVE  REM X▖ LIST r LIST [T]"NOT POINT INKEY$ MOVE [L]▚ TO [J] REM  POKE  RANDOMIZE  RETURN IN USGN w COPY  OVER ABS [S]E eJ MERGE SCREEN$ [F]*`LEN *T(Q0/IN oPIkkRNDTAN [Q]$"EFN ^CODE GASN z PAPER VAL 1 GO SUB  OR LEN  LINE `; CLS IN  COPY  OUT IN A LLIST IN UNUATTR W;USR [M]USR ,▛RND[TAB ^7 OUT  LOAD  RUN  RUN  NEXT {uyUz4[K]4FN  ▚ FLASH ACS ?_CODE W LIST ▘SCREEN$ SIN ▝ATTR a▝RNDINKEY$ SAVE  LIST USR VAL ▟TAN TNOT  DATA upSCREEN$ EXP  CIRCLE  TO  CLOSE #>=RNDH[U]>=[R]H[H]* RUN  CLS  RANDOMIZE s NEXT  BORDER :▗ DRAW Wv▗ATTR CODE _ CLOSE # MERGE  LIST USR ASN ▝©cIN *E GO TO [R]Z ▝[Q]H(@▝ SAVE  RETURN  CLEAR  IF  PRINT  REM  MERGE SCREEN$ U READ [N]} RETURN $pw SAVE  LPRINT 0@P READ ▜[Q]`IN : GO SUB ▞ D[S](E* #[K]INT ©[P] LLIST  RETURN  TO ▖ DRAW  CLS  SAVE USR ▗▖@▝<=▗(i DEF FN ▝DIN  AND ▗E*[Q] TO  NEW  RETURN  CLEAR  SAVE  LOAD [P] LPRINT =l@ IF  LIST ▘Q0▘U" LINE B[A]<> LPRINT  CAT [P]/VAL IN [U]" CLOSE # FORMAT SCREEN$ PCHR$ ▜VAL$ LN s[M]KVAL fQSCREEN$  THEN ▘*D[C][Q]EZDLEN  POKE : %_% COPY ATN  LPRINT IN  LIST } BORDER  CONTINUE  T[S]SCREEN$ E( CLEAR  INK FN SCREEN$ SCREEN$ D`▚S▟TAB v VERIFY {ATTR Zo COPY w RETURN COS ▖SCREEN$  RETURN  GO SUB >LN `USR 0qIN D@[Q]Q▘Q T>= TO  CAT [A]Q"SCREEN$ P[S]@U__IN  OUT  FORMAT o[P]▗[Q] RETURN  DRAW [Q] DEF FN POINT ![▗rATVAL RND▘PSTR$ _▜SGN SCREEN$ U LOAD  NEXT 07▞FN ATN  E▞5 GO TO [Q]E▝*F STEP IN  INPUT ▛E▘q PAUSE  LIST  CONTINUE  LLIST CHR$ "▚=K LIST  COPY  CLS  LINE T COPY 7m COPY [ COPY E COPY  COPY 5 COPY ^ POKE ▞*TUFN @[H]▛SIN ATTR SFN UFN A-"▜< CLEAR  CLEAR  RETURN  SAVE  COPY ▝ BRIGHT [Q] PAPER  RETURN  COPY ©X▗ COPY  CLEAR  POKE  LIST  STEP ▝ LIST ▘FN PRNDP?? DEF FN  LET  RUN LAT IN ▗©©IN IN `? LPRINT  CONTINUE  DRAW  IF  LIST  CLS (Tx▟'OIN © DRAW {▜ VERIFY 0 LET ACS ▖ESCREEN$ U[S][S]U[S]AT ▘SCREEN$ QF▟TAN ▚ CAT  CAT _?E STOP ▚ @PEEK ▛d SAVE  IF <>[L]S>=▜U- CIRCLE =,STR$  DRAW ▝NOT  DRAW  NOT ||SGN T RETURN {SGN FN  [O]▝CHR$ @"`08Xx!x CHR$ x x@x@x`xxx[Q]xSTR$ x LPRINT  PRINT  FORMAT  LINE G  OR J p2 OR  &▚ READ  COPY G COPY G PRINT G COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY #[M]▙:- FOR 2. FOR > STEP RND REM G>▚G> THEN 8[N] THEN ? THEN G( THEN  COPY ! FOR  THEN ? PRINT 2- FOR :. FOR w# LET w# DRAW [N] STEP LEN  REM  STEP  MERGE  REM NOT T GO TO  OR  CLEAR  COPY  GO SUB y GO SUB x NEW STR$ <> GO SUB K FOR  INVERSE 4[I] OR  STEP  RANDOMIZE  REM STR$ CODE  OR C INVERSE ~ INVERSE #Nwy+ IF STR$   CONTINUE $▝+p$p$ $▝#@$[C]h&) CLEAR }LEN oX<> OR E MERGE ▝"<> INVERSE 6 DRAW <> p[Q]▘STR$ <> COPY  COPY  COPY  IF  INPUT ▗9 GO SUB  LIST 9 GO SUB O CONTINUE _>▘W▜ INVERSE ! BORDER  GO TO >LN <▜ BRIGHT / GO SUB  INVERSE #EXP `▝INT `▝SQR  ▝4< RETURN   OPEN #3 GO SUB K- GO SUB  OR  STEP SCREEN$ " GO TO ▗w INVERSE ##@@#6!##6F▗ <=<>USR -▝ LPRINT Ppp$▘- INK ▘lH POKE ▝- POKE ▝ LPRINT q POKE q POKE  COPY  COPY  GO SUB TAB  STEP USR  STEP ` REM <>LIGHTMUSIC PLAYER BY YAKUNIN A.E. '94 COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  SAVE ▗ FLASH |8[I] CLOSE #MCHR$ Q[J]> DEF FN  DEF FN P DEF FN  CAT P BRIGHT 0IN LEN 3CODE ^VAL < COPY CHR$ /CHR$ /T/=[Q]= IF /[>-?b[Q] IF [C]P RETURN [R]POINT V=CHR$ /+-e3X' GO SUB ▛Rv> COPY  COPY  LLIST <>▛V[F]Y[P]^yb▞e[D]h[N]kABS ▘SIN $▟ CAT  OPEN # BEEP  FLASH  SAVE [Q] DRAW d[R][Q] STEP IRND NEXT  GO SUB s FOR i![G]i▟[d MERGE  GO SUB VAL !HRND COPY  COPY O;<> GO SUB LN !LEN BIN h~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT R▛[O](bqC0p[O](USR ▛'0!qq[O](3@STR$ `$0$0`#P`[O]- LET sP▗SPa ▝3 Q▚0[O]<4CODE c`▗1[M]t0▘[O]<~-$5CODE [A]0[M]0[A]▝H▝@-$H▘[M]ATTR $06▝H▝`-00[M]@P$▝A $[A]A[O]60H▗H[O]2L [A]`▗I[M]D0▘[O]2ATTR ABS 0$ ▝HPc0▜-@H▘[M]0[A]Q0[A]▝I [S]p-▝?▝1_▝HP▝10[S]▝P@ABS q▗[M]"! [O]!1▗[O]!d!21 ▝! 0$▘[M]!1 `▝ 0$;0H`MH 6 l▝C0$06aq8[M]0?8[O]80H▝9`  INVERSE 0@▘ LIST '0$@▘'10H▝1p$p$ $@cB@0H@H [B]`[B]dAT [T]dCODE pAT ▗a[B]t tCODE d"▖▝ NEXT "3CODE @$|▘CODE  FORMAT 2▖AT p$▘0aCODE  CLEAR @$" FORMAT  ERASE 0pHP62 FORMAT ▝8p~▝@ DRAW [B]| [S]|CODE  DRAW ! `[A]a `[A]a `[A]1D LET k0[A]0H1_`HP AND 1 ▝Hq FORMAT q2▝ OPEN #2 FORMAT 1 VAL AT ▝AE$AT  `$31``$LIN Jl3`▘IN [O]▘IN p$P`[A]▝P6`l0`H▝E Z▝M HS▝0▜▗ [J]0 CAT 2@ CIRCLE 0TAN 2@0[A][U]▝|$TAB 4 GO TO [U]`4>=[C]p$0▝@`@H0$3` GO TO 4>= PRINT 3`3INT `$S▝<$ PAPER dAW5s``5Lb@Z[Q]^s`%@$#`0$s▗▘[O]8lsFN #FN 0s TO ▘[O]80 AND C TO %1 `TAN `ABS 4804 GO TO ` CIRCLE BIN 1`H1DpHpQpH4[L]plPZ@l%SQR b[K]<6'/"AT P$40p6D8<▝1pHp$$[U]pH▝A COPY ▝ RUN pH@d▝& FLASH 6 COPY 4/ PLOT  1VAL 6USR 0$7,p$QVAL 6USR p$pHpHpHTIN `cA5[Q]`Q5s`[A][Q]▘ LET [A]p[A]0[A]PEEK  LPRINT ABS p$p[A]@[A]0$pH $p CIRCLE PHpp[A]p[A]4wa Gq Q wq P$q !hp$pHqh`Hpc#38 LINE 5aq27aVAL 1;qVAL !VAL 1Vp$q_qVAL p$7COS q'0H26USR i8LN 6ATN 9-3 BORDER 6xy-R@p$Y?[S]<=PHp$pHyu9▜4 GO TO @c▝[B]B@▜7P▘1[B]GCOS  LPRINT b<=6xB%) CAT 2@p$Tw[S]P[A]p$tIN r.`H8L@cp[A]p[A]6ATN [J]cWr%*_2@p$v▝2a p$pHr.`H9 DRAW @c▝[B]B@~xV▝!2t%[H]4wte$[L]: LOAD t[L]tepHt[L]!t[L]D READ pH$ READ r[B]▝q CLEAR FN ATTR VAL$  COPY  COPY  COPY  COPY  GO TO [E]> CLEAR © GO SUB y!USR USR ] POKE  GO SUB VAL > NOT USR ] ERASE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  OPEN #▖ MERGE ▖ MERGE USR [A] LOAD p~ FORMAT  INVERSE @ COPY  CIRCLE CHR$  COPY  CIRCLE ▞p▜ LINE  INVERSE ▘z[H]INT  CIRCLE  FOR ▗▘q[A]>=▟/^▟SGN  FOR IxPI VERIFY 4c READ ▝▞q▟ THEN GKOSW[_SHCq POKE  COPY <>IN r[H](2<FPZdnx$▝PppHa▚r▝q▛r BRIGHT ppp p 8@0 BEEP P▗p▝>= INVERSE ▜p  OVER ▘STR$ 1▚<= INVERSE ▝ MERGE ▝▝ppp00▗▝`wss▙ BEEP ▝| COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  NEXT  LINE  TO ▝ VERIFY /▝  ▝ PAUSE ▝Pppp$p.p8pBpLpVp`pjptp~p▖p[C]p[M]pINKEY$pVAL pINT pBIN p DEF FN p CIRCLE p STOP p GO TO p PLOT  qqqqq(q2q<qFqPqZqdqnqxq▘qq[G]q[Q]qSCREEN$ qTAN qPEEK q>=A ERASE ▝ INVERSE  POKE Pp ▝ INVERSE ▘?▝PpYp p*`4▝ COPY pa ERASE [Q]p_pips COPY  COPY  COPY  COPY  LLIST ▝U<>▝[Q]9[G]j COPY STR$ ▝C▘$$O RETURN ▗$~$~▚>(>> RETURN ▟ZRND[R]RNDZ[Q]U(*D: VERIFY G▝ OUT ▝ RETURN ▝ B▜ <fB@Q▝|▘;▝ RETURN ▘Z▘ C'FJR<▗(PI RETURN <B~ ▘B▗(|>~` <@| ▝~@@<B<0▗B>':K>= COPY ASN  COPY ASN  COPY ASN  RANDOMIZE ASN j▗@  NEW ▝p LPRINT ▝pO RETURN ▘▝ COPY / RETURN ▝ RUN  RETURN "x  q8HH▖▗@pHH '▗0@@0ATN ▝▝8 ▘H▗ P@`50H80-`1!v0)j$ (0(MCHR$ ▝o▝hSTR$ T RETURN xDDBDpUSR DY▝x▜▚<DNOT  VERIFY  THEN [B]STR$  [A]▗@8x▝8 @▘STR$ D▞DD▞( STEP ▝DP▞(D((DASN O[A]<8| |jNOT ▚ LPRINT !!▘(/ RETURN IN xB3[R][R]2< STEP R;; LLIST 6@>[INT >=~ RETURN  CLEAR ( GO SUB [Q] NEXT #F THEN x( THEN LN xPI( RETURN >0> CLEAR #~ DRAW #▗ CLOSE # CLEAR ▖▞ CLEAR ▗ CLEAR ▜ CLEAR ▚pppp-▗ CLEAR ▖p-p0KN▝▞pK]c▝▚@$ CLEAR ▖ ~>>~ COPY ~>c@~> COPY  COPY ©~c> CLEAR @ INVERSE 0▜`>f CLEAR ~▘c©2 PLOT  @ASN ▗> COPY >~4▚`©c> COPY c`▜©|~ COPY >E▜>>c~`©p8▝>:▝▚~©~©PV▟c~ COPY c>|©B<|D]`tq CLS  LIST p CLOSE #  CLOSE #▛cc` CLEAR cs3Tcc`00`c< CLOSE # ▝`%L@5▗`cc@``ss▘cE▜`cwc```8m▝VcpV▛wcf` CLEAR BH ▘`sp<_COS ▚NOT qFN @ CLOSE #▝> CLOSE #▗{<  CLOSE #▗©~▗ ▝P▝`POINT ©~n© VERIFY 07▝>0 VERIFY ▝`6`~{n▟0R▝~& BEEP ▘{▚>©©c`;`T PRINT  BEEP ~c~pW▘{ BEEP ©ccsBp]p<@ CIRCLE ▘ CLS  NEXT p CIRCLE B▘cAT ▗ofP▚`~o!AT @▝P[P]qAT !h@5 GO TO 1AT ▘oc!AT 0OAAT ~o!AT ▝[T]!AT 0m1AT ▗~`c`VI▝<AT ▗ZB|H ▘`o`t LET COS !AT r3T▖`>~~~>gC CLOSE #W▗©cgv0SU0aAT #V▘C▛>`V!<=▘©gSQR sW▘|~▙cg) NEXT sW▘>>[R]▝TAB esTAB ▘>~ BEEP W$<BD ▘©gc THEN ▝`@ LIST NOT  CLS r▗$,▘ CLEAR ▞tRNDtRNDtTAN tNOT tNOT tRNDtTAN tTAN tRNDtTAN tRNDtRND▚ CLEAR © COPY  CLEAR a COPY tEXP EXP t<=pp*p8d COPY ▝upTpbu)ppp~uEuSp[K]pFN uopppBIN u▛u[J]p LPRINT p INPUT uASN p DRAW qu MOVE u OUT q&q4u CLS qBqPvv%qlqzvAq▖&O▝v]q[U]qSIN vyqUSR q DEF FN v[F]v[T]q REM q SAVE vIN rrv FLASH v DIM r0r>wrLrZw!w/rvr▗wKr[C]r[Q]wgwurSGN r LINE w[B]r CIRCLE r NEW wTAB wSQR ssw BEEP ss,w NEXT xsHsVxsdsrx9▚ COPY  COPY  BORDER  CLEAR  ▜ LPRINT  CLEAR  RETURN  pp ▘ CLEAR [Q]p%p/p90%▘▜> MERGE ▙>c>`f?©~ CLEAR ▖ CLEAR [O]/Pp CLEAR ▜`c|VAL wcsc`<|cp1p9pAb▘``@▞©©{©`` bpIN p<>p OPEN # [K]PEEK C>cco▘▘?© ip RUN qq@ RUN pIN p THEN @IN ▘  COPY p OVER p NEW ` OVER ▛©G CLEAR aG CLEAR  ▘ CLEAR ppp"p"p3▗GGD pDPY▝pfpfpwpwp▖# CLEAR [O]Pp▘[O] COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  MERGE EXP Va"Za "Xa"[A] OR  STEP JCHR$  STEP  ERASE CHR$  STEP ▜BIN !XX6 COPY  GO SUB VAL  STEP INT BIN  RETURN  OUT  GO SUB x THEN O TO MBIN  THEN G TO _▝IN G!STR$  RESTORE  LINE IN BIN  LLIST  RETURN  CLS ▘ TO g(▝ RETURN  ▝y2▝©#▟ PRINT  TO BIN  LET  THEN W TO 8CHR$  RETURN  LOAD  %▘▞NOT USR v▛VAL$  PRINT  STEP IN BIN { NEW _^▚ STEP SCREEN$ CHR$  LET v<>[A]{ GO TO  PRINT  STEP  OR < NEW  STEP  OR  STEP  BEEP ▘ READ ▝=0▟CODE  RESTORE y_2ATN BIN  STR$  NEXT >n2ATTR BIN CODE [O]BIN  LPRINT >= STEP SCREEN$ BIN NOT jCHR$ CODE G STEP SCREEN$ "} AND o<>▜▚CHR$  OR  MERGE  OR %[B]6 COPY  STEP 5 OR STR$  POKE  MOVE STR$ <> STEP = OR F>oC[M]x NEW (GO OR  STEP BIN BIN STR$  RANDOMIZE yG>[A]ATN >= BRIGHT  GO SUB >=G OR  STEP ,▝ RANDOMIZE *▝{w▝~3w<> OR  MERGE {2 OR  O▖>ATN   THEN  RETURN  V▝ GO SUB Pa^▗:ATTR BIN <[P]ATTR <>*Za<> STEP R OR  STEP  SAVE  AND  STEP PI OR NOT  TO  OR  x OR  STEP iSTR$ Na MOVE  MERGE *[A] OR  THEN #'▞^#~ NEW W STEP [C] OR  OUT ▙ OUT <> THEN c({ NEW <[O] STR$ /▟ RUN  COPY <> THEN b>+(>-?▗ RANDOMIZE  COPY  THEN [S]FFa<>.Q[G]> BEEP } BEEP !USR  OR ~ RETURN  COPY >= BEEP # SAVE . DIM BIN   COPY !COS ▜ PRINT  CLOSE #E AND  LET  PRINT  CIRCLE ▘d AND RND▘/ AND QUSR ▝5▝ CLEAR ! NEXT ▝{ ▝s▝ PRINT  COPY ▝L,O TO T, STOP ▝[H] =▝=▘ FORMAT Q DIM ▘ STEP  AND  CONTINUE ▚[H] STEP SGN  OR {< BORDER ▜PI OR vvNOT SCREEN$ CHR$ = INPUT ▗ PLOT   NEW  NEW  LOAD  OVER  MERGE  STEP [R] AND NOT SGN  AND ▖ RESTORE  FOR  FOR  LLIST @▝pPI GO SUB R`▗y INPUT O@3=QIG[I]K THEN !^#Vz NEW O THEN [S]<>z NEW LEN Wr+sT▝ MOVE  ▖C MERGE | INVERSE *VaY}▖La STEP SGN NOT !▖Pa" LET [[A]Dav][B] INVERSE NOT AT NOT >_2<=26<=>28<=2 STEP <=>▜@▝[A][N] NEW ATN (G OR yG6 LIST STR$  PAUSE ▖CODE  GO SUB o+ CLS ▜ GO TO  INVERSE #STR$ <><>▘TAN >=! ▘  PLOT  LN ▘Z>=CZ!]W TO Q>= LET s▘ LOAD <=1LEN ~▘>=SIN Y▘v▝ RUN &1ACS ▘ COPY  AINT ▝LO TO e3▛z>= CLS [B]▛ STEP 3>=~▝ THEN ©  NEW ? PLOT  @w[A]NOT TAN >=▜.[I]!BIN Z▘Z>=0[C] ▚ THEN  READ .=0▝[T]▙2~*/" PLOT  INT ▚O THEN c<=▝STR$ ▝2STR$ x▙ GO SUB DwZ STEP :>=> BEEP > BEEP "ATN ▜>  BEEP  CLS NOT ▘CODE  BEEP CODE  BEEP <> MERGE CTAB ▖> RETURN 2 SAVE [x▗ RANDOMIZE [/▗>/▚;▗Ra GO SUB SQTAN ▖ MOVE z INPUT W ▝ VERIFY SGN  FLASH ▝ MERGE ^ STEP (>=_y#&▗Ta MOVE <>> #8[Q]U3PIN ![Q]Uo]T<>ATN ![Q]U STEP  LPRINT >= FOR <>!▙ INK "Da!7 VERIFY "Fa!SGN  INK "La!J OPEN #"Na!o BRIGHT "Pa! INVERSE "Ra!IN S VERIFY "Ta:'COS 2 LLIST 2 IF  BRIGHT >2j/!R OPEN #" RUN  COPY ! OPEN #" RANDOMIZE  COPY  STEP  OR <> STEP s<>CODE 2/ COPY :/ PRINT  RETURN 7 TO >= MERGE  LET  RETURN 6 TO  PAPER  MERGE :d TO ATN ( NEW CODE 2d TO  STEP  NEW  STEP A PRINT 0RND STEP  STEP A LINE  MOVE >NOT 2ASN ASN ! VERIFY  THEN "ACS ASN >TAN  GO SUB G GO SUB ^ CLS <>>2? TO <>!▘ ERASE _PRND STEP R OPEN # STEP CODE  DEF FN !X<>#7 GO SUB Z{ AND GLN <> GO SUB [R]BIN AT  RESTORE  PRINT pV▛<> STEP ▚<>![M]+"el[H] INVERSE CODE 2[P]Y STEP )ACS  STEP Q CLOSE # STEP  OVER  CLOSE # STEP [G] MERGE  STEP  CLEAR  CLOSE # STEP BIN  CLOSE #a[D]/2 DATA : OVER  STEP c OVER :! ▗:)SCREEN$  STEP RND TO NOT TAN  MERGE  STEP ▘ BRIGHT :x MERGE  VERIFY  STEP  CIRCLE  READ O:w MERGE  STEP F PAPER  STEP  LIST  PAPER  STEP  OVER  STEP ▙ INK  STEP b INVERSE v STEP : LINE   INPUT f[F] STEP  INK CODE  FLASH  RETURN / NEW <>![A] LINE  GO SUB Ke TO  THEN 8 THEN 89 THEN 9 THEN 9[Q][L]LN  #~#EXP (V PRINT z RETURN  CLS   LET  LET <EXP (IN IN  RETURN  RETURN #  RUN  VERIFY ~ RETURN  CLS #  IF N!▗ THEN N#F OR <> CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN [P] CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  CLS  RETURN  RETURN  CLS  RETURN  CLS   RETURN V▚" RETURN  CLS $ ▜ RETURN  CLS  RETURN ▝ATTR  CLS & RETURN  CLS ( RETURN  CLS * RETURN  CLS , RETURN  CLS . COPY  CLS 0 RETURN  CLS 2 RETURN  CLS 4 RETURN FN [M] CLS 6 RETURN  CLS 8 RETURN  CLS : RETURN  CLS > RETURN @ RETURN ▞B RETURN  CLS D RETURN F RETURN CHR$ ▞H RETURN  CLS J RETURN ▜L RETURN  CLS NeIN  CLS P COPY ATTR  STEP | MERGE PI MERGE E CLOSE #? CLOSE # CLOSE #▙ CLOSE #[M] CLOSE #[T] CLOSE # ERASE  CLOSE # CIRCLE  CLOSE #▛ VERIFY [R] BRIGHT ▖ OVER z OVER W OUT : DEF FN Y DATA  INPUT  CLOSE # PAUSE  CLOSE #C MERGE ? MERGE [ MERGE _ MERGE  LOAD  READ ><>EXP  STOP  BRIGHT  LPRINT # LPRINT STR$ [R] LPRINT m LLIST SCREEN$  OUT INKEY$ OUT  LPRINT ^ LPRINT Z LPRINT C LPRINT ▝ LPRINT } LPRINT [S] LPRINT ▚ LLIST  CLEAR  RESTORE  INVERSE  RESTORE  RESTORE  MERGE  OR  PRINT  INK [J]CODE g AND 2.3o,^,CODE V FOR  PRINT PI RESTORE  GO SUB Rg AND oV FOR POINT ]TH_b▗ GO SUB _Y▚Z NEW  RESTORE ▜NOT > TO  LLIST  LET [T]VAL CHR$ . TO PI GO SUB b RESTORE (COS  CIRCLE L!'COS NOT 7 DEF FN >ATN  TO  DATA :? TO ATN BIN m STEP >ATN  TO  LIST  BRIGHT CODE  OPEN # RETURN  LET STR$  MOVE  LLIST  INK POINT  INVERSE  LLIST  CLEAR  LLIST  CLS <>[M]+[M]+?@`px|~xH[T] LET  LET  SAVE  SAVE  DRAW STR$ [C]~ COPY  COPY <F(JR<>@▝<a