| Es parte de la publicación: | Raid over Moscow |
| Tamaño del archivo: | 28928 |
| md5: | ed63f3d1694a4cdde415ae9fc4c4d67e |
1 REM CODE 2]/NOT =1PIaCODE OPEN # RETURN 2H/2▟/ STEP k> STEP !xi STEP @] STEP xi2 STEP => OPEN # RETURN 2 STEP =CODE OPEN # RETURN !xi STEP @] STEP xi!FN aZ STEP @]!FN a RESTORE ! NEXT RESTORE CODE NOT 0= KORUND
2 RANDOMIZE USR 23887
59136▗SIN ▗ RETURN COPY SCREEN$ 5619 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 CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LLIST ▘&STR$ f▘ COPY ▝CHR$ ▗ SAVE SAVE llNOT f▗ll SAVE SAVE THEN ▘USR LINE ▝NOT INPUT /td INPUT NOT ▚00ppNOT 0▘xx THEN ▜ COPY COPY RETURN USR ▗STR$ ▝ COPY NOT | AND USR AND |<=|| LPRINT LPRINT ||▗ COPY ▝tUSR ▝▗)STR$ @ NEW lxl NEW NOT ▗ LPRINT LPRINT ``SGN xxll NEW OVER ▝|USR AND @▖xx TO TO DRAW DRAW USR USR hUSR VERIFY ▗ DRAW f|f AT ▘STR$ ▘||STR$ TO ▘~~ CAT >>33ff||ll"BIN <~ AND { STEP D▘`` STEP ▘@▗ff~~@@~ TO |l DEF FN NOT ▘ DRAW DRAW STEP ▘||STR$ `▘ LIST LIST CAT ▗NOT y[Q] OR ▘xxCHR$ xUSR ▚<<66 ▘ TO TO 2 ▝`@l@▗USR USR TO TO y@ CLOSE #▗ RUN f~"yUSR THEN )2`b@yUSR <=STR$ 3 LPRINT ▘xxAT CHR$ BUSR yUSR THEN ▘??[G]`▗USR USR RETURN RETURN BIN ~ FLASH ~< STEP yUSR STR$ zUSR C@▗ AND AND INPUT INPUT STR$ RETURN ▘ VERIFY VERIFY STR$ AND DATA ▝ NEW USR ▝ AND USR zUSR ▗??:y▘zUSR THEN @▘~~2USR b~▗||lB▘y@USR C▗88llINT zUSR CIRCLE C| THEN ▖ccww©©kkQ`c|<=zUSR USR ▘f LOAD NOT | THEN USR ▚``<<x@ LLIST @ OVER C`D@[Q] OPEN #m@STR$ {@USR D@STR$ yUSR <=NOT c@▗ VERIFY VERIFY ll COPY CHR$ E@▝ NEW TO PEEK ▘ff}USR CLOSE #▗ RETURN `x`#▝| TO BIN AND ▝|FTSTR$ ©@_P_ LINE @▝©NOT DUSR -@x▞ COPY SAVE LPRINT pUSR ▖▗ LIST qSTR$ P~USR <> TO o▜ LIST p@@pCHR$ ▝[A]%[R]T▖ NEW NEW PLOT PLOT OVER OVER DEF FN DEF FN | VERIFY F©USR COPY COPY COPY COPY COPY RANDOMIZE CLOSE #G AND MERGE G OR MERGE GUSR RETURN GUSR D▝ CLOSE #Gx x CLOSE #G[ OR C▝G CLOSE #C COPY F FLASH F 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 CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <><> COPY ▚ DRAW NEXT | LIST FOR 0@▗ RETURN LET ~=QSTR$ CLS 0CHR$ CLS MERGE X=|▘▝NOT STR$ BORDER ▚ LPRINT LPRINT BORDER <=▜<=BIN BORDER READ LLIST LPRINT x[G]▘STR$ z▗ CAT > LIST USR (ATN ▞ SAVE DRAW RETURN COPY COPY OUT OUT PAPER STR$ OUT READ FORMAT RETURN RANDOMIZE <=> SAVE 0= DRAW CLOSE #>Pz▝▚?P=<CHR$ © LINE })V▚USR USR USR STR$ USR USR CONTINUE qnUSR LPRINT DEF FN LIST ▘ LPRINT USR 1[G]▘STR$ 88||8| DEF FN ▚ RETURN qVAL$ ??P OR ?? NEW <= BORDER NEXT PEEK CHR$ RANDOMIZE OR SAVE ▝Aw{ BEEP ▘STR$ STR$ CHR$ READ CHR$ RUN ]9@▜[S]FSGN <<xa6:u▘ RUN RUN PRINT CHR$ <=CHR$ ▜NOT 9@J[Q]▘rVAL$ CHR$ DRAW ]ABS f NEW zUSR zUSR PAPER STR$ NOT LPRINT ▝USR 0 NEW z@Mk[G]▝ DRAW ▗sVAL$ RETURN ▘ COPY COPY CAT RUN s<▜{W▘▜ DEF FN CAT <=NOT STR$ |>=▘ LPRINT px@▝ LIST ▝▝ RETURN LINE PEEK RETURN RETURN DRAW SAVE LIST NEW IN @▗||©©LN ▘@STR$ NEW USR LLIST STR$ NEXT NOT READ OR NEXT ▝ LLIST ;@ OVER ▝|AUSR LOAD OR STR$ LOAD INVERSE ▝|u▝USR #▚▘CHR$ [P]CHR$ BIN [P] VERIFY [F]I*SCREEN$ ] RETURN CLEAR COPY CLEAR SQR DIM AT * READ NEXT RANDOMIZE CLEAR CLEAR AND |▝ DRAW ?5 COPY b PLOT ▞@@ LPRINT @▝s{CHR$ ?▝<`9 DIM ▗7u INPUT KSQR CHR$ ~▝<J!8▗o OUT IN ©T SAVE FLASH CHR$ bYH8 INK "▛IN _/ CLOSE #=h STOP ▚H8▘ COPY RETURN [B]&FN LOAD F OR © OR IN I▙N LLIST @9SVAL ▘ LIST SAVE ACS hL& INK ▝ RETURN ▝8r PAUSE N▝▘ OPEN # LINE OM[D]!E% THEN 5 COPY g%E8 GO TO STOP [A] $H PAUSE AT PLOT CIRCLE RETURN LIST DRAW STOP PH$"{PEEK READ fCOS ▝ LIST USR COPY COPY RETURN Ivy[D][Q] COPY CLS DATA COPY PRINT ASN ASN PRINT PRINT COPY CUSR U▜PPGv# MOVE ▝" CIRCLE ▚ LIST SAVE LOAD e▖ SAVE @ FLASH FLASH ASN `B▘ FLASH RETURN IF PAPER FLASH IF IF : CLEAR SAVE BIN USR ▛6l CIRCLE 0 LPRINT USR STR$ STOP ▖USR ?©P?USR ▞▝ NEW STR$ [A]Zz IF IF REM SCREEN$ SCREEN$ INT REM FN LN ACS ▙<p( COPY COPY [G]??IN ▜[P][P] CAT USR CAT CAT RETURN DRAW LIST COPY ? CONTINUE ▟ NEXT CAT ? RETURN RANDOMIZE BORDER [P]{ REM AT SQR INPUT BRIGHT TAN DATA >=[A] (STR$ ▝?'P[Q][N]N@▙. COPY ?USR COPY zj+.{/>x` COPY SCREEN$ SCREEN$ PRINT ▚ CLEAR SCREEN$ [U] SAVE OR ©USR ▝ COPY ATN DRAW ▝' CONTINUE >> INVERSE USR GO SUB ▙ STEP ) DRAW m GO SUB TAB TAB GO SUB VAL$ SAVE LPRINT IN t;[F] RETURN SAVE [A][Q]@ RETURN SGN SGN LN LN VAL VAL [Q][Q]e OVER CLEAR [F]PEEK PEEK [Q]PEEK >>:: LIST INPUT { COPY ▝:r{▝<6▝ COPY .+USR FOR ▜ BORDER BORDER RESTORE RESTORE GO SUB GO SUB FOR CHR$ ▝@ LPRINT ▞ DEF FN <> THEN CLEAR 3 READ CLEAR USR PLOT PIINKEY$ POKE POKE 44<<|STR$ X©ppBIN PSTR$ `STR$ @▝CODE OR T RETURN SCREEN$ RETURN SCREEN$ RETURN STOP [R][Q] OR ▝ LPRINT ATTR .. .F CLOSE #[H]?? COPY @IN OUT CIRCLE ^[O] DEF FN VERIFY Z[M][O]N.& CAT .z CONTINUE ▘ MOVE ▘? AND VAL$ >< COPY COPY COPY COPY LPRINT LN VAL$ + REM rSGN OUT LOAD OPEN #U PLOT 77[Q] FORMAT >=▘▘▝A@@?USR GNOT ▞STR$ COPY DRAW { CLS ?[K]▘ DRAW /[J]@ LIST [M]ATN ▟7SQR AT ATN [N]TAB ATN SQR TAB VAL$ o; RANDOMIZE A>▘, LPRINT ▗Uj BRIGHT ▟ COPY SAVE LIST OUT FLASH OVER FLASH OVER COPY `VAL$ ▛USR p CIRCLE OVER wASN INVERSE g{ INVERSE VERIFY mw[ INVERSE VERIFY BEEP PRINT u==<p▝U'▖ COPY ?USR ©VAL SGN USR ABS ▝ COPY [K]▘ LIST [Q] USR ©w~okkz:Nv{l▞:Znv{mnk,LN ▘@<=~ COPY © FORMAT OVER VERIFY VERIFY RETURN *[G]USR LIST SAVE PEEK CODE ATTR ATTR REM zINT OVER LOAD COS ABS VAL$ CODE ATTR FOR jINT DRAW [S]▘ ▘ COPY T▚ SAVE PEEK VAL$ REM B©*▝VAL$ POKE ▝ LPRINT E[E]SCREEN$ REM IF ~[O] LOAD NEXT CLEAR PEEK RANDOMIZE AND UATTR @▝ COPY [F]▖© COPY LPRINT BRIGHT MERGE PRINT }"▜ CLS CLS KJ REM CUSR LIST DRAW PEEK ABS ATTR INKEY$TAB FLASH ATN &[Q] RUN RUN C▗UU COPY RUN [E] LOAD CODE INPUT n/© SAVE RETURN IN CODE ATTR REM : CLEAR CLS RUN LOAD OUT OUT IN IN OUT LOAD DRAW ▘[B]▝▚ COPY ©©{ COPY ^▝ COPY }▝SCREEN$ BEEP AND GO SUB (p▝ RETURN ▝ CAT y▘▝▜ LPRINT LPRINT 0SQR STR$ LEN ©©~ DRAW `dACS TAB [L](8q▜<>▞I© FORMAT <=<= COPY <=©x~oSTR$ RUN RUN ▘ PLOT m0 LPRINT q READ OUT DRAW INPUT OVER ? COPY ? COPY ▝|[I] OR M▘ PLOT 0FN r▚ BORDER USR IN ©USR ▘ RETURN E▘ RETURN OVER [A] LOAD LIST w8[P] CIRCLE LOAD CONTINUE COPY SAVE COPY ? CAT 3?_P▟ RETURN CLEAR IF RUN LPRINT OUT OUT [[ FLASH s▝ RESTORE REM ` STOP ▘? CAT 7P▖ RETURN DRAW CLS PRINT LOAD OUT O BRIGHT ▚<=; CLS COPY LET LPRINT BIN OUT ▗>})}(▜[E]▗[P]BIN LINE LPRINT T▖USR IN COPY ~©DH[E] RETURN DRAW 8 PAUSE CHR$ |)▝ STOP ▗D 0 MOVE ▜83766CHR$ ACS ▗738FN ▝ DATA ▟©USR COPY RETURN COPY STEP COPY a▞0O LIST SAVE STEP CLEAR } CLEAR CLEAR STEP GO SUB m GO SUB STEP &D▜`p[A] COPY %▞USR ▘ RESTORE @[ LOAD LOAD l INPUT INPUT BIN AND ▛ RETURN } COPY RETURN © COPY USR [O]IN BIN COS IN [O]USR }INKEY$▚| COPY 8<= COPY PAUSE ▝PEEK BORDER $ INK LPRINT LPRINT a LLIST LLIST STR$ STR$ ▙USR USR STR$ COPY COPY ATN >> CAT GO TO nn AND f NEW <=▜ OR [B]STR$ 2 COPY READ COPY | SAVE !WUSR 83n▖LEN IN [P]USR RETURN © READ COPY n LPRINT LPRINT ` LPRINT LPRINT CHR$ USR OUT OUT CLS CLS $} FORMAT LIST COPY ©USR ▗▚USR 0▘STR$ /USR LPRINT q©© CLS OUT [P] INVERSE `wwBIN 6▘ww/ CLEAR ▞ NEXT © DRAW © COPY ~▗O LIST C[R][T]▗▝G!"TAB ▝USR /▜ LET SAVE TO GO TO llSTR$ m▗l GO TO TO 1@▞<<=$ COPY COPY LLIST ©immH▟? OUT # CLS !Q| PLOT PEEK ▖[E]▖# INVERSE [A]! RANDOMIZE #S0 LLIST AND a▘VAL m-+ SAVE ▘ LPRINT SAVE p▚ CLS KO COPY O▝O0&▗$>=8>ATTR 8A] PRINT >F▘ CLEAR [Q]▘ SAVE LIST INPUT ▝> BORDER ATTR ▝ LIST AND x@7USR LPRINT LIST DRAW ~USR COPY '%▚▝>=▝ COPY 0CHR$ Vno▘▟BIN OUT ▝ LOAD USR INPUT ▗ GO TO GO TO CONTINUE CONTINUE VERIFY ▗?[H]▝1[F]99;{{o LOAD LOAD CAT CAT STEP STEP INVERSE INVERSE ]}©©USR o▛n INPUT GO SUB CLEAR CLEAR CLS CLS wwoo[C]▘RUSR ▝ OUT NOT FLASH OUT OVER RETURN (CHR$ MOVE VERIFY BEEP BEEP VERIFY VERIFY OVER INVERSE INVERSE FLASH FLASH USR BEEP ▛ CAT CAT OUT OUT RETURN PEEK ABS CLEAR } CLS CLS USR RUN ▝ LOAD ▘ OUT IN LINE ▘ BORDER NEW STR$ INPUT STR$ GO TO STR$ CONTINUE ▘ LPRINT LPRINT !▗▚ RETURN RETURN CLEAR }}{8,▝IN LIST STR$ RETURN STR$ DRAW USR SAVE USR LIST >=P▚??©,b[B] PAUSE PAUSE LIST LPRINT DATA DATA USR STR$ <> LINE ▘▘▗▗$"[L]▗DD`[R]USR [B]▞"" !#'/USR ?!J[B] COPY COPY DRAW READ COPY DRAW LIST LPRINT USR c?Gc▜▜ CIRCLE FORMAT [A][B][A][Q] COPY ▞@@DD▝▞ RETURN USR 07(=[P]© DRAW LPRINT c[P]g COPY " LPRINT ▚` USR ▚`@CCUSR AP= NEXT © COPY LIST =[G]pY NEXT c LLIST LPRINT LPRINT =} LOAD j2TAB ▘ RETURN LET =▗ RETURN LIST 0 TO ▘ RETURN RANDOMIZE 'INKEY$?▜ ERASE ▘pTAN ▖p LIST LN SAVE LIST @=▝ DRAW {▝'[I][L] OUT OUT CONTINUE <=/FN ▘ CLS CLS (bAT ▝tr~5<<=[Q]z CAT ? RETURN LIST USR -▚x▘ LLIST NEW ▝ RETURN OUT [T]>=ATN ▘ LPRINT =▝ RANDOMIZE ▗ #/[G]▚ RETURN RANDOMIZE <=? COPY SAVE =▘ DRAW STOP ▝ READ CLS g▘▘▖s▝▜[P]81▟▘@A`#n▘&/▚ LPRINT LPRINT & LLIST ▝ LLIST ▖©[P]1 MERGE ▝-5=STR$ [P] BORDER RANDOMIZE PLOT ▖USR VAL `COS LPRINT (# BEEP LPRINT STR$ DEF FN ▝ DRAW -▘ LIST DRAW <>▝ NEXT v?0[A]`AUSR FORMAT USR LPRINT p ▘USR (G(&/▘?<=▘USR COPY ▘©?▞▗`▙@0▝[Q]SGN :▝I▜▗C!▙[C] s|_WSR▘ PAUSE DRAW COPY ©[P] BORDER SAVE NOT COPY NEW TAB ``[I]USR USR 0TAN t$$/▚B▙ INPUT ▘ SAVE RETURN 8▚ CLS |_O LLIST ▜ THEN [▝1 FORMAT ▜STR$ USR CIRCLE CIRCLE SQR ; TO OR ▝@USR COPY ▝? OUT BORDER RANDOMIZE ~▝R(▞▘▝0X FORMAT FINKEY$/3<USR ▘3 DIM VERIFY ▝ LIST 4▚> DEF FN PLOT x[O] NEW OR ©[P] READ (▜▞ DEF FN X COPY -[P]PIUSR COPY ▚ LPRINT NEXT 0>=4[N]%COS COPY COPY #NOT LET AND @ THEN ! LPRINT OR USR LLIST POKE CONTINUE VAL r LIST RANDOMIZE SAVE SAVE G▟p[A]`$X[G]%[C]D LLIST LET RANDOMIZE MOVE RETURN USR ©[I] LPRINT IR0 THEN ) LPRINT #▝T6▝NOT ▛ LPRINT [Q]h MERGE "▘BIN LIST RETURN USR <= COPY <= RUN < OPEN #▘©@▜ COPY SAVE `CHR$ *Q OR [K]SIN ▚V▖ REM DEF FN `_ THEN MOVE u# MOVE ▚▜'▛A▗USR E▗RNDRND MERGE U▜BIN [T][Q][Q][T]ABS ▘ LPRINT SAVE LLIST 0 THEN a).▘©IN <=$TJ LINE VAL ABS [O]▜* DN]▛e[T][E]LA©tP@©"[N]* CONTINUE 0▖▛4c [A]H1[T]GEXP LET <= LLIST LN RETURN COPY DRAW ? CAT ",g): CONTINUE [U]▗[P] NEXT OUT OUT ▚ OPEN #STR$ STR$ q▜ LLIST 8 PLOT COPY RETURN 8D*[B]"Y: CONTINUE OR P>=W▘PPUSR V STEP Px : VERIFY Vxx x?h@<>R<>W(|@ LINE W([L]( CIRCLE ▝RxINT HQ▝G8^ OR x▝8▝y0USR y# !▝y(6 -80080T>Lk0 <>x_x A[K]H@ TASN CHR$ 8▘8 ▝z0!▘88USR `% AND ▝9([R]w▘cc("▝1 IN ) ;▜aqagfgfD▘99! ▙Z▘caUSR qagbggDH CIRCLE zfca@agge0"▝pv▝q ▝8USR a▚cffgceC▘XX STEP ▝`USR gccf▛fcgbcbjjlkk"▘GG_[J] STR$ `cggbzUSR j!▘X8 COPY USR LIST SAVE DRAW COPY COPY COPY COPY COPY RETURN CLEAR CLEAR COPY RETURN DRAW DRAW SAVE SAVE LIST ©? LIST LIST COPY COPY COPY COPY COPY COPY COPY COPY USR LPRINT LIST DRAW ~ COPY COPY COPY ©©©©©©© COPY COPY COPY COPY COPY COPY © COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN OVER OUT OUT OUT OUT OUT OUT OUT NEXT GO SUB sVAL RETURN ! STEP a OVER MERGE GO SUB VAL MERGE INVERSE LLIST !OSQR COPY CLEAR [J]X<> GO SUB LN FOR RANDOMIZE FN a INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1PIa NEXT NOT HRX[M]RNDXq LET NOT PAUSE ck▞© OPEN #i INK RESTORE */ IF DRAW :`▙ PRINT >2CHR$ <=! "HqgJ!0FN INK L INVERSE > MOVE bf~p[P]w# DIM NEW COPY REM INK OR FORMAT [D]▙▚c[N]▟3s1 STEP PLOT 4<>Y<5CODE 6? FOR 7Ms]▙ SAVE /ASN `"[M]INKEY$VAL ▜c▘▛PI OPEN # RETURN [E] STEP [A]M= READ USR ACS ▝[S][H]POINT ABS CLOSE # MOVE g LINE MERGE THEN [O]ASN [U] INPUT STEP 1 CAT PAPER [N] BORDER INK [O]PEEK STEP )CODE IN !$IfTAB BEEP 2[C]▗ PLOT LINE cIN OVER 9@SQR }ACS 3)[R] BORDER ^/VAL X[E]TAN b LET ERASE [Q] LLIST INK o& INK !H~6 COPY CLEAR RETURN USR STR$ NOT eATN 6 THEN AT f<>R[C]RND▝%[J]j▛Sc= FLASH M INVERSE MOVE d=^z[L]m!P[D][R][N]RND STOP n[N] OVER [S] PAPER INKEY$LN ▙[A],Y▖($EXP INVERSE 3,=LEN %d OPEN #|mZSIN BRIGHT <>: LET INK [ NEW s POKE <> RESTORE CONTINUE 5([L] CAT LLIST <>*7#iJ~2) LLIST Ug POKE COPY rVAL$ :SIN t RETURN ( MERGE SINT NEW TO CHR$ ijPI OR FOR ▚5 COS GO TO ▘ LINE NEXT R4 REM V LET LET FLASH 2[J]LEN COPY [J]>=dT8%STR$ INT <~[ BRIGHT da CLEAR b CIRCLE PAUSE c COPY Y DEF FN PxIZA POKE ( CIRCLE l2 PAPER A CLOSE #dFseLN ( COPY 0TAN CHR$ STEP , RETURN e POKE COPY >=STR$ >NOT [H]b AND CODE OPEN # RETURN 2H/![A]d OR RESTORE GO TO OPEN #[L]▝ LLIST [A] >G-ATTR SAVE [H]7~ MERGE #COS VAL e4 RETURN #!g/. CIRCLE ( STEP [P] PLOT + OPEN #▝ OR MERGE RESTORE MOVE ~ LET ! CONTINUE STEP ASN v LLIST MOVE STR$ ~[M]d DRAW y IF k COPY # CIRCLE LINE fIN SCREEN$ CAT ~#PI(_x PLOT @N#F(V/ RUN MERGE STOP ▙v[H]?n LLIST STR$ x=ATTR G[P] DEF FN DEF FN *STR$ CHR$ DRAW ' CLEAR RANDOMIZE RE`D NA SAVE DRAW MOSKW[I] LPRINT COPY INSTRUKCztfGRAA DEF FN INK Vf>ETSQ OVER DEF FN `R LET M[F]PEEK REM O[D].KNOT { FLASH LET NYVAL QD PLOT N_ MERGE SIN f LET BOEGL OPEN #L FLASH OVER ,USR PPf FLASH WL RANDOMIZE N1[I]BDTAB 3hZKUSR @PYH INPUT 4 CIRCLE RSQR 1 VERIFY PEEK [A.▘ OR NOT GO SUB ;[I]M_ATTR SP[M] AND 8G OPEN #d[O]EABS 5▝[N]YlL_(POINT UJ▛ LOAD Id TO M,Wa[P]&[P] SAVE J OPEN # INK BITX2 STOP 4K INVERSE C&H DEF FN xzbI PRINT ATN ) RUN ) NEW ,P LOAD U CLOSE #[O]VJe ERASE <> , RETURN ▛ATN PRINT ©ATN ▜ BRIGHT [K] STEP +JM BEEP K_jtW LET [PEEK [C] RETURN SAVE USR [D]?E[O]DK RESTORE [LINT ASN E- DATA K; PAUSE a OR S/[Q]lj DRAW FLASH IN [A]iB FLASH [R]R[A] INVERSE w[T][M]DxYt▜IN d OR BIN LN SCREEN$ CONTINUE < IF Jcp)5%PIR2 LLIST V GO SUB VxINKEY$/eS1STR$ SGN -<=[E]`_R BEEP uDL LPRINT ERASE W[O][J]Q_ STOP [F]]I&5 AND POKE STOP 'D[D]K[I]VAL$ $ STEP OUSR K OPEN #CHR$ 4INKEY$X<=jTLEN S COPY PAUSE LINE W[P]bJ THEN ,i LLIST NEW hMPZON, AND [E]ATN MOVE BEXP CODE <>&PEEK bIN PEEK CLOSE #ASN INK STR$ ▛▛2@@/W INPUT zWk[C] CLOSE #'IT=SQR j▘© CLEAR 3B"[H]' BEEP RUN YuABS USTR$ o IF 'K[G] LOAD ACS X MERGE 1 DIM VERIFY MERGE GO TO LEN OR LOAD [N]NOT TO LLIST PLOT NOT 3INT STOP ,b FLASH DRAW >[U]LN F/&.SPW1P PRINT XSL BRIGHT < INK SQR PEEK VAL s`Y MERGE ▛x[T]" CLEAR © RANDOMIZE ACS 3VAL$ 0'L FOR INT FYIN P/Cj9[T] STEP ▘ RESTORE USR P STOP POINT ▜▖[A]A[N]GB~wl[D][KIMDCOS .5? [P]) PRINT VERIFY )[D]r COPY W OUT COPY ( LPRINT RUN DEF FN x8AT s[ RESTORE INKEY$ FOR [F]),P'fJ[P]o MOVE K LIST ▖[I]P[J]VAL$ [O]'SGN u▝^q RETURN 8▝c▝ RESTORE ri RETURN MERGE Z,CODE NEXT k OPEN # RETURN !Pj> VERIFY CLEAR B GO TO NEW STEP ▜ OPEN #> VERIFY SIN GO SUB LEN LINE > AND INPUT TAN AND ACS kk POKE ATTR Z LINE TAB POKE ?|ACS <2Z▗! BEEP g CLEAR OUT ` STEP #▗IN [F][J] [Q]eTAB INKEY$<>[S]R_E AND #v!} BRIGHT LPRINT ▗k GO TO F DRAW J LINE FLASH Q-ZH{ BEEP [S]ILX&EXP I STOP Wlm VERIFY 20COS z1[C]F.SIN X[ AND [J]▜ SAVE WuS LET LINE INT ACS + PAPER RND OVER DIM jSQR K▛ RUN LN gL[L]VAL$ GO TO q6 SAVE AT RANDOMIZE ▚RdCODE YOKE RETURN NL_B LPRINT TAN _q OPEN # MERGE OUT -n BORDER rTJyKNOT nNOT SGN %(ASN INPUT ACS '▝ TO PEEK VERIFY .E[E]Yj/UVhU[F]0AT gXSCREEN$ PRINT (;ABS !2>= GO TO VAL [D]>7SGN BEEP RANDOMIZE VAL `?@ INVERSE !LN [P]$m<> OR COS NFt7 RETURN I MOVE -SGN HSTR$ OUT 2 FOR SQR ESTR$ = COPY DATA 2v OR STEP FN [O]KINKEY$ SAVE MOVE NEXT OUT RND OR >* THEN @( PLOT RESTORE ▞v3[U] LLIST [I]t>PITAN FN [O]FN MERGE RETURN [L] STEP ,[G] NEW AND g. COPY /LN d[J]gUSR GO TO INT LLIST COPY NEXT PEEK :/▙W AND 02 IF NOT IN m RETURN ( MERGE RETURN b DATA d STEP ▙ MOVE PRINT C- LIST x PAUSE PI LINE GO SUB l MERGE !LN LN 8"SIN 2TAN SQR AT RESTORE THEN .ASN NEW LLIST ATN >d GO TO ▙[U] NEW 1TAB h▜j OR * OVER ~<=aL#▜SGN RANDOMIZE GO SUB D AND G NEW GO TO O~#^9mfk<STR$ x CLOSE #<(0 OR !TAN 4 NEXT TAB NEXT AND "q`pPI THEN _SQR RANDOMIZE ]TAB ox RESTORE FORMAT INK PAPER CAT / PAPER AT <RTAB NEW #: OVER ▜<PEEK zL|r= CLEAR ASN [U][G]8Q!'}D[O]t DEF FN : OPEN #CNOT NEW ' RANDOMIZE MOVE SAVE SIN FLASH > RUN SQR PAPER GO TO BIN >ATN FORMAT INK GO TO BRIGHT ACS B AND FOR f OVER BRIGHT [L]m' SAVE ▜J COPY LLIST OUT d!<"[E]▝&m VERIFY DF IF m GO SUB RUN DRAW [M]jCOS (SGN POINT a FLASH x OVER FLASH v CLEAR [H]yEXP <> SAVE DRAW BIN SQR 8PFSCREEN$ >LN PRINT U$P ERASE <$A/U}[IJ&>=ACS TQlLp PRINT Y> BORDER G▘▙▛M MERGE KOM▛LND THEN RESTORE LIST INPUT FLASH RETURN LLIST CLS p INVERSE ▜(▚ OUT STR$ TAB FORMAT O>[U]GIB AND _STR$ [G]OW BORDER >XsrCHR$ OVER ▚CODE `USR J FORMAT _? FLASH VERIFY , OPEN #▝[v]ATN [@EACS FORMAT !L▘ INVERSE ▙FvzABS M INVERSE <>>VAL$ EVAL$ LET FORMAT wZASN 7nC}▜ LINE [D]A BRIGHT ▘ POKE INKEY$VAL BRIGHT L4 PRINT CODE IN STEP LOAD B TO <=z VERIFY Wx AND G LET = REM OUT NEXT INT RANDOMIZE fUSR RETURN < STOP P0 NEXT NEXT STOP w GO SUB INPUT BORDER #: OR VAL$ LINE b INVERSE fwSTR$ .[w OR { PAUSE l BORDER STEP c: DEF FN DRAW RND AND <>:[K] BEEP DIM INKEY$4▚x[H]ATN STAB [S][F][S] LINE [C][I]SGN SIN SCREEN$ 9VAL$ TAN INVERSE jo/[J]t$BIN [O][< CLOSE #V PLOT 1ATN o LIST ▚!SQR CLEAR >" CAT THEN NOT INK aPOINT B THEN COPY USR wSTR$ : IF |▜ AND Wi REM >= FORMAT ©F[C]ti LLIST RND CAT RETURN FOR . RETURN [I] RUN SCREEN$ [L]u!_VAL gVAL H▙5PI BORDER y OUT OR x▜o DRAW [A]!NOT PAUSE t CLS o0$ FOR RND CLS [I]/STR$ ▗STR$ LPRINT SQR CIRCLE [K]EXP w▗v THEN :zVPEEK x[K]iIN fxSQR t INK ©TAB ▞AT COS |CHR$ ( FOR OR RUN St BORDER AT E▙lINT RNDSGN COS CLS [Q] INK iABS U▚v©LN T STEP /w!<>[G]IN POKE LIST .u3 DATA CODE v FOR STOP STEP r[G][I][F]PEEK EXP IF !STR$ ~PI(6[E]lE PAPER ▙ FOR PAPER HF-7▙I DRAW /n~NOT k LET _:[D]▙ATN b INK >=8JhUSR CLEAR PI ▘_c RETURN 8 DEF FN cw{mAT RETURN BRIGHT [D] CLOSE #NOT }ACS AND USR 7 STEP C5 LINE <=:N THEN G GO SUB OR (!# IF NEXT * INK Z CONTINUE CLS LINE S7;M PAPER O PAPER X PRINT DEF FN `0 DATA <=W([P]_ NEW LIST THEN ?z OUT AND g. DATA [K] MERGE BRIGHT BRIGHT y AND © FLASH INKEY$[B]COS [SGN NEXT [I]'VAL O COPY VAL$ <F NEW LINE tINT ):STR$ C RETURN STOP x?qrNOT LIST READ IN USR [L]ATN RETURN 8 READ MERGE VERIFY NEW <==!o PAUSE BORDER 1 SAVE [U] LIST zYATAB [A]#[F] NEXT ABS 3Z=SCREEN$ O DRAW ©▖ DEF FN 4f ERASE TAB ▞g OUT p BRIGHT ©/8 READ COPY STEP Z CAT FLASH ▛z' SAVE [D]▘W RETURN R8[D][N]VAL$ 0v LPRINT SGN AND [C] GO SUB D_J9AT v MOVE VAL JzACS MOVE STOP IF !LEN I- LOAD SGN l[K]PI3cSQR z OPEN #W PRINT j IF PEEK SIN RETURN "/ PLOT FLASH nj[U]d[Q]▜ CLS INT ] OR Q&e▜n NEXT POKE .EXP GVAL zwSIN CLEAR [O][C]G[J]W INK INVERSE MERGE ATTR ABS VAL$ ▟ DIM LEN STEP DRAW vb PLOT RETURN [E] PAPER _rwG TO BEEP _LN 0tZ RESTORE 8o REM , THEN fs POKE BEEP INPUT 5ASN CODE STEP [F][G]VAL$ PRINT [Q]O([C] GO TO H▞[P][O]SGN + IF P GO TO CODE [L] REM ▜> IF ASN O STEP ATN ASN SGN AND ATN <>S CAT LLIST = LINE DIM - RETURN THEN &M PLOT PLOT OUT [R]xSTR$ xVAL PI[U]ec[P]P LINE INPUT ]c[E]_INKEY$ NEW RETURN 8mNW THEN : RETURN 0x PAUSE G>[I] VERIFY PLOT DRAW O TO &[N]>▞T PAPER BRIGHT BEEP [I]! CONTINUE AND z2TAB CRND INPUT VERIFY DATA LOAD PAUSE SQR [J] CLEAR CLS zASN 8G STOP J SAVE NOT SAVE BORDER c[H]CHR$ =TAN ABS s PRINT IF KSQR STEP ABS vNOT BEEP sPEEK >= LINE 3ACS < NEW U PRINT RESTORE PLOT EXP [S] OUT [H] RETURN !ATN (/5 LET ▞ NEW PRINT ~xw#[K] RETURN 6PEEK C LET [M][E]STR$ RANDOMIZE CHR$ [S]oATRSQR 4[D] MOVE Ue}VAL fCOS RETURN OVER ,6 INVERSE REM =J LIST CAT ABS LOAD CHR$ LET CAT [U]xNOT MERGE [G] VERIFY VAL$ POKE [S]TAB d DEF FN % ![D]: INPUT [S] STEP DEF FN cA PLOT *C[E] LPRINT >IN OUT OUT LN LINE FOR rx80[J] VERIFY INK INK NOT LLIST OVER 1V RESTORE ACS < DEF FN [J] RETURN DATA ▘PEEK CODE PEEK ASN [T]NOT LINE ct[B][R]ACS VERIFY FLASH !>=gCODE G▘ RETURN 3 PI[I] RANDOMIZE yv<>f- PLOT ][I]) REM BIN CLS [E] OUT ~INT 0'ABS 78" RETURN IF INK CLS LLIST GO SUB s LET [ AND w*NOT "ATTR LET AT ~~[L] RETURN Q PAPER BRIGHT o[D] OUT = FLASH MUSR STR$ MOVE INT PAPER 3 LOAD @: THEN OR G 6 VERIFY BRIGHT !▛va^1 COPY CAT F*▗vNOT l SAVE RANDOMIZE ▚LN <SCREEN$ SIN THEN =4? CLEAR CHR$ "u ERASE < RETURN GO SUB IiPEEK [G]f INVERSE ▜# DEF FN [S]VAL BORDER Yx DATA ,ABS |[A] PAPER STEP FORMAT 0 CLS 46M PLOT [D]O /{s[G]▞ VERIFY PAPER eF NEXT CLOSE # OUT sINKEY$ a FOR INKEY$D>[B]<GCODE AND wINKEY$RND LET ▖4 GO SUB O=|s<EXP ERASE 0 AND 1[K] PAPER FLASH bL SAVE ▝NOT 6 FLASH SAVE LN f[E][H] CIRCLE < NEXT SCREEN$ RANDOMIZE NOT )e>=FN RUN PAUSE # NEW TAN INVERSE DEF FN ▗STR$ PLOT GO SUB &[F]CHR$ fL"ATTR ABS _ DRAW ▘ LET 5r> FLASH [PEEK ~y DIM L^ REM PLOT B POKE CLEAR REM g BORDER PEEK ▖USR ▟ABS j IF ▛PEEK fNV^[G]PI} STEP CHR$ V DEF FN SQR [S]R) BEEP SGN 4> RANDOMIZE VERIFY <COS C NEXT <> INK ▙ OVER COPY GO SUB VAL !"[F]9 OUT [R]74POINT ©[E] IF DIM NEXT FLASH STEP VERIFY PLOT LLIST FLASH CLS NEXT c PAUSE ^ NEW [G]&/asch^LbdP[H]COS INT . INVERSE AND [J]H3 POKE POINT `w[H]I4 OVER _POINT PEEK ~[L]( LPRINT [O]MNOT PAPER GO SUB KSCREEN$ K LET A DATA CODE NOT LOAD CIRCLE =LN LN M[J]P[S]G=COS AT v▛ FLASH #4 CLS COPY ▛[Q]▙A CLEAR RETURN Jr COPY H[L][O]AT W NEW DRAW )< COPY _3INT } CLEAR DATA ATTR zSCREEN$ >=+ BEEP 3EXP CLS STEP <>PEEK GO SUB i[F] BORDER !5 FOR + CLS [I]//PEEK OVER "RNDWLEN © CLS v THEN [C] PRINT VERIFY COPY ABS g$.e STEP PEEK LET 0IN "PI GO SUB R FOR SCZ INPUT COPY QnSTR$ [P<> /FN 'nS LIST BSTR$ CLEAR ASN y RETURN { FORMAT AND O2U▙?-[L]>= DIM RETURN P>! THEN [ LET 8POINT COS >=wJZ▗*▝ BEEP CLOSE # LOAD OPEN # NEW ( LLIST _▘ DRAW <>[B] PLOT RUN bINKEY$w PRINT >8] GO TO SAVE f CAT 3EXP :<>DI GO TO 8 LLIST ^VEL LOAD COS COPY o@[O]TINKEY$lAT fVAL ~}[K] MERGE {[[RB_STR$ OR SQR 03:5._ RETURN Z FOR 2[G] INVERSE SQR LN PRINT {XETCM_© TO BORDER <=?><> AND LPRINT SAVE DRAW | RANDOMIZE >?A LPRINT READ CAT USR | DRAW VAL LPRINT IF PLOT CODE VERIFY TAB IF ASN FORMAT 0`@LEN ATTR +m SAVE COPY 8 CAT <| NEW ( COPY RETURN REM DRAW LIST PAPER j LPRINT ERASE INPUT [B]USR 1[[K]9ASN COPY ©? READ [T][P]_RNDl COPY r CIRCLE NEW |EXP ©[G] TO POKE ▙USR SAVE RETURN BRIGHT RANDOMIZE [I] CLEAR i[U] SAVE LLIST _ CLEAR Wm<=~B INK 8} OVER LIST CLOSE #/&D▙ COPY <=~ AND GO SUB INK CAT g RETURN RETURN NOT m;? RANDOMIZE BORDER [P]NOT LET INK RESTORE $g~ IF LEN [O][N]>(bdM&POINT *D:SGN |u CIRCLE ▘% PEEK 0[P] DEF FN 4CHR$ V CIRCLE <>l PRINT [U]?r PAUSE [D][D]INT f AND FORMAT RETURN AND [L]PEEK x8 BORDER THEN *_ CIRCLE LPRINT <=© GO TO f COPY USR e CLS AND r SAVE FORMAT :p^ IF USR V FORMAT RESTORE [C] OR RNDATN WASN VAL$ VK[P][J]`UVAL$ ▝©PEEK &D RETURN ▚ READ ▜ REM mc▙ RETURN NEW CHR$ SAVE LIST VAL INT LPRINT } TO W FLASH IF DRAW [U] LINE 7 RESTORE 38NX|INT NTAB X OUT PLOT < AND INPUT ▚`& NEW PI INPUT PLOT USR [C]THx GO TO USR [R]*▘ READ >vfp CIRCLE RETURN u/r CONTINUE [J]ATTR [H][I]<POINT .[Q]>f6pSTR$ BEEP $[J]t[T] IF POINT xN LIST CONTINUE BRIGHT ~5 TO LIST REM 0r OR XL- CLOSE # STEP [Q] STOP STEP PLOT LINE OVER DEF FN g<= PRINT [F][D] PAUSE <FSGN Zb>=WT PAUSE V [R][P] PLOT <> STOP PAPER G}} COPY 8<D▙ LLIST " CLEAR vKVAL$ STEP PEEK I GO SUB PIl-x@[B]X IF SCREEN$ STR$ [S] STEP [U]h{@x ERASE ▙[B]0CODE t0RND▜[F] DEF FN RESTORE PAUSE $FN (}z9jUSR [D] CLEAR OAhTV_RND MOVE FORMAT CLS 'VAL SCREEN$ ~W_PI[J]CODE VAL `~ THEN ▖SQR NEW MOVE 8@nx OR READ PIUSR SATTR <> FORMAT ▟ CONTINUE KALEN |.CP5VAL ZpD_|POINT `> LLIST ATN PRINT y▞ CAT pSQR LN MERGE IF a TO q<[C]B[J][R]C NEXT ASN & SAVE g[F]CODE ©~g LIST RUN [H] RESTORE [H] LPRINT SAVE ?[G]|ASN `cLEN USR qACS V PAPER c; DEF FN IF l?1PEEK PEEK - READ [P] COPY FLASH ?<>CODE PAUSE Z[D]F[P]ABS ▙ FORMAT LEN CODE [P]9 LIST VAL BEEP [P]|5?&ATTR AND [E] FORMAT d NEW ▗[J]&[E] INVERSE [E]y0USR INVERSE [A] RETURN STEP CLEAR 3 SAVE [I][A]; STEP ©J[Q]!ATN RETURN R[Q]y9C& GO SUB INK FORMAT f2 THEN V[R] AND L[K] OR DRAW CAT 4 CAT LEN S|©# AND OVER LPRINT r CLOSE #▗[J] DEF FN [L][B]SCREEN$ GO SUB SIN [D]SIN CIRCLE X CLEAR RETURN IUSR INK GO SUB COPY BRIGHT REM _ DRAW [M][O] RANDOMIZE ABS {_ATN - FOR TO [M]} CLS ?9 RESTORE [J]USR ▟SIN RUN } FLASH FLASH 9 GO TO VERIFY INPUT ▜m7 INPUT z03M POKE GO TO W TO 3 PLOT GO SUB m DRAW [B]POINT RUN %[P][P]▗ CLS *gwUl INPUT CIRCLE PLOT IF ACS 6mLEN l[R] PAUSE FN ▙TAB BORDER GO TO LIST 2/!% LOAD VERIFY USR SAVE NEXT [P] LIST STOP RANDOMIZE INT PAPER J CAT [A]8COS C IF :ATTR INK C OPEN #▛©J REM STR$ @IN |?ASN NEW FLASH SAVE m SAVE COPY [J] LOAD LOAD PAUSE Zl THEN TAN LLIST FOR POKE STOP IPI▜|[t CLS PI~M LOAD D? CLS l RANDOMIZE BORDER >;P LPRINT GO SUB @ERND COPY |<=_1 OPEN #;xRND[F]c7 OVER BEEP ▘*g OUT PLOT %/%SCREEN$ %VAL BRIGHT IN ▜W CONTINUE SAVE COPY STR$ ABS TO ?@~ CLS ▚VK[Q]▛▟z CLEAR GO TO SCREEN$ / FORMAT NEW lNOT }[J]▙Q_>=<=▛I[Q] PAPER = RESTORE p7P3H@TAB [G]VAL ,? CLS ASN RANDOMIZE PRINT INVERSE y DATA ' STEP STR$ [P] COPY READ # REM [P]PEEK [M] IF [E] IF INVERSE ]|<=j~[P]EXP HLN <= GO SUB A GO SUB XfaAcPEEK d<5 CIRCLE OUT RANDOMIZE *U{xk[U]` RUN LOAD [U]' CONTINUE |5|NOT ©▖X RUN G6 MERGE NEXT [P]STR$ AC[G] DATA oATN POKE `▙ LET DEF FN _ GO SUB sbO[S] NEXT > RETURN M STOP GO SUB G! CLS " BEEP LLIST >M2b![D]oLSGN CAT # CLS GO SUB ^.> STEP VAL a@ STEP FN IF SCREEN$ ASN ▘ LOAD FLASH CIRCLE CIRCLE ^ FOR {STR$ CLS ATN AT LIST <>VAL$ TAN STR$ SAVE RANDOMIZE BEEP [P]ATTR AND RETURN 8< CLOSE #XX!X GO SUB ERASE ATTR ATTR A GO TO ▙ RANDOMIZE >!N▝▞u▗[A]ABS S▟ COPY w▙ACS NEXT [L]PEEK INKEY$# SAVE GO SUB { IF [V CLS <>FIDACS INT SQR SSTR$ RETURN COPY ACS KCODE COPY ^+,H_CHR$ G PRINT !ajATN BIN K INVERSE RVAL$ SGN vf][R]( FOR |[A]▙T{[P] STEP 3RND FORMAT LIST 9 LIST j7<>e INVERSE L ERASE STEP CODE MERGE "2 PAUSE INKEY$1V[O][I]r CLS F GO SUB VAL NOT #NLEN PRINT C,AT lI BORDER MOVE WEsNOT INKEY$IN RUN FORMAT =G GO SUB 5 DIM PRINT CLEAR COS o_>[R] AND @gy?rb[P] COPY o RESTORE k&) CLEAR LIST x FOR LLIST ATTR 9w$ IF LINE gT LET <>@w)<= TO STEP COPY <> INVERSE [F]< OR COPY 3INKEY$w#yVAL ▖[J] PLOT STR$ ]^^ FOR NOT INKEY$▝> COPY OR RESTORE &Xh THEN !ATTR READ 0$ STEP PI REM O~ LLIST STR$ <>wINT RESTORE PRINT FOR GO SUB CONTINUE LET n BORDER THEN h(#[G] RESTORE FOR <> IF a: INVERSE VERIFY INVERSE SIN IN )x▘CHR$ 8 CLEAR I INVERSE , INVERSE RESTORE LLIST OPEN # OVER CLEAR RESTORE MOVE { NEXT (STR$ : CAT LN =iZ?VAL NOT NOT <>0 FORMAT CLOSE #<>[I] VERIFY = OPEN #BIN K VERIFY OR >= NEXT ? CLEAR + DRAW STR$ >s FORMAT ABS >=3CHR$ INT *8[D][I]o PLOT CODE < STOP LINE ▝( CAT OVER E PAPER f[N]DY:SQR $[D]IN LCODE NI?ASN INPUT MOVE A OR Y COPY >B!S PRINT INK .<?[B]▘[G]SCREEN$ ▚[H] IF !gWK©[L]< RANDOMIZE FN f->G MERGE 1[P]< NEW SQR ( INVERSE LIST SGN TAB qyx▜@ SAVE [C]) PRINT xSQR MOVE ATN LLIST MERGE <=NOT G FOR = THEN IN LN NOT <> COPY Z FOR ASN o& COPY NEW SAVE READ [F]ABS ([M]BIN *I▗ COPY RANDOMIZE STR$ N DATA INK x NEW LLIST Y!e5 MOVE SAVE 8VCODE y=▖T@q(ATTR [K]y GO SUB R NEW 8 DRAW &: OVER VERIFY GO SUB DG>?[A] RETURN PRINT r/8s RUN TO >=1▜▚▖s CONTINUE LET 8 DEF FN CONTINUE 0 IF [H] COPY [N]RNDg▗KPEEK DIM FOR [P][P][U] LLIST #IN LEN >PI(G[E]*xYIN h[O]# RANDOMIZE =2[N] LET LLIST LIST [N].INKEY$ PAUSE ACS FORMAT 2c PAUSE LINE CIRCLE COS ~w[M] LLIST RUN [D]▙ NEXT OPEN # LLIST $|S[K]NOT SAVE AND PIoSTR$ [L]a MOVE 4▗4p)~ STEP R1 PRINT $k.>VAL 5<>[E]1>=b1▙[I]9 BEEP L IF ff_&Sj%k NEXT _ikom,VAL$ INVERSE RANDOMIZE PRINT ©ASN ERASE ©}~y STEP ACS <> OR PRINT -▗ LET [G] SAVE LN [M][C][J]▞h[K] STEP EXP PEEK ▜cy~Os LIST > [C] LET MERGE AT SIN 4 CLS MOVE ` DATA DEF FN EXP AND _~[L]>COS w{USR PLOT SQR YUSR LOAD USR t▛~= RESTORE LOAD B[C]9[K] RETURN [B] DATA ` THEN y FLASH NEW 4INKEY$ LPRINT LPRINT NOT ATTR RANDOMIZE FORMAT VERIFY LOAD CONTINUE BIN ©k<> MERGE OR CODE ( AND [L]/d▘STR$ MOVE d&w#1~ LLIST <>BNMspHJKLeYUIOP6789054321T*WQGFDSAVCXZc OR MERGE u_ RANDOMIZE jb[O] BRIGHT % RUN FLASH {&[U]A PAUSE DIM @ OR x=[C]TAN ACS STR$ SIN OPEN #g GO TO CAT CLOSE # VERIFY BEEP + VERIFY RANDOMIZE INPUT q0vS CLOSE # MERGE b$S CLEAR XSQR ,c[N]ATTR { AND PAPER INT 9t INVERSE STOP ATN BEEP SGN LINE MOVE !X~Y.6z FOR 5ABS > IF OUT CLEAR INVERSE c/ PRINT DRAW -(| STEP : LPRINT [F] PAUSE %W LLIST Eg▚IN ? VERIFY ▜~!%▞ RUN [J] LPRINT TAN IAT [I]( RANDOMIZE G[I]= STEP STR$ NOT 5 CIRCLE IF J:_▙<[O]SGN SAVE LOAD DEF FN 1? ERASE IF KY(!}L`▙~u+ PAUSE RETURN mw OR &[U] DRAW S>= CLEAR LIST I LINE SCREEN$ aD TO DATA ▜CODE LOAD @[P]!zRND LET [U]COS LQi[L]ASN RESTORE WW COPY [I]NOT ACS pVAL$ I POKE OVER SGN [C]K[D]yc_ POKE SCREEN$ OR FLASH 2)r FLASH DATA NEXT ATN LLIST LN LIST y RETURN ▞i CONTINUE NEXT 9[D] TO !zCHR$ n[F][I]^=SIN lLN Z▜O©< DRAW 9BIN ▜P[J] CLEAR r?uVK VERIFY EMP MERGE NJ[B]I,LEN POKE V0 AND T TO <%DJ DRAW ` NEXT VAL IA` CAT X_[F]SGN 3 PLOT ▘ STEP rSIN !1▝9ATN MOEXP LN @xEXP LET CAT k>CHR$ STEP FORMAT [H] RESTORE < PRINT [B] VERIFY CLOSE #▗j6 IF 2 GO SUB Bp CLS SGN FORMAT THEN BORDER uq LET RETURN >= ABS ERASE PAPER > FLASH >*RNDSTR$ 7)[O][T]SCREEN$ ![T]5K[O][N]_6 COPY dn[E] INVERSE NEW BIN : RESTORE OR j▝~[G]+▜USR VERIFY hb ERASE MOVE ^ LIST CODE STEP DEF FN PLOT w FOR &; FORMAT ! CONTINUE mr$▜ INVERSE ' PAUSE T RESTORE PRINT ▖ NEW }! k▜ DRAW PEEK o"d▖*_IN [K]q>o VERIFY [L]k CIRCLE wc[ STEP STR$ 0 INVERSE STR$ [H]ZA[C][Q][F] PLOT RESTORE POKE CODE USR ;!TAB RETURN cr3pK3e43,ss}_KSIN ~<= FORMAT /MV#~ATN EXP + CAT [U]SQR D)._DSTR$ LLIST MOVE RESTORE sdh OR CHR$ ▖[R] GO TO a COPY [C] RUN ▙▚[K]& PRINT LIST ERASE ▛C6 REM /N LINE [J]SGN P PLOT Y THEN LINE LIST ABS l:wURTUSR ARVAL$ Q" OUT PEEK 28BO LLIST _~▜©RUKC▟ RANDOMIZE PLOT _ RETURN ^_ INVERSE USR .PEEK 3/TURzPEEK CLEAR SGN ACS BORDER `N OUT LN RUN WN RESTORE <= INK PRINT BORDER SQR REM PEEK GO TO ▛ IF SIN $ CLEAR G BRIGHT L_bey BRIGHT x INPUT ▘x2 LINE MERGE BEEP ▟ RANDOMIZE AND K[C]kC[O].-BG THEN S[P]IDKRND5 INVERSE :L=S GO TO AND m+W:▟ PLOT PATN ABS SAVE RHLEN [R] PAUSE m[IZ NEW {OGBIN PEEK ▜X OVER >SIN ]d▖ DEF FN ATN IF U?<y LET @ IF MERGE ]STR$ BEEP HC STEP X▗ BEEP ▘ LINE YM VERIFY u INK [J]+VAL INPUT [M]A@^_o3H/ OR FOR ^ RESTORE $ LLIST LN RESTORE $ LOAD [L] RETURN DG~#BIN SIN 4 RETURN rE2▘ FLASH DIM ( PLOT + OPEN #▝ THEN ▖ RESTORE BRIGHT ~ FOR 9TAB /NOT <SQR IF ASN GO SUB [M]STR$ O OR INVERSE CIRCLE LINE >EXP SGN PLOT OUT PI~#PI(_x PLOT @ DATA ,V NEW OVER LIST PLOT OR OVER RANDOMIZE LIST "i▛w POKE RANDOMIZE STOP OUT COS LLIST STR$ x= NEW OPEN #yG DEF FN *^ COPY STR$ CHR$ OPEN #NOT RANDOMIZE COPY <>NOT CPI RETURN OUT GO SUB x GO SUB [B] THEN W!▝bs VERIFY COPY <> RETURN (0CODE FLASH [N]C VERIFY SdATTR F6> LOAD RETURN _3[R]cgg) LINE BORDER SIN <> RUN PLOT SQR Ri▛ CAT INK LET BIN CAT P7[C][ FLASH P CLS V OR [J]V[O]K CAT STR$ 0 DEF FN ) MERGE INPUT ( PRINT jUSR [G][K] CAT INK © INK JPOINT ▚ INK POKE <=o FLASH goGjjUSR BEEP INVERSE IN [R]/ INVERSE [J]CHR$ VAL w DIM W OUT ? LET z RESTORE 7 INPUT INVERSE PI>(▜w PLOT CAT DRAW ACS VAL$ mGw[E]<> GO SUB VAL ▛ INPUT PRINT RESTORE MERGE COS nATTR NEXT RANDOMIZE 9 LIST OR ~ CLS CLEAR # SAVE STR$ >7q2[O] NEW MOVE { CIRCLE LLIST LET POKE o STOP # LINE <> RESTORE OR PRINT } RETURN K READ ATTR THEN =<`^ SAVE ? INK PIyABS © INK 87[F]O CLOSE # RANDOMIZE INPUT LET STR$ LLIST <> COPY POINT NEXT 2▝aY LLIST ."` STEP CAT {INT 8bkCODE RUN STEP PEEK !/cjzy[F] FOR PRINT : VERIFY [B] INK |PI RESTORE INKEY$[F] MERGE VERIFY LLIST [C]▟j MERGE .m FOR MOVE LET PRINT NEXT TAN PLOT RESTORE GO SUB K[K]SSQR ATN L*ATN IN [J]COS Dk= RESTORE e[M]ATN <>[N] MOVE LIST ▙ATTR >=PEEK g MERGE ACS MAT | INPUT BRND[D]ATN PRINT ERASE YSGN CONTINUE e CLS AND v[G]wCODE s/5[N]PSTR$ ysCOS < BEEP F+6| INPUT M9SGN SCREEN$ PLOT STOP TAB SQR ASN RANDOMIZE BORDER MERGE ( SAVE #STR$ W LET COS NEW PRINT A BRIGHT w:Ck PAPER NEXT MOVE YK LET LN c<>W CIRCLE RANDOMIZE PRINT PLOT EXP RNDNOT t▟ GO SUB RANDOMIZE INK <> 1SGN OVER E GO SUB INVERSE bFqPEEK CLOSE #IWANOTAN GAT PLOT INT PET SAVE [H] IF SI▛INT DOdPOINT KTABS LEN U[D]: LIST READ NEXT V;POINT g RESTORE BSTR$ BEEP [I]L▙[D]e COPY 61< PRINT COPY :60+ GO SUB w NEW VAL DEF FN EXP LET [PI▙ PAPER PI. RUN <>NOT LPRINT kCODE LINE STEP [E][Q]E PRINT READ :WRAJEs[R] INK NEXT IF OBXE▙ DRAW ZAPU]EN LPRINT GO TO POINT PAPER FOR CELLEN EXP L CIRCLE i4ASN CAT CLOSE #>=Q3 LET ▝;TAN LIST COS C READ wIN [P]wVAL DIM RANDOMIZE }▝[N]U COPY KSAMO~/L CLOSE #Y CAT _SV<fp PLOT [ATTR [I]c ERASE ▚ MOVE <>`INT [O]GDM[K] PAUSE SAVE CLEAR TdD RETURN A OVER [J]QIV STEP SGN CAT G8<=[U]D CLEAR L CAT [H]<> CLOSE #yFN ACS X_ STEP DATA `KSQR INPUT J[BIN ATTR ABS ERASE [M]7f>RE BEEP )1 LLIST [A]eMp9m1t3aUSR h>=pLN `VAL CLEAR Kl[G] NEW =23 DATA ASN e▟1 CLOSE #NOT GO TO 4Sq LIST 5 RETURN CODE f7>f COPY 6 INK RESTORE STEP [A] LLIST [O]ATN <>INKEY$▝ BORDER ASN FOR ▙:CHR$ "LEN ▛NOT e INK CODE XYg[E]# PLOT VERIFY ECODE BEEP OR PAPER INKEY$▗ INVERSE IF OR ! POKE CIRCLE OUT PLOT "[E]▝| DRAW STEP ;[G]CODE STEP GO SUB qIN POINT x@Y! READ IN PRINT AND TO - RESTORE >[Q]eSQR LET v NEXT GO SUB C BRIGHT xr[G]=UO PLOT [K]u STOP ! FOR eQ LINE |COS }[D];[B]6S3 ERASE COPY 1 INPUT 6:>▚PI DATA PLOT PAUSE SIN w2PEEK PLOT RUN ATN NOT THEN [O]POINT M46ATTR POKE 3BIN W OPEN # BEEP xq▘ FLASH o! GO TO [C] PAPER CONTINUE T[D][F]▙|VAL PRINT STEP READ =[G]y2 LLIST DEF FN PEEK INK LPRINT ;Dx STOP Nb RESTORE *D3; INK COPY p STEP [D][H] INVERSE #XudY DATA t▟[M]ABS 'Ye*d TO NEW ^wATN THEN 9ASN wL BEEP OPEN #▝i_* THEN / LET [L]fzSQR G{ POKE ▖!LEN [K]▜ SAVE MOVE MERGE ©S[C] MOVE <[A]><_ PAPER COPY 5 LINE u▜O REM BIN S:mL STEP TX RESTORE MERGE 3{ CIRCLE <>e^ TO LLIST {&& OR r OUT LEN TO FORMAT INVERSE :z;ASN r%twfJ[M]u CONTINUE ▙<>[U]!ASN ) INPUT Se DRAW ©[H] COPY SIN >j STOP [R]CHR$ EXP STOP INKEY$VAL$ SCREEN$ =kI[L] READ BORDER ^ FOR LINE 6?& INVERSE RUN S![E]/L" OVER CLS K LOAD STEP L[D]wSTR$ ~INT WUSR DIM [E]5>= STEP _[G][F]r>= OUT BIN ;* INVERSE y[F]o|TAB RUN [A]ASN ( OR FORMAT STR$ VAL [S]ATN J/z<=v/[C] FOR FOR CHR$ [S][H]vABS /!4~ STEP LOAD [C]FN [O] TO [E][C]PEEK IF [M] STEP j▛ CLOSE #y<> MOVE OUT RUN FLASH OPEN #X|!=©~5CHR$ [C]6* LOAD RNDASN EXP INVERSE }▝[F]g( LOAD D%STR$ ATN [K]$}d,} DEF FN -"DMz4 OUT OR u LLIST f>=*l NEW DATA RETURN ERASE V INVERSE ABS }[B]CODE SCREEN$ LOAD ATTR I BEEP VAL$ READ LPRINT INT STOP PAUSE BORDER : CLEAR ▝,<> DEF FN LPRINT FLASH RANDOMIZE [Q]1l- SAVE VAL$ Z LLIST ▙ LLIST ' BRIGHT CONTINUE NEXT [K] LIST THEN BRIGHT LPRINT [U]~ PAUSE xL[Q] POKE POKE TAB LINE INKEY$▗ CIRCLE DIM <SUSR LN LN DRAW DEF FN 4<> OUT ? STEP w[D]NOT CLEAR rPOINT [>[u^y!<>a GO TO FN ATN 'i OR ABS RNDUSR nE4USR (STR$ PEEK INPUT ~URND LOAD =INKEY$CODE FOR [_ INK LN q PRINT INKEY$ STOP ' GO TO CONTINUE STR$ x VERIFY GykO SAVE [L] CLEAR ![E] PRINT fINT f▘ INVERSE RESTORE OR $ PRINT :IN CLEAR [G]o NEW AND gjLK[R]INKEY$ GO SUB ABS LLIST xO OUT CLEAR PAUSE g RESTORE NEXT [I]<=!6_!▞▟ CAT SIN [A] REM MOVE RETURN READ INK ERASE &: SAVE LIST =# CLS L6 AND FOR W;~CODE DT@ STEP UPEEK [C]WCHR$ NOT [N]<>CHR$ _VAL$ zABS ,}o CLS GO SUB NEXT [F]TAB SGN <> NEXT <>! LINE [E] DATA 9 NEW n GO SUB VAL [O]VAL qoINT 5 INK PRINT ^e RUN j[R]1[M]dek PLOT SIN BEEP CLEAR SIN _{ LET 1CODE SIN BORDER ▙~[A]NOT [H]`[ OUT LNOT BEEP GO SUB - FORMAT c INPUT SQR RUN <>[U]USR STR$ OPEN #[M]G INK PRINT RANDOMIZE REM 5[U]f THEN LET INK M NEXT PAUSE MERGE STEP 4(+ CLEAR VAL }TAN ={ NEW , STEP IF STOP 5[P] READ RETURN 9i OUT PAUSE &% RUN LPRINT LINE B POKE LPRINT q RANDOMIZE IF OUT 5~ RETURN / NEXT 9+Z INVERSE :ATTR [H]ABS INT INK INK LET r[P]K OVER lph(: OR RESTORE ASN @[K]84 FORMAT NEXT FFo&L FLASH SQR : OUT 6<= CLS GO SUB D>[D]2[BIN ▛ZH BEEP STR$ CT BRIGHT IF IN IN <>HCODE [H]<= BRIGHT !/4Q CLEAR STOP [J] CONTINUE INKEY$nVAL [N]l NEW [ NEXT #d<>▟[F]qp# STOP } BRIGHT c5) OUT }3} FOR M▗▘s▘skINKEY$▘ MOVE j ▘| FOR ▘BIN {SGN ▘ BRIGHT ! DRAW EXP [E]▘[A] CAT ©POINT [A] RESTORE * RANDOMIZE /$ THEN AT ~"TAB LOAD LLIST <> PAUSE [S]IN #. GO TO OR ▝>=2 DATA [B]n OUT 9- RANDOMIZE x[SGN SQR OPEN #[C] BRIGHT > RETURN 2ATTR STEP ©5 FLASH STR$ OVER PLOT <>r MERGE CHR$ UVAL$ RND TO LET ;; STOP ▜! CLOSE # IF r FORMAT [P] VERIFY ▝ 6[G]r▜zn OUT TO TAN ^Z CIRCLE (z CLS FLASH CLEAR LLIST RETURN (w PLOT [F] AND F TO ^V CLS [U]~5}[B] FOR AND [L] CLEAR / VERIFY ▜g NEW ATN ▗ATN Q[H]1 OVER POKE yG}[G]0C4 AND >[N]©Yy AND O CLEAR wxB▘CODE f=G,6u[R](fftY'SIN [P][S]!~▝W<= SAVE PEEK ©CHR$ LN [G] DEF FN o OR ~!VAL$ OUT !ATN d OR NEXT gGr BRIGHT STEP RETURN ▚COS GCHR$ a-f[B]:CODE F INVERSE MOVE ,ACS [A] PRINT . OVER VAL$ Z BEEP FORMAT VAL$ e OUT B[T] COPY EXP IN BEEP >088< LLIST IF RANDOMIZE INVERSE wBCHR$ SQR vs READ 5/SGN e BORDER [F][I]D DIM OR PRINT NF^▟iEVHN NEXT VERIFY STEP LOAD DIM COS y CLS RESTORE OUT [B][M] PRINT PAUSE 2 INVERSE PLOT ;CODE >|T|; NEW IM6LEN LEN [O RETURN <=INKEY$TAB SIN =ATTR `POINT l7 REM PRINT AND JINKEY$ STEP [N]<> PAUSE SAVE Ju▝G PAPER LPRINT SCREEN$ ZTAB INVERSE Q FLASH FLASH m<TAB CHR$ %[I] READ DVAL$ IF TAB VAL$ ▜▖ OPEN # NEXT TAN REM USR E4 CLS Xt NEW ?hx GO SUB C PAUSE ▙z NEXT >!` REM SAVE INT [N]STR$ ` INK DIM ` PLOT ▙a3CHR$ POKE 8 FOR l SAVE IF ]: RETURN CLS ^[N]8FN Wa DRAW 9 LET CLS COPY DRAW ▙!]ABS Wh[G]='[A];CODE CLEAR [L]!< RUN USR PRINT qop©EXP % OR CAT !SIN INK STEP @ BEEP USR STR$ LET B MERGE SCREEN$ LLIST PRINT MD FORMAT <▚ BEEP PEEK VERIFY BIN o RANDOMIZE w[[I]/ASN W</"CODE mFN [O]LPISGN Y PLOT ▘ BORDER RND NEW {IN }SCREEN$ [M] RESTORE [ACS KCODE yj OR } DIM ▙*XK/©[M]VN LIST & DRAW CAT <rxg TO 7 INPUT COPY RETURN RANDOMIZE COPY ([I] CLOSE #COS IPEEK + DRAW POKE GO SUB [PI OPEN # DIM <=| RETURN ▗ ERASE +[N] CIRCLE 1 CLS PAUSE DRAW PLOT VAL c TO ; SAVE [J]- LET } RETURN P0H9+)VAL$ PAUSE PAPER VAL$ [N]: RETURN @ CLEAR AND gSGN Sy GO SUB ▟dD▖ CLS +| TO : RANDOMIZE ▙ GO SUB h~} VERIFY 0oPEEK s1 STEP O PAPER BORDER FORMAT 8[F])▜*SCREEN$ c[M]▝[M] ERASE READ THEN |(< STEP [F] OUT $ ERASE [R][C] LIST b THEN [H]>1PEEK TO ACS LOAD [E] NEW cnKy[E]O DRAW FORMAT X ERASE [N] READ POKE STEP s[N]+ THEN PI~ IF |y[T] CLEAR #>PIy( PLOT [F]:| COPY IF 8[H]RND NEW RUN LOAD 1[L] OVER pm PRINT -▛qG}4!CODE F0- RUN QS9 OUT W RUN -_TAB LET INPUT f|[C]9SGN AT R CLS CLEAR < OUT OR VAL$ B=CODE CAT j.[O] RETURN [E]![I]SGN ] LIST OVER AND POKE [T]ATTR ACS /[O]84 GO SUB [M]y READ y PAPER -E_c OUT ACS ▗ BEEP NOT $^)y, DEF FN OR : VERIFY 9 STEP ▙>ACS DIM [N] LIST OR SCREEN$ BORDER CLOSE #VAL$ SQR [S] FOR ASN TATN x0y INVERSE q STEP BORDER a@ZSTR$ lTAN INPUT ATN ATTR AND THEN fu[J][N]w DRAW !INT @, INPUT B LINE CHR$ NEXT w IF :LEN [K]GAT5 RESTORE PEEK ^-5 PAPER [J] VERIFY CAT Y BRIGHT P!-,:~OMo>AT R[B]&X4IN DRAW 6[F]iu PRINT t▟BMASN [SQR IF 83| INK CHR$ BRIGHT POINT +R FOR CODE 4~TAN u CONTINUE =[J] SAVE >S[G]OL▚ATN [O]SGN 7lATTR SGN uNOT CLEAR [I]EXP COPY AT g POKE OR DIM [O] PRINT OPEN # READ n CONTINUE INPUT ! STOP LLIST -ATN CONTINUE ;<SCREEN$ F|#<| BRIGHT [ LIST CIRCLE FORMAT 1 FORMAT TO j>=SCz0TXEXP BRIGHT 2[.|nZI[O]v[N]<DVAL$ THEN ACS MU GO TO >1s RESTORE 4M[L]/& DATA INK <= THEN WYSO CLOSE #VA▘ SAVE MBIN GO TO [Q]H@vf LIST fCHR$ U LIST @di[T]©STR$ _ MERGE fy[Q]mSQR ^ABS MERGE [R](`b=V<©vATTR PIP CLS X[J]eABS eh CIRCLE >[L] FLASH POKE pu9q'o OR > FORMAT OPEN #▝v{[C] INVERSE AT LN PEEK [B]STR$ <>ATN CLS INT <=M STEP [F][G]PEEK ^ CLOSE # LPRINT ▗ OR GO SUB CLEAR [C] INK {[C]!}g▘][H] CAT VAL [G] BEEP }y!/PEEK ])[A]? COPY THEN © (-x[+_BIN ©N{&0 RETURN 8 VERIFY ATN DATA $ RUN FORMAT 0[ MERGE >=|5POINT <>dE$ INK &o+ LIST } MERGE PEEK INVERSE 4IN FOR NUSR INVERSE sSQR PRINT {2/[O]▗_3>[F]27 THEN IF INVERSE w INPUT COPY CLEAR 4n NEXT VERIFY ▘ BORDER 6 THEN <= RANDOMIZE FORMAT WEXP m CAT 9[O][T]VUSR uVAL S VERIFY VERIFY C[O]INT ?H INVERSE qQ STOP t CLOSE # BORDER EXP m RESTORE MOVE VERIFY p▟~ NEW INPUT RESTORE k DATA ynTAN GO SUB VAL USR [S]]PEEK BIN ERASE <>PEEK p INVERSE (▝~2y[O]ACS [©> BRIGHT ▞ OR MERGE ~o LINE ACS #(/INT l MOVE FOR z3LN FOR ATN DEF FN <> STEP 5IN PRINT SQR >= NEXT [ GO SUB K CLS <> LLIST DRAW ▝ IF MOVE STEP FOR PI[R]!SCREEN$ FN " DIM PI CLS MERGE [H]LN CAT [L]#8/.VAL SIN HDt BEEP FLASH [A] REM 2 NEXT [B]vM5v DRAW SAVE ▝rYB^ CAT BIN LN SCREEN$ >F GO SUB ▛ STEP NEW {ABS CLEAR }TAB ! CIRCLE AT ) BEEP YT[N]PEEK <fo"TAB CLEAR INPUT ▙CODE [L]d GO TO :;bTAB ▝ DEF FN .AVAL$ }INKEY$D STEP 9ASN INK CONTINUE :}[K]LEN <PEEK INK (;![J]TAB OR LN ABS INK VAL$ 6▟ CLS [N] NEW LPRINT LPRINT (3v' IF CLEAR LINE $ RETURN FOR [M];[F] OVER ! AND SCREEN$ [Q]/wTAB / READ 5>SIN |%▗STR$ yvOUVAL RN LLIST ACS [F] ERASE PLOT OUT LOAD LOAD ▚[E] VERIFY BORDER STEP ▛[O]5 TO ▝▜ STEP RESTORE 2*ATN CLEAR q CONTINUE xNOT NEW PEEK Q NEW ]? PAUSE DRAW &~ OUT gCHR$ [C][R]4[P] READ }4~ CLEAR *6: RUN PEEK W2 COPY BX INPUT <3WcTAN CLS [I] CLEAR w▚ RESTORE CFN LPRINT Yh<57">VAL$ [R]=[J]POINT fLN RETURN @ STEP OUT AND zB INVERSE BEEP ! CONTINUE SCREEN$ - LET POINT = RESTORE SCREEN$ BSCREEN$ TO BORDER OUT 2 INPUT CODE LLIST 3[U]~ NEW [M] PRINT USR Z[ATTR ERASE f▗ SAVE INVERSE [U]ATTR kt TO TAB LINE =W[L]<>[S]zTAB [U]t VERIFY OVER O#</ THEN FORMAT w FLASH FOR VAL ;LEN ▘ATTR .LW INVERSE A▚ POKE FB AND VERIFY CLEAR J BRIGHT IF n~E STEP ▜SGN 2 FOR [Q] LIST v VERIFY NEW SAVE DRAW REM vX}u[B]+| CLEAR N5▟@ NEXT ▗ TO FOR CHR$ CHR$ [Q]]/6^V OVER Y MERGE VAL$ TAB 3'NOT [R]8 INPUT PEEK zRND:BIN ,[D]VAL$ LN w DRAW TAB !IN BEEP [B][H]WSU OPEN #5 DRAW AND SAVE >=[D] LOAD FUSR h PRINT w RESTORE JASN VAL$ STEP POKE INVERSE s[r5INKEY$PI CLOSE #<> MOVE <>y BORDER MERGE !PI▛AT ~▘ BRIGHT z[Q]PI=w^ LOAD LET RND ERASE OPEN # DRAW GO TO t>=Mg FLASH [Q]= PAUSE MERGE w! RESTORE THEN [O]W<=OASN ( LLIST Z} THEN DATA BRIGHT DRAW STEP LN FN MOVE C:ABS AND O~# TO [B] RETURN PAPER POKE FN STEP o OVER !' TO t PAPER h TO SIN RANDOMIZE STR$ <= BRIGHT K TO xSTR$ PI^?▝+M PAUSE :8[C] RESTORE ©[K]▙EXP LET [K] IF * RETURN ▘W&{COS INT (▘u LOAD U RANDOMIZE GO TO U RUN CLS 0 RANDOMIZE INK QnPOINT LOAD INT INKEY$▟o FORMAT g}[K][N]FN '-S NEXT 3 { THEN 3 REM ( IF VERIFY ABS 0 AND j2~SGN [L]/NOT PRINT FN INVERSE CAT STEP :9VAL$ CAT $[D]p[N] LINE 60 STOP INVERSE <[E];SCREEN$ [T][F]<>L PAPER ERASE [K]A VERIFY 6 OUT NEXT RANDOMIZE 6|[A]DPEEK RUN BEEP POINT INK RND AND [Q] ERASE w[L] OVER D OVER $CODE o▚ LINE EXP [U]>.[C]▞hh VERIFY INKEY$C|d![K]ELEN >CODE Q IF 6ATTR Z|N INVERSE TO AND INK [E] BEEP CAT G[K]BEBIN CLOSE #[B]-PI RUN pSCREEN$ g MOVE 'w[E]& CLOSE # STOP MERGE <> LET _SGN ERASE [D] OUT T[H] PAPER Y7EXP AND 0ylsu9 PAPER PEEK :T RANDOMIZE GO SUB [L]ej▚NOT Gl CLS ▗O[H]O y VERIFY 3▝eF1+Y>[M]2 COPY Y LINE 2jKsp STEP UVAL$ AND [K]ACS COPY O INK ▛OATTR 1d[STR$ x NEW ERASE PAPER NEW TO MERGE MERGE Q OVER [6oG RUN MERGE '85Y[C] INVERSE n@f▞NWrFl CLEAR FLASH CAT !2ATTR THEN ?COS xk_>= AND PAUSE [O]W BRIGHT CLS VERIFY MOVE [H];y CONTINUE p ERASE ABS BORDER 4STR$ ?4d▙ LOAD INVERSE N OVER * OPEN #SCREEN$ RESTORE INK "SCREEN$ STR$ ASN TO LLIST TAB CODE LN PEEK [E]Z(CHR$ =[T]▜ STOP &N1*Br!SGN < AND OUT 7& VERIFY s CIRCLE %&NOT FORMAT OPEN #INKEY$9[R][B] GO TO 1 CLEAR ▘)m MOVE AND ( NEW OPEN #/[U]!PEEK 6 BRIGHT [A] VERIFY SCREEN$ IN ? RUN . RETURN PAPER R[A]^RND[C];ABS [B]B BEEP ▘6CODE ! COPY GO SUB IN <OG OR STEP ASCREEN$ STR$ zCODE RANDOMIZE INKEY$©TAB /R<=LEN INVERSE 01RND LET [A][E] ERASE INVERSE LG FORMAT ? RESTORE ▙ACS 8EXP STEP (sySTR$ y INKEY$ OPEN #<FN sW9[P][S]INT ( ERASE cz[J]RND[E] DRAW ^` PLOT )E[~ RETURN ? STEP CLEAR ERASE ▙TAB PLOT GO SUB L CLEAR *>7 GO SUB e[T]l[B]e▟Jq[L][R] OUT STOP SQR TO ▜kBIN MERGE %[D]W/^ FLASH {CODE INPUT IF FOR NOT !=VAL$ 4~ NEW COS PRINT DATA 6fx RANDOMIZE u RANDOMIZE t:[K]mVAL$ ([R]>▛" IF VAL$ FOR VAL$ [N]INT PIINT <> FORMAT BIN ACS FLASH XSGN BORDER MERGE | BEEP XATN NEW xV OR RETURN BRIGHT DATA s COPY PI=?[E] TO q; THEN GO TO ▛▙ RANDOMIZE mvp DIM q LINE 8} OUT MERGE NEW ©;VAL$ MERGE CODE ABS ~ MERGE TO PLOT cRkb U GO SUB CLEAR 4GNOT INKEY$STR$ PAUSE RANDOMIZE DRAW [N] STEP |=CODE CHR$ BIN INKEY$[E]kr THEN R RESTORE ERASE (7 INVERSE 3Ou▞ LET CODE !▝RND BEEP ATTR : FORMAT GO TO Y(INKEY$^CODE AND "" PLOT s LPRINT 5INKEY$|SCREEN$ NOT GO TO INKEY$ RESTORE COS LINE ▝CHR$ ]s BEEP CHR$ CONTINUE SCREEN$ CHR$ RANDOMIZE # LET [I]R TO CHR$ MERGE : INK FORMAT IN % DRAW XW3EXP .lAT PLOT 01 RETURN CLEAR q[G]#hVAL$ +_ RUN <>r PRINT r INPUT AND 5@VAL$ [C]; BORDER [O]G!NOT D5 RETURN POKE [CODE @ ;TAN ▘[F]TAB PLOT [F]5FxZ SAVE gBIN PAUSE NEXT SAVE /v<>tSGN NEW SAVE BIN XBIN f^ OR BEEP [D]c POKE CAT SCREEN$ [S]|SQR ▝O!USR k OR [C] MOVE [H]4[C]DR[A] GO SUB ABS . DEF FN CLS v: OVER REM p'ATTR SGN CLS [D]▚}[R]0 PAUSE B▜ PRINT 9 LINE ▖y LPRINT ATTR PAUSE B▞ PRINT K LINE CLOSE #T(/P_f[R]SGN ▟C{oNOT GO SUB THEN LLIST [P]I! REM VAL$ OR SQR RANDOMIZE REM +} LLIST NEXT COPY CLEAR READ SGN OVER [K] VERIFY TAB ^hV LINE v CLEAR NEXT [D] STOP IN @PEEK BORDER GX[H]> FORMAT iFN 9 LLIST RANDOMIZE [▞▛y OVER ▛,bwJ[D] OR ▚CODE ACS RUN [C] FLASH O RESTORE dINT FOR PINOT )CODE f▞(▞▜UIUNe VERIFY VTOZ▚)B▘UUTAB 5ABS BRIGHT OR OVKABS e©2 BORDER THEN IN PODHo REM RETURN MK3CHR$ NOT ! INK e>'R PAPER 3USR DEF FN [OW OVER PEEK OC_ OR MERGE ;HVAL FOR WABS lSQR ]TAN OUT <>PEEK _y NEXT LLIST E]&1 PRINT READ y VERIFY )? OR O' FOR x: LPRINT ▗STR$ CODE ATN k[ POKE y POKE tPOINT AT RANDOMIZE v CIRCLE |YKi: OPEN #FwVVAL$ POKE >= PRINT ▝HCHR$ THEN [O]z MOVE J<! VERIFY Abx$ BEEP USR F IF DEF FN ATTR BRIGHT [O]~{ RETURN !,?[P]=0 RANDOMIZE {2 THEN INK THEN POINT |<=}USR 8 FORMAT _NOT _ OR EnTAB [J]fV2VAL [L] FOR BEEP <> DIM OR v RUN w BRIGHT PRINT [B]>=0$TAB ▚<=USR f[N]ACS $©R MOVE G OR RESTORE THEN p NEXT + CLS LINE LLIST STR$ ASN POKE LET <> OVER STEP ©[O] OVER ~q CONTINUE / OVER CODE CLOSE #W FORMAT SQR CAT >=< RETURN (ACS j<mg FOR [L]▝N MOVE Fkb#~Z* OVER VERIFY 0>[M]ABS LEN Ov RANDOMIZE B]T+ GO SUB LN )[L]K- RETURN [T]7_ OUT b<> RUN THEN 5? OVER (hx[A]s POKE [P]ATTR SAVE OUT u TO f#[I] INK LET CAT SCREEN$ y[R] MOVE STEP 3[R] COPY <PEEK CODE TAB USR INPUT = CLS ERASE 9▛ CLOSE # RUN JL[P]PEEK 4 MOVE CLS 4ov&[J] CAT THEN (USR ATTR {CHR$ © CAT DIM THEN LCOS 0O OPEN # GO TO P COPY [ATTR - OVER AT OUT 3 DIM 9 DATA [J]hINKEY$ TO CLS TAN CLS @ NEW /{ BORDER kT:[N]F LOAD [J][E]▝[M] RETURN ' LIST ur DEF FN THEN ^INT FORMAT gCHR$ < PRINT STEP Z RUN [E]2INKEY$fsp[N][H](SGN 'ATTR TAB LIST b0lCHR$ AND 9> AND "B TO &[I]K©, INK T8V STOP VERIFY bL'"ffQCOS <=ofg1x5u PLOT ▝INKEY$[I]y% PLOT H..)*..,8.p LLIST >=6=©qCXEP@ MOVE INK V`/g©dhl@ RETURN EpPm(rX BORDER THEN vxl▙▗h POKE [A] DIM OUT FORMAT [B]$[G]0[L]` DIM DEF FN PRINT [S]SCREEN$ TAB [H]INKEY$ FORMAT COS OUT EXP eINT @SQR XSGN READ iPOINT USR NEXT 7>= LINE CAT p ERASE H BEEP z REM OVER SGN y NEW P INPUT INK PLOT X RETURN COPY IF ,x STEP X*CODE :?C POKE 4HjL[D][O]QUz ERASE Z_|/0aPi( OVER 4njtmxzMt|[E][B]6▖PEEK ▙8 DATA [D][K]f[G]SQR [M]CSCREEN$ [S]iINKEY$VAL [N]ATN [H] LIST INT p NEW o▗ BRIGHT [H] STEP h OVER IF DATA / RETURN ▖' COPY STOP ATTR AATN LLIST [U] PAPER NOT wx DATA VAL$ *[U] MERGE z[y CLOSE # LIST ▚[C],CODE CLS [I]TAB a INK IN [A]. BRIGHT LIST G[S]NOT ,=0 THEN COS = BORDER < CLEAR REM FORMAT uPEEK 5xPTAB U<= OPEN # DRAW CLS nTAN SQR kTAB E RANDOMIZE IF FLASH Rx BEEP 0;VAL SIN AT COPY ASN !FVAL$ INPUT / FOR MOVE I POKE <>n/©TAB wINT ▝3"yVAL$ PAUSE y[S][L] PAPER 4 CIRCLE CLOSE # CLOSE # VERIFY LINE NEW FORMAT n3VAL$ LN [C]W LIST f PAPER uf DATA G.&N^SQR .Vt{ LPRINT OR STEP INPUT POINT GO TO n1 RETURN [L] RUN LN = #gyKJPOINT ]T PRINT s PRINT r2<>=INT INPUT < INK [ CLOSE #&/S LLIST ▟POINT [L][L]<>[K] CLEAR t DEF FN `[g OPEN # MERGE g_4 CAT ^[6[F] INVERSE {[H]{^ PLOT _ INVERSE SAVE W[g FORMAT Y{^LN m[Mx COPY IF NEXT LINE }ACS ! PRINT ASN INPUT J▛,06 READ u FLASH STEP [I][F] BEEP !<> STOP X6 CLS C/ COPY RUN [ COPY !tACS CODE W PLOT ABS v INVERSE 2[Q]}[> THEN "GACS [L]c1STR$ [L] PRINT PLOT 8_yHm[N] OR {VAL$ [P] LIST LET -Xy CAT 5 MOVE THEN Y THEN FNUSR ACS GO SUB Ok- FOR o9RR CLOSE #VAL INPUT [J] INVERSE ATN ASN CLOSE #Z DIM l[C]STR$ STOP ` TO >8K<> NEXT V LINE CHR$ VAL CLEAR VERIFY STR$ UCHR$ ASN Uj# GO SUB eIN INT OVER t INK e< DATA ASN LINE FOR ▙q MOVE LET SCREEN$ u POKE ASN OR <i PAPER CAT IF SAVE ASN ▖t" GO TO ▙ LPRINT < CAT GO SUB C CONTINUE BEEP IF THEN NEXT FOR OPEN #ATN r STEP TO T LOAD RUN REM w FOR NEXT PEEK T LET ( LIST ATN i INK LET INK "ACS BcT STEP LOAD kQ RESTORE LIST POKE nCODE 2 BRIGHT &EXP V BORDER EXP 5=l▚pCODE E FLASH INVERSE /LEN wTAN r TO SAVE TAN STOP oX RETURN TO i CLS COS STEP SSIN RND RANDOMIZE RETURN INK 9 COPY [B]SGN TO w-: OUT ATTR INPUT VAL {$<> DRAW [M] NEW !DTAB ▙0o<=O AND t▟OLEN { LINE aS CIRCLE y TO H OPEN #NOT [B]VAL RNDW[H]^ CIRCLE USR z TO .LN SAVE ▙B MOVE z GO SUB D2<LEN P:z;▙▘7 LINE ▖ DIM BRIGHT ▖ LIST PLOT [Q]▙z DIM DEF FN ]STR$ CONTINUE Z▞CODE COS z>=,w<j+ NEXT CHR$ [<> FORMAT ▘ GO SUB PAUSE ! NEXT IF NEXT ▗8(_x[D]GyO GO TO IF [D]Yx2[U]5YG[D][E][N]Z REM PLOT LET <W▜▘©n[N]# CLS AND [I] GO SUB K<= RANDOMIZE 1 INK INVERSE MOVE ~y9: AND EXP 8 TO DIM <>BIN Ox[B][H] PAUSE 0LN NOT h[F][N] GO SUB NOT 3[TAN [J] PRINT [[I]<[D] LINE ACS 2[C]84U,[F] LLIST i PRINT REM ▛yPEXP ATTR NZ COPY AT TAN v▞ NEXT [G] NEW 2n▝3 DRAW STOP ASN NOT SCREEN$ BRIGHT ]S CAT 6[K]w;>= ERASE ) MOVE <> AND I<>NOT FOR ▘>=<>l▙2 READ ▜POINT ~ FORMAT CHR$ BEEP [A] AND :BIN |)RNDp▗>= INVERSE PAPER t CLOSE # CLEAR p LLIST ABS ▗e[K] PAUSE BRIGHT *[R]w RUN [A] OPEN # STEP SQR R▜ OUT IF DEF FN AT PI FORMAT 5{ INK DATA VERIFY (ATN PEEK -c$Zt LIST DATA ye_USR wv MERGE [T] CLEAR <AT (4VAL$ } FORMAT <>[J] LINE [U]G[F] IF 4[E] STOP TAN INPUT CONTINUE [M][E][F]xhINT M▖IN VERIFY SGN 8G VERIFY RETURN |0@yABS <IN LOAD EMD STEP [K]![G]@ NEXT FOR FOR SQR -CODE OUT ASN >+i_ASN [H]CODE YUSIN CODE [E] SAVE o6Z<> CLOSE #W[D]>ASN /▜[K]O POKE LPRINT PRINT ATN <>4[A] + AND GO TO <=[G][!s CLOSE # AND <>▚AT ▛ CIRCLE PRINT LPRINT ▗ INVERSE NH GO TO [F][F]hG PAPER STR$ LINE LET F INPUT J CIRCLE CLOSE #t PAPER [E] CIRCLE 5[M] CIRCLE x VERIFY DEF FN 2 BRIGHT INKEY$ CAT THEN LIST +[O]ATTR iACS ~[CODE VAL$ VAL$ INPUT i[F] IF FOR POINT | LET OR STR$ kVAL VAL NOT JCOS SCREEN$ FOR w3TAB kLN GO SUB X TO "ASN ATN ' FOR ABS c<=b AND STEP ](IN uf7wzr FORMAT LET ASN OR OUT S[L][LN CAT ▝ FOR OPEN # BORDER VERIFY EXP 0Q9jw=W VERIFY ~BIN LN 0 AND ▝[U]-zPEEK LINE y RETURN [Q]8(_~1 CAT [F] NEW RETURN GO SUB RUN V REM BIN n POKE = DRAW ▖ LPRINT RANDOMIZE [F]l LINE G$<= BORDER POKE I VERIFY ▝ INPUT ▝M DRAW ▟▝ LIST e LINE ▝$ZTAN ASN NEXT LLIST RETURN d FORMAT OUT . STEP PEEK USR ofA INVERSE OUT STEP MERGE GS<=?J>[H][I]9FN OUT CLEAR <>1▘[K]q OR STR$ *[G], DATA CODE xABS +[J]BIN [A]}< RANDOMIZE STOP qm DEF FN o[D]l[P] IF PEEK PAPER GO SUB 5 6 THEN [J] FOR LOAD [M]PEEK (40q< LOAD 5s>L▛>SQR REM ATN SIN ASN SQR /[O][T]PEEK [L] TO h0FN [B]A OR yjhPEEK ?G▖CODE VSTR$ " RUN h34 RANDOMIZE t[E]ykVAL$ Ou ERASE JrJ COPY WCC CAT EXP =CODE G9 MERGE BEEP ▟F LET CONTINUE BEEP GO TO CIRCLE <>n AND SAVE _ CONTINUE *AT V CLEAR DRAW AT ▙cLN CLEAR INPUT x0(U[D]8[S] RETURN phx-[M]IN X INPUT DRAW 8[I]x FORMAT USR COPY LIST ▟CODE ▗ RUN RETURN COPY [B]D COPY STEP BRIGHT [J] INPUT ▟ RANDOMIZE u STOP NA`BIN PLOT ^CODE <>F[G] INVERSE [C] DIM !CCHR$ =;I2 LIST FN VERIFY - RANDOMIZE FN STEP >=2[ CLS IF NCOS hFN SQR SAVE PIABS O} RUN xCODE [S]STR$ RESTORE 5$]6 IF EINT hFDINT >= TO PEEK ASN PAUSE FN GO SUB u_!n ERASE STR$ PRINT q CONTINUE 6Gd STEP ^COS SGN Wfyr}6 FLASH _AT j DEF FN {7?O OR PAUSE Lg9[P]SGN READ MOVE STR$ RETURN O[G]▝ LLIST BATTR PAPER /[C]Y OPEN #[{:%CHR$ MERGE @NOT | OR [H]j[/CHR$ 0[R]{dww DIM 6▞COS ku*CHR$ wu+ DATA ^q STEP BRIGHT INVERSE READ mUSR NOT [L] TO [E]mEXP AND X] LIST l[I]JLN !STR$ PLOT ▘ DEF FN FLASH M[C][F] THEN = RANDOMIZE ey RUN CODE LINE !N ERASE [R] TO IN 4 LET PRINT OVER J CLEAR vATN 2p(|Cx^ STOP mX STOP +4SGN CLS GO TO COPY PEEK 2 LIST VAL LOAD LIST ABS CODE INKEY$ READ COPY %vk3!_z4[O]1{[H]Z RANDOMIZE Jk▞ INPUT ▞WzG<[L][F]oig▙[H]( OVER r8Q▛Z NEXT OR o PAUSE C1 VERIFY NEW 0t LPRINT [G];+ATN !/ATN jATN ASN *.z PRINT STEP , VERIFY >= RANDOMIZE &) TO © MERGE STR$ [P]3 OUT OVER {1STR$ KASN +[K]j CAT ;(| RESTORE OVER `! RETURN ^[K]SGN =w ln ERASE READ U>VAL AND ABS [J] DATA 2CHR$ a`:8 VERIFY OR *'>/C&:VAL LN bB GO TO )5 IF ' OR 6G READ READ PEEK STR$ s POKE 6 BORDER k0"x RETURN [L]58 PRINT MOVE VERIFY OTAN NEW !0 CLOSE #w CIRCLE [S]<"BATTR ACS CAT [K] RUN API [[S]CINT SGN 3<▛&iUSR t7 DRAW |8 RETURN 8 VERIFY D CLEAR MP:n[E] STOP OVER ABS dUSR STEP :? RANDOMIZE IN 5 RESTORE CLEAR GO SUB C READ ▙!USR SIN / LPRINT ▙ BORDER EXP }i>C!NOT STR$ sWPEEK FOR D STEP GhUSR O RUN 27q@Jf[T]▚D2 CIRCLE GO SUB K CAT "g[E]2! NEW i COPY TO w MOVE VAL i[U]O LLIST 5~ PAUSE STEP x4PEEK CHR$ ▛INT PRINT FLASH STR$ o)POINT VAL LINE BEEP [B]CODE [I]W VERIFY v95%BIN >3 BRIGHT LN 0- AND 8,( MERGE VERIFY pTAN [C]POINT DEF FN tD STEP DRAW FLASH }.<> RESTORE TAN ACS [G]([E]j INPUT VERIFY LINE RESTORE [F]@%e[F]NOT LET 3 INVERSE n}5COS [S] POKE VERIFY 4 LOAD INVERSE [G] INVERSE [F]* CONTINUE i}: READ T NEW <>▗ COPY :+LN >Q ▟e2+ NEW W INVERSE N NEXT FnPOINT r- RESTORE ACS ©[L]N▙▟SQR <TAB CAT LEN PI%STR$ D TO ^7SQR l▗8" RETURN BEEP ,FPOINT (▜S3[D]▟6©K[G]NOT INT u|USR RPIW CLOSE # BEEP VERIFY _iCHR$ STOP TAB kSQR USR DEF FN :EXP 2 FOR REM / POKE [C]/ ERASE ▞d INVERSE xs OR RETURN ▝- FLASH |> / GO SUB [K]▟ATTR l IF 4BIN g▝Iw# VERIFY o AND } NEW NEXT ,B{ FOR STR$ NEW RESTORE STR$ OR ▛RND~'^hBIN W THEN /INT SQR !M LLIST kZ MERGE TO } REM MOVE CHR$ BEEP O CLEAR U OPEN #O U<>SQR 0g PRINT QZIzVAL CLS COS A PAUSE 7 PLOT MOVE wx!>= MERGE O Ve CLOSE # BEEP v OPEN #x DIM TO MERGE zE DIM SGN 9[C][U] BEEP jUSR 5ATTR SQR SQR ▖P▖[F]▖B CLEAR FLASH ▖[M] DRAW CLS [D]~ RETURN ! CAT STR$ 0 LOAD [A]▖W[G]ATTR CHR$ [H]& OPEN #p DIM l[H]I@b▚~▛ FORMAT : FOR [F] MERGE wesrSTR$ FOR ^IN CODE [K] PRINT #▝[P]^ INPUT CODE TAN {PEEK STOP AT RND INPUT STEP x BEEP PRINT *ATTR jCHR$ 8w FOR +CHR$ 4[B]qSTR$ BRIGHT 5t=/ds VERIFY CODE [P].5 +x#EXP RANDOMIZE COPY 4c FORMAT IF STEP fEXP >=![Q]`NOT f INK BIN [G]ABS +ASN Y[A] INVERSE [L][O][U] OVER ©E LINE [H] DRAW ▛1 CLS S$:kUSR W CLEAR SQR >▘ RETURN 8ISQR MERGE VERIFY _SGN INT ?4 CLS j PAPER _ FLASH A OVER RUN dBSTR$ ~hw FOR 9TAN LN ~[R]C BORDER LLIST BRIGHT RETURN MOVE ▛POINT COS [H]▛[L]6pu OPEN #ATN U~v LINE *[J]l< COPY U▙d DRAW RUN LEN [ATN TAB u COPY PEEK ASN W THEN INPUT NOT Y RETURN ©]d GO TO 8<w RETURN CHR$ J[Q]INT [H]SGN o$ PAUSE LOAD TAN RETURN O( VERIFY SQR | DATA BRIGHT MERGE DIM NEXT ▘ASN 9vqy<>w; E BEEP USR PEEK THEN [A]CODE CHR$ .c▜[G] LOAD == TO NEXT S BORDER [F] CIRCLE w LINE <>[F]yn© GO SUB 2[P][G]oNOT OR PEEK COPY INK DATA 1z OPEN # COPY o}: PRINT :6d0X NEXT GO TO . THEN ▛ FLASH 2[D]▜J PLOT /©SIN [J] OUT i OUT !d COPY PEEK POKE 5SQR ©Ay}[N] BRIGHT AATN 4I1[B] LOAD [C]F# OVER M[S]+EXP w!,}SIN LLIST CAT . AND 2[L]q[I]g NEXT VAL$ [U] IF INKEY$EXP JGATN &/#> THEN [N]~SQR DRAW 3:/SQR w45- VERIFY r[A]<>4 READ FLASH wsRkr<>!n LET LLEN +/c▚./ NEW RESTORE DATA PEEK (ABS %ZFN aTAB ▚lE{ RETURN [A]8 MERGE e RUN NEW VERIFY V©PEEK 0# AND [U]|8:e STOP FOR SAVE NOT rIN =ASN AND KGINT SQR [H]USR LIST x[G]<> DATA PRINT ABS TO VERIFY FLASH RUN AT DEF FN yiv LOAD STR$ LPRINT ] BEEP VAL$ m9 CAT ] FOR STR$ PRINT uATN POKE LET >=l DRAW SIN NOT INKEY$ATN ]TAN z&VAL$ COPY g7M[J]=SQR READ +pCOS ▟ POKE 2ny PLOT SGN "SCREEN$ U[K][J]!▘[R][K]![R][J] GO TO LN [P]A "%',.135798,?@H LET RANDOMIZE X INVERSE =▜# DATA EXP ABS g CAT e▛ PX CLS INK hg?x▖Y GO TO [I]( REM m,|8 MERGE GO TO USR IN PAUSE FORMAT A LINE % CAT ` COPY CLOSE #c[F] REM H CLOSE # PLOT [A]R RETURN INT CLS 0P PAUSE [I]8 NEXT LET LINE IN [Q]m_8hPOINT .▖ VERIFY DRAW RETURN LET RNDFEDCB OR [P]FJKMN CLEAR RANDOMIZE TU SAVE V4:STR$ >?<;2{D9< MERGE W@= NEXT [J]SQR OR R> DIM :?|[K] INVERSE LLIST INVERSE @/RND INPUT LET INPUT AvINT TAN COPY ahCHR$ [E]ZCOS POKE [D] OUT : LET OPEN # RETURN LN m8W[S]/<k<>[F]C POKE ^t VERIFY STEP TO STOP STEP <= OPEN #R INVERSE BEEP PI*w FORMAT ,F OPEN # BEEP f POKE RIPIE FORMAT 3 TO STAM GiOW PLOT LPRINT NOT CAT ZAGRU LET INK .USR LPRINT COS CAT LEN ^o@gp<=LN OUT COPY DRAW LLIST [E] PAUSE P<>c PRINT RETURN <>yP DRAW HHyASN RETURN VoIN [C]=VAL INK COS RETURN ▘ LIST NOT CLS ▗[F]= BRIGHT TO MERGE FLASH FORMAT . OUT SQR DATA RESTORE BORDER DIM GO TO LOAD ▚▜ACS t TO BORDER OPEN # VERIFY CIRCLE PAPER BRIGHT IF MOVE cBIN STOP READ NEW CONTINUE REM FOR GO SUB RETURN INVERSE ▖▞[K] OR [T] CAT [M] READ CLEAR <> CLOSE # BEEP OR INK [L]ATTR ERASE BEEP [G]d[H] DEF FN > COPY OVER OUT ▛[L][O][P][N]@ACS >= LINE THEN POINT s[P]z LIST 4[I][J] CAT ?[A][B]FN [Q]n INK [R][S][T][U][B] TO STEP J DIM ▗AT DRAW 7 FLASH LPRINT LLIST [C][D]POINT ▟TAN ASN [O] DRAW RND; AND INK l[P]IN [I][E][F]SCREEN$ ▙ACS ATN INK [D]INKEY$`' OPEN # NEXT CIRCLE <=ATTR ? OPEN # INPUT LOAD LEN 'PI7 DATA NEXT CODE LOAD AT VAL$ CODE MAT POKE PAUSE POKE }TAB VAL LEN [I]{TAB PRINT INVERSE AND VAL$ TAN SQR o}SIN COS <= FLASH K[F] AND RETURN IN USR STR$ COPY NOT TAB a COPY ACS ▜ VERIFY fc0 LOAD TAB L CIRCLE LPRINT LEN oSGN Q[Q]YFcoPEEK ;/ BRIGHT RANDOMIZE MERGE STR$ [N]YATTR Oo RETURN COPY IN sM TO MERGE :C▗© INK &# CLEAR <= NEW ^SQR © COPY CLEAR © CLS INVERSE ACS z{ MERGE INT O7w CAT COPY MERGE RANDOMIZE [R]m NEXT SGN INVERSE MERGE [E]▖VAL$ _ GO TO DRAW BRIGHT LINE RETURN [G]SGN >& RANDOMIZE od CLEAR ~ INK INVERSE FN SAVE NOT DRAW GO SUB DRAW READ ? LPRINT PRINT SAVE SAVE i▚ LIST b CLS DRAW #INT [N]/K▚ AND OPEN #<0? LPRINT PI DATA RANDOMIZE REM RETURN PAPER L~xPEEK X DRAW x[R]LPOINT THEN f[K]CHR$ ?<=CODE DRAW /=3▝ RETURN USR [D]J CLEAR [C]45 FLASH RANDOMIZE IN USR [D]▖ INVERSE TO CLOSE # AND CONTINUE SQR LN RESTORE PIIN ; LIST 3FN SAVE INK L][Q]COS [G][E]W`q PRINT NEXT 4[{J7 CIRCLE ` DRAW PAPER [I]G POKE COPY r[U]<=TAN LN NEXT AND INPUT ~ DIM p>© FLASH ? INVERSE A DRAW `Yv# [D] STOP [N]%c9) RETURN s[O]oPI LOAD W▜| LPRINT _ NEW [M]UIACS S VERIFY 4▞ LOAD ▖E@ OR IN Nl▞© FOR PI[K] COPY RETURN 1 LOAD [P] LET OUT OVER EXP H▖ FLASH i DRAW ▚QOM^[D] FOR COPY STR$ 4@3[E] STOP ▖ FOR SGN STOP [D]▜ CLS COS NOT W FORMAT C STOP DRAW )I PRINT [A] PRINT TO W RUN [L] CLEAR IF [I]Wpd CLS M BRIGHT MOVE ▜ NEXT INK 'G OPEN #p BRIGHT PEEK BRIGHT CLOSE # RANDOMIZE PEEK u TO 3M FORMAT [D] FORMAT ATN FORMAT X CLEAR @PEEK [G] COPY [Q]o RETURN [E]TABS ABS LIST [L]WAB?[S]A[L]a2< OVER ~ TO DRAW !<> VERIFY TO NOT c[U]NOT RANDOMIZE [B] PAUSE < RUN 3©▖ RETURN 8^ PRINT xSCREEN$ CAT NEXT USR RESTORE uATN MNOT INT n3we LET 3INKEY$ATTR LIST IF )USR /we PRINT NEXT IF !3- NEW RUN h< LIST [M]VAL$ ?$Wf CAT DEF FN [B]L[F][C] FLASH TO [J]+COS COS 1[U]CHR$ ▞▙ CLS [J]VAL$ LIST COPY n]v MERGE COPY TO n;>IN STEP POINT DRAW VERIFY W[J][A]~ BRIGHT 2I IF LN AND [E]ABS VERIFY ol▝ABS INVERSE CAT TO < OPEN # FOR ?IN m AND LINE CLEAR BORDER RESTORE I DIM zVAL$ rCODE INKEY$Q CLEAR SAVE BEEP p DATA CIRCLE ' FLASH AT SIN RESTORE RETURN / REM [J]85m~©IN BIN LET Wv PLOT q STOP >ABS INPUT + COPY |k3[ BRIGHT [I] PAUSE AND CHR$ `▗ LLIST GO TO `_^53/ SAVE //F LPRINT x POKE OR ELEN X? GO TO [T] CAT - BRIGHT /gRND SAVE FORMAT PAUSE Z CLEAR ▜[O] NEXT v STOP T[Q] CAT LET U@SCREEN$ CAT [R]_SCREEN$ [Q] DRAW P FORMAT [H]INKEY$/SGN ▝^9[M] GO SUB ' CAT LIST ex[R]©&AT PAPER [H]x[J] OUT SIN m? AND ▗W OUT .=IN Q CLEAR INT LET N LINE [B]<=COS "OTAN INT DRAW )SCREEN$ B LINE CLEAR ▗ OVER PEEK STR$ ▛|▙ NEXT READ VAL STEP INVERSE ▜B^1 INK =^ DIM + AND 1hINKEY$8R GO SUB +s GO TO THEN [Q] PAUSE AND LN ▞G3[U]T5r RANDOMIZE ©CODE SQR NEXT INT K[U][Q] FLASH R/BIN ^▚ AND SIN &N~[N]r[G]▖#BIN G DEF FN STOP i LLIST rVSTR$ ▝ AND 2VAL SAVE PAPER [O]-LN YFN [O]/ RESTORE AT IF SQR INVERSE _ IF g] CLOSE #ZNOT CONTINUE ▜0D COPY ▖[H] OUT >=[I][H];▟▞INKEY$Vjk_R PRINT PAUSE ▗ CLS (1 INPUT AND FORMAT 0l/ THEN +NOT PLOT CODE V THEN NOT CIRCLE [G] THEN kSQR ZCODE RETURN <=EXP [E]NOT GO TO LIST CkNOT OPEN #LN PAUSE RESTORE THEN ~PEEK VERIFY ▚~5ASN NOT z*IN [F]eBIN PEEK © MOVE LN LINE OUT CLS <= READ +SIN STR$ }PEEK ▛▟TAB VAL$ ' DATA ▝[F]!▗ OR LN X[K]EXP LN F[S]ACHR$ PLOT op▘. INPUT VAL ▟LEN LINE RATTR AT TAB . COPY READ ATN 8CODE THEN CLS PLOT QuH BRIGHT fv MERGE ^ TO BRIGHT [O]gfT/ FLASH INVERSE ; LLIST 6&!R RESTORE LIST CAT [T]x DRAW CteL[P]NOT CLOSE # REM q▜, OUT 0 LIST STOP NOT [Q] PLOT LN -[R] PLOT CLEAR LLIST a STEP USGN [N][P]ACS <=XeL[T] INK [T] CLEAR qPOINT ▝ THEN U[P]ATN /<=▜SGN NEW [L] DRAW SIN ▛VAL |= TO $[L] THEN qe[T]- CLEAR OUT STOP MERGE LN TAB CONTINUE DRAW m[F] FOR `ATN e[P]hs>=1ATTR [L]"▚▛)NOT STR$ [L]iPEEK ^[O]NOT ▟©c COPY REM LINE ▛Gsl[T] OUT CLS CLEAR LET _ BRIGHT OVER [N][F]3 CLEAR POKE [L]▞ DRAW Y$ph[A]u6 k INPUT PI COPY USR CN@VAL$ q REM IF GO TO gi[Q]VAL g AND OPEN #3dx NEXT RETURN DRAW . LIST dIN LPRINT BORDER +POINT BORDER 1 IF NEXT ^g>=▜- PAUSE <=[L]+ SAVE ©e[P]<>[INKEY$92sFN POINT PAUSE _ CONTINUE NOT fk-UNOT 2r LOAD FORMAT g RESTORE ERASE !^[E]/t STOP S POKE [L]mSGN INKEY$ AND LIST q6 FLASH ▝ MOVE SIN [D]v BEEP ACS SAVE |VAL$ SCREEN$ [G][L][ GO TO [Q]^ BEEP TAB ACS BRIGHT CLEAR [G] FLASH [E]5) BEEP m RUN yUSR GO SUB So LPRINT r IF DIM ,W REM SAVE > RETURN z[P] NEW l3m PRINT l ERASE BORDER g DEF FN OVER OPEN # CLS f LOAD x PAPER © RETURN </[M]} VERIFY BORDER @ PRINT © IF IN CLEAR POKE STOP vUSR f POKE DEF FN 1 LINE [M]PEEK ▘5O LET SQR NACS OUT ![I]m▝Hy MERGE RUN RESTORE ▙MJQ FLASH INVERSE [O] ERASE rCHR$ OUT [M]~h CLEAR BORDER [F] DIM 8CODE <=GVAL q DRAW :NVINKEY$O;BIN PIT FLASH ATN NgBP RANDOMIZE CAT y GO TO USR ^B~▙ LINE OgF©[M] NEXT INK WU{ PAUSE 2INT 'N CLEAR CAT [H] DIM h8USR 1USR [S]%~USR COPY STOP AND [O]/LUSR [L] FORMAT / AND OUT CODE U POKE g` COPY BlKC2VAL |8~!g CIRCLE CLS R OUT [T]ACS +l)`0([J] REM CLS fASN ▜ovE BEEP BEEP [S]©▖ LPRINT g&dh< LOAD G STOP CONTINUE }IN { PLOT ACS iA▘6 BEEP BRIGHT INKEY$e BRIGHT ' DATA o|>= LLIST CLS FLASH BORDER [K] OUT BRIGHT !▗1USR OVER l}#BIN |9INKEY$ATN @r▝#▙|l OVER CCHR$ 3BSTR$ TAB LOAD 4[G]W[I]r LOAD <= BEEP GO TO VAL$ [F]~ SAVE ,<>. GO SUB u BEEP [R][U] STEP - LPRINT @ DATA ACS CLEAR [G] INPUT ] CLEAR PLOT tRTAB PI▖ BEEP LPRINT } LOAD > PLOT [P] LIST INKEY$ RUN ; DIM ATN THEN @LN 2 PLOT [M] REM ! PRINT F THEN SQR 32 RUN A SAVE m▗LN R RESTORE USR L2 GO TO MERGE PLOT @ RUN DRAW [N]^``q LPRINT RETURN R0 CIRCLE AND x BORDER l LIST CONTINUE `: RANDOMIZE [S]xLN f STOP |~|[U]▟h▘L NEXT H_ IF >= DATA ▜ OUT [J][B]VAL %[Q]>x[C]`[O]J BRIGHT d BRIGHT PAUSE >= STEP y"9 +$[B] POKE DRAW pPEEK INPUT PRINT IF LN O LIST Jq COPY OUT (▗▟V RANDOMIZE BRIGHT 6 LET IF jACS LIST FLASH USR @[T] FOR RETURN ?w?I8 POKE LIST )_8 RESTORE O7▚b&@"d9 OUT [S]3/ THEN [I]AO0 INPUT DRAW LIST (EXP 9x~ COPY FD@TAN /LN INPUT LPRINT #>= OPEN #[I] RUN ▜ OVER ATN s}H$ IN R▟ OUT SIN IF S GO TO USR ▚`STR$ 0T@T{z CAT FORMAT <= LOAD | B_`[F]▖ NEXT pUSR CONTINUE IN ▝ STOP POKE COS 7XP[P] NEXT Zp SAVE 7$SGN (h*D-ESIN 076 THEN STOP 8(B LLIST =FJPIn VERIFY P[A] POKE RT@ POKE ,/ NEXT dPl FORMAT STOP ptuP RANDOMIZE STOP v▖|X▝PIPI INK ▗▛0 OR OR h[D]H COPY [G]▖[L]8[R]x[U] COPY STEP /FN OPEN #ATTR TAN JSGN TO %; FOR h[A] RETURN NEW ERASE P CIRCLE AT PLOT ( NEW o©)83 9[I] PAUSE d@4AX OPEN #▛▛&T▝ DIM `Z PLOT ]@fxhlPn[Q]rH6 OUT IF w}hPEEK @ NEXT ~▖▙~ PLOT [C] TO STOP [D]P[G]SQR _f[M] OUT 4[U]▛POINT UVAL$ 8CODE NEW STEP dASN CODE INT xUSR IN SAVE m>=X<>x ERASE p VERIFY |?@h INK ▖i/ COPY ",[Q]>* STOP FOR .[I]CHR$ [A]6 STEP yc VERIFY ;(< IF ▟yEtNHhL LOAD NsmV DIM [J]]▗PI`h LIST fmINKEY$to[K]pxd|y~$ INK [E]▗X RETURN STR$ ▞x3RND RANDOMIZE ▙ RETURN RANDOMIZE [I][I])[M]RNDagSSIN ATTR 0a DIM PRINT LEN LN gEXP PAUSE RND PRINT PEEK X>= STEP STOP SGN DEF FN h VERIFY STEP , RETURN LPRINT 8 REM P GO TO p NEXT R OPEN #p POKE [T] RUN mVAL YCOS CODE "[A] 2xA[T]u OUT SAVE COPY <= 2!"#$ LIST NEW %&'( THEN )*+,o[C] COPY 5BIN -/y CAT M013 DEF FN NOT 45M NEXT DATA LLIST 567 CLS NOT 89:;<=> CLEAR Y FLASH [O]?@A CAT ▙c RETURN oGHIJKLN OPEN #7 CLS OP VERIFY Qpg[J]RSNOT RETURN DIM ▝MWX NEW YZ[/]^_ REM lATN `ay RETURN bcdefgh>PI IF ij LOAD gklm3n TO cS LET z COPY 1[M]SIN RETURN PRINT BIN FOR d<'`+iB SAVE COPY COS ERASE RANDOMIZE IN &SGN iBIN CHR$ ] CLEAR DRAW LOAD [P] FOR <>/[Q] CIRCLE w BRIGHT 3SQR DEF FN USR [P] RANDOMIZE DRAW FOR FLASH @INKEY$ RANDOMIZE NEXT px?| PAUSE RETURN SAVE m$8ATTR OUT H SAVE LIST FORMAT RANDOMIZE SAVE [L]USR NEW 2 POKE CONTINUE SAVE LIST GO SUB SQR NEW USR COPY SAVE j IF INT RANDOMIZE <8? DATA p INPUT BIN v CLS RUN ©Xm TO QATTR COPY LIST [O]© CIRCLE ^ LPRINT PRINT REM SQR Fc© NEW USR AND USR BEEP BORDER CONTINUE DATA 8e TO CLEAR ▞sNOT VAL$ USR `[L] RUN [Q]▘ FORMAT g">=SQR kINT - INK CIRCLE OVER VAL ? CLEAR FORMAT THEN LN LPRINT [O]▟E[Q] INVERSE 3[A]>= LOAD ▞COS 7 CIRCLE TO 4{ LINE DRAW ) IF POKE OPEN # NEXT BIN DEF FN RANDOMIZE AND [P] PAUSE ? RANDOMIZE RANDOMIZE LIST RBIN fSIN GO SUB CAT [A] AND NEW =ap[H] PAUSE LIST DRAW ▚ STOP PLOT [R] LPRINT ? READ G INK _ REM <c^8<C CLS [B]Wz PLOT PAPER e'NOT + INPUT ) MOVE [M]%▝[J]BIN [* CAT SCREEN$ 7 POKE a LPRINT THEN w2W[K]ATN RANDOMIZE PAUSE ~ABS EXP o<>NOT INK >[T]SGN '`EXP DATA lJC STEP CONTINUE PIlATTR < OVER ▛0CCHR$ [M]<>[F][C]INT INVERSE LEN VAL mATN [K]VAL$ U9CODE &ASN COPY [U][S] INK V GO SUB c LPRINT . RUN y7TAN `to5m VERIFY REM 5 CLS AND :[D]s RESTORE READ CIRCLE S)-[E]ATTR [K]Y3EXP LINE n OVER GO TO RESTORE <LN STEP RND DATA DRAW SIN 6c~] INPUT READ mI SAVE [F] BRIGHT <= PAUSE ▖ACS CLS READ [S][D]A STEP [U]▚Hd STOP S<▞ATTR BIN BORDER m▜ DATA <> COPY [>= TO IN v FLASH Lr{ COPY ▛ RANDOMIZE BIN K[O]] STEP | RETURN <>j LIST `▟ FLASH LINE [A]E[Q]R STOP [D][J]>~ RANDOMIZE [A]ZJPOINT [M]ABS [J]~▗ATN R FOR CLEAR MERGE [A] RETURN RNDn CLS CODE PRINT DATA SGN © VERIFY [F]Rh[M] REM INK BEEP [5zATTR ©-VAL$ STEP DATA ▗USR LN COPY ERASE [I]08`})USR PAUSE ▖ DIM ▘ OVER [G]EXP LN ▟O[K]USR LN PEEK USR CODE ACS $ OVER ?v IF 0 CLS F GO TO POINT yJ{|Dn MERGE RESTORE yLN [H] REM OUT GO SUB COPY OUT ATTR BEEP READ k8J[ PRINT CAT MERGE t PRINT IN l;VAL$ - AND BIN WIN #SQR NEW RETURN LLIST SATN Vp[H]Fn READ PAUSE ATTR TAN PINOT PLOT ▛CODE ABS CLEAR ,o LET ▞,d>SGN `5 INPUT ▘<=a]SQR ^)NOT ▜AT TO [L] THEN 7 IF il CLS 4Vj LET ATTR IN LPRINT VERIFY ZIN _USR 3G1W?STR$ :IN [H][H] AND LLIST INT c9VAL$ STR$ ~USR >M/n LLIST [I]4jABS ▘USR LET LTAB `VAL TAB } DATA CLS YCHR$ c▜8 CLOSE #/< GO TO 8© FORMAT THEN FORMAT TO [A].[T]-▟▜BNOT jTAN qVK PRINT USR ▛ATTR FN RUN SAVE [O] OVER [F]ABS STOP AT LPRINT {LEN LIST TO k SAVE k,<==PEEK STEP NOT g DEF FN ▛iBUSR F BRIGHT OR d LINE PEEK RNDz[S]`Se3VAL$ ©RNDH0,.JR{ RUN DRAW VERIFY RNDX+ REM RNDTAB CLS RND LINE 0 DEF FN STEP b FORMAT H VERIFY [Q]VAL 7 BEEP [T] BRIGHT P VERIFY [B][J] CAT [C]INKEY$VAL$ :[J][K]TAN [M][O]|©FN SQR INPUT [J]TAN T[S] OVER [J]▝[J]▛ASN .[J] RUN OPEN #LN ,BIN RANDOMIZE i[G] IF j CLS [L]INKEY$ FORMAT DRAW <= CLEAR X GO TO (4` PRINT a▝ IF &ASN TO u0 LIST PRINT COPY ©USR [A] LPRINT }VAL LIST [L]p LPRINT REM Hc FLASH p*y[A]U PLOT VERIFY [C] BORDER DIM FOR 0:C DATA S CLOSE #/ CAT CLEAR USR BRIGHT ?▖ OVER >=3[I];LN SAVE [R]TAN 3<=>=k FLASH >8B#<[P]?ABS F8 PAUSE AT S08 POKE RANDOMIZE [T]k#L> TO CLS >=>=3 PRINT <=3&:▖><= THEN PAUSE ACS USR CONTINUE NEXT f[O]O DATA © DRAW b; ERASE [H]7`fCOS cACS 98ZLN OR LEN [J]SGN PAPER DIM 60NOT LPRINT ` GO TO LEN © SAVE <[T] CIRCLE CAT LIST LOAD RETURN TAN 0SIN <=9f GO TO CLEAR GO TO POKE O SAVE DRAW GO TO COS lLEN [P] NEW PAPER mx?©Z^F▟i1 RETURN M NEXT CONTINUE >ABS T|ACS FN vASN VAL OVER OVER [G][P]:m^ FLASH CLS LIST / CAT RETURN [I]USR [K]1TAN ACS STEP [I] DEF FN [U] OVER y FORMAT USR ATN [U]x TO EINT AT STEP LIST PEEK 4 READ CONTINUE LIST SAVE [T]©SIN VAL AND v ERASE ATTR hP[E]Kn LPRINT BORDER [[D]0 CLS @[R]▖Z' BRIGHT tp[N] PAUSE IfoINT COS >= TO '8 GO TO U PAUSE SAVE LPRINT LIST FORMAT VAL 1{ LPRINT COPY MERGE DRAW PEEK C DATA AND LN CONTINUE `TAN [J] CLS t[B]PI@ASN [N] REM `F1CODE tUSR 7 RANDOMIZE g! RUN DIM & LIST 8@ TO xz[A] CLS C[M] GO TO [I] GO TO 03[A] REM LET E[M]_g+[P] NEW RETURN @USR y<>EXP yiJO DATA np[R]Z INPUT 8 GO TO PEEK POINT FN pf TO V_SGN [F]u▝7[P]ATTR H4xQ>=POINT CODE T@*- CLS `AT p CIRCLE THEN THEN [P][Q]2 PAPER R STEP FLASH D^PEEK ALN CLS LPRINT 6PEEK REM XH NEW WV) OR [K] TO tx@ NEW c LINE CODE ▗ABS >= SAVE |[G]m[Q][A] LINE CIRCLE SAVE CHR$ SIN FORMAT 0 CAT [B]% THEN ▝_ RETURN PEEK SGN Gf COPY ~ FLASH Fw RANDOMIZE 9 STOP [P]OH RANDOMIZE +_x COPY RANDOMIZE yq LINE FN wNCODE ; CLS INK REM FLASH oVAL OUT G RANDOMIZE PI7gUSR CLS CLS PAUSE THEN SCREEN$ ▙ RANDOMIZE IN ATTR w OUT / CIRCLE FOR OR CHR$ OUT ~}2g PAUSE ] CLEAR STR$ POKE }CODE M© VERIFY CHR$ 1 SAVE IN /L OUT U OVER OUT COPY 8F INVERSE [C] RETURN 9CODE SATN }GSGN TAN ( INVERSE VAL ERASE N▜ CIRCLE NOT PAUSE ASN w BRIGHT PI NEW n GO SUB RND[R] THEN ▛ACS /{^ DRAW ▛n RUN / RETURN M STEP ? DIM MERGE a DRAW SAVE LET READ LET y IF COPY i▟ GO SUB DRAW <= INK ▖PEEK | CAT {_PIb OVER n COPY ^ZPI CLEAR y CIRCLE RANDOMIZE [S]C INK BEEP VAL$ ©[B][N] POKE SGN CAT PEEK g▛▜TAN CONTINUE V▛ABS z[P] GO SUB [wa INK PAUSE @ CAT Z DRAW CIRCLE `x RETURN 0 SAVE DRAW mINKEY$p READ LPRINT CONTINUE DRAW x DRAW FORMAT INPUT [A]TAB © DEF FN RND SAVE LIST I<NOT CLOSE #s RUN BORDER COPY 1▜ INPUT COPY ` LPRINT CAT H&[I]COS DEF FN EXP [G] AND 3 ERASE [N]&▚POINT g GO SUB Z STOP OR CAT NOT AND NEXT o OVER ?2[N]▜J[A]>=[H] LOAD >= LINE fk<~ LPRINT iv LPRINT USR AND [I]ABS y BEEP Z INK ABS LLIST VERIFY O NEXT STEP |▝FN ©IN USR D.IN EXP | NEW USR RESTORE SAVE 1EXP TAB USR NEXT ▞ DEF FN CONTINUE FLASH xfgSIN k[M]p<= REM [A][I]<=[O]I SAVE [K] BRIGHT IN CAT COS ACS ?MG~AT K[O]TAB L DRAW CHR$ [U]L IF BEEP $z[D]~kgVAL$ CIRCLE CIRCLE ©© TO BORDER FORMAT BEEP . RESTORE P MERGE [I]/;7 OVER t:▝POINT ACS [C][I]aUSR INPUT COPY ~>EATTR MOVE PAUSE © CAT BIN USR VERIFY NEW GLEN [P]Y VERIFY ?T)`▜uINKEY$[O]D[Q]<=3IN x OVER RANDOMIZE [L]3 DRAW STOP pdv&CODE [I]▘SGN [J]3▜ DEF FN BRIGHT CONTINUE CIRCLE INPUT [P] FORMAT RANDOMIZE wUSR r POKE CIRCLE >IN ▘[U]USR READ qTAN INK CODE NEXT V6▜CODE VAL LINE DEF FN CHR$ ▝ REM TAB [E]uBIN hRj]ASN ASN SQR o`[I]# READ <> DEF FN GO SUB TO ©~%` PRINT I FOR BIN LLIST vsUSR FLASH kINT xp PRINT DIM P BORDER 0CODE CHR$ [T] CLS RUN >|4SGN z3E[ SAVE xW DRAW >= IF EXP PAUSE ( CLOSE # PAUSE T▟ CLEAR SCREEN$ a LLIST U@*FN aPsJW FLASH +g CIRCLE &/ INPUT g LPRINT f~▛ RETURN |bhRND LIST AT [R]d LET INPUT M` OUT SQR FORMAT $P BORDER LVAL ▙ LOAD xAT © AND EXpG BORDER f FORMAT d CLEAR [U]LN NEW LOAD ~ OPEN #4POINT > STEP EXP %[H][F][PIAT A INPUT qx RANDOMIZE @[F]P[P]( O@ FORMAT TO !D IF REM S@'>= CAT [R]PIPI>= MOVE USR l ▖ IF ▙POINT cUSR CLEAR MERGE SGN s[E]ASN USR V BRIGHT 'USR U PAPER [N]ACS DATA GO SUB TO INKEY$d`T[B][B]g▝ OUT [O]V STOP IFN RND{POINT OUT I▙VNOT PRINT USR VAL IF SQR nkO LINE C MERGE COPY kJ COPY 3qATTR ACS eR& GO SUB 3 READ AND LPRINT VERIFY IN [N] VERIFY OR #ABS SQR ▝LN j[SGN W PRINT LN ▖] OPEN #<=LN VAL /n AND [O](LN W]CODE IN SAVE LN IN =▖ PRINT LN NEXT ATTR wW BRIGHT LN MERGE PAUSE CIRCLE LN CLEAR COPY ATTR ©/LN THEN WLN CODE GO TO ATTR INPUT / SAVE :CODE SIN mAT [C]X[G] REM b IF COPY %y LIST IF COPY ~`▞SCREEN$ LET 8TAB PRINT xSQR ?[O] LET AT g CLEAR REM ?© STOP OPEEK 3VAL _y LIST MOSKWA11CFN aX[M][N]hrust-packer v1.2 by Dima Pyankov,Gorno-Altaisk.
