| Is a part of release: | ULTIMATE SCREEN |
| File size: | 14114 |
| md5: | 53304e02e6b36bea86488bd3de1f679a |
0 RANDOMIZE USR 0
332241 PAPER /! GO TO [D]JSTR$ 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$ SCREEN$ RANDOMIZE J%8 REM [A]z[th▞[N]LN 69n GO TO INKEY$r VERIFY INPUT ▚▘ LIST PIg@gPOINT rh▚ RESTORE STOP CODE G9. RETURN 69- PAUSE FORMAT H)3 INK c DRAW RETURN IF k ", [S]H-LOAPOINT [L][Q]RROR-- DRAW CHR$ hBREAK - c CLOSE #+cdASQR [U]CODE U[N] LOAD ▚ LOAD [F] VERIFY IN [M]vzTrBBY READ CODE {tI;▖IN block. NEW FN ▝ DATA y[C]@L READ VAL CODE m LLIST CODE Ize LPRINT "PEEK any FLASH THEN ▖SQR < AND ▚vn_[E][L]([F][L]:[M](Y[M]'[U][M]9[N]8[C][N]0 LOAD [N]B2q REM BH[M]488,6zxcvasdfgqwert123450INKEY$Z▛jpoiuy INK lkjh▘mnb"ZXCVASDFGQWERTUSR OPEN #[O] $POIUYaLKJHMNB:$?/NOT STEP [S]TAN <>!@#$%_)('&"; DRAW =+-^N(.,* BEEP INK PAPER SATN ,VAL [R]©/!@ 1[S] POKE SAyPvp < CLEAR CLEAR 986704312076580 RANDOMIZE @@@@@@@@````````[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 GAT @@@@@@@@````````[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 OVAL * @@@@@@@@````````[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 !▝[U]! ERASE [U]!SGN [U] RESTORE STEP ▚[N]B STEP CONTINUE ▖!&@ PAPER [S] STEP LIST [C] LLIST STEP #[D]![T] STEP #[D] LLIST STEP D▝ RESTORE NEXT LLIST CODE STEP RETURN TO ▝ RETURN TO +▝ RESTORE RETURN 1 TO [A] RETURN 2 TO ▘[A] RETURN 3 TO 6[F] RETURN c TO IN ▛ RETURN m TO Z▝ RETURN k TO b[B] RETURN i TO r[K] RETURN T TO 8[B] COPY t TO r TO 2n TO 2>jVAL USR TAB ▛I}Gg▜[J][G]%[F]ASN BORDER [H] FORMAT SQR IF eESQR FORMAT ▟]>= CIRCLE n PLOT LET X FORMAT z,"7Y CLOSE #E@INKEY$[J] `%[K][Q]SGN LINE J[B]78f▘SQR PX. OR Z LINE r[K]STR$ _[U]K▘[A] D GO TO [F] LPRINT b[B][Q]IN 0USR USR TO Z OVER h CLEAR [A]SQR RETURN Z FORMAT }`->=) CONTINUE OR STEP A▝|GuN}VAL z) VERIFY [U]Y'POINT w,2D NEXT SGN O LLIST 6 PRINT TAN READ LPRINT [Q][T]NOT j FLASH POKE &CODE BORDER AT DIM STEP ©<= DIM [O]CODE BRIGHT y▗[I][H]|*COS !Y(DAT ▜ PRINT :R▘^ STEP DIM x CAT (K( LIST STR$ RETURN ^( FOR s[P]▝ OR m? RETURN (L RETURN (T[T]R PAUSE (][O]_bjFN c OPEN # LOAD @NOT K©▖ BEEP LINE j RETURN FORMAT [Q][C]I LINE s[O](? SAVE W RETURN LINE `▗ RETURN VAL LINE ACS $b[B]r CLS h0 BORDER CONTINUE NOT COS ▝ PAPER ' THEN /[E][F] POKE BEEP DRAW [ CIRCLE LLIST I~- © NEW >=,([1[P][x RETURN !(=~<CHR$ %▗[K]QK% RESTORE TO IF ▗Ya DRAW IUSR PAUSE Vi$ .<l INK TO PAPER LET LLIST STR$ [B] MOVE REM ▞[R]TAB [:( INPUT RUN FLASH COPY ▘NOT COPY ▚ RESTORE PIrW3&DyBIN '{RNDIRND[C] OR ( INPUT RNDI STOP ;[Q]>▘AD*FN ^[Q]a▘d$~ STEP LEN [C] GO SUB SgRND}LN PO|[P]IN >=SQR yFN VAL Oa&FN [O]TAB SGN LLIST l&ATN RESTORE INT STEP [C][I]IN USR [U][Q]RNDINT {~2SCREEN$ RND, ATTR RNDO!4[P][B] LPRINT 6YRND2~RND- RETURN [U] LIST [Q][I]> IF FLASH OUT < FORMAT LOAD qUSR NEXT EXP OVER !BX CLS STEP TAB .Q_CHR$ ©COS ▗ DIM }[C](ATN x MERGE CONTINUE OR MERGE [O]}VAL [O]}FN MOVE <>YTAN CLS PRINT FLASH INT ▟~gCHR$ AND ▝ CLS :x/[L]GJ RETURN zASN ▜/%x6 LPRINT LOAD LLIST H[L] CONTINUE EXP MERGE g LLIST Ow TO IN RANDOMIZE INVERSE fuj OPEN #[D] FOR !V/HLaCPI LLIST RESTORE }E|$ STEP ▝VAL zSTR$ INT w<A73EXP <>[P]a ERASE STR$ STEP (V DEF FN ▜h[R] LIST cZ OR +~ACS PLOT @ COPY GO TO uW▛ SAVE PRINT 6"n>FN USR CODE CLOSE # INVERSE "z|"[F]AT LPRINT eGK LLIST RESTORE [R] OUT 6 COPY BRIGHT $ILN SGN b+V RESTORE KXFN STEP [L] FORMAT )}b RANDOMIZE CHR$ oATN %bN INK TO g▘6(:(5ATN h[B]c INPUT B` VERIFY ? OPEN #{#USR ~_4~WATTR H IF ~ FOR LLIST <>=-]8CasPOINT ▗▖=>==YC RESTORE B8l_ATTR LPRINT ATN LINE LINE >= RESTORE CLEAR MOVE OUT 9X BORDER CIRCLE RESTORE y INVERSE LPRINT zWPEEK 68{EXP SIN [G]g2,~>:2VAL ▝ RESTORE MERGE CODE OUT 9K GO SUB S▞ STEP CAT CODE * DIM {ATN GO SUB R MOVE LLIST 0 CLOSE #KINT faLN T OVER O!b RESTORE Ga IF LLIST ,} FORMAT LET FORMAT CONTINUE c} PLOT ▝ FOR OR COPY ▝ MERGE o<=~`SIN RESTORE OATN 4< *MY GO TO $▚ RANDOMIZE A[B] THEN © >=>S1G NEW xG[A]#VAL OO9STR$ !LN LLIST -?2 LET FN ©O: DATA { VERIFY ERASE IN $[G]▝STR$ LLIST Gx©[Q]q6/ DRAW [H]! MOVE < ERASE [S]Xo STOP DIM [E]SQR q STOP BORDER &$a FORMAT VAL$ ▜ CLEAR FN Y LPRINT &< BORDER j OR DRAW OSTR$ oyw--w NEW ABS LPRINT [Q][K]9 MOVE n@E LIST [A] AND ▚ CLEAR ▜ RETURN ( RETURN OUT [K]*]kPCHR$ d[K] DRAW ABS @ LLIST ▘TAN @PI CODE CLEAR LOAD <qSQR REM THEN d#TAB [R][ CLS ASN LEN [R]▟ MERGE a6▛&e LINE [A] RESTORE ,S LOAD s@ FORMAT ▚ fAT ▞▝`3(4[ RETURN ▖[I]G[O]▖STR$ `#B,b(FN ACS kSTR$ STEP x▚[I]9▘2f▖>ACS DIM `3 DRAW :[K]bTAN }=(jGLN ,[K]o RESTORE &'Y IF >[P]>/) NEXT [C] LLIST RESTORE <[K]K[A] LLIST ~[O]▜ FOR < RETURN F='`▜oHW LET 6cIVAL LLIST ▚ SAVE RESTORE PRINT : FLASH ~ LET LLIST _ DATA uKNOT E▘[F]▘▘Y▘[U]▘▘[C][F]B LOAD [N]I!s[P]~``<= LOAD 6Dd)POINT INT NOT ▛▜{TAT r▖ OR 71m2 CAT [L]314 5 INVERSE [M]6N7 LINE CHR$ [N] RETURN 8 LINE 1[O]STR$ > MOVE Z2 POKE >2c[P][K]j/[L]'POINT POINT LOAD MOVE DIM GO SUB [ NEXT {z< LINE INK [F] RANDOMIZE [J]USR AT © MERGE DIN STEP ▛▙s PRINT RND~ ]FN TINKEY$JSGN i SAVE W▝SIN PLOT "' BRIGHT LEN ( RESTORE CONTINUE >=[I]uCODE =[A] CIRCLE SCREEN$ AND !@▖ LIST BORDER INPUT [eS[C]D$ OVER DATA USR STEP ▞ STEP COPY ▙ FLASH NOT Z[A] g LPRINT CIRCLE v?vTgX( MERGE tFN ▞[T]▘%>EXP DIM f?▛ASN SQR F|k+` GO SUB LPRINT COPY 2▛Y.-Xn-ABS SIN PEEK USR ] LET [Q]▝V& RESTORE STOP Ok1VAL ?▜ ~: DIM USR BORDER n RUN BSTR$ r BORDER z FORMAT OPEN #bINKEY$ LLIST D FLASH o DEF FN ERASE [I]ABH>RATTR H©<>CODE POKE [T] RESTORE (d_ngNOT z PRINT LEN INPUT RETURN /8 REM FLASH FN (7[C][C]+g%5 DEF FN [E] RETURN 2BF60IN n&{2INKEY$ RETURN 30SCREEN$ 2 MERGE @zNINKEY$ [A]<j STEP CHR$ [G])ATN FLASH CHR$ 5:INKEY$2[H]2%jp<= STEP ▘ GO SUB S[G][S] PRINT PxCJN6 # SAVE >wn MOVE [Q] [B][S]% CAT l1 CLEAR AND NEW NEW FN [K][F][S]>0 BORDER # DRAW |▞ PAPER Z NEXT w ERASE 3▛5+~USR q▘iATTR MOVE STEP FOR o[U][A] CIRCLE kO/xUSR G▘ PRINT B0;"j DIM TO .<= ▖(O|8 STOP ro [P][N] LIST ? NEXT USR PLOT o FOR MERGE - MOVE FOR STEP |▞><> FOR TAN [M] PAUSE DEF FN Y INVERSE (7 RETURN TO USR 4.32!"1▗ RETURN ( RETURN L(>eLN sSIN PEEK f AND LET OR [L] CIRCLE +▘▜AT MERGE LLIST *[0*>=[ CIRCLE *kSCREEN$ STR$ LLIST ▟[P]TAN S AND [K]7UUSR [D]~ BRIGHT PAPER ASN jLEN DRAW CLEN 7AF<>kiUSR RND[Q] NEXT LIST LLIST RESTORE PLOT 7 LLIST RETURN e([H]COS cEy[Q]H RETURN g(KATN BRIGHT R0▟z POKE u CLS s LPRINT mdb TO ,$[L] TO [K]<= TO ▖>=( TO BEEP ▟v RESTORE lTAB : DATA EXP DEF FN 1[R] OUT ySTR$ RESTORE 20 RUN LIST hx$n RUN QLN {E GO SUB T BORDER ▚STR$ © OPEN #[Q] INVERSE 'INT < LINE 6▞3 LIST >A~[L]K-NOT 8▟6 LET [M] CIRCLE "(LN 6USR (SQR OR ▚A FORMAT STR$ STEP ) LOAD FORMAT 0NOT "-2.`KUSR y INPUT h OPEN # INPUT 2 MOVE PI[R]▗ATTR [R](x PAUSE ▚*>#M H( FLASH TAN R ERASE D▙ BRIGHT .!!9~2ABS ▝ INPUT STEP 2 CLEAR STOP xEXP STR$ rn▘ FORMAT RUN !'{ TO LPRINT y2[P]RW FORMAT pCODE <> DIM ▛5L[R]o1~EsATTR Y PAUSE AND E STEP PRINT DATA SGN SCREEN$ 6 FOR ACS CODE PI PAUSE jCv}GPId>=x RETURN ATTR ( INPUT ▛TAN USR COPY :"CODE [Q] COPY [E][P]@ LPRINT COPY v) LPRINT Uj BRIGHT LPRINT u4[R] REM [A]fvK|[K]$Z( ERASE LN 4`@ CAT }ATN RETURN ▛>=FN SAVE FN x GO SUB ATTR DATA @SGN STEP THEN ▟8▜SGN VAL$ | RETURN Z0 RUN RETURN ` CIRCLE FORMAT [K] LIST CLS [Q]vUSR LPRINT LPRINT ▟ d@ LINE POKE RETURN USR RESTORE !Z POKE VAL$ STR$ [B]<=x_ CLEAR STR$ AONOT BRIGHT [F]=Y▛#([F]USR CHR$ =[A]8= LINE j:©INKEY$ LOAD LLIST a!1Y PRINT RNDP▘NOT wNB OUT [E]_r TO PLOT {'9[H]!|@;INT ▗{, STEP DIM ▙9[Q] RANDOMIZE R▝>=' READ INPUT E INPUT USR AT 9 CLOSE #} RETURN 1( CAT <>F*` LET TAB LEN OR CHR$ v#T NEXT TAN [K]fk© THEN "SQR 8[D]AT VAL$ l1EXP 32Wov NEXT ▜& PAPER BRIGHT "ASN {*RNDX;GDa STOP T +`iD INPUT 3: PAPER { MERGE Q STEP GO SUB [Lj&SCREEN$ RND MOVE ~ NEW SAVE ▚b STOP RESTORE &AT LPRINT S FORMAT ~< NEW LEN x DRAW THEN FORMAT INKEY$ REM [C]K[G](a@/EXP DIM NEXT a([U][I] ERASE [H]tk|& MOVE PLOT @gz READ TAB #"&SIN [C]Zg VERIFY |<2%C▘[J][E]>ICODE E+_ SAVE [M] MOVE LLIST MERGE RESTORE O STEP ][E] LLIST MOVE : STOP {= AT FOR LOAD NOT " GO SUB { GO SUB S LET { MOVE FN FOR $SQR ▚<>POINT CLS CODE n BRIGHT >= IF NOT ,.r BORDER =_CODE W[B] LET [I] ERASE AT [A]CHR$ ▜STR$ RESTORE OR :STR$ { RETURN (!▙PI INK * TO {[J]r+mz! CLS {d(R.▝[R]F MOVE gUCHR$ {▘*LN INKEY$ RETURN 8>?,AT INKEY$ DRAW LIST INKEY$,fINKEY$[E]F5B!=|6Sl PLOT [I]Cg CIRCLE INK FN LOAD 0PF▛[D]j[R] LPRINT GP{Q@yPOINT ▝O REM BORDER j. ERASE - LET PSGN STEP ABS RANDOMIZE &]*IN x2 READ {V-j[L]NOT 4[C],G LET FOR J LOAD INKEY$H NOT i▛ RESTORE QAAT $ RUN iNOT ▗ INVERSE ! COPY LPRINT IN 7<> INK FORMAT |SCREEN$ S[B] RESTORE NOT b DRAW !} STEP [B] STEP PRINT [I] CLEAR READ VAL &8©©CHR$ INKEY$[K] RESTORE ©([S]▝~[I] PLOT ("HINKEY$▞jE[C][[B] RANDOMIZE [D]G RETURN LINE K[C] RETURN ( RETURN n LINE N[C] CONTINUE DIM u[C] PRINT ZPOINT ▘ OVER HINKEY$<>:ABS A<> MERGE >CODE r BRIGHT [B] MOVE ! STOP ©i OR INK ABS INK [F] FLASH O}[A]. BRIGHT ▚~,EXP ( FOR y RETURN TAN ( NEW RETURN I( STOP RETURN ©( OVER RETURN ( PAPER CONTINUE y INK STR$ W IF RESTORE Ww[G] OR !STR$ MOVE ABS LET 2L[G]D*xPI RANDOMIZE :2~0 OUT PRINT {! MERGE ▝▘w, RUN B@ LIST 4IFN MINKEY$ GO TO NOT ACS | CAT LLIST MERGE [F][S]!x RETURN VERIFY ERASE 0))o0 INPUT $ FOR } MOVE <> RESTORE ISQR p[A]0 LLIST FOR !PRND PAPER ©USR wCHR$ oCHR$ gCHR$ _CHR$ WCHR$ OSCREEN$ TAN (4# LLIST PRINT THEN ? DRAW DIM W LET [A] STEP OR [C]ZW<> LIST CONTINUE RETURN :| AND <>CHR$ LIST CIRCLE DRAW [M] COPY FORMAT H>/<8 DRAW GO SUB B<>:0~ MERGE RESTORE THEN w( THEN o( MERGE FOR [A]VAL$ )+ FOR `POINT CHR$ "COS ,,#~0 IF Id. PAPER LLIST STEP TAN LLIST uNd RESTORE MERGE 6 READ :[U]X STOP INKEY$ACS #zPOINT SAVE FOR wINT NEW MOVE MERGE z-=kg▘qq[M]: OR #>©NwFw NEXT [C]SGN CLS RqSTR$ [O]9 MOVE LLIST [O][N]CEXP [H]>=GINKEY$N[A]r[A]SQR LEN TAB AND NEXT LEN B`d RUN [D]"23[D]RND*[E] USR 27[D]▜ NEW 2X[D][J]V THEN ERASE [K][R]{24z2/~Q"I▙ INVERSE STEP CONTINUE [D]~#▜8 PLOT J[U]*.~ RESTORE TAN CAT ^>bwACS NEW ©= RANDOMIZE s LLIST CHR$ JEPI THEN - CLS LLIST $` BRIGHT /l GO SUB I~▜ STEP K[E] FOR LLIST :[U](O RESTORE oASN LLIST [R](4$ LET !-[T] THEN #~PI * BORDER {" RESTORE SCREEN$ CLOSE #r CIRCLE SQR LN ▚0&-EXP oeAT kkAT k#▖y OPEN # RESTORE # MOVE <= AND yC OPEN #{ LPRINT PEEK USR OPEN #G LIST SIN .ATN BORDER >=C+ CLEAR OR ACS u▘h CIRCLE _PI▘ SAVE OUT FOR 2ATTR [E]2VAL$ [E] RESTORE PI OR RESTORE ▘▗|G SAVE vTAB ;0STR$ MOVE LEN POKE FOR <>aBVAL$ t INK |VAL LN DRAW FORMAT CLOSE #[R]|Ge▖>= STEP RESTORE [E]( CLS PAPER RETURN s SIN & ERASE VERIFY / NEW ▟ THEN 8 PRINT !{}(▝ ERASE G': INK THEN OBIN .[F] ERASE {# SAVE PAUSE CODE INK <>~ATN INK <> LIST ▜ ERASE 2 INK NEW 9zSH POKE GO SUB [P] STEP LIST [C]CODE STEP RETURN TO PAUSE [F]_ RETURN 08 PAUSE RETURN 88F RETURN e LINE ~ CLS ▚b RESTORE BIN ▟VAL [H]`FCODE [K]+fX,[M] LIST 3. BRIGHT [F]H NEXT /k![R][Q]>nw,> wEXP @TAN ?▟&[N][Q]©STR$ FN nEXP [L]02 FORMAT [I]9_: OUT )COS LIST GO SUB owPEEK TO . PRINT [[I]&@-O LLIST [Q] RESTORE "VAL$ NOT NEXT [A] LOAD OR = STOP LPRINT GEACODE OPEN # RETURN RETURN STR$ FOR <> INK RESTORE INK LLIST DRAW REM X 8EUZ STEP [L]0= DATA ( ERASE 83 CLOSE #< RETURN 8*| RETURN Y( DATA MB! LPRINT ( RETURN ( RETURN @USR >e[U]& NEW LIST RETURN REM [D]< AND 0<>>b LPRINT ▙0 POKE q} THEN PIz DEF FN FLASH `^[I]CODE <> RESTORE GO SUB & NEW a& STEP CHR$ [H] STEP l[G] BORDER 6[G] OR [I]5[H]/[Q] CLS [E] RESTORE ▚aCxINKEY$O LLIST s^ IF f OVER INKEY$USR =<> STEP OR U1"A THEN :RND; IF SQR PLOT Iy([E]G#} CLOSE #INT LN BRIGHT GO TO [O]l INVERSE V INVERSE ^ THEN 2 THEN 3 SAVE ~[S]COS w+STR$ PAUSE +PI[EXP STEP LOAD [G]ANOT [Q][K]y FORMAT $ STEP [H] CLS v NEXT (N| STEP 0▘ RETURN [ FORMAT O~EXP >=q<>~OATN (▘. OPEN # MERGE LN USR THEN xUSR 9GLN ▚ SAVE VAL >AwIe ERASE ©& INK TO FN [H] CIRCLE CLS NEXT VAL NEXT ▝ RETURN 0@3($0 ERASE /Lh!:>Q"Qt| OUT COPY :RW GO SUB x2 PAUSE IN [C]GJ*[A] RETURN LN 8": DATA B▜▗>LN PAPER Urw%Ub LIST 2 RUN IN }K PLOT IN OR *NOT PI GO SUB B( GO SUB C POKE IN STEP DIM [H][C]>▙ STOP IN STEP ~+ STEP [I] NEXT STR$ OR MERGE H THEN ! THEN !R~^#Vkb GO TO [A] NEXT MERGE y& THEN ?_y RESTORE $| DATA nUSR } AND [I]?[P] NEW CHR$ LEN LIST <>▚<= LINE [I] PAUSE yK RANDOMIZE OR VAL$ [I]▛ REM USR VAL$ [I] READ <>[M]SIN [I]1 OPEN #<=cATTR De IF [A]W▚eo5Q0" VERIFY 7▘jj-STR$ * FORMAT D$ CONTINUE USR | VERIFY 6 STEP PLOT Xg RESTORE STEP MERGE [I]} LLIST w<>STR$ m;ASTR$ LET STR$ OR PRINT STEP [L]NOT LEN [A][C]*SIN T FORMAT PI▙▗POINT l[J][R]eVAL$ [I]▛,z INVERSE f LLIST ACS > COPY 7 NEXT [L]C[Q]|[J] RESTORE NOT bPOINT ` PLOT OIN USR ACS I IF ![E]p[S]+<>▝ 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 LINE ▙USR yO INVERSE #SIN .?▘; THEN LN THEN VAL 0 NEXT |TAB gzCOS @; ERASE | RETURN STR$ PRINT 8<= DIM LOAD ▚[J] FORMAT >= CLEAR PI>=>© FLASH RETURN FORMAT POINT NEW ( NEXT y/O▘[D] NEW PIC CLEAR k CLEAR P"w: PRINT POINT 2)[J]* DATA |POINT g}POINT o">=GG[J]@naFN a@SCREEN$ 1ATTR 2"[J]:<>ATTR LN ▜▜N CLOSE #]a a(bbx[P][J]Y;xH[R]i TO INKEY$[J]Md@dhhi[U]:[E] ATN [D]>=TAN xnk#@CODE COPY [I]:b[U]ATN RETURN STR$ [T] CONTINUE STEP !/[U]NOT @@Jv DATA [A]▚1d*(GLEN PI~n MERGE bCHR$ LLIST CLS >) STEP 8[L]>j`O7M RESTORE [I]Z CLS v! DIM Z STEP FOR [K] OR NEXT STEP K[G] CLS RETURN BIN RESTORE [E]STR$ LLIST ATN ( OVER NEXT [A] RESTORE [D] PLOT [U]+ STEP BORDER [K] ERASE C RETURN 4 DIM LLIST !SQR |D< OPEN # RETURN NOT CLS GO SUB _ GO SUB / PLOT (w, NEXT w LLIST $ DIM v NEXT <> RESTORE CODE goATN RESTORE GO SUB B LLIST <> CLS TAB [Q]7▚ STEP ▚[N] PAPER USR USR qSIN GO SUB C NEXT {[U]4:[E]@u CODE BXX(CHR$ SCREEN$ w&SQR [P]OTCODE NOT MERGE [E] BORDER DRAW Y PAPER MOVE "[S]rB PRINT [S]r PRINT READ [Q] CONTINUE w c LIST LLIST $>[U] NEXT © LLIST Vh OUT READ NOT OUT wqOT[F]N MERGE 9rNOT ~:NOT 5q▖ REM [D] STOP <>[G]AT [F] ERASE [N]EXP _ BEEP [Q][F] BRIGHT DIM CUATTR qB SAVE qUPI© BORDER wC PAUSE CODE TAB MERGE : THEN d DATA ▚EXP CAT RUN Mo OR NEXT ~#[T]o OVER oT STOP ASN MOVE { oR BORDER LINE OR OR READ STR$ [H] CLS ▝O0d CAT K8 SAVE ERASE x RETURN [8 INVERSE LLIST STR$ ,} NEW ERASE <> POKE 7USR NPOINT 'k STEP DRAW [O]4 INPUT EXP PEEK CLOSE #ABS INVERSE DEF FN ! OPEN # MERGE MERGE #(▘ MOVE ? RESTORE ▘WH1 MERGE (#(_▖ MOVE "@I$GR IF LLIST P? NEW LPRINT INPUT >▗g RETURN X8 NEW R:1 LPRINT >=X~> o0 RUN $ POKE LLIST , GO TO <> RESTORE u OR STEP {▚ STEP INPUT ! DIM @> STEP TAN !▛[P]!Y STEP FN ▞ STEP OUT [E] RETURN TO LINE [H][O] OR RETURN LINE &▞ RETURN LINE 4▞STR$ STEP p▛ RETURN 1 CIRCLE RETURN 9 FORMAT PRINT _ STEP 5▖ECODE @ ERASE LET NEW G MERGE R}og PLOT MOVE O▖*.&op}9 OPEN #[C] STEP *[L]!j})P[M]ACS H MERGE CLS OR >TAN C▜8 STEP /[P] READ RESTORE GO SUB VAL LLIST READ ▜0 FOR STR$ >=AN# THEN THEN OR CLOSE #7[P] INVERSE ▜ ~# CIRCLE ▜ THEN THEN PAUSE POINT xH INVERSE rMPEEK $ RUN D/(SIN STEP DATA :[N][I]ClC COPY STOP 9 TO @ GO TO 5USR INK BORDER BIN LPRINT )PLACS LET LIST m8gVAL Y*208FJ30<j41<5128SCREEN$ 6 LIST 0 LINE 7`1[U] REM H8 9 DIM EXP n~^[S]ATN GO TO [O]ABS [I]vCOL8▟[K]DINT VAL 0ack THEN (1Bo)2BM GO SUB [F]I3 Mag TO ta▖i4▟▞75▟ STEP ?POINT V6[H]d[L]<> PAPER 7`/VAL Wh &/INKEY$u/ BEEP OVER [K]V}w CIRCLE BIN BIN BBIN Dr[I]3{ DATA DPff <T<=NGSTAN ▟TAB Uj! RUN lo THEN @"H>8Lk!9 CAT DATA FOR @MACS [U] CLEAR 4uEH REM ▖)i;+YVAL$ B5i GO TO TGUSIN C[E]VAL$ AND xF[O]!y THEN l▛`pc([Q]ATTR ';& DATA ▗bpIPIXi THEN RETURN [B] BRIGHT cmair[U] FOR H K▖ LPRINT POKE pfn[Q]?▗u▖7AASN +BIN FORMAT U VERIFY [rK OR Z▖X▙▟us#.l MERGE R[B]GSCREEN$ ▖Y RETURN w1#p -J AND USR GhdYNOT "3"De[A] RANDOMIZE [Q] THEN INK BORDER LLIST 4▚ STEP [R]eF TO ACS FORMAT DEF FN f[ RESTORE Xmt0POINT <>NOT LN CIRCLE 0N*[E]8n8[S]▙CHR$ COPY EJiS"[N]=[U]jPE▖-[P]P READ [K]PIO7)▛Pa[D]y CLS TO DRAW )[E]P255 PLOT CAT y▚-=[T]▞Y>= AND "wf)8.K[B]GF!6vny VERIFY G STOP ▞@SELECSIN L[S]OP▚!▚[K] LPRINT GP▝|M'P STEP FN __|FP YP*L9 CONTINUE [L]ard "(o%2*@ATTR COS l[ FLASH +[U]'H3▖ DATA FOR POKE sLEN MERGE [M]GX0gxNOT ▜[Q][I]H[A]H"-T▖u CLOSE #bo a ERASE h-CR▖▞TAB b CAT LPRINT ▖HBIN r[I]▙&RND5 LOAD uf DATA MPIHC▖ NEW [Q][A]o</nefqeAT ▜ BORDER I LINE Pk▖[H] READ TAN _LEN [U]<=VAL$ 6▖:▗ NEW SAVE [L]s) INK ▖,PRZ ▗i▖3IN READ LS▖FN [H]ATN /R[Q][Q]s@ THEN ASN ▘.PIM@[Q]m@TAB U" DATA uH[E]@F[R]ROM OPEN #PI OVER LON'[R] VERIFY HXO>=M- Ivah,B ik©2024STR$ 6 STOP z[L]>BX[O] E+_'e/.MK'g©_oSCREEN$ ERASE |![T]GSHIFT+T ul[L]aKfaSIN ^[L]B CLOSE #tI VERIFY hbu"▖HUCHR$ Pixel:▝SQR 3▙ CIRCLE BEEP Vlue NEW ME*%bXIFF LPRINT ▘@Addr/T/S58 USR IH>#4000 CAT " DATA Co[A]$di[S]'▞BIN X,Y=00▝[U] STOP EH[C]EXP CHR$ <cgATN POKE TO CHR$ CHR$ CHR$ CHR$ [D] CONTINUE p STOP STEP G%HEnt REM Ka STOP j ERASE 1Wt5E7[F]BIN [Q] RETURN F CAT STR$ RfxX POKE G4HaATN <=@By OVER ▚h OUT ▗lq,▖ OR [J] READ STOP F▞@ g THEN a INK 5[M] DIM @Up 8?Down[Q])x)HL GO TO *M)mIPEEK i] GO TO PAPER )5iRiZ1=)G▞HL NEW D ct$uR REM 2) USR STR$ ? DATA (SCREEN$ H[M]STR$ KmLN z[B]rW▝j RANDOMIZE RASN THEN s.$E ERASE Re[A]?Lq SAVE Y/BIN <=NBIN E)HiPsNOT LPRINT H<>@[U]l_{! ERASE AT sh]ltcub SAVE cc=,hstruV(Jqr[I]nu R1 DIM H DRAW LN MNOT ▚*M[R]XP New POINT Fy,f PLOT ed DATA y[S]@HeEF.rTAB ▚▗th▖BY.SI[E]ypeV 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 REM CLEAR NEW PAPER [L] RUN LOAD BEEP VAL$ NEXT CLS CLEAR LOAD CLEAR FOR 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$ PFN 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 POKE PEEK INT ?[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 { REM CODE 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 ▝CHR$ VAL$ CLS OUT VAL$ O JCHR$ -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$ ;▘ CLS ATTR LINE LN [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 PLOT /~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 RESTORE CODE FN / REM LET ©CODE 2 LOAD RANDOMIZE ▖Q INK <>[F] CONTINUE Start :&IN PAPER LN Lenght INPUT :Call PAUSE Mode[O]WaiNOT POINT lease.. 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 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 CLS /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 PAUSE INPUT &SIN 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 6[N]▜ 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 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 RUN INT mO[O]EXP OUT U fIE$~$>4SGN BPEEK U CLEAR (] CLOSE #[N]ASN Y Y#RNDQQZ1VPP1e1[N] LOAD V CLEAR uEXP [F]V CLOSE # LOAD [C]`Yp8~9PI@QO((@ TO S COPY OUT RE VERIFY .V" W©RND00 COPY &Y[F]am#T3 MERGE INVERSE aABS CXTAB ▜ STOP X PAPER OQowQPEEK 3EIN OUT S PLOT xxm8 CAT KUCODE [O]V[C]OUASN oU OVER RsCODE hX%5^UPOINT ASN HP( READ P$q_W[R] (SP`▙ COPY TVm INK [P]x&_WASN gEt]YNp OUT @M BORDER x^P+. CLOSE #_p▗[E]b/,E[P]|@U RETURN [C]TIN [P]V/ MOVE _ ▗+.|TMZACOS P` CLEAR !/[T]50-[O]TAN pN9[B]~X`BCODE 8@0[R]np@@ CLOSE #:4< RESTORE P`>=Hx"0WH80QK@PE%EL@ @H(P▖!p▖FN 4>=FN ▖p(CODE I2©USR [I]Jgf~f( AND l8l[S]y STEP CAT STEP (▝*1 SAVE DATA ▗USR ©M LINE NEW CHR$ <=NOT RANDOMIZE NOT ▝ COPY 3▗ SAVE ERASE iH<!/>USR Rb COPY 9 STOP LPRINT COPY ▖▘USR LIST 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<>CODE o=g THEN E THEN [U] THEN O|SGN [R]oxOVAL RANDOMIZE H THEN OR ! SAVE Ol?[{/A)FN ^>p[A]USR [T]USR [R]2 PRINT [Q]! RESTORE © PRINT {~USR O, PLOT y2H/&.?] DRAW :IN 2![Q]USR <Gz[A] CLS ^#~# RANDOMIZE RETURN &]u RESTORE MOVE LPRINT GO SUB VAL NOT [L]S COPY
