| Is a part of release: | Винни Пух |
| File size: | 65280 |
| md5: | 6350374d1882757d989303f316208e4b |
10 REM CODE OPEN # RETURN !xi GO SUB [ POKE /+ STEP =NOT xi
20 RANDOMIZE USR 23872
32781INNYPUH" LINE 1015616 LINE l^l^ STEP h[E] NEXT GO SUB s![G]i▟[d MERGE GO SUB VAL !g[E]* INVERSE n*<> GO SUB LN !ABS SIN [Q]~ 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 1COS _ NEXT NOT EXP READ ▝0'© COPY RETURN USR STEP COPY LIST USR COPY ▝IN STR$ COPY ▝©|▜|? COPY @ COPY USR 30▘ RETURN RETURN j▚ COPY USR © SAVE * RETURN COPY USR RETURN 7▖ DRAW @ COPY USR COPY COPY LOAD <▖ COPY @@ ▝j ▝ COPY 5@@` ▙ ▘▖▝[K]▞@ SCREEN$ ▘@D@▝ COPY q"▝ CONTINUE ▘ BORDER LIST <>▗? COPY COPY ▝ OUT P CONTINUE ▝ SAVE 1s COPY SAVE 3▘USR ?qq▘ COPY LPRINT !▝ RETURN ▗ RETURN ? COPY BORDER 8▝©a RETURN ~ RANDOMIZE COPY Q▖@@▗! ▖@B▖q▝ OR ▝ INPUT q1▝ COPY B" CONTINUE ▝ CONTINUE ▘ CLS SAVE <=▘ LPRINT R8 DRAW PEEK CHR$ qB GO SUB ▘!<>~"▝xq▟ } COPY CAT RUN <= COPY CLEAR xgUSR B LOAD DRAW <▘[P]PEEK U▝ LOAD [Q]<>▝A DIM 1▘D▗▝ GO TO ▘ OR ▝(qB▝ ▝ RETURN BB DATA ▝ NEXT CONTINUE CLEAR DRAW LLIST ▝ CAT r▝ CLS ▝ RUN C▝ CLEAR NEXT LOAD ! RUN ▝USR SAVE ▘ CLEAR 1▗ CLEAR USR n8C▝ LIST 2x RUN RUN NEXT <= COPY RANDOMIZE pa<= DRAW SAVE COPY [P]> NEXT COPY <=<>▗▝1▝q▘▘ STR$ ▝[▝PB DRAW ▘▗1 PAPER C PAPER MOVE ▝<> MERGE >=▝ RETURN LN T8 LPRINT MOVE LOAD " RUN ▝ LPRINT SAVE ▝81▝SGN q▝ SAVE 3x NEXT { LLIST COPY EXP pc2[D] BORDER <= DRAW SAVE w COPY READ @▝▝▘A▘3▘STR$ ▝a OR ▝[Q]VAL$ qQtVAL$ BORDER r4s RANDOMIZE ▝ LPRINT MERGE #LEN ▝ DRAW "▗ RETURN USR $ GO SUB <> DATA CLEAR COPY LET BORDER A▝ COPY 3▘ LIST RETURN SAVE 8 LPRINT ▗8USR fq30q= READ NOT COPY `C5▗ CLS SAVE ▞sIN LLIST COPY @▘ TO a LPRINT ▗@▝V▝▟▝@VAL$ @▛ LPRINT 0 COPY DATA ▝ DRAW U>= LPRINT ▗ RETURN VAL "$ GO SUB SAVE MOVE ▝ LIST (▝Q▝$ RUN SAVE BRIGHT w"0▜USR USR DQ▝ DRAW E LPRINT ▛|xc▙NOT NOT CAT 9`A6[A]}▝ SAVE <LN 1 MOVE @ LPRINT $A[I]▝ CONTINUE ▛f LIST DRAW 8 REM ▝ TO 03 COPY READ 6 FLASH F LPRINT ! CAT x ERASE v LPRINT SCREEN$ (f LPRINT 1▗ DRAW !USR LET LPRINT TO ▘V LPRINT ▝ AND f LPRINT ▛ DRAW !▝▝@ LLIST F LPRINT [A]▝[I]<[I]▝f DRAW & LPRINT a LPRINT ▝` LPRINT ▘▝"[Q]x THEN ▝~[U]▝ LPRINT [Q]▝ READ [Q]▘ NEXT USR u BRIGHT Is PLOT LPRINT q LLIST ▜_ COPY COPY E COPY COPY POKE @_IN IN p▝IN IF CLEAR p p 0@▘ IF ▗' COPY DRAW .▝ CLEAR `@ DEF FN t OPEN # COPY p FOR PLOT qqqqqq.A[J]▝D<> LLIST ▘E▝ CLOSE #▝@ OVER qRND THEN w NEW q LIST FOR rr▗ POKE _USR ?` LPRINT ▝2▘ SAVE bA LPRINT ▝ REM B▝<=)▝©A GO TO COPY RETURN ▜rPEEK r[B] COPY FOR P[Q]@PI POKE p[Q]#▘ SAVE 0 LPRINT D DRAW P LPRINT LPRINT s ▘ CLS RETURN #C INPUT I6x MERGE uR[Q]BPI▘SCREEN$ r[Q]s LPRINT ▚ COPY CLS <= CLS CLEAR DRAW qtS LPRINT ▝qs LPRINT COPY 8<>{ DRAW {St LPRINT t LPRINT LPRINT ▘B©t LPRINT t LPRINT t LPRINT qud LPRINT rt LPRINT COPY FORMAT uIN ~y PAUSE CONTINUE u LPRINT E LPRINT ▝Du INPUT u LPRINT u LPRINT vvu LPRINT su LPRINT COPY LOAD {9 FLASH ▝v LPRINT v LPRINT v LPRINT v LPRINT v LPRINT 7v LPRINT CLEAR O COPY RETURN tv LPRINT COPY CLOSE #{ RESTORE h~4 COPY ~?▙ SAVE ? SAVE ?USR © LIST ?USR CLS DRAW ©©F INK ©PEEK x[Q] LIST | DATA CLS h PAUSE } INK pSIN ?▘ LIST ? DRAW ▝ NEXT ▝?n@ COPY STEP x LPRINT ~ LET uT▖ COPY LIST COPY LIST COPY DRAW ? LIST < COPY GO TO STEP ▛<> LIST <USR |<USR LIST ▘| REM © AND INVERSE J[F]r- VERIFY y< COPY ]▗ COPY SAVE COPY SAVE &▝ SAVE ©FA▘< SAVE ▝<A▝< OVER r LIST IF z# COPY INK ~<|<~ SAVE |~ DRAW < CAT 0 SAVE q LPRINT b! LIST <▗| LIST q COPY COPY DRAW [CHR$ < LPRINT p LPRINT _▝▝| CLS 1 ▗ LIST <q OUT { RESTORE GO SUB } COPY INVERSE !▚USR LIST <USR COPY LPRINT u OUT oC DRAW <3 ▘ LIST <u COPY COPY COPY ▘>!▝ SAVE LPRINT u OUT q5 w LINE Hvx} RESTORE ▝STR$ B▘DD<>Bp▘E CIRCLE Bp8 PLOT B▝E``EBESTR$ E0` CLS ECHR$ ▘BIN ` OR p +),09▝USR G▘BB▘AD THEN G▖CCGG INK C▘p MOVE C[L] INK A▖ INK API0 BEEP ▘ REM @@ AND ▘ CAT p LET RETURN p( ▘I@ <>`ZPbA"▝] STEP Gu▝pa▘ STEP D▝FpATTR 1[J] .@ CAT [L][P] ERASE @ CAT 0N1VAL p[L] ▟▝ CLS !VAL ▘! LIST { COPY ` q DRAW ▘,▘ COPY OPEN #IN !'SIN NOT QSCREEN$ NOT PITAB PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQIN >, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85INKEY$2/,*'%#![H] LINE CLOSE # OR p▘STR$ PCHR$ USR 0*@▘ PAUSE 0) J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝'SIN 'SIN P▗'SIN COS ppp(p2<▝SIN p.pJpT▝SIN DEF FN IN NEXT RESTORE "FATTR RESTORE ~2 INK VAL$ 2ATTR TAB ##~#" DIM SCREEN$ " DRAW SCREEN$ ^#V#"3ATTR O"(ATTR LLIST "AATTR !CSCREEN$ DSCREEN$ p GO SUB VAL CODE IN 2@SCREEN$ 2ASCREEN$ 2BSCREEN$ 21VAL$ 2[G]VAL$ 2 OPEN #ATTR 2RAT 2 CLOSE #AT 2,VAL$ 2[B]VAL$ 2!AT 2[T]AT 2&TAB G/2PIATTR 2&AT 2FN AT >/2zVAL$ 2VAL$ ! FORMAT POINT "6TAN VAL$ "[L]VAL$ "AT "[O]AT "!TAB STEP .ATTR GO SUB SNOT TAB STR$ GO SUB sATTR 1*SIN LPRINT POINT > LLIST FOR s#r# FOR = PRINT 1jSIN SCREEN$ >pPI PRINT 1 NEXT ©* SCREEN$ "FVAL$ "ATTR VAL$ "SIN ATTR "1AT "COS AT CLS NOT *TAB !SCREEN$ SIN ~▜ GO SUB sVATTR !ATTR 8 INPUT ▚▜# AND ▖!AT SIN RANDOMIZE 'SIN X LLIST " LLIST TAB [M] IF TAB 1 LOAD ©<>{▜_~0 THEN #~STR$ IN NEW THEN Z PRINT 2ISCREEN$ LET ~ NEW #ng INVERSE b FOR !TAN COS INVERSE }▚▜O! FN ~#fo THEN :8 GO SUB R<><>> COPY <(wCOS ![D]SIN COS y<PEEK # ~2AT ATTR #"▟ATTR FOR x_@[D]TAB ATTR # INVERSE .+ STEP [ATTR "CSCREEN$ FOR AT IF AT (& RESTORE !{PI PAUSE NEXT ATTR GO SUB DOPI GO SUB B0 LLIST >2 MOVE ATTR CODE 2 LLIST ATTR go" CIRCLE ATTR " REM ATTR LLIST CODE ▜ INVERSE |2JSCREEN$ OQ▜~ PLOT 2KSCREEN$ ©▝zp©@©▘+AT p©▘,AT ©▝)p©▝E@©▝[D]p©▘rAT p©▖2PAT CODE 2`AT ©▘WAT ©▘iAT ©WAT INVERSE |!JSCREEN$ ACS wp▘▝L ▘▝{qP LET p▘!▝VAL$ ▘▝.q▝GA▘TAB a▝ POKE `▘▝ ERASE ▝▝ STOP ▝ INK AT LLIST ▝ FOR 0▘▝ INK @▘p[O]MSCREEN$ !PSCREEN$ IN COPY VERIFY !MSCREEN$ B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2PSCREEN$ <>CODE G>=R[N](>=("=CHR$ INKEY$ATTR !@SCREEN$ 5 PAUSE INKEY$ATTR 6TAN SIN PI TO .ATTR STEP lCODE INPUT ▗2VAL$ NOT ▝AP▛COS STEP [A]VAL GO SUB S LLIST TAB 2i ▝B7▘VAL$ 7▟MCOS STEP [H]LEN GO SUB S IF TAB CODE PI062▘AT ATTR ]▘>+▟!COS "CODE ATTR CODE 02%VAL$ 1▘!AT 6▘ OPEN #ATTR k▘AT ▝▗2<VAL$ [E].'2L'▘ CLS ATTR nPc▘AT ▘ LPRINT ATTR e▘go LOAD GO SUB "+AT ▟▝/IN ▘>)e▝.N2e▝[T]e▘RAT FORMAT ▝[O]0e0▝[R] e▝1u▗2LEN VAL$ `▝i▟▝z[C]▝▙ e▝_[N]▘PSCREEN$ {▗NSCREEN$ >©CODE 2 DEF FN ▙2SVAL$ :dVAL$ =(y2VAL$ CODE +▘>7FN ▘<> CLOSE #: MOVE ATTR O▚( PAPER CODE 2dG>7<>STR$ ▜! LPRINT FN [S]▝6+▗NOT lCODE 1[E]&o"cVAL$ PIx PAUSE 9CODE /2^VAL$ -▝@▝M ▖og"X OR A▘ VERIFY [A]STR$ TAB AND 8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▘POINT O$"VAL$ ▞▗! SCREEN$ ▜@▝F<=▝<<> SGN PI<>CODE 00SQR ▚( GO SUB RETURN ( LIST ▘>D2 OPEN #VAL$ 2 CLOSE #VAL$ 0 INK [T]▝ INK X▟2PEEK VAL$ :<>VAL$ = LINE VAL y2©$▝z$▝LEN $VAL$ :PAT $▝©$ INK CODE 2<>VAL$ q$q$▘[A]VAL 11$▝>=$]VAL /2NOT q$ ▝q A$▝LN A$▝[G]A$ RUN ▝ OUT q$q$q$q$▖ [R]q$!$▘▗VAL$ ▞q$ AND FOR ▝[R]<>&*!$h$▝[B]@SQR q$▝eq$0 INK 1$C▘: ERASE ERASE AT (8▙NOT MLEN 2 CLS AT : STOP AT = LINE MLEN yM$J[D]▗"TAB AT <>2.▘ LLIST AT .▙gLEN /2TAB *o&0▝{ B. FOR AT .▘ CLOSE #AT + CLS ▝ SAVE 2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP PEEK ▗ CLOSE #($r&▚"VAL AT NOT [H]LEN r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘&TAB r4▝CODE V;2▘[H]LEN s▝!▝}PEEK © RETURN ▝e} OPEN # LPRINT ▝▛~ ERASE ▘ FLASH ▜ COPY ▟ OVER &©`POINT POINT POINT !POINT POINT ▗POINT POINT USR POINT 0▗'VAL$ ATTR VAL$ RNDATTR ATTR pppppppppppppp! LPRINT ' LPRINT S▘ATTR 0▗ATTR ATTR ▛ATTR ATTR SIN SIN SIN !SIN SIN 'ASN PWpHpHpH LPRINT / H▚VAL$ VAL$ VAL$ !USR VAL$ 0▘'SIN Pp▜p▜p▜[E] LPRINT LIST LPRINT FORMAT USR USR ▝USR ▘USR COPY BRIGHT RNDCODE 2 NEW TAN !@@ COPY w GO SUB VAL ![A]"▘TAN STEP SAVE PI STEP NTAN STEP BORDER TAN : NEW TAN PI( IF RESTORE [C]POINT TAN NEXT >? GO SUB G GO SUB V CLS <> NEXT ! RETURN RETURN OVER ▘> CLEAR 9▟>NOT 2 CLEAR CLEAR !pTAN " RETURN CLEAR > RETURN "▝^" PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE PRINT INK ▝ INK [I]|ASN ! NEW TAN 6 COPY +i RETURN PI INK LLIST MOVE STR$ INK LET CLEAR LLIST INVERSE LLIST [A] LET CLS <> !X MERGE RESTORE OR OR RESTORE OUT [R]~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE LLIST STR$ INVERSE ! NCHR$ v▖STR$ LLIST MOVE TO <> COPY ;▖X COPY 6@ FORMAT [Q]@ GO SUB VAL ▞[Q][U]N NEW INVERSE gUSR ▘oy▟SGN 0< PRINT y NEW SAVE O LET LEN Oy0▗ABS 0<TAB ▗ PRINT O NEW <=[C]q#| RETURN [ BIN OR v CLEAR STR$ ASN <> LET ▜2LEN <>▝ OR . COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ~CODE * POKE /"INT STEP TAN NEXT GO SUB V<=▝ CLEAR )1 GO TO ^e▘6▙[E]IN H STEP 6USR !3IN [Q]P▗USR [Q] LPRINT F STOP F#6 COPY GO SUB VAL $I▘Ip$[P]G"6 RESTORE } AND o6@ LLIST $| NEW } AND o8| VERIFY g DATA D[O][C]6 GO SUB VAL 6, CLS LIST ▝ BEEP 6 GO SUB VAL P( 6 ▝4▝[M]> RUN FLASH RETURN THEN G( THEN W !▖"INT THEN O( THEN _ DATA 0▞! OPEN #▖"INT !+CHR$ %[J] GO SUB VAL !FN a STEP <=INT STEP LIST INT MERGE STEP FN aCODE 2▙ MOVE CLEAR ©!USR >w GO SUB y>[J]~ RETURN (!)SQR [ CIRCLE GO SUB VAL *INT "[C]/NOT [N# STEP BORDER >▞[Q] MOVE ![I] IF USR @@▝ ▝ ▛BIN @$▝ $[C] VERIFY 0?▚[F] GO SUB F▝ GO SUB y!ABS |▘20|[J] GO TO /NOT 5[ INVERSE !S* INVERSE RESTORE NOT /=><> INVERSE ! PRINT > ▗ INVERSE ! RESTORE ? NEXT y OR E▜STR$ NEXT zATN <0>,06▝ 6CODE STEP MERGE INT NEXT OR INVERSE !/ MERGE STEP CHR$ INT MOVE STR$ $ THEN c( THEN <> NEW <><> STEP CHR$ [[Q] MERGE !NOT ▟/ NEXT %▚2STR$ _2 TO _▖!$ STEP ▟/ STEP ▗SIN STEP -▜!E STEP [A] BIN :SGN _[K]▝0H!@/▘[I][Q]G@2▗Sp22▘( DEF FN @M▗ ▝COS @M▗|!:LN ;LN pLN ▖IN [" DEF FN ACS STEP lACS INKEY$▚NOT HATN CODE OPEN # RETURN w VERIFY GO SUB VAL <>q==▘ ERASE [!=▝ ERASE TA= COPY COPY THEN a CAT ▗ STEP FLASH [ MERGE STOP ▛}_ NEW SQR _|W LLIST A CIRCLE AND Q CIRCLE MOVE CIRCLE ERASE [ STEP DIM [Q CIRCLE ▘ VERIFY [q CIRCLE Q CIRCLE "]▘<> INK LIST [I]W GO SUB Q INK ~# INK GO SUB Y INK xLEN >= INK NOT STEP BEEP CLEAR ▘es▘NOT LEN 1 CLEAR ▘LEN / CLEAR ▝/q RETURN ▚$ STEP LINE / STEP REM R▘![?1▜@> STEP >rW G![F] GO SUB )▘SGN `▘5[pCC▝C/▘pC2R▘ LINE p*m▝mG▘pmBJ▝[D]TAN NOT / COPY COPY THEN 2BIN @<=!Br<=©▘VAL$ /B<=▝5r<=r<=t▘STR$ /$▘STR$ /tTr2r2▝©1T<STR$ / STEP CIRCLE /T▘ OR /tD▙ CRACKED, DIS ▛CHEATED AND OR ▚ENNOBL[F]BY VIRTUAL BANANES TM>= 2.MARCH.1996| CLEAR 1<>.▗NORMAGAME START8 LINE .▖INFINITEy▜ERGY 3 TO .`!LIV▗▘ 4 DEF FN .`CALL▝]0 LINE 'EM▝!}▛▖~PI>= MERGE RESTORE o&USR )[C]SIN ~# IF LLIST MOVE # READ ~*USR ▘>=▝ RETURN VERIFY KUSR ▝`▝USR >=▗|K*▝00▝|^[H]▘``8p LPRINT c DEF FN VERIFY NEW g▝ SAVE USR 8o▗ RETURN RETURN LPRINT @▝©▗ NEW NEW RETURN `STR$ LPRINT ▝ RETURN 0USR [T]▝ NEW @(▞] ` [B]▘ RETURN `BIN RETURN >= RETURN >8>=x▘ NEW NEW 9 DRAW DRAW NEW DRAW CLS j ▝ NEW @@[I] LN ▝ LPRINT [K]0[Q]▘ NEW NEW <>CHR$ 8$[I] LN ▗ GO TO SAVE GO TO NEW VAL H▘ AND INPUT RETURN VERIFY AND USR NEW PLOT RETURN INPUT NEW [H] SAVE p0P▗ REM DATA IF @▖▝USR <▝ SAVE !X▝▚Pp▘ INPUT | AND AND VERIFY RETURN INPUT ! ▝| LN ▘ NEW NEW 0▝ RETURN XqATN INVERSE ▝ COPY c▝x CLOSE #▛ ? COPY @8~? COPY LPRINT *O RETURN ▝b[A] CAT SAVE E LINE SAVE LIST DRAW COPY STR$ _0(▝ LIST D)▘ COPY p]▛ COPY <<0 LIST COPY SGN * 5▝©P [A]© GO TO DRAW ' COPY LOAD ? SAVE dO+▘©2u[B] COPY FORMAT g BRIGHT xx[N][J]NOT OVER LINE ▜ COPY COPY STR$ LPRINT DRAW ©NOT COPY ▜▜KLEN ?<=@w DIM COPY RETURN r RESTORE THEN ▛00© COPY | CIRCLE LIST ; COPY SAVE <=▝ FOR IN [I]a[A] LOAD RETURN CLEAR LIST < RETURN [Q]ATTR LPRINT ▝(ATN @ COPY LPRINT READ [P][P] LPRINT SAVE C RUN 3lq[A]> GO TO ^=STR$ COPY DRAW OUT COPY ▗O RETURN ▘~[L]/ TO MOVE USR SAVE [J] STEP OR LLIST LOAD p OUT !▜▗ PLOT ? READ NEXT BIN COPY ▖ NEXT ▝BIN k[J] COPY O FOR @▘EIN ` FORMAT TO 0? READ DRAW ▘ PRINT A? COPY 1[B]?USR ©▜NOT TO # FORMAT COPY LLIST LPRINT PRINT @# RETURN q▗ SAVE _?[B]STR$ SAVE COPY NEXT LIST <625▝IN R COPY IN LIST p SAVE DEF FN O AND qCHR$ 7 DRAW |"V▝ LPRINT 2?[B]> COPY LOAD OPEN #[P][D][A] NEW OR LLIST CAT OPEN #o CLS RUN pPI"g[C]▚}c LOAD REM LEN "0 LET U CLEAR STR$ |k▞ LIST > TO o MERGE ▝ STOP ▝@ CLEAR COPY [R] CLOSE #© SAVE ATN NOT INPUT SQR ▘ REM D INVERSE © COPY D BORDER [A] RETURN ?[D] RANDOMIZE a LPRINT LOAD PEEK COPY ▙ CONTINUE !©r[A] NEXT COPY LIST 0~▞ LIST TO ! COPY LPRINT s READ A[O]1FN [A]? COPY STR$ RUN POKE q NEW cCHR$ Ax▜ NEXT _ RETURN ▝?3( RANDOMIZE IF INPUT COS [A] GO SUB DATA xC RANDOMIZE CAT # REM q OUT [E] RETURN < PAUSE READ OUT P"IBIPEEK !▖{▖pB[S] RETURN ▝ STOP COPY LOAD COPY A CAT CAT ? SAVE /[K]66[P]<= MOVE E INVERSE ▘ COPY Rh[A] COPY <=USR LN LIST DEF FN © COPY DRAW BORDER CLOSE #"©▝q RUN COPY LPRINT COPY SAVE ▙©/PEEK COPY LET LPRINT UO RETURN ▝ OUT A|▙▜[P] RANDOMIZE READ PI! READ qIN LPRINT COPY sIN 4[B] INPUT (8>#ABS PRINT 4<`w©LEN CAT COPY CAT 3A▚[D] DRAW COPY READ READ IF f@C▞W<▖ RUN AND [P]p COPY q PAPER ▚ ? LET READ COPY r COPY q2▙{▖`X? LPRINT @[S]C^q▟8© LIST LIST REM SCREEN$ SCREEN$ q7Q? COPY 8▝ COPY [I]NOT COPY LET LLIST COPY USR PEEK D@▝g+$ CONTINUE ? DEF FN s READ 70 COPY 8 COPY { DRAW >=[E] COPY SAVE x LPRINT ` BORDER RESTORE u CLOSE #0a=[B] CAT COPY [Q]>=[F] COPY NEXT RUN gASN @1j>= NEW ATTR RETURN [B] COPY 3▝ LIST R[J] RETURN ▝* LPRINT ▜ COPY DRAW CLS COPY sZa▞[I] NEXT LLIST KG COPY LPRINT 9STR$ 5 VERIFY LPRINT QSCREEN$ [A] COPY COPY ~8 LLIST COPY <= COPY COPY Ur#(NOT COPY COPY ` LIST C DRAW BORDER COPY 3 COPY 35J[A] DRAW [I]?o READ [E][J]SGN | COPY ?q OUT #g[A] COPY LLIST LIST y[P]STR$ OVER <=x( BORDER r &[D] RUN LIST NOT G IF 3r LIST BORDER U SAVE { OR [B] GO TO DRAW LINE ]▝+s VERIFY ▚ LPRINT ▝~R PLOT ▝©Rh▛ FLASH LET SAVE LET CAT L COPY LPRINT : RUN ▝[Q]5[H]q=▟USR LIST SAVE COPY DRAW ? CLS COPY FOR 5 LPRINT &[B] SAVE COPY SAVE STR$ ▜▖ SAVE `?7 CLEAR COPY LPRINT M[T]G)▙ RETURN 0 DATA x}<=[D]▚SGN © LPRINT DRAW Q T LPRINT ▞ COPY NOT SAVE AVAL <▚8*▝Y[T] COPY q OVER GO SUB ▜' RUN BEEP AND u@pATTR PLOT ▜[I] DRAW r LINE ▞▜)Fk FORMAT ) INK uBIN PAUSE ▖n&IN d![I] BORDER DATA k[N] CIRCLE DIM VDVe[N]e DRAW © SAVE lIN LET [H]E FLASH ▛" INVERSE ▞ LLIST ▜0b▛ SAVE LIST > ▝▙~© IF [I])"D© DRAW SGN ,> RESTORE p 7 IF PRINT COPY COPY IN RETURN OPEN #▜'IN RETURN H[E]m INK m8L INK 4`*INKEY$CHR$ 8= INVERSE ~ COPY V RUN {%R/TAB $,>[J] GO SUB ▗[D]:""*; COPY n PLOT COPY U[S]+[E] REM ATN RETURN IF mU LLIST k1[R] MOVE ▗USR zUSR "FN ▘` LOAD ▝*`[D]aHFN K[I]"@8>SCREEN$ FN "▚SCREEN$ [G][L]UP[T]v?cF POKE * SAVE 0 LIST 6:▘ NEW TO #NOT COPY RANDOMIZE j CAT [J] AND DATA K LIST >=x GO TO q LINE hv[K][K] RESTORE RETURN 0 BRIGHT COPY LPRINT [K] INVERSE [J]I[J]STR$ DRAW ▜© LPRINT REM COPY .x©▚0 LPRINT _ CAT MERGE TI/w SAVE f'u8▖; PRINT j IF ATTR COPY GO TO FLASH ▝ RETURN IN Q*TAB z LIST [M] RANDOMIZE $`e:EXP CLEAR RUN RUN [L]IN ` RUN [I]POINT Q* ERASE H1POINT GO TO [A] INPUT t▖▖[G]v STOP 3PEEK OUT SCREEN$ MERGE WUZCODE INVERSE zLN NEW ▖ BRIGHT LPRINT RUN @▞u▖▖▝ COPY CLEAR READ Q▛`[M]@Q$C CAT <> COPY O STOP ▗ MERGE V▖[F]LN w OR Ud[N]SCREEN$ SCREEN$ KY©|CHR$ n CONTINUE IAE▝ STOP READ ! SAVE RANDOMIZE Y#[J][F]BIN REM 4 INK N/ NEXT [P]<=7USR PLOT 2 LIST ;SIN ▖IN :USR RETURN ▜ LOAD READ ▟UW OVER | LOAD AND USR LOAD CAT CAT -▛▖ RUN .c RANDOMIZE B2}▛7 REM MERGE PRINT U? GO TO FOR ▙ COPY RETURN [A]▟ CLEAR @& DEF FN a LLIST |[J][S]CHR$ PAUSE SIN [D] CLEAR m DIM 7[VAL ATTR ▟CHR$ AT TAB Rs BORDER kT[P] COPY LET x SAVE {[P]PjSCREEN$ SCREEN$ RNDW PLOT PRINT LINE ~UDxWINT POKE z[S]"" COPY LET t LET ATN `/# LLIST !▛ IF SCREEN$ LIST #USR >{ STOP "[O]UUT[F] REM RETURN LIST ▗ LINE k▘USR [K] LLIST DRAW LET ATN ? RETURN /PEEK [H]? TO RUN :TAB LINE p▝[K]ABS <= COPY ▛LSTR$ POINT S~xUSR ▙STR$ COPY C COPY DRAW RETURN SCREEN$ ATTR INPUT / BEEP BORDER LLIST BORDER LOAD BORDER POKE A#g STOP LET c6 STOP pIN PRINT FOR LIST O BRIGHT RUN TO BORDER [O] DRAW COPY IN INK [A]oATTR COPY POKE NOT d LIST A[L]<= DRAW RETURN uABS [ INVERSE B ERASE ^ INK VAL & LIST [K]TAN [A] ▝[Q] COPY DRAW v-oSGN JSCREEN$ ATTR REM DRAW d▘[B]G▖ FORMAT h"▛@▖▖>][E] FLASH LIST ▟[Q]▖E!H@ DATA b▟ COPY U# LPRINT UP RETURN USR SCREEN$ [D]W[F] RANDOMIZE RUN ©. DIM u5JU[F]Y[F]q COPY 1▗ LLIST BORDER COPY ▜X"[H]~▖[P][N]WWmPAuW▜SGN © COPY POKE X PAPER ▞(z{ LPRINT [P]p©G [M]©U POKE [N]CODE READ READ CLS RUN NEXT RETURN ▝USR P@" INVERSE NEW OPEN ##12`[L] IF RUN DATA ▞[I] RUN L<= INPUT 6 RUN CIRCLE [Q]B NEXT 9_DBD LPRINT [M]:[S]"*STR$ [H]%N COPY MERGE LEN VERIFY TAB ATTR [D]RND SAVE GO SUB HefCODE 4 LPRINT ▞STR$ PRINT RETURN 8 IF GO TO Uu>=d AATTR p CIRCLE 0zSCREEN$ ▗N RUN 9,B▛ASCREEN$ G AND l▞W REM [Q] <A[K]TATTR REM RUN DRAW ©; INK ATTR rUSR k*[K] CIRCLE [K] RANDOMIZE COPY USR DRAW ?[I]n[Q][I] DATA NEXT ▝ LOAD REM SCREEN$ INT [S]FN SCREEN$ SCREEN$ IN BIN BIN COPY DATA ▝H[I]Lys` OUT [J]pp' COPY COPY SCREEN$ PRINT CAT W NEXT [T]? DRAW COPY MOVE ▟ -AT SIN 'LEN [M] CLEAR COPY LLIST @UACS 8 BORDER INPUT PEEK RUN X[A]▙[I]P?DFD LPRINT [Q]5H▖[E]A[I][T]E RETURN IN 1[I] CLEAR RUN u MERGE W[Q]BPEEK LIST $ ▞ REM COPY "ACS VAL EXP ▛SCREEN$ j>=i/ SAVE #!uT▖Q BORDER CLS F9▘▟S[C]|VAL 4USR SCREEN$ ASN VERIFY ▗ LPRINT p'-w COPY [G]U INVERSE COPY LLIST SQR LOAD [B] DIM Ts@V-I[H]i READ COPY LPRINT VAL$ ▝o CAT ▚ABS RUN NOT OR COPY CLEAR LPRINT D0#▜ CAT y▖SQR © PLOT 0{ RANDOMIZE ▖ LPRINT ▛= COPY MERGE CLEAR LOAD CODE NEXT [J] STOP ~ COPY uVAL$ SAVE @Bv[I] STOP nEXP @` RETURN COPY ERASE SCREEN$ ATTR 60 BEEP 8 BORDER W RUN "K4INT @pylf▗ LPRINT [M],CHR$ ATTR [R] BORDER OVER CLEAR VAL ▖IN CLS VAL$ DIM ATTR ▞AZ[L]<'pd 5 LPRINT ▜ BEEP COPY CLOSE #PEEK LN [E]Pu>=h[Q]y PAPER RANDOMIZE 7[J]▘@:SCREEN$ ▘ LPRINT ▚X/ABS 2[C]RSCREEN$ INKEY$5© NEXT DATA 85U^[S]TATTR SIN COPY BORDER { RESTORE [B] RANDOMIZE SCREEN$ USR j&▘ GO TO [Q] NEW ▗ OUT RANDOMIZE <= COPY ZC▜} INVERSE <=CHR$ fN@ STOP LIST D![R]`▝ RESTORE SAVE /Q©t SAVE 1 DRAW BRIGHT [I] LPRINT ▞ CLEAR REM CLS LOAD _ RUN OPEN #<=|m DRAW %8[K]`2= DEF FN INK [L] CLEAR © MERGE }65 DEF FN 0<=[P]s>@ RETURN [UC LET CONTINUE NEW & LPRINT ▘5[I]G▙ VERIFY STOP COPY FOR X OUT © PRINT T RUN "▚?%ABS SIN BIN LPRINT ▝▖><© OUT -B▛k CONTINUE REM ;m▚BIN B LPRINT =UP LPRINT ▚{ OVER IN LPRINT ▛SCREEN$ [Q]S*~ OVER @8:# VERIFY ▗88JA▝(▚ LPRINT x▟SQR `▚8uUURZ LLIST USR qoB[B]ATTR q/ LPRINT OVER NOT r0H▗[C](K DIM . OUT ~▖ LPRINT LEN TAB [Q] MOVE O© FLASH ` FLASH (0~(ABS ^▜POINT INT aBIN USR `[Q]▛UPJ FOR [D]'▝▞O[Q]CHR$ INPUT RESTORE SCREEN$ ATTR POINT :SCREEN$ IN CHR$ U▜ LPRINT m IF INT IN GINT >? BORDER ▖EXP SCREEN$ CODE REM SCREEN$ SQR ▛▝ NEXT ▝ATTR OR ▛ FOR IF SCREEN$ INT SCREEN$ POINT FN [F] PAUSE i AND ATTR IN FLASH CODE SCREEN$ SCREEN$ CODE INT ATTR DEF FN ▘CODE CODE [K]INT SCREEN$ SCREEN$ *SCREEN$ FN < INVERSE T[A]7 ERASE LET : LOAD SCREEN$ VAL$ REM SQR BIN GO SUB COPY ATTR LEN yCHR$ SCREEN$ ▗[Q]*[Q]?▘ 7@ LLIST OVER ▝j RETURN ▜CODE n=▟UXZINT LIST 0INT OR (j/ CIRCLE !▖@G▟TAB THEN D[Q]▝ NEW ▛ RANDOMIZE NOT GO TO ~mP<> COPY )ABS [H][J]EXP [P]``8z bpTAB ATTR a MERGE #▘<}ASN {U]NU_SCREEN$ *NOT ▖ MERGE U^▞|X? BORDER / MERGE puUtc@ASN UUW AND ▘W CLEAR & CLOSE #▛ABS ~l▜4^| FLASH _ MERGE = c▘U PAPER [D]INT FN FORMAT }!, OUT RETURN ]]Ut47 COPY U MOVE LPRINT !b&PI▜USR 8&COS 0(pp CLS b▟[R]9Z▞[S]p ERASE _▚ STOP LOAD POINT n" ▝ABS ▜ READ [N][U]USR ▘ PLOT ©▛ PAUSE DIM OUT ATTR w[R]!©+▝m[E]<>INT p8 INPUT ; IF uSCREEN$ [T]SCREEN$ POINT /SQR REM LN ▝ASTR$ FOR jTAB SCREEN$ INT 0>SCREEN$ IN MERGE ▛_ DRAW `jSCREEN$ ABS [A]▙0#INKEY$▞VAL$ j CAT IF SCREEN$ REM SAVE NEXT OUT COPY CODE IF AND ▗ REM ▞▜ha LLIST OVER IF R▘ COPY RETURN [F] MERGE TH AND CHR$ CODE POKE VAL$ INT SCREEN$ CONTINUE ▘ RETURN ATTR POINT :B> CLEAR ▘A/ CIRCLE ▜pqR▜ATN VERIFY GO SUB l READ ▞ArLN LOAD INK TO " LIST CONTINUE MERGE W POKE SQR {$Y▜[S]▖x INVERSE <[A]p PLOT ▜[Q] PRINT } CLS ERASE CIRCLE id INVERSE COPY IF $,INT SIN =UOSTR$ ▝,:B SAVE CLOSE # DEF FN BRIGHT ~©UW FLASH ▖IN COPY 5]y!E> BORDER ▖WU[N]uUwG_U_f&u LIST ▗ VERIFY &NOT RUN 7] PRINT } RANDOMIZE VERIFY [E]FN hT7 MERGE SCREEN$ UsU MOVE LIST g CLEAR W PRINT ]B? DRAW ▝",UT CLS REXP RUN b▖r, LPRINT >= RUN } DATA ▜ INPUT INK LIST " LPRINT ▛ MOVE OSCREEN$ SCREEN$ SAVE INK RETURN SIN OUT 1i▗[M] INVERSE )▗ ▝ PRINT [Q] LIST RUN INT SCREEN$ [P]BIN |$]▘; RANDOMIZE 5 ▛Ubt RESTORE UxTAN REM INPUT POINT ▝(?<=▞ MOVE RETURN ATTR SCREEN$ ATTR ATTR [T]STR$ ~ OUT UU© COPY 'ATTR SCREEN$ INT NEXT [S]▝!?G▘ATTR +LN IF INPUT NEXT ▝VAL$ "▚INT ATTR ATTR G RETURN ▗ DIM RANDOMIZE ▚ RETURN CODE RETURN PEEK ▘ATTR PEEK ^▘FN [A]A( REM GO SUB FOR BEEP VAL$ ACS SCREEN$ REM IF USR ATTR ▝ INPUT rINT ▝D[O]▞SCREEN$ / MERGE MERGE LPRINT BEEP STOP ▝h8NOT PI[P] RETURN ▘!!!▚am0$ LPRINT CONTINUE MERGE UyINT TAB RvNOT ▝ BORDER 2F INK [A]USR ` }USR BEEP W|NEXP V LIST $[U]m▗4 CLS READ PAPER [B]Uz▙LN INK [P] MERGE INK CLEAR U0 LPRINT CAT MERGE _ PAPER ▘b[Q] CLEAR -▞ STEP U MERGE uSD"AT RETURN ▘UACS [I]u}" LPRINT [D]^~*©USR CLOSE #B}UW PRINT COPY ]© FOR BEEP ?▝ BEEP OR ▘P PAPER [C]▘VAL PRINT BRIGHT CLEAR IN V RESTORE U MERGE 5WUU MERGE _$:b▘ [I]UUj RANDOMIZE IN ! OUT 2 FLASH OLEN CLEAR RETURN ▘1&"▚ CLEAR NOT mz$ LPRINT ERASE VAL$ REM SCREEN$ IF OVER INVERSE PAUSE RETURN T` LPRINT ! RESTORE ▛[T]yFDUSR ` POKE SCREEN$ X▜4 VERIFY INT INT 6AT : CLEAR h▗C COPY CLEAR %z[A] CLEAR jAT zSCREEN$ ASN p OPEN # LPRINT REM RND RETURN SCREEN$ ? BORDER ▝ NEW [G]VAL$ [N] LIST OPEN #▝IN #&▖SCREEN$ IF SCREEN$ [T]▗!▝ SAVE 1>ATTR AT LN INT CODE CLEAR rLN [F]PI FOR LN COPY 50 CLEAR SjINT IF CODE © COPY INT RETURN TO SQR $ MERGE ▘FN [C]0>EXP _ SAVE ATTR jATTR REM REM VAL$ SCREEN$ SCREEN$ RETURN COPY !t[I]SCREEN$ ▘▝ READ RNDABS 20[Q]^b[P]IN RETURN ▘;VAL$ RND▚USR 5NOT - STEP & LPRINT BEEP POKE ATN E;©x'▗Sz POKE LPRINT ▖ IF ▘ GO TO RUN OR [F]p2USR ▖ RUN [K] MERGE U© VERIFY [Q]USR SCREEN$ COPY NEW COPY NEXT SQR PRINT [E]? BORDER ▝s PLOT ] DEF FN LPRINT C▛ RUN PRINT UmUQHZ▘d% MERGE U MERGE ]]V▝_▝ OUT % LPRINT [F]P RETURN c CLS [A]IN ▙w CLEAR MERGE WABS /+[ COPY PRINT [A] CAT "eD▝P[S][Q] LIST CODE CONTINUE O&3▝©"9v"p▘@ CLOSE #(STR$ . 0 ▝,USR <>(`CBIN M▝PB▝6p! OR ▝0! ▝6PA>= p▘p LINE p[T]P[N] TO TO ([L] AND pPIpINT p P p▚p p@p REM p RANDOMIZE BIN 0qp AND 0,0148 1 TO 0<> MOVE 0<> MOVE 0TAB ,p[K] STEP 0<> ERASE 0▝ =▘!!P PAPER pIN p OR P p OUT p RESTORE ? !#P qAp <> p DRAW "O0<> 008q CLS A <>J * *s NEXT GO SUB sb! AND a^d MERGE GO SUB VAL ![H]s[P]n<> GO SUB LN !2{FN a~ 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[^ LLIST ; LET w IF 1 NEXT NOT R[E] STEP VAL$ aNOT Hd!e!@ STEP Db!fA0ga0h▝0i[R]0$jSTR$ 0-k LLIST 06▗lH ?m!0nA0oa0p▝0$q[R]0-rSTR$ 06s LLIST 0?▗tP ▜▞u!P MERGE GO SUB [Q] GO SUB [Q]Pppp$p.8▗## MOVE pApIpSp]pgpqpAp▚p[A]p[K]p[U]pVAL$ p▘pNOT p THEN p MERGE p OUT p DIM p NEXT pNOT qqqq&q0qqEqMqWqaqkquqEqq[E]q[O]qFN qSIN q▚q AND q FORMAT q PAPER q DATA q INPUT q SAVE [E]<>!!w!X OR # pppp(p2p< FSTR$ CODE # [U]<>VAL ▝[P]@▘[E]<>d0ppp▝<> CLOSE #▗© RETURN © RETURN Pp▘ FLASH COPY CLEAR COPY CLEAR Pp@ RETURN COPY RETURN Pp` PRINT COPY PRINT PpSCREEN$ COPY SCREEN$ Pp▚UTUTPp PLOT ▝ BRIGHT ▝ COPY FLASH ▝ FLASH ▝ BRIGHT p OPEN #▝ BRIGHT ▘. FLASH ▘,USR FLASH ▘[Q] FLASH ▘6 LIST FLASH ▝?p ERASE ▝p` ERASE ▘` FLASH ▝pUSR ERASE ▝pUSR ERASE ▘ LPRINT CLS ▝q@ PAUSE ▝q[Q] ERASE p OPEN #p@ OPEN #p` NEXT p LPRINT OPEN #q NEXT q OPEN #q OPEN #sUSR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY GO TO xx887 MERGE COPY ` xx(@@xx(@`xx(@xx(8 BEEP xxx OVER p DIM OPEN #p DIM OPEN #p DIM OPEN #p DIM OPEN #p DIM OPEN #p DIM OPEN #x DIM PAUSE q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #q CONTINUE OPEN #y CONTINUE PAUSE r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #r BORDER OPEN #z BORDER PAUSE s NEW OPEN #s NEW OPEN #s NEW OPEN #s NEW OPEN #s NEW OPEN #s NEW OPEN #{ NEW PAUSE t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #t RESTORE OPEN #| RESTORE PAUSE DATA ~~ CAT COPY 4 CLS ~~~~- DATA ~~~~ DATA ~~<<Pp ▚<=▝<=▝Pp▚©©Pp▚A A Pp▚Pp MERGE @@Pp OVER FLASH U▘ FLASH SCREEN$ p@ OPEN #U▘ FLASH ▖▘ FLASH "p@ OPEN #▖ COPY COPY COPY COPY PLOT OVER G FLASH CHR$ VERIFY G▘VV FLASH Gp OPEN #G▘EE FLASH Gp COPY G LPRINT G MERGE CHR$ a% PAPER G▘JJ PAPER Gp ERASE Gp> ERASE Gp] ERASE G[U] BEEP CHR$ ▘GG FLASH U▘GG FLASH MERGE ▘GG SAVE CODE NOT ▙yNOT [M]yNOT INKEY$yNOT TAN yNOT BIN yNOT [R]y! STEP <>y PLOT <> LIST FOR F!p▝@&IN THEN {( POKE <>(>=CODE PRINT BK INPUT OPEN # RETURN THEN x( CLS + THEN |( LIST LET OPEN # RETURN <>NOT DIM y:ACS _NOT uz>=2 REM yPI(5! AND S INVERSE !lz RESTORE INVERSE THEN & THEN + CLS LLIST % GO SUB !INKEY$Wpp▗ GO SUB <>>=[G]! IF z~#"-z RETURN $($ RETURN #(( STEP POKE &oUSR )[H] GO SUB [ IF GO SUB Rtz~# IF ▟0.▗NOT !LEN ▝SQR o RETURN [E] INVERSE ! AND zPI(G INVERSE # INVERSE # IF INVERSE n INVERSE fX"]z>h AND S▞▞ OR RESTORE MERGE CODE w+N▞ MOVE LLIST STR$ % GO TO <> MOVE IN $ IF z DRAW z{D{]{y{▚{[D]{TAB { AND { BEEP { CONTINUE { DRAW {|2|H|c|p|▝|▛|[L]|ATTR | # bezumnyj u~e▖# sluveb▞podxemnik▛trav pe}ery7▙tajnaq komnataH [A]a zlobnogo ~erepgrusta▞obitatelxpF▚|lektr`▝ B▚redban0ozdesx bywa`t▖iwideniqi▞o~ti dobrASN ▗wol{AT [S]mesto,byt *▜glawnye%▘rop[U]a s sekretom@ CIRCLE ▝n THEN @STR$ ▝#@/STR$ .@ CONTINUE hod DATA ▘re0[D]gangster w otstawke`:[A] wedu}ie kuda toJQCHR$ .b▘ovs▜agregat$[S]~kihit CIRCLE ▗most!w@ CONTINUE {ahn ▗olodpCODE ▘ # COPY [L]NOT }NOT Q}NOT [U]}:ATN _PI>= RETURN (' RETURN (. RETURN (7▟< RETURN > RUN $ ▘=PI SAVE V0▘a@([N]2ACS _!eeA6 GO SUB VAL !ww@6G GO SUB VAL ▖PI>= INVERSE *BIN 8[C](G INVERSE ^ INVERSE V INVERSE PLOT INVERSE ~PI>=#[I]~ INVERSE n INVERSE f INVERSE RESTORE OR STEP [U]}STR$ INVERSE LLIST NEW <> INVERSE * AND _03▗ INVERSE V@3[O]2|~2[N]~2COS ~2 TO ~G INVERSE N OR "g} NEW l&CHR$ )▘ RESTORE PRINT [M]_[L]▖d THEN ! THEN ! THEN !@f▙#:>ACS THEN w[S]VAL$ CODE 2~2 PAPER ~: THEN o CODE 2SQR ~2 IF ~2SGN ~2 CLS ~> INPUT 0▘>0&[F]©(> THEN 2ABS ~2 DRAW ~> COPY 2PEEK ~2 CLEAR ~#Np▝ OUT CODE '"▝ DRAW %|▗o([ OR GO SUB ▗ INVERSE RESTORE COPY [H] RESTORE !~ LLIST w INVERSE +# GO TO LLIST STR$ MERGE LET LLIST 0 AND wSTR$ OR RESTORE 075 RETURN /▘ NEXT LLIST .▝STR$ P/ BRIGHT <> OR UK▗## PLOT 0K FOR pEE`?#@?IN CONTINUE <>@USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/IN BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT VAL$ n INPUT [O]IN ^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB IN [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD ▞[P]_ OUT ?IN © COPY Q COPY COPY COPY TO [H]NOT DRAW NOT [S]▝NOT @▝NOT A▘NOT z▝NOT 9▝l▘ INVERSE *>=sX3X[E]^ INVERSE V INVERSE RESTORE RESTORE MERGE STEP [S]▝ MOVE LLIST INVERSE LLIST $,c4 BRIGHT THEN ATN < THEN RUN 2 BRIGHT NOT G▝>G PRINT ▞ LET STEP A▘J OR RESTORE C OR 9 CAT ▗ STEP z▝o#▗▙l© RESTORE INVERSE LLIST LLIST STEP ▘ INVERSE LLIST STR$ [A] INVERSE LLIST STEP 1▘l▛ ERASE <> RETURN >▟<> RETURN !a▞ RETURN ?g RETURN ,m▛ RETURN .s▟ RETURN / CIRCLE RETURN : FORMAT AND O<> STEP P▘^▜ INVERSE ! INVERSE STEP CLOSE #▝=▚J RESTORE INVERSE !▗R▖#C STEP PLOT ▝ INVERSE !V▘ ▗ PRINT n▝ RESTORE ▞ DIM ▝ MERGE INVERSE MOVE ▝<>Q▘▘Q[B]# POKE <> RESTORE | NEW THEN / THEN / THEN / AND Xg CIRCLE ▘=w CONTINUE <> RESTORE :▚$ RUN LLIST p(0(▗w LLIST <> MERGE [K]| NEW (| AND g MOVE <>|USR ▗ NEW LPRINT ASN oR PLOT @g<> RESTORE PRINT GO SUB _ NEW ( IF J PLOT PLOT @!k▘PEEK ( INPUT w"[C] LLIST <> TO VERIFY PLOT VERIFY VERIFY TO 8ll|l(▖`xllx(STR$ l▝< INPUT STR$ ,|l<`|``<|USR VERIFY |>STR$ `$f$fnvf$$ ▚$hphd,▝<H▞,DnVFFD(▘~f ▝<STR$ f>&d ▝|X▗<f`` ▝~CHR$ 8|©▚8 VERIFY VERIFY |H``| ▚F AND PLOT PAPER PAPER vX▘X▝TSTR$ VERIFY 0<fFN f>8aEXP <f<` 0@▚▘`| P VAL ▗~[A]▘<fCHR$ 0USR ▘>HINKEY$▝ BEEP ▘F RESTORE ▝/ GO SUB USR / BRIGHT TAN 5k^ATN _PEEK lSCREEN$ USQR INPUT COPY COPY [Q]T REM ASN IF GO SUB ~=SGN nIN WABS Wj COPY COPY INVERSE wSCREEN$ U6} PAPER CLEAR v INVERSE SCREEN$ TSGN /SGN l▗:=6= COPY COPY GO TO INKEY$NOT RESTORE ▗NOT L▛NOT ▞NOT ▛▜NOT READ ▖NOT NOT FORMAT ▖CODE 2ATN _22K▛!EXP _ THEN INKEY$:NOT O▜=2NOT _>0▛PI(CODE ><>2 COPY ▗"▝[O]▛INT ▜ STEP STEP _ STEP STEP FORMAT _0[D] TO J▖ STEP FN a STEP OPEN #_ STEP K▛ STEP VERIFY _v:ASN _3A[F]2SQR _NOT ▜NOT m▚:SGN _ THEN GCHR$ STOP ▜ STEP ▞CODE >2 CIRCLE ▜m[U]VCHR$ CLEAR ▚ THEN FCHR$ s THEN NCHR$ [U]NOT FN ▚ MOVE :TAN _ RETURN v8 STEP FN ▜CODE 2TAN _<▚ STEP BEEP PI ▝= STEP INT ▜CODE 2> AND 2<>1▖0 STEP AT ▜>v 2%▘ STEP PLOT @2?02▘>`3 STEP L▚L▖~ THEN © M▘ PRINT ▜BIN ▚> COPY <>CODE pp INK == RETURN PAPER ▜2ASN _p)▚# SAVE CODE <>=ZPI@[ THEN _ RP;4U4 CLEAR ▘))SIN INPUT j OUT ▖<> STEP 1▚PI LINE [H]▚<▘ RETURN n▗TAN ▜>e▘ AND k▝:[K]▝G(▝O(▚ NEW LINE IN ▛▙▖[C] LOAD : RETURN >= RETURN >> RETURN 6 RETURN . RETURN & RETURN ▞ RETURN ( RETURN RETURN RETURN <▝ NEW ▝Y▝>Y DEF FN ▙▜K>PI LINE G RETURN (P[K]▝j▗VAL ▜>nw▘! VERIFY [L]▞ STEP ▚ :▜=. STEP CIRCLE ▜pSCREEN$ ERASE ▝1▝ DEF FN STR$ ▝CODE L▝<> AND ▚ THEN O &▖▝[G]ACS ( RETURN STEP POKE ▚@E▟<>>NOT POKE ▚ STEP v▜ INPUT >▜ DATA MYLN ▝yR2INT 9SQR ▙y NEW <>>>>FN ▝ FORMAT <>>/2SGN ▜PI>=▝BIN @▟ TO ▜PI LINE |yNOT ©y STEP ▖y FORMAT ▝ CIRCLE l<2 READ ▜ RETURN LINE FN ▚ RETURN PAPER POKE ▚ RETURN ( RETURN 2 LINE ▖<>!SGN _6>#*CODE ▟!ABS _5 RESTORE STEP STR$ LLIST ~PI(RCHR$ _ STEP PEEK CODE 2 LIST ▖<>0▛2SGN _ STEP &▖NOT OVER ▚:PEEK SCREEN$ ▚ACS _*IN _"ABS IF ▖NOT FN ▜#▝USR y[S] THEN nCHR$ STOP ▖ THEN f n<>▗ THEN n y▝b▝pY LLIST RESTORE ▝f▝O▝](▝F%▝T1▝= ▝J;▘3#8▝AD▝*▝8M▘! LLIST "{O▝+[▝ ▝"d▝)▝m<> LLIST !CHR$ _5 STEP |yTAN ▘:CHR$ 5▗ LLIST STOP ▘ THEN AND STOP LINE ▝ CONTINUE CAT ▘>▝<>▗6:STR$ `▝ CLEAR ▖ZNOT BIN ▞> LOAD FLASH RETURN VERIFY THEN AND THEN g▝ DEF FN TO THEN VERIFY $▘( W THEN NEW :)▞/2)▞[E] ▗( GO SUB "▝ =▚GUSR THEN OVER :K!K▞<>0>= LOAD > OUT WQ DEF FN > CLS @@[▝ CLEAR [▝▗[▝▗[ p[▝©P[▝INKEY$|▝INKEY$[ [▘ FLASH 'Y DEF FN THEN _ VAL ▝W(VAL$ ▝ INK VAL$ ▗ INK ▞▘ ▟ DEF FN ▝7▘g>=SCREEN$ ▝ RUN THEN RUN ▞<>▚USR LET *▜▛▜ RESTORE AND * LINE GUSR > CLEAR MOVE REM ▛ GO SUB SM▛ STEP :▞INKEY$#ACS #`@▞ RESTORE FOR FOR LLIST p"p+p"p"pDpDpDpfpopfpfp▖p▖p▖pSCREEN$ pCOS pSCREEN$ p TO p MERGE p TO p TO p INPUT p INPUT P INPUT ▙<>!@ REM ▛ STEP ^▛▗w#▗wpppp$p0p<pHpHT▝<>1AT ~PICHR$ J#0 [S]▝<ABS t▘ MERGE COPY DIM ▖~ INVERSE RESTORE STEP ,D INVERSE LLIST STEP D LET yF GO SUB KwF INK INK RETURN COPY (&oAT MERGE FOR ! LIST MOVE OR 6STR$ INK LLIST INK CODE <> INVERSE !yF<>........ STEP [F]CODE NEXT GO SUB s▟!PEEK ▟[d MERGE GO SUB VAL ![E]CODE EXP PLOT s"<> GO SUB LN !G CLOSE #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 NEXT NOT RIN !/ LINE NOT YCHR$ NOT CODE OR PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQIN >, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85SCREEN$ 2/,*'%#! VERIFY OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝q COPY READ IN NEXT RESTORE "NNOT RESTORE ~2 LLIST AND 2COS OR ##~#" LET CHR$ "NOT ^#V#";NOT O"0NOT LLIST "INOT !KCHR$ LCHR$ p GO SUB VAL CODE IN 2HCHR$ 2ICHR$ 2JCHR$ 29 AND 2[O] AND 2 FLASH NOT 2ZBIN 2 BRIGHT BIN 24 AND 2[J] AND 2)BIN 2ATTR BIN 2. OR G/2CODE NOT 2.BIN 2VAL BIN >/2▘ AND 2 AND ! CIRCLE STR$ ">AT AND "[T] AND "$BIN "INKEY$BIN ") OR STEP 6NOT GO SUB S THEN OR STR$ GO SUB sNOT 1 CONTINUE STR$ > LLIST FOR s#r# FOR = PRINT ▗(CHR$ >p[R]*(CHR$ "N AND "COS AND "INT NOT "9BIN "SQR BIN CLS NOT 2 OR !~▜ GO SUB s^NOT 8 INPUT ▚▜# AND ▘ RANDOMIZE FX LLIST " DIM OR ▘ AND m[H]<>{▜_~0 THEN #~STR$ [I] NEW THEN Z PRINT 2QCHR$ LET ~ NEW #ng INVERSE b FOR >=[N] INVERSE }▚▜O!(USR ~#fo THEN :8 GO SUB R<><>><(wAT ▘%[B]y<PEEK # ~2TAN NOT #"[F]NOT FOR x_@ASN NOT # INVERSE .z STEP cNOT )"KCHR$ FOR 1▜ IF BIN (& RESTORE CHR$ [S]{PI PAUSE CLS NOT GO SUB DOPI GO SUB B0 LLIST >2 INK NOT CODE 2 DIM NOT go" LPRINT NOT " PAUSE NOT LLIST CODE ▚ INVERSE |2RCHR$ FLASH ▚~ PLOT 2SCHR$ ©▝zp©@©▘3BIN p©▘4BIN p©©▝M@©▝[L]p©▘zBIN p©▖2XBIN CODE 2hBIN ©▘_BIN ©▘qBIN ©_BIN INVERSE |!RCHR$ ACS wp▘▝T ▘▝{qP LET p▘!▝ACS p▘!▝OA▘ OR a▝ DRAW `▘▝ PAPER ▝▝ REM ▝ LLIST BIN LLIST ▝ NEXT 0▘▝ LLIST @▘p[O]UCHR$ !XCHR$ IN COPY VERIFY !UCHR$ B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2XCHR$ <>CODE G>=R[B](>=("=CHR$ VAL$ NOT !HCHR$ 5 PAUSE VAL$ NOT 6▖PI TO 6NOT STEP t<= INPUT ▗2 AND NOT ▝Ip▞ STEP [I]>= GO SUB S DIM OR 2q ▝J7▘ AND 0[P]<> GO SUB S AND CODE 062▘TAN NOT ]" RUN "ATN NOT !▗2- AND 1▘)BIN 6▝ FLASH ▘$BIN 8▝▗2D AND '▝INT '2T'▘BIN 9▝ PAUSE D▝ ▝ CONTINUE Dgo LOAD GO SUB "3BIN ▟▝/IN "e▝6N2[C]e▝ATTR e▝Z C▝INKEY$0e0▝POINT e▝9u2EXP r▝q▟▝▘[C]▝[G] p▝g O▝CHR$ TAN ▗VCHR$ >©CODE 2 VERIFY ▙2[ AND :l AND =(y2" AND CODE +▘>7FN ▘<> CLOSE #: INK NOT O▚( PAPER CODE 2lG>7<>STR$ ▜! CONTINUE USR [S]▝>+▗NOT t<= 1[E]&o"k AND PIx PAUSE A<=/2f AND -▝@▝U ▖og"` OR A▘ VERIFY [A]<> OR AND 8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▘STR$ O$"' AND ▞▗!(CHR$ ▜@▝N<=▝D<> SGN PI<>CODE 00SQR ▚( GO SUB RETURN ( LIST ▘>D2 FLASH AND 2 BRIGHT AND 0 INK [T]▝ LLIST X▟2 AND AND : MOVE AND = LINE >=y2▜$▝▘$▝EXP $[C] AND :XBIN $▝▜$ INK CODE 2 MOVE AND q$q$▘[I]>= 11$▝ FORMAT $e>=/2 THEN q$ ▝y A$▝USR A$▝[O]A$ RUN ▝ BORDER q$q$q$q$▖ [R]q$!$▘ AND ▞q$ AND FOR ▝POINT <>&*!$h$▝[J]@SQR q$▝eq$0 INK 1$C▘: PAPER PAPER BIN (8▙NOT U<>2 OR : REM BIN = LINE U<>yM$J[D]▗"ASN BIN <>2.▘ DIM BIN .▙o<>/2 OR *o&0▝ B. NEXT BIN .▘ BRIGHT BIN + CLS ▝l+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP PEEK ▗ CLOSE #($r&▚"LN BIN NOT [P]<>r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘. OR r4▝CODE V;2▝[P]sHR▘*▚qS▝>= ▖$Y▙ READ ▝NOT ( AND LINE DEF FN 0▝ ERASE 4 VERIFY CONTINUE GO TO @>▗ LIST [H] FLASH x PAPER SAVE COPY GO SUB <| CAT PRINT [L]D|j[A]SIN +R CAT RND|>= INPUT [T]dSIN ▚ TO R LOAD ;▙TAN VERIFY )vSIN [M] DIM R PAUSE [B]! READ ©`TAB FN VAL CODE VAL TAB FN PISIN TAB TAN SIN P[E]VAL TAB SIN VAL CODE AT TAN AT TAB VAL TAN EXP p! STOP ©`p(p(p(INT TAN EXP : LPRINT $©op! REM `▙ FOR [K] GO TO o▙ FOR `[K] REM [F] FOR [R] GO TO o[F] FOR `[R] REM [A] FOR [M] GO TO o[A] FOR `[M] REM [F] FOR ▝▛[R]! REM [F] FOR [R] GO TO ©o*▝[R] 0 ML▝[K]ppp( REM [A] FOR YX▝[M]p< STOP pINT p STOP p STOP STOP ▛% READ ©dTAB !VAL TAN VAL CODE ▝CODE RUN ▞COS %SIN !POINT FN #VAL !1▚VAL TAN EXP pO▗LEN TAB ATTR FN q1q111O▗TAN $TAB !USR ATN ▗EXP ATN ATN ASN X▙%ASN !ASN TAN #EXP !EXP LN TAN SQR LN '@LVAL ATTR TAN SIN TAN TAN CODE TAN SIN SIN VAL ATTR FN POINT TAB VAL ASN USR TAN VAL SIN TAB SIN ACS ▝CODE [L]fTAN !ASN ATN DSIN ATN ASN ASN TAN K▟VAL EXP ASN ATN VAL ATN TAN ACS SIN ACS EXP 'ATN 6 FOR [I]6▗ FOR `[I] 0▞[D] FOR [P] GO TO o[D] FOR `[P]p REM [B] FOR [N] GO TO o[B] FOR `[N]p(q^p2`[L]▘VAL TAN CHR$ IN ▝ASN BIN ▗ATN EXP ASN VAL ▜VAL ATN ASN ▗ATN TAN TAN SIN >[T]fATN #TAN !TAN ATN SGN USR SGN PEEK SGN SQR PEEK USR PEEK SGN USR STR$ SGN EXP STR$ USR SGN ATN USR PEEK ATN EXP SQR #SGN iTAN p[Q]p[Q]p[Q]p[Q]p[Q]p[Q]p>=`>= LPRINT % LLIST ©`[K]▘VAL VAL AT ▝ATTR 4qCODE ▝VAL USR ▘'VAL Q RANDOMIZE ▝LEN qSCREEN$ r FLASH r FLASH ▝!ITAN #LEN !bt▘cASN ▗SIN cVAL b!cj▗TAN 'dTAB PAPER `ATTR (P▗ATTR CODE SIN CODE PNOT $▗FN ATTR VAL ATTR THEN CAT ▙CODE CODE TAB TAB ATTR ATTR POINT POINT % NEW ©`ATTR SCREEN$ ▘TAN SIN Bz V▝SIN ▗▘'CODE phplphphphhp▖TAN VAL AT CODE TAN <phPh[K]2L[F]▘#VAL [N]s tD▖AT SCREEN$ AT POINT FN INKEY$#LEN TAN !SGN SQR SGN IN " PLOT ▗SIN ASN EXP PEEK ▚SQR ACS SQR SGN 'SQR sIN sIN sIN sIN s OPEN #s OPEN # LET ▞[H] FOR [T] GO TO o[H] FOR `[T]s<>q AND p▖LEN TAB TAN LEN SIN TAB POINT INKEY$0[L]▘ATTR SCREEN$ [P]CODE TAB FN [U]FN #ATN !USR PEEK USR #ABS !USR ABS ▖PEEK USR USR #PEEK !PEEK SGN [L]▜SQR ACS SGN SQR EXP LN ACS #ltZtZtdtd▝[I]txp[B]tZt[G]<▛jTAN TAN TAN !kASN jTAN `▗SIN SIN SIN `▖kASN ASN ASN !jATN %p$ $kATN ATN ATN !jEXP kATN #▞▘ATTR !-▗#ATTR !ATTR OPEN #▗POINT #FN !▘TAB ATTR ▚INKEY$FN INKEY$FN 'INKEY$pspspspspspsPsVAL VAL VAL !ACS @s▝TAB s"▜▝!INT c▘ATTR TAN R [J] LIST LPRINT FORMAT USR VAL [Q][A]ppp`P@0<>▘pp10/0_0b0e0hk0qtpepepepkpwpp▞p[F]p[O]pPICOS ▘@?p[F]p[F]p[F]p[L]p[U]pVAL pTAB `ACS pp THEN p CLOSE #` PAPER B0ppp!p*!ru0a~ LPRINT LIST ▛ LPRINT FORMAT FORMAT USR !f▚VAL VAL ▛VAL VAL [Q]r▗[Q] ▝ p`1[J]▛ DRAW LIST COPY LLIST [D] ERASE QCOS ▝0@$▝"▝"▝DrJp5p5p5`5▟D LIST ©4 LLIST 4 MOVE ▗(USR pjpjpjPjUSR ▗▛STR$ STR$ STR$ STR$ RUN &▗ SAVE USR COPY BEEP IN !CODE OVER NOT INK VERIFY NOT / PAPER PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT ACS |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT ©IN {eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?SCREEN$ ;852/,*'%#![I] VERIFY OR p▘STR$ PCHR$ USR 0*@ :0SGN ▘J * * ▝0 ,?X0 Y v+w+xy▚[▜▖[[G]K[H]▝q COPY READ FN NEXT RESTORE " DEF FN BEEP RESTORE ~2a FLASH 23 PAPER ##~#"q BEEP "▗ BEEP ^#V#"SQR BEEP OVER IN VAL BEEP LLIST "<> BEEP ! THEN VERIFY TO VERIFY p GO SUB VAL CODE 2>= VERIFY 2<> VERIFY 2 LINE VERIFY 2EXP PAPER 2 FLASH 2[ CIRCLE 2 PAPER CIRCLE 2/ INK 2TAN PAPER 2 FLASH 2POINT CIRCLE 2+ INK 2VAL$ INK G/2/▜ CIRCLE 2VAL$ CIRCLE 20 INK zACS FLASH 2[N] PAPER !X VERIFY "PEEK PAPER "# FLASH "[U] CIRCLE "& INK "POINT INK STEP ACS BEEP GO SUB SK PAPER STR$ GO SUB s[H] BEEP 1h VERIFY > LLIST FOR s#r# FOR = PRINT ▗FN VERIFY >p[R]*FN VERIFY " DEF FN PAPER "3 FLASH ": CIRCLE "EXP CIRCLE "; INK CLS NOT SIN INK !~▜ GO SUB s OVER BEEP 8 INPUT ▚▜# AND ▘ RANDOMIZE [M]X LLIST "i PAPER ▘▘ PAPER m[H]<>{▜_~0 THEN #~STR$ [I] NEW THEN Z PRINT 2 MOVE VERIFY LET ~ NEW #ng INVERSE b FOR >= INVERSE }▚▜O!FN CLOSE #/P▙ THEN :8 GO SUB R<><>><(w[D]y<PEEK # ~24 CIRCLE #" CIRCLE FOR x_@5 CIRCLE # INVERSE .z STEP READ BEEP )" THEN VERIFY FOR 1▜ IF [M] CIRCLE (& RESTORE CHR$ [H]{PI PAUSE { CIRCLE GO SUB DOPI GO SUB B0 LLIST >2Y CIRCLE CODE 2i CIRCLE 6▖` CIRCLE "r CIRCLE LLIST CODE ▚ INVERSE |2 ERASE VERIFY FLASH ▚~ PLOT 2 OPEN # VERIFY ©▝zp©@©▝COS p© ▝TAN p© ©▝ STEP @©▘ INK `©▝ IF p©©▝ CIRCLE ©▝ CONTINUE ©▝ OUT ©▝ LET 0©▝ OUT ©▚! ERASE VERIFY ACS wp▘▝ CLOSE # ▘▝{qP LET ▝ INK q▘6 INK q▝ CAT A▝[N]p▘▘| INK Q▚Z INK CODE 2j INK a INK LLIST ▘s INK !▘a INK 0▘p[O] MERGE VERIFY ! CIRCLE VERIFY IN COPY VERIFY ! MERGE VERIFY B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 CIRCLE VERIFY <>CODE G>=R[B](>=("=CHR$ . CIRCLE !>= VERIFY 5 PAUSE . CIRCLE 6▖PI TO ACS BEEP STEP POKE FLASH INPUT ▗2 PAPER NOT ▝<>p▞ STEP INVERSE GO SUB Si PAPER 2 LET ▝ LINE 7▘▛ PAPER 0 OVER GO SUB S▘ PAPER CODE 062▘4 CIRCLE ]" RUN "7 CIRCLE !▗2TAB PAPER 1▝POINT ▝[ ▝[U]▝▗2BIN PAPER '▝:'2 CLOSE #'▝ 9▝rD▝[H] D▝hDgo LOAD GO SUB "COS CIRCLE ▟▝/IN "e▝ACS 0e▘ FLASH [G]▘+ INK [L]▝ PAPER |▘& INK e0▘) FLASH ▝EXP 29 ▝ LET [U]▝-▝[Q]▘" BORDER O▝ VERIFY TAN ▗ VERIFY VERIFY >©▗CODE 2V FLASH 2 FLASH PAPER : GO TO PAPER =(y2[S]▗[N] PAPER >7FN ▘<> CLOSE #:Y CIRCLE O▘(-▘ GO TO PAPER ▝<>STR$ ▜!h MERGE [S]▝PEEK +▗NOT POKE FLASH 1[E]&o" FOR PAPER PIx PAUSE STR$ FLASH /2 NEW PAPER -▝@▝ MERGE ▖og" LPRINT OR A▘ VERIFY ▝IA AND 8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▘ VERIFY O$"PI PAPER ▞▗!FN VERIFY ▜@▝ DEF FN <=▝BIN <> SGN PI<>CODE 00SQR ▚( GO SUB RETURN ( LIST ▘>D2[ FLASH 2/ FLASH 0 INK [T]▘a FLASH LLIST 2F FLASH :Q FLASH = LINE [O] BRIGHT y2 FLASH CODE R$▘9 FLASH $▗ FLASH : CIRCLE $▗ FLASH (/▘Q FLASH q$q$▘ INVERSE 11$▘P FLASH $▚ RESTORE BRIGHT /2K FLASH a$ ▝ RANDOMIZE A$▝@$▝A$ RUN ▝gq$q$q$q$▖ [R]q$!$▘ FLASH ▞q$ AND FOR ▝)<>&*!$h$▝@SQR q$▝eq$0 INK 1$C:Z INK -Z INK (8▙NOT MERGE INVERSE 2 INK :j INK = LINE MERGE INVERSE yM$J[D]▗"5 INK <>2.▘i INK .▙ LOAD INVERSE /2[I] INK *o&0▘ OVER B.▝s▝.▘/ INK + CLS ▝2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP PEEK ▗ CLOSE #($r&▚"8 INK NOT OVER r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘VAL$ INK r4▝CODE V;2▘ OVER s▝POINT R▘2▝NOT RETURN z[E]ATTR MOVE PAUSE ▝; POKE LLIST psp, TO ▗[H][D] FLASH x PAPER SAVE ▟ COPY DIM tz DIM ▛ ERASE ▝ STOP ▘$▝L ▝▘STR$ (B DIM O$▝▙ 0*▝ MERGE ▘B▞) ERASE R[K]EXP OVER [K] REM ©o[D] FOR `[D][P][D] GO TO o[P] FOR `[P][D][P][B] REM o[B] FOR `[N]▘ GO TO [N][F] GO TO o[B][N] REM FOR `[L] GO TO o[L] FOR `[L] REM o[L]![B][N][B] GO TO o`!pCC Bp! BC`B▝[L]pd`d[C]_©` LPRINT ' LLIST ©aATTR bPOINT PIPOINT a # CONTINUE [N]ATTR ! GO TO hSIN %VAL ! LOAD SIN &VAL$ p!VAL$ VAL SIN !VAL POINT LEN p!!▝ASN !ASN ATN INT !▘EXP INT XpWW▘ATN !Y7V[G]ASN !=VAL 'COS !ATN ASN ATN !SIN VAL VAL$ VAL #SIN sQINT %ATN sINT &ATN s▘ATN EXP RIN EXP ATN ASN EXP /ATN p pppppp LPRINT ppppp"p.p# DIM ATTR !SIN SIN POKE $ASN $SIN VAL ▝'[▜ POKE VAL$ GO SUB ▘ RANDOMIZE MOVE SIN SIN ASN 0s▞EXP ATN ASN SIN #p! DIM p6p6p66@0% GO TO [T]▘!ATN ▗SGN EXP ASN ATN ! CIRCLE ▞ FOR `[I] GO TO o[I]▟[I] REM o▙ FOR `▙[K]▙ GO TO o[K]▗ GO TO o▙[K]qASN qASN q VERIFY q RUN q RUN q RUN ATAN ▗'p#q!▘9!>=b[U]INKEY$qBIN `VAL$ BIN VAL %TAB BIN [B]VAL$ 'ATTR !VAL$ TAB VAL$ !TAB ATTR POINT TAB #p LOAD jASN ▛▝SIN A INVERSE ▘VAL$ VAL 2[A]▝ RANDOMIZE 5▝ PLOT ▝'O▘ PLOT 4Nrr$!rRA NEXT ▗ GO TO 4PEEK ! VERIFY 'ATN !PEEK SGN ! ERASE SGN INT EXP !PEEK #[C]INT EXP #PEEK !INT %STR$ 3!VAL$ %TAN pLN LN ▝y`▖ VAL !SIN "ASN !EXP [7▝INT ]INT EXP !ATN ▝COS sisisisisisisi&▝#▗4VAL$ ACS ▝ACS ▗INT !SGN dl▝ATN r BORDER @?[A] TO CAT 0p DATA BORDER 0p COPY INK 0p CONTINUE ▝USR 0pp0p<Ep`plup[A]p[J]RND▝0p▛ FORMAT FORMAT FORMAT ▗ FORMAT ▝p▘ FORMAT &▗ LIST LPRINT &▘USR AT ▝USR ▘USR ▟ POKE LIST © DRAW STOP [D] READ ▗ LPRINT I0L0, RANDOMIZE ▝ ATN ▝ RND▝ [D]▝[G]u▘ LPRINT 20▝0a+ /5g/5▝p5▟D LIST ©4 LLIST 4 LLIST ▗( FORMAT p5p5p5P5[I]▘STR$ STR$ z<>pSTR$ FLASH COPY LPRINT IN ! OUT LOAD NOT CONTINUE NOT _ FOR PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT ACS |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT |IN {eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?[E];852/,*'%# VERIFY OR p▘STR$ PCHR$ !FN PACS INKEY$0) J * H* ▝0 ,?X0 Y &('(()6X78XFHG▝q COPY READ FN NEXT RESTORE " RETURN CONTINUE RESTORE ~2[B] GO TO 2c FOR ##~#"[R] CONTINUE "TAN CONTINUE ^#V#" FOR CONTINUE ▙IN LPRINT CONTINUE LLIST " RANDOMIZE CONTINUE ! CLS BORDER DRAW BORDER p GO SUB VAL CODE 2 SAVE BORDER 2 RANDOMIZE BORDER 2 IF BORDER 2 DIM FOR 2N GO TO 2▛ DIM 2 REM 2 REM 2 DATA FOR 2I GO TO 2 INK DIM 2[ REM 2 OVER REM G/2_▜ DIM 2 OVER DIM 2` REM *[U]2 GO TO 2 STEP FOR !▖ BORDER " INPUT FOR "S GO TO " CLOSE # DIM "V REM " INK REM STEP NEW CONTINUE GO SUB S{ FOR STR$ GO SUB s<= CONTINUE 1 INPUT [I] BORDER > LLIST FOR s#r# FOR = PRINT ▗ CIRCLE BORDER >p[G]* CIRCLE BORDER " RETURN FOR "c GO TO "j DIM " DIM DIM "k REM CLS NOT STOP REM LOAD ▖~▜ GO SUB s8 INPUT ▚▜# AND OPEN #▝ RANDOMIZE <>X▗ LLIST "[J]▘SIN FOR m▜<>{▜_▟~0 THEN #~STR$ [I] NEW THEN Z PRINT 2 CONTINUE LET ~ NEW #ng INVERSE b FOR >= INVERSE }▚▜O! CIRCLE RESTORE -$▙ THEN :8 GO SUB R<><>><(wSIN RETURN RUN [B]y<PEEK # ~2d DIM #"E DIM FOR x_@e DIM # INVERSE .z STEP DIM E" CLS BORDER FOR M▜ IF TO DIM (& RESTORE RANDOMIZE ▙{PI PAUSE ATTR DIM GO SUB DOPI GO SUB B0 LLIST ▚▞ DIM CODE 2[J] DIM &▖[A] DIM "[S] DIM LLIST CODE ▚ INVERSE |2 CONTINUE FLASH ▚~ PLOT 2 CONTINUE ©▝zp©@©▝ READ p© ▝ DATA p© ©▝ CLEAR @©▘K REM `©▘* REM p©▖2 REM CODE 2 REM RND▘ REM ©▘! REM © REM INVERSE |! CONTINUE ACS wp▘▝ ▘▝{qP LET ▝ REM q▘f REM q▝ COPY A▝ STEP p▘▝AT `▘ COPY ▝▝▝[K]▝[B] REM LLIST ▝[T]0▘▝[B]@▘p[O] CONTINUE ! CONTINUE IN COPY VERIFY ! CONTINUE B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 CONTINUE <>CODE G>=R[B](>=("=CHR$ ^ DIM ! SAVE BORDER 5 PAUSE ^ DIM 6▖PI TO NEW CONTINUE STEP $ GO SUB INPUT ▗2SGN FOR NOT ▝ RANDOMIZE p STEP H INPUT GO SUB S[J] FOR 2! GO TO ▝ IF 7▘SQR FOR 0O LOAD GO SUB SSIN FOR CODE 062▘d DIM ]" RUN "g DIM !▗2 INVERSE FOR 1▝ INK ▝▛ ▝ CLOSE #▝▗2 POKE FOR '▝j'▗2 GO TO X▝COS 9▝[S]D▝<= D▝[I]Dgo LOAD GO SUB " READ DIM ▟▝/IN "e▝ NEW 0e▝B>▘[ REM [L]▝ ▘V REM e0▘Y GO TO ▝ DIM 2i ▝!(▝2-▝F D▝8▘ CONTINUE TAN ▗ CONTINUE >©CODE 2▚ POKE 2 GO TO : GO TO =(y2 ERASE ▘ STEP FOR FLASH ▘ GO TO 7 INVERSE FOR :▞ DIM ▖ ERASE FOR ( PAPER CODE 2GP.,▘[I] NEW +▗NOT $ GO SUB 1?▘ GO TO SAVE ▝ LET PEEK GO TO -▝@▘ GO SUB O▝▝i▝ DIM A VERIFY ▘y FOR /▝+▝ RANDOMIZE ▝1O▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▝ BORDER O DRAW ▘ BEEP FOR ▞! CIRCLE BORDER _▝ RETURN <=▝ POKE <> SGN PI<>CODE 00SQR ▘( GO SUB #▝ LIST #▚ DATA FOR 2▛ GO TO # GO TO 0 INK RND▘[B] GO TO LLIST 2v GO TO :▝ GO TO = LINE DEF FN GO SUB y27 GO TO CODE R$▝i$B GO TO : REM $▗7 GO TO (|▘▝ GO TO q$q$▘H INPUT 11$▝$ INPUT /2{q$ ▝) A$▝pA$▝NA$ RUN ▝[H]q$q$q$q$▖ [R]q$!$▘< GO TO ▞q$ AND FOR ▝Y<>&*!$h$▝I@SQR q$▝eq$0 INK 1$C▘: REM (8▙NOT LOAD 2COS REM :[K] REM = LINE LOAD yM$J[D]▗"e REM <>2.▘[J] REM .▙ LOAD /2>= REM *o&0▝3 B.▝[T]▝.▘ REM + CLS ▝VAL 2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP PEEK ▗ CLOSE #($r&▚"h REM NOT O LOAD r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘ OVER REM r4▝CODE V;2▘O LOAD s▝ INK R▘*[G]COS * PAUSE z[R]▜PINT LOAD p CIRCLE ▝LEN ▜TAN PEEK CHR$ z BORDER ▖ AND LINE DEF FN [E] FLASH h PAPER ▘( FOR COPY REM QV REM [J] ▝ AND ▞ DRAW c▛ DRAW DEF FN ▗ REM PLOT ▘#▜Nm DRAW VAL ▘ PAPER ▘<▝.▗ DRAW [6▝▙YACS -SGN U▝[K]M▘ REM oP▘[P] GO TO ▝ REM }[I] GO TO o [I]! REM p4p4p4p44[I][I]/pO LPRINT READ ASN EXP DEF FN ▘EXP PEEK EXP ATN INT PEEK INT ▗TAN ATN SGN ATN p p p SGN ATN ! STOP z[U]#POINT !FN INKEY$&▛POINT #FN !INKEY$FN #POINT [U]dpP-nPOINT !mFN ▗POINT mTAB TAB WnPOINT #mFN ▚mATTR #TAB nPOINT p6P6`[G] GO TO ▝ REM pAqQq:p((pLqF LINE ▗POINT INKEY$ATTR % TO ▗POINT ATTR POINT FN ▜POINT ATTR #VAL$ TAB d OPEN #▗FN POINT FN INKEY$ RESTORE ▘POINT ATTR 5▗SIN ASN INT ASN P▗VAL TAN ATN TAN PSIN ASN EXP ▝EXP `p(0(pkpk▝POINT @dTAB pkFN INKEY$[U]1]▖TAB VAL$ CODE #VAL !TAB POINT `▝ATTR .▜FN [U]#[R]%POINT #q]q]-▘ATTR POINT -VAL #SIN !VAL$ [POINT ATTR %TAB !XCHR$ MOVE BEEP INKEY$FN POINT ASN ▚eVAL$ POINT VAL %&▟SIN VAL ATTR SIN %TAN !ASN TAN SIN TAB POINT %IN ▘/POINT p STOP ` NEW Rp STOP p STOP qp STOP pbIN ▝ATTR S▝INKEY$ATN ▝TAB <=e▘INKEY$POINT ▝cqwAw<=LN ▗ATTR TAB VAL$ TAB ▘0'▝VAL ▘[U]!▝POINT LINE Bf▘%TAB qrhTA8!SIN #TAN !SIN TAN #ASN %VAL q8r[F]CHR$ ▞VAL$ GO SUB FN <>▘ FN ▝FN LEN ▗ STOP POINT #TAB OPEN #▗TAB POINT 'INKEY$<=▝ATTR 2 PRINT ▝ATTR 3▘+POINT LIST NOT ATTR ▘#VAL PAPER POINT FN ' BEEP n'&/ BEEP CLOSE # BEEP PAPER 0 INVERSE LPRINT 0 DIM 0P PRINT 0p/ CAT 0p DATA LLIST DATA ▘pS@5▝ ▞`@0<>▟ POKE LIST © DRAW STOP [D] READ ▗P[T]▝ [T]▝ [N]▝ [E]▝ ▖▝@D TO ▘ LPRINT CIRCLE /5 MERGE /5 AND /5ATTR y4 LIST ©4 LLIST , LLIST ▗ FORMAT p5p5p5P5[U]@?d LIST d LLIST d MOVE dCHR$ dSIN b[Q]b[A]bbpb`b` ▗( COPY COPY >=[A] INK ▚ COPY ▝▛_<>....... 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 INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK NEXT <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>▙08?© RETURN CLEAR ,48©© RETURN DRAW (hx ▝, @▝ PRINT 08IN x@ CONTINUE x@ FOR x FOR xUSR FOR y FOR y@ FOR y FOR yUSR FOR z FOR z@ FOR z FOR zUSR FOR { FOR {@ FOR { FOR {USR FOR | FOR | FOR | FOR |USR FOR } FOR }@ FOR } FOR }USR FOR ~ FOR ~@ FOR ~ FOR ~USR FOR © FOR @©LN ©>=© CIRCLE © LIST COS DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN 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 COPY COPY COPY COPY NOT / SAVE IN 08?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW EXP ,48?© RETURN DRAW ,48?© RETURN CLEAR ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN CLEAR STEP 08IN ▙.,^VT_*- STEP 8( THEN 8@▙USR 0>=ttzj* IF TAN T>=0USR STEP x@NOT xxSTR$ xNOT xxSTR$ xUSR NOT yySTR$ yNOT yySTR$ y@NOT !zr ySTR$ y[I] OPEN #yUSR NOT y CIRCLE OPEN #zNOT 2@▚$f~| VERIFY z@NOT zX OPEN #zNOT 2USR |f~ffx OR zUSR NOT @USR ▗nvf$ VERIFY {NOT I▝fx@ AND {@NOT x@ OPEN #{NOT xUSR OPEN #{USR NOT { CIRCLE OPEN #|NOT 4@▚<`|``< VERIFY |@NOT 8@▗f``fx@ OR |NOT 4USR ▝~CHR$ VERIFY |USR NOT 5``|z@<=}NOT =@}x AND }@NOT }X OPEN #}NOT |@~X|@<=} CIRCLE OPEN #~NOT ~ OPEN #~@NOT ~X OPEN #~NOT ~[I] OPEN #~USR NOT ~ CIRCLE OPEN #©NOT © OPEN #/h▖48?© RETURN DRAW ,U CIRCLE RND DRAW ,08?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48?© RETURN DRAW ,48(▜ABCDEFH(▝F FLASH G▘CE FLASH G▘DD FLASH G▘EC FLASH G▘FB FLASH G▘AA FLASH GxUSR xUSR INK GxUSR xUSR INK GxUSR xUSR INK Gyy INK Gyy INK Gyiz@Z@NOT @EAGCGCHR$ C▝A! CIRCLE ▘CE ▘DA THEN E▝A" OR D▝Ch "X▘ECNOT ▝Bh@"[I]▜FBAFEDCH(........ STEP [[M] NEXT GO SUB s▟!PEEK ^d MERGE GO SUB VAL !Z[M]c[S]9<> GO SUB LN !+[D][Q]~ 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[^ LLIST ; LET w IF 1 NEXT NOT RIN ! CAT [G]NOT RANDOMIZE ▙NOT O[C] PROTRACKER 2.1 BY GOLDEN DISK SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT IN |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQIN >, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;85SCREEN$ 2/,*'%#! VERIFY OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝▞ CAT [G] CAT [G] CAT [G]=[L]0 CAT [G]r▖[I][L] STEP [L][M]7[M]PPpp▝ RANDOMIZE p&p.`8▘ DRAW [M] DEF FN IN NEXT RESTORE " INPUT RESTORE ~2▝[D]2S[C]##~#"[B] "[U]^#V#" FLASH O" FORMAT LLIST " DIM ! FOR ▙ GO TO ▙p GO SUB VAL CODE IN 2 CONTINUE ▙2 DIM ▙2 REM ▙2 INK [C]2>[D]2{[A]2 IF [A]2|[B]2 CLOSE #[C]29[D]2<>[A]2K[B]2 DEF FN [B]G/2O[A]2 DEF FN [A]2P[B]>/2"[D]2ABS [C]!x▙" OVER TAN [C]"C[D]"BIN [A]"F[B]"<>[B] STEP VERIFY GO SUB Sk[C]STR$ GO SUB sATN 1 ERASE [G]▖▙> LLIST FOR s#r# FOR = PRINT 1[H]>=▙>pPI PRINT 1▙a*>=▙" INPUT [C]"S[D]"Z[A]" INK [A]"[[B] CLS NOT ERASE [B]!R[H]~▜ GO SUB s RETURN !S8 INPUT ▚▜# AND ▖![[H] RANDOMIZE CAT [G]X LLIST "▞[C][M][S][C]1a<>{▜_~0 THEN #~STR$ LN NEW THEN Z PRINT 2 LET ▙ LET ~ NEW #ng INVERSE b FOR ! CLS [M] INVERSE }▚▜O!>=~#fo THEN :8 GO SUB R<><>> COPY <(wAT [H][I][L]! RANDOMIZE [M]y<PEEK # ~2T[A]#"5[A] FOR x_@[D]U[A]# INVERSE . STEP [A]" FOR ▙ FOR AT IF SGN [A](& RESTORE !{PI PAUSE [L][A] GO SUB DOPI GO SUB B0 LLIST >2y[A]CODE 2▞[A]go"[A]"[C][A] LLIST CODE ▜ INVERSE |2 PAUSE ▙OQ▜~ PLOT 2 NEXT ▙©▝z©▝=p©~2 OPEN #p© ▝ CLOSE #©▝+p©▝ GO SUB ©▝©▘;[B]`©▘[B]p©2 SAVE ©▘[B]©▝ COPY ©▘[B] ©▝ COPY ©▚! PAUSE ▙ACS wp▘▝ POKE ▘▗{p▘ LET ▝[B]q▘V[B]▝4q▝ LOAD @▘▝ABS p▘▝[M]`▘z[B]CODE 2▝▝[B] LLIST ▝[D]0▘▘▝[B]0▘p[O] PRINT ▙! SAVE ▙IN COPY VERIFY ! PRINT ▙B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[2 SAVE ▙<>CODE G>=R[N](>=("=CHR$ N[A]! CONTINUE ▙5 PAUSE N[A]6▟[H]PI TO VERIFY STEP [E] INPUT ▗2AT [C]NOT ▝ DIM 0▙[L][H] STEP 8[F] GO SUB S▞[C]2[D]▝ REM 7▘ATTR [C]▟POINT [H] STEP ?[G] GO SUB S[S][C]CODE 062▘T[A]]▘>▚![I][L]"W[A]!▗2 STEP [C]1▘<>[A]6▘{[A]k▝BIN ▝▗2 DATA [C][E].H2 POKE '▘[T][A]nPc▝ATN ▝▖Dgo LOAD GO SUB " OPEN #[A]▟▝/IN ▘>+!=[L]" VERIFY 0e▘2[D][G]▘K[B][L]▝ IF e▘F[B] e0▘I[D]e▝ INK ▗2Y[D]`▝(▝"-▜6[B]!"8▘ SAVE ▙{▗ PLOT ▙>©CODE 2v POKE 2 CLS [C]:[D]=(y2CHR$ ▗ABS [C]>7FN ▘<> CLOSE #:y[A]O▚( PAPER CODE 2G>7<>STR$ ▜!▖▟[S]▝ OVER +▗NOT [E] 1&o"[D]PIx PAUSE LLIST PEEK [D]-▝@▝ PRINT ▖og" OR A▘ VERIFY ▝iA AND 8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▘▙O$"<=[C]▞▗!>=▙▜@▝ INPUT <=▝ DATA <> SGN PI<>CODE 00SQR ▚( GO SUB RETURN ( LIST MOVE CLOSE #[C]2{[D]2|[D]0 INK [T]▘▝[D] LLIST 2f[D]:q[D]= LINE PEEK [E]y2'[D]CODE R$▘Y[D]$▗2[D]: SAVE $▞'[D]( INK CODE 2q[D] q$q$▘8[F] 11$▝p$[F]/2kq$ ▝ A$▝`A$▝>A$ RUN ▝▜q$q$q$q$▖ [R]q$!$▘,[D]▞q$ AND FOR ▝I<>&*!$h$▝9@SQR q$▝eq$0 INK 1$C:z[B]-z[B](8▙NOT PRINT [F]2[T][B]:[B]= LINE PRINT [F]yM$J[D]▗"U[B]<>2.▘▞[B].▙[G]/2LN [B]*o&0▝# B.▝[D]▝.▘|[B]+ CLS ▝[Q]2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP PEEK ▗ CLOSE #($r&▚"X[B]NOT ?[G]r&IN ▝CODE '▘> COPY ,▘<>>=▝2▘ DEF FN [B]r4▝CODE V;2▘?[G]s▝<>R▘IJ▝n9U▝[T]▜<> RETURN 3h OUT ▝* BEEP ▗- FLASH X REM [F] COPY PEEK TO PAPER LET CLEAR 2ATN <= LLIST [F]f FOR SAVE [B][L]ATN 3Ckk' CONTINUE ©`FN INKEY$[U][P][R][T]/[T]0[T][U]FN /PI#[B]CODE VAL CODE ATTR SCREEN$ !ATTR SCREEN$ 'FN #FN TAB ATTR FN /SCREEN$ 31▘INKEY$[U]p1▘FN FN 4▜PI GO SUB FN !FN ▘FN FN `<[B]TAN TAN !SIN VAL #CODE !VAL CODE #TAB VAL CODE !TAB ATTR A▟ REM ©o[A] FOR `[A][M][M] GO TO o0▞ REM o▙ FOR `▙[K][K] GO TO 0▛ REM o[K] FOR `[I][I] GO TO o0▝ REM @(p0▜[F] FOR `[F][R][R] GO TO @p PP[C]▛▛ FOR `[H] REM o[H] GO TO `▛ FOR ▛[H] GO TO o[H] REM ▘▛[H]▛▛[H]`[H]p FOR ▚[U]FN PIp GO SUB FN 'SCREEN$ pCODE pCODE pCODE pCODE pCODE CODE ▜[D] FOR `[D][P][P] GO TO @pCODE pCODE p COPY pCODE pCODE pCODE 0CODE !4p POKE 0 POKE ▝[H] READ ▘[T][T] BRIGHT REM o[T]qTqTaTUqT1Tqt0 ▝[D]ACS AT ▚[P] GO TO `[D] FOR [D]ABS ▘[P] REM aINKEY$▗[A][M]`[M]"-▘FN PI▗INKEY$ATTR AT FORMAT TAB ATTR !CODE ATTR ▚ATTR TAB INKEY$'CODE SIN pINKEY$q[K]pINKEY$pINKEY$q IF IF q REM 1 REM q PAPER p NEW ` NEW BORDER ▝[A];1▚[M] GO TO `[A] FOR [A]B▝[M]pINKEY$0INKEY$▘TAB SCREEN$ [A]▝CODE [T][E]VAL TAN COS !TAN ACS #ATN !SQR ATN 'TAN #TAN !VAL TAN #ACS 'ATN LN qQrEqQqQrRNDpATTR r[F]rq[B]pATTR pATTR `ATTR ! REM [A]% LPRINT u[P]VAL TAB TAB ATTR # READ ©`ATTR LPRINT i▗EXP !SGN EXP [L]▜ATN EXP #SQR !ATN ACS SCREEN$ ▚ATN TAN #VAL !TAN :▘ACS COS SQR (▟TAN LPRINT ?p LIST LPRINT ▝ FORMAT ▝[B]USR USR VAL VAL [Q][Q] FORMAT FORMAT FORMAT P5▝;p▟ FORMAT POKE LIST © DRAW STOP [D] READ ▗p[p[p[p[▝[A]▝▗▘ LPRINT [D]P[[A][A][A][A]▝ [A] OR ▟D LIST ©4 LLIST 4 LLIST ▗( FORMAT p5p5p5P5[U]@?d LIST d LLIST d MOVE dCHR$ dSIN b[Q]b[A]bbpb`b` (U[G] COPY COPY k&R^ STEP R;;STR$ ![H] FOR !f}▘!{0▝▞0@ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O.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 [T][N] LLIST # OVER LLIST STR$ NEW ©(# THEN w G▜# RANDOMIZE VAL$ NEW ?F#ATN CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY COPY Pppp$p.p8IN NOT ▚??BIN ©▚?? BORDER ▘? MOVE COPY ▘©xC▘BIN <>▝©0>▚ DRAW SAVE LIST SAVE SAVE RETURN @C>=▗?8*_▗?ASN CHR$ 8}USR USR @▟ OR ▘H;`aP@X LINE OR @ LPRINT ▝ LIST USR USR ▝ LIST Pa<= RETURN USR x@STR$ ▝ DRAW PLN @>= MERGE 'ABS [C]▝ AND ▝ LPRINT I1n▘ RETURN LIST >=34 AND y DEF FN USR LPRINT ^BIN DRAW SAVE LIST LIST LPRINT USR BIN X3yUSR CAT ▘YPEEK [G]VAL X[D]▝ RETURN GO TO USR <=zIN ▗STR$ :=▝IN y▗ LPRINT LIST LIST INT ▝ RETURN ySTR$ y0b[L]ACS x BORDER "!▝af OR yz▝ RETURN D SAVE LIST LPRINT FORMAT ▘USR ij<> OR TAB 2▘ LPRINT USR QUSR CIRCLE CLOSE # CLOSE #STR$ CIRCLE COPY OR VERIFY COPY PRNDCHR$ USR LPRINT SAVE : LLIST 3[H]<>s`USR 3[R]C PAPER ▗ CLEAR LET STR$ ▝ AND OR ; LPRINT BIN LIST PRINT ▛USR |▚ OR BIN LINE 0`A▝ LPRINT @I? OR ${ CLEAR ,▚9▝ _TAN ![L] STOP E?b@<=0-▗ OR DUSR }!m=STR$ l OUT ▝|USR 5▞# STEP STR$ ==95=Q INK cIr[B] STOP ?" NEXT ©▘ FOR ▘ COPY SAVE CLS zSTR$ !▙ BORDER ▝} GO TO REM y FOR yUSR ▛ LPRINT USR COPY RANDOMIZE ? READ NEXT z▘{▝@~ FOR |▝|CHR$ RUN z▝} ▝} ▘©CHR$ 2n▚ RESTORE COPY COPY P0 BORDER LIST POINT CODE 2H/2▟/ OPEN # RETURN STEP k!USR " RETURN [Q] STEP [N] STEP [Q] STEP LINE [Q]CODE 2EXP _ STEP VERIFY ▗:EXP _ THEN _( PLOT EXP PI)[S] NEXT >? GO SUB G GO SUB V CLS <> NEXT ! RETURN RETURN ,> CLEAR w GO SUB VAL >NOT 2 CLEAR CLEAR ! GO TO [Q]" RETURN CLEAR > RETURN "▝^" PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE PRINT INK ▝ INK GO SUB |ASN !V▗ OVER +q[B]INKEY$ STEP '[R] INK LLIST MOVE STR$ INK LET CLEAR LLIST INVERSE LLIST ▝ LET ]▜ GO SUB s DEF FN [R]CODE SIN 1 MOVE [R] LLIST MOVE s$|[R] } AND o8| VERIFY g} RETURN OUT 8| RETURN PCHR$ X[R]&@} VERIFY LPRINT o^ MERGE >COS w RESTORE LLIST LLIST ERASE A/p0p00▝▖p0@0▝ MOVE 0▝rUSR $pcpcc▝SQR Pc>COS w$V MERGE >SIN w%j<=1pa<>[Q]E CLOSE #▞SCREEN$ M? PAPER U FLASH MUSR RND[B]xJ?INKEY$J COPY JBSTR$ oJ SAVE F▟>=TSD}L INPUT ▝"▝▝[H] PLOT ▙ !X MERGE RESTORE OR OR RESTORE ~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE LLIST STR$ INVERSE ! NvSTR$ LLIST MOVE FORMAT <><>(j........ STEP ) MOVE NEXT GO SUB s▟!PEEK ^d MERGE GO SUB VAL !( MOVE COPY BORDER D<> GO SUB LN ! RANDOMIZE [T][Q]~ 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[^ LLIST ; LET w IF 1 NEXT NOT R[R]NOT THEN NOT LLIST NOT ▟NOT LINE ▟NOT >▙NOT FORMAT ▙NOT PI▙NOT z▟NOT <=NOT DATA ▙NOT =[A][B]NOT <>>=2 TO PIUSR >SIN STEP LINE ▟ STEP >▙ STEP 4 INVERSE ![I] INVERSE ~!ACS _PEEK > INVERSE n INVERSE f OR INVERSE N INVERSE F} LLIST STEP ▟STR$ INVERSE # INVERSE #TAN INVERSE # MERGE : LET < RETURN CODE 2 LET <> OR PI(G( CLEAR FOR LLIST STEP 7▟NOT INT ▟w#wPppp p(4▝#p8p@pPpXp`ph@x▘<> LLIST p▝Q▜<> INVERSE ! OR p DIM DIM ▗ INVERSE f DIM [I] INVERSE FABS STOP STEP ▙STR$ INVERSE PAPER : PAPER ▟< RETURN DATA PAPER ▟<> GO SUB C5▙PI( RESTORE FOR G0 DATA [J] INVERSE F RESTORE MERGE OR STEP .▙*5▙##"5▙STR$ MOVE LLIST ## FOR <> RUN STEP z▟!@ CLEAR t▗ PRINT Q]▝;]▗ INVERSE f]▜ INVERSE F BEEP INK !]!q[P] STEP PI▙( INVERSE 6 COPY OR INVERSE RESTORE STEP ▘y STEP } STEP ACS [A] INVERSE LLIST STR$ !LN _4 STEP DATA ▙q▘A▖▜SCREEN$ :N▙< RETURN ▖[G]N▙<>:INT _ VERIFY RETURN 0ABS 0 AND ABS 8:SQR [C]0SGN 0 AND SGN 8> COPY PI<>CODE PI<>▙[E]▖ INVERSE ~ INVERSE w GO SUB [G] NEXT <>:LN _PI STEP STEP 2 RETURN >F# RETURN @CODE P!aZ[A]cZ!eZw#wj▗[A]RS[I]M INVERSE ~PI(= INVERSE wCODE , INVERSE ~PI GO SUB _ NEW @▖/ NEW INVERSE w+[E] INVERSE ~ PRINT < RETURN OR STEP ▛ySTR$ CODE INVERSE w LET r▘8 READ 0TAN ACS [T]<>grwgqwi[U]wfJwfBwgvwgjwgbwfXwty ▝ ▝ ▝ ▝ ▝ $▝0SQR DEF FN wp▖xp[A]xlxowxozx(2fQwm7m3[L]:ABS _PI(# RETURN (|P> STEP s[A]:CHR$ _yPCODE @▗|P@▝CODE ▗* LINE _|▟>O>[B] MERGE GUSR [▞ MOVE # OR MERGE GO SUB [Q]#RND MOVE STEP [R][A]STR$ INPUT <>z NEW USR { AND _ CIRCLE z VERIFY W<>NOT SGN [A]NOT USR [B]NOT CHR$ [A]NOT ;[D]:ATN ©▜2 LLIST ▜PI( RETURN COPY (# CONTINUE ▜ INVERSE RESTORE OR INVERSE ~3▖ STEP }STR$ INVERSE LLIST CLS [G] BEEP NOT CONTINUE [C]:EXP _ THEN _CHR$ @[D] THEN gCHR$ W[C]<>2 RETURN =▖<=[D]Gd*@<▗SIN (ATN ▜y STEP FLASH [C]qQ F INK Gv▗~PI(CHR$ =G0a▝ RANDOMIZE h[E] INVERSE ~PEEK CHR$ u[B] INVERSE ~ RETURN OVER ( INVERSE n INVERSE fI▖ INVERSE n INVERSE f DIM 7▖2W[I]CODE wNOT [B]ABS ▚:W[I]PI('pFF▝:F▘w RUN INVERSE w GO TO ▚ AND INVERSE wCODE 4▘ t▖ LINE [C] STEP yNOT SAVE 0? ATN ▝ PAUSE INVERSE n INVERSE u PLOT ▗ INVERSE tc▝0 POKE ▖ READ CODE 2U[I]2V[I]s▞ STEP g[C] STEP [C]NOT [D]CGK CONTINUE [C]CODE OVER w<> PRINT @[J][G] LET wNOT ▝[B]:U[I]!POINT P"N[C] STEP /[C]:V[I]!<>▖PI !X[I]r RUN ▝ PRINT [O] IF RESTORE INVERSE LLIST !SCREEN$ P<=[C] STEP [B]:~[I]PI DIM ▘M~[I] INVERSE !f BORDER ▝Ul▙ STEP LEN [C] STEP SGN [C] INVERSE n INVERSE f STEP [D]!ATTR [H][S][C]<>"SIN [C]n[I]w$ IF <>"ABS [C]vp}▜CODE w$ CLS p▙ CLS <> OPEN # RETURN {[B] CLEAR ▖_ LET <>!U[I] PRINT ▘▝_ MERGE ▝ LET ▗▛[D]"&▝![S]▝%▛▞ INVERSE ~ INVERSE n INVERSE f%▙5 ▞ CIRCLE <> INVERSE * REM [C]: GO SUB [C]%6▜ NEXT NOT q[D] STEP VERIFY ▗ CIRCLE v THEN ^USR POKE STEP CONTINUE LOAD INVERSE !A[F] REM ▘Vb▝F`9▝STR$ 0]▝ DIM 5x▛ FLASH NOT :[B] INVERSE *B[D]:H[D]pZ[T]▛CODE 2©[I]<> COPY '[A] COPY ▝ ▝[B] COPY , COPY ▞ COPY COPY L COPY PI COPY COPY 1bolx{aq kirka COPY ▚[G] COPY USR ▚pisxmoCHR$ COPY DRAW [G] COPY `6[A]lopata COPY [H] COPY USR ▗so~nP▗mork▛ COPY F[H] COPY 6▘and[D]sgu}enki COPY TAN [H] COPY l▞rybij virl RETURN [H] COPY ▜▞o~ki sowy[C]& LET [F][S][A]staryj grib HABS INKEY$ OR 3swevee qblokoFCHR$ [F]tqvel6[U]▚lotJ06▞pusto▞gor{okI0Q▝ NEXT katu{# nitokG l)i▘jc1)▗l▗2[I]!D▜ amuletEy[G] PAPER MOVE [G] CLS Y[F] THEN [C]BIN [G]&.>* STEP ;[D]&.>SCREEN$ CODE 2M[F]<>CODE 2▛[D]2[B][D]2[H][D]>2 THEN [D]>2 TO [D]>2 STEP [D]![L][F]" DEF FN [D]>&.6 FLASH ▞CODE 2POINT [D]2CODE [D]!p ▝.▝.▝[C]>c▘ OPEN # i▝Pi▝r.>{▗▝▗/▗ COPY 2 AND [E]1:CODE 2ASN [D]/2SQR [D]>m[B]: INPUT STEP ▖>= RETURN (*&.[I]ASN ▗.>▖▚&.>P<=▝ FORMAT >2 INPUT [D]<>&.>P CONTINUE ▝ LET ▝P©▝1><▗2&[F]SGN EXP ▘:©▝!&▝&Q&▝'/▝/CHR$ :[B] STEP SQR !J▝(QJ▝)2 CLEAR O▘LN _b▝CODE !a▘S[F]0[J]▝P CLEAR ▝Q▝▝7Q▝8!▙G[F]NOT [G]CODE 2[N][D]> OVER 2[E]![T]▝4 BRIGHT ▖ INVERSE ![E]NOT [C]`▗23[E]! AND ▝Q AND ▝Q]▝ CIRCLE ▝#▝1ATTR ▗2N[E]!▝Qz▝Q RETURN ▝Q[F]!d▝ Qd $d▝!Q:▝"QEXP ▝#R=▝$Q CLOSE #▝%pn2i0n▝+Q CONTINUE ▝,Rl▝-2>.0INKEY$>/Q[G]▝02>12c▝[T]t MOVE Q"SIN ▝9RSIN ▝:RI▝;P GO TO ▝<[H]n[G]: AND [E] RETURN COPY LINE C[I]" CIRCLE ▝2▜" LLIST ▝32f▚!SGN _ THEN VERIFY <>3Sv▟karmanFN PATN P>=P BEEP [N] RETURN COPY COPY RETURN 8© COPY COPY ©8NOT ▚[I]NOT r[K] INVERSE ! MERGE [K] OR ';▗PEEK 9API(S- TO ▗ RETURN ▘8POINT ▘wY▝▘ DEF FN + THEN ▟ STEP p[J] THEN © OVER FOR STEP INVERSE [I]{<>SCREEN$ STR$ VAL <> GO SUB KFN [J]:PI[J]<2PI[J] OR LLIST s#r# RESTORE STR$ ![H][J]INKEY$#ACS # RESTORE FOR FOR LLIST ppp p p0p@p@pPp`p`p▛ GO SUB CFN [J]<>Ml&D}CHR$ )d RESTORE THEN / THEN / THEN /o&P▝w[D]▞<><=<=(( CIRCLE ▖tt8SCREEN$ [J] COPY COPY COPY ▘[B]▖PI>=!SCREEN$ [J]^#V FOR ▘ RESTORE FOR K FOR LLIST pppp(p2p<▜ GO SUB [Q]=PI VAL CODE NEW W▝"eIN 88888888PPPPPPPPPPNOT )[L]▛ATTR NOT ASN [L]>=2*[L]PI(5! AND S INVERSE !AT [L] INVERSE THEN & THEN + CLS LLIST % GO SUB !INKEY$Wpp▗ GO SUB <>>=[G]!:[M]~#"m[L] RETURN $($ RETURN #(( STEP POKE &o[H] GO SUB [ IF GO SUB RTAN [L]~# IF ▟0.NOT ! LET [L]▝SQR b▗ INVERSE ![M]s▝G.LEN ▝ IF 9CX"[N][L][N]h AND S▞▞ OR RESTORE MERGE CODE w+N▞ MOVE LLIST STR$ % GO TO <> MOVE ATN $:[M]t[M]<[M]X[M]j[M]~[M][F][M][P][M]LEN [M] THEN [M] CIRCLE [M] REM [M] CLEAR [M][N]%[N]5[N]C[N][[N]q[N]▜[N]SCREEN$ [N]SQR [N] TO [N] BORDER [N] POKE [N][O] #USR lnce [I]▞tit no neLN ▝e▚# odinINKEY$▖e derewo. ▘xqpBnabl`datelxn PRINT ▗punk=▜stuka~iczagad AND ▜prirodyG▖omik kri BEEP ▛fera robinatemEles[M]▗hi}n(▝wB▗sade▝mUSR .▗o~ekPL▘gr#▝n$([A]pSQR pSQR ▞puhowa op(/▝#@2INKEY$▝ix▘no▚u{ah▘go[K]oli & LLIST ▝n71'CHR$ .INKEY$upi▝@0[F]▝#ASN ▗tnicd THEN ▝iATN ▚afrikepodz STOP INK ▘re ▚▝dY▝na▚zawhoz[A]▝bjen~atwplawsredst0CHR$ =gpp ▞!/h"TAN _"IN _eACS _2PEEK _>2CHR$ _jINT 2SGN _2NOT _! PAPER TO " AND _! AND SGN "BIN _! BORDER [P]">=_!▚VAL$ " LINE _><>2 STEP _2 VERIFY _>NOT 2 FORMAT _2 OPEN #_![I]" MOVE _![I]" CLOSE #_ REM LN STEP COS [A] LIST DEF FN [I] STEP PEEK STEP STR$ STEP #[L] STEP STOP [O] STEP FORMAT ▗ STEP } STEP VAL [A] STEP [Q]:▗VCHR$ .[P].T▛(>© FLASH RETURN NEW > CLS ( FOR PRINT PIBIN #[L] LET PIBIN Z[P]<=)]6 STEP EXP [A] NEXT >> GO SUB G GO SUB V CLS P▘: TO OUT [P] STEP USR [G] OUT [P]NOT m[P] NEXT ! RETURN RETURN > CLEAR w GO SUB VAL p'`'ACS CLEAR CLEAR ![T][P]" RETURN CLEAR > RETURN O▝^[▛So& OR RESTORE THEN # BRIGHT )▗STR$ LOAD <>3[D]>/2TAN _>X2ASN _ STEP OUT ▗[G] OR STEP [P]PEEK ▜ STEP FN avSTR$ PAUSE GO TO >=[I]▟NOT IN [O]!!X OR 6B▝#[A]▝ NEXT SGN IN X MERGE RESTORE OR OR RESTORE ~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE LLIST STR$ INVERSE vSTR$ LLIST MOVE OPEN #<> NEXT PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE PRINT ▘ INK ▗ INK STEP [p GO SUB [P] STEP 0 GO SUB STEP [L] INK LLIST MOVE STR$ INK LET CLEAR LLIST INVERSE LLIST [C] LET CLS <> OR CLEAR © GO SUB ySTR$ <>.hodO▗krytK▝ .▘hn▞▗skima▝~G▘m.#▚|o,▘+▝!+LEN ▝`VAL ▜,osoben LIST Oenye! RETURN i takk▟sojdet,move{xDq▙pogulqtx zdesx STEP [L]▝q STEP ▝b GO SUB ▝!>= Ps OUT kom>▘at DIM ▖a winni .▗u{il, PAPER ▝u POKE ▜kamenx,z▝o▙raz[H]▗elsq RANDOMIZE ▙pylx. dkrep BORDER ▘pr2ssidpmudarf0/▗wonz[▚orudie<▞stenu,i ~BIN ▝z]inutu RNDs~ezl=▚ [R]▝, OPEN #▘a USR !P0SQR C▗!$L▛wa,ty pqta~[P]nig[O]9widela?n=▚a ~to,SIN ▖pal ?(▜ zna`,w STOP ▚u egot[I]u▝tASN 1>▘c b▘ m▛▘tu REM - INPUT >slaliy▝uu▝sLN ▘amamot INVERSE ▘w Wr~ti^1ACS valuj[E]`c1▙q by K6S▗udowie!k~la|.q▝,▝wH▝a▗wrem[S]▝eW▝n i▘obN▝aINT ▘a,[F]CODE ▘tooniaswo IF q$▘a`GA▝jVAL$ ▘ih!y!uspeha, COPY ![K]terACS .▝iu@▗ seb▜[A]▜os7n BORDER !SCREEN$ ▖eperx tyB STEP ATTR VERIFY ▝m` FLASH ▘ ?/N[N]▗kone[E]2CODE dawaj!K▝s RESTORE Q RETURN otka{lqlasx▘▘~aF▗~ita CIRCLE s..M{ebV MOVE J▗omu RN▝u FLASH bvQpohit" BRIGHT Bv OPEN #▘uw ERASE NEW RANDOMIZE ▖ mra~nu`|▘ra LET ▝q"i▝ ▘ IF "▗lu~{ TO ▗drug CIRCLE zahE BRIGHT ▝o[N]▝b FOR R ERASE ▘izACS [L]▗eniq▜▝|Ewoz▚no,esl& PRINT isp>▝i triATN t<=▝a8[C]▝q MOVE [E]0 DEF FN ▚yskavu▘ wINKEY$;POINT ▗ POKE RND▖▝p)[I]▝wP STEP 0 TO 0hxzu OVER ▘il4AXATTR ? AND ▗a,on(▝tp▘veg▚nwerte CLEAR ▝i1 DATA COPY zVnai LINE ▗lej{ NEXT >= ▝b PLOT ▝ pwyjc ERASE DEF FN LB TO YB▝u@ACS "▘tt VERIFY 07bC0 DIM pTZ▘akSIN ▜hrq[M]IN ▗hrum THEN <dBIN 5 ▝▗mont[D]walA▘ord▘[P]E▝k(▝j©rin"NOT ! FORMAT <=vk,|JSTR$ ▗u`,p$scel▜morkowx&&UX▘lyj VERIFY 0!▘ku>&▙!*>=ATTR NOT ▝tu* DATA ABS nibudm DIM [U]▘u 3[banZNOT gu}enI▝a3[I]▝s,▘{l FORMAT ▝gVAL $Nozxmi[I] FORMAT ▝s"[I] STEP VERIFY ▜ybrasywUSR [S]▘` COPY eng▗ REM ?V&▝g+▘r`0"!!v, BORDER ▗@[E] ▘uv INVERSE ▝?CODE 08p0g@▜Tot~ABS ▝v▟ =[O]▝k@azd LIST 8▘sx$STR$ RETURN CLOSE # DEF FN gu{ RETURN POINT SIN PLOT CHR$ pT▝T_3@,▝u^: CONTINUE s▚s}edrit▘, 6x▝m#]q▘dk GO SUB dnor FORMAT fPIVAL a7▘,nSIN 1c`[K]!cybx CAT ▗ira,[▝r& DRAW !▗1▝▘e @▝ xH L OR y▝o LET ▝l POKE ▝n▘m Py(▝ 1INKEY$^▝a".b&IN a CIRCLE [M] LET OVER ▚zd TO ^▘ujw STOP IP CIRCLE INT # LINE ▝y8[B]▝kj[T]'▝h/▘alp FORMAT LET px`[P]l@ CLOSE #▝,Amo` l▘tuS▝t,$uVAL$ ▝iINKEY$▗itsqXr▜ ti RESTORE ▘ !;0S[B]s▙ok. /o! [T][O]▘dow▝aHFEy b LPRINT ▝{▝s|r SAVE [S]▗`bqtFN PIrnkF0|▘,u CLOSE #B>=6▜ n`h hok▘ij=▘ogW7 CIRCLE [B]▝i]' RETURN ▗?0> NEXT !h#[A]li~a`/%▚y~nyh?▝t[C]▝k▝m& STEP [O] GO TO ▝pY7h LET IN ;I[u▖▗ hABubenek STOP [O]▘vaahCOS ▝d> BEEP k( CIRCLE LINE DUp▘ri LPRINT [F]x6TAN /m CLOSE #{▝sRND▜ilosx..NOT pD0DvPExSGN e▗rabo[A]Hu FOR u▝k~o▝lNOT ▝`e[M]m[N]©▟_▟z$3▘ot~▝w"xN AND n~7SIN 72QLAG CONTINUE 7Z[K] MERGE ;KKe▝wo?# CLOSE #▝n[G] THEN k▞.LN W▝k%q:"/▝uO CLOSE #[H] FLASH 62j▛2:INKEY$rL .8LN + NEW *d©8na{eluVq.u%▝o" OPEN ##"otbla{LN a CIRCLE CLOSE # FOR 1 DRAW ▝.pt'RI▞stq}u`{tu GO SUB -▗t1- BORDER t+}w[S]w DATA qLEN ▜ wputx,q|| PLOT !©*qJ_ek m▗dolv[K]edu>"svrburg COPY COPY COPY SAVE ©[A] LIST ? COPY LPRINT @ COPY USR 08[B]` COPY )©??/@5▝~▚ ▝U>SCREEN$ *▝?▚p CONTINUE COPY Y▝ CLEAR j DRAW MERGE SAVE jB SAVE 5 ▝*`▝| $zASN f▝ IF ▗▘<[A] FORMAT [G][Q]▝▘ LIST SAVE SGN CHR$ ▝ RETURN ▗ DRAW LPRINT TO TO ▘ DEF FN ▝X CIRCLE ▗cHCHR$ LPRINT USR READ FORMAT ▝USR [R][Q] MERGE @SCREEN$ ?$▚USR :?* OR @ PLOT ▜Z?=>[Q] REM ▝ ▝?0?Z▝CODE H▖ RETURN ? LIST ?©V▘/USR ▘[S] ▝VAL$ t▝`USR COPY ▜!▖▘x TO ▘▗ TO ©3?▘? CIRCLE [I]USR SAVE LIST LN T SAVE POKE Z LIST 4` CONTINUE hf PRINT P REM [Q]$x LET P PLOT VERIFY [Q] DRAW ▝ STEP ▚FN ▝ ▝▘PFN AND [Q]VAL$ ▝ATTR H COPY [Q]▗▘USR [A]▘}?[G][C][M]▝ CLEAR *▘z8▝▝pUSR ▘ LLIST "H▘USR P!?$@USR ▝L[E]▗E CIRCLE INKEY$0 OVER DRAW . OVER RETURN = DATA DRAW REM IF LIST CLEAR Tf▘FN f▘T▘NOT ▗ DRAW T PLOT FOR FN DRAW STOP CLOSE # LLIST SCREEN$ ▝STR$ ▝STR$ P2[T]FN 8▝ FOR H RETURN FN ~▘x▗7@V CAT [Q]/▝ LOAD B▘wN▝rBqRND▝h▝▘2▝SGN ▗e VERIFY ▝t"PEEK ▝SGN "PEEK ▝VAL "PEEK ▝p LINE ▗8z! RETURN ▘ PRINT ©d▝ REM B▗ OR ©F▝6^<▝F#<▝#<▝▘#H▝PZ2j▝ VERIFY "Fh▗ LPRINT [G][U] ▝ MOVE ZFRH▝ SAVE USR r@qt▘!©F▝USR ":▝ TO @h VERIFY VERIFY PEEK ▝/"PEEK ▝, LINE CONTINUE LINE ▗ LPRINT CLEAR @d▝ IF PEEK LET @PEEK ▝▙":▝ FOR #▝ PAUSE #* LLIST PB▝STR$ #6▝STR$ PZ▝ READ "j▝ MERGE "F▝ COPY H▗INT "4▝} [G] CIRCLE 0st▘|▘▘▗0 @▝s LIST ▝ AND " VERIFY ▝FPEEK NOT VERIFY FN `▝" IF ▝▜! RETURN COPY P RETURN "PEEK |PH▝ READ ": IF FORMAT <▝ SAVE 0 LIST T<#6 LPRINT CLOSE #"^▝ MOVE "j▝ PRINT pH DRAW INPUT ▝;|▗G FORMAT @ ▝w▖▘t▘T▘▘ LIST v▗ LPRINT H>=N▖ CIRCLE 1[E] CIRCLE ▝ MOVE PEEK ▝INT ▝ CLOSE # ERASE USR SCREEN$ REM USR CLOSE # PLOT ▝ LLIST 6▗© CLOSE #B"PEEK _BIN ▘ REM FORMAT ▘TAN COPY *#<▝#<6▝ DRAW P POKE ▘5[S]▘Z H▝ POKE TAN ▝< ▗▘<▘ LIST <5H0▝ SAVE `USR ▝ DRAW OR R<▝ACS B▛? LPRINT ?USR SAVE ▝ STOP "<= LPRINT CLOSE #▝ OR $, ▝[A] NEW ▘<=:z>F!▚ RETURN ▝>▝PN[O]T[M]▘USR SCREEN$ `▝*SGN >>= STEP "▙ PLOT ? SAVE ▝ FORMAT "[K]▝ FOR $[I]▘ BEEP ERASE ▝h6USR ▝ COPY LPRINT INT ▝`~USR ▜HUSR ▝>= TO ▝$FN ~ POKE ▝$%▝B$ SAVE ▝ RESTORE " INPUT ▝ IF ( CLEAR STOP ▟ PAUSE FN # BORDER D%[U]K>=RGVAL ▝[S]`▝ RETURN ▝O▘7[U]▜AT USR CLEAR P2▝ IF ||fEXP FORMAT x▝S▘▖ FORMAT LIST AINKEY$▘>fCHR$ ▝ RETURN E▝?USR ▗<▝USR CONTINUE ▝Bn DRAW INPUT ▝ DRAW /F%[Q]▝ READ [G][S] FORMAT STR$ TAN ▘N2▝[T]#VAL$ ▝^6 $▝ztUSR & PRINT [A] DRAW ▝ REM ▝ PRINT CLS IF ▖ $< CONTINUE `l ERASE ▚▝ LOAD ERASE _$ ▝VAL$ $V(6vBIN qqqqqq▝<&FN ▝f&▗▝NOT $z▝ NEW qqA!t1 DEF FN <▘'[U]0L▝ RETURN TO ▝▝ABS !▝['▝[D]21▝ LET ▖ LPRINT ▘<▖ COPY $▝$ RETURN $BIN USR L▝h LINE Zpr4r4r424p BORDER H4▝ PLOT [A]▝+@[M]▝ IF r@r4r4r4B4▝94▝A4▘[O]▘C"FN [O]yyxJ▝ COPY $[G]▗ RETURN LIST (F:▝0cH▝L^USR dL▘ DATA X▘^ CONTINUE (8L~▝j)▝[F]▝N▘u8:[Q] PLOT ▝p$ REM $▝(& REM ▝:Hf▝▝'▝ ERASE TAN x@x@y*▙▝ LIST 8L▝(j▘0?: LPRINT @▝ AND TO FN l TO [G]▝')(~v TO LINE ▝ RETURN #B RANDOMIZE CONTINUE N▝ OVER DRAW ▘$▘*▘SGN ▘ IF ▘H▘/▘STR$ BIN :PUSR ▘ vvUSR yCHR$ v LINE tttD▝,$▝z$▝n$▝4tt3[A]ACS ▝ STOP TAN ▝:▞>[U]USR R GO SUB RLN IF DRAW ▝t$▘[L]#▝Q▝z[E]z[O]▘NOT ,&▝▙v▝ COPY j▘©%j▝ COPY ujj0▝▝&$USR d▘(s CIRCLE CIRCLE ▘@ CONTINUE ▝ NEW &▝yFN TO USR ▝@USR ▝-USR ▜INT ▗USR L▝T IF t|t CONTINUE `j POKE BIN ▖Uh STOP SCREEN$ [H]{B{L{V{`{j{tp CIRCLE @ CIRCLE ▝AT ~ LIST p CIRCLE ` CIRCLE ▝TBIN ▝$%L▝Z0▝VAL FORMAT USR ABS TO ▝ LIST ▝X*▝CHR$ ▜# RESTORE TC&0▝G SAVE ▝bF$▝▜ [A]ATTR REM [C]Q CLOSE #-VAL$ + ERASE |||| |*|4|>|H|R|/|f▘<=- INPUT ▝ CLOSE # FORMAT + VERIFY USR ▝[D]6[H]'z▝i!SCREEN$ T[A]Z▞ INPUT J@TAN ▞ DRAW U GO TO IN * INPUT <= MERGE H FLASH NNNOPQQQQQ[A]▙▖▚▗▘▝▝#IN ▙▖▙▜NNNKKIN LMNOP/:.0.4▙▙▙▛▛▟▙[A][B]TAN [B][B][B][B][A]▙▙▙D CAT KKKLMNOPiAT PPONNLEN ATN VAL MLLKKJKLLMNNN RANDOMIZE ▝ DRAW IN ..▙▙▙▟▛▛▛▟FN ▙▙M REM [D] FOR TAB PAPER ▝ BEEP ATTR !z[M]KKKKJJJJ!J▝K!JFN KKKK7FN [K]▝IN ▜NNN[U]▝LN PEEK ▝N! READ NO▛N[M][N][C][A][I][K]! INVERSE [F]MMMMMMM PAPER [D][J]▞ INK ▞:LEN SAVE IN NNNC'| OVER [Q]N[▝ FOR ▝M LET IF ATTR JIIK DATA [A]▙▖▚▗▘▝[A]/▜▝▝▝ LPRINT ▖ BEEP [N]POINT 159<<9518<50F[B] DRAW ePOINT ▞▞▞▛▛#<▝▛S<IN !f-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]-[B]▗UU######MM.../ACS ![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]![B]#{▝▜▟[D][J][D]ATN FLASH LLIST BORDER GO SUB NEXT RANDOMIZE [E]L[T]▝IK▟▖[Q]▚##@ FLASH [L]$op OVER p OVER p OVER p OVER OVER ▖ML GO SUB [M]JIHGFEDCBA#[G]▝[D][S][B]###/ ATTR ▜##q DRAW ▛.;TAN qqqqA[B]#ATTR [A]RND▙FN ▜C[D]▜$Y[A]pATN ▖###F▚%1r1r1r1"1▛FN ▞#▛#▞#▜###▝#[H]#[J]#[L]#[N]$1[G] LLIST rLN rLN rLN rLN "LN ▞ LLIST ▘ DEF FN ▗ RUN ▜[G] REM qSCREEN$ SCREEN$ ▟####q%)[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B])[B]2$▘#p`1b..[S]MMU*▝ttt[G][B],[A],▙,,,▖,▚,▗▙++$ TO ▗x<▛...G[L]++▟+▛+▞+▜+++▝U/t[C]t[C]t[C]t[C]T[C]▚3!2$px0x▘t[I]T[I][O]$]+[A]+▙+++▖+▚ LOAD PRINT CLS ▛[B]%[B]f▚..slASN SGN ▜bIN G CIRCLE ***************RQRRSIN TTTTTTSQQN▘O▝O9▝O▝PP▘P▝P▝P▝O▝O▝OIN ▝O▝T▛T▛T▛T▛TT▛T▛T▛T▛AAAAAAAAAA[Q]AAAAAOOP46RNDVAL$ TAN INT USR AND TO ERASE CIRCLE [E]▛**▟*▙*TT<>TTT<>TAN O▝O▝O8▝RPTTTTO▛O▛O-▛P0▛P/▛P'▛P;▝P>▘▗[A][G][M][S]FN VAL$ TAN INT USR AND TO ERASE ▚49m[G]▜+▜+▜+▜+▜+▜+▜+g[U]▜*▝*▝*▝*▝*▝*▝*▝*▝*▝*▝*▝*VAL$ ▘**▗**▚*▟*▟*▟*▟*▙**▙*** LIST SQR **A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]A[B]4*▟?USR S*N*M*L*K*ATN ▞*▞*▞*▞*▞*▞*▞*▞*▞*▞*▞*▞*******p[D]P[D]@ ERASE ▖▝*▝*▝p COPY p COPY p COPY pUSR pUSR pUSR pUSR 0USR ▜4B<> FOR ▜*▜*▜*▜*b▟▜*▜*▜*▜*▖<> CAT ▜▞*▞*▗*ABS 4qw}▞[F][L][R]PI@ OVER [U]▙*▙*▙*▙KKKKKKKK!SGN ▙▘▙▖r:r:r:r:": CLOSE #▚*▜*▖ATTR r BRIGHT 2 BRIGHT RNDpATTR @ATTR ERASE CIRCLE OVER DATA *sTAN #TAN RR CIRCLE VAL$ Q----*▛*▛TTTTTT--r INPUT r INPUT r INPUT r INPUT 2 INPUT ▘U*▛*▛*▛*▛s[D]▘▛#[D]▗▛*▛PRND▝[F]▘T o▗Tu▘T▝▜TOsTAN }▘#TAN ▝}[B]------ AND CAT -tMtMtMtM$M4 CONTINUE ▜▖*▖St8uIN TRRS3SSSRRRQQQQQQO▗O▘O▚O=O<VAL$ ▘O7▜P8P:▗P:P>▚P>▜T!▛T%T)T-▞T0▖T4▞T6T8▛T;uuuu0 CAT [R][E]@@SCREEN$ @" INVERSE U LN RETURN @1`USR < GO TO RJ COPY 266< RANDOMIZE RESTORE 6z OPEN #& CLEAR w FOR j IF VAL$ ERASE j GO SUB TAB SCREEN$ kmVAL kUSR [R]mLN MOVE Em[N]COS mmVAL$ ACS INVERSE rACS ASN INK :ATN m[L]z FLASH u^ACS FLASH SQR mACS INVERSE FLASH mDUSR G USR D▛STR$ [C]USR ` LIST [R]R POKE 36[P]©[M]k@w@U ACS USR <> LPRINT c@ RUN STR$ o▗" *PEEK PEEK USR ©`©@> ^▝> NT DATA ▝c▜ READ USR STR$ [Q] TO Gp READ [E]] 4IN z0TAB / IF CLEAR PAPER 4 SAVE t8| RETURN COPY [C]@[D][Q]<= FORMAT '[A]▙P[Q] CLEAR FORMAT u CONTINUE - FORMAT [E] RESTORE CONTINUE ; POKE K IF LET GO TO WATTR IF <>G pIN pSTR$ ▖>d<> FORMAT 6hFN RUN CLOSE #ACS CIRCLE [S] CLOSE #STR$ CIRCLE GO SUB TAN Qh READ CLOSE # INVERSE FN SIN BIN $©2' GO SUB PAUSE B NEXT [R]C[Q]> LLIST C RANDOMIZE LLIST AoSTR$ I[O]<>% RANDOMIZE ERASE ©|[N] FORMAT NEXT LPRINT ©? RETURN {co<>G▘ p AND ▝CODE ▘▜IN STEP [[R]▜9 LET _ LPRINT 2[J][P] FORMAT OUT CONTINUE $J[P] POKE k_ SAVE [L]IN POKE NEXT COPY IF FOR INPUT DRAW RUN INPUT IF BORDER OUT tu OUT x MERGE CAT TAN TAB USR 8 BORDER 0(RND(8 BORDER 8<>GSTR$ VAL$ ASN SCREEN$ LLIST ▘AT ASN `▗SCREEN$ FLASH SCREEN$ 0 MERGE VAL$ [P] MERGE UU@ FLASH VSCREEN$ [Q] FLASH UUP CLS SQR ZSCREEN$ SCREEN$ ASN ASN , RUN vINT SCREEN$ SCREEN$ FN CLS CAT n▖@ PRINT @[B][S]j VERIFY [G] LPRINT 5iU[A]SCREEN$ Mt.SIN GO TO SCREEN$ U7 PLOT OUT ASN ▘ PLOT OUT THEN B▘DD [L]: INVERSE INVERSE SCREEN$ MERGE kU MERGE ATTR SCREEN$ VERIFY ASN UINT ASN SCREEN$ SCREEN$ ASN UTAB VERIFY SCREEN$ GO SUB W[F] PAPER TAB USCREEN$ MERGE SCREEN$ SCREEN$ MERGE U MERGE [SCREEN$ MERGE ATTR UACS TAB SCREEN$ ACS TAB U0I( VERIFY ▙=O CLEAR IN REM uPSCREEN$ P[Q][G]▝&p([G]`SGN IN PAUSE W RETURN TAB W[L]ATTR LIST @4USR ▝[Q]`]@0SCREEN$ TAT F[T]AUSR ` PRINT ▝0 `@:▝ INVERSE [J] LIST © DATA DRAW LLIST {<=▟|USR 0r▚BB." DIM ▘ TO [S] RETURN [Q] IF ATTR © CLOSE # POKE TAN ▘< REM @▘?u@▗INT $▗[N]) CIRCLE ▗ OVER h# LLIST ▗ INVERSE @ CLOSE #"©▗ INPUT [Q] CONTINUE "▖ LOAD @0▗ FOR [Q]=FN #V▗kP} FORMAT #b[FN FOR LOAD ▝z▘ MERGE RUN COPY ▝u▘kATN ▛ IF [Q] RUN ©ATN @ COPY PIN ACS RETURN COPY FN RUN IN _C COPY CLEAR m CLOSE #w OUT ^IN RUN [O]. CLS NEXT ATN OUT _} CAT }7©;SQR OVER OVER READ 3 IF INVERSE SQR INVERSE LOAD OUT COPY PRINT RUN GO SUB FLASH INVERSE LOAD OPEN # RETURN SCREEN$ 9 FLASH ABS [M] LOAD IN PRINT P OUT INPUT MOVE m OUT qSCREEN$ FLASH PLOT POKE m OVER T CLEAR INT INPUT LOAD OUT i▜~[N] OVER LOAD [D] PRINT LPRINT ▗ STEP OVER LOAD ?
4806 PRINT OVER RUN ©#▚ PRINT ABS w~" CIRCLE ▗ PRINT EXP wmsCOS {j AND QATN ABS CLEAR RND ▝ PAPER 0ABS ABS INVERSE ▗;}ABS OVER $▗?{ LOAD INVERSE 6▗- CLS LOAD RETURN 6▝-<0▘© COPY CLOSE #Jq▖ RANDOMIZE Z▗kmju#D▗[ok[R] l▗Wq[I]m#V▝W-#X▝V{▝*I▗:^.>#j▗: COPY w© ▗> LOAD ww#|▝6 $▗V OUT ©w TAN 0$▝v#[Q]▘v COPY @Q#SIN ▗Z© COPY RETURN ZZ LOAD RUN 0l▗Z COPY COPY CLS l▝ VERIFY # VERIFY ▝ACS P~?# CONTINUE ▘j LOAD @~▗ PAPER LOAD {g# IF ▗ PAPER OUT {[0 OUT {K$ BRIGHT COPY ©g*▝VAL$ AND ▝ACS Z SAVE ACS RUN COPY RUN $▘ INPUT COPY ~▝ OVER [A]▘ OVER [S]▝*AVAL$ IN o{ ▝▚n~>:U CLOSE #▘= PLOT ▗ATTR GF# DIM ▘FGC LIST `>=B▝G00USR F`p ,0▘[S]u`▙?>=jTAB jjFN jj[Q]}PLEN [D]4j8 MERGE 0)h FORMAT PPOINT `BP<Fw▘Z[G] LIST 0USR #▝XfiF[B]! INT PAPER FOR -▙ COPY COPY SCREEN$ SCREEN$ UU▖▖""[B]@GG8z CLEAR IF PRINT SCREEN$ T(FDnE INVERSE [G]UTIN IF X[E] LOAD INPUT w BRIGHT CLS PEEK t/ LOAD INPUT _ POKE IN IF UT GO TO [G]▖ LIST pSTR$ COPY [E] CAT FOR MERGE S IF _ COPY COPY LIST GO SUB ATN DATA W NEXT O|> LIST STR$ A0(u^SCREEN$ ATTR PRINT COPY COPY LINE ATTR ERASE S IF OUT <= READ CIRCLE p(STR$ F NEW B:[Q]EPFN ▖ AND ▙ LIST FORMAT [Q] FORMAT [Q]@[Q]K0[G]LN LN LN x LIST LIST LPRINT USR BBEEp>=VFN u6 CIRCLE : CONTINUE : CONTINUE [Q]&Y▗7 OUT o▘PEEK COPY O▗} RETURN USR F CLS CLEAR `M RUN IF VAL $`▘ RESTORE X[ OUT CHR$ AT b▘IN ▝$▗©~ATTR $ DEF FN ▘ COPY U▖ CLEAR COPY SCREEN$ 9 CLS COPY MERGE 9 RUN COPY REM 9 LOAD COPY PRINT 9 OUT COPY IF 9IN COPY CLEAR 9▘~979>9E9▘ COPY CLEAR 9S9Z9▘ COPY ~@9▝9orvr}r▗r▛r[C]r[J]p9CHR$ COPY ▘U ▘SCREEN$ USR ▘ REM VAL ▘ PRINT X #▘ IF AT *▝ CLEAR PAUSE [Q] 8▘ RANDOMIZE P00*▝ NEXT 0*▘ PAUSE FN p$LEN LPRINT p8p8p8pF▝ RANDOMIZE b▝b▘q<=▗ LPRINT CLS LOAD PEEK p0▝VAL ▘ PAUSE FN p0[K]▝ RETURN 0pP▝INT 0FT▝ACS 0 ERASE m COPY DRAW COPY COPY VAL$ CHR$ AND ▗33~▘ TO TO @pp @p?@M▝SGN TVAL$ i▝ CAT r COPY ©| BORDER SAVE ▘ NEXT PAUSE DATA ▛< DRAW CODE COPY COPY PLOT DRAW CAT O BRIGHT CLS LOAD LOAD IN ▗t LOAD SCREEN$ j▗t CAT BORDER Tqx LOAD LLIST D▗ RUN OUT SCREEN$ 9▗ POKE CLS [P]U9 POKE SAVE ? ▘BEt[B]▝BtAT <>BUSR C@$ PAPER ▝F THEN E[F]@▘ ▘▖`@r▘EE3 BEEP INVERSE +0▝) OPEN #qABS XpmVAL VAL$ ` AND ▛ PAPER FOR ACS $,?SGN ` FOR CIRCLE ?[G] LPRINT 7l VERIFY 6 CIRCLE v-ATN =COS pASN FN GO SUB FN F[I][A]▘ AND DU[R]6 CAT AT g▟VAL Zv<=mATN YVAL$ c DEF FN ACS LLIST BORDER U AND !▛ PAPER ▚ FOR ACS OUT $-?ABS UIN [G] READ [P]7oN{VAL$ FORMAT FLASH MERGE U[F]TAB ATN ABS COS sUSR ASN ATTR b GO SUB ATTR LOAD F[K] STEP [D]▜O`UU![M]USR 0>=.t,t^zVjT*_ IF *TAN -T>=0USR T MOVE 0([E] FORMAT PPhHH CONTINUE [A]P OPEN #▝ p(,ACS LET PRINT RANDOMIZE P@▝pPPPB[A]FN HH CONTINUE pPpx@[Q][A]-TAN + CLOSE #VjU*TSCREEN$ Vj+ CLOSE #-TAN p[Q]v+v+V+[A]+▘UUv++0▟$[H]ATTR u IF INPUT LOAD CLOSE #[K]LN dUSR KHq|RJT[K]RPOINT SCREEN$ ACS GO SUB kASN FORMAT [Q]/5PEEK HaR[Q]▗ RESTORE @C OPEN #AT LEN [T]P'I OPEN #[Q]▘[R]@USR STR$ USR `@ LOAD ` FOR STR$ FORMAT w(yBIN STOP rP REM &T6/ LINE RNDBIN PAUSE ASN RPOINT GO SUB ASN Z VERIFY STR$ CR|RND[D]▘;IN `dBIN >=%VAL$ `R0`k[L]INKEY$USR 1ASN +@1u(&[T]Q LPRINT T! OPEN #0i[H]U▚s[U]4[B] ▖FMMTHATTR r![A]▙ PAPER STEP E DATA 6 LINE SCREEN$ -[A]- COPY LET CIRCLE rW<[B] LPRINT FN CLOSE #? REM CLOSE #[Q]USR [Q] AND ▚P'FN U] ERASE [Q]ABS INVERSE [L]▘0S9▚TAN CAT :▙[E]OZVAL$ [B] AND HeSTR$ [I] READ E OPEN #SCREEN$ READ STEP MOVE VAL$ ▞TAB TAB OR xeoo OR ▙1{ TO {^ASN [O]CHR$ mABS r OVER IN FLASH ▝©`▝ CLEAR PRINT COPY SCREEN$ SCREEN$ <<▙©TSCREEN$ PEEK BEEP RETURN IN DRAW OUT RETURN IN x COPY INT ▛SIN IN t OVER STOP IN ▗ OUT CLEAR TfW~[Q]zSCREEN$ ~USR ]"wp;Jo LPRINT ©VVFN y[S]mp7 LINE =[Q]nSIN z@_SCREEN$ j FORMAT ' PLOT A[E]7 LOAD IN LOAD DRAW RUN z^SCREEN$ LEN <>PIBB/xn POKE <[G][N] IF IF RUN PRINT } FOR REM IF RUN PRINT PRINT FOR COPY IF USR BEEP NEXT COPY [Q] FOR [K]P COPY IF COPY [Q] COPY CLEAR ©@ COPY IF RETURN [Q]= COPY PRINT ©P: COPY REM RETURN FN CLEAR T COPY ▘FN [H]T RETURN [I]▗ LLIST U6]~| TO GLN STOP ▘© LPRINT BORDER ▘'g▛ COPY RETURN +▝ RETURN PEEK ,▞ SAVE COPY DRAW COPY DRAW p▘ SAVE ▘ LIST ▘ STOP N▝STR$ INPUT ▗ COPY [D]` LIST @USR @0 # DATA DIM {▘0 DRAW k▘[P]5▗ ▝▝▝ MOVE F©USR ©USR ©USR FN [E]BIN ccT©USR ©USR GO SUB ERASE F NEXT LET /USR [L][R]Co LLIST C[O] LLIST W RANDOMIZE ASN ?©~[N] BRIGHT LPRINT 4 COPY [G]{©USR IIN [A]@ LPRINT p8[O]▞ GO TO tLN FORMAT © LPRINT MOVE ▝ NEXT H DEF FN ▝ CONTINUE STOP SQR / LIST ▝v▝USR RND LIST [R]R POKE 36 VERIFY [N][M]k@w@U ACS USR <> LPRINT c@ RUN STR$ I> REM ▜ COPY ]@ FOR 8(sv0©▝l▜ TO sl TO fl AND 0f© RETURN f? GO TO ▝ LOAD 4 ©© BORDER COPY REM LN COPY PRINT / COPY jVAL$ COPY uV©:ATTR ©W© RETURN COPY GGDb▚1 BRIGHT >=G▗DFFDHP[A]U[U]IN OUT MERGE LPRINT REM SGN GO SUB W PLOT SCREEN$ LIST uU_vSCREEN$ ATTR ;UU:SCREEN$ ATTR =UUSCREEN$ ATTR MERGE UjATTR UUSCREEN$ ATTR ASN U PAPER ATTR MERGE U REM ATTR GO SUB UvATTR ▛{U:ATTR =U▞[D] MERGE © COPY k© COPY 5[I][I]'[I]x[I] COPY [L][J] COPY 31 OUT 33SQR 33IN 37}36 CLEAR 3> RUN 3? LOAD COPY COPY o[R]▙ RUN BORDER CLS y CLS USR © LIST '[L]<y FOR ~© CLEAR RETURN CLEAR RUN INVERSE LOAD OUT / CLEAR CLS [E] CLEAR ABS IN INVERSE IN OUT w OUT COPY COPY COPY CLS RETURN [I] CLS COPY COPY COPY / OUT LOAD COPY G[L]9O RUN : COPY yO CLEAR zABS RANDOMIZE GO SUB IF [P] LOAD RANDOMIZE _ LOAD DRAW ? RUN COPY COPY w:a▞ RETURN CLEAR INVERSE COPY SQR OUT COPY CLS PLOT SQR DDG7SQR 3▝F DEF FN D[P][Q]B▝INKEY$▗x{ COPY m[I].[Q] FORMAT LPRINT `USR @STR$ V< LOAD ▝PEEK ▚@@[S]▝ CAT ▟[A] FORMAT LIST 2VAL )` LPRINT P( H[U] IF s[B] (`@ FORMAT pVAL `USR PP $-STR$ X▖▖ LIST VAL p px0z[I]@USR H[Q] FORMAT P SAVE XVAL `p[Q]▝x zk[B] FORMAT - LIST LN SAVE P[Q]P>=▜0&CHR$ ▘&▞` LIST x▝p(▝[O] DRAW [O][D].,USR [Q]6 LIST ? LIST [Q]`0>=8 RESTORE 'A@ ©▘UU0▞<▝ READ ~P!P▞USR 8G LPRINT $Hp,▖<<=▝©A IF `xW▘▖▖ CLS ▘ MERGE MERGE ▘▗((USR t▝8-INT ▝dw?p*y▟[K]mSCREEN$ ,jl>=©^2▞;`(▝l(XPip( INPUT [I]pP0PvdBIN pP!▗▝ SAVE LOAD ▖| GO TO BIN LET ▝AT ▝pACS ▝@z OPEN #_[T] STOP ▘USR STOP NEW [Q]U?"_<=8 LIST 8`▛FN FORMAT FN P DIM ©r`▗ DRAW SAVE [Q]P▖"[Q]%PO SAVE DRAW pP▗▟ SAVE `? SAVE ? POKE © IF © PRINT COPY REM GO TO ▛ REM COPY MERGE © REM © CLOSE #?FN P(6 CAT ▛<j MERGE ) FORMAT POINT B<Gw[L]© CIRCLE ▖OCOS /FN PI FORMAT CONTINUE FORMAT CONTINUE VERIFY CODE i[N]INT USR <USR zUSR u CLS [S]LN ▟[Q]Q)1[M]▘2% CAT STOP RESTORE 0▝INKEY$ TO GL LINE ▝VAL$ ▖ LPRINT ?VAL LPRINT @$ABS ?[K]aq▙8[M]LN VAL ▚VAL CHR$ LPRINT s LPRINT 9<= OVER SAVE USR 9 OVER ? OVER ▜ x DRAW ACS ATTR FN [B] CLS USR © LPRINT 5 LPRINT [Q]PVAL `USR RUN AND ? LIST { DRAW ~ PLOT LOAD FOR COPY u FORMAT TBBo▖0x DRAW RETURN RETURN SCREEN$ /0)#[Q] LPRINT P? CONTINUE >LN } CLOSE #wd CLEAR [C] REM SCREEN$ INVERSE PLOT QABS REM ▞pTB( LIST STR$ CHR$ ▘IN ▘? LIST CLEAR GO SUB REM PEEK LPRINT CLEAR MERGE /?SCREEN$ FN ▘} RUN !{SCREEN$ REM ▝ MERGE wDQ[Q]VAL$ ▖▝]BF*!M .▝8 LOAD ▝USR OR CHR$ , INPUT ABS `© LIST REM AT CLEAR ERASE REM POINT ] IF ASN Uq?SCREEN$ !uqQ.*▘tBIN BSCREEN$ INVERSE >=$SCREEN$ [E]▗ FORMAT J!@`U AND CHR$ ^TAB MOVE ~IN COPY i#SQR qRATTR jSQR ++R OPEN #SCREEN$ wdSTR$ "+4STR$ B,STR$ @*8▝@&(▝8(▘▘ OPEN #▝nr$LPPpm▘BB▘BBHCOS Ef[H] LPRINT FORMAT REM [Q]t`8@4@ &[A]@DHP-INKEY$POINT ▟USR 0 LPRINT (@[G]0@▗EDED&LEN [F]SCREEN$ SCREEN$ UU( INPUT VAL$ 7{ COPY mCODE ASN BEEP IF © INPUT TO USR AND |LEN ▖ INPUT VAL$ { COPY CODE ASN IF © NEW [I]77 INPUT {zCODE SQR FLASH FLASH ATN POKE ACS >=OmSQR ; CAT VERIFY INK LOAD INPUT FOR
49347▘ / CONTINUE [U][E] +=▘BD$▘▖ CONTINUE RANDOMIZE FOR [H]▚FDBB&CHR$ >=<>▝nr$LPPpm▘BB▘BBHCOS Ef[H] LPRINT FORMAT REM [Q]t`8@4@ &[A]@DHP-INKEY$POINT ▟USR 0 LPRINT (@[G]0@▗EDED&LEN [F]SCREEN$ SCREEN$ UU( STEP [U] OVER NEXT GO SUB s▟!PEEK ^d MERGE GO SUB VAL ![T] OVER RUN ▘Q<> GO SUB LN !▚RND[Q]~ 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[^ LLIST ; LET w IF 1 NEXT NOT R[R]NOT DEF FN NOT DATA NOT "▟NOT STEP ▟NOT A▙NOT OPEN #▙NOT SCREEN$ ▙NOT }▟NOT LINE NOT BORDER ▙NOT LOAD [A][H]NOT [R]NOT H[S] STEP OPEN #▙<> STEP NEW >=2 ERASE PIUSR >CODE STEP A▙ STEP STEP ▟ INVERSE !7 INVERSE ~!ACS _PEEK > INVERSE n INVERSE f OR INVERSE N INVERSE F NEW ERASE STEP "▟STR$ INVERSE # INVERSE #TAN INVERSE # MERGE : POKE < RETURN CODE 2 POKE <> OR PI(G( CLEAR FOR LLIST STEP :▟NOT ABS ▟w#wPppp p(4▝#p8p@pPpXp`ph@x▘<> LLIST p▝Q▜<> INVERSE ![G]p DIM DIM ▗ INVERSE f DIM [I] INVERSE Fz CLOSE # STEP ▙STR$ INVERSE PAPER : INVERSE ▟< RETURN DATA INVERSE ▟<> GO SUB C8▙PI( RESTORE FOR G0 DATA [J] INVERSE F RESTORE MERGE OR STEP 1▙*8▙##"8▙STR$ MOVE LLIST ## FOR <> RUN STEP }▟!@ CLEAR t▗ AND Q]▝;]▗ INVERSE f]▜ INVERSE F~ MOVE !]!q[P] STEP SCREEN$ ▙( INVERSE 6 COPY OR INVERSE RESTORE STEP ▘y STEP } STEP h[B] INVERSE LLIST STR$ !LN _4 STEP BORDER ▙q▘A▖▗SCREEN$ :Q▙A▖[G]Q▙<>:INT _ VERIFY RETURN 0ABS 0 AND ABS 8:SQR [C]0SGN 0 AND SGN 8> COPY PI<>CODE PI<>▙[E]▖ INVERSE ~ INVERSE w GO SUB [G] NEXT <>:LN _PI STEP STEP "2 RETURN >F# RETURN @CODE P!aZ[A]cZ!eZw#wIN <>giwgtwj OR wi[T]wgdwj PAPER wjNOT wj TO wh▚wk LOAD wfFwlxINT h[B]wk LET wfZwfQwk RANDOMIZE wk FOR wk DIM wtytytyty ▘▘CODE xxs NEXT xiAT wp[F]x INVERSE !{[A] INVERSE RESTORE OR ▚ INVERSE ~PEEK . INVERSE nAT ▘>[A]▗▟[A] INVERSE LLIST 1SQR INVERSE ~P▟~ INVERSE w STEP 1[A]STR$ INVERSE LLIST 7▖SGN <> INVERSE ~PI &$▖ RETURN (< INVERSE w LET ▗SGN (/ INVERSE w,PI(=`%▗SGN ( DATA [L][L]<> COPY COPY RESTORE ! RESTORE PI(Ci MOVE RESTORE FOR STEP ERASE [A]STR$ MERGE OR MOVE STR$ ▘3nr#v▖ MERGE MOVE DIM CP▙<> RESTORE d MOVE RESTORE MERGE LLIST }l&CHR$ )w_ CIRCLE [O] FOR LLIST <>:ABS _PI(# RETURN (|P> STEP %[B]:CHR$ _yPCODE @▗|P@▝CODE ▗* LINE _+▟>O>[B] MERGE GUSR [R]▖ # OR MERGE GO SUB [Q]#IN MOVE STEP S[B]STR$ INPUT <>z NEW USR { AND _ CIRCLE z VERIFY W<>NOT t[B]NOT w[B]NOT z[B]NOT }[B]NOT [B]NOT [B]NOT ▚[B]NOT [G][C]NOT [I][B]NOT [E]NOT 2[O]NOT 7[Q] STEP [M] STEP COS [M] STEP ▚[N] STEP MOVE [M]:ATN [T]▜2 INVERSE !H[F]!INKEY$ RETURN COPY ($SQR ▝CHR$ IN 3 VERIFY STEP }[H]▝ DEF FN [G] BEEP NOT PEEK [D]:EXP _ THEN _CHR$ BRIGHT [L] THEN gCHR$ -[D]<>2 RETURN ▖H[F]Gd CLEAR @<▗SIN (▜y STEP LEN [D]qQ F INK Gv▗~PI(CHR$ &=G0a▝ RANDOMIZE "9[C]PEEK CHR$ K[C] INVERSE ~ RETURN OVER ( INVERSE n INVERSE fI▖ INVERSE n INVERSE f DIM 7▖2[C][L]CODE wNOT INVERSE [B]ABS ▚:[C][L]PI('pFF▝:©▘w LINE INVERSE wIN ▚ AND INVERSE wCODE 4▘ t▞ LINE LIST [C] STEP yNOT DEF FN [C] ? ATN ▝ OR INVERSE n INVERSE u<>▗ INVERSE t`▝0 POKE ▖ READ CODE 2[A][L]2[B][L]s▞ STEP =[D] STEP LIST [C]NOT GO SUB [D]DVG]PEEK [D]CODE OVER w<> PRINT @[J][G] LET wNOT W[C]:[A][L]!POINT P"$[D] STEP [D]:[B][L]!<>▖PI ![D][L]r▝ PRINT [O] IF RESTORE INVERSE LLIST !SCREEN$ P[N][D] STEP CIRCLE [B]:EXP [L]PI▘ EXP [L] INVERSE ![R] BORDER ▝V?▙ STEP ▜[D] STEP [C][D] INVERSE n INVERSE f STEP i!ATTR ▞x[D]<>"▖[D]POINT [L] AND $ IF <>"[D][D]LEN pP▜CODE w$ CLS p▙ CLS <> OPEN # RETURN {[B] CLEAR ▖_ LET <>![A][L] PRINT ▘ FORMAT ▝ LET LET ▗v[E]## TO ▝S FLASH ▝^▞ INVERSE ~ INVERSE n INVERSE f%a5 NEXT ▞ CIRCLE <> INVERSE *USR [D]:NOT [D]&▜ NEXT NOT G[E] STEP VERIFY ▗ CIRCLE v THEN ^USR POKE STEP CONTINUE LOAD INVERSE !W[I] REM ▘W5▝G39▝STR$ [S]0]▝ DIM 6K▛ FLASH NOT [C] INVERSE *[E]:[E]pZv▟CODE 2[M]2COS [M]2▚[N]2 MOVE [M] POKE !~[F] RETURN AT NOT READ [C] COPY [B] COPY /L COPY C COPY / COPY 4M COPY COPY 3▝ ▝ ▝ ▝ COPY 4MN3 ▝ ▝ ▝▜ COPY ▝▞ ▚▛ COPY COPY ▗1927 COPY P▘▘▘QTAN ZLEN ▘}TAB I/][I]bo~ka s neftx`0[U][I]USR ▖pistolet COPY %<>[I] COPY USR STR$ amu0▟ INK [I] COPY 6▜kame{ek%▖ DATA l▝p [F]/[I]staq 0PI@ PLOT [I]mo}nyj dinamitn[S][J]wzrywatelx .;[J]@P[A]emkostx COPY .L[J]/▝@[B] polnaqO[A][I]3[A]motok werewki J PAUSE ▗LN [K]STR$ [A]|lektrofonarx ~ FLASH ▚pogas{PEEK ▙swe~a=[L]6gorq}P j[K]1)▝r`allj▗[J]x{iw PLOT [A]baks? THEN [J][F]novi~1_▘>▛▗ NEXT [J][S][K] me~ kladenec 2$[K]▜▞lowa drakUSR ▞p▛ grozootwodQBIN ▝0<> ▘rq!er ognem▛▝[L]"7MertX[S]▝▜ POKE )!est^▝n▘©HC!)otboj CONTINUE ▝mATTR tm"▖kusa~[C] NEXT ▝c▜q!_predohraniD[L]R lmnic ▜▝▖ CLEAR >1VAL [O]uskowoj ry~ag▟[K]> COPY 2|[E] STEP INVERSE [C]&.0▝ STEP INPUT ▘ DEF FN [C]▝▙▝<>0>0.6▛[F]2[F]2$[F]2*[F] RETURN COPY z▚.&>G▛&. STEP SQR [L]CODE 2v[E]0a3▝CODE cA▝c0I▝▘PT▝<>▗0[F]>`▘ PLOT [F] z▝0[J]: PLOT [F] f0VAL i. i[A] CONTINUE [E]2 INPUT [E]2 POKE [E]2 IF [E]2[F]2[H]PINT ▝ INK ▘>0s :▝▜IN MOVE [C]>2TAN _>X2ASN _ STEP OUT ▗ STEP a[N]CODE 2[E][E]2[K][E]2[Q][E]2INKEY$[E]2AT [E]2SIN [E]2LN [E]/2PEEK [E]2 STOP [E]2BIN [E]2 LINE [E]2 FORMAT [E]2 VERIFY [E]2 BRIGHT [E]>▝&<!▝7▝ MOVE [G]▝'▝ COPY .>0[P]>©▝U DATA LINE REM [J]=2LN _ STEP SQR 1w>[O]▝t▘.>▝sc▗2.[H]©▞COS [M]CODE 2[F]2[F] /▝a b▝ CIRCLE ▝` CIRCLE >1> PAUSE ▝s▝64▘h[K] [C]▝@ RUN ▝ RUN ▝1@ RUN RETURN [N]!SGN _ THEN VERIFY <>& DATA ▝ LET CODE 2▖B>1c>A▞LN _ RETURN PAPER [C] VERIFY 0BIN ▗CODE 2W[I]"<▝Pz▝l▝B!▝Q▝Q▝B▝▝ MOVE ▝USR LEN ▝5▝f▝▙▝B+▝▘ MOVE [M]PI[U]▝q[H]▝ INVERSE ▝A INVERSE ▝▝ Q▝▝! RUN ▝bj▝<r>"Q*▝#0y>$%▝B%▝USR ▝%6 COPY 26BJ+▝B GO TO 3J▝tH PAUSE ▛rmanFN PATN P>=P BEEP [S][H] RETURN COPY COPY RETURN 8© COPY COPY ©8>6 RESTORE OR PRINT [N] STEP [Q] STEP FORMAT ▗vv LET <STR$ LLIST GO TO <>> THEN COPY 2[<> INVERSE !D[M]; POKE ▝) DRAW -▚) DRAW K REM ,▝-EXP ▝#?!2[A]2ACS _ THEN % THEN % THEN $ THEN $ THEN $"TAN _TAN ▚[I][B]STR$ NOT n[M].GPEEK STR$ [R]NOT [E] OR 6# CLS STR$ <=▘ RETURN LEN ,▗2▛[M]<>SQR ▛[M]>[Q]▜>M&. REM ▚:[K][M]/2[K]N GO SUB 0▗USR >d▝V▟SQR [M]< RETURN j >d2SQR [M]<> N▗USR > N▝ INK N▝©▜:[N]PI USR ,▘>}<P( THEN GO SUB }2 REM [M]>zQu : DRAW [M] RETURN (>=2 DRAW [M]▗(1<▚:[N]< RETURN }h▜z2[N]&: CIRCLE ▘GUSR -▘<oO[A]>=NOT BRIGHT ▗! "IN _>2PEEK _<>m[E]/2[N] BEEP OR !Co& OR RESTORE THEN RUN ▗ LLIST 9▗ LOAD STEP FN aLN vCODE STR$ OVER 0ASN ▖USR >.&]▟>▙ SAVE ▝▙G▙[N]<>!INKEY$▞` STEP MOVE [N]NOT <>[N]>_@▝a▘:FN qFN [N]<>! STEP SAVE [N]! ▝ ▝ ▝ ▝ ▝7▛ LET <>U OR STEP [O] STEP PI[N]p▟▖ INPUT <>!#ee▝ RESTORE BRIGHT ▗ GO SUB [Q] GO SUB [Q]LEN [B] LLIST FOR RESTORE STR$ LLIST STR$ REM <> INVERSE ! LINE [Q]bV▝> BEEP ▘2u▗ RETURN ▘8©▚w GO SUB _ NEW 2▘ DEF FN BORDER *A[C] STEP [K][Q] STEP 5[P] THEN © INK FOR STEP [S][O]© PRINT ▚STR$ ATTR <> RESTORE MERGE ABS !Y TO STOP ▗EXP [U] MOVE LLIST COS GO SUB Km[P]:l[P]<2l[P] OR LLIST s#r# RESTORE STR$ !/[P]INKEY$#ACS # RESTORE FOR O▘ FOR LLIST ppp p p0p@p@pPp`p`p▚ GO SUB Cm[P]<>M./▝n▖ RESTORE THEN / THEN / THEN /oNp▝wm▖<=<=((INT ▖tt8o[P] COPY COPY COPY ▘[B]▖PI>=!o[P]^#V FOR LLIST pppp(p2p<▜ GO SUB [Q]=PI VAL CODE NEW W▝"e▜ RESTORE THEN THEN THEN 0ABS 0 AND ABS 80SGN 0 AND SGN 8 LLIST > COPY PI<> LLIST CODE PI<>00 2 USR ([B] ((((#00CHR$ _CODE 4▖2SGN _2NOT _>PEEK PLOT !4X TO PAUSE [C]![R] DEF FN " AND _!HSQR "BIN _!TAB " LINE _ATN [T] STEP _2 VERIFY _>NOT 2 FORMAT _2 OPEN #_ GO SUB _2COS _!n[B]" MOVE _!q[B]" CLOSE #_!<RND">=%+▖H[S] STEP [S] STEP LN [A]▛PEEK STEP STR$ STEP e[B] STEP h[B]TAB ▘ STEP %ACS ▘b[B]▚VCHR$ <[S]:ABS RUN ▛">© FLASH RETURN NEW > CLS (:ATN _PIBIN ?[S] STEP ▙>& STEP k[B] NEXT >> GO SUB G GO SUB V CLS /BIN [R]NOT TO PLOT ▟▙ TO _PI>= STEP MOVE [R] STEP CLOSE #>;[G] OR CLEAR © GO SUB ySTR$ <> NEXT PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE PRINT INK ▗ INK STEP [/▘(0[E]▚ CLOSE # STEP MERGE [R] STEP E[S] INK LLIST MOVE STR$ INK LET CLEAR LLIST INVERSE LLIST [C] LET CLS <> NEXT ! RETURN RETURN > CLEAR w GO SUB VAL j INPUT CLEAR CLEAR ! OUT [R]" RETURN CLEAR > RETURN ▘^ CLS <>NOT LEN [R] STEP EXP PLOT NOT H[S]NOT N[S] PAPER [H]NOT POKE [S]>=2O[S]PI(N INVERSE ! FOR [S] INVERSE RESTORE uPEEK INVERSE e▜ NEW R▘CODE Q[A] AND S INVERSE THEN & THEN +▜% GO SUB !INKEY$Wpp▝ GO SUB MOVE V[G]!y[T]~#"ATTR [S] RETURN $(% RETURN #() STEP POKE &o[F] GO SUB [ IF GO SUB R NEXT [S]~# IF [D]1/▗CHR$ !0 ▝INT c|▗ INVERSE !E[T]TAN ▘ IF ?AT Y" BRIGHT [S]>i AND S▚CODE w+O▞ MOVE LLIST STR$ % GO TO <> MOVE ▚$y[T]{[T]▟USR [T]TAN SIN [T]NOT [T] BRIGHT [T] SAVE [T][U][U],[U]E[U]V[U]g[U]{[U]▟[U][K][U]PI[U]LEN [U]<=[U] STOP [U] LOAD [U]RNDRNDRND*RND # bezum▜u~e▙▖# sluveb[K]▞podxemnik▛trav pe}ery7tajc▖ komnataH a zlobnogo ~k▝p▘grobit= MOVE `F={`▝ B NEXT ban0o▜zdesx biwi CLEAR ▘iqi▞o~ti dobrl{AT [S]▝m▘▝o,byt *▜glawnye%▘rop[U]▖sekretom@ CIRCLE ▝n THEN @STR$ ▝#@/STR$ .@ CONTINUE C DATA ▘re0▗gang LIST ▘ we`:}ie BRIGHT da toJQCHR$ .b▘ov IF ▜agregat$[S]# hit CIRCLE ▝m CONTINUE {ahn LIST ▝dpCODE ▜ #IzZ▗o ! P▝!LEN ▘~u0▝!KATN ▜n q dam CLS ▝s LPRINT ▝`Arog▘mn!e}x!@wi©? ERASE ▘il/TAN us neftx` na/ RESTORE ▝nTAN ▖monolit.<> F@@▘wy-▘elA>h▝w0I▝,a BEEP [D]orwalasxi raskro{il@Y▝xPC@▚▘za&▖dinamitw▘enups VERIFY =razdalsq DRAW ryw▝!@SGN TO HSTR$ ▜ ruhnu~▝!©"A▘ot@CHR$ " ERASE ▗benz%▝w LINE @ INPUT Pi▗L▝i▗nety▞▝m{▘po[F]qtxX▝o|uvn[K]▝w3f▝e:[J]qeACS "©PEEK TO ▝o RESTORE ▝s INVERSE © ERASE © LPRINT ▘ | READ ▝?o PAUSE _ COPY ▗tebe@ CLS 4▖spasibo,3{▝t PLOT ▝i# RUN {no,aIN ▝q r▗we~aJ▘wnl▟ogasla*|j, LIST ▚tiliq, COPY ▗nxkuY▚najdet▜▝?[D] INPUT beri,esl/▞move{x`|▖kerosink[E]2rSCREEN$ }▘u, PLOT d▜e ispug,R▗is~e▘<> } CLOSE #apa#7|`ta CAT GemuuJ▚dvordv ▚{ingto TO ▞w t`betej BRIGHT 5r▗Qnow1▙dollar$nu l_▘o,#U8▗arokcr MERGE ▗wkl` ogV▝e>=▗napr#lplamqd lx NEXT r DIM 5 GO SUB Lq SAVE TO ▗ledq" INK ▝kY▘arT? CLOSE # 3 MERGE EXP old#bes[G]▘tnC OPEN # TAB ,▝nd▘ql▜vi~ek i THEN wradme~ k*▗enecD<T4v,wo OPEN #azi DIM ▜ebqiwan[Q]▘caJT▝m PRINT ▗srub[G]▝nIN ▘wiT▝oUSR drag▝uBlowDPPI▗t kr'▘al[J] ERASE ▝n REM ▟dlq opytow.dag CLEAR [S] OVER ▝rABS 8▞|tu {tukor2E▝d▝l OPEN #▗omoo OPEN #▝d OR zrqdyB{▝i54k[J]9 STOP ▟j |kzemplqr,~RND▘wy OUT X(hotit GO TO %@x|velez1▝k VERIFY ▗raquACS ▗s izO▟4SGN ▝ ▘ne]u▚ LOAD ▘:t x(▗lift PAPER rab▘et FORMAT ▗< '▘za0&[S]6na~ PRINT ▚nimatxVBwerhnSCREEN$ ▗x e6kru▝{▟▘nk%SIN ▘to COPY t GO TO ▝of@COS wozxm$▝j CLS ▛▜nojotbo'©▝m& LLIST ▝k IF !ATN ▝g©/!4Vna{el9▝i# DEF FN D[Q][T]▝qLEN ▝e<=▝aa$V? OR ▞▙*▝ ![B]▘ihSCREEN$ PI▘& ▚nibudx!SIN ▝ 1Fa.w1'1CHR$ ▘ohP ERASE lxw@7&(/▝s▖ READ 7▘ig3▝o([D]▛. COPY COPY COPY SAVE ©[A] LIST ? COPY LPRINT @ COPY USR 08[B]` COPY )©??/@5▝~▚ ▝U>SCREEN$ *▝?▚p CONTINUE COPY Y▝ CLEAR j DRAW MERGE SAVE jB SAVE 5 ▝*`▝| $zASN f▝ IF ▗▘<[A] FORMAT [G][Q]▝▘ LIST SAVE SGN CHR$ ▝ RETURN ▗ DRAW LPRINT TO TO ▘ DEF FN ▝X CIRCLE ▗cHCHR$ LPRINT USR READ FORMAT ▝USR [R][Q] MERGE @SCREEN$ ?$▚USR :?* OR @ PLOT ▜Z?=>[Q] REM ▝ ▝?0?Z▝CODE H▖ RETURN ? LIST ?©V▘/USR ▘[S] ▝VAL$ t▝`USR COPY ▜!▖▘x TO ▘▗ TO ©3?▘? CIRCLE [I]USR SAVE LIST LN T SAVE POKE Z LIST 4` CONTINUE hf PRINT P REM [Q]$x LET P PLOT VERIFY [Q] DRAW ▝ STEP ▚FN ▝ ▝▘PFN AND [Q]VAL$ ▝ATTR H COPY [Q]▗▘USR [A]▘}?[G][C][M]▝ CLEAR *▘z8▝▝pUSR ▘ LLIST "H▘USR P!?$@USR ▝L[E]▗E CIRCLE INKEY$0 OVER DRAW . OVER RETURN = DATA DRAW REM IF LIST CLEAR Tf▘FN f▘T▘NOT ▗ DRAW T PLOT FOR FN DRAW STOP CLOSE # LLIST SCREEN$ ▝STR$ ▝STR$ P2[T]FN 8▝ FOR H RETURN FN ~▘x▗7@V CAT [Q]/▝ LOAD B▘wN▝rBqRND▝h▝▘2▝SGN ▗e VERIFY ▝t"PEEK ▝SGN "PEEK ▝VAL "PEEK ▝p LINE ▗8z! RETURN ▘ PRINT ©d▝ REM B▗ OR ©F▝6^<▝F#<▝#<▝▘#H▝PZ2j▝ VERIFY "Fh▗ LPRINT [G][U] ▝ MOVE ZFRH▝ SAVE CIRCLE r@qt▘!©F▝USR ":▝ TO @h VERIFY VERIFY PEEK ▝/"PEEK ▝, LINE CONTINUE LINE ▗ LPRINT CLEAR @d▝ IF PEEK LET @PEEK ▝▙":▝ FOR #▝ PAUSE #* LLIST PB▝STR$ #6▝STR$ PZ▝ READ "j▝ MERGE "F▝ COPY H▗INT "4▝} [G] CIRCLE 0st▘|▘▘0[O]▘s LIST ▝ AND " VERIFY ▝FPEEK NOT VERIFY FN `▝" IF ▝▜! RETURN COPY P RETURN "PEEK |PH▝ READ ": IF FORMAT <▝ SAVE 0 LIST T<#6 LPRINT CLOSE #"^▝ MOVE "j▝ PRINT pH DRAW INPUT ▝;|▗G FORMAT @ ▝w▖▘t▘T▘▘ LIST v▗ LPRINT H>=N▖ CIRCLE 1[E] CIRCLE ▝ MOVE PEEK ▝INT ▝ CLOSE # ERASE USR SCREEN$ REM USR CLOSE # PLOT ▝ LLIST 6▗© CLOSE #B"PEEK _BIN ▘ REM FORMAT ▘TAN COPY *#<▝#<6▝ DRAW P POKE ▘5[S]▘Z H▝ POKE TAN ▝< ▗▘<▘ LIST <5H0▝ SAVE `USR ▝ DRAW OR R<▝ACS B▛? LPRINT ?USR SAVE ▝ STOP "<= LPRINT CLOSE #▝ OR $, ▝[A] NEW ▘<=:z>F!▚ RETURN ▝>▝PN[O]T[M]▘USR SCREEN$ `▝*SGN >>= STEP "▙ PLOT ? SAVE ▝ FORMAT "[K]▝ FOR $[I]▘ BEEP ERASE ▝h6USR ▝ COPY LPRINT INT ▝`~USR ▜HUSR ▝>= TO ▝$FN ~ POKE ▝$%▝B$ SAVE ▝ RESTORE " INPUT ▝ IF ( CLEAR STOP ▟ PAUSE FN # BORDER D%[U]K>=RGVAL ▝[S]`▝ RETURN ▝O▘7[U]▜AT USR CLEAR P2▝ IF ||fEXP FORMAT x▝S▘▖ FORMAT LIST AINKEY$▘>fCHR$ ▝ RETURN E▝?USR ▗<▝USR CONTINUE ▝Bn DRAW INPUT ▝ DRAW /F%[Q]▝ READ [G][S] FORMAT STR$ TAN ▘N2▝[T]#VAL$ ▝^6 $▝ztUSR & PRINT [A] DRAW ▝ REM ▝ PRINT CLS IF ▖ $< CONTINUE `l ERASE ▚▝ LOAD ERASE _$ ▝VAL$ $V(6vBIN qqqqqq▝<&FN ▝f&▗▝NOT $z▝ NEW qqA!t1 DEF FN <▘'[U]0L▝ RETURN TO ▝▝ABS !▝['▝[D]21▝ LET ▖ LPRINT ▘<▖ COPY $▝$ RETURN $BIN USR L▝h LINE Zpr4r4r424p BORDER H4▝ PLOT [A]▝+@[M]▝ IF r@r4r4r4B4▝94▝A4▘[O]▘C"FN [O]yyxJ▝ COPY $[G]▗ RETURN LIST (F:▝0cH▝L^USR dL▘ DATA X▘^ CONTINUE (8L~▝j)▝[F]▝N▘u8:[Q] PLOT ▝p$ REM $▝(& REM ▝:Hf▝▝'▝ ERASE TAN x@x@y*▙▝ LIST 8L▝(j▘0?: LPRINT @▝ AND TO FN l TO [G]▝')(~v TO LINE ▝ RETURN #B RANDOMIZE CONTINUE N▝ OVER DRAW ▘$▘*▘SGN ▘ IF ▘H▘/▘STR$ BIN :PUSR ▘ vvUSR yCHR$ v LINE tttD▝,$▝z$▝n$▝4tt3[A]ACS ▝ STOP TAN ▝:▞>[U]USR R GO SUB RLN IF DRAW ▝t$▘[L]#▝Q▝z[E]z[O]▘NOT ,&▝▙v▝ COPY j▘©%j▝ COPY ujj0▝▝&$USR d▘(s CIRCLE CIRCLE ▘@ CONTINUE ▝ NEW &▝yFN TO USR ▝@USR ▝-USR ▜INT ▗USR L▝T IF t|t CONTINUE `j POKE BIN ▖Uh STOP SCREEN$ [H]{B{L{V{`{j{tp CIRCLE @ CIRCLE ▝AT ~ LIST p CIRCLE ` CIRCLE ▝TBIN ▝$%L▝Z0▝VAL FORMAT USR ABS TO ▝ LIST ▝X*▝CHR$ ▜# RESTORE TC&0▝G SAVE ▝bF$▝▜ [A]ATTR REM [C]Q CLOSE #-VAL$ + ERASE |||| |*|4|>|H|R|/|f▘<=- INPUT ▝ CLOSE # FORMAT + VERIFY USR ▝[D]6[H]'z▝i!SCREEN$ T[A]Z▞ INPUT J@TAN ▞ DRAW U GO TO IN * INPUT <= MERGE P NEXT uuuuw[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]w[B]v▝vIN vv▜v▞v▛v▟vu;v!v!▝v#▝v%▝v'▝v)▝v+▝v-▝v/▝v1▝v3▝v5▝v7▝v9▝IN v;▝vvvvvvwwwwB▛:81▞13POINT vvvvvvvvvvvvvIN vvvvvv<ATN [B][B][B][B][B][B][B]IN [B][B][B]^`▟`▛`▞`▜```▝[#IN ▝▘▗▗[F]▝▝▝▝▝▝▝▝▝▝▝▟SCREEN$ IN ▞▞▞▞▞▞▞▞▝▘▗▚IN ▜▖▞FGH▛▟[A]▛▟[A]▛▟IN [A]▛▟[A]▛▟[A]▛▟[A]▛▟[A]▙[A]▙ASN [A][A][B]*[B]*[B]*[B]*[B]19▝▝▝▝▝▝▝▝?USR p NEXT p NEXT @ NEXT SGN ▞▞▞▞▞▞▞▜▝*[B]*[B]*[B]*[B]*[B]*[B]*[B]*[B]*[B]*x~▗▛[B]FGH8>DJPV/[H]pATN ▖ATAN ▝▜4[P][G][M][K]▖▜▜▜▜▜▜p DRAW p DRAW DRAW pUSR pUSR pUSR pUSR USR EXP nMq&q&q&q&!&@INT [B]▜▜▜p OVER OVER ▘▜ FLASH r©b©[J]▙▟▛▞▖▜[F]▗▘▝▝▝!YINT ▝▝▝513579;=ABS ;975G.[M]▛▜▖VAL$ TAN INT ▜[U]▜8ATTR v[A]v[A]v[A]v[A]v[A]v[A]v[A]v[A]vSGN ▙vvv▖v▚v▗v▘v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝v▝vsIN ▝W%u,v.[A]w+[B]w)[B]w'[B]w%[B]w#[B]u▗[A]wwwwwwwwww▟wwww ATTR [A]▖v▖v▖vvv▙@ATTR [A][A]v[A]v[A]v[A]v[A]vABS IN u7u5u3u1vvvvvvv AND TO ERASE CIRCLE OVER DATA REM LIST PLOT DRAW GH2[J]q&q&q&q&!&qqp CIRCLE p CIRCLE 0 CIRCLE =u;u9u7RNDPVAL$ 0USR [J]uuvIN COPY w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝w▝tt5w=▛w;VAL ▛w9▛w7▛w5▛w3▛x▖uw▛w▛w▛w▛w▛w▛w▛w▛v▞v▟vvv▙[C][D]vvvvvvCHR$ ▝>=vvv▟▙v▙v▙v▙v▙! READ [C]▙v▙v▙v▙v▙v▙v! GO TO PAUSE SAVE RETURN CODE ASN SQR STR$ <= STEP OPEN #[E][A]w[B]ykl@NOT uauaua[T]▙▙▙[A][A][A][A][A]9;=IN ;!▝#▝%▝'▘)▝▘▝▘3▘5▝7▝9▘;▘)▝+▝'▝-▝1IN ▝3▝9▝;▝533333334▟}}▖S DRAW ▞▟▟▟[L]▟▟▖▚▗▘ OR [C]▙'A▝▙';2) q!▜▙▙&▙,IN ▙▙▙;9/53IN #')FGHHGFA AND [A][A][A][A][A][A][A][A][A][A][A][A][A][A]TAN ▙▖▚▗▘▝7▙9▟;=▛ACS ▝▝▝▘▝▝/▝1▝ THEN [O]5▘7▝9▘;▘=▝)▝3▝5▝▝▝K6%[H]*▞FGHc▝|[M]▝X)ABS 6▛8▛:▛<▛=▛>>▞>▖>▜>▚>>▗>>▘>▝FGH9[N][A][A][A][A][A]▟rBq OR ▘▞[A][A][A]! READ ▝,*Mh[O][B]▝▝▘▘▝▝-▝ FOR ▙▝▘▝▝:▝ POKE LN ▝▝▝▝▝*[A]*[A]*[A]*[A]*=INT ~▙ FOR [T]RINKEY$▙▖▚▗▘[A]RLN SIN ▝[B]▝)▜▝▝ MERGE [B]FG!f▙▗0[N][B][B][B][B][B][B][B][B][B]▖8[E]▗ CLEAR ▗[B]:LEN POKE CODE ▚▛▟VAL$ ▗ATN ▘ u[B][B]IN ▝ GO TO ▘[A][D]▙▙▙▙ BORDER 3 REM s BORDER C BORDER IF ▗▝ IF ▚▝▝! PAPER ▝! CLOSE #▛▝▝▝▝ LPRINT RND▝▝GH;TAN ▞▞▛▟▛ TAN ▗▟INT IN ▛[A]5[B]7[B]9[B];[B]=[B]1[B]/[B]-[B]+[B])[B]▝{ LET ; FOR ▝"[T]hn▘[B]{[E]{[E][E]▝b[J]A<))~TAN % OUT RESTORE FOR LET GO TO RUN *9HW▘[A]p▟▘▟e-▘<>$8RND/148;FG▟%"▚ATN RINOT M▝▜hBqpUSR pUSR pUSR pUSR &[C];▙HGFhSQR INT ERASE CIRCLE | ERASE AT ▝▞▞▞▞▞▞▞▞▞▞▞▞▞▞ CAT [K]▜▜▛▟PEEK ;▛y[A]75[A];▟;;[A]9VAL$ 7[A]4[B]2[B]0[B].[B],[B]*[B]([B]&[B]$[B]"[B]![B]/!/!▟/!▛IN FGHA▛>ABS ▞▛▟[A][A][A][A]/▙1▟3▟5▟7▟9▛[H];=▞!▛!▟!#▟#%[C][A]#[A]![A]/[A]135[M][P]▝TAN ▝3LEN ▝▟LEN ATN ;;▙NOT [E]=▛=▟==[A]ATTR ▛# COPY ▝ REM =AF▚GHv▚vTAN TAN <>▞▞▛▟ TO ▟▛▟▗[A][A] DATA [A]=▙_▘SQR ~4~4LN ▖333RX▙3333# DRAW ▝▘ PLOT ▝ VERIFY ▝ VERIFY ▝STR$ ▘▘ DRAW ▘3▝ PLOT ▙▘▝▘▝% OPEN #▝▝▝ DRAW ▞▝T▚▙▝&[M]********3[A]aY CLS !;B!k©©▞ELK%R▗X9▘+U▝RO▜U▝73<[B]NZUSR ▘ATTR [U]RND▙▙▙▙▙▙▙▙▙▙[D]▖▚▗▘▝O▘##$%▙$["U'[A])[A]+[A]-2["LXIC FLASH TO [L]▝▝▘ CLOSE #-IN OR (O BEEP INVERSE LOAD [A]▝▝▝▝▝▝STR$ ▚#IN -/357Y( GO SUB q CLS [P] PLOT CLEAR SAVE FORMAT CLEAR CLEAR FLASH FORMAT [N] PRINT CODE Mu RUN USR 8▛ MOVE s USR STR$ B[U]( DATA CAT RESTORE g FLASH ©FN ©[U]©_8©o/ATN PEEK O©[U] COPY NEXT CLEAR PLOT s PRINT > BORDER P(▚▜o8©©_&[H]FN g FLASH RESTORE DATA CAT CLS [P] SAVE DRAW ATTR TO UCOS RND POKE THEN FOR /oPP[Q]USR LPRINT PI DEF FN USR [Q]/ LPRINT OPEN # LPRINT INPUT /[T]PEEK /©PEEK COPY : CLEAR INVERSE s GO SUB > LOAD Px[A] LPRINT >=e POKE r REM XTz*}/ LPRINT p0▟FEFE ERASE ▟ FORMAT ? CLOSE #EC:f[N][Q]UTIN FN _ POKE =INT _ CLOSE #ATN x© POKE = IF © POKE ATN z© POKE ABS SAVE { CLOSE #PEEK ▙SQR LN © POKE / REM _DSCREEN$ UPNOT B0[Q]p:0:p*P*:x▗USR 3 INK LIST CAT PI© COPY RETURN @UZSCREEN$ k INK PLOT ' PAPER POKE 0X,ABS CIRCLE FLASH CONTINUE fpgp BORDER 0NOT LPRINT ▝USR NOT DSIN INKEY$P[Q]USR USR SIN ATN L[T]F][R]4 BRIGHT SIN 2/:a[U][M]Y:t"BSGN [K]AT DH(▖[A][A] [Q] USR DRAW USR QV OR BTAN pL0L[A][U]jvvF"4! BRIGHT &pt0t[K]*t STOP LN p[E]bX4 4H@@f▝q&[R][M]Fa[R] FOR BRIGHT [B]2f:[U][N]YNGGASN ASN jjHHCOS COS THEN THEN INKEY$INKEY$R>[N]▝[Q] LIST [M]VAL f[D]USR [T]P]▖44SIN SCREEN$ /aJ[M] LOAD :POINT CHR$ BCHR$ CHR$ f[N]@&TAN [j4H[U]SIN a THEN [D]INKEY$[T]A][M]4:2AT /!PVAL "▙ INPUT SNINKEY$ASN FLASH (▝COS 0(▙BB*]ACS 1 BRIGHT )/*BaW[K]0>=.t,t^zVjT*_ IF *TAN -T>=0USR STR$ Fp([I] FORMAT PPhHH CONTINUE [A]P FORMAT p(]e▘Pp▝pPPPB[A]FN HH CONTINUE pPpx@[Q][A]-TAN + CLOSE #VjU*TSCREEN$ Vj+ CLOSE #-TAN p[Q]p>=[Q][E] FORMAT Hhp[Q]pFN p[Q]qp LIST p LIST p LIST LET ▜[Q] LPRINT %▗STR$ EQh[M].[Q] FORMAT LPRINT `USR @STR$ V3 LET $▖@@[A]▟[A] FORMAT LIST 2VAL )` LPRINT P( Hf▘@ CAT [C] (`@ FORMAT pVAL `USR PP $! NEW X[D] LPRINT FN LIST VAL p px0z[I]@USR H[Q] FORMAT P SAVE XVAL `p[Q]▝x z[B] FORMAT - LIST LN SAVE P[Q]P>=80&CHR$ ▘&▞` LIST x▝p(▝,[C]▝ SAVE [B].,USR [Q]6 LIST ? LIST [Q]`0>=EXP :▘© COPY ▗<=<=0▗ COPY RETURN COPY RETURN ▗@Q▝▘z▞@`@n▘EE CLOSE # T▞USR 8 RESTORE 'A@ OPEN #▘dd0j▞<▝ READ ~P!/P▞USR 8G LPRINT $[M]p,<<=▝©A 0BUUSCREEN$ SCREEN$ UU▖▖""▖▖@Xb THEN GO SUB TAN FLASH nACS OUT mPEEK FLASH |sj▘ LIST PI[B]f`' LPRINT ' LPRINT ; LPRINT LPRINT LPRINT [Q]$W▝%}k[Q]`x PLOT COPY COPY RETURN ©88 RETURN © COPY COPY o PLOT G STOP `sINT [D]| TO 99G RETURN COPY COPY CLEAR IN IF _ CLEAR ? DRAW ▗IN COPY COPY ©4STR$ G6k▖_ PAUSE +[U]'BIN ▘ +@STR$ Cr LINE LEN OUT DRAW COPY IF B[M][M]|[STR$ AHA BEEP p RUN ▘ STOP $l▝ RANDOMIZE ©▘ DRAW ▝CODE OPEN #IN sUSR INKEY$ LPRINT uH` REM [F]0U(LN SCREEN$ U?U(?SCREEN$ UN?[N]TFN INKEY$?POINT TS?USR RSCREEN$ POINT GO TO *RNDTU GO SUB USR SCREEN$ FN ]SQR ▘TV[% RUN ▝/AT LOAD COS NEXT &▘ DRAW LPRINT ASN RETURN [Q]? AND ▖ COPY g COPY [Q]!▘© COPY ' COPY COPY USR LPRINT COPY COPY LPRINT LPRINT USR COPY LPRINT s COPY IN COPY CLEAR ©[A]© REM IN COPY IN COPY RUN OUT LOAD COPY RUN LOAD FLASH ▖ PRINT INPUT COPY VERIFY DATA ATN ▘POINT k▘B q▝=w▘ COPY z▝?5ACS LLIST DU[S]▖ GO TO <=[B] RETURN FLASH CLEAR IF USR CLEAR LPRINT ©[Q]3 LPRINT @n+ BEEP ▞<j MERGE ) FORMAT POINT B<G7 ERASE VAL$ *U@?> LOAD UOUhU@U`U>BIN <j MERGE ) FORMAT POINT B<NOT GU>=ATN RETURN USR CLEAR ` CLS VAL CLS < CLEAR SGN RETURN x© LPRINT LOAD ACS ww9>[G]TAB VAL LN 8V BORDER "WpU5[G][J] LPRINT PLOT CLS @©g[L] COPY COPY COPY @ RETURN p OUT IN ^a @!FN <> AND F@SCREEN$ [U]@C9▖88 |USR G COPY BIN 3 COPY [I] COPY 0 COPY OUT COPY LPRINT COPY CLEAR d COPY VAL s[I]pBIN X▖F& $[S]pU0U:TAN ~ LPRINT ABS LIST OUT p COPY LN © SAVE IN LIST © SAVE $IN DRAW J_ DRAW E BRIGHT @PI INVERSE # MOVE (o LPRINT BEEP USR WUSR ATN `YZ$ RANDOMIZE pSCREEN$ qT▝xoEXP USR TAB LIST SGN [A]^+&.,[E] THEN USR b RESTORE TO MOVE c[O]FN >=[A]BIN ▝pmCHR$ LIST RESTORE p STOP LIST LEN LPRINT 2 LPRINT gZp COPY APOINT [F]VAL [M]2.<yJp!0VAL ▝STR$ 8▞4``fUSR L[B](BX'8+▝P%A0@USR >qTQT▗0p]tVAL q▚8A[E]▝ STOP b▞ ▝(PXh0 CLEAR qPOINT !TAB ▘t▘P[K]} LPRINT COPY p RETURN LN CLS P~[I]/>= RUN SAVE IN FORMAT Up<=[B]/`COS LIST / LIST CONTINUE INT IF XpPI- NEXT ; FOR { NEXT @k DIM `{ PRINT `} RANDOMIZE VAL RETURN POKE [A] OVER REM [Q] COPY t[I] COPY jFN [T] CIRCLE COPY y ~ PRINT P~ FOR | PAUSE LPRINT } REM USR 3 OPEN #' LOAD 7ATN @7 FORMAT PEEK REM ▞ABS k PRINT BRIGHT NEW ▝▘ FLASH B▝ PLOT F▗ REM ▖▝@▘ PAPER @ ▝ OVER 0( LOAD ▘FN v▝ CIRCLE ▝tASN ▟SCREEN$ OUT v COPY jk RETURN s+ CIRCLE G,XIN ▗@ STEP v@[Q]p ▘BFU LINE ATN [G]PEEK CLOSE # CONTINUE FORMAT SAVE CIRCLE 6l CIRCLE [▝ LPRINT j▝GY CLOSE #> SAVE LPRINT LPRINT USR USR =*,py▘EC8SGN [D]? RETURN _ COPY N LOAD STEP U:SCREEN$ [P] RETURN {SQR UU*? RETURN [P] COPY JATTR [F]U? RETURN CLEAR ▗ AND COPY [E] MERGE MERGE UUWATTR SCREEN$ RETURN SCREEN$ ATTR MERGE ~ RANDOMIZE ATTR SCREEN$ a▘a ▝ OR $▘a[D] OR SQR STR$ RANDOMIZE ATTR <= LLIST I MERGE COPY qIATTR LET LET ▜ INPUT LET ICODE *[B] [G] RANDOMIZE CODE LET LIST a MERGE OUT pAATTR COPY LPRINT a MERGE COPY USR AATTR Pk▝ATTR t▝ MERGE n▘ CLEAR ATTR sINKEY$ FOR MERGE LPRINT CLEAR CODE 9 THEN MERGE m STEP ATTR 9C▗ CLS MERGE FBIN STEP ATTR FBIN CAT MERGE COPY FBIN CLEAR ATTR FLASH ▝CODE ▝ OUT (▝CODE 2▚ATTR OUT THEN MERGE V▘▜ COPY COPY GO SUB ATTR BEEP COPY COPY ▙w COPY ATTR BEEP RUN INVERSE OUT MERGE CODE SCREEN$ SCREEN$ ATTR ATTR OUT CIRCLE ▘ MERGE CLS ` BORDER BRIGHT ▝A▝F ▜AEGGDAD IN ▝AATN ; CIRCLE &| DIM >▝©[I]▝ IF =▘5[K][C]▝BIN ' RETURN [D]▝ SAVE &[N]P`▘ LVAL$ <= LIST IF [Q]U▘SCREEN$ @PI RETURN USR COPY CAT COPY @ COPY VAL$ [Q] COPY COPY `ATN z[Q] LET COPY MERGE `[Q]*SCREEN$ [Q]U LPRINT HATTR [U]^>▘ CLEAR [K]▜ IF LIST CLEAR SQR ▝ PLOT USR ▝ _@pp2F GO SUB w▘8▘ATTR Z▘GG TO G ▜; OVER INVERSE OUT b'▘ INPUT PAPER USR ▟IN INK _[Q] LOAD INVERSE © GO SUB CLS ~ COPY CLEAR CLS o CLEAR COPY RUN COPY GO SUB }qASN LET ASN LET ASN PRINT ? RANDOMIZE IN RUN COPY DRAW OUT 7 CONTINUE IN BRIGHT IF ? SAVE CLEAR NEXT RETURN DRAW COPY /▖[C] CONTINUE M LIST COPY READ RETURN LN © LIST OVER READ COPY REM yVAL w READ w CONTINUE _ LIST q[R] LET LN 1 LPRINT _ LLIST COPY RANDOMIZE ? LPRINT ©a RETURN VAL + STOP ?STR$ COPY [J] POKE ABS [Q]/STR$ STR$ USR ABS @ COPY tCHR$ IN USR COPY LIST _USR IN rUSR [B]>= LET [Q])▝[P]© RESTORE ▝[P]}[Q]CODE ▝[F]© STOP ▖ CAT ▗K[S]%M[Q]© LLIST G THEN [Q]6USR LOAD ?[T]ip1IN LPRINT 4"PIp?P,gh CIRCLE A4PIY OVER *wl[H]6SIN TW[L]▖*Rl[G]USR >"SIN V[M]STR$ )epj[F]STR$ ?$LN PLOT CAT IN [P][R]/G_ GO SUB / READ ;ECODE RETURN READ / INVERSE ▟[H][T];▜ COPY CLS [H]mc? RUN RUN © NEW =▜IN LOAD <=_w?▞ LET MOVE CHR$ qATN u CAT COPY COPY CHR$ _ASN w DEF FN OUT [P] STOP LEN w FOR ~ CAT CLS ©b} CLEAR O CAT [D] DEF FN {m RETURN RETURN NEXT COPY COPY _ LOAD ©© STOP CLS PLOT © LOAD DRAW COPY FLASH IN IN y LET MOVE LEN SQR LET NEXT © COPY PLOT COPY SQR NOT INKEY$_CODE LOAD {ABS ATN © FLASH INPUT RETURN CLEAR COPY RETURN M[P] CAT }[P] CLEAR CLEAR COPY COPY ~k©} CLEAR ATN [© CLS ©SQR 2[M]q PRINT LET LEN q LET q COPY ©© OUT COPY ? COPY CLS COPY OUT LOAD COPY © FOR CLS INPUT CLEAR COPY CLEAR PRINT ©IN NOT ▝ COPY G▖ COPY DRAW CLS NEXT {CODE RUN LOAD ▘ RETURN OUT CHR$ LET ▘LEN LET f DRAW GFN ```[P] RANDOMIZE [P] RANDOMIZE 00p&o▘p) COPY INPUT _ AND ▛[USR GO TO k<>I LLIST w STEP STR$ [N]▘ CLEAR ATTR ▞U<>I COPY ATTR USR RETURN MERGE OPEN #ATTR ? COPY COPY U6▝ATTR :▝ MERGE ▝ FOR ABS FOR PTAB ▞[J] COPY COPY 3$HRND▝0<>GINKEY$ TO L▜t[P] LOAD &[U] RANDOMIZE } POKE = INVERSE ?y7 DIM =ASN OFN PLOT CLOSE # CLS FN DRAW [Q] DRAW FN [C] COPY FORMAT CLEAR `©[A][Q]| FORMAT INPUT LN OVER CHR$ LPRINT INVERSE FORMAT OVER VAL IN u@ COPY [Q] GO SUB VERIFY USR 8[Q]©` CLEAR RETURN [Q] CLS P CLEAR VAL FOR H VERIFY VAL CLEAR HGBB<>B^ ERASE ▝ SAVE f COPY COPY ▚ OVER OVER TO FN ACS ACS CLS LIST INVERSE INVERSE OUT pRND COPY LOAD r2 GO SUB OUT USR [OACS GO SUB LPRINT <>[J]CODE READ pvv CLS ]LN PEEK SAVE ▜0g▞p CIRCLE GO TO D[K]b RUN EXP RUN SAVE USR ACS USR FOR RETURN INVERSE SIN RETURN LPRINT RUN LIST PAUSE LN CLEAR t7ACS CONTINUE { FORMAT RUN |[Q] READ LIST [Q] CLS VAL |o LIST RETURN AT SQR FnSCREEN$ CLS VERIFY jp OPEN #▗B[E] CONTINUE = REM MERGE ▘>= COPY G[N]▝ IF ATTR ▝ BRIGHT CODE ▝ DRAW ▝INT oSCREEN$ 0-CODE @4c@, @▚ LIST 2CODE STR$ B▘ LOAD { GO TO J▘ OUT o POKE ▝p LIST 4 FORMAT p▝ LIST COPY STR$ NP/ READ o CONTINUE LIST [Q]USR USR S9g▘FA+b
