| Is a part of release: | ULTIMATE SCREEN |
| File size: | 14081 |
| md5: | 6ba5392a5becd48b004c5413d92cda42 |
0 RANDOMIZE USR 0
393701 PAPER /! THEN [D]LSTR$ OR > STEP "] GO SUB LN ▜8 RESTORE GO SUB LN LLIST READ ▜0 DIM 33 STEP "]>=AN+ THEN 8 THEN OR BRIGHT ] FLASH ▜ THEN THEN ▜ ~+8 NEXT <>SCREEN$ LINE USR j[S]* LLIST ©[A]zX▗[J]w69[I]AT CONTINUE [M][L]RNDSQR ▘! GO TO DIM IF g@Y+rIN [L]m[N]IN G&LN { RETURN CIRCLE TAN 9 PAUSE FORMAT HLTAN COPY [E] FOR SAVE RETURN IF k ", [S]H-LOAPOINT [[Q]ROR- DRAW CHR$ h@BREAKSTR$ /cUdAj[U]& OUT [P]6 INPUT is[K]TAB ▖ REM the REM 6YESBype ERASE [U]CODE [L] INVERSE INPUT O AND INPUT g&SQR FLASH zUSR VAL SQR Tr[P] STEP PEEK SQR &SQR t▝SIN CODE bo|PEEK .SCREEN$ STR$ GO TO 9n▞[L]: CLEAR [L](M[M]'[I][M]9[N]8▜[N]0 DATA [N]B2 DATA BHKA[M]488`,zxcvasdfgqwert123450cINT Zj[I]poiuy-lkjh(mnb2ZXCVASDFGQWERT SAVE USR OPEN #[O]$POIUYACS LKJH[Q]MNB>=:$?/[Q]NOT STEP TAN <>!@#$%_)('&"; LINE =+-^▖N.,* ERASE BEEP INK PAPER 0RNDATN ,VAL ©/ #JSyPvp BIN CLEAR CLEAR 986704312076580[D]? @@@@@@@@````````[Q][Q][Q][Q][Q][Q][Q][Q]USR @USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GUSR SCREEN$ @@@@@@@@````````[Q][Q][Q][Q][Q][Q][Q][Q]USR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OATTR @@@@@@@@````````[Q][Q][Q][Q][Q][Q][Q][Q]USR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT W@`pxP? NEXT [Q] RUN @q[Q]Ha[Q]7Ho[Q]WHp[Q]wHm[Q][H]Hn! BORDER X RESTORE !e[U]!ACS [U]![Q][U] RESTORE STEP z[N]B STEP BORDER ▖!&@PEEK [S] STEP LOAD [C] LLIST STEP "[D]! NEW [S] STEP "[D] LLIST STEP D▝ RESTORE NEXT LLIST CODE STEP PEEK ▙ RETURN TO ▝ RETURN TO +▝ RESTORE RETURN 1 TO [A] RETURN 2 TO y[A] RETURN 3 TO >[F] RETURN c TO h▛ RETURN m TO Z▝ RETURN k TO f[B] RETURN i TO m[K] RETURN T TO <[B] SAVE IN t TO r TO #n TO >#jVAL TAB [M]▛}G[Q]g[Q]▜[J][G]P[F]R BORDER ▟ABS IF [cTAN FORMAT ▖[ GO TO CIRCLE PLOT ▚ RANDOMIZE RND FORMAT ',7BY E@[R][J]` [K] STOP ▖ LINE N[B]{8#^FN PX LINE ^Z LINE m[K]STR$ OPEN #[U]y[A] RETURN TO >[F]R LPRINT f[B] [Q]h4USR TO Z{&[T] NEXT A INPUT RETURN Z FORMAT }ACS `>=EXP fY OR tB▝|G| OPEN #sAT ) PAPER DIM Y▞POINT w, TO D LET CODE O LLIST PRINT - CONTINUE FN STR$ LET DRAW NOT READ Go SAVE +[L]& DEF FN PAPER LET DRAW CODE [H] INPUT ATN [J] BRIGHT ▚▜[P]<>*ASN !Y CIRCLE ▚▘▜z CLEAR LPRINT ▝:S▘^PIBIN (S( LIST STR$ RETURN ^( FOR s[P]▝ OR m? RETURN (M RETURN (U[T][E] STOP (^[O]`crFN d OPEN # NEXT BNOT O© BEEP LINE n[A] GO TO ▛▘Ih[O]t▖zWxVAL d▗VAL v REM ▜[H]▝a CLS 0INKEY$TAB LPRINT NOT COS ▝7' THEN /%[B] CLEAR 5[ CIRCLE © INVERSE [C]_-BIN < REM >=,&3^[F]7RND[x!SGN VAL ~<CHR$ )▗ACS DATA + RESTORE TO RETURN ▗_gIUSR |;STR$ [R]aATTR <=[H]o▝[T]ATN &nTAB BEEP :( INPUT RUN ACS COPY LPRINT ▝[O]qW@&TAN ]BIN [A]'_RND$pRND▞ COPY SIN [O]nRND$[Q](▘BE*FN H$~ STEP VAL [C] GO SUB SKRND} PRINT O|▞TAB SGN FLASH y[U]Oak▘[K] PAPER PAPER LPRINT LLIST l& FLASH {PT[C] READ ▖▞ OVER {~2▙RND, PAUSE RND!l[Q][P] CLEAR LIST PRINT [U]=RND2bRND- STOP [U] LIST [U][I]> IF FLASH OUT < FORMAT LOAD qUSR NEXT EXP OVER !BX CLS STEP LEN .Q_CHR$ ©COS ▗ DIM }[C](ATN xATN CONTINUE OR MERGE [O]cVAL [O]ATN DRAW MOVE [O]▚o?TAB <= PRINT FLASH ~INT READ ~ INK CHR$ AND ▝ CLS :x/INKEY$=[C]©zm▜/x6x) SAVE H CONTINUE f INPUT MERGE INK LLIST ▝Ow@▖VAL$ RANDOMIZE INVERSE fuj OPEN #[D] FOR !V/HLaCPI LLIST E}& VERIFY $aATTR STR$ [H]INT w<Aq)[D]<>[P] ERASE [M]V: CLS ▜ FLASH VAL$ c OR +~e PLOT PRINT BIN ~u OR OR n PRINT , LPRINT ">FN FUSR CODE - OPEN #[S]|'▛CHR$ LPRINT ZpeKt LLIST RESTORE OUT 6 COPY J BRIGHT [C]©USR SGN jb+ RESTORE KT STEP SAVE [K] FORMAT [K]}" RANDOMIZE &o/ATN b[C]:POINT TO h▘M(:(ATN Mh DATA [I] INPUT [A]` PRINT ?▘ POKE #USR ~_~W[R][C]~ FOR LLIST <>=~ THEN ]8 FORMAT aTAB ▗b=>==[G]C RESTORE ▙ AND lATTR ATN LINE 8 LINE RESTORE r CLEAR t OUT DEF FN T CLOSE #yATN ^VAL$ PI7 CONTINUE 68{ FLASH EXP SIN p PLOT 2,~>:2VAL ▝ RESTORE MERGE CODE ABS 9[E] GO SUB S H STEP OPEN #CODE *|ATN GO SUB R MOVE LLIST 0 CLEAR 9[Q]k;▚ FOR TOrb RESTORE a IF LLIST ,}= LET 0 FORMAT CONTINUE 6} IF OR OR CIRCLE COPY ▘ MERGE o<=~`SIN RESTORE OATN 4<*[D] GO TO EXP $ FLASH ▚ RANDOMIZE A$ THEN © PAUSE >1G NEW xG DATA VAL OOHNSTR$ LN ▘T LLIST ©?(FN o©O:|- PRINT RANDOMIZE $STR$ x POKE xAqge[H]CHR$ MOVE SIN # IF X STOP F<>EXP ©'[O] BORDER `$[C]W}Yz VERIFY <x[M]ATTR OR LET OABS oyw--w[I] RUN NOT [M]j/Fn@[B]▚ NEXT RETURN ( RETURN OUT j**]@aCHR$ m`h2 PLOT 6SQR I@[T]CODE b RANDOMIZE FOR <ATN REM <= DRAW A▟[B][R] c GO TO BEEP [f CLS CLOSE #a5▛&[R]AT [S]z LET UEs[U]▚qfATTR :43(4[ CLEAR ▖[I]G[Q]▖STR$ `#A,a(FN LN kSTR$ STEP |▚[I]3▘2h▖6!Y:0 DATA /VAL$ }=(jGLN &[K]o RESTORE &'e IF "[P]>/) PAUSE [C] LLIST RESTORE <[K]W LLIST ~[Q]▜▚0▗^ LINE 3▞STR$ iFK7/CODE g RETURN H▚W LET cI(E LLIST u<> RESTORE PRINT :j~ LET LLIST _Ku,▞( CLEAR [L](M2[I]((▜([F] DATA [N][E]I!W[P]~[K]Zb STEP <=6D{^ LINE TAB ▜NOT ▟▜n{` FOR t▖ OR 1a2NOT [L]3%4t5 MOVE [M] 6B7 LINE ATN [N] RETURN 8 LINE &[O]STR$ >2 GO SUB < MOVE Z{2n[P][I]dsmINKEY$n BEEP AT MOVE DIM GO SUB [|z< LINE CLOSE #[F] NEW [D]USR CINKEY$@ MERGE sADIN B TO STEP ,▙ INK RND~▘M[Q]T[K]K▚NINKEY$W[R][S] CLEAR "IAT ( GO SUB CONTINUE >=&uCODE =$ACS NOT AND jc? OUT LPRINT [^R[C]FDbz[Q]USR STEP ▞PI[Q]▙LN LZ'[A] ATTR VAL CIRCLE v?vTgX( MERGE tPI▞ BORDER CHR$ %▘TAB DIM f? CAT RND COPY F|j+` GO SUB LPRINT COPY 2▛Y.qXkqEXP SIN PEEK USR ]1[Q]▝V& RESTORE STOP Oku[Q]7▜ ~2 DIM VAL BORDER VAL$ BORDER BSTR$ ACS BORDER o FORMAT OPEN #bINKEY$ LLIST ▖ FLASH n DEF FN ERASE [I]ABH>RASN H RESTORE ©<>CODE POKE POKE TAB COPY LEN d_&ATTR CONTINUE z NEXT SQR INPUT RETURN /8 REM FN -(7 ERASE l+% CLEAR 5 @ DEF FN ) RETURN 28{TAN 60IN 0 CLEAR &QSTR$ RNDk| RETURN 30SCREEN$ 2h@z2 CLEAR RNDN SAVE TAN <&SGN [G])ATN -5STR$ : DRAW RND(2{3%8 LET p LLIST STEP ▝ GO SUB Sz[G] PLOT sCJN6 # SAVE >~*INT w▝ u[S][G]'TAN OVER ! DRAW RNDATN & CONTINUE ACS y[S]>V STEP # DRAW FORMAT PI▞ PAPER E NEXT w ERASE 2▛PCOS ~<q!i(ATTR FORMAT <> DRAW FOR B AND ▙ PLOT PAPER OxVAL G[Q]9 FORMAT 0;▜]>=<=-.|qtU▖(O[A]'& PLOT o LLIST ?83 PLOT o FOR MERGE ATN MOVE FOR STEP {▞><> FOR FORMAT LPRINT [T]7@ TO SGN 4o32>1<>} RETURN ( RETURN L(:es>f<>i▞[Q]LEN INT STEP RESTORE PLOT q/NOT LLIST STR$ [T]cFyIgL6VAL PEEK BRIGHT NEXT ▞CODE ▟k[R]z[D]u [K]s©mb TO <> NEW TO 91 TO )▟[I]COS TO x▟ CONTINUE STEP RESTORE ATTR m}v![D][S]>d!POINT [S]STR$ RESTORE 20~ NEW ": REM $ INVERSE NEXT INPUT CLEAR ASN OUT EXP RETURN STR$ [N]STR$ [O][F] GO TO < LINE 6&3 LIST >▘ STEP *K(ACS r[I] PRINT PI BRIGHT ▖(LN USR (MIN <>A FORMAT STR$ a CLOSE #▛3 NEXT CHR$ FLASH ▛NOT STEP ▛-2.`OUSR y INPUT h OPEN # INPUT 2 MOVE ▛[R]▗[R](B[S]▜*>#M H( FLASH TAN V ERASE RESTORE ▟ BRIGHT .!!9~2ABS ▝ INPUT STEP 2 CLEAR [I]l READ EXP ~,1 LINE *!|~y2oR STEP PLOT OpCODE SGN COS SGN PRINT LET 0[R]&1H LIST EW=SGN ATTR Y CIRCLE !o BRIGHT FN PRINT [M]INT K6 FOR -'▟▖SQR SGN [A] PAPER Ev}G9>=x RETURN ATTR ( INPUT ▛TAB USR COPY ▙CODE [Q] COPY %[P] LPRINT COPY vPU8& BORDER LPRINT uG IF FN REM [A][J]vK|INKEY$$Z(4LN ▟`@ CAT }ATN RETURN ▛>=FN SAVE FN xB;Y}@SGN STEP l▟-ZINKEY$ LIST RETURN ` CIRCLE @[K] LIST J[K][Q]USR © LPRINT [R] @ LINE [D] RETURN USR RESTORE !Z@VAL$ /STR$ qx OR STEP BEEP [F]STR$ AONOT COS X[S]Y▛#([F]USR CHR$ LET [A]8= LINE CODE ▟NOT 9j:3ACS LOAD OR a!1Y INK RNDP▘NOT wNBAT _8 PAPER LPRINT 9]!@;INT {a, STEP [Q] ERASE MERGE RND$qCHR$ RANDOMIZE RETURN h>=' READ P INPUT 4 INPUT USR LN >=j9 CLOSE #} RETURN 1( CAT <>[U][S]IN LN STR$ `TAB [A]CODE FOR OR v LET v2INT hABS INKEY$ THEN "SQR 8[D]t+ NEXT ^ INPUT 32 SAVE ▙ RESTORE FLASH ▜" RETURN 6t INK 0X;Ga STOP QTAB `i INPUT 3: RETURN { MERGE Q STEP VAL ▙{ RESTORE ▗ BRIGHT c&fVk MOVE ~ NEW SAVE ( RESTORE o2AT LPRINT OR ~< NEW LEN ATN CHR$ [G]x REM >F[G](PI GO TO CIRCLE [F] NEXT ([U] ERASE 'S[N]|[ STOP TAN PLOT @g AND 6|#EXP "[C][O]Z< GO SUB BCODE FOR >ICODE POKE CLEAR COPY Pv RESTORE O5[R] MOVE ""S1f▙ CLOSE #[P] SAVE $@ VERIFY OR Q STOP l*+"!SIN : MERGE Z9 CLOSE #|[A]D*[M]f[| BRIGHT RND LIST _STR$ ▚k=2| 9[R]- RESTORE *|" RETURN {* INK {EXP + POKE LLIST 7[U]X LIST <> THEN ▝ CLS CODE FLASH LPRINT >= IF VAL F./ BORDER =_CODE W[U] GO TO [I] ERASE [T][A]VAL ▜ FLASH @▚ACS : RESTORE {6 FLASH * LIST { FORMAT STEP CHR$ ~u CONTINUE !|[R]~Rh.▝< MOVE g% NEW {INKEY$, RETURN 8>?,USR REM ~FkFINKEY$)F O!]|dc` STEP READ [I]cP▝ CIRCLE LLIST FN ▚0]©M IF SQR B>OQ▝- LPRINT BG{qPOINT yPOINT ▝O REM BORDER EXP ACS )@9[N]In LLIST ▙ INPUT LET [Q]SQR POKE [K] RANDOMIZE ] DRAW x2|ACS ^FN LEN G LET ( OR ABS AND |'!NOT ATTR RESTORE [U]AAT @ GO SUB [C]NOT [G]▗ INVERSE ! COPY LPRINT IN 7<> GO SUB } #$LlW[B]▖b DRAW nr PAPER [B] STEP LIST [I]- FLASH AT s<>8[P]▝VAL INKEY$& RESTORE ©▝▖,ro( ,INKEY$▘[B][Q]INKEY$E[C][ RANDOMIZE y[D]l[A]( RETURN n LINE O[C] CONTINUE PAPER }Nj PRINT [H]z,INKEY$#<>ABS <> MERGE E>CODE r ERASE D MOVE ! STOP ©i OR INK PLOT CLOSE #[F]▘ READ POKE O▚6q▚_~,EXP ( FOR y RETURN TAN ( NEW RETURN I( STOP RETURN ©( OVER RETURN ( PAPER CONTINUE y INK STR$ RESTORE DRAW ,w LLIST MERGE OR OPEN #!B[STR$ MOVE ABS LET 2G[G]|*/PI PRINT :2~0 OUT |! MERGE ▝▘w▚B RUN @ LIST ▝47FN ;INKEY$ GO TO NOT SIN MERGE AND y[S] BRIGHT SAVE VERIFY 0 RETURN 0))o0 INPUT $ FOR } MOVE AND GO TO / REM p[B]0 BORDER FOR !RND©wog_WOSGN FORMAT (4# LLIST PRINT THEN ? DRAW INKEY$W LET C STEP BIN [C]ZW<>CHR$ LPRINT NEXT RETURN : AND <> LIST CIRCLE DRAW ([M] COPY BH>/<8 DRAW GO SUB B<>:0~ MERGE RESTORE THEN w( THEN o( MERGE FOR CINT )▘+ FOR <>" BEEP [P],,#~0 IF DATA d RETURN { LLIST bLEN IN LLIST u[B]d RESTORE MERGE LLIST :[U][G] POKE ACS #zi* MERGE vINT NEW MOVE MERGE z-=kgqqr: OR #>©NwFw NEXT [D]SGN CLS MOVE vp GO SUB RqSTR$ [G]9 MOVE LLIST [O][N]-EXP [H]>=GINKEY$N[A]p[A]COS LEN IN AND FOR LEN B_c PLOT [D]"22[D]RND([E] ERASE 26[D]▜ NEW 2W[D][J]h THEN ERASE [Q][R]{24z2/~Q"I▙ FLASH STEP BORDER [D]~#▜8 PLOT J[U]*.~ RESTORE TAN BORDER ^>[C]wACS NEW ©= RANDOMIZE s LLIST VAL WPI THEN - CLS LLIST $[I] LIST K INPUT I~▜ STEP I[E] FOR LLIST :POINT (O DIM RESTORE oASN LLIST [R](4$ LET !-~ THEN #~PIKt*][E]"[[E]<> OPEN #lCOS SQR SIN [R]07I INPUT m FOR )<>FN S RANDOMIZE ▖JATTR RESTORE # MOVE <= AND yC OPEN #3 LPRINT FLASH INPUT PRINT [U]USR EXP G LIST [I]STR$ LET BORDER >=C+ CLEAR BORDER sCHR$ h CIRCLE [B]© LPRINT OVER RUN FOR 2COS [E]2ACS [E] RESTORE POINT OR RESTORE j /~k;0STR$ 4[H] FOR }SIN 9[A]Zk INK |[A], FORMAT ©TAN CONTINUE |K[S]>= STEP GO SUB [E]( CLS PLOT RETURN RETURN [I]AT &LN / NEW u THEN c8 PRINT !{}([Q] PLOT G/: CLEAR THEN OBIN 6[F] PLOT {# SAVE PAUSE CODE INK <>~ATN INK <> DRAW ▜# PLOT 2 CLEAR {<>SBH TO LPRINT MOVE PI STEP LOAD [C]CODE STEP PEEK ▙ RETURN TO GO SUB [F]_VAL 0 PAUSE d LIST 8C RETURN e LINE PAPER b RESTORE sNOT ▜ATN hCODE af<$( LIST 3 OR CLOSE # OUT CHR$ R![Q]>nZ GO TO ▛>w@ OR STR$ ▝[Q]▘q LPRINT ^ BEEP [F]ATTR [G]RND▘{ INPUT 0 FLASH N[I]_:)COS BEEP 0oMuTAN TO FLASH RESTORE SGN $SIN RESTORE [I][O]▞Z[A]g LOAD OR & STOP LPRINT GEACODE OPEN # RETURN RETURN STR$ FOR <> INK RESTORE INK LLIST DRAW REM X 8EUZ STEP DATA [K]0=0(M83< RETURN 8*| RETURN Y(M.M! LPRINT ( RETURN ( RETURN @USR >eD&: NEW LIST RETURN REM )< AND 0<>>b LLIST LPRINT 0 POKE } THEN PI<=nLN DEF FN `▟^CODE <>[J] RESTORE ` GO SUB ABS [H] STEP g[G]l[G] OR r.0[H]/( CLS RESTORE e▚[I]Cx▝ DIM O LLIST ^ IF f▚ OVER USR =<>i OR sU"LA THEN :); IF SQR PLOT Iy(%G#}INT 5LN GO TO 7[O] INVERSE V[ INVERSE ^ THEN 2 THEN 3NOT SAVE ~[S]COS w+STR$ NOT PAUSE LINE PI[G]EXP STEP REM [G]STR$ 5VAL A&y4% STEP [H] CLS v NEXT ([D]| STEP 1▘ RETURN [ FORMAT O~EXP >=q<>~OATN ([Q]K OPEN #LN USR THEN xuUSR ▙GLN SAVE VAL a>Aw ERASE e[Q] ERASE ©I6 TO [T][H]6 CLS PRINT PRINT ,▝ RETURN 0[A][S]3($04/!ZA:>T"[E]t| OUT COPY :[E]W GO SUB x2 POKE IN [C]G[C][A] RETURN LN 8":B9y[R]>LN ACS U/w▞U<>X6 RANDOMIZE IN xK SAVE IN OR *CHR$ PI GO SUB B( GO SUB C PLOT IN STEP DATA [H][C]>▙ DATA IN STEP ~+ STEP [I] NEXT STR$ OR MERGE H THEN ! THEN !R~^#Vkb GO TO ▘ NEXT MERGE y& THEN ?_y RESTORE $| DATA nUSR } AND [I]?[P] NEW CHR$ [T] LIST <>▚<= LINE [I] NEW yK RANDOMIZE OR POINT [I]▛ REM USR POINT [I] READ <>[M]TAB [I]1 OPEN #<=cATTR D` IF [A]W▚eo5Q0">=7tjj-STR$ * FORMAT D$ BRIGHT USR | VERIFY 6STR$ PLOT Xg RESTORE STEP FORMAT [I]} LLIST w<>STR$ m;ASTR$ LET STR$ OR PRINT STEP [L]NOT FN [A][C]*TAB T FORMAT PI▙▗POINT l[J][R]ePOINT [I]▛,z INVERSE f LLIST FN > COPY 7 NEXT [L]=[Q]w[J] RESTORE NOT bPOINT ` PLOT OIN USR ACS I IF ![E]j[S]+ BEEP ▝ RETURN RANDOMIZE FOR Q[M]} DATA > AND LN 0 LPRINT $ LET DATA [P]0 MERGE x RETURN CLOSE #0 POKE R▛Oy INPUT O&L9 INVERSE u[M]▙USR yO INVERSE #SIN .?}; THEN LN THEN VAL 0 NEXT |TAB gzCOS ERASE | RETURN STR$ PRINT CODE @SQR F RUN BIN CLS ▝[J] FORMAT >= CLEAR PI>=>© FLASH RETURN FORMAT POINT NEW ( NEXT y/O▘[D] NEW GO SUB Q3 COPY CLEAR ZP"w:=POINT 2$[J]*9|POINT g}POINT o"B[J][A]i/FN /SCREEN$ P,@ATTR 2[J]: PAUSE ATTR d▘▘N CLOSE #AE E(FFx[K][J]Y;xH[R]i TO [R][J]MH@HLLM[U]:[E] ATN [D]INT ▚xnO#@CODE IF [I]:F[U]ATN RETURN STR$ ^[T] TO STEP !@[U]NOT @:J}H DATA [A]▚%d(GCOS PIvn MERGE b COPY ▘ LLIST GO SUB >)j FLASH ▘>`'/M RESTORE aZ" CLS v! DIM Z STEP LPRINT [K] OR NEXT STEP F[G] CLS RETURN BIN GO SUB [E]STR$ LLIST ATN ( OVER NEXT [A] RESTORE [D] PLOT [A]VAL$ STEP BRIGHT [K] OPEN # RETURN C RETURN LLIST DIM LLIST ! DRAW | RESTORE NOT CLS GO SUB _H IF / PLOT (w, NEXT w LLIST $ DIM v NEXT <> RESTORE CODE goATN RESTORE GO SUB B LLIST <> CLS w[Q] CLS AND STEP z[N]7USR ▘USR q:, GO SUB C|2)8@%CODE CODE >=XXDCHR$ SCREEN$ w&SQR [P]OTCODE NOT MERGE [E] BORDER RETURN Y PAPER MOVE "[S]rB RUN [S]r PRINT READ [Q] REM w © LIST LLIST $>[U] NEXT © READ 6h OUT READ NOT OUT wqOT[F]N MERGE 9rNOT ~:NOT 5q▖ REM [D] STOP <>[G]AT [F] ERASE [N]EXP _ BEEP [Q][H] BRIGHT DIM CUATTR qB SAVE qUPOINT © BORDER wC PAUSE CODE TAB MERGE : STEP d DATA ▚SQR CAT RANDOMIZE Mo OR PRINT ~#[T]o LPRINT oT DATA ASN MOVE { oR DIM TO OR OR RESTORE STR$ [H] CLEAR ▝O0d MOVE K8 SAVE CLOSE #x RETURN [8 INVERSE LLIST STR$ ,} NEW ERASE <>CODE [U],PPOINT [M]k[P] BORDER EXP PEEK N VERIFY INK INVERSE ; DEF FN !▟[Q] MERGE MERGE ▖#▘" MOVE ?Q▘W▙1T▝ MERGE ▘#▘_▖ MOVE R BORDER FLASH DI$GR IF LLIST P? NEW LPRINT INPUT >▗g RETURN X8 NEW R:1 LPRINT [A]X~> o0 RUN $ POKE LLIST , GO TO <> RESTORE STEP ©▚ STEP PAUSE ! DIM @> STEP U!o[P] STEP BORDER [E] PRINT STEP SIN LET RETURN 18M RETURN 80I PRINT _ STEP 7▖EIN @l` PAPER LET NEW G MERGE R}og PLOT MOVE O!INT *&op} STEP ERASE [C] STEP [L]!j}[U]2TAB SQR ACS STEP OVER [O] CLS STEP HNOT y COPY COPY OR > ERASE *▜8 STEP [P] READ RESTORE GO SUB VAL LLIST READ ▜0 FOR STR$ >=AN# THEN THEN OR CLOSE #[P] INVERSE ▜ ~# CIRCLE ▜ THEN THEN PAUSE [E] IF xH INVERSE ATN MPEEK $qDo/( STEP FLASH DATA :[I]<>CC COPY !9 TO @^ GO TO COS USR INK A BORDER LPRINT )PLl LET om 8g[L]*%20FJC3USR 0j4USR 1512#SCREEN$ 60 LINE 71[U] REM H8 [G]% OPEN # FOR n~RND[S]ATN STR$ PAPER OVER [I]kCOL BEEP 8FN DINT {0VAL ack▘1B@ LIST ACS )2 M CLOSE #^I3CHR$ Magta▖i4 FORMAT x▞5 FORMAT ▟l?POINT 6@[H]ACS <> PAPER 7/Whk /RINKEY$w/TAB OVER V INK w[H] CIRCLE ▝BIN BIN BBIN Dr9COS DATA DPff <=3TpNGS BRIGHT TAN CIRCLE UjCHR$ RUN PLOT THEN @& STOP HLk PAUSE 9 DATA FOR @MlKV PAPER 4_uH REM ▖)[B];6+Y!VAL$ 5[E] GO TO VTGSIN ECiVAL$ xl DATA ![J] THEN <=▛`▜c[Q]ATTR r;&B▗b[O]pPI[E]X THEN RETURN BRIGHT INK cair[U] FOR H K▖ POKE .pfqn[Q][A]?▗u▖pAS+BIN mUABS rKUZ▖X BRIGHT ▙us#USR . MERGE RGSCREEN$ ▞Yx RETURN PI1# BEEP J AND [M]Ghd%NOT r3"De RANDOMIZE [K] THEN BORDER 4n STEP X[R]vF TO ACS ABS DEF FN f RESTORE mtNOT POINT <>0LN CIRCLE NOT N[Q]▘[E]n#▙* COPY [M]EJ&S" FORMAT [N] NEXT [U]jPE▖-9 VERIFY ~zO)▛P6POINT ySTR$ CLS DRAW )[E]P255l CAT CAT yh CIRCLE -[D][T]Yh>="lw▚).KGid! READ vyv VERIFY STOP ▞@SELEC$L+OP▚[S]▚ LPRINT GP▖JM'P2W+nFP>=YP*u IF ard &^ LINE [2*He[A]STR$ l[l+[U]'H3▖[D] FOR OPEN #s<= MERGE rGCHR$ Xg0x▜[Q][I]HCH-T▖uPboaHh-R▖%TAB CAT <> LPRINT ▖HBIN [I]9& VERIFY LLIST SGN [L]u DATA MPIHC▖[J][Q][A]oSxLN /ef OR ▛[R]▜ BORDER FI(Pk▖_ READ ERASE [L] AND [U]<= PAPER VAL$ ▖x:USR [I] SAVE oINKEY$s ,kPR STEP ▗i▖(IN ▙LS▖FN [H]ATN J/[Q]i[Q]s@,ASN .[O]M@[Q]m@ACS U DATA uHP@FJ[R]ROMLPI3 OVER ON[N][R]XHXO>=7- IvaLEN hB iDk©2024r▛ FOR [L]>aBy .E(V|+[F]'/5.K1[O]cB}tjle ERASE OVER ![T] MOVE SHIFT+T ul NEW afaSIN >=^Bf CLOSE #t VERIFY bu"bHCHR$ UPixel: LPRINT SQR TO ▙[S]@Valu RESTORE ▖XME*%bXIFF LPRINT ▘@Addr/T/S58 USR IH>#4000 CAT " DATA Co[A]$ DRAW PI[S]%BIN X6,Y=00[U] STOP EHJ PRINT <[P]c NEXT MOVE TO CHR$ CHR$ CHR$ "CHR$ [D]USR CONTINUE ▞ STEP KG%HEnt, REM a STOP j ERASE /1 MOVE 5E7UBIN [Q]r RETURN F?D(xX POKE G4HaATN IN <=@By OVER CHR$ h▗xq,BIN ▖ RUN + STOP F▞<= BRIGHT a INK 5[M] DIM @Up 8?Down[Q])x)HL GO TO *M)mIPEEK i[J] GO TO PAPER )5iRiZ1=)G▞HL"D st$use2) USR STR$ ? DATA (SCREEN$ HR;STR$ mLN @EDXwINKEY$ NEW R BEEP THEN s.[C]E ERASE Re@2?▖ AND SAVE Y!/BIN <=NBIN E)=iBsH<> PAUSE [J]{FLN DhFN tcua4s[P]y,hstruV(JTAB VAL$ [I]nu R1 DIM HSI POKE COPY 6*[R]XP New RND▘/b l▜fed DATA yb@ Lo MOVE ▛a[C]ze"▖yi BRIGHT THEN ▗ LPRINT OB@-n_V STOP G@ ULTIMATE ▘SCRE▜N [Q]FEXP ERASE COPY {INSTRUC OR O IF LOAD RESTORE ERASE [Q]▘JUltimate Screen isa too^ for opBIN ▜izing SAVE j PAPER comp[A]TAB [T]ssion, map /dePEEK LIST NEW [ke 'squ[N]STR$ ' ( CLEAR D)[G]FN l READ adYnd BEEP ▗5heUSR [H]itself. BORDER ? PRINT ect▙[S] INPUT eoS INPUT , NEW PRINT r-no INT r▘[P] RETURN g LLIST yclagby INPUT ▟b;.ckY COPY z BEEP 0 RANDOMIZE [G][Q] CLS WUhATTR tu INK Q<>xys: [U]H INVERSE RNDif BRIGHT +I [I] C DATA OUT Fo[P]3 BORDER RESTORE )[U][Q] LINE LN 0U RUN ]ABS b CAT 'm7SfB<[U]USR INT [Q]1Op RANDOMIZE ▞ RANDOMIZE PAUSE u[U] LPRINT ERASE [P]2_▟▛)LABS TO BORDER y[U]P[K]4T[L]ggl*#tnrs[U] STEP ymSh▘D THEN D REM Z PAPER ~pix LOAD CLS @ LINE USR SSIN SavkhangRND▟`[Q]EEx VERIFY c▘ VERIFY CONTINUE ATN i PAPER /CHR$ 6ZhZ▘i[Q]v`hPu[N]( INK sd CAT [U] DIM PAny~ INPUT Le<ASN UX▗ COPY # RETURN CLEAR RUN CLEAR ▝VAL$ LIST ; NEW PAPER [L] RUN LOAD BEEP VAL$ NEXT PIB BEEP CODE USR LN FOR FOR STOP COPY OUT CLEAR IN COPY ABS ©v8ASN IF PRINT RETURN DRAW SAVE LIST INPUT PRINT FOR CHR$ CLS CLEAR jINKEY$<> CLEAR OUT w COPY RANDOMIZE GO TO DATA [K]oSQR RUN COPY RETURN GO SUB REM CLS i OPEN #CODE RUN RESTORE LEN RETURN Y OUT RETURN CLS PLOT OVER INVERSE RANDOMIZE NEXT ▙ INPUT A READ TAB BRIGHT DIM ERASE RUN LIST wVAL INVERSE ;_ATN nO CIRCLE LOAD x BRIGHT v[J]B_▟[LEN LPRINT BIN SCREEN$ RUN IN ^ LINE SAVE [P] PRINT LINE # OUT PLOT 7 CLS DRAW Fa CIRCLE o OUT REM CLEAR OVER J PAPER { CLS [R] OUT DATA [Q] OVER OVER SQR U CLS © LOAD K[P] RUN 5[T]© PRINT CAT READ [M]© LLIST 7 FORMAT DRAW COS [G]77ABS COS | LPRINT [N]t RUN [K]: CLEAR CLEAR PRINT BEEP xz FORMAT M BEEP "UIN [T] IF u THEN FLASH INKEY$? CLEAR CLEAR LET [Q] PAPER © COPY STR$ [F] RANDOMIZE INT IF LPRINT ACS PEEK z IF MERGE SCREEN$ ©[K] LIST CODE OUT © RUN ATTR ',8L CIRCLE CODE FLASH ACS LLIST r NEXT pY© INVERSE DRAW LLIST *`[S]IN _ PRINT LOAD ~ DRAW R RETURN PRINT CLS MERGE RETURN CLOSE # SAVE P REM TINT USCREEN$ TFN QFN PFN IF W RETURN RESTORE [S] CLEAR @LN [S] LLIST ATN REM CLOSE #tSh RANDOMIZE <=ASN ATN LOAD ^[M] CIRCLE STEP z OPEN #mg[A] RETURN NF OPEN #v[N] REM USR SCREEN$ OR [Q]SCREEN$ DRAW [Q][S]▖SCREEN$ @POINT CODE [S]FN ACS }INT /▖<> FLASH DIM l}yL&IN BEEP REM CLEAR tw{ CLEAR LET DRAW VAL NFN SAVE ERASE IF BRIGHT SAVE BRIGHT GO TO TO AT TO VAL$ VERIFY INKEY$ AND PIW[T]CATTR OPEN #ATTR NOT POINT MOVE [R] MERGE DIM FORMAT CONTINUE CLOSE # CONTINUE FORMAT REM POKE CONTINUE GO TO FOR ▖ DRAW RETURN TAB D DRAW A▚ CLS CLOSE #SCREEN$ @: RETURN INK [F] VERIFY ] NEW [S]AT SCREEN$ REM LOAD FN MERGE RANDOMIZE ]/ LLIST DATA POINT U. PRINT COPY LLIST U FOR PRINT DBIN [CODE RUN b RETURN RUN [M] OR FN DINT FORMAT CLEAR @▚ FORMAT [Q]BIN CONTINUE LIST ▙:LN CLEAR h[Q][A][A]INKEY$>= FORMAT USR BIN >=[H] STOP d LPRINT tSIN u CLS ZSIN ?_IN w[O] OUT DEF FN LOAD CLEAR ) BEEP BORDER POINT LOAD CLS RUN PRINT VERIFY T BEEP V LLIST RETURN 8[R]6WATTR *[I]h@h© READ STOP BEEP LIST [K] MERGE RETURN } IF CONTINUE FN NOT [S]_CODE USQR PIU%VAL$ +ASN ]a[J]▘p MERGE REM P INPUT } RETURN IN ▘ RANDOMIZE Y©[H]s RANDOMIZE FOR L@ RETURN a1 RANDOMIZE .W PRINT NEXT CODE MERGE ABS ▚^??▝W AND lFN FORMAT ▖ BEEP CLEAR TAN ▛USR CONTINUE ▛ CLEAR SAVE VAL RANDOMIZE DRAW INPUT INVERSE RETURN R PLOT FORMAT ABS /1K LPRINT v LOAD yACS [K]7TAN ▛W FOR SIN QACS CIRCLE X[D]FN U IF _/Z SAVE `[Q] REM 9[ LET oIN [J]X CIRCLE © INVERSE RUN v]SQR ▚ FLASH GO SUB r FOR WSCREEN$ NOT RUN SAVE FN PAPER [M]u▛+[O] LOAD # PLOT -TsLN VAL MERGE ▖@[T] GO SUB NEW IF LIST k[M]@ABS [T]Hr IF DIM [K]8ATTR W@ LPRINT DFN EXP OPEN # LIST REM !H BEEP POKE SAVE LINE STEP U[F].FN RESTORE BEEP FOR u:[Q]>=PI▟W OUT RETURN GO SUB =0 POKE h▝INKEY$ STEP RANDOMIZE [A]x[I] BEEP ATTR PLOT "_ATTR &6LN v LPRINT VAL$ INVERSE UTAB ]▛iA▘ SAVE OVER DRAW [Q]USR INKEY$USR [C]SCREEN$ P _*d:[M]E LINE /CODE POINT @FN MOVE REM OR CLS LET IF PRINT PAPER TAB W COPY ABS O[T] POKE ~ATN PAPER CLS _"w INPUT CLEAR OUT SQR (j MERGE 6Z LOAD U@AT Z VERIFY CLS [C] LINE ! RETURN 9o RUN STOP 4 IF 6 LLIST CLEAR LET NEXT <={TAN kSQR ▚*EASN IF [U]M INK [R]BIN [▘▛/IN ^ABS ~ATN {7_IN %}IN TFN (VAL$ CLEAR POINT [Q]ATN (*[J] GO SUB ▗ DATA POINT y VERIFY ATTR Y LOAD _ COPY LOAD M. RETURN TSTR$ 6ATTR PI PAUSE ATTR [H]TAN SCREEN$ UP FORMAT PEEK >=,5SCREEN$ BIN CIRCLE INK DIM #[P] CAT SAVE ^!▛ OR CLEAR FLASH ATN oj▞_AACS CLEAR MERGE [B]4VAL OR SGN PEEK CLEAR DATA PLOT i©IN u<=▞6ASN RUN [U]?j CAT GO SUB CODE Y9r LOAD ]ATTR PRINT REM [U] LINE J VERIFY `>=▞ DATA ?[N]ATN DRAW REM CLOSE #[S] MERGE SCREEN$ OUT hX OVER SGN LIST IF MERGE +}8 ERASE LPRINT REM .d CONTINUE FORMAT AT ▜ SAVE MERGE +]-z<= VERIFY DIM EXP Uy%gPFN A"CODE _w PRINT [F] STEP VAL CLOSE #INT CAT NEXT =▙ NEW NEXT DRAW _SCREEN$ MERGE jASN [( LIST SCREEN$ RETURN PRINT INVERSE [N]uF<Ss^SGN c_INT " DATA 7CODE PRINT x DRAW ▗:[C] PRINT ATTR UF/ PAPER DATA ATTR <=[R]SIN %[U] OUT UIN U* READ T IF x▖* LIST SCREEN$ /IN 9]TAN CLEAR RETURN POKE t5*▗PI▘$ STOP (U: MERGE *0 MERGE FN [K]eU REM UFN MERGE uLCOS 2I CLEAR OVER CLOSE # ERASE BEEP v]77l MOVE k FLASH MERGE [M]D CLS OUT GO SUB W▘[S]t INVERSE SCREEN$ INPUT STEP CODE ▗w CAT ? IF CLEAR REM tFN RETURN BRIGHT [A]] VERIFY ▗ OR [C] LOAD +[F]/w LOAD P[C]A CONTINUE A REM ASCREEN$ USR PLOT 8▞[N]kI*Wy▛PIIN ip FLASH VAL$ PRINT RETURN LIST A6 STEP ▝FN ]w PLOT LLIST THEN = LOAD ATN NOT t POKE [R] CLEAR CLEAR FN Oq LPRINT [I]}ATTR BEEP b]SCREEN$ t POKE ^[T]h RUN REM O) CLEAR w[K]vi` FORMAT TO (}BTAB @,=m- STEP JFN LPRINT G RANDOMIZE /UF[Q]W LET R RESTORE STEP CONTINUE ?ABS [L]USR CODE TAB TAN SCREEN$ LEN REM RANDOMIZE .@* LET ABS RESTORE GO SUB ATTR <mY[P]LN PAPER ATN } PRINT w INK BIN BEEP CLS PLOT 9 GO SUB ASN LEN } INVERSE [T][A][R] CLEAR MERGE CODE [T] INVERSE [J]<>WLEN ITAN [S]©BIN FOR <=4ABS a IF ▛ GO SUB XVAL$ RANDOMIZE h DRAW ku=ABS RNDd LET FORMAT E▛ IF / SAVE CIRCLE GO SUB ACS +[B].CODE RANDOMIZE USQR [M]VAL$ ;PEEK Y] GO SUB LET ++~EXP [R] RANDOMIZE RETURN VAL$ MOVE LET RANDOMIZE GO SUB W CONTINUE [N] PAUSE E CLEAR LPRINT MERGE OPEN #LN Ovj|CODE MERGE [H][A]O CLOSE # SAVE DRAW FN SCREEN$ w] IF [A]u MOVE LIST <>} LPRINT sTAN H[H] BRIGHT SCREEN$ _, OPEN #_ INPUT PAUSE PEEK LN 7hX FORMAT RETURN ATN DRAW IN W COPY SAVE DRAW [N]@ CONTINUE BRIGHT W<= RANDOMIZE 64 BEEP i|6PEEK MERGE a REM INPUT SAVE CODE IN ][I]< RETURN ;vFRND INVERSE u} IF NEW PAPER RUN >=F POKE DIM NEXT OR ▛JRNDCOS OVER FOR LN OUT [N] BEEP SCREEN$ } OR S BEEP VAL$ VAL$ BEEP INPUT :POINT CODE MERGE - STOP g▘}AT ~ RESTORE <>▖ OPEN # COPY PRINT CLEAR W▝ RANDOMIZE OUT <| MOVE !|p INPUT , IF CLEAR LEN CLOSE #2 INK MOVE PfI IF CODE 7e([R] LOAD ▞ CIRCLE o[L]7o OVER y^ RANDOMIZE q FOR MOVE SQR RUN CLS ATN LOAD BORDER LOAD 2. RUN SCREEN$ `OiATN l[I]VD FORMAT =V<P INVERSE BFN ERASE LEN MERGE k PAUSE FOR COPY ASN VAL CLEAR COPY [FN [F] RETURN w[A]AT MERGE 'qDSCREEN$ QVmSCREEN$ SCREEN$ [S]LEN ▖(EXP PLOT Z SAVE [H][Q]# CLEAR SCREEN$ MOVE JIN MERGE SAVE [| REM CLEAR RANDOMIZE INPUT [K] LOAD COPY # RESTORE FOR s PAPER qA[D]R$ LINE AT RETURN 4[N]▖} RETURN DATA U STEP POKE INVERSE RETURN VAL INPUT INKEY$ATTR U[S] MERGE LPRINT XvATTR AT INT p CONTINUE STR$ [S]x MERGE TAN w IF [N]t} SAVE 9 OPEN #ABS TAN `FN P[$|(R[R]TAN IF [bFN SAVE IN 5 GO SUB W6[H][M]b REM MERGE 4[G]>=d_ASN PAPER NOT xm OUT [C]|$©CODE & CLS MERGE RETURN Q LLIST BIN ©)uuym MERGE | IF STR$ AT 9S CLOSE #© DRAW Lt CLS 5 INVERSE FOR ASQR 8STR$ TASN SAVE 0 OUT a▖<>▜] BEEP ABS `5gdJ LPRINT EXP IF PAPER CLEAR >=y PAUSE AT IN POINT " CLEAR ? TO OVER k/ BRIGHT _K BEEP YL! ▚|uKyE GO TO ▖p SIN *!FN USR |+ LET LIST READ COPY K!I@ABS RANDOMIZE SCREEN$ hD▖U[M]INT UO SAVE r PAUSE ! FLASH mSCREEN$ IF CODE NEW [ INPUT Y RETURN [S]_USR LOAD ~ RETURN G INPUT PEEK COPY USR INVERSE LN u-v[C]pATTR _ BEEP ERASE PAPER FLASH Ul FORMAT ASN *k▚ RETURN 6 LPRINT ©|H BRIGHT WRND COPY DRAW LET V=TAN wAT d CLS J LLIST MERGE MERGE [T] BORDER MERGE [D]"[P]oPSIN [Q](w VERIFY ACHR$ GO TO REM IF W PRINT ▞ CLEAR GO SUB 0IN ACS 3 FOR VAL$ FLASH bW? INK SQR ©HIN X DRAW LK[Q]LN <=1D[Q] RANDOMIZE ▘ RETURN STR$ LIST TAB `@[L]} REM ] FOR ,BIN RUN Z INVERSE 5O8 LIST RANDOMIZE |`_STR$ i DRAW _VAL FLASH <>] INVERSE v MOVE TO [T] PRINT }BIN 0USR FORMAT LEN *,X DEF FN [Q] OUT POKE CLEAR } NEW LO▛/ GO TO |POINT POKE LLIST CLEAR K[E]NOT dASN 59[ BRIGHT /4 RANDOMIZE ATTR CLEAR h|" DRAW WSCREEN$ ©CODE O0}▖SCREEN$ ▝QTjE PRINT REM t IF MERGE IF TAB X INPUT ZQ MERGE kuATTR CLEAR }w7[G] OR )FN x RUN 0zIN 7Y MOVE EXP ACS ▗X© DRAW IR OUT CIRCLE 3-( DRAW RND CLEAR V[M]7d BRIGHT OVER < PRINT ATN <=ATTR x~POINT TAN RUN VERIFY INVERSE [M]CODE /j~%A MERGE mAT LPRINT T PLOT @h LLIST RANDOMIZE OUT REM PEEK FN _ SAVE Q NEXT H PAPER qi IF w CLEAR ] CLOSE #[T] LET ]Fa[N]ATTR i STEP CLS FLASH IF LET SAVE MERGE AT uINKEY$u▟}X OUT H[T] LET _ COPY a LIST / BEEP CLEAR VERIFY POINT FN 4x] CONTINUE vg[M] PRINT S[B]SGN CWO*z CONTINUE E GO TO SAVE POKE 1 PRINT c GO TO i| CIRCLE REM _ REM ▝ GO TO INT / OUT VAL$ O J,-INT >=[U] CAT CONTINUE yH FOR ^ COPY V DIM LOAD FOR ] SAVE U^8 THEN INPUT [R] COPY > SAVE TAB W PRINT SCREEN$ h INVERSE POINT ] INVERSE [T] INVERSE Q OVER USR EXP © OUT GO SUB PAPER ) MERGE TAN RUN FOR [A] CLS vO[C] RETURN IN oATN OUT CLS GwPOINT KaX4 INVERSE DRAW < SAVE j|Uk]SGN CLEAR QIN FORMAT SAVE PLOT GO SUB ▙a IF GO SUB [, CLS 72 RUN lSGN v>=ACS © FOR ' CLEAR wSQR [R]{HvQ<CHR$ y BRIGHT IF BEEP jSGN REM ABS IF CAT FN LINE CODE FN ATTR FN FOR w_ IF PUINT PRINT BRIGHT ^SQR INVERSE ATTR RUN ATTR BEEP ATTR STEP LEN CLEAR =+ OR GOO2 STEP CLEAR LET RETURN w}X SAVE 5[D]TAN ,8^(_M MOVE LET [ REM [N]▚4SW TO 9ACS ▖IN FLASH AND X CLS POKE ▗CSIN OR [R]?ATN TAN GO SUB RETURN CLEAR GO TO FN CLS LEN PEEK OUT FOR <= STOP PRINT STOP MERGE [S] MERGE cSCREEN$ `▞+▙ BEEP VAL$ VAL$ BEEP ▛ OR OR VAL ;ATTR ATTR INVERSE LOAD [A]▝AT PLOT LOAD PEEK LOAD RUN GO SUB BEEP GO SUB W CLEAR W RETURN ATTR :F RETURN PLOT M IF sU OUT ▝ REM uJGnvQ ERASE FOR n(UpUSR LLIST RETURN CLOSE #CODE ▞ FOR KFB VERIFY PAPER CONTINUE RUN ;U LOAD 5%( FLASH RUN [M]INT OUT IF POKE [D] REM } CLEAR OVER CLOSE # OUT n▚ MERGE FLASH ] STOP gA PRINT INT LET NEXT ▘ CLEAR VAL$ CLOSE # INPUT CLEAR ▝[Q]} RETURN GO TO ~ PRINT CONTINUE CLEAR INT ]Ju CLS ]IN CLEAR SCREEN$ MERGE ATTR _VAL$ YATN }ATTR MOVE LN MERGE FN LLIST VERIFY DIM RUN oLEN ©, DRAW RETURN SAVE z RETURN S~[S] RETURN POKE W}VAL$ Z+©4TAB y INVERSE CIRCLE [N][R]Hw FOR ©INT }INT _CODE VATTR MOVE POKE nL[T]<'W CLS l'ASN j THEN {NOT INVERSE "SQR TR[P].ATN O*ABS o RUN [ LPRINT LEN CLEAR OUT GO SUB PEEK k▜c8 DIM COPY PRINT DRAW RANDOMIZE RETURN [S]FN (~NOT PAPER [J]ppP LOAD INPUT ACS ©USR ▙ NEW CLOSE # REM COPY pATTR VP OUT PEEK USR 9PEEK PEEK USR gxwrz[D]~ SAVE B RUN LLIST 8~IN RSZXX~OSTR$ LN SAVE STR$ IF x~©CHR$ ;LN IN LINE [G]USR FN XPI<P DIM CAT BEEP LET INK ABS CLS rPx COPY INT RETURN INVERSE PAPER ~RND IF USR PEEK IN rEXP RUN COPY STR$ LPRINT ~[U] RETURN k COPY ~ACS pz▘ SAVE v<> RETURN NEXT USR RETURN AT oSTR$ FN 0©[R]r>=[G] CIRCLE SGN >ACHR$ PAUSE USR VywPEEK [Q] RUN USR FLASH COPY ~ LOAD NOT VUSR 6:SIN CONTINUE ?8 PLOT OR CHR$ sSQR SAVE BIN >wUSR PEEK 8 COPY USR NEXT ▟ DRAW REM ▘P OVER |ASN {p08 RETURN IF STEP CHR$ P; PAUSE 'SGN 2INT SAVE PSTR$ COPY IN 8BIN >NOT VAL INK VERIFY COPY >USR z COPY INT j COPY 1~ PRINT PEEK RESTORE USR COPY PI COPY LIST COPY CHR$ PEEK v~/ GO SUB PEEK RUN DIM RETURN ▙PEEK OVER CAT AND COPY RETURN LEN DATA STOP COPY HCODE XACS ©3` CLS IF DATA ▛STR$ P RANDOMIZE VAL l RUN USR cIN NEW PLOT STEP USR / INPUT BORDER CHR$ 7Z~USR <= MERGE CLS U`W GO SUB sFH GO SUB W NEXT 1P PRINT OR MERGE RESTORE INK LPRINT PLOT REM INVERSE RESTORE CLEAR RESTORE OPEN #6G STEP KH STEP uJ STEP dSQR RESTORE Q LOAD ]▙ CLS {K POKE LLIST RND? CLEAR LLIST INVERSE LLIST LLIST MOVE STR$ LET INK PLOT [Q] LPRINT O LPRINT CLS <> PRINT !XE} OPEN # RETURN 6G# CLS 6 PLOT INKEY$@ INPUT LET <> STEP VERIFY I STEP READ H|ASN !`"3J GO SUB S DEF FN W2 CLS SAVE OUT TO [J]}TAN ? COPY COPY RESTORE PI GO SUB [<=SQR <=R FOR LLIST PI[C] RUN 8bk" REM [S]7( CONTINUE #".[U]}[S]-▛ LET iFN PRINT [R] READ RETURN ( RETURN 18 PRINT RETURN 40 LET VERIFY 0>2*J AND 0NOT J> COPY 2[B]I PRINT LET SIN [H] LET x RETURN ' LINE yI LET SCREEN$ [S]"SCREEN$ 0 REM [Q]: REM NEW PRINT :[B]: INVERSE <VAL ![C]IO LET w STEP [D] TO STEP ▖J INVERSE ACS BRIGHT CIRCLE IF INT COPY [A]~DATN (0 RETURN (# RETURN ( RETURN ( INVERSE ~' STEP hI INPUT % CONTINUE ▞dh▟ INVERSE #[H] BEEP ATN >=G CLEAR <>VAL$ dNOT Q REM LET CHR$ STOP HR LOAD LINE LET =jqb COPY NOT GO SUB <= DRAW STEP SIN P OR PRINT K CIRCLE [D] LLIST RUN g THEN xLEN OSTR$ <L[M]t[M] AND [I] LPRINT LINE NOT )w FLASH [B] FORMAT n©; LOAD INK *2 REM BRIGHT STOP *)[L] DIM [S] THEN ▛ LIST +y LLIST K[A][S]3"Am THEN [J] INPUT `▜: POKE >U/!U RUN a VERIFY LIST CIRCLE STEP S GO TO PEEK DRAW POKE &[M] COPY > PLOT PLOT THEN COPY !<[▛ DRAW [~:▖=<>:q VERIFY EFN CODE GO TO DRAW REM IF DRAW D2©B ERASE STR$ z<>>SIN S> INK ▜o&<)) FOR [R]AT y!@o: CAT J▜ THEN ' DRAW LPRINT RESTORE :w$ IF BIN R RETURN IF FN b REM LET ©CODE 2 LOAD RANDOMIZE ▖Q INK <>[F] CONTINUE Start : Lenght INPUT :Call PAUSE Mode[O]WaiNOT please.. DATA y[R] RETURN hrinkiPOINT RESTORE BORDER ?Im STEP COS >= NEW LPack errorINT ATTR ! READ D BORDER M ok DRAW CONTINUE NEW LOAD ATTR sk LLIST READ {©ave ? (yes) NEW ▞fPEEK Na!t READ ▝gr▙ FOR LIST ATTR tm RANDOMIZE m CAT [D]#ed. OKCHR$ COPY {[!:/ INK !X'"'CKp BRIGHT DEF FN PEEK ▜CHR$ Yq[M]lfp_3ATTR &hSCREEN$ ; SCREEN$ DIM & RESTORE _< RETURN ( BRIGHT "AL{>=|BIN O FLASH PI FORMAT 6 I AND 7▚CODE (PK CONTINUE :ML*8 PRINT VAL$ KCODE OPEN #@L= INVERSE * CAT _ABS OPEN #ACS STOP PAPER *`▖NOT LPRINT RETURN [R]▖ CLOSE # GO SUB [U]xN[I]qNOT PEEK I[R]TAB TAN DRAW CODE xTAN LIST AT MERGE *+~!nv STEP IF LET INPUT RND[N] STOP CLS LEN TAN ]J NEW [N]N^ LPRINT ! GO SUB L FOR STEP k*]KBIN RANDOMIZE K8:<>" CONTINUE [K]SC INPUT 6▞LEN CIRCLE [S][P]6 STOP INPUT [T]) STEP s2 CIRCLE SGN [Q][E] LLIST MERGE STEP LIST LxLEN LINE THEN L MOVE INVERSE RESTORE LLIST <> READ DRAW L"ATN M▞ COPY Lx GO TO CLS d FOR LPRINT LPRINT M THEN CCHR$ CHR$ © BORDER M( GO SUB [R] REM M=ATN PRINT SGN INVERSE ABS © READ 5 LLIST V STEP wMi| STOP CLEAR #NOT STOP ~▝ LOAD THEN z PEEK ( LET THEN IF FORMAT MERGE INPUT [C] INVERSE NOT INPUT ~y( LPRINT wSIN CODE ▘ DEF FN LN POINT >( RESTORE THEN INT VAL$ |SGN INVERSE }ABS 0[D]d LLIST THEN PI POKE >= INVERSE r<>{{CODE OR CODE [U]CHR$ LOAD HVAL INKEY$v FORMAT * PLOT [S]KNOT M+ CLEAR "N"Nk~"NOATN FLASH #[A]%Q(6!#q#p#6 RESTORE # FOR MERGE CLEAR LLIST ! NEXT M GO SUB VAL CLEAR s CLEAR r: REM INPUT FOR VAL$ U FLASH D_~##PEEK BORDER Q RANDOMIZE ++<>W▖▙ TO [USR IN MERGE IN CONTINUE >= PAUSE RESTORE ABS THEN ?+ GO SUB FN LPRINT = THEN IN ( NEXT 0 PLOT # NEXT RESTORE MERGE OR INK !YY COPY CONTINUE 6dt INK INVERSE i INVERSE `SQR iO[R] FORMAT 64 #4 INVERSE +RND OR INVERSE ASN } DIM LEN &iv;"WN STEP ▞NXV▙0 REM CONTINUE OVER {yCHR$ SN[M]BIN ▛▜ CLOSE #F REM STR$ MOVE LLIST 2O2$ CLS z INVERSE ZINT INVERSE DRAW >=n{Cf<>|ASN ><>(>NOT 2SCREEN$ O"ATTR Obk RESTORE VTAN [R]fCHR$ LINE 3O RESTORE OR ▜ FLASH U0GK BORDER NEXT CAT INVERSE &ACS BORDER LEN FLASH y7 RESTORE THEN / READ INK STR$ INK , OR MERGE RESTORE xPI>! EXP 0OA(i[G]PEEK #( PRINT y[A] INVERSE SGN 8 INVERSE g INK PY INK EXP LLIST MOVE STR$ CHR$ STR$ LLIST , VERIFY m NEXT N COPY GSIN { INK INVERSE % IF w# CLS 6CHR$ CLS IN ▜ VERIFY [N]# ▝STR$ SIN LPRINT ▞G8 FOR NOT CHR$ L FOR "O+By CLS INK 68 LOAD LLIST MERGE "z PAPER [H]O▙g+ FOR MERGE 8"} INVERSE STR$ READ GO SUB LN VAL$ [O]!AT O LET DEF FN STR$ I4[Q]CODE AND [ATN <>[N]nINT INPUT x+~ VERIFY [N] SAVE +ACS (+ RESTORE nO NEW g#POINT COPY CONTINUE AND DIM LLIST INPUT FLASH NOT LEN RETURN @u[S]?Z5Zu VERIFY =@CHR$ ▜A MERGE P~ATN (EO-w,,~ RANDOMIZE y<> STEP ▙ STEP CIRCLE RUN U` LPRINT IN PEEK EXP t OUT [F] YI$~$>SGN MBPEEK CLEAR U(W CLOSE #gmY V#iQ[E]Z1PUPeD1PI LOAD CLEAR U]EXP %V LOAD u[C]`p~O(( FORMAT TO [E] COPY OUT [E]EASN . MERGE " ©U0)0 COPY @& VERIFY E[F]X#U3u INVERSE ABS C VERIFY TAB STOP aXF PAPER O CLOSE #o]PEEK T3 MOVE IN OUT [E]x=xm8 CAT DK[F]CODE [O][C]UOASN Uo[F] OVER CLOSE #CODE /hXI^MPOINT UHP(- READ #P$F BRIGHT _ MERGE [R] BIN ([E]P`# COPY [F]mU6[P]▜x<>_ASN UgQtWVNp OUT c@ OPEN #x9^+._5p!be/,Q[P]|@ RETURN [C][F]IN [P]U/_4 +!.|UMZPCOS P`D CLEAR H/[T]EM0[O]p-N9D[U]~X`[A]CODE D8@0n(p@@:5<MP`9SIN Hx>=0DWH80[E]KB@P%Q@ @[C](P"!"p▖FN >=FN ▖p LINE I2+©USR [I]gf~f[S] AND l8l(y STEP CAT STEP ▝* SAVE DATA L▗USR ©[D]SIN NEW LIST <= LIST RANDOMIZE LIST ▝ COPY ▗ SAVE 4iO▖/>USR [E]X COPY ▙ LPRINT COPY 8[S]USR SCREEN$ <© TO BEEP RESTORE `▗n}[D][N]▖NOT ▙K COPY rs▝PEEK [A]PEEK INKEY$ LPRINT <= STOP CAT FOR CLOSE # LPRINT CONTINUE PLOT OPEN # RETURN 7<> NEXT CODE o=g THEN E THEN [U] THEN O| IF [R]oxOVAL RANDOMIZE H THEN OR ! IF OPEN #l[{/AOFN ^>p$ BORDER [S]▖[T][U][R]2 INK [Q]! RESTORE ©|~USR O, PLOT y2H/&.?] DRAW :IN 2![S]USR <Gz[A] CLS ^#~# RANDOMIZE RETURN &]u RESTORE MOVE GO SUB VAL NOT
