| Является частью релиза: | Walker |
| Размер файла: | 40960 |
| md5: | 88f38041bb5c071f3ec1749ac60240be |
1 REM NEXT 1 COPY _! COPY Z RETURN Z6 COPY GO SUB LN CODE OPEN # RETURN ! LET <>"CHR$ /!` STEP ACS ]!p STEP ATN ]%> STEP [L]](> STEP [L]],> STEP [L]]! FLASH > STEP TAB ]!` STEP ATN ] STEP p STEP `NOT ` STEP SCREEN$ ]!USR @ GO SUB VAL <>!USR INK CLEAR © PLOT GO SUB y INK RESTORE /NOT =Hello This is Loader
2 PRINT USR VAL "23872"
64895 GO SUB y INK RESTORE /NOT STEP R;; MOVE ! AND RESTORE RESTORE ! NEXT RESTORE !STR$ D FOR > READ N# READ s#r= PRINT INVERSE LLIST MOVE INK USR STEP BIN ` INVERSE ~ INVERSE # INK INK STEP BIN `0 LET > STEP BIN `8 CLS ATN (LEN STEP BIN ` RETURN ▚0 RANDOMIZE LEN POINT SQR INK `O(88 RETURN . INVERSE ~ INVERSE #<(l<( AND 0'$ INK INVERSE #7{ INVERSE [O] COPY oz[M]g GO SUB VAL INK ATN INVERSE INVERSE N RETURN INVERSE F COPY RETURN 8 VERIFY AND O INK STEP BIN `8 CLOSE #y STEP BIN `8 CLS SQR 0 AND [C]= INK gBIN STEP BIN `INT 8 PRINT STEP BIN ` RETURN 8 GO SUB STEP BIN ` NEW CONTINUE ) INVERSE n INVERSE # INVERSE f INVERSE #<> LLIST @xPOINT NEW SAVE POINT WPOINT FN _ GO SUB [Q]x RETURN X GO TO GO SUB VAL !X' INK <>,LLN RETURN GO TO ?qASN ]``+?[I]z OUT OUT +?/ FLASH FLASH +? LIST POKE RUN PLOT PLOT PLOT ,<> TO l<z+F6+VTAB [C]/, LIST &9j[F]j[H]~POINT LPRINT INT R[F]54)!:+T(SCREEN$ P[Q]@ COPY SCREEN$ =R[U]+HATTR T<N0 LINE [A]v @U[C]T"/LPOINT y[U]=ASCREEN$ POKE wU COPY SCREEN$ dLEN ▚LN (?Z">=/UATTR j?U▖COS $J[F] LPRINT ?Z[A]PI POKE ) OVER 0[Q]CP INPUT [U]V▞6<>[H]? PFN VPOINT V) VERIFY ASN ZU* INK `#SGN `USR [Q]XVAL CLOSE #, SAVE ACS mSCREEN$ ]COS nSCREEN$ m PAPER ATTR /RE▛USR REM CHR$ S RETURN [Q]▖.a COPY kPEEK B[A][E]*!PR$▞2RNDIRND)CRND*ESCREEN$ CK[E]K[F]*VRNDJ MERGE + CLOSE # LIST 12$I[D]%%V)JT[A]4HVAL P FORMAT g▜USR NEXT @SGN 47;@#s▚-ZSCREEN$ TAN VAL ` FORMAT [Q]=ATTR +FN FN NEW SQR VAL$ c/,-)R-RU(!6 OPEN #<! D)[C]%FN pC[E]%JT LOAD TPOINT [C]e REM d[J]b[F]USCREEN$ URTAB (Se[R]N[A]RND[E]!SCREEN$ POINT TA,[F] STEP [B]41 LINE Q&U#M[S]M[C]&J@ DEF FN 5JAT [J]SCREEN$ [I]COS H[A]0FN ( DEF FN LPRINT FORMAT @USR EXP i DRAW FN IR[F]0(SCREEN$ J[F],H[I](X[Q]p `h*[Q]`@[E]5(( COPY -F(RNDJ[E]ATTR :DPOINT Vj[F] gSCREEN$ ▗9B[F]*DRINKEY$)%*29"%5d(E[J]"FN ([U]KTINT 5SCREEN$ %e[K]5*"$U[S]L[B]*RRNDK[F]+[G]P)W15 THEN k[F]S INK T)RNDUATTR T3JZ[U]* MERGE )INKEY$}WUSR FWSCREEN$ WATTR SPI[RND,R[E]+ FORMAT '>= RANDOMIZE AT DRAW _SCREEN$ )SCREEN$ [F]k`Q FOR J!D[D]▝WFN LV[F] `h+ FOR USR ▝A INVERSE Z RESTORE JAT PFN [A]` ERASE ▗ REM ZPOINT ▘^-:@ INPUT uj MERGE MERGE SCREEN$ TFN SCREEN$ PP[Q] STOP M# INVERSE r STEP PLOT POINT INPUT POINT LOAD FN FOR VAL$ MOVE ATN GO TO OPEN #AT FOR CLOSE #ATTR AT S GO TO REM *j CLOSE #* CLOSE #T STEP P0cPVAL @1J[R]POINT USR AT [J] MERGE [O] LLIST NOT RETURN SCREEN$ POKE VAL$ //?ATTR TPOINT VTIVFN -ATTR SCREEN$ TST*%#`hV VERIFY LLIST [Q]!` FORMAT 0pFN XSGN [G]m▛6kSTR$ *[R]NLN USR [J]SCREEN$ USCREEN$ ATTR vIOUSR PLN TAN LINE ;VPOINT Rh?TAB SVAL$ RAT P FORMAT w TO SQR -P VERIFY 0 FLASH ACS m PAPER [U] ERASE -fACS } LPRINT ▖ LOAD THEN POINT ;FN NOT *g:[Q]"H▖ LINE FORMAT USR STEP ?5j MERGE SCREEN$ ; CLOSE #( FORMAT SAVE SAVE a[F]▝ COPY hX88ll INPUT RETURN <=+=?0LN >=`0?+?[P] OUT FN AND ^ AND k/ AND ▚+?NOT CAT s1#,? NEXT 3▛Y 3 NEXT NOT [E]+? LLIST LET {8 LIST LPRINT 0▝p+?▚▚ TO TO xx0.COS RETURN NEW COPY F[L] LOAD INVERSE [M] THEN ~ASN LOAD m COPY {f COPY STEP dq STEP [R]q STEP Tq STEP qN@Hi!▜@Jerri & >>RRA>> asINKEY$@Alien Factory Group CONTINUE @presents for you(HWALKER demo v2.0HGreets for:[R]H&rey ,M.M.A. ,POWer ,SpiderSTR$ HS.Y.B. ,AlK ,Noman ,Fisherman LLIST HP.Atreides ,Sage group ,MAXsoftPDr.Death ,Maxi G.C. ,etc COPY STEP [A]q STEP Tq NEXT GO SUB V>? GO SUB G CLS > CLEAR © GO SUB y<> STEP Tq STEP q STEP [A]q STEP Tq<> LLIST ~#< LINE kq RESTORE = RETURN 0 LLIST ^#V# RESTORE FOR " DATA q BORDER o&)))><▗g GO SUB [ DATA q GO SUB S DATA q~ACS , SAVE ~ACS , SAVE ABS STEP sq!@@ COPY u GO SUB VAL <> INVERSE ! NEW qNOT wq RESTORE INVERSE ! NEXT qNOT wq INVERSE ! GO TO q INVERSE ~ INVERSE #<>==!XXw COPY vvv GO SUB VAL BORDER CODE FLASH RETURN / NEW ( SAVE CODE FLASH RETURN / NEW SAVE <>>~ GO SUB G NEXT GO SUB ^g.<w, DRAW $wgo>NOT ERASE qw,s,r> CLEAR © GO SUB y!@USR GO SUB VAL CLS <> PRINT OR > INPUT 2 MERGE q CLEAR © GO SUB ySTR$ LET CLS <>FEDCB COPY FE COPY EFG COPY NEXT GO SUB s CLEAR USR [!%USR OVER MERGE GO SUB VAL MERGE INVERSE LLIST !l DATA l DATA ^#<> GO SUB LN FOR RANDOMIZE INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 NEXT NOT RHR&=j# LPRINT USR LPRINT USR COPY COPY [O] CLEAR AT DRAW X CLEAR 8g COPY T LIST AT (U3[O]©~qVAL$ <bvACS VERIFY $ CLS 0p1z SAVE ©~ RETURN REM Y NEXT c READ dEXP 7 TO DRAW _? INVERSE PLOT f COPY ;[L] READ INK RETURN CLEAR DRAW DRAW CAT COS CLS RUN [J]/[Q] STOP ' LPRINT COPY ▞Y PLOT BRIGHT LN GO TO j DRAW SAVE x RETURN SGN ▜i| OPEN #SCREEN$ /PI3 LIST [O] PRINT [Q]CHR$ IF VERIFY 3xT" BEEP [J]y LLIST *^[O]BIN =3p RETURN <= BORDER NOT LOAD ▜ COPY gABS BEEP LLIST SCREEN$ [T]S CAT [H]Q CLS [Q] OPEN # RANDOMIZE P LIST PLOT LPRINT `fg?©[K]USR l} CLS LPRINT USR YCODE ▝[H] BORDER LIST I STEP 3NOT 3_[O]BIN ▟1/ INPUT ATTR ne LOAD OUT |[:Z STEP 68 CLEAR ACS 2 MERGE {6:E▟ TO ©?8 BRIGHT COS [N]USR LPRINT [J]POINT LIST Dp0EXP ".<>22L CLEAR P2@ LET <= DRAW @ SAVE [D],*[O]= PAUSE 'PIf3/[K] LLIST -0 STEP ++ CAT -COS ▞/ THEN 9 OPEN # MOVE [R]36 CONTINUE +[Q] NEXT USR READ LEN 0 LIST DIM DIM )?+[U]INKEY$+ LET )IN RETURN DRAW INK P[K]ATN [I]GT?/[P]INKEY$`ATTR d,[I]6POINT BEEP DRAW s CIRCLE y[L]NOT THEN [T],▞ PLOT [Q]b7[J]( GO TO [Q]d REM (2 GO TO CAT , BRIGHT COPY OVER OVER DRAW DRAW CIRCLE X&3X RESTORE <= +>&ATN RESTORE 8 RESTORE INKEY$zb READ STR$ BORDER DRAW [U]e> VERIFY COS [S]uVAL CAT z/ IF O], RETURN < OPEN #OV©.~8 PRINT /Y4[C] OVER 2[▟▙B FOR rIN 2g81 OUT : CIRCLE [L]b* DRAW p COPY ERASE /1?[P]L CLS PAUSE ATN u CLEAR _[P]▚Z[C]/[P] DIM [C]o[H] SAVE X.?#,ATN 5P[K]X/% MERGE 2oA[i[C][S][R] LET AT S(MLEN OU©F GO TO .?[B]x?▟RND[I]SIN |^ MOVE [I][K] BORDER ©@_K LOAD I8 READ X"lZ[Q]_B RANDOMIZE LET /gCODE W[H]CHR$ ,(USR ERASE [I]STR$ sn STOP [F]954Jj READ SIN e[C]kK PRINT CATN [F] CLS RUN CCODE SAVE PRINT AND [I]3LI[P]333$ CLEAR c` PRINT Z▟▛ OVER ~3▟S1[O]M1▖ LOAD ASN 01I▞j▘SQR ~ STOP NEW CAT ▚V LOAD AND FL47V STOP 90 OR [E]n OPEN #2<[O][J]IN VAL N DRAW oM RANDOMIZE >zPEEK [O]▟ PRINT ?/zo?p COPY CLOSE #[P] DRAW !J BEEP [H] PLOT STR$ INVERSE TO )xv< IF *%t[R] COPY INT r9T? OPEN #IA MOVE [M]SGN REM -[H] REM RETURN ;Jh?n? TO ERASE [S]p OVER f>=`[J]/z[T]u©R▚x?>1ASN qZ)-[O]dINT A'Um[O][J]BIN % RETURN ISQR CLOSE #+ BEEP [S][A] SAVE 2&" RANDOMIZE INK f COPY LN WSQR [M]wc FORMAT ©ATN [T-/[M]POINT X[Q]<>ZVAL RETURN TO - PRINT <=/ CAT n[O]y LOAD ▙ BORDER [B] CLEAR ASGN J&X STOP [J]SCREEN$ r<=] POKE IF :INKEY$▚ COPY *RND[D] FOR -}n<oINKEY$LEN RETURN @[F]KvXCHR$ MERGE [J]~BIN N~INKEY$[M]|8▘.bG<>[Q]PI^n[M]ABS v THEN NEXT READ PLOT INKEY$Q4ABS RNDX] AND [D]?EXP [P] REM f*n=-% FLASH LUSR LIST COPY y OR q▟<> BORDER R>=u▖?OASQR G|vk PRINT COS FLASH LEN [T]yyIWnLN # RETURN FN TAN g VERIFY BIN p LINE IN "C5/^~7RND9[I]I STEP W LIST @[L]K^<=Z][J]ATTR ? TO COS R LIST j[U][N][A]"LJ▙e[N]^~SCREEN$ m BRIGHT OPEN #D SAVE [P] VERIFY GO TO 2 CAT +p LOAD INK STR$ DIM AND ixATTR & CIRCLE D[I]$s3 MERGE F#/W[S]"4n OR INT PAUSE ▘P[I]PD LINE INVERSE AT ,PI PLOT O LET @ CIRCLE AND F`S READ ) IF SIN ?POINT N IN b AND h7| LINE |J/@[I]lyJ?©+pv PRINT #o PAPER RUN UCODE READ W STOP TO LOAD [S]TAN STEP Pj DIM F8/n INVERSE zNOT VERIFY PAUSE R FLASH PRINT OUT 6 CLEAR IF FLASH MERGE xIN G PAPER STOP USR (u RESTORE 'jRND RANDOMIZE jy▚BIN ^ INVERSE x POKE n▟ DRAW [Q] FORMAT REM Yz0PW SAVE ` LINE .NOT AND IF @TAB ▛[P]m MOVE , TO THEN [A] MOVE <IN `[▛8[T]▛Yvf[O] READ OR PISTR$ LIST READ V?<=TAB NEW ?©/c NEW INK RANDOMIZE [P]OTAB ;=▞ BORDER ^[S] MERGE ;NOT m RETURN SAVE 5 TO PAPER }}:vTAB >(?VAL$ 4 VERIFY >^^ MOVE s LPRINT <=ASN :|z CAT < CLOSE # DRAW TAB OVER <VAL <OCHR$ AND <AT <=<$TAB T LLIST ? NEW [R]R%3USR 4ft▝TAB U LOAD "[Q]dIN OR 3MkSTR$ #E# MERGE INKEY$` OUT RNDL▟[C]xLN FN y▞:!COS Z! PAPER VERIFY GO SUB Q SAVE `[O][A]SQR ATTR ACS oATTR #~)6FN TAN CONTINUE W[D]NOT < SAVE DEF FN / RUN /[F]/ GO TO TO NEW [A] RETURN ^ATN NEW ^CODE w DEF FN VATN PPOINT ABS 5 DATA ABS ~INKEY$SQR "_c PAUSE vCODE [Q]`SGN BORDER ( AND M▞<= LOAD -o STOP k CAT [S]/u[B]] REM m._©[T] INPUT T NEW VAL$ ASN ^5[L]ATTR 5xATTR LIST 4 CLS PLOT DEF FN ▜> MERGE [I]6STR$ [H] LLIST WTAB 1EL&▜ STEP uO COPY BRIGHT 5 CAT @ FORMAT ^CHR$ OUT uop LET INT PAUSE Lt COPY POKE [S] LIST L BRIGHT L PLOT [C] OVER PAUSE 4.xWQ[D]SCREEN$ USR o)4 LLIST USR FORMAT ▚2[O]g FOR OVER QSTR$ D DEF FN [L] LPRINT NOT [[K]RNDEXP Tp PAUSE m@ OVER ^ LPRINT STOP [R]`wC▟ FLASH OUT STOP >= FOR q}b RETURN T DRAW CONTINUE [U]:6([J]p NEW o53[K]3c/m, LLIST CLOSE #<PEEK ▜ THEN ATN >=EXP FLASH GO TO FOR n RUN CLS BEEP ySQR ' NEW u▜!▖ik▝k SAVE 7[A][G]7k MERGE POKE <[M]7▝ FLASH INVERSE I OUT VAL$ SIN I/3C~ CLS OFN xdC8 DRAW X[C]INKEY$N LOAD INPUT [K]VAL J;B<>kEoA GO TO OUT 5POINT O}F TO &F1p©F CLOSE #X INPUT POINT INVERSE RANDOMIZE G[B]NOT [L]uVAL$ [O][F]EXP $TAB READ SAVE <=#iD}tj} OR D[C] BEEP LEN x AND [M] RUN [F]Dy LLIST ▟<> LET y8Z)| GO SUB ATN 45tr▜<> DRAW SGN qCODE CONTINUE pdBIN ^[M]INKEY$ RETURN [M] CLEAR CAT D FOR z CAT PEEK [B]VAL$ AND < THEN >=dX DRAW n TO e,
53124▚ OPEN #mLN [L] CIRCLE NEXT FOR }SGN [D]pGNUSR VERIFY LINE / AND DRAW INVERSE PI<=[F]/X@ LIST INPUT 6 a DRAW 8! CONTINUE N OVER GO SUB ▜ LOAD [D] LPRINT COPY !%ASN |[L] AND gATTR RANDOMIZE FORMAT kzUSR ▚noxLN SGN INVERSE % OUT L GO SUB |>SCREEN$ gI[ OUT jSQR MERGE ? OUT n PRINT BORDER ▝ RESTORE - POKE SQR USR RANDOMIZE BRIGHT LIST PAPER @NOT IF FORMAT VAL$ : PRINT FLASH MERGE ▟+ LLIST COPY INPUT m NEW cSGN JPOINT [ABS jFN ▘&" PAPER [H])^5 LET Z CLS CLEAR !SCREEN$ vC{'5 POKE BIN SGN .W INPUT t INVERSE RETURN NEXT USR CLS STOP |{ PAUSE *CODE GO SUB ▖ GO SUB CIRCLE cQNOT ▜wSTR$ u DEF FN (g?>"ATN FORMAT SQR [F] OR fCODE (h OVER ▜SQR . RESTORE K/0o}y)EXP w SAVE Xx INPUT + COPY VAL$ ` FLASH BEEP NEXT COPY CONTINUE ▚ THEN ]~8 STOP ABS COPY sSIN SGN INK INT jA OR oU REM [F] CONTINUE Q CIRCLE ▘SGN b IF MH RUN t[H]IN >$7hVAL$ [O] VERIFY ▘ RANDOMIZE INVERSE m THEN tp>v[O]"ATN LLIST 8^ AND AM`' POKE O LINE STOP OASN u] READ AND mA LLIST [O]uFxm NEW @ FORMAT IF OUT OVER FLASH LN [A] POKE ATTR , MERGE W CLOSE # BEEP 1 VERIFY "INKEY$K[S][U] LET INPUT FN IN /DLN }SQR l COPY LLIST >= AND ] REM MERGE x[C]SQR CIRCLE SGN ▛+tWACS [S]©NOT l OVER ATN TO D[M]F INVERSE ^zSQR x OPEN #F5Wk©. DRAW MOVE [P]}KB OR [I]~eX.1 READ b CLEAR NEXT ABS LLIST DRAW EXP INVERSE [T]}T<>[N] READ g INVERSE ATN LIST LLIST PEEK 444 PLOT DIM D ERASE * CLOSE #EXP GO SUB ATN OVER FORMAT Z▛[P]PI;IN COS PRINT ~vxCHR$ STOP 5EXP FORMAT BORDER THEN <>;xLN 3 LIST [C];[H]TAB >u&n PLOT TAB ▘9 CAT LOAD QL[L] AND X!]gASN -W9F BEEP [E]. ATTR COS LIST INK ACS 7D STEP NEW GO SUB [A]EXP a▛o VERIFY CLOSE # POKE &. RESTORE JATN FN LET LIST Ggv© RANDOMIZE =<><>9]©>ATTR [J] BORDER ▖ FOR MERGE <>8}v$_LEN ▛ RANDOMIZE pTAB 1|(VAL$ SAVE 3 DRAW y$lX BRIGHT NOT (PI REM 1 RANDOMIZE NEXT (SGN 1[I]jkTAB [C]0{6▙ BRIGHT <=/©ABS SGN LLIST q MOVE {BIN FOR VAL [K]| CLEAR [M] FORMAT CAT ATTR 2STR$ }4t>=<> STOP Z PLOT STOP CONTINUE X7t RETURN LN r CLEAR [H], DRAW 8 CAT jSQR <[K]p MOVE gxSIN Tt[F],4[P][H]▜* LOAD LINE Hz[P][Q] OUT [R][A]▛SQR @ LPRINT FLASH SQR SAVE USR [O] PLOT OR [H] INVERSE _ POKE s SAVE [A]U OVER ▜ THEN _COS ^|G THEN hE OVER PAPER [G] FLASH d LIST INT c LIST C&CFN [H]A DRAW v+nB4 LOAD [Q][G]?CHR$ UWr LPRINT ASN k▟<= SAVE + INPUT K RESTORE nc+?GINT TAN l/t#>uINT AND m?▜E[C]/ RETURN kA8og[JLc-{ THEN INT ▜ATTR Z LPRINT THEN NOT ^ NEW CAT INT R<1J4s_ COPY RNDf[I] RUN x THEN `'▛'n LET 1 RESTORE #~ LOAD vjz THEN k OUT [C]v PRINT 31ATTR LN ERASE BIN ▟ AND [P] CONTINUE LPRINT .▝ VERIFY SGN LPRINT LIST [K][K]ATTR ]_>f PLOT i INK /iPOINT LET TO RETURN x DIM Iq©3>= PLOT t RETURN n RUN H_u[U]? STEP ^ PAUSE REM CIRCLE DEF FN CLS w©>? GO TO TAB LINE u[ RETURN G RETURN FORMAT STR$ CIRCLE yAT INVERSE MERGE G FORMAT xKPEEK LN x^ COPY IF VAL$ GINKEY$s MERGE ERNDof▗<=EXP INPUT [C]| DRAW TO CHR$ LN CLEAR X, e IF cnLN PEEK LINE BEEP ASN ©STR$ o PRINT PAPER ▜c POKE B! RUN #XuTAB $ DEF FN ▖ COPY INPUT E[J]>vjwv PAUSE j MERGE CAT 0 LIST j STEP GO SUB VERIFY tp8 OR UABS kTrVAL [B]~ RANDOMIZE COPY w▛.VAL$ INK RND[I][F]SGN $ BRIGHT OR STR$ POINT GO TO ▙ PAUSE TO PEEK ABS CLEAR POKE AEXP POKE 9CODE jLN W;8MCOS IF ▜CODE OR [G])TAB PLOT TPEEK BORDER GCOS WBSCREEN$ IF =INT K[H]▞ MERGE `uRND[E] NEW ] INVERSE C BORDER B ERASE ]1PEEK B5G INPUT '{NOT ATTR [O]~ CAT CODE a▞]IN 8f/ LOAD K PRINT PAUSE [O]IN a- STOP ;6 DIM n▙ INPUT ©? OUT w STOP PEEK nSVAL v<>'gINKEY$PEEK VERIFY [Q]s[J]W CLEAR lACS [Q][U]hLEN FATN [J]zY-i COPY BORDER x BEEP PEEK jk[P] PRINT >v INK twSCREEN$ WNV THEN k CIRCLE WQSQR SGN _>▜| LIST ▝ FOR E[J]PEEK { OPEN # RANDOMIZE SAVE ABS VERIFY |ABS ASN sATN [A]?©BIN +tVAL$ CHR$ }Uu<>[I]]SQR ]<>-ATN N LIST SGN LPRINT [L] STEP )IN RND FORMAT - PRINT : CONTINUE INKEY$ LIST [M] FLASH [T]W[D]^zSK BRIGHT @▚ STEP ..e▜ GO TO gg FORMAT h DRAW FORMAT SCREEN$ PEEK C@BIN LET ^" IF IN CLS DRAW [~TAB [Q]ATN POKE hPEEK TAB wS* DIM ASN LINE ^C[H]ABS USR BEEP CIRCLE V/ LIST JLN CODE INKEY$COS M[I] INVERSE MERGE [J]LEN zj BORDER BIN CLEAR [L]Wm{<x8 NEW NOLN CODE O POKE [I]EXP tABS %f[N]3ASN BORDER GO SUB PLOT ;▘SQR . INVERSE GO SUB [D][.SGN pP TO r LLIST INVERSE CLOSE #FN BIN OPEEK ▛ LPRINT RESTORE CHR$ [H] CAT VL BEEP [O]([P]<=VAL SGN H INVERSE PRINT 1ASN INKEY$fD OUT }PITAB LEN ACS ATTR FORMAT PLOT dPCHR$ THEN F[C]HFp INPUT CLEAR @ FOR RUN BORDER C CAT ▚ OUT ▙PEEK NOT SAVE <Jj MERGE DSQR SQR |c5 PLOT > OR m READ NEXT $ATN xATTR PEEK INVERSE . MERGE VAL$ R^ BRIGHT DATA wo DIM BqEXP ▛ DRAW CLOSE #▛M LET AND V?X5y[H]? FORMAT IN } FLASH ATN ?6D OUT g▗o^ OR A[K] GO TO PI1[G]=0= RANDOMIZE RUN OUT 6*[U]ABS [F]aOPI▛ RETURN 0 CLEAR d TO LOAD MOVE INVERSE STR$ RUN 4 VERIFY RUN PLOT 5 CLS AVAL$ %i© OVER [D]PEEK CLEAR ^© INVERSE FOR OVER LOAD SGN THEN NOT Y RUN g[▛&r CONTINUE ~ TO THEN BRIGHT THEN n[EXP ATTR rr%POINT < DEF FN {ATTR v POKE j- GO TO o[J]W+ PAUSE TAB {ATN ~<>IZi@] RESTORE ABS [H]Bi[C][R]B* OUT NEW PRINT !©< COPY q NEXT LLIST READ ▝ TO PATTR 3 RUN | FOR Q LLIST ATN EXP INK FL▚RND FORMAT LET &.©]ABS ABS BRIGHT uMU8[P] LPRINT LN [L]CODE |PEEK > RANDOMIZE 4INT e LPRINT GO SUB ▛ RUN CLS oC& LIST LPRINT MOVE ▛_<>O;EXP OR #Y▟ DEF FN SAVE RUN P CONTINUE CHR$ POKE ▟[M]▜F[R][U]NOT !p[B]ZPEEK DEF FN OVER [D] BORDER g▙x]RND LINE OM CLEAR p LET USR :▟SQR ▜& RANDOMIZE ▘[^▙ BEEP GO TO IF LINE o{ GO SUB PAPER PAPER CAT IN VwoSGN ~ CLEAR INPUT [U] CLEAR PEEK CODE 2 INPUT ASN } CLOSE #5wVAL$ SGN CLOSE #VAL$ -t7PEEK u LOAD OPEN #4▚w CAT THEN > LPRINT i< INPUT ▛oi[_}7[H]SQR + CONTINUE VAL$ ABS SGN ▝ STEP #[M]+iACS e~4RND[P]]>)TAB FOR | OVER EXP 6CODE ASN CODE zCODE TAN OR >= LOAD INK TAN PAUSE 3 SAVE ▘CNOT POKE STEP ATN CODE RETURN DEF FN RETURN lATN Z|~SCREEN$ <> LLIST OVER ▜ MOVE OPEN # CAT VAL$ MOVE FLASH [Q]W>= GO SUB SQR Z CAT hl[O]/<=vSQR TAB FLASH [O] BORDER V CIRCLE PRINT [K] RUN CAT ] IF DRAW Rjo PAPER ,z OUT USQR SAVE PRINT ABS LLIST <>}3TATN ATN BRIGHT Db/) DIM ▝[B]▚}3▚ OUT STOP [G]Z[S] LPRINT [S]W OUT qs[B]EXP <=oT3vW'[G]~Q[N]sATN SQR ▖KSIN POKE XASN iQ BRIGHT m8INKEY$. CLEAR PLOT DEF FN POKE PAUSE >5[H] OPEN #ACS % COPY AGEXP LPRINT BEEP b ERASE O DATA [C] FOR OVER Q2 BRIGHT ©Y▖EXP qP LIST [A][P]gKgM▞e INPUT CODE POINT AND CHR$ iVAL -s*CODE k LOAD OLSTR$ + IF LOAD TAB RNDEXP [ GO SUB PAPER LLIST Y CIRCLE GO TO CHR$ ATTR m ERASE /L▗LLN LIST ULLEN /COS GO TO ^▚/{ FLASH IF FORMAT zfq& INK ABS [K]}EXP FOR zuaATN ▖GEXP LPRINT ASN FLASH N[P]PEEK DEF FN 6 BORDER ATTR CLEAR VAL$ [N]z[H] INVERSE Z CLOSE # DATA & GO SUB = RUN VAL$ sH[Q] BORDER a READ ATN 8Z7} BEEP INPUT REM ▜ABS PEEK AT aSGN [T]a' IF [O] CAT FOR ATN INKEY$AT [J]z+JSQR LET [P]<>Wjr READ [ IF S0+POINT 1 POKE ABS ▟1'm OUT IN 3 MERGE G(INT RANDOMIZE W^ GO SUB ~ RANDOMIZE SQR eSIN CHR$ DATA .i*▘ASN WVAT AND DATA {[D][N]{v THEN $▝^CHR$ ▛[K]SQR SGN U[C]BIN ▘ SAVE PI RANDOMIZE STOP vff/[O] SAVE ©ATTR /"EXP oSCREEN$ /[O]E[J][P]SQR (PI▞ LLIST ▛wY#[Q]< BORDER f0}} DIM SGN GO SUB CLEAR INKEY$[J]t BEEP CAT RETURN SGN LOAD NEW [B]BIN OVER w0 OVER INPUT zCODE f<=> IF [J]T. CONTINUE @S[C]PEEK POKE LOAD f[T][H]F PRINT TO <|n LET OVER Uwv CLS ABS READ h DIM <_ OVER uSGN PAPER [M]Q[F] LIST DATA O OR GO TO ASN e[F]$[P]o[O]x INVERSE uvKU LOAD INK REM NOT [L][H] OUT ▜ RETURN N[P] PRINT [P]IN BRIGHT k NEW STEP /VAL$ dnIN iu CAT 7[D]O<= LOAD OPEN #IABS OG DIM 7C&VAL$ ▞KI FORMAT SAVE ^▗TaTAB [O] VERIFY CLS CONTINUE ▛ OUT THEN ▝ LET m[J] STOP ] CIRCLE n[K] RUN [F]swI+ OVER ?T COPY q5>.BIN OUT [P]Lm[H]& OUT GO SUB e* RUN ^+f REM ERASE BRIGHT PEEK CIRCLE _ RESTORE _PLEN CLS READ [P]3M OUT Be INPUT READ T$ LET ▚iiCODE l GO TO [E] PAPER SGN <>SQR d NEXT [D] DRAW ATN d DRAW CONTINUE [O]! IF R3^P;w|RJ AND PR PAUSE MOVE [J]RPEEK /TAB BEEP [L]NN STOP E READ BORDER NOT CAT ▜H PRINT ▙TAB ▝S OUT LIST & ERASE ▟9IN |7|1p FOR COPY |IN ACS ▘SQR [O]Q READ j-▙ BRIGHT FeEor GO SUB gyy▙{zGsyock7L VERIFY GO TO KVAL$ @5▗B LOAD V DATA LINE VATTR SGN TAN RESTORE GO TO MOVE SQR PAPER v DRAW VAL$ [P] COPY Ab PAUSE :▙D BRIGHT <>x4LK READ STR$ DRAW INK ▝NOT [A] GO TO 0/ OUT ▖H| INK lH[B]PEEK [L]`▚ RUN ATTR CLEAR DEF FN < POKE STEP IF CLEAR {g-wASN YhW[I]7oAT PAPER TAB [LEN / CLEAR bRNDATTR WCHR$ m BORDER AND IN ASN W READ NEXT [F]/qw[B] GO TO Lr▜&VCODE u DRAW [M]STR$ [F][Q]8 RETURN LN ▚[T] DIM J THEN GO TO ; CAT BRIGHT ?f3PEEK OR Z[D]+ STOP GASN [P]|{? AND NOT [R][L]S7SIN CODE n~v[C][F]ATN 8[D][I] CAT ▛9▖PEEK O CAT [Q]`SQR DRAW @[I] OVER FOR GO SUB CIRCLE VAL$ r AND wp/ POKE 0 FORMAT ©[A]^*IN [P]ABS G CONTINUE ▟▙▚USR RESTORE OR [H]INT OVER FLASH o CLEAR qPEEK CODE AND STOP UNOT ▝ FLASH ATN [T]oATN x7 PLOT INT ▚- CLS K GO TO [O] RESTORE | PRINT INT ldty[O]<} DIM LEN TAB TUSR SCREEN$ ^ABS [U]~S LOAD SAVE 5 FOR k▖▗[H] THEN ^SQR W|h THEN SGN x OUT ]P COPY SCREEN$ LOAD , RUN g RANDOMIZE RANDOMIZE BEEP INVERSE ATTR SQR [F]cLN -rABS bSQR OUT POKE ( STOP ▙/lk NEXT EXP 1[L]j CLOSE #VAL RUN vpY[[L]STR$ OUT LET AK;TATN EXP THEN ;R$X▘<{ PAUSE {SGN {e[M] STEP RETURN p^ OR UCHR$ In<> RETURN ZABS ABS ( SAVE @Xp▛ REM =7 MOVE [H]gI1FN ABS #I NEXT SAVE GO SUB FLASH ▙u9FN 83WBIN PRINT GO SUB S[L] RUN NEW 0ACS STEP +*LN mCOS OUT ABS G DIM SGN R[Q]$n5.y PRINT [O]SCREEN$ + RUN LIST FN FLASH SAVE <> THEN POKE n STEP 0 RUN u]`USR /CODE INKEY$c"[H]IE3ATN [E]ACS wR AND ▗[I]y3|: CLOSE #n▛^T▝!T`b`LABS USR < OUT <=YABS RESTORE 8-C(E RESTORE [R] MERGE TAB N|S_ OVER AT PRINT ->ATTR *W PLOT PAUSE [O] RESTORE STOP RUN 5 MOVE FORMAT LN [H] REM OR FLASH PRINT 1p2Y~RND7VX%lFt[L] OVER [H]ATN DIM [J]ASN [L]CODE DIM CLS [F]yRNDF@ TO /CHR$ ; PRINT n TO [U][L]W. BRIGHT GO SUB 35V IF [CHR$ 1 BRIGHT NOT NEXT r RANDOMIZE Z:7LEN :^VPI[G] OUT © NEXT THEN 3y<>6]w~7 ERASE LEN w FOR ZPEEK RNDd NEW [P]`<c FLASH REM [ POKE 4AATN woA FOR v GO SUB OUT <=^<> IF op^][T]}6 POKE CODE VAL RESTORE [J]6ATN [K]SQR 6 FORMAT ERASE {<= OUT Vm▘<><o RANDOMIZE bf▛We3[[B]7dFN [L] CLEAR TO /j DRAW ^K7}aPEEK CLEAR ATN STEP LOAD ▗<= DATA CAT { AND LIST ▜ CAT p[R]p5q CLS ~V DEF FN }-W READ THEN RUN D[C]^ SAVE BORDER [R]w AND [M]s DRAW Wo9 FLASH OVER INPUT DIM ^[O]▜8[R]]K GO TO TAB TO 4 POKE F BRIGHT DIM yT IF INPUT NOT n^h;[P]▝=© CONTINUE PRINT 8 COPY q RUN cV IF f<>mVd[O]NZ/H DRAW VERIFY VERIFY =▞} DATA B▚ BRIGHT [Q]ATN TAB STEP p THEN qATN IF ' OVER GO SUB [M] GO TO CIRCLE [G]N{fw INPUT LOAD h~©RNDEXP g▛B/ IF RETURN [H]/▞ABS THEN INVERSE LN STEP OR cBFN PEEK D[P] READ VAL #n RANDOMIZE </ COPY c1Q{[B]x NEXT a LET ` LLIST FLASH POINT LPRINT IUSR BORDER SGN MOVE ▟ GO SUB INVERSE Rc[H]SQR Z GO TO UINT OVER GO SUB PRINT ' BRIGHT RND^[O]9[L]PEEK EINT y PAUSE BEEP <= BEEP OVER [y▛/ THEN ATN CAT RND7}?{[D][E] NEXT ACS [G]VAL$ SGN [N]` THEN ▜ RETURN OPEN # PLOT PAPER [O] CLS ABS mSIN f DEF FN < POKE 2`SGN IN COS CLS GFCODE f,<[Q] BRIGHT 9[R] PAUSE TAB VERIFY o BRIGHT BRIGHT CODE <[T] BRIGHT MOVE MERGE OPEN # NEXT 5f CAT [J] MERGE COS pGv7 RUN z| THEN [N]<>SQR [L][P][TAB [S]^ OVER STEP NEXT AT ISGN STEP THEN INK [U]_▞^[S]+ RETURN FORMAT SCREEN$ }<>3C BEEP [D]$▝ LINE INK [F]j/o[O]SGN [K][N] RANDOMIZE Ve(?[J]QTAB y7 LOAD LET FLASH [O] NEW PRINT ▘+[S] LLIST 1 OR |[L]&SGN PEEK [T] NEW OVER AT ^_5'C+ CAT so RANDOMIZE f<; AND TO BIN NEW 2m OVER BRIGHT LN CLEAR ^ STEP PRINT ?ACS THEN ©▞o READ >= LINE pLN RETURN t{;SGN c OUT THEN SQR k# CAT |CODE ,▛- LOAD OUT REM -nASN ©PI AND `[O] OUT MERGE PAUSE n| INVERSE |O OUT V6ABS Z RUN NEXT n THEN |[E]L[Q][A]p OVER GPG`[T]w THEN x▚.{B FORMAT j SAVE MOVE OUT VAL$ DRAW W BEEP ▛t~y© OPEN #vv NEW <1▖z+ OUT a DIM ]X[.6:SGN q© TO ▚2 RESTORE Y>= BEEP p STOP :u3f SAVE wtNOT LLIST [F] LINE THEN FLASH PS?ACS RUN CAT DATA 4<SGN VAL USR PAUSE ▙54E4ABS rA@USR AND R RUN [S]4^[S].< DATA '4#[L]iD PRINT v RUN 9z NEW G{ NEXT {p[M] NEXT THEN i THEN gPI OUT x NEXT FORMAT m|WRFN READ NEXT e OUT [Q]uCODE G<="s RUN PLOT 6w CAT READ ▚ REM 5^PEEK Q RETURN [F] GO TO 5]ABS REM uINT IN STOP %VAL K DRAW DATA / STEP SQR LPRINT XT OR RANDOMIZE ACS INK _DPEEK _qSGN Pb07IN bUTAB [A][E]| OUT PAUSE 9X~+fHINT #u[J]M▞Z`@EXP NEXT |IN .CODE EXP _K> OUT ASN `VAL$ q PLOT OUT OVER STOP }3 NEXT e FOR B= RETURN i▟[B][L][G]4 PRINT ▞Vk NEXT E& LOAD X DATA }LN XLN STEP ,BIN FORMAT 8ATTR CLEAR VAL LIST OVER RUN e LOAD 3IN V RETURN - COPY PAUSE V= CLOSE #*J3 STOP AT z[L]*SCREEN$ )0qPEEK INK RUN GO SUB /[A];o+ OPEN #>=;▟ INPUT Gx PRINT BORDER CHR$ READ USR LLIST v IF [M]gjkPEEK Y*^ <[N]SQR SAVE l LOAD RANDOMIZE [F]g BORDER BORDER RESTORE U[M]gSTR$ INVERSE LINE d/%[D]3K[G] ABS VAL ATTR F[L]<U[E]Y BRIGHT u PRINT z5wt[J][I]g NEW RETURN a DEF FN COS @ CLEAR [Q][M]H# CAT LET VERIFY @INKEY$ BEEP w@PIx CLS ATTR x[I]ATN ERASE q[T]SIN EXP ECSTR$ q OR CIRCLE [P]STR$ <=+ INK ▝ CAT GO SUB OR x[L]SCREEN$ ▘SQR TAN 8o BEEP "?[D]VH[J][G] BORDER fATTR FOR , LIST PAUSE ▟V/ OUT HACS 5LEN UNOT :e INK CAT PRINT y CONTINUE SAVE RETURN __[P][U]h OVER ] FORMAT [L]^QPI INK PRINT @c[G]D▗z_ DEF FN ~ FORMAT SGN [J]BT LET [n NEW 2QzATN ASN PAPER CIRCLE FORMAT CLS q! OVER ` RANDOMIZE p LET CLEAR RUN ▟▝z|e. STEP Lw BEEP VAL$ W LINE ▞J[S]zO^[M]Q_▞OZ OVER O RETURN ERASE PAPER RETURN N LOAD GO TO b RESTORE POINT PAUSE X RETURN ^ IF {jW LOAD GO SUB REM G PLOT STR$ USQR AT H' DRAW |SQR ACS { READ GO TO ATN D>= STEP D>ACS fSGN IF BIN EXP SQR 5 AND [VAL$ 9 STOP [T] BEEP L DRAW FOR PAUSE VAL STEP INK / DIM LOAD RESTORE ]ACS <=SGN CODE &:▜ BEEP 45J BEEP <= PAPER xCODE ATTR / CAT BIN INPUT [BIN o PAUSE H MERGE CLOSE #[K][M] OVER STOP NEW NOT m<>=7CODE NEW OUT nPEEK %▘ NEXT POKE ▗ BRIGHT FLASH V|CODE [D]]4|▜> BRIGHT -g FLASH h PRINT AT d AND ?G OUT 5 CAT READ LINE KINT ABS NEW REM tO MERGE STOP W[U]lTAB k RANDOMIZE ^%n BEEP LLIST CODE CODE LPRINT AT CODE 9:7* PRINT SGN Z CLEAR NEW Y[E]WOACS n{ BRIGHT NEW Y CONTINUE ) STEP R OUT > LOAD LN OUT ▟y.TAB ?<>NY REM [Q]8CHR$ ATTR LIST < RUN [K]LN <>|_ NEXT CONTINUE t DEF FN DRAW X PAUSE [G]L NEW }{ABS /7EXP s RUN [L]. INPUT [F]sE LET cAYe&u[H]=AT }▟Q[T]SQR TAB V MOVE ▚ LOAD ;ATTR 1. e PRINT BRIGHT E[U]T PAUSE VAL$ s▘SQR [T] NEXT >z CAT FOR NEW THEN ▛CiG[O]]▞T0SGN .!USR RUN [H] LOAD SAVE CODE [G]ATN ATN SGN ATN {▛W` STEP E9 BEEP Vaz|2▛fW[L]g% BORDER STOP STEP SAVE %© LIST LPRINT r] LLIST w CLS @ LIST GO SUB [G] CLEAR [H]^CABS M1▝G LIST 'SLN NEW OUT .W GO SUB TAB OUT VERIFY CIRCLE - CIRCLE ^o LET 5[O]PIdA[N]yxySTR$ ^AT GO TO CIRCLE BRIGHT USR LLIST /b OR 2OINKEY$NOT ATN OPEN # LPRINT ▟BIN OR [6[N]LEN CLEAR /8zN GO SUB s NEXT LINE IN GO SUB ▙[Q]^^▙9 RUN LLIST BRIGHT [G]ECODE BORDER COS PLOT ABS s[E]- OUT R GO TO [Q] OVER >=<[D] DRAW 6 OUT 8X REM DATA AND [L][ DATA P/ MERGE i/ATN 0rNOT ATN LN SAVE 7vFS[@ NEXT P([F]ISSQR ,m DEF FN Q^W DIM MERGE ABS ▜ PAUSE -2 OR NEXT 7 RUN GO SUB RESTORE '>V/[E]7( SAVE DEF FN [P]` LIST m PAUSE FORMAT ?"▝_PEEK S OVER FOR BASN o}X STOP PLOT ©/4'|VAL$ RUN Cw#▞i RANDOMIZE #FN }b-[U]PEEK TAB }DwATTR O)7 DIM EXP BRIGHT <=STR$ RANDOMIZE -VAL$ )i_ GO TO [C]STR$ SQR ]HE[ LET LINE FOR 6 GO TO ▖Z PAUSE 2▞) INVERSE L[B]6VAL$ ▛ RETURN CLOSE #▘ LLIST <> READ MERGE =Y NEXT ~SCREEN$ zy RETURN l▝5-3 RESTORE +▙{[G] LOAD BEEP r▘ AND BORDER ABS > SAVE NEXT A LET CODE f[G] COPY 0 RANDOMIZE 5;[T][T]H CLOSE #[H]vt% OUT fuCODE g<= CLS GO SUB [ CONTINUE LPRINT Y FLASH 5ATN :R TO ▜?a▙[D]5E MOVE LN (F BRIGHT 7[J][M]JX VERIFY INT [I]r?▖Z NEW /▖TW STEP <XCODE p^{USR INKEY$©jTAB [H]S POKE [S] BEEP DRAW @L[G] BORDER FLASH [B] POKE m[ OVER W[G] DATA ( RUN C[M] CLS q RANDOMIZE $=;V BEEP ©rK STOP SAVE @ FLASH 8IN zt|i VERIFY [L]SQR PLOT [F]▛[M]<=NOT ATTR CAT *SQR ▘ FOR x CAT T`7|s OUT COS INVERSE k+)qYzR POKE 7[S] CONTINUE [S]Z THEN INVERSE }>] RUN ▛LN ▚ BEEP [B]gy IF [Q] GO TO NEW DATA tIN ▞=-[S] OVER ~x[T] DIM ^{PICODE ©% LET STR$ ACS ▚ OVER AND COS :yt?F©[L]/4[eSIN 1j}[B] COPY W#q[U]U PAPER INKEY$5© BRIGHT j CAT ESGN BEEP Ko NEW INPUT /vC▛ RETURN POKE LLIST U▘j LIST -Ujc CLS INVERSE EXP POKE INKEY$▗ OVER CLOSE #INKEY$AVAL$ ABS = STOP j~▛ NEXT k OUT v| THEN RESTORE SQR MSGN [P]PEEK [C]xo▘b>=F. INVERSE LOAD k14 OR CHR$ AND READ O LINE AND +V[H]W IF [K][L]~wG^ BORDER A SAVE [O] GO TO ▜o`ASN |▛< POKE [P]g[P] THEN BEEP FLASH G CLEAR <c PAUSE <> STOP 7 CLOSE #>SQR RUN n^EXP NEW ?{ PRINT OPEEK ABS {c+O8y=EXP > NEXT AND s{ THEN 24▙+[G]SIN LIST G|? RESTORE +SQR LINE Q IF [G]2 FORMAT ABS SCREEN$ l[P]INT .SGN ▚& NEXT BIN SGN OVER LLIST SCREEN$ 5©jU CAT VAL THEN OPEN #ATN s6| RANDOMIZE { OR ETAB {IN LN PEEK N>/$ NEW Y' PAUSE RESTORE ? CLEAR [R]PEEK [P]{/ CLS BORDER OVER MERGE ▜W FLASH H OVER [I]g{^ RETURN [E][P] DRAW )VAL [T] MOVE INVERSE VAL GO SUB DEF FN Q_D3[J]E: LINE ~d SAVE ~x POKE ~rABS STOP ACS $.z}[F]~vBMsPEEK [G]©{[I]xLN SGN [D]m OUT DwEXP tH ERASE *P MERGE PLOT ▜ML`+^[E]▟qoQo FOR q PAPER ▜ PLOT IF OVER 8 LPRINT yTAB STR$ 9CODE LN INKEY$4| SAVE NEW SCREEN$ INK BEEP [S]3 CLEAR w TO g OR SIN C` CLOSE #CHR$ <=PEEK BEEP SQR 4[Q]INT THEN [N]pASN BEEP @ MERGE CLEAR GO SUB +[U]>=▗|?AT PEEK STOP ?V<> MERGE [Q]F^EXP LIST [N]AT ERASE > RANDOMIZE 7[F]*SCREEN$ GO SUB CLS POKE ▙SGN : GO TO <SGN ABS W OR j OR INT ?IK[^~CODE h STEP ueo<=q MERGE SAVE PEEK ,p GO SUB ATN ▜ OPEN #> RETURN SAVE INVERSE PEEK G IF IF LEN MOVE NOT ATN ?1 OVER VAL LOAD OVER EXP IF SAVE uCODE - FOR ASN ATN LN ] PAPER [D] SAVE CLS PRINT COS CODE LPRINT MOVE POINT k GO TO {WSCREEN$ RUN QTry` IF [ [K] OVER STEP Fc[C]<=[E]^SPDb▙ATTR [M] CLOSE # LPRINT t OUT LINE z©▛ACS [G]}j LOAD DRAW y LINE < GO SUB wCODE OUT 5n FLASH RANDOMIZE <=[R] LOAD [O] TO CAT SIN O!▞ATN LEN ▞ku~ IF (w_ LPRINT $CODE TAB RUN ERASE LOAD ]▜LEN LIST <▝ LPRINT OUT CAT FLASH r PRINT PAPER ▖[I]LEN q/V▟ CIRCLE + RUN ' CLOSE # OR ▜▞ FORMAT W/qD3[C] VERIFY ?<x[H]y LPRINT [D] DRAW Dv2- DATA CATN RUN E_ox[M]7[U]= LOAD THEN 88[K] OVER COS cATTR w CAT r CLS PLOT ksNOT n* VERIFY m_[S]Wc DRAW TAB V,n PRINT © LLIST fvxb[L]POINT P CLEAR P INPUT OVER <> RUN nINKEY$:0 LIST NEW X5[A]$INT ?qTAN R COPY C+S COPY OMr▗ RETURN / CIRCLE <=k*DL3 STEP 9>=N LET STOP NEW n3 RETURN INPUT ▟JLN /VAL$ q/ CAT ATN 0 READ ▝w~ LIST ~INT x}TAB OUT [H]g RUN a NEXT ! LET CLS 3|8[ READ >IN RND&1M;▞x NEXT SGN FLASH :BuACS u LET CLS TO INVERSE SIN N POKE ZvEXP NOT CLS ` AND r FORMAT [P]5[P]CHR$ ;1 BORDER VAL$ PAUSE LN CODE dJ RESTORE GO SUB FOR DIM | RETURN ,LN Zb▝ LLIST FLASH ACS /1C CLOSE #▚ INVERSE ACS WASN NEW #{ CONTINUE t DRAW [D] FLASH NEXT CAT USR y9 TO OVER NEXT ATTR 9 READ e▙(K NEXT LKASN | RESTORE ▟Qg_Fl LET ATN FAT [N]SGN CfTAB ▖[N]^G[F]x<> CLS PEEK NEXT vLN [B]y[M]qO▝y[H] CAT l[F]o CONTINUE 4 INK PRINT SQR OR ] DEF FN oIN BORDER DIM FB CIRCLE FORMAT LIST ^ AND p CLS CHR$ 8L8©0).I~ THEN LPRINT ^ LIST FORMAT }v LIST USR PEEK co<= OR * CAT NEXT <V<>7T_f[S] LPRINT @INKEY$ FOR CONTINUE RETURN H/xUABS DRAW VAL INT <=[H]ATTR r5 CLS [C] REM ▘ LOAD LEXP [F]D INK QRUSTR$ ,COS SATTR LOAD BEEP CHR$ [O]' PAPER y_ INPUT Go▛[C] RUN DATA c;CHR$ [A].{FN IN BIN STOP BW7K*7[F][M] SAVE f[E] NEXT hATN <OLEN DATA w PRINT REM ~SCREEN$ gG[T]C- STOP u© PRINT ▛B[L]PEEK OVER RETURN GO SUB SQR CODE i/[H] INVERSE U CONTINUE [P]SGN [J]+z STEP 'PVAL$ fO[M]▖o BEEP [U] CONTINUE uo OPEN #czPOINT fIN RND'▙! MERGE ▜COS {ATN CHR$ ▛ZNOT RANDOMIZE W▘1<INKEY$?XK`9 INPUT ▛ DIM PRINT g[I]ATN HVAL CLS ?SGN c GO SUB 7▗Z DIM ) RESTORE O[M] GO SUB STR$ ]ATTR CONTINUE qEXP M/w[H] OUT PLOT Ac5@Dj LOAD PRINT POKE BEEP LLIST y BORDER NEW 3 LINE [H]` CLS V RANDOMIZE % LINE ▜`ABS y STEP [~=PEEK OVER IN <>▖V REM <[I]SGN AND NEW CLOSE #R READ *EXP 3▚^7}ATTR POINT ][H]▘©<=8T[O] LIST xUSR HEADCP CUSR &=>hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211 NEXT GO SUB s CLEAR USR [!%USR OVER MERGE GO SUB VAL MERGE INVERSE LLIST ! LLIST BORDER LLIST BORDER OPEN #&<> GO SUB LN FOR RANDOMIZE INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 NEXT NOT RHR[I]; OUT & COPY COPY [T] SAVE [P]Gb VERIFY SCREEN$ 8b OUT p GO TO LLIST x0 IF COPY r THEN NEXT uIN LET } SAVE ▗O PLOT [P] PRINT RNDv RESTORE <> CONTINUE s3 COPY qCODE REM STOP f;x[R]USR LPRINT ABS PEEK L SAVE DRAW CIRCLE CLEAR / CLS Y`[R] CONTINUE RETURN POKE BORDER LIST DIM INVERSE OR STR$ BIN i©?©7YLEN COPY [J][R]?! FLASH m2LEN @[L][N] LPRINT LIST ATN [A]j CLEAR FORMAT 4f DATA CLEAR A CLEAR RANDOMIZE SINKEY$POINT PEEK CLOSE # TO DRAW LET LLIST |oATTR RETURN NEW ERASE >=f GO TO M DRAW c[A] DRAW <=▙_J<>G[A][D]SQR ▟[M]8<h TO > LET SAVE LOAD 9 OPEN #O[E]COS ▙;Eo: FLASH [C] LIST AND 4@G1▙ RANDOMIZE DEF FN COS CLS [J]SQR >=INKEY$FN VCHR$ ATTR RANDOMIZE i▘ MERGE g&c BEEP 0ACS OVER =[L]ACS BORDER BEEP SK{- BEEP AND [R] ERASE 9 MERGE +)+5 LIST [D]/[T] FORMAT 1>{brk:@[L]=NOT READ STR$ REM STR$ SAVE SIN NEW RANDOMIZE FORMAT NEXT LPRINT XPEEK TAB BRIGHT <kE| RUN CIRCLE 4%IN M OPEN #AT OPEN #f FORMAT LLIST LUSR gJ LIST ▜ RANDOMIZE X?t▟[M]NUSR COS SAVE VAL 0▗ LINE RETURN [D][J] LINE AND SGN VPEEK LLIST BEEP SGN CHR$ CLEAR ▞[D]INKEY$) OPEN # DIM TAN xPEEK LN ▚(USR M7V-ATTR [O] OUT ©[O] CLOSE #wSTR$ RANDOMIZE <= COPY 0?.3z[P]bp= CLEAR ▜ MERGE WXU;POINT cz AND OPEN # NEXT jdjhSCREEN$ SIN d LPRINT LET tc RANDOMIZE ^ LPRINT STEP ^[Q]b CLEAR INKEY$&d` PRINT OR CONTINUE 1TAB L[S][A]hLEN ftFN gu IF W NEXT lk_ THEN 2▝▘1pKATN POKE RANDOMIZE RANDOMIZE crvWSPEEK PRINT M CLOSE #r&_t LPRINT CLOSE #x([F][Q] BORDER ASN x OUT uEXP es▟IN 9 BRIGHT RETURN [M] DRAW FORMAT D LPRINT BRIGHT ASN ERASE OPEN # NEW abNOT 2 CLOSE #[K]ATTR SQR ▛[H][E][A]n▗TAB COPY U$SGN [Q][T]p DEF FN Z LET }> DRAW FORMAT B MOVE 8c[B][D]24INKEY$EXP [I]CHR$ ABS COPY LN *[Q]PISQR ATTR ?fM` CIRCLE GO TO `hxv NEW RETURN LN COPY z TO /[K]lE LPRINT gIN ▗ MOVE ▙Y!SGN ^F[|ATN 3LEN z/©#/ IF FLASH [G]z5 COPY jIN ▗USR IF FOR ERASE |USR AT " THEN SCREEN$ LIST LET ACS [J] LET ▛R INPUT zr STEP VAL EXP n ERASE Et?S CLEAR p NEXT CONTINUE STEP z STOP Z DATA LOAD RETURN TO N INK [G]bSQR CODE [K]7Q8▚[A]MTAB FORMAT [O][U][O]!INKEY$ RETURN BEEP o POKE 9©/& MERGE -lh/ BEEP CAT DATA LIST C24ABS ABS LOAD AG[M]~d SAVE dSTR$ 0<=▝ BORDER A LOAD ACS +TAN READ WzG PRINT oSGN OR c▟[N][S] RETURN BORDER ]M▝[M]CJ SAVE LPRINT ▚:x[(^7X DIM >=SGN M`|,V RUN CLOSE #INKEY$ LET ▖[D]gr[L]X[M]@▘ STOP CAT [P] LINE I& CLS POKE NEW t[U]IRND OPEN # MERGE LINE ~f READ INK BIN GO SUB PLOT ~R[S] CLEAR ATN [O]J STOP LOAD ▜i LET tm/1OP[P]OA[S] DATA 1▖STR$ FOR STEP [L]TAN POKE SGN FLASH AT VERIFY >= DRAW H~$V STOP J TO LPRINT ewR GO TO e7 DATA AND PI[6MEXP SQR C8j<Y] MERGE DIM 4[S] BEEP L4FN 8[K]Y's! LIST q LET GO TO LIST J[K]USR LLIST STOP REM |[I]QOe OPEN # REM MOVE h AND ZK▟ NEXT ▛zPEEK [D]JIN N AND [U] DRAW LN ATTR [P] OPEN #[I]A INPUT SCREEN$ [C]w-Z%m[[H] NEXT VAL$ ?LN #AT X DEF FN KVAL$ = DRAW ]IuTAB NEW V[T] NEW OVER M NEXT [T] FLASH TO [I][O]-VAL$ RUN CHR$ [C][K] OVER 6 BEEP SIN u MOVE )[P]C> RANDOMIZE ▛! RESTORE o$wix IF [O]kOFN w=HyINKEY$F1q23 BEEP ASN GO TO VAL$ CLOSE # CLEAR FORMAT ~REXP LET DIM Y IF ]USR 1&COS j[^ABS BORDER 7 LIST @ RETURN INVERSE RESTORE [L]H[R]5g2ACS INVERSE RND/ NEXT ▞ CLS ~ BORDER INT SAVE FORMAT LN DATA COPY EXP - BRIGHT STEP TO 3 RANDOMIZE [B] MOVE AND RANDOMIZE /w#[H]J▜<>$ FOR "8+{6v1LN SCREEN$ H[T]>= DRAW RETURN NEW NEXT COS TAN CLEAR USR CLS LPRINT INT ▙[J]?[kxg COPY LPRINT CAT [N]L|8n DIM CLEAR `[J].[N]PEEK INK SQR x_ NEW ERASE o/ VERIFY [>] PAPER oCHR$ SIN OPEN #<SQR INK DEF FN VAL STOP "VAL$ OPEN # STOP $D[K]U DEF FN *Xv^'[R]PEEK LINE B COPY [A] ERASE 4NOT v THEN CHR$ =R TO AR[P] NEXT ▟c6 COPY DO5 PAPER ;▜P▝ GO TO DEF FN pSQR ATTR ▛'Ay[K] VERIFY BEEP ?R RUN ▗jy[B]a[L]-kx[O] FOR _Y[M]5[E] RUN STR$ READ >=AT USR NOT PEEK ~qRtLN G LOAD READ YNOT TAN NEXT C CAT INKEY$)<sk[K] OR 8 DIM OR iATN D[B]▗TAN GTAB FSIN Y<v|0COS [E] OVER READ INVERSE ngMIN sxqI▛f[N][S]2fB BRIGHT BIN BXBIN LPRINT < OUT [J] CAT ▗[I CONTINUE [C]"PEEK TAB [I]0_[C] DEF FN [C] CAT CLS CHR$ NEXT ▖VAL$ ,POINT ACS 9[K]R? GO TO [S]E AND ZTAN INT EXP [D]y READ [E] STEP - RETURN BORDER PAUSE [J]^ INVERSE LINE CODE RUN S.U[D]INKEY$1TEXP *y READ AT B▘ INVERSE VEXP zL[T] BORDER )▛ABS FN LPRINT SGN [B] IF `?INKEY$7VAL & LET IF LPRINT F RANDOMIZE cO BORDER CGBIN *&~ NEW K CLS DATA 'wPEEK [R]pSIN ▚_O)▛RTiK▖▛+1[F]vn LOAD [G]ATTR [I]{|c POKE OPEN #Or. RETURN T POKE QJwy GO SUB STOP [D]V DEF FN STR$ G OVER i[K]i LLIST @ DRAW au OVER ?K OVER x.[S] FOR W OVER FLASH CONTINUE ▝INKEY$[C] RUN NOT / RUN USR QV[K][D] MOVE ▟ IF PLOT NIN PAUSE ▚x[T]i OVER '5o,▞q CIRCLE [O]E RUN [T] STOP DEF FN -5 NEW [K] CLOSE #Y LLIST [▜_~G/ATN S IF OUT |[COS COPY © POKE STOP CLS DIM e[J][U]POINT TAB _<> CLOSE #J OUT RND>[L]TAB ^ AND / READ STEP ;} READ NEXT `jHa OPEN # READ LLIST PAUSE [E]r-CHR$ DRAW READ STOP [J]RNDZ]▘o&LEN ~x FORMAT /ACS ▘]STR$ [F][O] DRAW PRINT [K]v+ DIM [R]jSQ INPUT REM ▘Iw"{▛PIATTR DATA NEW !LEXP RUN %INT OUT CIRCLE THEN `ATTR FN >BIN LN ATTR ▜ LPRINT Iw) CLOSE #COS C<>[F]jr STOP AND qLBy[N][J][G] AND ASN LET o[O]de NEXT { INVERSE Ax{q]n?W VERIFY * LINE ^SGN LET l COPY NEXT S TO RANDOMIZE E[G]STR$ LOAD i8R TO BORDER RANDOMIZE ▖nL DIM [Q]@ CAT LN LPRINT / OR U<>7bzRNDI[K][K] PRINT I<TAN /Bf READ n[J]kACS OPEN # LOAD YTAN NOT C[C] READ "ACS VAL MOVE DRAW LIST 1FACS [G]fPOINT INT READ ▜ OR , OUT INVERSE [S]SQR bPIy CLOSE #[O]ASN BRIGHT 7}f:z▘o TO ZLN IN /▜ LET pn INK [E]/TAN OR [U]7[C]ATTR ABS )ASN Oh INVERSE ▖=w[B] STOP ▚lzn▝ OUT ATN CLOSE #<> STEP STEP w[L] INK LET ▞gG CONTINUE DIM LINE ' REM DIM NOT GO TO nSQR INVERSE ▟yACS [E] PAPER -s REM MERGE FORMAT q CLEAR DIM h` LLIST BEEP kTAB PSQR [F]zi1SGN FOR ABS CEXP P CLOSE #R STOP RESTORE ▛COS 7kA+6TAB y RUN [P]f READ [>= BEEP ]vrz[J]n[P] COPY -_[e?[ MOVE MERGE LINE FN qsSGN [L]p} AND 78] INVERSE SAVE s__ RETURN GO SUB ny VERIFY ? INVERSE t OUT )-3INKEY$oZr MERGE r@▖INT h[S]?r AND 9 BEEP INVERSE INK BEEP ▞PI#LN x' RUN !j OVER LPRINT BORDER A NEXT ▚STR$ cJ▘ NEXT THEN /PEEK vEOACS [I]LEN STR$ W5 PAUSE SGN rZ STEP voSCREEN$ LLIST LOAD >- POKE INPUT >~/~▘ OVER RETURN CLOSE #SGN t MERGE REM %ABS S LIST RESTORE > PAUSE 5SCREEN$ NEW RESTORE cVAL O"XATN ▜STR$ <SQR READ AUSR [H]▛[J]▚N▛ OR DEF FN ▛[E][O] PAUSE 2 CLS + AND RUN }CODE BRIGHT vV OVER [N]<= RETURN POKE GO SUB >xV[G]EXP ASN s LOAD ATTR [J] DEF FN ACS R[M]ATN DRAW "CODE ERASE GO TO STEP CAT 'SIN ATTR etZTAB USR GO SUB < MERGE hVAL$ PEEK GO TO PRINT />nd[B]NOT ▗ LOAD ;/ THEN LEN RND OR NEXT &r[O]SCREEN$ LIST <=▟ DRAW px SAVE @p1 RUN ~ IF LET t COPY RND.j[C]6bACS 9 AND FLASH q_ SAVE LIST R[C]VAL$ FLASH [C]INKEY$ OVER [L]_▟AT ATN O OPEN #[O]rs~ PRINT _vO_>~$ CIRCLE GO TO Um RUN w INVERSE A BORDER USR y THEN 0 LPRINT [E] NEW I><=Z INVERSE STR$ %[O][G]EXP [E] BORDER y CONTINUE LLIST USR SL OVER h PLOT BRIGHT BIN kq CLS LIST FORMAT 8PVAL I ERASE RETURN i[Q]b NEXT ▖[R]8v^v FOR ? LIST &I[T]s[J][M]L)ACS STEP L*INKEY$RND READ ESQR <=YM>`SQR [Q]EXP 7M>1▟ATN [C]|W VERIFY IF 4FR[C]@ LET BEEP [A]_ABS INVERSE j[C]WL©[A]<= LIST t OVER [U]o3BIN ATTR X`B THEN INKEY$I[Q]la©/T PAUSE CONTINUE GO TO PEEK [F]/%LINT DIM STOP DRAW RETURN [E][A] FORMAT tKH MERGE [E] RUN / LLIST mIN W OPEN #[I]INT VAL$ [K]QCHR$ [G]▚[G]7j5 RANDOMIZE kh CONTINUE VAL$ & INVERSE [D]o~7VAL CHR$ 7 DRAW SGN *FN TAB , OUT hy[P] GO SUB DEF FN ko]!BIN S[T]_`BIN 'Xw+Ab_ ERASE h FLASH CONTINUE FOR BORDER RNDBIN [MD INVERSE }/vATN INT d POKE STOP [B]nASN OEEXP MATN )s SAVE [J]p ERASE 1JQ▟SIN 2LEN ATN ^SQR LN BORDER Gx[U]▛(oG DIM ;▛E THEN %v= DIM BIN ACS BIN U2E SAVE ▝NOT ATTR CIRCLE STR$ CONTINUE LINE [O]IN LET ▟VAL$ Eo RUN <>TAN CODE ATN POKE CLS D|r|7[T]-U LIST #&'INKEY$<>©[A] SAVE FLASH LPRINT "LN STR$ MERGE COS +y<~S▗ASN >=[P] LLIST DATA VAL$ n;_[M][P] OUT CAT [I] LOAD |[Q] LLIST 2NOT LN [O]e STOP CONTINUE ShB CAT TO TAN COPY CAT RETURN PEEK ATN CAT OVER STOP LOAD mh▜:7[D]YCOS RESTORE FLASH RNDSQR NEXT CLOSE # OVER u GO SUB DEF FN ^yCC▛ATTR SAVE REM SIN DIM U STOP +y STOP [xVAL CODE FORMAT TAB 3zyZCHR$ READ @AZ POKE LINE SQR ^ FOR CIRCLE g▖ GO SUB RESTORE r INVERSE STOP PRINT G RETURN EXP L[K] LPRINT VAL$ PEEK [F] FLASH PI▞<= DEF FN ~ATTR SGN [J]Gt^VAL$ PI NEXT O$ESQR POINT O OR POKE [C]AT CODE (PEEK REM VAL S INPUT FOR -[T]p% LOAD [Q]u PRINT INK MOVE jNACS tuVAL$ SIN AND [J]"INKEY$ATN AT CODE ?CODE dDP FLASH +] NEW |L8 STEP PEEK OVER INKEY$▛ATN ik LINE TAB PEEK mc LET LLIST LET fz CLS LIST NEXT A IF STOP OVER W/< GO SUB OR OR LN c<>5Q CLOSE #FG, INVERSE RANDOMIZE [SGN ▛STR$ 4 OR PAUSE [E]▘SCREEN$ [G]R BRIGHT >= PAUSE CAT [O]ATN BEEP h RETURN VAL POINT & GO TO <=: OR P INPUT ^ CLOSE #[C]▛▚&j SAVE h DRAW LPRINT x[1{ DEF FN RESTORE INK NEW ~ PAUSE ©-= READ SGN G LLIST [L]SQR NEXT AND BIN [C][C]ATN DRAW COPY STR$ LOAD ▜[P]x]PEEK POINT SIN DIM CAT ^I IF REM __LEN INKEY$ DRAW 0LN }[D] NEXT -mCr.RNDo4g AND OR ~[K] BORDER NEW ^y CLOSE # OVER [L]/` COPY LEN LET [▟STR$ DEF FN PEEK RESTORE / OVER ▖ RUN y CIRCLE CHR$ ATN >* NEXT INPUT i PRINT [R]E[L]!, READ } LOAD STR$ =[E]< PAPER STOP [ GO SUB ▖bIN LEN k IF SAVE LET LPRINT DRAW LLIST LINE ▞ DIM LLIST UVAL$ SAVE DRAW ABS RND▗1PG▛4▜>▜} OPEN # GO TO ▙vCODE 6?oz ERASE 8]* BORDER RESTORE READ CIRCLE :x FORMAT TAB OUT w FORMAT [[I]INKEY$TAN STEP LEN ▟ OUT VAL$ SGN OVER >=[LEN PI OVER ▟ CIRCLE TINKEY$ INVERSE [C]y[E]SGN BEEP RUN CAT ::>-]fCOS MERGE FLASH ▗_{ FLASH [q STEP EXP ▞EXP IN [R]_<=: IF ` RANDOMIZE z& COPY FOR HGwyU5 RUN 5Z PLOT {[M][I] SAVE DW INVERSE hRNDATN RUN LOAD <>© FLASH rATTR USR SAVE NOT LET {INT BRIGHT J STOP BIN INVERSE T<=v BORDER STEP PAUSE 8x,|[U] DATA SAVE PAPER / OUT OR D OVER 4 BRIGHT 2 LOAD F/ RUN :e<=[A] DRAW HR{ CLS STR$ 7 FOR [M]PI+ OUT FORMAT CLOSE #SGN c[K]- OUT RUN RND CLS _} NEW R▝INT CAT CLS SGN @[B]/TAB v[T]M READ NOT r PLOT x DRAW LN [U]TAN [R]TAN x LPRINT R[K]j(L ERASE OR VAL$ n COPY D NEW 3 BRIGHT MOVE HSIN ][K] INK ;o71 NEXT ` INK MERGE [E]<=VAL$ {[F]ATN INKEY$ TO SCREEN$ LPRINT OVER [C]G[C]XN`0u[B]SGN c3o COPY INKEY$ LET h OUT L`!n[H]QATTR INVERSE y OPEN # CLS ATN OVER MOVE ^▗ OUT © GO SUB POINT [K]AT ;iTAB uw3SIN COPY SAVE CAT 2/T<> INPUT INT REM % GO SUB X$ATN O CONTINUE %/' LINE SIN VAL$ Rw VERIFY RUN COPY T INPUT DRAW [C]IN CLEAR J LOAD ▜ INVERSE Z FLASH [K] COPY CHR$ CAT [G]kCODE { PAUSE STR$ FLASH REM {IN OUT LOAD MOVE [H] GO TO f PAUSE n; CLEAR LLIST [G] LIST &IN LET STOP ASN w%TAB <= RANDOMIZE [C] BEEP CLEAR z IF NEW INVERSE [C]& OVER CAT CAT GO SUB POKE N LET W[G]Kz6▘CHR$ VSQR GO TO CIRCLE S/[U] CLS [K] RANDOMIZE INKEY$E[A]/ RETURN NEW USR PRINT _USR A DIM DRAW ▚EXP PLOT INPUT LLIST SGN CLS iCHR$ 7 FOR [L] INVERSE PLOT 3▗8lzE VERIFY ▜w PLOT _yz LINE MERGE CHR$ FLASH .▚ATN z FORMAT | FOR ACS OVER ABS S NEW ASN ABS LET DIM SQR ▚> STEP CONTINUE z CIRCLE WJZH FOR oSIN BORDER ▟▖ RETURN CLOSE # POKE STEP DATA qv▗TABS M| FLASH ▘y[L]LN OIN [P] READ ▜X8hCODE © BORDER RNDnEqr RUN RANDOMIZE a LLIST ▝TAB ABS EXP z[G]▗ FORMAT pPEEK OUT SQR 0ATTR #▗LN UATTR CODE 6s~ FOR - REM um5w USR CODE Oo PAPER NOT p BRIGHT [F] COPY CLS FORMAT B GO TO d INVERSE ATN RUN RNDgSQR }PEEK ABS INK OATN ▗ AND 0[K]QSQR L<=▘ LOAD CLOSE #CODE COPY `VAL / RANDOMIZE BIN x8ABS y CONTINUE t BORDER RUN TAB /@ LLIST CIRCLE [D][E]nq▞>=INKEY$RND[G]▖ OUT n DRAW : CLS NEW IsoG REM ▙ COPY ~$ INK PEEK ▝-]▙ MERGE [P]^ NEW _ CAT INVERSE e COPY ~|y[F]{[B]CHR$ [N] OR [T]%" BEEP PAPER 8 VERIFY [M]c©7Ro- CLS #IN KSQR INPUT GO TO UATTR ATN DRAW * NEW DEF FN GSCREEN$ oLEN VAL <=X PLOT [B][N]PEEK c FOR /y LIST [P]+ DIM COPY o INVERSE H}-nJ LINE Z LINE OUT HRND~<|ATTR PEEK COPY TAN THEN 9'/=[M]AT FORMAT 7[E]3 INPUT NOT Z POKE INPUT %9▛VAL 0 POKE W8P SAVE F DIM INT }ATTR 6- OPEN # LOAD SAVE ^wFN MERGE POKE MERGE [M][O]DATTR MERGE ▗QCODE [E]©©d?:QzAw DRAW PLOT RETURN CIRCLE PIs[I]USR OVER E NEXT } LET 2ATTR CIRCLE NEW V[Q]o DRAW [P]R POKE COPY CLOSE # GO SUB STOP STEP OVER FORMAT NEXT REM _Y OPEN #SQR }w▜U-NOT - INPUT : OUT DRAW CIRCLE 7ABS © CLOSE #ZSIN P~P.ASN [O] READ `2/ TO CLOSE #7tPOINT }SQR /cPEEK LEN [Q]dTAB INK /_ GO TO wTAB STEP SGN zTAN NEXT LsjATN POINT F LOAD [L][K]rO LET ▛)▟ BORDER v*l[D]ABS SAVE MERGE oSTR$ PRINT RNDl1y FOR M INK [T~[IN LLIST IN q[G] MOVE VAL 3}l POKE IN y[T] STEP EJPEEK <=ATTR [H]Z[F]t[I]dowM4[D]ABS P[F]h[R][P]QASN LINE ▘ LOAD YABS =oVAL$ GO SUB <▝ DRAW oEXP OR GO SUB Q CAT <=ATN INT CAT LOAD 3 INPUT 3+ BRIGHT $POINT STR$ T GO SUB + PLOT SQR ATN CONTINUE ▘ LPRINT RUN CLEAR g~+|FN ? MOVE |[O]▛n)[Q][P]ABS g=O GO TO SGN _ACS [I]CODE 4M RANDOMIZE ▛ FLASH PEEK LLIST NEW LET d TO STR$ 0}>ABS SAVE ATN ERASE LIKy RETURN [R]P LINE [S]X OVER ^ INVERSE = FORMAT DIM [O]INT CODE 1NACS INVERSE OVER PLOT 7oUSQR ko/RATTR ACS rQ CAT SGN GO SUB S[G] OUT [B]xw POKE FN +g OVER RUN K INK DRAW LEN m MERGE USTR$ SGN [P][H]ATTR P[D]yy MERGE LOAD SPEEK SCREEN$ fE OPEN #W REM [R] LPRINT GO TO LLIST BIN RANDOMIZE GO TO READ SAVE THEN LOAD NOT uSQR [A]INT dohl[O]ATN ABS BRIGHT Ao AND k# IF NEW /k GO SUB 8/2 LOAD B/}asW FOR INT |VAL$ MOVE RANDOMIZE CONTINUE V RETURN LN LOAD w;COS CLS ^|;,[F][J] MERGE [x VERIFY FN [Q]l OPEN # CONTINUE IN GO TO OUT FORMAT |©hi{RVAL$ POKE } CLEAR x|0oJNOT COPY Q}C RANDOMIZE BRIGHT BIN F BEEP [T] LET CLOSE #SQR IF [F] INVERSE [D]ABS oa LPRINT d INPUT ^{]~ GO TO [C]-[Q]bv AND ;TQM~ FLASH )SGN ▛= NEW &LN EXP INVERSE > REM BEEP c LINE OUT INK 2 CLS 9CHR$ [B] STOP VERIFY ©!OIN ▟d REM INVERSE ' INPUT F- DATA DRAW 8 COPY PI[Q]P SAVE TAB 0 LIST ?[J]<ATN [G]Y LOAD t CIRCLE +[P]!5 AND LET ?F BORDER y[ GO SUB DIM r[O]+v BEEP RETURN }^ PAUSE vy LET 9 LPRINT }RND RETURN ▟t NEW r/ BORDER SGN u?CODE =?JVAL$ AT ▛ REM V OVER CLOSE #o LIST ERASE PEEK k CONTINUE DIM S BORDER } BEEP OUT ▚[G]o'y DATA T+ DIM 5/y} CIRCLE ▛{3 READ OUT NEXT 6E POKE YB MOVE PEEK >[A]ATN }▚ OVER INPUT ▗p0] GO SUB ▝[D] BORDER ▟k; OPEN #(7SQR GO SUB [Q] OUT INK [ FOR ' RUN | INVERSE V5=}| DRAW BEEP BORDER d!zPOINT OVER _ OPEN # LINE m[Q]PI- OVER LN SGN ▚.xQ1INKEY$INT IF SCREEN$ S LET d<=o{ATN s PAUSE OR o^COS RUN GO SUB CODE 5 DEF FN w RETURN AT TRNDy/[L]EXP x LET [T]] TO GO TO KCODE TO INVERSE ;LN TAN DIM N▙8LN |[B]MJ[K]g INK bBIN []▖hBIN rLN ▚vy DEF FN RETURN PAPER DRAW x0!ACS COPY c LET [L] DATA LET ` OVER NOT <] RESTORE 8 GO SUB INVERSE & OR OVER REM D THEN ATN SAVE > LET INT /©[[K]INT COPY THEN BORDER LLIST ACS o LET kAT RESTORE BORDER SQR {y SAVE < LINE VAL$ LOAD LPRINT NEXT OVER ~[D]TAN 6Z LET 6[J]P LET POINT [J] DIM CLS FORMAT DATA ATTR STEP EATN PLOT ~D[D][G]j[P] PAUSE |BATTR LET @ DRAW R> INK LOAD USR BORDER A] DEF FN [F][S] STOP [B]INT [I]PEEK MERGE POKE ]SBIN TAB POKE GO SUB OPEN # OUT RANDOMIZE ~LN R] RUN ▟ IF CLEAR O^Ro CAT INPUT LET [ OPEN #. INK m` GO TO GO TO b)&TAB [J]6W^g DRAW ERASE LET [L] DEF FN [M]LN POKE PLOT < INPUT FOR SGN c CLS LIST ~[D] CAT [F]7] POKE wup[O]g INPUT >=SGN -W GO SUB R▞[O]P RUN INPUT PLOT SGN FOR [O]LN E9[U]*[S]g LINE NOT J INVERSE y BRIGHT ^E1 CLS 0_f▖ PLOT q NEW M6.COS B RESTORE v~`o6 OR INVERSE ABS ;+[O]d GO TO 2[L] FLASH ▟ OUT PI OUT INPUT COS F CAT >= INPUT ▗BIN STEP * RANDOMIZE z©ACS PEEK OY[K]7of PAPER !USR o CLEAR l▞ AND OR PAUSE ATTR 0CHR$ CONTINUE LPRINT w▛[D] LINE NEXT | BRIGHT LN ATTR 5 STEP CODE FN w▛[J];5h CONTINUE ATN STEP ▗[P]©}|K[S]JLEN NEXT ▙ DRAW LET [Q] NEXT LLIST RUN USR PAUSE ▖▗ LIST J OUT wMa PAUSE NoV[M]|~4_ PLOT OUT [I]v▛} AND LINE STEP y INK SGN [M] LOAD LLIST }PI'SCREEN$ o`*z RUN J IF REM UIN CLS |T NEW LIST 6 PAPER ,z RETURN >= OUT PLOT [Q] LPRINT g IF ^_SGN STR$ ~ OPEN #7m INPUT ^[T]Z▝ DEF FN LOAD <> PLOT INPUT ABS [C] PRINT ▚ACS SGN 52INKEY$[O] PRINT = FLASH ATN STR$ CONTINUE ZSQR qR DRAW INKEY$CODE CLS j84INT DEF FN mT▝ OPEN #ATN 0[H][D] NEXT a RUN {BIN [P]SIN BEEP ESGN 7 MOVE >=<={ABS <> OUT IN [C]n INPUT [N] MERGE FLASH LN '[SGN [S]ABS <>J▙P▘ NEXT PEEK INK STR$ $wW7 BORDER ▜INT NEW (c INVERSE L[A]x REM tLmoVPEEK DATA j^ CONTINUE BEEP ▚ RUN ▗ LLIST [D] LOAD FOR <=O FOR ▜<=]sMZ OPEN #$R$TCHR$ SGN CLOSE #- DATA j& PLOT {% RETURN )) COPY / AND CODE PEEK BEEP ▚/uo▚fVAL$ LLIST 6>=TAN wg@ INPUT TAB SX THEN SCREEN$ DRAW ^>[H]Z0▖PEEK ATTR [J] CLOSE #[B]7 POKE d CLS CLEAR LN RETURN INPUT ▗TAB PEEK B.W RANDOMIZE D OUT LIST CLS INK =<&IN gWAopx{RTAN M< LIST J TO pjTAN EXP [T] LET y[Q]a+ RUN tBK LOAD Mv▜?{ NEW @ OUT CHR$ 6Okc./yy RANDOMIZE < RUN }; LOAD ▝P VERIFY PEEK CONTINUE LLIST e,S{ STOP ATN RND DATA OUT 4 CAT -nj[I] RUN ▞ LET CIRCLE [N]EXP RUN MERGE l INPUT LIST LLIST <= ERASE [F][A]SQR ATN LOAD INK TO OR TAN |#[K]PEEK TO 0nIN COS k DRAW 8j-~[G][B]q8ES▖ LPRINT p DRAW t3UCODE RV3EXP GO SUB DIM y] PRINT [O] FLASH `y=c LOAD LN IF VAL$ eaj OVER VAL$ SGN RESTORE U▝:▗ LLIST ▖0 LOAD LLIST LIST READ LPRINT 5s;SdJ LLIST K/# MERGE l?OLN b▗ CLEAR mTAB RETURN INPUT LET SAVE %oSIN c PRINT X/^VEXP TAN INT STEP [I]G FLASH BRIGHT eBIN |BIN v[B][Q]INT %[' DRAW BEEP ]g[P]ATN WT;i▝ CLS ^ INK [H]ASN COS CLS BATTR SGN LPRINT PLOT ▟▚6EXP [Q][O]yATTR L0_NOT ATN INT K PAPER RETURN )[H]&]<▚CODE [G]? DATA kw OUT BRIGHT V ERASE PRINT y-ASN BORDER [R]PEEK INVERSE [A] OPEN #[4VAL TO COS DRAW P CIRCLE RANDOMIZE STOP CLEAR :dTAB SGN INKEY$ RESTORE n RESTORE 6 AND [I]AlNOT RUN 5LEN c NEXT ©3[C]Q(3[O] POKE ?x RANDOMIZE 1]d FLASH ASN + READ MERGE NEXT [I]/COS CHR$ [S] THEN y RESTORE SAVE ▞ CLEAR PAUSE <=W}WSQR Dg=R LET @x5TAB EXP *$ PLOT STR$ 3h INK COS RESTORE +E5ePI[S]U FLASH /[O]W▚ CIRCLE 2&rATN STR$ SIN INK RETURN x NEW RINKEY$gLEN CLS q[I] FLASH THEN CLEAR SAVE LOAD FLASH ATTR m7S▘^ CLEAR ©oX▟[H]H}u BORDER eE POKE GO TO [U] FOR BIN A COPY OR UEXP _B BRIGHT z] INVERSE LN j[M]+CODE EXP PLOT EXP -STR$ /T PRINT yy[E]IN INVERSE %]VAL bSGN }%[E] IF `W= RESTORE ATTR MERGE LLIST w SAVE IF *P[Q]bJVAL$ |▚U[T]RCODE T CLOSE #7[B] RETURN [S] RUN [- CLEAR [J]e MERGE ATN AT [J]NOT [J]COS /▟▞*e SAVE OR DRAW ▝STR$ 9SQR [D] DRAW SGN CODE S}!!ACo+COS ATN %▙[A]▗1 RANDOMIZE PI RANDOMIZE CLS Q DRAW [S]p#[A] RETURN [D] FLASH DRAW VAL$ [F]AT [O]LEN pW{ PRINT ]^ZABS ASN REM AV PAUSE STR$ [J] OUT INK ATTR h_▛ ERASE ▘ PRINT lY LLIST AND 5p OUT © SAVE HEXP yASN dp OPEN #L▗▖ SAVE RUN l0©? STEP +SCREEN$ MOVE k RETURN 4TAN k OR RETURN p COPY ACS ▗ VERIFY LPRINT BORDER CLEAR ASN ZUSR RESTORE fiRND REM rSTR$ wQ THEN MERGE $0[S]$MIan▜%[O]<={ AND |P NEXT [G]I CONTINUE OPEN #▖RND[E] OVER GO TO | GO TO ABS THEN = LET =O FLASH _[O]IN PRINT ZvIABS ASN [J THEN ( DEF FN 5 PLOT ▞=}NOT COPY W>) DEF FN k[T]c INPUT STR$ RUN m> STOP ©0EIN EXP {g▚ LINE JBIN Y[COS OVER NEXT DRAW D[D]SQR [C][kVAL$ LN RUN TO PCOS M{J<=o>=USR /5TAB TAB PAPER ABS [E]PEEK lD[U][H]Av STEP [Q]c MERGE ASN '2LN LINE m BRIGHT NOT ? CLS FN [Q] DATA [B] BEEP NEXT zFN UATN wYlLN .RND] LET N PAUSE [IN LLIST R POKE T FORMAT Q[D]NOT [T] REM LIST RETURN CODE PEEK { DEF FN [F]zLN [S]VAL$ 7AT U3[M]IN PRINT ATN _d[C]qLy/$ COPY SGN LIST LIST FLASH NEXT <=a= OUT ~POINT _}ASN DATA STOP )[T][K] , GO SUB J OUT OVER VAL$ XTAN PEEK DEF FN SGN DRAW [I] REM Y[G] GO TO tSGN g READ cPEEK CODE POINT VVAL$ OUT ATTR omPEEK 6:USR TAB POKE ▚ GO TO W LOAD PRINT LLIST COS LET BVAL$ THEN Br5 RUN SQR ] INK . STOP DIM <>mL CLEAR s- OVER ? OUT IF SAVE CODE [C] FLASH g AND [R]VAL NOT 1 OPEN #<=uPT RESTORE *) DATA PEEK SAVE ▗G[C]v NEW > NEW zw FOR $t SAVE INKEY$ OPEN #[_.o▟pM2BIN RUN LEN _ ERASE n LLIST $ BEEP DATA ~ASN m9▟ LET OR GO TO <= BORDER INPUT I OVER GO TO ATTR J[L] RUN A ERASE AND FLASH CODE LOAD T©POINT ASN ) CLOSE # RANDOMIZE m$ASN >=4` BRIGHT *qm| IF SIN 1Qi DEF FN STOP % CIRCLE CLS ?[U] RUN ] CLS OUT } FLASH c, PAPER ATN 8 LET [G] LINE V[M]TAN ▟PEEK <>TAB C FLASH PIUuwTAN [S][J]ACS |ASN *y▜ LET PRINT [ ▜ OVER THEN DEF FN ▚oo TO % BRIGHT [A] LOAD [L] OVER IN PEEK DIM READ [F][C]d BEEP /7 INVERSE >CODE THEN LIN ▘[J]G OUT PEEK T7SIN BEEP Z RANDOMIZE VSGN [K]ACS ACS [T]VAL$ BIN TAB OR W LOAD Db DEF FN ▗ACS ▛SGN ATTR STOP G THEN ▛fy} INVERSE READ DIM 5▛TAN p<= STOP F- INK =IN - REM ; MOVE CLOSE #ABS LN RESTORE :x[S][}>= PRINT ,- AND "P5[O]POINT OUT CODE r5zSCREEN$ [T]SCREEN$ EXP MERGE FLASH THEN W-[M]~ IF 8 OUT IF [L] IF CLEAR LOAD ;p FOR INK UgNOT READ [D]re= RETURN USR [F] THEN | BEEP ▙V▟©[P]INT d DRAW x RETURN 8[E][S]0`SIN CLEAR OVER LIST RAT B TO /▘FN " STEP [A]$y}yrASN w* INVERSE %<[Q]<> OUT j▟w{g[F]$▜RNDy LET RETURN ▟^<=7 OPEN # LOAD E[G] LPRINT T| SAVE @V_ LPRINT q GO SUB [F]1!▞BIN oINT NOT BIN IF ABS PAUSE }L~ AND Vk<>BIN u REM >= READ RESTORE [E]©CHR$ [I] REM >=c[S] OUT ,pK4ATN LINE BEEP INT CLS k OPEN #SGN Y[P] CAT ▘,ABS TAN @ BEEP CAT >=▟ COPY LIST ?[R]v OUT STOP RND GO TO SQR [P] POKE LOAD x6▖SGN PLOT ASN PAUSE (yAT SIN ▜^gPP©[O]db5TAN r▗LN INKEY$IRND DIM STR$ DRAW [N]Y^<ACS CIRCLE fABS CODE LET THEN q[K ERASE j*id6CODE f CIRCLE RETURN 6WN#p DRAW ACS 4Jx[S]f BORDER ▗TAB OUT [H] IF [B]L[N][E] OR OUT THEN { CLS RETURN >y LLIST S▛SQR OUT 0[F]~[P] ERASE jINKEY$NOT [Q]!K4B CIRCLE [O]ACS LOAD -NOT ZVAL$ ][Q]15-B[O] VERIFY [H]E_ IF qSGN TAB PAPER ; ERASE LIST AND BRIGHT 2V<> FORMAT FINT AT [S]ASN CLOSE # FLASH >TAB 8ab BORDER PI INVERSE MERGE ?s RUN NEXT TAB /[P]LN DATA ERASE [P] GO SUB ASN © MOVE -LN *} PLOT PAPER ^ASN U[VAL$ h DRAW RETURN DATA .s[S]CHR$ [N]ASN X[P][E] INPUT PEEK _4&LN TO LOAD < BRIGHT }K RUN Zc>=©INKEY$▚ LIST jEXP RETURN FORMAT [J]SQR PLOT CAT MERGE [U]y[A] INVERSE LIST T[J]SIN W^3TAB FQK▖ AND z THEN TAB ACS DIM [L] MERGE < POKE CLS SQR fN LOAD ACS INK STR$ y[B] RANDOMIZE PRINT IN PEEK [N][E] LIST [L] COPY FOR YFN BEEP CODE RNDSTR$ 8<=UrVAL$ -VAL$ IN PRINT (▞SCREEN$ K}EXP INKEY$ OVER BORDER , BORDER LOAD R OUT [J]/CHR$ LN LOAD JF$xd[P] CIRCLE 7Zsw[K]r IF FORMAT FN FORMAT SAVE PIK<> OUT ©r PLOT MERGE 3 STEP uWHSt CLS RUN ERASE p AND TAN Iz DEF FN OUT - BRIGHT INPUT [[C]z TO ▘A9 FLASH 2[D]STR$ [B]TAB ACS RETURN VERIFY FBIN iESGN RND<=pDPEEK a DEF FN wEXP I OR x▚<=[Q]>RNDH© STOP 6▘<= RESTORE y=▗ATTR }INKEY$ RUN BIN [L] LIST SAVE SIN RUN ▙SQR ATN LPRINT NEXT OUT ATN { MERGE FOR Fu[R]▖RNDEXP y OR 3 FORMAT [T] OVER fqSTR$ Q BRIGHT ATN LINE CAT PEEK OVER PEEK RND/ SAVE GO SUB *%w<=bATTR DATA Pa CAT FLASH o_INKEY$EXP INKEY$ INK SCREEN$ RETURN INT "bKPOINT COPY W▛ BEEP RETURN FN NEW ▖]SIN [D]wnSQR INVERSE `[I] BORDER SQR r[O]o;ATN [K]2 COPY DEF FN INVERSE UINT OVER POKE <<=[P]Vb INPUT [N]>W CLOSE # OUT D8iPIXATTR M POKE SAVE KSQR SGN ) LET REM CLS IF LLIST [K] DRAW VAL 50Rr+ LEN SQR PLOT ▞ CIRCLE +AT PLOT ?i~[T] INK VAL$ ABS CODE ▝ABS | OR D BRIGHT 3▟GS[I]LEN INKEY$}G INVERSE 6ATN LIST ?e TO < 4[R]FN RETURN NVAL$ FN VAL W OR / DRAW "5 LPRINT RETURN :FN OUT L2▞ LLIST ([L] NEXT CONTINUE EXP L[J]VAL$ FOR FOR tj AND *8SGN F TO IF /M POKE ACS CHR$ >PEEK js▛ SAVE <IN ©CODE INT AT ▛3 CAT [G]fb[Q] NEW TAB }LN COS PEEK SQR + CLOSE #!_+K▞ CONTINUE P[G].PEEK ▚ REM STEP U READ ▚ GO SUB AND 5i<>[T] CLOSE #STR$ 6POINT ▙q>LN Y IF VAL$ +ATTR INVERSE [H]c©jINKEY$ OUT b: INK RUN ▚&QAT [S]SIN k CLEAR v SAVE SGN ^LN RESTORE JR DATA NOT jt[G]FN ~ OPEN # VERIFY BORDER 1 CLEAR _▗[L]L INVERSE AT V OUT K TO )f"6N:p3kT[D][C]SGN OVER SCREEN$ VERIFY PLOT T3-,VAL$ PAT 4 GO TO Pb!#[R]?J STOP [R]LEN <ATN LPRINT [Q] READ ATN : DIM f OR [T]s]AT t5PEEK STOP PAPER ▜ CLOSE # RANDOMIZE GO SUB 0© PRINT up LIST OVER PLOT - DEF FN = OVER # OVER >=_ABS 28▛[F] CONTINUE XsCHR$ STR$ EXP PAUSE [U][B] PAPER SCREEN$ M▜UATTR INKEY$ VERIFY BORDER INK LINE FORMAT (h MERGE o▙ NEW ACS JATTR T▚u▟>'0 IF -(pSGN COS ▜ COPY IF ©7.[ OUT ' DRAW h MOVE [[S]B PAPER FLASH ERASE s DEF FN [C]A▘[K]PEEK ERASE s< STEP [L] PAUSE x v OR O<[P] BEEP ,5W[L] BRIGHT [K]u NEW STEP ![A]Q NEXT U[ CLS ] INVERSE [SIN tg REM ATTR GO TO <=Gl9EXP >[H] BEEP |xPEEK #boCOS ATN LN DIM CLS CLS <ASN U@J OUT [P]/EXP 8[D]~/ STOP LN j& RANDOMIZE CODE ` LLIST LLIST STR$ ABS GO TO [N] OUT INKEY$& RETURN INK Kd OR LINE [G]` LPRINT yddD[Q]} MOVE MLN 5[J]knj VERIFY <=n POKE [P]ACS SCREEN$ =C RANDOMIZE eH4 MERGE NOT / PRINT Nx[L]VCHR$ STR$ [ CIRCLE [O]s)mINT LINE Z+ IF PEEK OUT LINE POKE TAB POINT PAPER IF Jd>+- NEW <>PEEK <= BORDER D OR [G][E]v$1 BORDER PCOS >= FORMAT @[K]G LIST DEF FN FLASH ?TAB [I]~} TO LOAD ERASE [T]COS ){ PAPER ./ RETURN q> CLS REM TAB STOP INT GCODE LPRINT F[} READ U CIRCLE NOT NOT MERGE QEXP y/ STEP ezNOT ERASE &oWCODE STOP DATA CLEAR POKE M<VAL -[E]©qM$ INVERSE { LOAD ` NEW n% RESTORE INPUT u/{c RESTORE COS [F] INK xC CAT . LINE 0PEEK OR BCOS W OR + LET W CIRCLE REM LLIST Q<= LPRINT ~ PAUSE CAT ATTR STEP /CODE STEP oSQR TAN os[I]3RND4/~ATTR SAVE I} GO SUB X NEXT r▖[S] GO SUB vB[T] NEXT R[J] LIST NOT BIN PAPER 1PEEK %VAL$ LIST BIN POKE y LIST ztk)NOT w[P]> THEN W ERASE PI PRINT =PI_ READ LN CODE EXP CLEAR ><VAL$ } BEEP SIN /7 SAVE = CAT ATTR PAUSE IF CLEAR TO CLS o MERGE ▟IN BEEP OVER R[G]LN -/bNOT ▝CODE ,▙yoi▜SCREEN$ LIST VERIFY fKk BRIGHT ` LLIST L.SIN [O]M▛: IF GO SUB Jow~/y PAPER INVERSE INT 9{TAB ▖~ATN RESTORE <=1ASN DIM J6 PAUSE LIST 8p SAVE INPUT MOVE NEXT POKE CLS [B]J# CIRCLE ▘INKEY$>=7JP1 $N[!1+ PRINT _K[H]EXP [I]Pc[T] CAT <= ERASE [F] OUT ;x OUT NEW ] VERIFY LIST nc+▙ INPUT [T]©[A]y PRINT CIRCLE ATTR CODE [D]zwx RUN A READ ATN VAL$ DRAW INK /PEEK CLEAR X▝w-o2<>{ka PRINT o OUT BIN CLOSE #47yLN ATN < LINE ATTR THEN INT %| INVERSE Txz DRAW VSGN VAL$ ,ATN (<=5SQR CE;)mBNOT FOR k THEN 0D<SIN ^LN SAVE [E]w?3]99<IM▞! REM +Z# MOVE LIST $[N]r NEW NEXT MOVE $&P[S]ATN RUN =[[P]▞CHR$ LIST _MEXP [Q] FLASH FORMAT RETURN B DRAW GO TO RNDG" SAVE VAL [G]▟ RANDOMIZE qIN _ATN [E]{[T] STOP ▘SQR THEN THEN M PRINT [A]<L OUT TAN +[K]ABS TAN BIN LLIST ^ PRINT 7o$SGN DRAW ▝ PAUSE AND SCREEN$ [ATN )(=>* CONTINUE VERIFY [_[TAN INT PRINT Ne[C] LOAD [N]/ LET O[M] BORDER OR [U] LIST OR ▘M REM THEN [Q]P^EXP <VAL$ Z OR [M]ASN [E]Y<= POKE STR$ BEEP ▝l COPY LOAD EXP }m OUT [J]Z*: AND SGN >= BEEP ▝ STEP ~s CLS [K]INKEY$~ FOR ">IN SQR - DATA c NEXT o DEF FN IN 6<>TAN ~" STEP l>] NEXT 6▗ASN ~;o DRAW CLEAR AND AND VERIFY oB2ATTR < TO ACS oPI LOAD S/TAB {[Q]FN d INPUT PI GO SUB FOR [Q] RUN [K] FLASH L IF <C{ REM NEXT BRIGHT STOP ATTR DEF FN ▙1r FLASH DRAW r+ AND OUT - CIRCLE [L]PEEK CIRCLE INT PRINT xKD OUT SCREEN$ BEEP ▚ NEW ac STEP OVER O0[A]r/▝|' READ ▞COS THEN }Ci0y<ATN } BEEP SIN RETURN SGN DRAW MERGE CLOSE # DEF FN o PRINT b▝W▟?# PAPER %PIy^LABS D ERASE [B]PEEK ! VERIFY ACS BORDER ;ATTR #qM OUT 7PEEK CLOSE #`_4n> LET [n NEXT [K]{SQR CLS RESTORE READ <=bg SAVE ▜[B]{▙>=WIN {[I]G▙ OVER ? CONTINUE [P]PEEK ▛[I] BRIGHT R▝ THEN OPEN # LET <=)TAN NEW INT STOP SQR OBi CIRCLE [S]▟▙ VERIFY [H][M]PI[B] OVER RND OPEN #eQ STEP PLOT c INPUT BIN O} PAPER LEN [P]©D OUT VERIFY DRAW RETURN CLEAR Y[G]M COPY A LET PI BORDER ABS [P]#▜| SAVE FLASH X[P] RETURN POKE [L][E]v<-TAB + 8EXP Rj>=>==[M] CIRCLE H©BIN PRINT y LIST 9 BORDER EXP ▛ OUT ATN <O FORMAT MOVE p BORDER OUT ^ READ OUT LPRINT '[ CAT RETURN h~PEEK K TO CLEAR [I]2PIwvm BORDER PRINT ,>=HEADCG CUSR [I];<hrust-packer v1. NEXT GO SUB s CLEAR USR [!%USR OVER MERGE GO SUB VAL MERGE INVERSE LLIST !x FOR x FOR j*<> GO SUB LN FOR RANDOMIZE INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 NEXT NOT RHR@v*FN [S]SCREEN$ [S]SCREEN$ GO TO ?[O] PRINT VERIFY COS CAT z FOR Yg=COS [O]z VERIFY Y CAT = FOR AT g ![O] PRINT "# VERIFY COS $%&'LEN VAL (g=)* PRINT AT +,-.COS [O]/0z VERIFY 1234Y CAT 56= FOR 789AT g:;<[O] PRINT => VERIFY COS ?@AB CAT zCD FOR YEFGHg=IJ PRINT AT KLMN`[O]OCOS VAL VAL Pz VERIFY QRSTY CAT UV= FOR WXYAT gZ[/[O] PRINT ]^ VERIFY COS _`ab CAT zcd FOR Yefghg=ij PRINT AT klmnCOS [O]opz VERIFY qrstY CAT uv NEW w=VAL VAL xyAT gz{|[O] PRINT }~ VERIFY COS ©▝▘ CAT z▗ FOR Y▚▜▖g=▞ PRINT AT ▛▟▙COS [O][A]z VERIFY [B][C][D][E]Y CAT [F][G]= FOR [H][I][J]AT g[K][L][M][O] PRINT [N][O]`[P]VAL VERIFY COS VAL [Q][R][S] CAT z[T][U] FOR YRNDINKEY$PIFN g=POINT SCREEN$ PRINT AT ATTR AT TAB VAL$ COS [O]CODE VAL z VERIFY LEN SIN COS TAN Y CAT ASN ACS = FOR ATN LN EXP AT gINT SQR SGN [O] PRINT ABS PEEK VERIFY COS IN USR STR$ CHR$ CAT zNOT BIN NEW Y OR AND <=VAL VAL >=g=<> LINE PRINT AT THEN TO STEP DEF FN COS [O] CAT FORMAT z VERIFY MOVE ERASE OPEN # CLOSE #Y CAT MERGE VERIFY = FOR BEEP CIRCLE INK AT g PAPER FLASH BRIGHT [O] PRINT INVERSE OVER VERIFY COS OUT LPRINT LLIST STOP CAT z READ DATA FOR Y RESTORE NEW BORDER CONTINUE g= DIM REM PRINT AT FOR GO TO GO SUB INPUT `[O] LOAD COS VAL VAL LIST z VERIFY LET PAUSE NEXT POKE Y CAT PRINT PLOT = FOR RUN SAVE RANDOMIZE AT g IF CLS DRAW l POKE CLEAR RETURN COPY Q= CLS AT g[O] PRINT VERIFY COS CAT zg=X[T]MVAL VAL DRAW AT g[O] PRINT VERIFY COS ! CAT z"# FOR Y$%&'g=() PRINT AT *+,-COS [O]./z VERIFY 0123Y CAT 45= FOR 678AT g9:;[O] PRINT <=VAL >?LEN FOR INK VAL @ABg=CD PRINT AT EFGHCOS [O]IJz VERIFY KLMNY CAT OP= FOR QRSAT gTUV[O] PRINT WX VERIFY COS YZ[/ CAT z]^ FOR Y_`abg=cd NEXT AT efgCODE VAL P DRAW ▞()E9 CAT [P] OUT >[Q]D? DEF FN DEF FN ▗U@[I] LPRINT >FN RETURN x THEN RETURN ERASE DRAW BRIGHT COPY INPUT ▜ LIST FN @ULN "[J]yATN SQR 4~P'~>= @ STOP INT s CLEAR T▙"EQ`[R] LINE INK @( COPY LIST ▜ VERIFY CLOSE #U DRAW s[S]TLN INKEY$]( NEW DD OPEN # FLASH IF CONTINUE q DRAW 1▟] RETURN R DATA 'D IF LPRINT O CLS TACS [O]* NEW PIPI0▛=<=Q RUN RETURN &ATTR DRAW ▙ STOP ESIN ▘USR ? PU PAPER OUT [U]T CONTINUE D RUN [L] REM SCREEN$ d*T▛▖EXP STOP uNOT m BORDER PRINT ▖ COPY <> FOR POINT I[Q]tAf`L[G] LLIST [T] IF LOAD MOVE READ OPEN #` POKE SCREEN$ Q[S] SAVE /[H]L SAVE I BEEP S CLS ([N][S] CLOSE # INVERSE [E]Qf LPRINT ▗P▘COS 0© SAVE PFN ?G[Q]*[J]&[S]BIN DO[P]/*tATTR ▙TAB STOP ▘9*[Q]E COPY RANDOMIZE FN AD▘QPATTR INKEY$)[Q]| INPUT ▘T~▙ TO E# CIRCLE FOR CLS INKEY$SIN [S]3> CONTINUE ([I]iINT ▘ READ ",lylSCREEN$ ▚ RETURN IN P[D] CIRCLE DRAW ▖?& FOR x[E] PAPER [H]Ns[E]A[P]# DIM COPY ▛POINT e| REM [Q]X▚FN TAN i[U]l SAVE [P] RANDOMIZE RETURN rFN QVAL$ MAT ▖L NEW ED PLOT _x GO TO [S][G]USR *&S SAVE RANDOMIZE ( FORMAT H[Q]"M CLOSE # COPY @l&FN VAL [S] g SAVE AND [Q]▘" CIRCLE ▘ RESTORE *▖ LINE GO SUB A?EXP [E]% LIST [Q] INVERSE BORDER OR TO FORMAT IF / RESTORE CODE EXP ABS SCREEN$ SVAL$ LN J2▘[E]pASN L[R]VAL$ [T"0%8LN ▛ NEW ALN CAT RESTORE T D FORMAT DRAW LPRINT CO GO TO [Q] LIST [I]▘`n LINE ▛ABS @FN ▖/[H]hVAL * CLOSE #▜ FLASH [E]RND<Az[F]/ LOAD KABS M/▚ THEN < DATA ABS DEF FN @Z▖XFN / LIST L INPUT P FOR INKEY$ DATA [Q]`INKEY$+ FORMAT ?TAN TAN "TAN CONTINUE [I]FN , COPY U*[S]>=CODE TAN )FN 4" LOAD CLOSE # LINE ( STOP SCREEN$ SAVE Q4 FOR [F][U]LN ^ OUT n/TAN ^ +>▖~ STOP LET 1.L>(< CIRCLE [J]USR E SAVE INT T READ STOP W STOP #?RND'CHR$ Ca1 BEEP [M]RQ LPRINT !&j BRIGHT wYFN [S]@Y STOP j,RND REM A CIRCLE /[L]l[E]& NEW [D]ACS POKE ▘AE"▛2[F]VAL ▖VAL <TSTR$ [E]x POKE LN [I]COS E[S]SGN x ▖P"ATTR EXP [L][U]<& BEEP AT K"[A]BIN TE6@*P,W DIM FN DFN VAL @ CONTINUE Li GO TO ELN OVAL$ INK CHR$ [E][E]G[Q]u/Ab▖ CAT ▟ GO TO Q8L U[A] OR CF[Q]UAT COPY PIE STOP :TSFN COPY CLOSE #U CONTINUE INT MERGE PSCREEN$ uK▖ SAVE ▖pA LLIST USR MOVE D LPRINT >=u@ DIM POKE PIBIN P LET CONTINUE D CLEAR ▘ TO <=[S][T]({TD CONTINUE < LLIST MERGE c [I]AT SAVE `LN IF SGN yINKEY$Q FORMAT NOT PEEK IT[M].L) LIST CIRCLE M~>=0[L]▙DI+LC DATA BORDER [M]?W@. DATA ,?+?LEN QUSR [Q]ABoG.▖?gCODE ] LPRINT OR UtVAL STOP I©Y[J] IF ▖ STOP T>+LN | COPY iZ LPRINT RETURN P>=<>[B] FLASH CONTINUE D[C]▘ SAVE SCREEN$ ATTR P DATA - REM |k CIRCLE ]INT VAL$ DRAW RETURN © STOP AT G[Q]VAL$ Tu OR OPEN #y LLIST SQR T DRAW CLEAR SIN [E]] FORMAT TAN " READ NEXT PQATN *S6 NEW `PI PLOT ▞ FORMAT CIRCLE < RESTORE ACS IN BORDER e0L8▖DUSR VAL$ "[Q]}[C]▖[A]< RESTORE iPo8[U] LET RANDOMIZE |1E*D#, CLEAR 8D PAPER L g PRINT [I]K[]OALEN ERASE LPRINT SoC@POINT 7▖DE OVER LIST [I] THEN ATN IN P SAVE EXP M CIRCLE U[D][M]^INKEY$ THEN COS x LPRINT { DATA ▗CODE OR *P[S][K]| " CIRCLE ▘" RESTORE LOAD RUN ff▙`LN WFN ▗ED▛#BL/t$|[M][Q][S]@CHR$ [I]PVAL [L]M▖RNDJSCREEN$ (a[G](T SAVE h GO TO E[K]USR VAL }[J] IF ▘@"AQ OUT v LOAD ?&[U]▘ PLOT YCHR$ D/C▗INKEY$gVAL $P(USR [G]ZINKEY$OE PLOT ([Q]c` ERASE ?DT/, PRINT UO LOAD 4 LINE CAT (P"▚BIN l[H]Q7 RUN [D]FN [K] CIRCLE FORMAT T NEXT CAT [U]E BEEP OR [E]VAL FOR (P8COS 9"@ [Q] DATA gSCREEN$ 2LEN t[T]E<>O*SCREEN$ LSGN TP2 NEW . NEW TAN L CIRCLE U DRAW [Q]▞T CLS SCREEN$ [S] FOR TAp/apv GO TO ▘q VERIFY TO [S]QgTSIN +PEEK TL RESTORE TSCREEN$ >=@Lb@ DRAW 5t STEP gFN AX THEN [I]@▗TAB s OR TAN USGN >=([S] DRAW It CLOSE # CIRCLE "yl TO / LOAD SAVE FN [S]AAp [M] GO SUB . FORMAT FN p9 BEEP D[S][D]BIN LET 6u CIRCLE [S] E WS[U]@POINT J) TO ▗ CIRCLE ▘p AND [E] TO BIN 05 CLEAR [Q]▘A" LOAD A[Q],Q▗▛) SAVE 0[J]LN TO [T]ATTR CODE DIM #2Wt FORMAT CODE RESTORE j4WSQR IN ABS z,SCREEN$ (©_ LOAD > RANDOMIZE OUT SGN 9PFN [E] INPUT (U[Q]I IF FN BORDER l[Q]u RETURN MERGE z▖ IF FN OVER .▖ IF v[F] LLIST UBIN T▝CHR$ SGN ASN T(b/SGN ][C]L E MERGE ATN lX? OVER l▘@▖[K]RND1P REM [S]4FN CLOSE # LPRINT SCREEN$ XSGN INVERSE AT D*ATTR /.D<TAB 2DS REM [S]▖SGN LLIST >=LN 6Wm LPRINT *ASN USR @[F]h CLOSE # DATA BIN EXP CIRCLE ]:<P/,FN ]EXP [G]8 RANDOMIZE VAL$ OUT ▘USR =▛o5▘4[E]fUSR DATA BEEP <(▖DPOINT VAL GO SUB / CONTINUE TO E# INPUT [Q]T▖%CODE (TAN PNOT //pSQR ^dDc BRIGHT 0 PIDTAN [E] BORDER 8LuX LET E BEEP DRAW CV#A TO LET @ CONTINUE 0 SAVE 8 PRINT sbHq RANDOMIZE Q? READ MERGE '▖STR$ CONTINUE eQ DIM 3 THEN FOR SQR GO SUB ▜}[I] RUN Ab[E]TAN >=VAL$ SAVE !|J DRAW 'xk DATA .VAL$ [C]/ CONTINUE PAPER SAVE qW[S]`+ BORDER R POKE ( PRINT ©SCREEN$ ! RUN vR BEEP P[M]LN dPEEK LOAD W CAT |[S]FN e6<AT BIN ▖# OUT CLEAR INK [E] CLS SGN r8 DRAW LOAD FOR *= REM E TO (fVAL CHR$ ▛ LOAD ▖PEEK IF POKE CLEAR 5AT INPUT T *G OUT ▜+ CIRCLE NOT ERASE DRAW $& OR uWtQ CONTINUE CAT ATN 8ATTR INT INVERSE CAT VAL$ & PLOT © CIRCLE FOR USR INPUT ATTR BIN E[D][Q]p]VAL$ READ ▙ MOVE INK PAUSE [P] LPRINT VAL LINE MERGE ▖-~U[H]$M LLIST [U]ELN VAL$ ▙[Q]0VAL LIST Y[D] ERASE [F] NEXT H/▖gA CAT RANDOMIZE SQR Kx(z<=M CLEAR UP>> RANDOMIZE Q:[R]ThClL*▘[Q]r CONTINUE K@BIN LEN / MERGE } PRINT USR n^n NEW MERGE ▝INKEY$ FOR STEP <=/ PRINT UATN AT CODE [ ERASE BIN POKE REM BORDER TO CIRCLE STEP RETURN ATN [N][C]pTAN 3d PAUSE ▖`h PLOT ▘EXP [S]}| BEEP ▝"p▘2 POKE OEXP +X▗AT SAVE SAVE @ABS 3cc LINE BIN ©[C]L▖("pBIN 8▖D/ FORMAT DIM [Q] CIRCLE DRAW PFN "T*[A]f FORMAT 3<>CODE REM ▘4/INT FN RANDOMIZE RUSR >= DRAW ~TATN INKEY$ LPRINT ▗E[Q]j LET PAPER LPRINT 0[M]&0`[S]a(4IN X▖A4[T] REM [Q]PILEXP 0T PAUSE FN RcTAN x POKE ▘[U])eA[J]X[P] SAVE /[P][A][S] INK < POKE E81OD* IF ▞STR$ ',=SGN [S]1 PRINT FN [E]M| NEW [S]tD*BIN FLASH POKE ATTR ^[M]*[L] INK LNOT LLIST <=RND OVER LIST mo4 BRIGHT [S]M{ SAVE Q TO ▖▖BIN FLASH ABS TINKEY$ DATA CIRCLE FN &0Q OR o▞ GO TO (T[D]8[A]I MOVE E>/A OR CHR$ D AND [I][L]ABS USR TO OR mUSR NOT POKE ip TO THEN ▖>=ESCREEN$ PNSGN LPRINT VAL , RESTORE POINT [Q]~ OPEN # CLOSE # NEW (E▖ [S]SQR bFN VAL m LINE BRIGHT PRINT D COPY GO TO S: DRAW [R] AND 4USR ▛<=^X CLOSE # LPRINT ATTR INT {*uPEEK `[S]U]PEEK LET CONTINUE RESTORE REM _©o{fSQR MERGE *wbSQR INPUT IF [Q]>{SCREEN$ RETURN EXP ▟H IF @ DIM POINT tPEEK j[A]▝Ut@ LPRINT uATN [O]B TO ▛K▖GvPSCREEN$ [K] RANDOMIZE @A[Q] DIM [I]t[A] GO TO SQR D DATA *VAL$ ▛(`TABS LIST ,"WQ[M]z=▘l, IF .VAL VAL$ USR % MOVE P REM SIN BEEP ▗ CONTINUE POKE &VAL @"hUSR CHR$ 1 DATA TUSR FORMAT 1POINT +hQ[M]kBIN FN " CONTINUE VAL$ [I]LN IINT c" COPY 1▞FN @ LPRINT FN Bd0 [U]C! CLS DIM BRIGHT [I]sFN BEEP NOT DRAW @ GO TO RND8@<=▗[T]▛83O STEP [S]E[Q]h6~ OPEN # FORMAT DIM RUN [G] COPY @▟@AT C[Q][E] LINE CIRCLE OR ▝}CODE l MOVE BIN [G]!/-[Q][A]CODE NEXT FN A/] LIST 0USR BIN !2[C] SAVE U@ DIM CONTINUE Q LPRINT BIN ▞USR STOP >= FORMAT [Q] BORDER CONTINUE ▖P▗ LINE BIN DRAW CONTINUE h PLOT INPUT P SAVE CAT RUN MERGE *COS P RUN PEEK 5^?HATTR INPUT "# AND TPOINT THEN }▖ OR COPY LPRINT 2INKEY$QDINT ▗=:POINT x^▖ COPY CODE LET USR .[I] NEXT :wSCREEN$ FOR ,eVAL$ ATTR VAL [P]7 LPRINT @D2 CLS [K]* BRIGHT RANDOMIZE NEW ▛, SAVE Y^K FORMAT >= TO +▛SGN [C] OVER ASN [Q] FORMAT r~ OR U? RANDOMIZE TD▖8/▙& THEN PBIN ▘ FLASH Q8D@ATTR ,"[M]VAL BRIGHT pPXEb DIM INT PLOT ] STOP $ p@i REM QX GO TO INT /A^ (CODE [Q]AT PAUSE [R]@ PRINT [Q]t FOR Z4UX[H]<>]IN ▙f GO TO BIN ▞'QINKEY$PIH CAT ▜ OR ▗p NEW ?INKEY$W2▛PI[A]w STEP FN LINE COPY [D][O]AT REM USR YDQINT DEF FN 5▚ RANDOMIZE [K]O[Q][K] E@NOT IF PNAT D<[S]P POKE p@[Q])@hM4@▗ THEN s CLOSE #POINT READ NOT PRINT ▜▞]▟< PLOT 2T▛CHR$ Q[P] RUN [Q]INKEY$?( IF ` Kh MERGE TAB xYAT UTAB QATN CODE POKE STOP EXP [I]phm[R]ABS L]|INT BEEP THEN y SAVE Dw[J] FLASH BIN ^[SGN LINE ]P DRAW [F]| CONTINUE f{T[G]+*AT A{MdP y% CIRCLE BEEP A=f/[L]5;VAL$ | TO IN BORDER REM VAL INVERSE ATTR = IF lr PLOT qA STOP [S] CLOSE #VAL$ T' INPUT FN MERGE @ BEEP LN AT IN SIN x▗kWABS ` COPY LSGN VAL |=2ABS +(EXP INKEY$,©[A]VAL /HEOq INK +BIN DRAW ▘A[U] DEF FN DRAW RUN _a_-AP(T+9x FOR pSGN ERASE XA STOP PEEK TO LIST DEXP ▘VAL$ BEEP [Q]ATTR [S][T]" FORMAT RNDATN <> ]& POKE D9 TO PRINT MOVE X CIRCLE [E]d0 RANDOMIZE 6FN T*R_ BEEP ▗ RANDOMIZE [Q]x NEW *[A]p<=USR BRIGHT LINE <=▘[A]cfT(Eo DATA BUSR TAN /! TO CAT RANDOMIZE 2 CIRCLE h PAPER ^ LINE MERGE KFN (SFN L, DRAW ATN INKEY$LN AT (▟[I]PEEK PAUSE FORMAT VDM IF D8AABS H PRINT x^PlASCREEN$ DATA 8▖RND!ABS DRAW CIRCLE "▗1[A], DEF FN . LPRINT @.. MOVE NEXT PLOT EXP READ p<>ATN SAVE HINT +,▘^ RANDOMIZE aPTAB [H]FN [Q]?u<}/(B| DIM TAN 2ASN ` CLS > REM CODE INT <.VAL$ TU[G](zu▖{/8 OVER 8 OUT INVERSE VAL ./ REM ([I]▘FN AT T GO SUB [I]PEEK DINT ? PLOT H_u READ FLASH OVER VAL E LOAD &CODE [E][H][ POKE @ SAVE /p/Fh IF [Q]4& q/SIN y$Se[O]TAN ▟@ LPRINT THEN DEF FN SAVE hU& BORDER [T]h<> GO TO x( LLIST p%H[F]POINT 1POINT 7[U][I]▘ CLEAR hINKEY$b[M] RANDOMIZE PAUSE >=U[U]vm DRAW [P] BEEP __e GO TO @$ACS ,[A]}▛ PLOT SGN <>LEN GO SUB FLASH ATTR ^aPOINT PEEK FLASH [Q][O]PEEK CONTINUE PEEK DRAW -j>=[E]▝2 LET ▖ DATA D GO SUB LN nLEN d/NOT POKE H IF VAL$ y▚ FOR S STOP FLASH SQR COPY PEEK ABS 3TAB t@D RETURN SCREEN$ NEW ▜,~ NEXT ,DFN /(*oE#sf REM A LET CONTINUE COPY SQR CIRCLE LOAD QULN KqE CAT ▝ CLS ▙D REM F TO SCREEN$ ▖$ CLS CONTINUE STEP [S]UE INPUT jA▞ IF IN [E]P PAUSE ]TIN hU@>- RESTORE AT *H_vh NEXT : DRAW U CONTINUE CONTINUE (INT $▖INKEY$AT BRIGHT Q INPUT VAL$ SAVE FN THEN 9>E(SCREEN$ [I]K(VAL [I]'[E]?O(@RND9V"`▙▞P:T?? FORMAT [N][P] LPRINT VAL W4r[I]>=<=PI>=WFVAL$ P,[USR DRAW PAPER q[L]PEEK }*UFN [Q]TAB [U]!POINT WI[M]ATN ( fTQ[F] RETURN @▝Ed PAUSE E MERGE TAN PLOT MOVE FN INKEY$SGN BRIGHT BEEP p(l[I] CLEAR RANDOMIZE ] IN @M'[O][S]]©[U]D| NEXT RETURN LINE CLS ▞[C]VAL [Q] LIST COS VAL$ PEEK d▚^ NEXT ▘PIPEEK BEEP INKEY$kz NEW FN FLASH BORDER PAPER VCODE ▖ DIM FN ▙ASN m▗0▚ TO A[I]H[E][Q]CODE [K] RUN ABS ▙+8 STOP 6PEEK SGN UE0 STOP '▝U SAVE <= DRAW SGN @pC-ph[J]0NOT ▛~AT / VERIFY d▖FN [T]T LET 5NOT ▗ VERIFY sl* LET INK FORMAT `y2 INPUT PLOT [A]/ NEW CODE ▗$ GO TO BEEP TAN / LPRINT ▖rVAL O[I]+▚▙(M STEP COPY CIRCLE ▘_qH| BORDER *[Q]UA FLASH [H] DIM >=v<>,P▗IN RETURN NEXT ]SCREEN$ {T=ATTR LOAD STR$ INVERSE IN BORDER W] DEF FN ▝ CLS u. COPY [T]NOT wCo RUN [A]RND READ MERGE AIN 8 CAT w TO REM LOAD LINE TAN g▘* INVERSE FN ©} RANDOMIZE AT [L]TAB ▚ GO TO ▟d▘ BEEP t"([Q]o S. +$ INPUT LLIST <=RNDx`/LN , THEN AQ▗4SGN >=* POKE z[H]FN INT [M] DIM PAPER ATN X' PRINT DRAW LPRINT CLOSE #A 15> ERASE +▗VAL$ M-TAN OR [B]<=▘5 SGN E{ INVERSE GO TO ]▛,"T OPEN #[G]l▟ATN k SAVE QXD/▖X TO DIM RNDo▘Is DRAW [U]v*) OPEN # BEEP ( [S]zSTR$ +[[I]/ [F]USR [Q]Aj PAUSE ▛h"f PAPER [N]TAB [C] CLS P@.CLPI REM K CONTINUE DoM'▞T1{(H/H>=/ACS [J]k SAVE @▚▙ MOVE / DRAW DATA (/A LIST P SAVE GO SUB [S]USR cFN L DATA @* REM d FORMAT CODE LN INT k LPRINT X[J] DATA LIST [R]Q[I] MOVE ATP NEW AIN | CLOSE #( VERIFY ]| PAUSE PRINT l TO e[U] BRIGHT .USR [E]▜h( GO TO [O]©' COPY w[N]VAL$ v READ <G COPY n]VAL$ AT rECODE [I]V`+Z▞ RANDOMIZE uSIN pSCREEN$ VAL$ >= RUN DIM <>_ COPY IN L.© BEEP W[I] RANDOMIZE RETURN BORDER PEEK Q PLOT IN p} POKE RETURN ▞ FOR 0ATTR REM +BIN [B] LIST PRINT , REM >[H]<> INPUT ,INT REM , IF PEEK [G]PIHPEEK [K] LPRINT (@d/tcINT GO TO @(▘E( FLASH SAVE AT .VAL$ SGN x STOP VAL$ g OR OVER USR MCODE STR$ [Q]H OVER GO TO $][Q]▗[T] LIST M{8[E] STEP ^[E][G]o"E BEEP USR [S]*x RUN p NEXT CONTINUE | FLASH / THEN IN (8 LOAD !VAL 0 POKE GO SUB - RANDOMIZE V}}▖©sCODE hT▜CODE SGN CIRCLE POKE N OUT OPEN #5ABS [Q]INT +_[A] LOAD ?>=I[Q]P BRIGHT RL[A]/x©AT WATTR pLEAINT FOR VAL . INVERSE ABS VERIFY [U] DRAW |4#A*[T] RANDOMIZE IF SIN NOT DU[S]([M][P]INT FOR & LET Oz[T]uT<> SAVE A DATA g[Q]LN CNQD CONTINUE NEXT LPRINT PRINT TPBIN ERASE USR FN p DIM [U]q6PEEK D< READ +~ OR THEN TAN Pyk@SGN 1▜ BEEP 8 CIRCLE ▛ STOP TO "SQR y DIM ERASE s INK READ *x:gT[O].| PLOT <=@JTH INK MERGE BIN PINT Q LIST ▗ NEXT SAVE MOVE CONTINUE PLOT : FORMAT ▛ IF ! REM MOVE |Vx SAVE p OPEN #[J]P" SCREEN$ +U CLEAR ~ DATA DRAW LLIST jFN ▘CHR$ [B].[A] SAVE ASGN [Q]ECHR$ [A]}$[D]A[M] MOVE ,@[R]; DRAW CAT TU▘BIN CODE ]: BORDER USR =W.[P][Q]?PU▖(# RETURN GO TO >7TAN POKE LN LEN /INKEY$J▚ GO TO V$ NEW ▘PSGN [R]W BORDER GO TO [C]▙PI TO IF l1▖▖ TO PAUSE U▝^7[O]SIN AT SAVE E THEN POKE LIST m[P]SCREEN$ 8^{z OVER PAPER p POKE $ STEP ▜ INPUT Xo©W CLOSE #COS PAUSE .[D] TO %~ OUT >[M]▛ MOVE BIN COS r$>8t IF ~ CONTINUE ▗ CLOSE #P SAVE SIN SCREEN$ `f REM 0 DRAW LLN *o SAVE 2▛ PAUSE [U]ATTR INVERSE CLOSE #[H]STR$ P FORMAT ▘▘ SAVE [K]EXP GO TO CHR$ D|X B_▘ COPY [S],TAN RANDOMIZE B▟ COPY IN >=O CONTINUE A BEEP [F] READ PATTR SQR 6 RETURN 4▘ IF 9ATN CIRCLE [A]v▟ PLOT Uo CLEAR RESTORE RUN [M] RANDOMIZE <>SQR STR$ GO TO LOAD INPUT © CLEAR CODE VUSR = RUN AT TAB CONTINUE U REM INPUT PRINT COPY SAVE SCREEN$ EINKEY$] RETURN INT f PLOT 7 GO TO QHQRND[L]>=[Q] FOR T DRAW w<7ATTR < DRAW E+R SAVE T[M] FOR COPY t+>=bD▛8 DEF FN 8[A] DATA RETURN [A]DSQR UCHR$ 6i POKE Q INPUT SAVE ATTR /UPEEK [J]LN `0FN [A]4[A]AT CLEAR kVAL ATN INT ^dP STOP r PAUSE *▖LPD FORMAT "An STOP [S]QFN @, RANDOMIZE p BIN .R POKE /%P[Q]_i[B]T COPY "ATN JtEXP !h FLASH ▖"!▗[R] READ LINE CIRCLE CIRCLE S OVER RANDOMIZE @SQR %` POKE ATAB LLIST d PRINT INPUT LEN u CONTINUE *DSGN DATA ERASE "LN ;PEEK M}Sl|[J] CLOSE #POINT o▖RNDLEN ) MERGE TAB OPEN #[ LLIST TO SGN 6E[E][S]^ STEP 4 OUT q^< NEW V9So[U] BRIGHT MXT[k DATA NEXT DTh CIRCLE [Q];TAN ` RESTORE PAPER RND4vTAB FN *[R] FORMAT PCOS HtVAL [C]"/)CODE @ VERIFY [S] LIST © OUT VAL$ FLASH Du7<=SCREEN$ }(dCODE ] LOAD DEF FN @VAL$ CLS FN OPEN # REM COS H RETURN vM READ BRIGHT SGN [H]TX▛[U] SAVE SAVE INT OVER LINE tSCREEN$ ▙>=TAB 0 OVER BRIGHT [T]? TO ` STEP INVERSE POINT VAL$ FN [K] POKE DIM vT[M]▘[E]▗▖(` SAVE TAB STEP URND BRIGHT DATA IF TAB h,w[Q]ABS ERASE LPRINT /LN SGN "[A]LN CLOSE #T FORMAT ASN >=FN hRNDUSR U CONTINUE yo POKE IN GO SUB e OPEN # RUN GO SUB ▜<>ASN ATTR RND BORDER IN -U BRIGHT G[T] CONTINUE SGN r[Q][J]QP GO TO PAUSE pWC INVERSE D MOVE _ABS LN OUT ATN PI RUN FORMAT [P][O] BORDER RESTORE PRINT p9LEN 1[J]HPEEK Tk PAUSE SCREEN$ ? GO TO RETURN [O]` CIRCLE TE CLS ~z CONTINUE SCREEN$ [Q][M]D STOP [S]?hSCREEN$ ED SAVE .j MERGE j BRIGHT ▛0[A]NOT INKEY$> CLOSE #: [F]L▙PIAT ATTR VAL .[T]>=~VAL$ M[D]? PAUSE q` DATA A[S] LINE LIST [U]?D RANDOMIZE ▗ LET T CONTINUE OR ' LLIST LPRINT MOVE sVU DIM 6 POKE [E] CONTINUE DATA P LPRINT BEEP wz OPEN #~{y/ASN PRINT IN ERASE VAL$ STOP ^3PEEK ▜ RESTORE <=▛▞ INVERSE ABS , COPY pFmCODE TO [J]u THEN /l DEF FN H' INVERSE U COPY ><=BIN *[M] DRAW BIN Wr RANDOMIZE [Q]Q▚zt[G]LN FOR < FORMAT [S] SAVE 6 SAVE @[Q]L/8[A]SCREEN$ =▛LN [Q][E]tFN PL BORDER PI@k_! BRIGHT REM @[P]ABS ]▗[A] STOP XA[S].kQASIN LPRINT p CAT [D]]▖;PxCHR$ ▖U▘PEEK m LOAD D VERIFY @▖"o}0h@ASN (P SAVE INPUT VrINKEY$>=wq[U] CLOSE # FOR | SAVE TO Ep PAUSE MERGE DRAW e▙ATTR Y4 IF ▛)g@▙[A] BORDER [M]C▗ RETURN -q INPUT _ CAT lD[H]MT<; IF [A]h6 LOAD BIN [P] FOR DAT % PAPER j-PLLN n THEN >="A/SQR VAL$ 4$ CLEAR Q THEN PAPER / COPY + TO $=*IN BIN /4IN CODE [U]INT CLOSE #FN t[M][O] LINE CONTINUE PI CLOSE #"VAL $[C]Pg`.t`INT M NEW >=SCREEN$ xh_x[F] DATA $ MERGE BIN x"INT OVER TO W1<>`SCREEN$ SIN DEF FN (d POKE [INT n LIST L▛ REM RUN ACS sc CLOSE #m▖ OUT GO TO STEP ABS + LPRINT Q INK /* LIST BIN LOAD y CLS LN ATATTR CODE OR BEEP BIN ©IN INT PAUSE CLOSE # IF UAT BRIGHT 0TAN LET STOP + CLS [A]SQR DEF FN [U]▜ BORDER VAL NEXT w@LN [E]▘T CONTINUE PX?>=& RESTORE "[A](E@ACS ATN CLS At^/ :▘D IF SAVE ▜tIN REM PRINT CHR$ NEXT PLOT <>AT [M]ATTR ▖WQVAL$ NEW ▗I[M]/>▖e PAPER AT pA GO TO [R]COS ]Gl[Q] CLOSE #|04P LIST PRINT NEW POKE .[K] CIRCLE ▘SQR EXP LET IF 02[B][A]8 RUN 8[S]+AFN OVER GO TO GO TO MERGE TD>=<=[P]ASN ▘X[Q]{o LOAD SGN .[B]I BRIGHT ▖8[S] LPRINT |TAB ( THEN DATA Jt FLASH GO SUB STOP 7INT SQR VERIFY ,) DRAW BORDER T CIRCLE TAB BIN ` CAT TVAL FOR Ux.▛SCREEN$ T[J] LINE CLOSE # NEW PEEK POKE OR nd POKE BRIGHT DIM LPRINT INVERSE [H]T5(VAL$ [A]FN ▛ CONTINUE TAN P[S]+%FN POINT INPUT SAVE [R],[N] THEN POINT [U]2▜M▚ OVER SAVE ▞W[T]*<> CONTINUE 8H TO ILt[Q] LPRINT 7▜▗L▖>=3 REM VAL$ >=▞_A LOAD "W[Q]ESTR$ +>= CONTINUE DATA LN 8 LOAD BIN % NEXT IN LSCREEN$ [I]/ INPUT [F]SCREEN$ VAL$ ATN SGN tATTR >=@ FOR LINE ` SAVE SAVE T FLASH SQR S,s GO TO IF USR COPY PFN STR$ $E LPRINT ]lq OPEN #|[S]WE AND REM FOR r0SCREEN$ ▖z▗N[K] CLEAR < PLOT V@P0l BEEP T@* w THEN [Q] CLOSE # STOP [L]/▘VAL INVERSE INK p LIST ABS CU BRIGHT READ >%T/+7 READ /IN #VAL$ T RETURN [I]# SAVE PD REM J/8P[U]P[R] THEN LPRINT ,;& IF @ LIST .▗xe[B] COPY REM | RANDOMIZE ?FN +DT[Q] TO LN GO SUB EBIN ERASE 3 BRIGHT [S] IF LTAN TAN REM ▖USR E@[Q] DRAW VERIFY ABS ,AT &▝|[R]OA CAT @PIE=i▖)` CLEAR NEXT 3[Q] INPUT ▙ FOR PIY[L]|▛<=▚Dk[A] THEN [I][F]yd▛ACS BIN REM DATA [S] GO SUB SQR GO TO S SAVE ▗>=' LET COPY COPY LIST ▘44PEEK E DRAW PID&CHR$ POKE READ CLS ▛E[E][M] CLS ▘ LOAD $9 LIST CLS ▘ESQR ▚ATTR OsX SAVE LPRINT t LIST >=Q DIM MOVE VAL$ ` OPEN # SAVE CONTINUE INPUT [B] LIST PLOT Q LOAD N[A] LIST Q CONTINUE PEEK [O]%@V[K]PEEK FN [[K]TAN RETURN BRIGHT [E] INVERSE CIRCLE SQR [C] LOAD "D FOR SAVE )hRINT p RETURN t NEXT c POKE INT INPUT W/T OR INT >_.[E] PRINT JT▖ POKE [D][O]JbxQBIN NOT ABS e-f POKE ,▗▖DPEEK [E] FN [B]U RUN ATTR LN 5i?▗DFN z STEP TO [L]^▟▛ CIRCLE LPRINT >=▗ LIST lSGN + REM OR ▘'LN BIN COPY P&aUSR _ SAVE COPY Q)W|~! GO SUB ?d[M]D▘*P▗LN >='[S] CLS LEN d* MOVE T SAVE %Q BRIGHT MERGE H DEF FN BIN SCREEN$ AINKEY$ BEEP INKEY$SGN ▗,L[E]X RESTORE STEP [M]PEEK 50▘$$,LEN POKE = CIRCLE ? STEP J LET ||ATTR $1©QD>BIN h▖[E]M CLOSE # STOP A[S]+@_▘ REM E MOVE ATTR 8A FOR LPRINT H CONTINUE FORMAT ! SAVE AT FORMAT d+Q[C] [L]x COPY f▖ SAVE CONTINUE LPRINT pSCREEN$ FOR STEP INT OUT h▘ATTR + MOVE qLEN [Q]? TO [I][S]SGN INPUT OVER d[A]J6 LIST LIST LPRINT C GO TO $TO TO @USR /Q@USR 2* SAVE PRNDk DY FLASH POINT s CLEAR h LPRINT MOVE LIST [I] IF IF GO TO ▙E▛ STOP ]Cl[E]INT ▟`UEXP PEEK PRINT ATN /[T] PRINT PAPER 0lSCREEN$ SIN CLEAR uq[T] LET FLASH USR CODE AT Y LOAD DRAW VAL$ 9IT[Q] IF - FOR TO {[N]`▘bTAN AT t STOP |;/[Q]AT c REM @[Q]< SAVE CONTINUE FORMAT DRAW CODE /E*AT ▘ OR INK FORMAT SQR REM [A]( OUT LN [Q]j+p CONTINUE VAL$ B DATA .[F][O]`A?VAL GO SUB IF THEN IF u COPY w2L▞[L][S]'VAL CONTINUE SCREEN$ tATTR ] REM FN USR STR$ P%luZ[I] LPRINT LN STEP |j BEEP [M] FOR [Q]VAL PLOT [I] INVERSE ~[I]T" REM U}ATTR AT e/[Q] INK { VERIFY INT VAL [I]EXP [I]g[T] OUT uDUSR k RANDOMIZE 3 CONTINUE ] CLOSE #? IF 0NSQR TAB TO USR COPY THEN RND CIRCLE U CLS u+IN W OPEN # INVERSE ▖ OUT m, POKE IN AT ACS PLOT DRAW $*[S]D▖ INVERSE ESGN PRINT b RETURN MERGE AJ▖ CLOSE #VAL$ CODE NEXT 0XEXP ▛TAN ) CIRCLE FN [N]PEEK [A] LOAD FN WT▗u INPUT MOVE g[M] SAVE xe▞ IF + STOP USR U▛E[C]4FN CLS fCINT A[NOT 8DSIN 9<[Q]/▗LN LOAD [P]R▗ RETURN RANDOMIZE ▙EFN [S] PRINT 2Q[U]07BIN ACS PAUSE STOP q[Q] STOP ▞ SAVE @▘LN ]ky)TFN [E]CHR$ SIN PLN fp[Q] ERASE ]TAN RETURN BRIGHT ATTR FOR W{ESQR ▚ CIRCLE @p5><▛ LOAD IN DIM POKE <uqTINT <>W[A] RETURN ▛lDT SAVE 3▗D(SCREEN$ FOR TX NEW "T>= REM 7? LIST STOP QFN H SAVE [Q]?1 LET TO tT RETURN IF P FOR ^hIj8j} LIST VAL$ INKEY$$ DATA /fL* FORMAT POKE v PRINT u%r4[E] SAVE )[F]+[E]1K STOP TAN f SAVE SGN z4TAB >= IF REM eTAB SGN [I] LINE * LPRINT [E]`V~VAL$ PEEK RETURN X(ABS [J] CONTINUE INPUT DWCODE yv SAVE [H]©DVAL$ DATA [S]R[K] COPY MERGE ` CLS VAL 5USR (z LLIST L[L]n© DRAW OUT < LOAD [K]@ LPRINT [TAB POINT h▝[U]▛I'STR$ SAVE NEXT aAAT COPY [R][Q] MOVE [B] RETURN [I]|Q SAVE $BIN `T[C]oLVAL INKEY$D`: OVER z?] SAVE $S DATA T COPY OUT ATTR >=T+SQR _FN < LPRINT LIST BEEP b PAUSE SAVE t IF [G]y[Q]BIN [J] SAVE DRAW Q REM CLS z GO TO ▛THD STOP Iw[G]; SAVE [Q][L]o STOP PLN FORMAT U SAVE ©AT CONTINUE BEEP DATA [PQ▖< LPRINT y[S]l CLOSE # PRINT Q CONTINUE "DEXP H#W LET /6>=IN [S][U] SAVE PAPER #VH<> GO TO PRINT SCREEN$ PLOT Q FORMAT [R]▘A▞WXAT USR ▞/▘sRtPTINT GO TO D, IF NEW `"POINT Q▝CHR$ STOP LET ` CLS Q PAUSE [O]▗[K]:A▖TAN P[K]et LPRINT lM[E]A SAVE BEEP ATN TAN /L IF E![H]ul MERGE * PRINT [B]$$"VAL$ m STEP d$` CLEAR FN RANDOMIZE TuESCREEN$ [U] SAVE ▛sRNDW LPRINT P IF VAL$ 8E@*c LINE LN +p▗ LPRINT ▛Q STOP 78 READ ▘ RUN PW INPUT JUSR COPY LPRINT AT ▙PEEK x2EXP 0<=uE[S]?[D] ERASE REM u FOR SAVE [Q]ABS PAUSE *Ks4( RETURN AVAL 4 DRAW ▞IN CONTINUE t? IF }u:LN 0 POKE LIST FN LINE [F][S] CLS qLN <[Q]▖P PAUSE BIN E. LPRINT GO TO SCREEN$ /6 FORMAT #?<> NEW E+$ FORMAT ATTR xD DEF FN ▗ BIN LIST READ INT CODE [Q] RANDOMIZE CONTINUE Q MOVE [T]8} OVER CLEAR PEEK W"/ DIM FORMAT SCREEN$ © DEF FN FOR INPUT INPUT CLOSE #W SAVE TAN [T]CODE LET jDATTR ( NEW /[T] TO IF MOVE IF [S] TO ' CLS _ COPY A© READ MOVE IN H CLS POKE PRINT [S]]EPEEK g▘,rVAL u[K] CONTINUE E CONTINUE CAT W POKE a[N]PACS .LN ;SQR -▙ LIST } COPY s RESTORE ATTR ;0( RESTORE BORDER qU DIM COPY BEEP {▘ RANDOMIZE OPEN # TO SAVE [Q]FN BEEP P CONTINUE FOR RE RANDOMIZE [F] LOAD CLOSE # IF _ NEXT LN INPUT CLS W CLOSE # GO TO & POKE pNA STOP ATTR |LN ?TD"0[R]RND<ABS LIST " DRAW FOR TO CLEAR STR$ LN Q▛ INPUT OR ] PAUSE © PAUSE u@ APBIN "Q▘ASN USR CHR$ ?CODE ▞PPEEK /[D]dkTAN [I]t▗CODE FN >D[S]@cfFN CLOSE # IF PAUSE . RETURN + MERGE Q CLEAR OPEN # MOVE DE SAVE =[D]+ CLOSE #[M] FORMAT BEEP ?FN T IF u RETURN RANDOMIZE <>AT INT STEP A[E]FN [H]T POKE [T] FOR RETURN ]?g RANDOMIZE WCODE *AT ATTR ▛/[J][O]u> PRINT / COPY SIN DRAW CODE jSGN [S] REM TPCHR$ OPEN #eUSR STOP FN l6▙FN FN ( CONTINUE [S].▘D▙ GO TO [Q]T? GO SUB B3 CLOSE # CLEAR u1 FOR T9LEN [U]▖▗(_D LIST 4[E]USR '[G] PAUSE /#A RETURN Y NEW ;SP MOVE lECODE uu9 IF W DRAW [M]_}o BORDER LPRINT w LOAD E GO TO [U]▖[+TUSR u IF |FN PEEK AW PLOT / GO TO @©W[Q][E] IF *TUCODE AFN K DRAW ▗LN NOT [I]E[E](>= STEP STOP 0 CONTINUE [Q]T GO TO e CLOSE #LN SQR STEP d[F] GO TO [E][B] PLOT FORMAT STR$ ? CONTINUE ][M] PRINT INPUT H RESTORE PAPER [Q] OR *lq[J]FN SCREEN$ LPRINT PEEK [S]▛lPI RESTORE ACS CONTINUE " STEP {[S]T NEW ZPOINT DRAW [R][O][K] IF PLN MERGE COPY LOAD u RETURN IF Tn,▛ CLS Wd THEN ©8[L] ERASE VAL$ E_ LPRINT [U]▘Up CLS FN PAUSE INKEY$H[U]t LOAD INPUT a LINE FORMAT b DRAW &l>(8t<> NEW Q[Q]▘EXP USR GO TO RETURN ©▖RND DRAW BEEP fUSR W+LEN PEEK TO *VAL$ D~▛q>EXP T} CONTINUE ' NEW > OR IF REM ▖ STOP LIST Q]▜ GO SUB SIN *[E]ATTR @ FORMAT [Q]rwx TO OR FN INPUT ▗IN H@▖@SCREEN$ LPRINT QO7P[Q] MOVE U SAVE dLN SCREEN$ O COPY /D RETURN }CODE _ INPUT CLS WD[C]A[S]td BEEP SGN $FN EXP SAVE " LIST E CONTINUE K8WM$( DATA PLOT NEXT SCREEN$ [S]|Q>0% SAVE ▖[P] COPY AT FOR @uLN NOT T INPUT ▘p[O]SQR TAN y`USR ?AT DRAW GO SUB A STOP u FORMAT CLS SAVE LN ASN LLIST ,[S]uSIN [Q][Q]FN k[Q]P▘@ SAVE At RETURN }Z▘>=x[F]SQR XL INPUT A[S][P] POKE . SAVE MOVE ] COPY FOR W&fTE▖* DRAW qtLN P CONTINUE uDePEEK < MERGE T REM LPRINT u INVERSE ▖iXD/$7 GO TO > CODE ▘W GO TO FOR RANDOMIZE CLOSE # nTl/VAL$ POINT P LLIST READ LET -▗@ CIRCLE /ABS p SAVE IN /? VAL$ @ePOINT VERIFY q2 READ [E] RETURN ft▖0E INPUT Q FLASH [H]I BRIGHT ▛▗ STOP # SAVE ▖yM CONTINUE PEEK BIN ^▗lb READ CODE USR SQR LPRINT 5@PFN p[G]9 RANDOMIZE LN TAT NEW A PLOT [Q]SGN /} DEF FN 7<>-ua INVERSE FN D NEW ▞$ NEW f RUN FOR Z[L]R(s LINE ACS NEXT LINE p}Y GO SUB TAB /Ue FORMAT LET NEW PLN CHR$ <>U@*E MOVE PRINT [Q] ▖^meVf BEEP PLOT u[M] NEXT PI TO {▞Wu STEP SGN STEP T]▝CODE PLOT 5 GO SUB T INPUT fq~}PEEK +exASN RETURN E GO SUB TAB ▗ VERIFY COPY @ CLEAR tSTR$ [I] MERGE LINE ZEXP [O]n▚D; THEN V_ NEXT * CONTINUE GO TO IN REM O[U]<>C4W[A]P|OD LIST QEASN AT LEN MOVE fP TO [F]Wm OUT GO SUB PI>=[K] LINE IN [E]SQR [Q]UIN POKE d INVERSE ?v LIST r[J]/+0 DATA ▗CHR$ SGN CHR$ LN ▙E©[L]3TATTR vj[J]< NEXT 6MRND THEN SQR NOT BqEXP @zATTR V BRIGHT OJAU CAT STEP w PLOT READ Q5EPcATN [H] OR ▞SCREEN$ V RESTORE "[S]g OUT ▖ [E] TO * DIM ([H])EXP FOR P[T]y▙CUTAN 'SGN D)9CHR$ "-r ERASE SCREEN$ i9▘[F]2 OVER 6 POKE h5[K]YX2 AND TD GO TO OR 6 AND PE BRIGHT VAL$ AQ2ATN E MERGE ▟E[Q][O][R]H▚VAL iABS TAN 7-[D]_ BEEP S!v STEP TO m<=SIN )t/[F]QP[J]{ COPY CLEAR [L]$h COPY z BORDER h;"(Z OVER [B]6[L]-TAB * LIST ▘IN YP▞Ed}B[L INPUT CLS a]4▘PEEK arcw! MERGE fzeI[O]V LINE RESTORE ATN [S]▛+[Q]TAN LOAD INVERSE vINKEY$CODE PLOT EPEEK G[L] DEF FN <QASN ▚l TO ▖^AT P[U] LOAD Ty>=HDEA<>▙7 DIM O CAT RETURN RANDOMIZE ▖[S]!~PI▘SCREEN$ BW51c READ LINE [D]@▝&- PRINT e1m RANDOMIZE M LLIST @ATN [Q] STEP [C]"RNDE COPY " REM "PEEK OR & LET BORDER #/>= ERASE ATN [C]ATN 5 OR 2 FOR 7USR LIST o LLIST E~CODE 6 PAPER *6CODE ob▘sZPTAB fEQCHR$ U[U]fRNDEXP ^= LINE INKEY$|VAL QSQR REM VUSR i|INT (* RUN { ERASE RETURN [E]▚w[E]spA RUN A AND S BEEP 7sSQR ©qx DATA STEP BRIGHT MERGE D BRIGHT t PRINT }LEN P VERIFY BORDER EXP BEEP ACS CHR$ ,SQR @ RUN POKE GO SUB RANDOMIZE CLEAR 1f?[M][C] GO TO }CODE MOVE FORMAT w9p>=[A] INVERSE BORDER ▖[Q]^POINT ?2 STOP S!VAL ABS MJCODE MERGE tPEEK DRAW ▝:LAAJ OR px DEF FN [B][A]DG▗ RESTORE OVER ▜y INPUT >= GO TO VAL$ RETURN LOAD IF DRAW LLIST PEEK IN FOR ATTR CLS I= REM CODE READ [O] INPUT ATTR COPY [I]] PRINT BRIGHT CLS 4QB▙u PLOT : OUT COS S OPEN # COPY Y OR 19;l[L] BORDER SQR LIST POINT r COPY =EXP COS [L]37Q^:[D]// ERASE ▞SCREEN$ RANDOMIZE USR <=@SGN c STOP CLS m▚[H] LOAD INT M[K]CODE ▛SQR f[L] LOAD [U]C RETURN IN m CLS p INPUT RETURN TO RETURN IF STEP INVERSE m)|LyTAB BRIGHT cH▘ LLIST ZNOT _ LET [AM[E]{EXP OR x[T]IN uW CLEAR QoACS LOAD MERGE DRAW OUT &@[S]sSQR [G] Wa*▗[E]ABS ATN [Q]▖<*FN AT BEEP OVER DUSR qNOT ATr▟?PTAB PRINT C} OVER g REM ▘* NEW /▖ NEW PAPER CIRCLE ATN ASN FN 5`Uh AND CODE ACS CHR$ POKE C>=[C] FORMAT ERASE 2 GO TO LOAD @gRND RETURN ▜ch▗PI CIRCLE _ RANDOMIZE } TO [Q](▜[S]*[F][P]"VA<`BACKGR CUSR @@hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211 NEXT GO SUB s CLEAR FLASH [!% FLASH OVER MERGE GO SUB VAL MERGE INVERSE LLIST !l FOR PI SAVE ^<> GO SUB LN FOR RANDOMIZE FLASH INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK 1 NEXT NOT RHRFN j SAVE ▖ DRAW COPY COPY COPY READ ▝?▖?1z^< BORDER _©~ COPY [O] CLEAR FN NOT COS [S]STR$ IF SAVE r?; LET l DRAW jUSR [Q]s SAVE READ INK LIST SCREEN$ [F] INVERSE [P]qNOT [I] LET . FOR ATN I NEW ASN LPRINT W COPY LOAD ' DATA W) POKE [D] TO [A] PRINT 1 FLASH ?+~F DRAW AT SAVE LIST VAL LPRINT [|USR `mINKEY$ COPY LIST 0 DRAW COPY [O]d CLOSE #4 IF l NEW ATTR LOAD & INK POKE TAN ? ©@ COPY ▗*[G] READ T PAUSE [D]{VAL$ J REM ©gIN OUT CLS IN RETURN = OR ▖ FORMAT 7©o[K][O]Gk DRAW BEEP ATTR g[P] CLEAR _VAL$ SAVE x LIST ~ DIM LLIST -PI▖RND)0 CLEAR =S-i/ LPRINT SCREEN$ SCREEN$ g PRINT U CLOSE #[O] RESTORE MERGE COS IF f BORDER COPY [D][A]|3[D] DRAW [E]STR$ <= CLS CLOSE # LPRINT px SAVE LOAD O FOR SAVE LOAD CONTINUE [P][O]M[A]&?▚g=#ZIxINT ?TAN BRIGHT NOT RNOT <4i VERIFY >=_:e REM ▖ LIST * SAVE [Q]g RESTORE RETURN LN VAL$ [A] LPRINT 1SZ INPUT PLOT OUT NEXT GO TO DRAW RETURN ▘rnSCREEN$ DRAW D:<= STOP g GO TO LN x|] POKE p~ AND BEEP AND OUT [E]©M/FN OR INPUT ▟ COPY [R]a▝CHR$ &{▘ CONTINUE COS ? LLIST INKEY$(▘A8 PLOT FLASH LOAD 1z8:g▟X BORDER <=POINT ▛T RETURN HVAL * RESTORE R POKE [O] IF $ RUN PI#~j DRAW TO t#X( RANDOMIZE ERASE RSIN ACS PAUSE P= ERASE INT © LIST / LIST 9)▟AT tRND©[C]Z[E] CLOSE # GO TO %Y{ACS [R]▜CODE OUT LEN [E] DRAW SGN LOAD DEF FN STR$ < NEXT ▘~L^ VERIFY [R]% STEP Y LINE ZVAL [K]rTAN ▙ OVER ▛:}BM<{{NOT Rr OPEN #© SAVE ▟[I]"g RETURN ▛NCOS LPRINT g= REM LET CAT NEXT READ RETURN STOP [D]PEEK [S]5|lJTAN j7FN V+|SGN ▟j RETURN AND RUN POINT `d>=q1 MOVE LIST DATA @h RANDOMIZE [C]▝aLN d5VRND7)8`^LN INVERSE 1"k,@PEEK z| BORDER ▗|d8[Q]GG INPUT DIM ?ABS D01<=FN v LPRINT Vk5q? CLEAR *3TAN DRAW pPOINT (9▟T^ FORMAT /A;= RETURN 7TAB ABS 9fHNOT PUSR PRINT PI LPRINT K FOR 5 RESTORE LN bCODE ` LET s; CLEAR CAT !'VAL ;1LN ;@pKPEEK ACS 9 OR g MERGE 9 RUN RANDOMIZE '0S= PLOT COPY LOAD hSCREEN$ [O][J]VSGN Y|d VERIFY [C]>DINKEY$[I]USR CLOSE #t>BIN RETURN w NEXT [J][N][S]▙*E<>0 LIST ▞<>`I BRIGHT FN [B]rLoBIN ATN d^9?ATN a~ MERGE CODE C; STEP LIST <= PAPER [C BEEP M%O RANDOMIZE {TAB CONTINUE SQR q{,?) OR E RUN FOR <= RETURN I(VAL$ t REM r[P[R][O]INKEY$ +o[N] RESTORE MOVE CONTINUE R▙N DIM [H]7SQR Oh[[R];A[T]y9[K]ACS 7 LET DRAW ▟o CAT < RETURN CHR$ OVER rT/<T OVER ^G,SRl[U] RANDOMIZE N[LPOINT ▖n OVER ERASE o CLS - STEP <=??[U] INVERSE BT CIRCLE & NEW $ RESTORE 3 INVERSE IABS PEEK [U]ATTR O/5{SGN READ RND[U] POKE DRAW OR COS SAVE [P].?6 LPRINT [U]© RANDOMIZE p©;}9 AND JB4 PAPER L/x@DA DATA =@} BORDER wB LET VQ DRAW POINT K PLOT f FOR q LLIST ▛LVAL$ { COPY h2INT [L]` SAVE TAB GO TO OVER DRAW SIN RUN NOT {(© LLIST @_ CAT py▛gLN y BEEP © CONTINUE >TAN [I]J IF STOP [E]B LOAD INK *▜VAL$ RETURN .USR IN DRAW <[T]rATN THEN RESTORE s MOVE l[F]▖<=pP M+ DRAW DRAW FORMAT $▟B[P] CONTINUE FN /NBVAL [B] CLS }x CLEAR RUN DRAW ▗6 STEP DRAW T CLOSE #pyBIN TO ATTR ASN ▙ PAUSE : TO m5[B] THEN OPEN # OR % RESTORE RESTORE 5©[R] STEP L TO | LOAD <= AND V<= CLOSE #CHR$ ^ OVER ▜7aATN +▙<=1{LEN p BRIGHT [G][M]eABS xRNDJ COPY = NEXT r BORDER INKEY$ CAT TO [P][K] REM LINE VSTR$ /Z.SNOT F▝ ERASE [Q]INT STR$ )=x PAUSE )[P] MERGE INKEY$ RUN SQR x READ (MCOS | GO TO !K IF ▚[L] STEP . RUN [P]<=E> CAT V NEXT H OUT MOVE COPY ;[F] FOR m"▝! INVERSE CIRCLE % DRAW @lwv LLIST !MVAL PLOT ▙ STEP o[M],,0[S][H])oSQR DATA CHR$ gRNDg1 REM PRINT 6FkCHR$ h1>tc RETURN OVER PEEK DRAW | INPUT /T>M , VERIFY BRIGHT LN D NEW [J][G]AT CODE LN VAL 2▟[T]%CODE ▘] REM CLOSE #LN [G] BEEP q INVERSE @ATTR CAT [Q]▝y RETURN ▟7k*g▞'>< STOP PRINT p MOVE [K]PI BRIGHT /©w[C]ATN aECOS ©~<=~j|l<, GO SUB @f AND OPEN #©czPEEK -SCREEN$ /uk LOAD CONTINUE ▗ GO SUB STOP CAT READ SGN MOVE oSQR [O][J]SIN ( ERASE RUN CAT o[T] OR [C]SQR ▛INKEY$[E]SCREEN$ OR <=+BPI LPRINT ▟WX POKE INVERSE l DIM [M]m LPRINT W FLASH 1[J]n;?"G DATA [Wx▝ OVER w CAT ATN ?@▟ OUT L1 PAPER SAVE 1▖VAL RSp[J][Q] CIRCLE LET Zt|LG FLASH % BORDER STOP -[N]? MOVE [I] GO SUB READ CONTINUE [K]SGN L IF SIN SAVE RETURN xRNDE[M]fR+ DRAW w,z PAUSE [E]VSG CLOSE #s PAPER +[H] DEF FN OVER ▛ OVER RUN [I]Y0CSQR LOAD _ DEF FN / PRINT PRINT IIN Rp DRAW ,SIN INKEY$VP CAT n© OUT CAT N REM ▙ GO TO f OUT LINE FOR e INVERSE t DEF FN ▞[M] NEXT RESTORE MOVE [U]m BEEP 2 BORDER RESTORE INVERSE U RETURN ~[T]+ LLIST DIM j CAT MERGE / NEXT SIN [B][G] READ c REM l CLEAR BRIGHT POKE /t LPRINT 8)▚ INVERSE [H] RESTORE VAL$ 8/▝wPEEK PEEK N3]▘y▛ PRINT i ERASE (SCREEN$ ` LINE [J]TAN dIs PRINT ▗7[U]w[I]d]▟SCREEN$ POINT LIST TIN }0[D]/pCOS 1 FOR INKEY$ RUN nA RANDOMIZE [F] LIST V[_VZ NEW wzSQR [J]▗Gu( DEF FN PEEK 1(+ RETURN GO TO AT ^ OUT .T& OVER [G]0gp BRIGHT LLIST ERASE [ OUT y▙ DRAW ▚IN >ACS [G] DRAW DIM IF : SAVE x RETURN j©[H]z>uSGN [O]© AND GO TO imINKEY$qtquH BORDER RETURN REM LINE ▟|Ll DRAW [M]x=D CONTINUE t FOR =n<=▖1LN [C] READ LN VERIFY H[U]1 INK <c;▝ RUN ERASE RUN CONTINUE F RUN LN v LLIST SQR [R]VAL THEN 7[R]>=, LLIST DRAW J_SGN PIkt BEEP CONTINUE SQR CLEAR xPEEK < LET INPUT GO SUB ▛ READ J(% GO SUB >LN ▙*INT 6▘ OVER OVER ;[L]kh[nyTAB NEXT [L]VAL$ LET 5[P]<>0l▘ LOAD FLASH INVERSE uw"©A[C] INPUT v[C]f OVER [G]" INVERSE eB%#[K] PAPER IN [U]▙k"PEEK EXP W; CLEAR LOAD INPUT [I]-z TO }[: OR c&POINT a DRAW <[T]]?o} NEXT xu{ OVER jRND RETURN l TO TO +gJ) RETURN ! PAPER OVER © FOR Y[H]l READ [K]Rlps[F]SIN DRAW BORDER PEEK [O]&t PAPER RETURN / DRAW GO TO ACS ae FLASH AT DRAW Tn RESTORE = LET Y INVERSE INK NEXT [P]3.PEEK 5 OVER RETURN g MOVE J INVERSE SGN COS r[J]▛gCHR$ ABS +M POKE LOAD SAVE x PLOT p▟F RETURN EXP [R] NEXT -$SIN ch4[D] RUN [L]EcgTAN 7O`|r$(t) COPY zIN [I];#2xNOT a!`▚?_=4 FOR #P[U]'STR$ ANOT CHR$ AT ▟RNDACS ERASE [R]vATN ` J#ATAB OUT n FORMAT AND ?4[K]SQR :▙y TO #©bPEEK ]w▝LN CODE SAVE X RUN ABS TAN STOP # LPRINT ~ACS /XS GO TO c< OR "9|[O]: COPY 6'© CAT 3 AND O LOAD -hVAL$ rkvMATTR l LPRINT STEP [E]s NEW ABS G IF [P][B] NEW PIr©{H INPUT BORDER J= SAVE OR [I] GO TO G NEXT *b;F[E]SGN ▘*I BRIGHT OR </ =>SQR [M] OUT IN FLASH r INPUT ERASE INPUT r▟TAN [T]POINT }e▝.SQR ▚X DATA ,▗ POKE s ERASE :=n▜fX5 PLOT <0PIppCHR$ -<= BORDER INK CONTINUE [▚ STOP > CLEAR SAVE ^ FLASH LET COPY FOR NEW INK 2CODE 6 RANDOMIZE EXP +LN RANDOMIZE EXP ^>=F CLS p▚e|INT Qi4>=SGN h<.CODE bZ LOAD PAPER [C]bZ3 SAVE MOVE (/XPEEK LOAD n CAT DEF FN A NEW BRIGHT ZRBIN SGN d[P]`;@ RETURN ABS s CIRCLE PLOT 8[K] SAVE :EXP ?o POKE Qn_ CAT I LLIST ATTR (H OVER TO OVER TAB F CLOSE # DIM NOT lvATN INPUT X[ CLOSE # BRIGHT X OPEN # CONTINUE [R] COPY ▙[R] AND }[G] LET .!8COS SQR >[C] SAVE VRND_F NEW REM x;COS ;j_ABS ATN [ GO SUB STOP A STOP STEP A CIRCLE h[E]D GO TO 8 IF PLOT [U]]R LLIST q RESTORE c FOR ATN Ax▟ CLS C IF 3[O]/& OVER xC`t LINE LEN ©[L]WTAB [O]USR 4 OPEN # DRAW CODE COS SQR POINT BRIGHT Y▗ GO SUB <u>=▝-}4 CAT OVER ATTR SGN 9W OVER IF < OPEN #[T] DRAW CODE [K] OVER ig&F>=[K])"CHR$ c NEW a▛W CAT DEF FN POKE AND oCHR$ SQR ▝VAL$ POINT OUT IF INK LET -`yy OVER >o COPY [O]7NOT NEXT [E]SGN /^FATN 3SGN PRINT ▜ABS CAT J OUT P▚ PAUSE HG} PLOT [Q]TAB DIM w/ MOVE LET K/IN PEEK RESTORE TAB OUT SQR ;y[L]PEEK ▟{[T]q[O] TO (J INPUT q+Je~Mhh|M CONTINUE CLEAR ▖ RANDOMIZE IF <=[N]EXP DFN PISQR ▝ DEF FN ~ LOAD h?4VAL r© PLOT CODE [K] RUN /qEl$%|2SGN REM INVERSE ▛[P]K<> INVERSE " FOR PAUSE gPOINT READ ABS SAVE : CAT . RESTORE ABS ATN ;[F] LOAD MERGE FPEEK TAB F©! CIRCLE NEXT STOP AINT READ ▚[SGN f▚) LET <=~ OPEN #;_X CLOSE #)r CONTINUE LINE UM RUN ▟BIN ▚TAN >w NEXT ATTR PLOT VERIFY PEEK {J GO TO RETURN [L]Rb CAT FORMAT FORMAT CIRCLE 5 MOVE STOP ?;PEEK ACS LN ~ CLS SGN PLOT N DEF FN ABS LIST ?[N];|kxIN LN }<=[G] BRIGHT LET OVER STOP m:FN :D TO ▗> CAT LPRINT } CLOSE #6 NEW RETURN [Q]USR 4=ABS l CLEAR :AT LIST -8 CAT k INPUT [I]ULEN IN PAPER COS Z STOP CLEAR >ABS VAL [D]PEEK RANDOMIZE RUN | LOAD REM <= AND ▘* MERGE *] RANDOMIZE ] OR LLIST >P▘* BORDER BEEP TO <@ LINE K INK >= CLEAR ATTR {RND DEF FN PEEK ▙ASN NEXT s▝ATTR INPUT d OVER NOT BSQR &8 BRIGHT s REM LINE sdSTR$ "k NEXT BEEP =~` INVERSE GO TO OUT RESTORE ATTR ATTR ' RETURN k CONTINUE [P] CLS SCREEN$ NEXT PAUSE READ [S] CAT "P STOP BORDER d<=BIN fqPEEK VERIFY TO ! INVERSE [LN LLIST KSQR {ycM OVER ▖BIN x NEW C CLS NOT `Ki PLOT [G]/▛©8 LOAD STR$ " NEW ASN REM CAT INPUT tSGN 6Dj LPRINT Ri4SGN SAVE E]CODE DEF FN TAN VAL$ DRAW [H] RUN h BRIGHT 2^6▖k[E]$X[M]6 POKE PIABS MOVE &m[P]IN 1▖ PLOT AND 1+7>.W~pS BORDER 1 LOAD [ PLOT -ATTR # GO SUB CLEAR RUN LN 1^z THEN PLOT .©e}[H]!▞+ FLASH 2j▖'CODE [N]INT OR RETURN VERIFY LOAD 2 PAUSE EXP PAUSE [N] FLASH AT FN MERGE BORDER [D]ATN BIN + ERASE BRIGHT -q+ ▝ PLOT PLOT ^5IN [F]<>* OVER LABS RUN PLOT READ z;ATN INKEY$;VSQR <=+IN RESTORE zx^NOT MjU[N]ZNOT B NEW $ GO SUB [G] TO :IN PAPER RUN [K]I`t RESTORE FORMAT &IVAL [C]@E<=+ RETURN PEEK CIRCLE ~VAL$ i9S' BEEP CONTINUE _ DIM [O]ASN ▟ OVER INKEY$]POINT REM VAL$ SAVE ATN EXP s▛ FLASH _'[P]ASN NEW [K]BA OR }})7 RUN <= COPY )'VAL ATTR STEP INVERSE PEEK ABS oo CLS SGN OUT f RANDOMIZE RESTORE FOR b OVER IN © STOP *VAL$ [I]* RUN CAT AlSQR q*< DEF FN 3B1 RESTORE ~VAL 'LEN [H]$zSQR ? RANDOMIZE 9+ASN CASN ZSQR s CONTINUE READ 1▛ABS BRIGHT [F]}NOT 5yCOS O^q% GO SUB [L] FLASH >]pA BEEP iPM[M]%hS▙] DEF FN IN PAUSE uK READ CONTINUE #/ LLIST [▙md NEXT yATN READ STOP U[L]C RANDOMIZE !~* CAT [L] DRAW |PEEK D BEEP M OUT STOP " TO INKEY$GtIN VAL ERASE LN "h PRINT |[jIN CAT PI COPY INPUT INT VAL ATN : OR 3$YxBIN PLOT [O] CIRCLE ATN x)~ LET q NEXT FN vw~ STOP RND MERGE LLIST _ AND tl?'}VAL$ /L DRAW ▗▟xTAB [I] OR y(0V BORDER ;y CLOSE #x LET o[K]xxTAN * CIRCLE { NEXT :| OR u"6 LOAD : LET PEEK {| OVER , READ ABS $ OR }$©uSIN ▚/S NEXT READ LN $+[B] RETURN BRIGHT ▞" POKE }R9SGN AND /STR$ ^2K^q▗RNDk LLIST G<[M]wq# RANDOMIZE ) MOVE oR&FSQR [U] RETURN "w PLOT INK CLS [C]ABS 3[G] $|o PRINT RUN NEXT > BORDER OPEN #INT SIN D|E9[C]G= LOAD [P]? RETURN PEEK INVERSE [B] DATA $ ERASE ▙<>W-[K]<>qc CLS BRIGHT [{>u DRAW # IF INT CAT [U]{ POKE COPY [J]vT OVER FOR PEEK [O]PEEK GO SUB OPEN # FOR DATA ▛ LET LEN OR => LIST OUT MOVE [P][D] INK =(O?>"~j NEW VERIFY N FLASH Zd TO ; LINE BEEP ▗5VAL$ NEXT DEF FN NEW TO TO FORMAT CLEAR ▝ LET X_!Q<>3'o GO TO <=oxY REM ASN <>;$ GO SUB INVERSE 6USR VERIFY xWBODY C FLASH FN hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211 NEXT GO SUB s▛`!`[w MERGE GO SUB VAL ` INK !<=l COPY IN 2<> GO SUB LN 1 DEF FN COS STR$ LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK !r[X' INK 1 NEXT <> DRAW STEP TAN gCODE 2)` LLIST e_/ FLASH hCOS fNOT READ <=tI▜ DRAW (TAN <> DRAW p, DRAW COPY CLS &=0 RANDOMIZE @ COPY `4USR "HUSR PINT FORMAT LLIST SAVE RUN LET CLS $CODE <= COPY DRAW RESTORE COPY [D]IN COPY COPY 1 INK ? SAVE CLS <> STEP POINT e![J]USR : COPY <=`<_CODE ACS CHR$ o COPY a, RANDOMIZE z RETURN <> LIST >=ASN IF GO SUB ,[P]s< SAVE X GO SUB PEEK LET <>5 RESTORE MERGE OR } NEW ▜_a CLS LIST COPY !0` COPY COPY o~COS _#V LLIST GO SUB [Q]~ COPY CIRCLE 6 SAVE z VERIFY W> CLS c_<INT STR$ MOVE LLIST CODE NOT ABS `~MYZO8 RETURN LPRINT MOVE ' AND _z LET SAVE READ RLEN ,OF OR FOR V?Q^ MOVE GO SUB s LET a▞▝ NEXT RANDOMIZE OR LIST MOVE s,r$X▘- CLS OUT VAL PLOT ' CIRCLE COPY 9[R]tATTR ` STEP ASN e> COPY 2ECODE USR [J][G] CIRCLE SQR @VAL$ , LLIST © IF { AND @_0 LET zz©W FOR RETURN COPY >= BEEP RETURN OCOS _ FOR RESTORE MOVE THEN IF 5- PAUSE LEN $4 SAVE RANDOMIZE FOR RETURN ? OR <ABS CODE ENOT b STEP Ce{dTAB CLEAR COPY c<>!H:"` THEN ?oNOT c<> IF NEXT RESTORE STEP PAUSE L TO R;{Goz[I]▝ COPY USR ASN RUN PIS0 IF &[J]2 RETURN LIST COPY 8_ VERIFY ▜CODE 2 LOAD ?cq, CLEAR S RETURN {PEEK LIST <> GO SUB s[C]` COPY x©[J]e NEXT 1 INK COPY ▛> MOVE ~COS SCREEN$ w GO TO c$) IF =(: COPY ©1 THEN | NEW ([G]& FORMAT [C] LLIST RUN } COPY COPY INK NEW (▘NOT [B]`>2+c:1ATN USR ! NEXT 4'▝}1 CLS `$CODE GO SUB g▛ CLEAR T DATA INK DRAW OVER PAPER NEXT 1 AND ~ MERGE COPY OVER ▞ SAVE PLOT 27 NEXT VAL$ !HN: RUN ?oX COPY ▝O&[C]:? DRAW `o RESTORE ~$f OR STEP [J] NEXT eINT dSTR$ LLIST :S PAUSE } AND Q RETURN INVERSE BORDER STEP rk[N] CONTINUE <>y▚ RANDOMIZE ©SGN COPY AND STR$ x NEW ©G THEN CHR$ RETURN `FN ;y NEW G▜`< IF COPY >P[A]2 DIM dy OUT PLOT RNDw, RETURN X[R]#F PLOT y[A]O0ATTR szN STEP Ad5▜&[E]bI,bLEN bX STEP NEXT DIM DRAW {cSTR$ >©[Q] CAT [eAu# RANDOMIZE IN BEEP GO SUB $USR } AND o[F] RETURN CIRCLE | VERIFY g<>z LET { RETURN SGN LOAD CIRCLE z LET W<>>-H$)"[B]%▞D!$[B]HD" STOP RANDOMIZE : FORMAT e INPUT *>D2O2 THEN ▙ PLOT IF GO SUB LINE OR NEXT CLEAR © GO SUB ySTR$ USR ?G6V CLS NEXT >x NEW [A]g. POKE <I DRAW $ LINE ©go>NOT ,q NEXT )~z GO SUB ^USR SAVE COPY [[F]s$r% STEP e, PLOT p$[J] OPEN #% BEEP RANDOMIZE INVERSE FOR [C] FLASH ATN CLEAR USR };f OR K RUN RUN BEEP & REM [E] CLEAR FLASH _f PRINT AND <>#~ THEN ©(~SGN BRIGHT FOR INVERSE si,$r▟ CLS %, CLS SAVE FOR N# BRIGHT IF OR BRIGHT RETURN TAN BRIGHT , BRIGHT CAT V OVER OVER zTAB @T▞ CAT ]6 COPY GO SUB VAL ?E RANDOMIZE !AX STEP 7LN ▚^ IF LPRINT JY LPRINT DIM o<>▛© DEF FN GO TO 6D[I]3F CLEAR B CLEAR <> AND $|LEN ▝ATN STR$ ©(!W LET COPY ~ NEW ABS PLOT ▝w$(|{ LET [H]g OUT [I] RESTORE RESTORE 6 DRAW [O]ABS $ GO TO SAVE SGN P GO TO GO TO NOT ABS DRAW CAT ▞ IF @P0 OR MERGE {[N][O][A] MOVE STR$ DIM BRIGHT INKEY$ PAUSE <>} INK &PEEK MOVE qo BRIGHT [R] PRINT $[K]ABS FOR NEXT RANDOMIZE INK ';M RANDOMIZE ( MERGE STOP SAVE INK THEN USR FOR [O] LPRINT SAVE #/Z0|X▞ FOR INK ▞<=}[D] BEEP j©- RETURN ASN FOR ) COPY ><>▗g FOR r#s COPY 7xLEN CONTINUE <>[I]! CIRCLE > GO SUB FN , DRAW RETURN = INVERSE :?h9| BORDER COS [H] ERASE g, RANDOMIZE LEN CLEAR #$ POKE DEF FN >=2DUSR USR IF OVER ©ABS BORDER OUT INVERSE c▚ OUT J CLS # IF COPY INK ! RETURN [R]*-`|ASN [E] CAT ;/`+" NEXT -[P]▗=.> LIST 2 RUN [Q] RUN INK ▝f> PRINT [P]'g GO SUB PRINT STEP Ehok LET LIST gBIN ©SGN !ACS t~#ATN >=^V[M]VVAL v BORDER [R]#/X[K] RANDOMIZE STEP FLASH f e8 FOR SGN d INK MOVE FOR ATN LOAD CHR$ OR IN 3| RETURN FOR RUN ERASE b DATA 7 SAVE s GO SUB *&P LOAD SAVE PAPER STR$ CAT ©*` THEN CLEAR OPEN #% RETURN |&[F]ACS $V_ READ 5o6= [N] LOAD FOR "`l-$-▗ RANDOMIZE SIN lo DIM RESTORE lABS Z=l[H] TO ASN b AND ASN b_1c LINE NEW [L]BIN ef OPEN #fTAB tfp STEP ajb DRAW DIM } NEW (▟'f SAVE > SAVE 29 VERIFY Uj}[Q] LIST THEN <~AT RETURN TAN [S] COPY LEN &>ABS ?~ PRINT 0!&t^ STEP DIM *p?! MOVE ~[T]SCREEN$ w, IF OR VAL 0' NEXT EXP "PEEK M OR STOP MOVE j LOAD DRAW SAVE NOT rk!"[J]IN X~6PI INVERSE FLASH r:! RANDOMIZE `AUSR STEP RETURN j: LOAD READ RUN ^USR NEW ? COPY 7 OR T] THEN INT PLOT !G NEW <>= OUT ▖( READ [ PLOT g LPRINT m FOR A SAVE IN NEW ewY DRAW AND !@USR OUT IN +o$[H] BRIGHT RETURN IF u▜ _ TO Q OUT !USR DRAW COPY :` NEW ATN >=G OR RESTORE STEP ▞k LLIST - NEXT zSTR$ MERGE © TO LN ▚tNOT xj]NOT DRAW T THEN SGN G MERGE INVERSE LLIST BORDER CLEAR o>2mASN IN <> CLEAR LLIST MOVE STR$ LET INK IF [A] RETURN INVERSE RANDOMIZE PRINT OR MERGE RESTORE INK IF CLEAR CIRCLE q INVERSE $BIN F LIST DATA SAVE SGN a NEW [U] LLIST PRINT > RUN *=CHR$ ATTR COPY ]k7 RESTORE > STEP Cn LLIST RUN OPEN #a` RUN LEN m<>![Q] FORMAT BEEP THEN GO SUB y GO SUB LLIST COPY AND COPY INK G MERGE ATN (n> LLIST ASN _TVAL THEN ,/ CLEAR GO TO ATTR : [J] MOVE ▚ BORDER CHR$ ACS mr[E]nnt THEN RETURN LLIST FLASH T CLEAR W RESTORE RETURN ▜▟ LET a DRAW ▛Xm THEN SGN CLS DRAW T~▘RND DEF FN COS {▘W RETURN LLIST ?▛ CLEAR zb}©▚© STEP RUN h SAVE [H]STR$ [H]>0 STEP NOT nLN LN ▙m TO iTAB SQR IN b$ LLIST CAT USR DIM STEP OR o RESTORE MERGE ▝ RETURN Gk MOVE LLIST > INVERSE OVER NOT @og1 OPEN #[E]k[O] FORMAT /h GO TO jLN TAB <>SIN AND >=▚[S] DATA REM LINE BORDER INK AT TAB ERASE q▝ LET ! RETURN +05[M]$ RANDOMIZE ▞: NEW FORMAT Fp! BORDER 4x' LET NOT ^jv8 RANDOMIZE RETURN RANDOMIZE q GO SUB pCODE 2+`<> LET x CLS INVERSE ▙pNOT THEN OR Bkr LINE PLOT MERGE s:&IN !@ AND INK CODE [G]2 SAVE PIv3[D] CIRCLE TO CLEAR OR ▙ CLEAR .▛ CLS a[G] INPUT wATN !)`TAN DEF FN 3 PRINT PRINT : POKE NEW ©2 CLS STEP P COPY b NEW ACS > CLS FLASH RETURN / NEW [T]N OUT ACS w LET dPI CLS <>[T]O! RETURN MOVE ATN ( THEN CODE STR$ t CLS 8[C] VERIFY ▖[S][D]▙<ASN ./2<[R] DRAW @ INK LLIST ~8 CONTINUE READ DEF FN CIRCLE RETURN ,[H]{ SAVE w#~ PRINT =POINT ▚ GO SUB RESTORE wCHR$ AND O[A] BORDER EXP CIRCLE y2 IF <>> LOAD ▖<=[G]▝2EXP 6* PLOT OUT PLOT 2%r CLOSE # DATA :, RESTORE 2$}|{ POKE 0 DEF FN E' FORMAT > LOAD DCHR$ RESTORE <>[K] COPY GO SUB CIRCLE >NOT CONTINUE q:' CLOSE #>=/ CAT [L] CIRCLE DATA OUT POINT PAUSE = RANDOMIZE )COS .= NEW 2 ERASE [ IF W<> INPUT 5SCREEN$ [H] INPUT < INPUT USR PAUSE d VERIFY 2(TAN COPY CLS STEP SQR M▝ LLIST MERGE ABS PRINT THEN F BEEP DIM NOT PI▝ CONTINUE STEP =NOT @}.:▖$ ERASE +sg[S]3 CIRCLE :[G] ERASE 8 REM BIN RETURN @>? COPY x<▜2 BRIGHT r_ COPY AND GO SUB D_ FLASH o&% STEP PEEK s} RETURN ![Q]~2 OPEN #r GO TO AND Z NEXT CONTINUE REM . STEP THEN s© DATA [B]2` FOR LPRINT [R]E[R]^ SAVE COS FLASH FOR O LOAD 03 CIRCLE h[G]O[T]~[T],PIEXP [U]k= DIM RND2c<>PIHH[K]<>DsH! VERIFY $ NEXT LEN [P]B[B]<=▘B CONTINUE %B!VAL ©bm PAPER zCOS >=ATN GO SUB COPY R CIRCLE RANDOMIZE RETURN IF y<>>=2 VERIFY sUSR [SCREEN$ IF CAT [T] VERIFY PEEK ( DATA =K DEF FN <2 LET : INPUT [H]i POKE INPUT LET G FLASH BORDER #OE▝! POKE OVER [O]2FN CLS STEP ATTR POKE IF THEN F PLOT 6 COPY [B] ERASE COPY RETURN DRAW P[T]@ RETURN [G] DIM IF CLS DRAW LET GO TO q[K] SAVE LIST CONTINUE [K]INKEY$ PLOT CIRCLE ▟ RETURN VAL b4 BRIGHT NJ RETURN IF PLOT IN DRAW iZ BRIGHT SAVE LIST [K]INKEY$ CONTINUE PLOT ▟ AND CIRCLE DRAW )▙ SAVE ' DEF FN p LIST DRAW LPRINT lUSR ' DRAW <= LIST LPRINT ?[D]HP POKE ▚% REM SGN COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY c COPY COPY u COPY COPY "%')+-/ SAVE COPY 02356789:;<=>? SAVE SAVE @ABC READ LET DEy TO F COPY GH PAPER [U] COPY I COPY J COPY K THEN RND COPY L COPY M COPY NATTR [H] COPY O COPY P DRAW RESTORE COPY Q RESTORE IN COPY R COPY S▛ COPY T COPY UX,$ COPY V; COPY WjILEN COPY Xk COPY COPY COPY RETURN COPY COPY CLEAR DRAW CLS IF RANDOMIZE SAVE RUN PLOT PRINT COPY COPY POKE NEXT LET LIST INPUT GO TO FOR DIM BORDER RESTORE READ LLIST OUT INVERSE FLASH CIRCLE COPY COPY VERIFY OPEN # MOVE DEF FN TO <> AND NOT USR PEEK INT ATN TAN LEN VAL$ ATTR COPY COPY PI[U][Q][N][J][G][C]▛▜©|xtp COPY COPY lhd`[WSOKFB>951,] COPY (#g▟BIN COPY aM COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY COPY ▚a COPY COPY a COPY COPY COPY ▚ COPY COPY CIRCLE `HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! G
