| Is a part of release: | Винни Пух |
| File size: | 14592 |
| md5: | 14d6646d4963b30814c2641377e054ec |
14645 REM CORRECTED BY ANDY 2 OR SCORPION! COPY
0t] NEXT !XT] COPY u GO SUB VAL ![H]]@ MERGE [A] GO SUB VAL [Q] OPEN # RETURN CLEAR w CLEAR w<> @e@/ CLEAR THEN
10262 THEN ( CLEAR THEN ( GO SUB _ THEN ( GO SUB G GO SUB F CLEAR DIM [Q]@POINT @ LET p0 ERASE @NOT @[M]:CODE [C] GO SUB Do FOR [D]G7O OR DATA +-STR$ STOP p@ GO TO +- LOAD 8c BRIGHT [S]-o▖` DRAW MERGE - NEXT GO SUB O RANDOMIZE POINT CONTINUE LLIST 9ABS )9)o RANDOMIZE LIST LOAD -8 INVERSE LLIST MOVE THEN THEN ( LLIST © CLEAR LLIST 3 THEN (3 GO SUB _ CLEAR ASN _ MERGE >= CLEAR DIM IMP PROTECTION SYSTEM '95 8USR THEN pYUSR READ PEEK INK g) READ CLEAR $ LET CLEAR t▖; LET INK THEN ( CLEAR s[E]W CLEAR LLIST CLEAR CLEAR DIM STOP LINE @ GO SUB _VAL$ w GO SUB [Q] LPRINT ; CLEAR ;m CONTINUE djo4rWGK-:GT@U&".lI, STEP INK *H:F IF x[B][P],>X'] PAUSE AT S[F] FOR PAPER NOT [M]LEN *[G]C!<>j LINE RNDAT [F]j OVER ;- PAUSE k CLOSE #FN ^lPOINT RANDOMIZE bWXM OUT ▚[M]POINT ASN ; MERGE © RANDOMIZE [E]uq~ NEW S OR r PAPER 2 PRINT THEN INK ATTR RNDCOS PJ6 REM H▜ OUT INPUT OR >= LOAD [O]EXP TAN jw+8ER_ly -:GTan{"/<IVcp}$1>KXer©&3@MZgtO/iv*7DQ^SCREEN$ 2INKEY$b RETURN ~0 MERGE RETURN H% INPUT P5 INPUT X}bYft▙nMmVAL$ 8b>+PC[N]RQLN READ [C]S[N]} RETURN [I]SQR ▖FN ▛lnK~1 RETURN ~= RETURN h) BRIGHT / LOAD = DEF FN ▚>=i=+ LOAD DEF FN MERGE GO SUB LOAD AND LLIST DRAW >> INVERSE OUT STR$ CAT REM <= CONTINUE .[H] STOP CAT SAVE >=9ACS NOT #G VERIFY TO LET TO `! OPEN #P >}1 CAT @4tq INVERSE LPRINT e!NATN [F]ptIN INK [F]}%[B][T]A^T[[B]FSGN T/[D] DIM !▟{#LEN aNs!;Nx[N]1 GO SUB ]VAL$ q#xPOINT 0 DATA INVERSE >=s RESTORE OR CAT cevtv? LPRINT MOVE e[C] READ LIST RNDSTR$ CHR$ CHR$ +p DRAW USR FORMAT ▞# BORDER wCOS % COPY LIST ATN MOVE n[R]NOT [B]COS B=^[B]?X[P] STR$ BRIGHT fJCHR$ BRIGHT MOVE DEF FN ? TO oZ DEF FN q$OpSGN *PEEK $©G/▙1oU[M]?[O]!©D/▙1$[U]Rq7`r1~ RETURN t REM LEN ERASE Q PAPER dH LPRINT BRIGHT C IF ~ PRINT ▞; PLOT ACS MOVE PAUSE 0INT INK DRAW DRAW INPUT ERASE GO TO DRAW LET [P] COPY e[J] OUT FOR INVERSE =SATTR # CLOSE # STOP THEN a( OUT BIN INK BEEP POKE INK NOT RESTORE STR$ /;! BEEP P@rOB7Z|o<>!FNZ5Sz@FN [J]zrl3sQ OPEN ##xBph[K]QATTR LrC2ec.[J]}a6 DATA <>/"bc._[D] TO PAUSE BIN [H][B] CONTINUE `[C]`[G]`[C]`▙z▜zz▜z▛`[C]`[G]`[C]`VAL$ LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN LIST BIN VERIFY ©N=!#-9 DEF FN 0^2 DEF FN CIRCLE ` CLOSE #CHR$ BIN VERIFY [Q]Rj/LN SCREEN$ [S]Y_ mD_CI[C]A[M][C]AASN [E][O][U]j~SIN ▙/sJHTAN R NEW st CONTINUE er o2j`2a<v s"D POKE COPY RESTORE PAUSE TAN #- PAUSE IF OR sBIN TO ▙% ERASE FN TAB POKE GO TO 2 INVERSE ▛LN THEN STEP THEN THEN < RUN LEN BEEP ▞b MERGE [F]~[P]c BORDER x LPRINT / DATA L>]i LIST ATTR K/-~ STOP c[C][G]USR EXP BRIGHT 0PIgR[K]PI/[L]SIN )|Ow[N]#zN: STOP 2gj▟n PAPER [E]KVAL w=z THEN [S]v CLEAR 'TAN CAT 5J3 CAT LOAD OPEN # OUT s, REM LOAD BORDER CLOSE # GO SUB CLS CLOSE # CONTINUE MERGE <=; FLASH DEF FN POKE ERASE OR 6 OPEN # THEN DIM DEF FN MERGE RANDOMIZE LINE DEF FN CHR$ LINE TO POKE POKE POKE POKE SAVE DRAW SAVE DATA CONTINUE GO TO CONTINUE DATA SAVE DRAW SAVE ▗u▖uu▖u▗ELN ESGN ELN E[U]UFN UAT UFN U[U]ELN ESGN ELN E▗u▖uu▖u▗ SAVE DRAW SAVE DATA CONTINUE GO TO CONTINUE DATA SAVE DRAW SAVE POKE POKE POKE POKE BIN 9BIN =BIN 9BIN % CLOSE #) CLOSE #- CLOSE #) CLOSE #%BIN 9BIN =BIN 9BIN POKE POKE POKE POKE RANDOMIZE CLEAR RANDOMIZE RESTORE DIM GO SUB DIM RESTORE RANDOMIZE CLEAR RANDOMIZE t▞tASN t IF srNT LPRINT NEW VP/QCOS R BEEP WTZDEBCHR$ EXP D FORMAT ! BRIGHT !zp POKE t READ FLASH [A][C] FORMAT INK nT NEXT [C]<>[N][D]<=|▚ RESTORE IF p5ACS VAL 75 POKE ▘'BIN F COPY tg LPRINT VERIFY TAB ERASE 5 VERIFY PAn| LOAD BIN IN ▗ POKE r_NOT INVERSE ]7 IF z▝ STOP SIN )7kQj MERGE OR [H][N]▝ AND {[G]s CLEAR [D]e#998S[R]SGN ][C]QAT AT AT SGN SGN SGN SGN =151 PAUSE = OR C FORMAT E LINE E ERASE ][C]U MERGE R[C]Uk_[A▘G PAUSE DEF FN AT LIST <> THEN 7 MOVE e LIST RUN + READ INKEY$ AND <>LEN READ AT LET POINT FORMAT OUT [T] LET [S] COPY ICHR$ <>ASN READ VAL LLIST @ LIST CLS LLIST PLOT VAL ') PLOT >ATN J LLIST <>l FLASH i0( PLOT O| DATA LN s5S NEW Q[F]: FLASH '[T]<[U][Q]zB-TAN W LOAD ki:INKEY$]'[G][C]BIN ABS CIRCLE t READ # OVER READ OUT PLOT m83 INK g>E~ THEN INKEY$v# INPUT REM ^ CAT 4 NEXT EXP PEEK fSIN FORMAT 9 READ AND p LET ▙ RUN + OPEN #ATN DEF FN CONTINUE FLASH DATA INPUT FOR READ FORMAT RETURN <=1 NEXT PAPER >=qq▖qqASGN ALN ASGN A[Q]QAT QFN QAT Q[Q]ASGN ALN ASGN Aqq▖qq DRAW SAVE DRAW LPRINT GO TO CONTINUE GO TO LPRINT DRAW SAVE DRAW LIST LIST LIST LIST USR =USR 9USR =USR ! FORMAT - FORMAT ) FORMAT - FORMAT !USR =USR 9USR =USR LIST LIST LIST LIST CLEAR RANDOMIZE CLEAR LLIST GO SUB DIM GO SUB LLIST CLEAR RANDOMIZE CLEAR ▝p▟p▞p▟p▝@ABS @EXP @ABS @[R]PTAB PPOINT PTAB P[R]@ABS @EXP @ABS @▝p▟pLEN p RETURN wvR[U][S]P LLIST [B] GO SUB BEEP @ INVERSE DRAW FORMAT [M]▖ACS PAUSE q[J][A] AND LN B! OVER TRNDCOS ▜ FORMAT INKEY$#USR LINE C DEF FN = LIST ▛ LIST LIST v8VATTR CODE USR zA STOP [H] RUN EXP SQR RANDOMIZE ERASE d LPRINT ▝NOT [R][T]ABS VAL qASN [I]q}FN A CAT RNDSACOS [S]CCINT PEEK ▘3▙33▙3▘C RETURN C IF C RETURN C[M]S BEEP Q AND S CIRCLE W TO CGNOT DGPEEK INKEY$SGN {PEEK ~ TO BRIGHT CAT 1 MERGE !ATN LINE TAB 1PI CLEAR PAPER CAT INVERSE STEP 1 NEXT DRAW TO #| OPEN #TAB [G] GO SUB IF COPY DRAW NEXT LLIST PEEK - NEXT ,h ERASE READ c$ NEXT e3wf TO 2[B] DEF FN }▜c MOVE [B]J1rZ[R]7ATN [L]m PLOT ={/[R]~6o[ASN ] NEW -s|©[B] LINE IN VERIFY ▝=INKEY$m LET 2 LET g c NEXT e MOVE DEF FN COPY ;ATTR o- PAUSE PISCREEN$ [R] NEW ▞ COPY [P] FOR !~=[E]- STOP INVERSE CLEAR [E] OUT TO STEP DEF FN BEEP L OUT DRAW GO SUB COPY NEXT 3 PAPER / STOP LPRINT % READ PAUSE Z RETURN S POKE { AND A CLOSE #}©}{}©}sMOMKMKM_]_][]_]SM CAT _[N]▘ SAVE SIN }©|{}©}s/ NEXT / OUT ▞] FLASH SAVE PAUSE DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE TO DEF FN TO LINE TO RETURN ▟SIN BRIGHT OVER BRIGHT PAPER BRIGHT OVER BRIGHT ERASE TO DEF FN hNx; DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE PAUSE NEXT ▟|~|z|~|rLNLJLzO[S],^/Z/^/RLNLK DIM FOR POINT ▟|~|z|~|r STOP SGN READ DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE TO DEF FN TO LINE TO <>( FORMAT , OVER BRIGHT PAPER BRIGHT OVER BRIGHT ERASE ▙ TO THEN GO SUB kx DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE CASN COS ▝+cacecacmSQSUSUSUCACECACMSQ RUN LIST [U] NEW AT [C]cabecacm! GO SUB [S] LLIST E LINE GO TO LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT INKEY$[D]>BIN CHR$ USR AND USR CHR$ USR DEF FN FORMAT PAUSE TRe/ LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT l INPUT [I]BA©[B]`b`f`b`nPRPVP.WPEEK VAL B@F@B@NPRPS+[B]`b`f`b`n-R DRAW @COS CLEAR LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT MERGE 0 LINE 0CHR$ USR AND USR CHR$ USR DEF FN FORMAT ERASE FORMAT VERIFY [A][D][J] LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT 1AS&acagacaoQSQWQWQ7AAGACAOQ RUN LLIST STOP INKEY$AT VAL$ [A]acagacao+gC3COS DATA [U] INPUT LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT NEW [C]PEEK CHR$ USR AND USR CHR$ USR DEF FN FORMAT ERASE MOVE sue' LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT fQ RETURN PQATN RUN [B]`b`f`b`nPRPVPlWPEEK VAL B@F@B@NPRIN [B]`b`f`b`n-[D] LIST `TAN ▗ LOAD LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT MERGE Z0CHR$ USR AND USR CHR$ USR DEF FN FORMAT [C] FORMAT VERIFY [B]s5 LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT ▜SS4cacecacmSQSUSUSuCSTR$ CECACMSQ<=RND.AT [C]cacecacm CLEAR C LLIST [H]VAL PI NEW DATA DATA NEW DATA STOP DATA NEW DATA REM CLOSE # VERIFY CLOSE # ERASE CLOSE #[S] ERASE :BIN AND BIN CHR$ BIN AND BIN LINE VERIFY VERIFY [E][C][N];+ DATA NEW DATA STOP DATA NEW DATA REM NEW IF TLEN SQR READ [F]dfdbdfdjTVTRTJSINT [E]FDBDFDJTV3LEN [H]dfdbdfdj([F] RETURN DTV_ DATA NEW DATA STOP DATA NEW DATA REM CLOSE # VERIFY CLOSE # ERASE CLOSE # MOVE 4 DEF FN CLOSE # AND BIN CHR$ BIN AND BIN LINE CLOSE # VERIFY CLOSE #[C][F] FLASH LEN DATA NEW DATA STOP DATA NEW DATA REM OR 35COS LEN BRIGHT n TO PRINT J COPY BRIGHT INVERSE kUWUSU[U[D]EGECEGEKUSNOT ▘FN SCREEN$ [E]egecegek# FOR E<=[B]ATN BIN [R] REM DATA NEW DATA STOP DATA NEW DATA REM CLOSE # VERIFY CLOSE # ERASE CLOSE #[S]P:BIN AND BIN CHR$ BIN AND BIN LINE CLOSE # VERIFY [E][D][N]SQR + DATA NEW DATA STOP DATA NEW DATA REM NEW REM [E][G]USR THEN [F]dfdbdfdjTVTRTISPEEK ▗FDBDFDJTVTP[F]dfdbdfdj) CLOSE # GO SUB D[C]@G[F] DATA NEW DATA STOP DATA NEW DATA REM CLOSE # VERIFY CLOSE # ERASE CLOSE # MOVE LINE BIN AND BIN CHR$ BIN AND BIN LINE CLOSE # VERIFY FORMAT R FORMAT D PAUSE AT DATA NEW DATA STOP DATA NEW DATA REM 2ATN ▘i ERASE sOUSR SNOT mSQSUSISABS CACECACMSPEEK PEEK AT [C]cacecacmaS INVERSE CP4ACS DATA GO TO LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT * MERGE .USR CHR$ USR AND USR CHR$ USR DEF FN FORMAT ERASE FORMAT AND ▘RND' LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT n RETURN @F@ BORDER [B]`b`f`b`nPRPVPL_VAL$ B@F@B@NPRP ERASE POKE BIN ▚[B]`b`f`b`n-[H] BRIGHT USR VAL ACS BORDER LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT OPEN #P DEF FN USR CHR$ USR AND USR CHR$ USR DEF FN FORMAT ERASE FORMAT VERIFY P@B1 LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT [F]INKEY$RND CIRCLE K<>z/NOT USR ioQSQWQ_QIN AAGACAOSIN SGN DATA VAL$ [A]acagacaok COPY QVZ DATA INPUT LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT b FORMAT >CHR$ USR AND USR CHR$ USR DEF FN FORMAT ERASE TRDD/ LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT , RETURN @[E]TAN AND [B]`b`f`b`nPRPVPNCACS B@F@B@NPRT VERIFY USR BIN ▚[J]`b`f`b`n MERGE USR Q PRINT LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT FORMAT ERASE FORMAT VERIFY FORMAT OPEN #▘ AND CHR$ USR AND USR CHR$ USR DEF FN FORMAT ERASE LIST VERIFY CLOSE #wf LPRINT STOP LPRINT NEW LPRINT STOP LPRINT INPUT [D][R]LEN 6 PAPER p LINE SAVE O RANDOMIZE FLASH FLASH mSQSUSISTAB CCECACMS MOVE BEEP LLIST RNDINKEY$AT [C]cacecacma GO SUB STR$ <= TO DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE TO DEF FN TO LINE TO SIN TO " BRIGHT OVER BRIGHT PAPER BRIGHT OVER BRIGHT ERASE TO DEF FN TO Z OVER DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE REM ,w▟|~|z|~|rLNLJLPL[S]/^/Z/^/RLNL[T]▟|~|z|~|r CONTINUE BRIGHT LPOINT DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE TO DEF FN TO LINE TO STEP TO VERIFY OVER OVER BRIGHT PAPER BRIGHT OVER BRIGHT ERASE TO DEF FN TO >=RND DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE IN ▛[P],}©}{}©}sMOMKM^ STEP P^[T]][]_]SMOMOM OUT OUT %}©}{}©}s LET LPRINT STOP CLS DRAW IF DRAW RETURN DRAW PAUSE TO DEF FN TO LINE TO DEF FN TO CLOSE #▘[R][G][C]CHR$ OVER BRIGHT ERASE TO DEF FN TO LINE TO REM hD DRAW RETURN DRAW IF SAVE IF / PAUSE l READ DIM IF Z[O]NNj[R] BEEP |~|z|© DRAW [AT o TO PAPER /^LSAT ^[T]ATN VAL ^/RLNMnM INPUT CONTINUE BIN }~|zx~|Rm▙AT AT VAL$ NNLJGPOINT O DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE TO DEF FN TO LINE TO DEF FN TO VERIFY #> BRIGHT PAPER BRIGHT OVER BRIGHT VERIFY BRIGHT OVER DEF FN PAPER TO ▜| RETURN DRAW IF DRAW RETURN DRAW LET ,] PI[R]PIATN TAN sqsusqs}CACECYNOT ^PCODE SUSQS]CACEC/6sqsusqs} RETURN $TAB T RESTORE CXm LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN USR CHR$ USR AND USR CHR$ USR OVER T-1rU ERASE FORMAT OVER USR CHR$ @ VERIFY USR PLEN LIST PAUSE LIST PLOT LIST LPRINT VAL RETURN USR LOAD GO SUB LET COS ASN [C]▚[G][G]AT prpvpr LIST HUSR @@Y[A]RT LLIST [Q]RP^@CHR$ DRVT!prpvpr LIST ~!▘!INKEY$ LOAD [C]B[U]S LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN USR CHR$ USR AND USR CHR$ USR OUT o2[A] VERIFY FORMAT ERASE FORMAT OVER USR NOT STR$ BORDER afd LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN ▝<=1▝CAJqsqwqsq©ACAGAtAX ERASE AT MOVE WQSQ_ACAAB RESTORE SIN qsqwqsq© DRAW SIN PEEK [S]TAN FOR H LIST PAUSE LIST PLOT POKE PAUSE LIST RETURN USR CHR$ USR AND USR CHR$ USR OVER [B]- V LET ERASE FORMAT OVER USR CHR$ USR BIN CHR$ ▞3 LIST PAUSE LIST PLOT LIST LPRINT VAL RETURN @@B LOAD GO SUB PRINT COS ATN [C][S][U]▘[A]R%prpvpr LIST l*@] FORMAT RPCHR$ PRP^@BRFR5prpvpr LIST ^%▘ ▚ LOAD [C]B!PI[U]H LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN USR STOP LPRINT AND USR CHR$ USR BRIGHT CODE 2 FORMAT VERIFY FORMAT ERASE FORMAT BRIGHT CHR$ USR ▚▞e LIST ERASE LIST PLOT SAVE PAUSE LIST COPY OR ▝L7[N]ACJ[A]sqsusqs}CACEC~B PAPER PVAL$ OPEN #USQS]CAGEGE ERASE LINE sqsusqs}X CONTINUE Q7#PIN POKE PLOT POKE PAUSE LIST PLOT POKE IF BIN AND BIN CHR$ BIN AND BIN FLASH s)5vpV CLOSE # PAPER BIN AND DBdBV< POKE PLOT POKE PAUSE POKE PLOT POKE INT ▗BBIN NEW FOR DIM ▗@S[G]Gm▜tvtrtvtr' OR <= DATA STOP DY CLOSE #VTRTVTZFFDBEb LLIST STEP tvtrtv POKE J FOR ▚▗[E]VPOINT POKE PLOT POKE PAUSE POKE PLOT POKE IF BIN ▚▗USR BIN FBIN OVER ▛ CLOSE # ERASE CLOSE # VERIFY CLOSE # PAPER OR AND `F@RR POKE PLOT POKE PAUSE t PLOT POKE IF RND▜▜[C]EF$▘[R][S][T] STEP uwusuwu{EGECE}F[J]VFN MERGE SUWU[EGEC OR GW(uwusuwu{ CAT W[F]%#[R] POKE PLOT POKE PAUSE POKE PLOT POKE IF BIN AND BIN CHR$ BIN AND DATA FLASH SQR %%ru VERIFY CLOSE # PAPER BIN AND BIN NEW USR CHR$ R> POKE PLOT POKE PAUSE POKE PLOT POKE IF BIN FOR DIM [G]PW[G]DDFi<=tvtrtvtZ DATA THEN OR <=BIN VERIFY D^TVTRTVTZDFECDb LLIST TO tvtrtv POKE z FOR ▚[G]POINT POKE PLOT POKE PAUSE POKE PLOT POKE IF BIN ▚ AND OR FBIN BRIGHT ATTR V CLOSE # FORMAT CLOSE # VERIFY CLOSE # PAPER DATA NEW df@r ERASE , POKE RUN POKE PAUSE t PLOT POKE IF # OR TAEBh INPUT [A]sqsusqs}CACEC7@ INK RINKEY$ OPEN #USQS]CACE6sqsusqsu▛[B]CATN ASN OPEN #HATN LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN USR CHR$ USR AND @B@ PAPER IN /$r MOVE R FORMAT OVER USR B`B@USR NOT TAB LIST PAUSE LIST PLOT POKE NEXT LIST OVER &ACS R LOAD GO SUB LET sASN &$▚[U]>=prpvpr LIST N LPRINT POKE @@XPRPVPRP^`FDCHR$ BPR1prpvtrp~ COPY @FI#RNDY LIST PAUSE LIST PLOT LIST PAUSE LIST IF USR CHR$ CHR$ CHR$ USR BUSR INVERSE LOAD r FORMAT VERIFY FORMAT ERASE FORMAT ^USR ERASE ERASE ▗▞▞ LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN )PI[D]A[U] DEF FN qsqwqsq©ACAGA?@ OUT P[B]WQSQ_ACAGAQ8qsqwqs`© LET [D][B][H]1JASN LIST PAUSE LIST PLOT LIST PAUSE LIST RETURN USR CHR$ STR$ AND @NOT @ PAPER /&!2U FORMAT OVER USR FD AND PP[C]FN LIST PAUSE LIST PLOT POKE PAUSE LIST [P]@#▝[S][Q]SIN LOAD GO SUB PLOT MERGE S@NRNDSQR prpvtrpn[A]@YPRPVPRP^ LPRINT AND USR VERIFY PPTAB prpvtrp~ LOAD PAUSE @! RESTORE LIST PAUSE LIST PLOT LIST PAUSE LIST IF AND NOT STR$ BSTR$ BUSR INVERSE g ERASE FORMAT VERIFY FORMAT ERASE FORMAT OVER USR CHR$ CHR$ ▗▝▛i LIST PAUSE LIST V LIST PAUSE LIST RETURN #▝CABE[U]INKEY$ LINE sqsusqs}CACEC?C]PVAL$ AT USQS]SACEB@* FORMAT sqsuw LPRINT s}aC[F]%INKEY$W DRAW RETURN DRAW IF SAVE RETURN DRAW PAUSE L DEF FN TO LINE CAT TO VERIFY #.[K][P] BRIGHT ERASE DEF FN TO ▙ LINE ▜/ DRAW RETURN DRAW IF DRAW RETURN SGN NEXT TO /▟VAL$ AT PEEK READ LLIST NEXT ©LEN NM-CODE RND[H]|~|zx~|r THEN GO TO INPUT TO T/^/Z/^/RLNLOFN OR |~|z|~|rc OVER ZG DRAW RETURN DRAW IF SAVE RETURN DRAW PAUSE TO TO TO H TO N TO MOVE [D]^ BRIGHT PAPER BRIGHT OVER BRIGHT ERASE DEF FN ▙▛▟ LOAD LLIST W DRAW ~ DRAW IF DRAW RETURN DRAW PAUSE I3[N]_$}©}y=©}s]OMNOMUZ_][]^}W DIM FOR <>I_(y COPY }{}©}s[P]U,VAL$ POINT CODE POINT SQR GO TO VAL$ SGN INT RETURN RETURN ASN SQR %#qoixXdNOT > BRIGHT PAPER MERGE COPY | PLOT HJHJ PAPER BRIGHT OVER POINT DRAW RETURN DRAW IF DRAW RETURN DRAW PAUSE LET NEXT REM ,[S]FN READ INPUT ^^^/-/FN VAL$ FN ▙INT xZ DRAW z|~|rKLEN COS ASN COS POINT [D]#[R] TO HO CONTINUE REM CLS <>~:}©]v LET REM CHR$ ▖2[T] STOP ;EXP :LN ACS NEGXZHl INPUT GO TO DRAW PAUSE DEF FN GO SUB LINE KgTAB [P]CHR$ >=▙[O] BRIGHT FLASH STEP LOAD GO SUB ohxz▟ACS ATN ASN CLS ]z| PAUSE ATN 1c5ypIN -SCREEN$ ▚▝PIRNDPI=!1s}yx OVER SIN CACEGACMsyr POKE PLOT LET so GO TO ace READ acmc33tzX VERIFY CONTINUE CACEGACM3135313/$a#%[T]-#!!7qzX[R]USR STOP STR$ f<=gWyF%[U]VAL SGN ATTR © LPRINT NEW @ AND LIST DRAW PAUSE SIN VAL RUN EXP SQR !USR CHR$ USR AND USR CHR$ USR DEF FN 5 OR CAT PLOT 0N[F] THEN INVERSE PAPER ' ▚[U]SCREEN$ [U][S] 6ryyASN LPRINT BUSR VERIFY @BBNwTAB ▞[G]0.[P][N] LPRINT vr" .8sP PLOT CLOSE # VERIFY AND CLS JGA BORDER USR DEF FN 7 STEP VERIFY 66[S]0VAL$ COPY BRIGHT !* ""6ry[[R]▞▛`GdFUSR N LIST PAUSE [C] PLOT NEXT PAUSE g[P]fDv` NEW PAUSE DRAW LIST COS LEN ATN [B]1▛▘STR$ <= LLIST fd DEF FN 1##7s{q/RND3COS =3q3~hJ OVER VAL @CAGECAOqwp PLOT MERGE NEXT qk. READ agqcaoc30vp CLOSE # SAVE A#AGECAO1317131-& READ !'▝▜RNDSQR 1[R]#uq[Q] PAPER #CHR$ ` AND STR$ wDZd`[Q][U]VAL ABS [J]INKEY$IN DATA b` PAUSE LIST DRAW PAUSE SIN VAL ATN EXP [D]]*USR CHR$ USR AND USR CHR$ @ DEF FN ATN STEP CAT PLOT 2`yO OUT OVER ▚▗▚▗.[S] 2trq CLS [T]A DATA FUSR CHR$ USR Nw▟[P]▞[G][S]>>[N] DATA CHR$ drrl"00>yW INVERSE CLS PPFAO1 STEP VERIFY 6LEN PAUSE p.? DEF FN h/)#▝VAL SIN TAN 2"`cQ)gdbdCHR$ P OVER LIST PAUSE PLOT LEN SIN p RETURN f DATA PAUSE p LIST LPRINT INPUT LIST SIN EXP [P]]WW![C][A]<>CHR$ >= CAT [D]35113MK!c$TAB ATN !!7qkyINT CACEGACM{p RUN PRINT BEEP LET so DATA LLIST cecaco31;t ERASE CLOSE # VERIFY RANDOMIZE cSTR$ OPEN # OR CACM3135313,$a#%caco{0R[B][F]}d AND BIN CHR$ AND <[G]ASN PRINT _SP RANDOMIZE P^ FLASH POKE [Q][U] NEW DATA READ PRINT WpRUSR @b5BIN AND BIN CHR$ BIN AND BIN LINE 7I THEN OPEN #[J] DATA ' SAVE FLASH ERASE $24$dj553[B][D] DRAW TFDBDFJs▞[L][N]▞ACS ERASE SCREEN$ [J]INKEY$ &&ej CLOSE # ERASE FORMAT VERIFY LPRINT LPRINT [T]SGN DDJ5 FLASH FORMAT 2SIN (k OVER ,k-▙[A][C][Q] &toRNDrF VERIFY FORMAT ▚▚▗ POKE PLOT PAUSE LIST BTj DATA [U][S][U]PI RESTORE KTvpFr[Q]"=[G]▗▗CHR$ GO TO <=d REM ASN ATN ASN 3'?}&$[T]▝CODE RND%'i NEW /JTAN E<=ECAGEKuv LLIST s▝wuhB BORDER ecegg)5w}r CLOSE # OPEN #USR DRAW AGECUGEK5753575+PI%!%''k}7COS [B][D]BIN AND BIN CHR$ AND ▗▗ THEN POKE CLS INK Rpbpnr[U][S][U]CODE DATA FOR PRpvd LPRINT &= LPRINT FBIN CHR$ BIN AND BIN LINE 3<> THEN STEP FLASH ERASE +> FLASH BRIGHT 6`tflk5SIN ▛ CLEAR DFDBJk▞▛▟STR$ [T]e+ FLASH [J]&*%'m THEN FORMAT ERASE LIST PLOT be[S]1' OR REM ASN <> AND 24PI[E]j{ VERIFY ,+▘[Q]▙VAL ACS $ fmE`b@F CLOSE #BIN ▚ POKE PLOT PAUSE LET RZINKEY$ LPRINT VAL ACS [U][U][T] POKE RUN MOVE WPCA5▙▟▟ FOR OR b`nATN LEN 351p NEXT TAB +[Q][S]▝▜RND'=##a~zZ/SIN CACECACMsq)u!qsl DATA LLIST ce READ aCI NEXT MERGE NEXT ua READ )6CCCECACM313536[R][DSTR$ ce*[U]▜POINT ATN 1''cch1USR ▘USR <=STR$ STOP USR DEF FN LIST D LOAD 6 LIST AT SIN , OUT LPRINT NOT DFd RETURN bVAL STOP TAN RANDOMIZE EXP 1USR CHR$ USR AND USR CHR$ USR LINE 7 STEP CAT <> CAT USR FORMAT _ OVER )g▗SCREEN$ TAN SIN "t"p LOAD LEN @B@F@bBIN LINE RUN ▟[H][I]sVAL REM OVER [P]USR CHR$ BIN NEW LIST l``r60:[N][R]A READ LLIST STOP DATA AND FORMAT N0 STEP CLOSE #632p~CHR$ SIN 0 "lry07[F][H]1 FORMAT ▘▜USR CHR$ ▝ INPUT LIST r▗ PLOT PLOT STOP AND [I][M][S]FN CODE LLIST AND DJ LIST PAUSE LIST LPRINT [S]FN ATTR 5dfdbP FORMAT ERASE ▙13q6]7LEN -1335s!afx[F]▗ DEF FN VAL ACAGACAOqs[R]wqsqob[T]aga READ OR THEN LET wagc!*SGN AGACAO1317[F]AT DEF FN INVERSE nNOT !'!▜▝CODE [R]3#%3881USR CHR$ USR AND @CHR$ USR DEF FN LIST /6 LIST FOR "SCREEN$ [P]`BDv DATA RETURN STOP LIST SIN ATN LEN [L]U9▘USR AND USR CHR$ USR DEF FN 7 STEP CAT <> CAT NOT CLOSE # OUT OUT #[R]▗SCREEN$ $2"4ryY[R] LPRINT AND USR FRBP LET COS R_[M]rt" &1sQ ERASE CLOSE # RUN AND VAL Ba STOP BIN J0M NEXT 62:x-[C]▘▗INKEY$4PEEK 2 2|{} CAT ![C] FORMAT USR AND ▝C`n FORMAT PAUSE F NEW NEW LET t LOAD X STOP LLIST NEW aFDjd PAUSE LIST DATA SQR POINT 1[C][A]▘▚▖▖ DEF FN COS ASN -csTAB [D]abd▞ATN 5COS 'acL[G]CSTR$ CECACMsqsusqsml LLIST ceca#mrU NEXT LET BEEP u OR IF CSAACM3 PLOT AND ▘<= INPUT ▗ FLASH / LLIST #e+ ,[H][F]COS LEN PIge OR <:<:,.,2 LET NEXT REM 3INT Vc RETURN ^//ROTAB VAL$ FN SCREEN$ SCREEN$ /PEEK <:<>82 THEN q7qs.jUSR READ BRIGHT OVER BRIGHT TO DEF FN ERASE TO TO LINE mkmVAL$ PEEK DRAW INT SGN PEEK SGN qs*▟[N][K]9[P]86▙▖ DEF FN INVERSE BEEP M[N],PEEK SGN SIN TO LINE - LINE STEP No▗[M][D]▟ CAT STEP oh{y STEP ABS [L][K][I]INT LN 2▚FN ▖▙M READ [Q]ATTR READ STEP ~l|p|© ERASE -OM THEN CAT THEN ▞ OPEN #ASN [O][N] IF CLEAR ?] OPEN # INVERSE OUT OUT ▟ MERGE [E]6L▜▜▛ASN ATN ASN COS ASN ATN ASN ATTR RNDPIRND[T]RNDPIRNDATTR ASN ATN ASN COS ASN ATN ASN ▛▜▜▛ PRINT RUN PRINT NEXT PRINT RUN PRINT FOR RESTORE BORDER RESTORE READ RESTORE BORDER RESTORE FOR PRINT RUN PRINT NEXT PRINT RUN PRINT 4642464*$&$"$&$*4642464 POKE PLOT POKE PAUSE POKE PLOT POKE REM DATA NEW DATA STOP DATA NEW DATA REM POKE PLOT POKE PAUSE POKE PLOT POKE ▗▚▗▘▗▚▗TAN ACS TAN SIN TAN ACS TAN SCREEN$ [U]INKEY$[U][S][U]INKEY$[U]SCREEN$ TAN ACS TAN SIN TAN ACS TAN ▗▚▗▘▗▚▗ POKE PLOT POKE PAUSE POKE PLOT POKE REM DATA NEW DATA STOP DATA NEW DATA REM POKE PLOT POKE PAUSE POKE PLOT POKE 4642464*$&$"$&$*4642464 CLS RANDOMIZE CLS CLEAR CLS RANDOMIZE CLS RESTORE FOR DIM FOR GO SUB FOR DIM FOR RESTORE CLS RANDOMIZE CLS CLEAR CLS RANDOMIZE CLS ▛▞▛▟▛▞▛SQR EXP SQR ABS SQR EXP SQR RNDATTR POINT ATTR TAB ATTR POINT ATTR RNDSQR EXP SQR ABS SQR EXP SQR ▛▞▛▟▛▞▛ CLS RANDOMIZE CLS CLEAR CLS RANDOMIZE CLS RESTORE FOR DIM FOR GO SUB FOR DIM FOR RESTORE CLS RANDOMIZE CLS CLEAR CLS RANDOMIZE CLS 8:8>8:8&(*(.(*(&8:8>8:8 SAVE IF SAVE RETURN SAVE IF SAVE NEW CONTINUE REM CONTINUE INPUT CONTINUE REM CONTINUE NEW SAVE IF SAVE RETURN SAVE IF SAVE ▚▖▖▙▖▖▚LN INT LN PEEK LN INT LN INKEY$FN SCREEN$ FN VAL$ FN SCREEN$ FN INKEY$LN INT LN PEEK LN INT LN ▚▖▖▙▖▖▚ SAVE IF SAVE RETURN SAVE IF SAVE NEW CONTINUE REM CONTINUE INPUT CONTINUE REM CONTINUE NEW SAVE IF SAVE RETURN SAVE IF SAVE 8:8>8:8&(*(.(*(&8:8>8:8 RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE BORDER DIM FOR DIM LOAD DIM FOR DIM BORDER RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE ▜▞▛▞▞▛▞▜EXP SQR EXP IN EXP SQR EXP PIPOINT ATTR POINT CODE POINT ATTR POINT PIEXP SQR EXP IN EXP SQR EXP ▜▞▛▞▞▛▞▜ RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE BORDER DIM FOR DIM LOAD DIM FOR DIM BORDER RANDOMIZE CLS RANDOMIZE COPY RANDOMIZE CLS RANDOMIZE 8:8>8:8&(*(.(*(&8:8>8:8 SAVE IF SAVE RETURN SAVE IF SAVE NEW CONTINUE REM CONTINUE INPUT CONTINUE REM CONTINUE NEW SAVE IF SAVE RETURN SAVE IF SAVE ▚▖▖▙▖▖▚LN INT LN PEEK LN INT LN INKEY$FN SCREEN$ FN VAL$ FN SCREEN$ FN INKEY$LN INT LN PEEK LN INT LN ▚▖▖▙▖▖▚ SAVE IF SAVE RETURN SAVE IF SAVE NEW CONTINUE REM CONTINUE INPUT CONTINUE REM CONTINUE NEW SAVE IF SAVE RETURN SAVE IF SAVE 8:8>8:8&(*(.(*(&8:8>8:8 CLS RANDOMIZE CLS CLEAR CLS RANDOMIZE CLS RESTORE FOR DIM FOR GO SUB FOR DIM FOR RESTORE CLS RANDOMIZE CLS CLEAR CLS RANDOMIZE CLS ~ READ COS ▙▖P[I][G]FN [T] OR ▘[S][E]▘[D] OPEN #[E][D]Fp3l CIRCLE NOT VERIFY CODE pr BEEP CIRCLE [S]SIN 7STR$ RUN NOT (s FOR NOT [N]▜ LIST RUN DATA [B] ERASE NEW <=$ LINE ▝▙ SIN D FOR Pt FOR J: INK VAL *, FLASH j<>p CAT 7 THEN 7TI~ DIM X4 LOAD R7- LOAD /CODE [U]LEN BORDER TAN RUN RUN LINE RUN CLOSE #[K] MERGE <=▗NOT NBIN PAUSE INT wu▜LEN TAN IN TAN SGN ▗CHR$ ▞▗ RETURN ▗[E][E]-[E][E]#[E]▘▗ DRAW ▗[O]▗ PLOT ▗RNDTAN TAN [B]TAN BIN TAN [N]BIN sBIN DIM BIN SIN BIN FOR CLOSE #l CLOSE # BORDER CLOSE #[Q] CLOSE # STOP BIN GBIN RANDOMIZE BIN ABS BIN 4TAN 4s4ASN 4uPOINT Q▟LK▞D©`_4RND4Z4ATTR 4Q OR CIRCLE STR$ q OR h OR MERGE MERGE MERGE MERGE # OR g OR ? OR ABS OR SQR TAN SIN TAN ASN TAN ASN ASN ▗ RUN [G]▗NOT ▚▘[E] READ [F][E]8[F]LN ▗2[U]▗ DRAW [B]TAN ASN [N]TAN LINE ASN BIN r OR PLOT BIN LN OR [P] CLOSE #VAL$ MERGE [L] CLOSE #VAL$ MERGE [A]BIN I<=▟BIN IN OR k5O4g5SIN 4b?YiDmq INPUT |}k[O]V5M4B5LN 4I OR COPY OR TAN OR D OR [T] MERGE ATTR CLOSE #VAL$ MERGE N MERGE RND OR SQR BIN A OR ^BIN <ASN ASN ;ASN 8ACS 6 RANDOMIZE ▗[F] DIM [E][F][G]@'rASN eASN ASN ]ASN OR OR p OR 7 OR m MERGE AND VERIFY MERGE N MERGE OR VAL BIN OR iBIN ERASE 5VAL$ 5>=5D4<=POINT [O]LN INT >t%POINT 6VAL$ 5j6 PAPER 5WSTR$ fNOT LN STR$ FSTR$ Y MOVE Z MOVE ] MOVE © OPEN #RSTR$ ENOT WSTR$ POKE STR$ +LEN ▟VAL /LEN 6COS ▝A&▝):[B][D];[B]+[B],▝ CONTINUE ▝1▝COS LEN COS LEN COS STR$ VAL STR$ STR$ ONOT MOVE DATA MOVE MOVE > MOVE STR$ CLEAR USR STR$ PNOT DIM 2 PAUSE 0 GO TO 2[K]0 LLIST SCREEN$ DATA k SAVE [M] COPY PAUSE [R] DIM FN STEP 2C2STR$ 2SCREEN$ 0BIN CHR$ RUN CHR$ <=NOT REM NOT FLASH OPEN # INPUT OPEN # OUT OPEN #I FORMAT ERASE NOT USR <>NOT jUSR INKEY$COS VAL TAB COS FLASH SIN [R][U]VAL SQR [D]7[A]PEEK [D]9[A]SIN NEXT ▘POINT [N]▗ RUN COS GO SUB COS POINT TAN VAL ▚BIN GO SUB BIN AND USR READ USR OVER ERASE FORMAT FORMAT ERASE #[Q] PAUSE CHR$ USR DATA USR CHR$ READ NEXT 02*%0> GO SUB Q STEP NEXT CNOT INVERSE NEXT S' STEP >0 INK 600> READ NOT STR$ NEW STR$ NOT FORMAT OUT MOVE ERASE CLEAR BEEP [R]>a>USR STOP STR$ hNOT STR$ ▘COS LEN LEN COS IN ▝ABS ASN ▝[S]ABS [B][D]COS [H][B]LEN [B][P]L▝|HCK[{ACS zvATN VAL TAB ' CIRCLE > OUT MOVE OPEN # MOVE BEEP MOVE OPEN #4>NOT STR$ <=STR$ NOT STR$ > MERGE SAVE CAT 6020> RESTORE TO COPY PEEK LINE CLEAR 02nf FLASH ?USR CHR$ <>- CLOSE #USR ▝WQ<>VAL$ OUT ABS DEF FN VERIFY CHR$ USR POKE { OR ACS TAN rSIN VAL DRAW f[N] BORDER [ OVER ] LPRINT [A]gvf[P][N][P][B] BEEP sf▞ LOAD _KIN OVER z{Ty▖VAL PEEK READ USR AND ~USR OVER ©[N] GO TO DATA FORMAT ERASE EXP SAVE USR FOR -[N]USR CHR$ INK pL60K> STEP = INVERSE CLS C OPEN # GO SUB U STEP >0 OUT c60 CLS GO SUB STR$ 1SQR <TAN OUT FOR OPEN # MERGE INPUT READ OPEN # INVERSE STR$ NOT COPY NOT STR$ LET ABS COS l[C]ASN COS |COS ABS q▝CODE ▝ CLEAR [R]_[B][D]IN [D][B]^[N][T]^[Q]ABS ~LEN COS GCOS LEN [J]ABS NOT NOT OR LLIST STR$ NOT PAUSE MOVE OPEN # OPEN # MOVE ! INVERSE NOT FOR NOT OR > COPY :<@CHR$ R VERIFY STOP [O] AND CLOSE # PAUSE AND LIST ▙ SAVE <>CHR$ ASN NEW >< DATA mSQR >=EXP 3 LET OVER BRIGHT ATTR OUT DATA TO DEF FN DRAW THEN INPUT LOAD {j OVER YSQR OUT PEEK [G]SIN CCODE S RANDOMIZE [B]A REM [I]{IN ][M][C]CODE SINT ▟sG#SCREEN$ PEEK h TO _ABS [P]SGN [I] TO DEF FN LINE TO GO SUB PI INK FN BRIGHT CONTINUE " ERASE - GO SUB LINE TO L<>D<2 MOVE 8 PAUSE DIM [R]34 MOVE 1 MOVE { BEEP x GO SUB LET <> LLIST D; POKE LIST INT TO 8COS OPEN #[C] READ ;BIN FN INVERSE "[D]>=[J]<>[C] INVERSE IN [U] OR EABS COS CHR$ COS k[E]P SAVE ▟VAL READ [T]@ GO TO [K]V DATA $M NEXT IN ▛▟FP STEP INT ufNOT A{3 STEP THEN STEP CLS - OUT INVERSE FLASH r GO SUB INVERSE OPEN #) GO TO CAT STEP COPY <>E<> LLIST SGN .<== CAT r0USR <:>< TO DEF FN SQR TO DEF FN NEXT BRIGHT OVER PAPER BRIGHT [S] MERGE LIST TO LINE ASN DRAW TO SIN a[E]SGN INT qPEEK SGN ▖▙=:PEEK ▙_[M][O]ASQR [M][O]Q[C]AT TAB ▙ OR qPEEK SGN g[N]PEEK SGN © TO DEF FN TAN THEN PAUSE ERASE BRIGHT PI INPUT PAPER BRIGHT PLOT ERASE TO TO LINE PLOT DEF FN TO RANDOMIZE = PRINT <▟<2STR$ OUT >?{NOT CAT LLIST T9 READ Z4CHR$ FORMAT OPEN # TO STR$ D[K] MERGE STR$ STOP STEP OPEN #>=▟ PLOT :/hNOT ▛[R]hINT d4|STR$ /k[P] READ ▞[ATTR ▚[L]c[M] NEXT [I]sRND CLS POINT C[S] OUT INKEY$ATTR SCREEN$ c BEEP [D] OPEN #? CLOSE #G>=▜BIN ;STR$ s OR COS <> COPY MERGE # VERIFY m ERASE W-x!% VERIFY REM ,SIN lH( SAVE OUT CHR$ SGN ku/q#'#</ FLASH OPEN #, VERIFY ? ERASE 1 DEF FN CHR$ AND }CHR$ r DEF FN x ERASE O VERIFY F ERASE ^VAL$ %[S] OVER INKEY$ BEEP [S] FORMAT VAL$ CLS [C] POKE [G] DEF FN [C]<>▙ CLOSE #▘ CAT ▚ THEN ▘<=▙ ERASE [C]CODE [G]ATTR [C]FN VAL$ [F][S][C]INKEY$[S]VAL$ IF ERASE RUN VERIFY PRINT ERASE NEXT DEF FN LLIST CHR$ OUT AND INVERSE CHR$ BRIGHT DEF FN LINE ERASE <> VERIFY <= ERASE AND .5"3&2"1.1[R]ACS <& CLOSE #%;9 FOR GO SUB CLEAR W&[N] STEP ▟ FORMAT . CLOSE #n OPEN #' BEEP ATTR LINE [C] LLIST ▝[I] LOAD ▘▜ LET [E][O][O]▝ NEW GO SUB NEW LN POINT [Q]AT ▝CODE [P]ACS PEEK [K]INT STEP [N]ABS ▖LN ;▛ABS j[G]SIN ▞▞PEEK CIRCLE [R],TAN [F]COS [N]B▘▟ PRINT LET PLOT ▗ LIST RETURN S CAT NOT STR$ STR$ NOT CAT MOVE MOVE BEEP OPEN # MOVE INPUT " LPRINT & STOP . FORMAT VERIFY FORMAT USR DEF FN FORMAT ERASE . LPRINT " NEW " , COPY PAUSE FORMAT [J]p ERASE _nUSR DEF FN @ AND TO BUSR CHR$ P ERASE BRIGHT V FORMAT OVER PVAL$ AT "[Q]SCREEN$ [S]AT .[A][O][G][M][A]▘▘▙▙[M][A][K][C][M].[Q]VAL$ INKEY$AT "[Q][S]P ERASE BRIGHT V FORMAT OVER P DEF FN TO BUSR LINE @CHR$ TO N FORMAT OVER P VERIFY BRIGHT R FORMAT "[Q]",INKEY$ .[Q].9._VAL$ m[Q][S][A][G][A]*,[S]"*",▙ MOVE INVERSE s MOVE OUT q MOVE STR$ CSTR$ CAT ESTR$ STEP C<> OUT Q MOVE INK s MOVE OUT [R]TAB [R]CODE [R][R][B][P][B][N]▞▝▞#▝-[B][N]3[B][P]1[B][R]#[R]CODE %[R]TAB #POINT OUT Q MOVE MERGE OPEN # MERGE INVERSE MNOT CAT C OR DEF FN ANOT USR S MOVE OUT U OPEN # INVERSE S*(INKEY$$.[U]&(SCREEN$ [E][G]▗▘▗[G][E]$*▗ (▚ &t CLOSE # CIRCLE R CLOSE # PAPER T>=>=FUSR DEF FN DBIN >=j CLOSE # PAPER t FORMAT CIRCLE v FORMAT INKEY$[U]FN "[U]SCREEN$ $FN [I][A][O][E]▟▝▛▘▞▗▚[G][I][E][N]SCREEN$ CODE &[U]FN $INKEY$VAL$ * CLOSE # OUT T ERASE INVERSE V CLOSE #CHR$ D AND TO BBIN STR$ D LINE OPEN #V CLOSE # CLOSE #T VERIFY ERASE SCREEN$ $#[U]"!INKEY$$.[E][C][E]▚▗[E][G]+[U]&%[S]$'[U]* CLOSE #W MERGE ERASE U BEEP CLOSE #K OR <= OR OR THEN G OR OR U BEEP CIRCLE S MERGE PAPER UATTR POINT 'RNDCODE %PIVAL$ +[F][M][D][P][F]▝▜▙▛[N][F][L][H][C]+RND[Q]%[T][T]'RNDTAB U BEEP FORMAT S MERGE ERASE U THEN STR$ G OR <=E<= AND K MERGE CLOSE #U OPEN # BEEP W MERGE ([U]&%[S]$'[U]*[G][E]▗[E][C][E]*-INKEY$$*[U]&,SCREEN$ CLOSE # MOVE T ERASE OPEN #V CLOSE # TO D AND CHR$ BBIN NOT D LINE MOVE V CLOSE # VERIFY T VERIFY FORMAT *[U]RND$[S]PI&[U]FN [G][G][E][H]▗▚[E][H][C][F][E]ATTR $INKEY$RND"[U]PI$SCREEN$ MERGE V CLOSE # OPEN #T VERIFY MERGE JBIN <=DCHR$ OR FBIN LINE CLOSE # OVER CIRCLE R CLOSE # PAPER T*/INKEY$$)[U]&.SCREEN$ [E][G]▗▘[E]SCREEN$ $ [U]"!INKEY$$/S MOVE BEEP U OPEN # MERGE S STEP USR ANOT AND CSTR$ STR$ M OPEN # OPEN #S MERGE ERASE Q OPEN #AT #[R][S]%[T][Q]#TAB [C][D][E][B][C]▘[B][D][F][K][N]TAB CODE ![T]POINT #[R]CODE - OPEN # INVERSE S MERGE OUT Q OPEN #STR$ CSTR$ CAT ENOT STEP C STEP OUT Q OPEN # INK S MOVE OUT VAL$ .[Q]&,[S] "[A][G][A]▙[A][C]"[Q]",INKEY$ .[Q]. BRIGHT R FORMAT PAPER P ERASE BRIGHT NUSR DEF FN @ AND TO BUSR CHR$ P ERASE BRIGHT V FORMAT <= FLASH [U]CODE "[Q]FN [S]TAB .[A][I][G][G][A]▘F▘@▙[A]R[A][G]P[C][A]n[Q][S]`INKEY$[Q]b[Q]VAL$ ERASE FORMAT FORMAT ERASE DEF FN USR USR AND CHR$ USR FORMAT FORMAT . LPRINT " NEW " LPRINT . ERASE FORMAT DEF FN USR CHR$ FORMAT . ",*`"*n MOVE FLASH [B] BEEP BEEP [D] MOVE THEN ▝NOT CHR$ ▜STR$ STR$ ▝ CAT FORMAT [D] MOVE BEEP MOVE OPEN # MOVE CODE [R][T][R]PI[R][T][R]CODE [B][D][B][H][B][D][B]▝▝▜▝▝[B][D][B][H][B][D][B]CODE [R][T][R]PI[R][T][R]CODE MOVE OPEN # MOVE BEEP MOVE OPEN # MOVE CAT STR$ NOT STR$ <=STR$ NOT STR$ CAT MOVE OPEN # MOVE BEEP MOVE OPEN # MOVE . " & //[C]▚[A]VAL$ )[Q]&*[S] $P ERASE INK V FORMAT FLASH P DEF FN <=BUSR STR$ @CHR$ AND N FORMAT CLOSE #P VERIFY MERGE R FORMAT ATTR [S][U]&[Q]INKEY$ VAL$ [D][A][F][C][C]▝[C][B][A][D]VAL$ [R]"[Q]PI [S][Q]VAL$ LINE OPEN # FORMAT CLOSE # FORMAT MOVE FORMAT LINE USR <=USR USR USR OR USR AND FORMAT FLASH FORMAT BRIGHT FORMAT INK FORMAT # ) * + #. " & " . OPEN # MOVE OPEN # MERGE OPEN # MOVE OPEN # STEP NOT STR$ NOT OR NOT STR$ NOT STEP OPEN # MOVE OPEN # MERGE OPEN # MOVE OPEN #TAB [R]TAB [T]Q[T]TAB [T]Y[D][N][D]a[D][N][D]y▟q▟y[D][N][D]a[D][N][D]Y[T]FN VAL RND[T][R][T]TAB OPEN # MOVE OPEN # MERGE OPEN # MOVE OPEN # STEP NOT STR$ NOT OR NOT STR$ NOT STEP OPEN # MOVE OPEN # MERGE OPEN # MOVE OPEN #2<>26<><22<><;28&4 REM >= DEF FN READ LINE CLEAR LINE DIM PAPER INVERSE ERASE BRIGHT AND CIRCLE STOP CLOSE #>= BORDER LINE RANDOMIZE LINE LINE ATN POKE LN INKEY$SGN ▘LN INT OUT ▞[G][E] [I]c[M][E]TAB [K] INK ▛▛s▖0TAN eEXP ACS TAN TAN BORDER TAN $BIN OR CHR$ TO <= FLASH FORMAT Q MERGE k MERGE 2 MERGE OUT POKE BIN [R]USR cBIN CHR$ <>67 LIST 41^9POINT WATN BEEP READ VAL I▗k4- LET 6 ERASE 2.? INK ATTR USR MUSR fUSR AND ! ERASE MERGE MERGE CAT MOVE "cPOINT IN READ c RETURN k SAVE }[A]B INK CAT [P]SCREEN$ +[U][R]MAT rs`- COPY GO SUB AT 5INKEY$SQR OPEEK t=FN %[K][H]©[K]D]>Bs[U]IN CHR$ OUT 2 PAPER BRIGHT "}INT [S] NEXT DIM CONTINUE LPRINT READ RANDOMIZE SAVE SAVE READ RANDOMIZE SAVE T9!4<9!4$)1$,) LLIST PEEK w ;?% ;?SCREEN$ LPRINT IF COPY COPY LPRINT IF BORDER LOAD LIST REM LOAD LOAD LIST REM BORDER COPY 1|VAL$ FOR f RESTORE [I][L]ATTR ,ATTR TAB -POINT ATTR 0SQR EXP cZ PRINT ▞*[N]( LOAD DRAW POINT -TAB .[B][N][J]C PAPER TO PLOT [S] CONTINUE AT PLOT [S] CONTINUE TAN NEW SIN SAVE SGN NEW COS BORDER TAN PLOT [S] CONTINUE AT PLOT [S] CONTINUE TS/ST4b(l4b(t$r8|$s&t4b(l4b(TS/S STEP aPICOS LINE bATTR TO ~ASN OVER q PAPER rSQR BRIGHT ~RND DEF FN a BEEP BEEP DEF FN b BEEP SGN MERGE INT PEEK BEEP " RESTORE ![D][H][F]2 CLS [L]6 PRINT [J]1[F]" FOR ▛& RESTORE ▞!ACS PEEK EXP OUT SQR MERGE ASN a<>bCODE THEN bRND MERGE q PAPER OVER *qATN RESTORE LEN BORDER PI PRINT POINT BORDER PI PRINT RT[TR$d6j$d6s(t*{(t#r$d3j$d3RT[TR DATA [U] NEXT ATTR PLOT [U] SAVE COS NEW TAN REM SQR FOR -rLN VAL <>aAT THEN aINKEY$ASN EXP BRIGHT SQR VERIFY ASN "▟! CONTINUE ▛= PLOT [J]2[N]1 SAVE [L]= NEW ▞"▛▟! CLOSE #IN VERIFY EXP ABS CLOSE # CAT aINKEY$<>b FORMAT CLOSE # MOVE qLN OUT uACS INVERSE r MOVE aFN CAT eINKEY$ STEP b,$ STEP [D]U@[B]/"INKEY$c$b c<COS p7ATN s5TAN |'a)d*[R]c[B][E]TQ/ STOP `[S] DATA `[R] STOP {SIN LIST COS POKE SIN LIST .}PICOS LINE fATTR >=b INK INT INT FLASH LN INK !▖" FOR [E]2 PRINT [K]5[K]2 CLS [E]" RESTORE %▙ FLASH SGN MOVE PEEK PEEK ATTR TO b[R] DEF FN a OPEN # THEN OVER rVAL SAVE s DRAW p PAUSE c INPUT REM f CONTINUE FOR c STEP [C]PN/f4l"f4l:v$}.v$|:f4l"f4mV]INKEY$ LET AT STOP INKEY$ LET AT IF ACS LLIST ABS LPRINT tTAN READ | NEXT POKE SAVE LIST IF RANDOMIZE ? OPEN #[F] CLOSE #[H] OPEN #[J] STOP RND READ [R]# LPRINT POINT ? NEXT SQR 4 POKE EXP LET INT DRAW SCREEN$ ! READ [R]! LPRINT PI OPEN #[F] ERASE [B] OPEN #[F] BRIGHT BORDER c[T] LLIST d[Q] BORDER RANDOMIZE COS PRINT /uCOS [S] PAUSE ©[S] LPRINT dRND STOP [Q] STOP ][B]R[B]Q[K]b%c/b([T]}3COS r5TAN q3|#a#RNDb![R]][G]RSR<cRNDASN GO SUB AT PRINT SQR NEW SGN LPRINT COS CLEAR SGN RESTORE SQR PLOT AT LIST [T] GO SUB AT PRINT FLASH ▚ BRIGHT OPEN #[N] BRIGHT FLASH ACS GO TO VAL READ AT GO TO SQR CLS RND DRAW INKEY$ NEXT SGN DRAW ATTR CLS ASN GO TO ACS READ AT GO TO SQR FLASH BRIGHT ▚ OPEN #[M] BRIGHT ▛ FLASH PRINT AT PLOT :aPIABS ERASE rSQR BRIGHT vASN OVER q ERASE bATTR TO fRND DEF FN a( 9[F]X;[F]R5INKEY$RNDhRNDbACS ASN |EXP b[J]R>[G]99>[F]P TO e[S] LINE f DEF FN eVAL BRIGHT uSIN PAPER v INVERSE INK %gRND READ c READ b READ [N][D][N][N][N][A]VAL$ %[T]#[T]"[T]ABS COS 5COS 3COS 2COS ABS [T]y& DATA FN FOR LEN BRIGHT ▜ FLASH [L] CLOSE #[I] FLASH ▝ BRIGHT RUN ATTR FOR [U] CONTINUE ATTR LET SGN BORDER SQR CLS TAN SAVE SQR LLIST SGN RUN ATTR FOR [U] REM ATTR PAUSE /[T[/1k7d*01): !! FOR TAN rdPInPI`[I]?[H]^9[H]P?[I]>=>= DEF FN bCODE TO fABS OVER u OVER rIN BRIGHT vABS DEF FN e>= TO LINE fCODE TAN MOVE INT INT OUT TAN & LLIST ![H][D]: POKE BORDER INT 1INT 6LN 9FN AT $SCREEN$ TAB %[T][P]J VERIFY [E] MERGE [C]INKEY$ LPRINT PI DATA INKEY$ LPRINT fEXP DRAW vACS IF qASN DRAW LN LOAD RND LOAD `INKEY$ LPRINT dX[C]WVWPId#[T]g![Q]x3u3p3 DIM ACS |(k1d7k+/[T[/ CONTINUE ATTR LET [U] RUN ATTR FOR SGN SAVE SQR LLIST TAN BORDER SQR CLS SGN REM ATTR PAUSE [U] LET ATTR RUN BRIGHT [K] FLASH ▘ CLOSE #▝ FLASH ▜ BRIGHT SCREEN$ FOR SIN DATA LEN FOR ATN DRAW INT CLS [S] POKE [R] CLS PIe& LPRINT IF ▞% GO TO ERASE ABS EXP BRIGHT IN [S] STEP f CAT THEN STEP eVAL OUT uSIN INK v INVERSE uVAL CAT e[S]<>f THEN THEN 5[F]/;[B]R9[G]5RNDl[R]bINKEY$ASN xASN rINKEY$RNDhRNDb5[G]$ STEP [G]SFCODE RESTORE INKEY$ COPY CODE RESTORE INKEY$ BORDER IN PRINT ACS LOAD PEEK REM ACS BORDER CODE RESTORE INKEY$ COPY CODE RESTORE INKEY$▜ OVER VERIFY OVER VERIFY LOAD RND NEW ABS LOAD RND NEW RND COPY ASN PLOT TAB RETURN ATTR PLOT RND LOAD RND NEW ABS LOAD RND NEW OVER ▛ VERIFY ▟ OVER ▛LPOINT LN GO SUB NEXT PLOT PAUSE GO SUB FOR NEW STOP CLEAR READ NEW STOP CLEAR FOR PLOT PAUSE GO TO CLEAR PRINT POKE GO TO 67 COPY [U]ep6r4w&z4w&r$g6k8g6RWZWS SAVE PI IF ATTR SAVE PI NEXT SIN POKE ATN READ INT POKE ATN READ SIN DATA PI NEXT ATTR PLOT PI NEXT ERASE [E] BEEP FLASH ▚ BEEP ▖ OPEN #ACS BORDER INT FOR SQR }" POKE DIM PEEK RNDRNDIN PEEK RNDTAB CODE VAL$ ASN ASN CODE VAL$ ASN ▟[P][M]▚[M]▚▛ NEXT GO TO PLOT NEXT NEXT GO TO PLOT FOR READ -sASN RUN sSIN RANDOMIZE d[R] BORDER [U] BORDER [R] BORDER [N]R[B]U[G]Rc(b,[T]a'IN r5TAN u7p7}'[U]b![U]cp[B][C][B][C]>aRNDASN LOAD RND RUN SQR DATA ASN STOP COS COPY ASN BORDER SQR POKE RND PAUSE [T] LOAD RND RUN FLASH ▗ MERGE ▘ OPEN #[P] MERGE ▜ FLASH TAN RESTORE SIN READ VAL$ RESTORE EXP CLS PI PRINT [U] NEXT PEEK PRINT POINT CLS ATN RESTORE TAN READ VAL$ RESTORE EXP FLASH ▜ MERGE ▗ OPEN #[O] MERGE ▞ FLASH RUN RND POKE 8cRNDLEN CLOSE #pEXP PAPER tATN CIRCLE s CLOSE #`POINT LINE dPI>=c3?9[B]/;[B]V5[S][R]l[R]fSIN LEN xABS f[S][R]h[N]V=[C]$$[G]?[I][R] DATA a LPRINT b DATA a SAVE r POKE /tTAN [Q] DRAW LN PRINT INKEY$ NEXT [Q] LOAD INKEY$ GO TO CIRCLE VERIFY FORMAT [P] VERIFY [M] CIRCLE ASN NEW COS LPRINT CODE NEW AT SAVE RND PLOT [T] LIST IN PLOT PEEK SAVE ACS NEW ASN LPRINT COS NEW VAL$ CIRCLE ▚ VERIFY FORMAT VERIFY [O] CIRCLE PLOT INKEY$ PRINT [Q] NEXT INKEY$ INPUT LN NEW ACS RESTORE VAL READ -tSQR PEEK SAVE IF DRAW b SAVE CLS [K][C][K]8:8[U]88[U]&(VAL (,(( LOAD SGN fr.051. PLOT PAUSE GO TO CLEAR PRINT POKE GO TO RESTORE RESTORE DATA DRAW GO SUB RESTORE DATA DRAW RESTORE PRINT POKE <g[Q]LEN TO INK PEEK OPEN #SGN SGN DIM ▙ READ # LPRINT PRINT [M]4 RANDOMIZE [O]0 CLS #$ DIM ▙ FLASH SGN MOVE PIPI ERASE SQR POINT <>`[T] THEN c THEN |EXP INK pCOS FLASH sLEN VERIFY DEF FN [S] THEN dPOINT <>`T4[M]4[L]V6[P]TAT NEXT SCREEN$ il*(*LN *&LN $:AT :266FN [O][K][A] COPY SAVE POKE DRAW PLOT PRINT 3pINT PAUSE DIM DIM NEXT PAUSE DIM LLIST READ STOP RANDOMIZE RANDOMIZE READ STOP RANDOMIZE ▝[D][A][A]▜IN [Q]INT IN IN [Q]INT PICODE a> RANDOMIZE GO TO [F]= SAVE ▜- REM ▝.- CIRCLE ATN PAPER LEN INVERSE LEN FORMAT NOT OR m[Q]<=mSCREEN$ INK ~ MERGE }VAL BEEP }INT INK nTAB STR$ FN NOT STR$ mX3[N]Z5[O]1[N]XTAB jVAL$ mpABS {:8:4*(VAL$ ,TAB (VAL$ [N][O]NOT [P]ABS
