| Is a part of release: | ULTIMATE SCREEN |
| File size: | 13920 |
| md5: | 80270f000a14570e9866fc1cf6ba434f |
0 RANDOMIZE USR 0[J]O61 TO / NEXT !*[D]STR$ 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 <>[Q]SCREEN$ [K] COPY LINE TAN 2 LLIST ©[A]zX▗[J]w69[I] QABS k▘ m|Ym IF g@%
62391 INK 5 GO SUB kG▘▛ LOAD USR ▚Z9 PAUSE FORMAT HK}JSQR FLASH COS GO TO RETURN IF k ",[Q]H-LOAD ERROR- DRAW CHR$ h LET AT LINE REA▖▟-cancled DATA y[S]@*I[T]CODE a LLIST SQR u<>IN the>6YTE:7[L]p LIST VAL$ POKE [K](D[L]:LN [L]([M]'S[M]9 OR [M]8B[N]0[P][N]B2TAB BHS[M]488 CIRCLE ,zxcvas[I]fgqwert123450NOT Z▙jpoiuy INK lkjh▘mnb"ZXCVASDFGQWERTUSR OPEN #[O] $POIUYaLKJHMNB:$?/NOT STEP [S]TAN <>!@#$%_)('&"; DRAW =+-^N(.,* BEEP INK PAPER SATN ,VAL [R]©/!@ 1[S] REM DATA SAyPd` < CLEAR CLEAR 986704312076580 RANDOMIZE @@@@@@@@````````[Q][Q][Q][Q][Q][Q][Q][Q]USR USR USR USR USR USR USR USR LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GAT @@@@@@@@````````[Q][Q][Q][Q][Q][Q][Q][Q]USR USR USR USR USR USR USR USR LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OAT @@@@@@@@````````[Q][Q][Q][Q][Q][Q][Q][Q]USR USR USR USR USR USR USR USR 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 STEP CODE USR ! BORDER X RESTORE STEP 5[N]B STEP BRIGHT ▖!&@x[S] SAVE .[T][C]![U], VERIFY [C]![Q][S] STEP VERIFY [C] LLIST STEP 8SGN LLIST ▗ STEP SAVE PEEK STEP 1 TO S▘2[R]3a[A]c[R]mkkMAi5[K]T LIST [A]tir TO @n TO 2>jVAL USR TAB ▛I}Gg▜[J][G]%[F]ASN BORDER 5 FORMAT SQR IF 7[F] RETURN INKEY$ ▟e[U] CIRCLE [L] PLOT CLS X FORMAT z!"7Y CLOSE #E@i`@ CONTINUE [J]| INPUT LINE [B]▟,v LPRINT PX LINE DEF FN [N LINE 5[K]STR$ J[U]J[A] RETURN TO 1[E] LPRINT [B] [Q]$ DEF FN SQR USR TO N▝NOT ,=!BIN SCREEN$ Z FORMAT }`▟>=STR$ 3z OR STEP 5▝|G[N] OPEN #AT ) BRIGHT DIM Y▞POINT w, TO D▝CODE O LLIST PRINT O- LPRINT FN PAPER ABS BORDER f COPY RESTORE PRINT sBIN ▚ NEW [K]▞COS ACS u DRAW CODE g BRIGHT ▚[H]&*ASN `Y~ ▘▜z PRINT LPRINT ▝:G▘^ STEP INVERSE RUN K ERASE ( LIST STR$ RETURN ^( FOR s[D]▝ OR PLOT RETURN (M RETURN (U3.* INPUT (^`c PAUSE USR ©d OPEN # READ BNOT ?© | BEEP LINE ^@ GO TO J{▘I#[O]STR$ LINE T▗ RETURN VAL LINE z"▙[R]a CLS 06)CHR$ PI▝[' THEN /R[D] ERASE _ NEXT [ CIRCLE ' OUT RANDOMIZE -E DRAW < STOP >=,a3RZ▟USR /LEN [N]RNDx RETURN !(<~<CHR$ ▗EXP DATA # RESTORE TO INPUT ▗W_ IF IUSR |3NOT HSTR$ k|CODE GO SUB ▛6jSTR$ STOP vTAB :m INPUT RUN 2[U]▝NOT SAVE ▚ RESTORE LPRINT %"i MOVE [U]| FORMAT ,BIN '$RND*RNDI[S][R]AT '(RND▞ INK BRIGHT OUT *FN STOP [Q] DRAW ▘ COPY [U]<$~ STEP d[C] GO SUB SRND} LPRINT BBIN }_& LOAD y6VAL$ USR Oa[K]![Q][U]ACS $6 LLIST l&[E]INT [C]c'BC▘"|~2HRND,<IRND!>|CHR$ ©CODE CLOSE # RUN [U]2RNDTAN [M][U](%CHR$ [E][I] IF FLASH OUT <A LOAD { NEXT NOT x!BX CLS STEP [R].Q_©COS DIM }[C][S]STR$ LPRINT M[R] OR MERGE {CHR$ zY PAUSE MOVE @PEEK LLIST RND[L] IF PRINT FLASH BIN ▟©▜[G]CHR$ INT ▝ CLS :x/TAB OR TAN ▗_▜/[x@ THEN SQR HH[J]{ MERGE v LLIST Ow NEW PAUSE j RANDOMIZE ▘ INVERSE INK utTAN [D] FOR ! MERGE /H`LCXPI LLIST RESTORE } MOVE |D$3 RUN FN STR$ ^INT AND w<A3M<>n[P] ERASE X STEP pV CIRCLE ▜}LN c[G] OR +~- PLOT } CLS ugSQR PRINT 6▝">FN USR CODE ASN #n|"[F]AT LPRINT K LLIST RESTORE [R] OUT 6 COPY BRIGHT $!AT SGN b+V RESTORE K^FN STEP SGN [K] FORMAT )}b RANDOMIZE CHR$ oATN %bD[J] TO /▘ PAPER LINE [E]:(ATN h[B]c INPUT B` VERIFY ? OPEN #{#USR ~_4~W)H IF ~ FOR LLIST <>=-]8Cks[N]▗▖=>==YC RESTORE B8#l_ATTR LPRINT ATN LINE CLOSE #>= RESTORE [B] NEW DIM ^[M] OVER BORDER M RESTORE z STEP LINE SQR 68{NOT SGN [G]g2,~>[P][E][U]▝ RESTORE MERGE CODE ERASE 9R GO SUB S" STEP NOT CODE *Q|ATN GO SUB R MOVE LLIST 0 PRINT DIM NOT ATTR Ow%>=l RESTORE k IF LLIST ,} POKE LET USR FORMAT CONTINUE CIRCLE ▝VAL RUN = PRINT LOAD OR OR j▝PEEK MERGE <=▝~SIN RESTORE OATN MOVE <*VAL EXP $o▚ RANDOMIZE A[D] THEN © >=>S1G NEW xG[A]#VAL OO9STR$ LN Q CLEAR LLIST ?IACS LN FN ©O:P|ASN ▝ DATA o$ LPRINT STR$ COS [B]x[P]q CLEAR {[H] MOVE > CONTINUE X STOP U RESTORE n©[M]x BORDER ▘$L(e POKE !Y VERIFY ▟<<=COS TAB CIN OABS ▝oyw--w9AT [M]f/TAN n@LN ▚LEN LLIST ▝[R] RETURN ( RETURN OUT INKEY$*]a CLOSE #CHR$ `▚ FORMAT fnm▙©@[T]CODE b RANDOMIZE FOR r RUN REM <=: STOP INKEY$L[R] LET ▘~m DIM INKEY$[A]` LET [J]/VAL c RESTORE 6JEs@<>▚ f[Q]▞▝z`3(4[ PAUSE ▖[I]G[F]▖STR$ `#6,V(FN LN kSTR$ USR ▚©3[Q]2]▖!Y: DATA REM b<[O]=([K]GASN ATTR &INKEY$o RESTORE ' NEXT >= INVERSE [O]>/{INKEY$`SGN [R] RESTORE <<> RESTORE SGN LLIST ▜[F]▜▚ LINE ▞SCREEN$ 1 LINE (▞STR$ jFJ7/;g RETURN H▚W LET NEXT IE LLIST TO RESTORE PRINT :l~ LET LLIST _Nu[K],D2LN ((S( OR (B([F][P][N][E]I@[P]~ PAPER Z CIRCLE _ LET 6D[O] GO TO STOP +[R]NOT ▘▜ FLASH { VERIFY i▖ OR z12 ~3 LPRINT [L]4/5 LINE CLEAR [M] RETURN 7 LINE r[N] RETURN 8 LINE LLIST [N]STR$ >2J| MOVE ZSQR B)[P]hdr[P]>=ATTR LN [L]CSGN MOVE DIM GO SUB [
17532< LINE [M][F] BORDER [D]USR CINKEY$@ MERGE sADIN B ) TO STEP GO SUB L<>[O] RUN ~▚ RESTORE LIST PI[R]i COPY :x©"TAN (jeLEN [M] RUN >=uCODE =AATN bSCREEN$ AND ▚@ CHR$ LN LLIST BEEP CLEAR ▖ STEP [C] OVER DbJ[Q]USR STEP ▞PIa&USR !LZ FLASH [A]CUSR DRAW LLIST [K]?vPgX(Ut[M]▞©k%TAN DIM f6?g[E][H]POINT |+A` GO SUB LPRINT COPY <2NhYD`TAB RESTORE @BIN vUSR <>STR$ ▝V' RESTORE SIN Ok[Q] INVERSE <= { CIRCLE ABS H BORDER F BORDER BSTR$ N BORDER o( OPEN #4 LLIST FLASH LLIST <> ERASE BORDER FRLN ACS POINT H▜>R ERASE [P] MOVE CODE %©TAB =[R]Gk GO TO PAUSE RETURN /8 INPUT NEW ? CONTINUE oN(3)LATN 5"% DEF FN (4:▖@ RETURN 2[C]USR 60SQR PAPER ATN &D{2LN RND RETURN 30INKEY$2ASN *zATN RNDSIN [B] POKE <'[D]LN lACS RESTORE 4[S]~6 # SAVE >*{ CLS 0[S]NOT CONTINUE 1[K]▞ PAPER NEXT wA ERASE INPUT STEP ~ LIST q▗[Q]iATTR @ LLIST NEXT FOR L~ FLASH kO/xUSR G▘CB0;g"7 NEXT .{ MOVE _!(O[O][A]0 CIRCLE o ' FOR ?x84= PLOT o FOR MERGE BRIGHT MOVE FOR STEP B▞><> FOR NOT REM STOP Y INVERSE (7 RETURN TO USR 4.32!"1▗ RETURN ( RETURN L(>eLN sCHR$ PEEK f<>iD[Q]LEN INT BEEP RESTORE PLOT qNOT LLIST escFVAL I RETURN g(LATN BRIGHT TAN 0p▟kbz Tu[s@*mBIN b TO $<> NEW TO IF @1 TO REM AND [S] TO 9▟l PAUSE COS RESTORE ATTR m8>v!N[S]>d!c[S] GO SUB ▟▖ RESTORE 20n PLOT READ NEW GO SUB ACS ABS {sI o NEXT LN STR$ STR$ [O][T] GO TO < LINE 6&3 LIST >▘ STEP *K(ACS NOT [I] CIRCLE PRINT p BRIGHT (LN CIRCLE USR (4IN <>A FORMAT STR$ 6[A] NEXT C[H]▛NOT ▞▛ATN 2.O[R]USR y INPUT - OPEN # INPUT 2DF[R][S]J[R](▖*M 4H( FLASH FORMAT V ERASE INKEY$▟r.S!!9~2LEN ▝ INPUT STEP 2 POKE [C] NEXT <> RESTORE LEN o"SGN 2A RUN !.jNOT y2oR STEP ATN ERASE pCODE [J]/o FLASH SGN [Q]1. DRAW E#oATTR YPEEK >= PRINT 7© PRINT SCREEN$ [Q]6 FOR FLASH CONTINUE ▘CODE >=ATTR [A]Ev}G[N][D]>=x RETURN ATTR ( INPUT ▛ MOVE CONTINUE USR COPY ▖CODE [Q] COPY P[P] LPRINT COPY vRNDUs~ LPRINT u LPRINT ▗ REM [K][A]vi INVERSE ▘dj(LN I[T]`@ CAT }ATN RETURN ▛>=FN SAVE FN x FORMAT ON_@SGN STEP -▟▝!VAL$ | RETURN Z0~ RETURN ` CIRCLE [K] LIST M[[Q] VERIFY USR @ LPRINT b LINE BIN ▛ RETURN @ LINE T RETURN USR RESTORE !Z[U]VAL$ STR$ J BRIGHT x OR STEP [P][F]STR$ AONOT AT RFN AND Y"#[F]VAL VAL COPY [U]8= LINE p▟NOT IF ▛[K]▙ATAB LOAD ©a POKE [E]Y[D]RNDINKEY$▘NOT w$[H][E]_BIN FN PLOT {9C!j@;INT ▗{, STEP K▝ ERASE OR [H] FORMAT RANDOMIZE RETURN >=' READ INPUT INPUT USR AND SIN 9 CLOSE #} RETURN 1( CAT <>POINT RND(n`0[D] DATA ASN AND OR z▗ DRAW vvnCODE (POINT THEN "SQR 8[D] AND Zg BEEP CLS 32EXP ▙ RESTORE ACS ▜▖@BB0STR$ X;GEa STOP T +`iD INPUT 3:@| MERGE Q STEP q▙{ RANDOMIZE ▗ BRIGHT [I]&L MERGE MOVE ~ NEW SAVE LINE RESTORE [L]AT L LPRINT r LET ~< NEW LEN FN -| OVER REM > AND ) DRAW NEW [F]▚ NEXT STR$ ([U] LLIST STEP PAUSE PLOT >= VERIFY PLOT @g NEXT #)EXP H[O]j< GO SUB BCODE FOR >ICODE FORMAT CLEAR C COPY v RESTORE O MERGE [R] MOVE "8Sf" OR Sf▙PTAB READ $&[ OR _7VAL STOP *+" >=:j MERGE 9 IF QnSW|*U| GO SUB [Y|@/▛[E]| FORMAT :=2N| 9Q- RESTORE B:*|} OPEN #▜7oT>=USR <>POINT LN CLS CODE FORMAT >= IF , THEN . BORDER =_CODE W STEP TAN [I] ERASE d[A]E.▜ASN [A]dTAB / RETURN (!1} INK *:[U]:8©z CONTINUE !q|[R]dRh.▝[C]<=b%0| AND RND, RETURN 8>?,USR OVER LIST ~ jFINT RND)F 5!COS |dcO STEP ATTR [I]c?g[I]S0O[I]}[U]|([P]>OQ▝B▛ LPRINT GP{Y@yPOINT ▝O REM BORDER j.e[E][D]T OUT O LIST ZMsLN j RANDOMIZE ▜]s[A]NOT GO TO [B]{G4 LET )1}▗p[U](I▘NOT l RESTORE )AAT [A] GO SUB [U]NOT CLS INVERSE ! COPY LPRINT IN 7<>e;m#PSCREEN$ [B] RESTORE NOT b DRAW 9,[I] CLOSE #[A] STEP LN [I]` RANDOMIZE k[P] PAUSE 8▛'[F]AT [Q]▞ RESTORE ©"▝b,[K] OR (▖ NEW RND [R]FN E)[C][D RANDOMIZE [D]( LINE [C] CONTINUE 8[B]POINT PRINT %IN CONTINUE NEW RND▟<> CIRCLE INKEY$ABS B<> MERGE >CODE Dr ERASE MOVE ! STOP ©i OR INK d/[M][F] NEXT HO▚. RUN S STEP COPY EXP FOR y RETURN TAN ( NEW RETURN I( STOP RETURN ©( OVER RETURN ( PAPER CONTINUE y INK PEEK RESTORE ,,,w LLIST MERGE OR LPRINT !BSSTR$ MOVE ABS LET |* THEN [G]PI▘:2~0 PAPER )|!<>▝▘w▚B RUN @ LIST ▝4_FN cINKEY$ GO TO INKEY$? LIST MERGE 4[S]▝(SGN VERIFY 0 RETURN 0))o0 INPUT $ FOR } MOVE AND IF / REM p[B]0u INPUT ! INPUT [U] PAPER ©USR wCHR$ oCHR$ gCHR$ _CHR$ WCHR$ OTAN TAN (4# LLIST PRINT THEN ? DRAW DIM W FLASH FN STEP x[C]ZW<> AND 0 RETURN : BORDER 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 ` LET CHR$ "',,#~0 IF EXP d@ LLIST STEP LLIST 8ud RESTORE MERGE INK LLIST :`[U] GO TO [J]ACS #zINKEY$2h READ PI NEW MOVE MERGE z FLASH =rk AND qq:) OR #>©NwFw NEXT DIM @8RNDUSR CLS vp GO SUB RqSTR$ [N]PEEK READ MOVE LLIST ▞[N];[A][H]>=GkNp FLASH kATN BnQ[D]SCREEN$ 2H[C] BRIGHT LINE @2 REM [C]▜ NEW 2[D] NEW ` ERASE rTAN {2h4z2/~Q"[C] FLASH # STEP [L][D]~#▜8 PLOT J[U]*.~ RESTORE TAB [S] OUT ^>$wACS NEW ©= RANDOMIZE s LLIST AT OPI THEN - CLS LLIST $ NEW CONTINUE x[C] INPUT I~▜ STEP CLEAR [D] FOR LLIST :A(*O RESTORE oASN LLIST [R](4$ LET !-1SCREEN$ THEN #~PI *H|"F[Q] LPRINT OUT SQR PAPER ▟0&ABS o CLS AT kLN <>k RANDOMIZE (▖STR$ [F]# MOVE AND yCOI$o INPUT PRINT G CLOSE #USR DIM LIST >=STR$ LET BORDER >=C+ CLEAR OR BRIGHT ch~ CIRCLE [F][P] NEW FOR 2c[E]2f[E] RESTORE ~. OR RESTORE [K]>=5▜V OUT ;0STR$ MOVE <= POKE FOR <>OBVAL$ INK yATN z▗}FN >= STEP [N][E]( CLS .= RETURN 6'&k CONTINUE / NEW INVERSE THEN 8 PRINT !{}(FN G OUT : THEN OBIN NEW [E]|# SAVE PAUSE CODE INK <>~ATN INK <>2[A] VERIFY [T]G STEP PRINT [J]▛ INVERSE ▘H LINE SAVE ) STEP [T][C]CODE STEP ©▙ RETURN TO ASN [F]_ GO TO 0 PAUSE bSGN J RETURN bf/ RETURN e NEW NOT bxKEXP ATN |CODE LET f$( LIST 3 OR P NEXT /k!@[Q]>n->w@ OR <[Q]▘STR$ STEP [P][F]POINT [L]NOT STR$ OR { INPUT 02[D][I] RUN _:K[C]COS <= NEXT Mu AND ([U] MERGE .o PRINT STOP [H]▝ LLIST ,▜▖NOT [Q][A] LOAD OR k STOP xGACODE OPEN # RETURN RETURN STR$ FOR <> INK RESTORE INK LLIST ? REM X8EUZ STEP CHR$ [K]0=EXP (483<5 RETURN 8*| RETURN Y(EXP M! LPRINT ( RETURN ( RETURN @USR >e DIM & NEW LIST RETURN REM [U]< AND 0<>>b▗ LPRINT 0c POKE } THEN PIf READ DEF FN `6^CODE <>f RESTORE ▘ GO SUB ▞EXP a<> STEP [H] STEP /[G]4[G] OR EXP SAVE / CLS R RESTORE ▚▚Cx[I]O DEF FN LLIST ^ IF af LPRINT [I]USR =<>6 OR <=U"A THEN :[E]; IF SQR PLOT Iy(PG#}RSGN LN s GO TO COS [O] INVERSE V5 INVERSE ^ THEN 2 THEN 3< SAVE ~[S]COS w+STR$ AT PAUSE lPIEXP STEP SIN [G], TO yB STEP CIRCLE [G] CLS v NEXT 8(| STEP %▘ RETURN [ FORMAT O~EXP >=q<>~OATN (INT MERGE TLN USR THEN x BORDER USR GLN SAVE VAL &>Awe ERASE ©[K]d TO k[H]c CLS #lUSR l▝ RETURN 0)3($0J/3[R]!:D>"Et|I OUT COPY :)W GO SUB x2k|[C]GPOINT [A] RETURN LN 8":[A]B_>LN j THEN U[F]w▖U<>6p|'Ko| OR *,PI GO SUB B( GO SUB Cm| STEP AT [H] DIM @[| CIRCLE ~+ STEP ERASE [H] NEXT STR$ OR MERGE H THEN ! THEN !R~^#Vkb TO h> MERGE yo THEN ?_yR$|Nn▙USR } AND )?[P] NEW ▞<> NEXT o OR ">= qfK RANDOMIZE RSGN q[I] REM q[I] READ USR <=u[I]# OPEN # OR 0POINT F) IF WI▗eoQQ0"sAT [T]XINKEY$-STR$ F* FORMAT $ ERASE | VERIFY lATN OPEN # PLOT Xg RESTORE STEP [I][I]} LLIST w<>STR$ STR$ NEW =#<>[K]▝ATTR [U]5[N]NOT i[A]9uT FORMAT PI▙▗POINT l[J][R]eq[I]▛,z INVERSE f LLIST ▙> COPY 7 NEXT [L]=[Q]?[J] RESTORE NOT bPOINT ` PLOT OIN USR ACS I IF ![E]j[S]+=STR$ RETURN RANDOMIZE FOR Q[M]E DATA > AND LN 0 LPRINT $ LET DATA [P]0 MERGE x RETURN CLOSE #0 POKE R▛Oy INPUT O&L9 INVERSE u▘▙USR yO INVERSE #SIN .?E; THEN LN THEN VAL 0 NEXT |TAB gzCOS ERASE | RETURN STR$ PRINT CODE @SQR F]▗ RETURN I[J] FORMAT >= CLEAR PI>=>© FLASH RETURN FORMAT POINT NEW ( NEXT y/O▘[D] NEW GO SUB ▛3 COPY CLEAR ZP"w:=POINT 2 GO TO [I]*9|POINT g}POINT o" VERIFY [I] STOP [J]$1FN P$,@SCREEN$ POKE ATTR 2 RESTORE [I]:&ATTR O,J JN@y CLS 5xb[J]Y;xH[R]i TO i[J]M@ CLOSE #@: ATN [Q]▞l BORDER #CODE 2CHR$ [I]:[U]ATN RETURN !▚[U] CLOSE #G! IF [T]NOT :)}.[B]CHR$ TAN PAPER (GVAL$ PI▝/n MERGE [I] RESTORE LPRINT LLIST OPEN #▝>)[K]STR$ LPRINT >`IM RESTORE [I]Z CLS v! DIM Z STEP [U][K] OR NEXT STEP BIN [N][E]STR$ LLIST ATN ( OVER NEXT [A] RESTORE [D] PLOT [U]+ STEP [Q][K] OPEN # RETURN C RETURN LLIST DIM LLIST NOT CLS GO SUB _[C]: NEW / PLOT (w, NEXT wEXP CONTINUE ▚ DIM v NEXT <> RESTORE CODE goATN RESTORE d:B LLIST TO USR USR uV GO SUB CD|2)8@%CODE CODE >=XXBIN CHR$ SCREEN$ w&SQR [P]OTCODE NOT MERGE [E] BORDER RETURN Y PAPER MOVE "[S]rB RUN [S]r PRINT READ [Q] REM w COPY 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] BORDER KPOINT [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 t▚ STEP STOP ! DIM @> STEP !*[P]|[H][E] PRINT STEP s LET RETURN 18M RETURN 80I PRINT _ STEP ,▖ DIM @▘l` PAPER D LET NEW G MERGE R}og PLOT MOVE O▖*.&op} STEP ▚[C] STEP PAPER [K] DIM j} )PCODE VAL ATTR [J]ACS STEP [J][O] CLS STEP HNOT i COPY COPY OR >MATTR ▜8 STEP DEF FN [O] READ RESTORE GO SUB VAL LLIST READ ▜0 FOR STR$ >=AN# THEN THEN OR CLOSE # VERIFY [O] INVERSE ▜ ~# CIRCLE ▜ THEN THEN PAUSE P REM xH INVERSE BRIGHT MPEEK AND "ABS D/(▝ STEP l DATA :[I]'CC▗ COPY x9 TO @ GO TO STEP USR INK BORDER LEN LPRINT )PL- LOAD SGN m▝8gl[G]*20Fj41512▙SCREEN$ 60< LINE 71[U] REM H8 XRNDNCODE n~[H][S]ASN Z{INT [I]COL]6[T]D&LN GO TO 0STR$ ack21BSTR$ FLASH )▘2KP{I%3Mag3ta"i▘4@ READ ▞5B▟COS ?POINT 6[H] INK <>& PAPER 7-AT Wh I/INKEY$ INVERSE E[T]Ee©wd CIRCLE BIN BIN BBIN Dr` DEF FN GO TO DATA DPff LET TNGSTAN 7ACS U▚jVAL PRINT ABS THEN @▞ SAVE H LPRINT Lk▗7< DATA FOR @M FLASH [C] VERIFY PLOT 4uH REM ▖A)[U];+MYVAL$ 5RND GO TO TUGSIN AQAT xy NEW <>LEN ▛`STR$ [R]c[Q]ATTR [M];$[A]▗bp'RNDRNDX THEN RETURN E PAPER ACS cair[U] FOR H K▖▝ POKE pKfn[Q]$?▗u▖ BRIGHT A CLOSE #+CHR$ BS[orKZ▖X▙7us!VAL . MERGE REGSCREEN$ "W OVER DRAW i1USR #ASN JBIN Gghd▞STR$ 3"De@ RUN ▘<>f RESTORE ▜4 STEP [G][P]F TO TAN @ DEF FN of RESTORE amSTR$ tPOINT 0<>LN NOT CIRCLE N0FN LPRINT [E] LPRINT n▖▙ CLEAR PIEJS" POKE [L][U]jPE▖-| DEF FN V OUT OVER O COPY )▛PD[D]y RANDOMIZE TO DRAW )[E]P255 PLOT STEP ya&UZ[R][S]Y AND LEN w'NKGid! READ vyv VERIFY .▗ PAPER LIST SELECL-OP▚[S]▚ LPRINT GP▖JM'P2W+nFP>=YP* RUN IF ard & LPRINT LINE [2*He[A]STR$ l[l+[U]'H3▖[D] FOR OPEN #s<= MERGE rGCHR$ Xg0x▜[Q][I]HCH-T▖PSTR$ "k) PRINT h-R▖P[S]TAB [I] CAT LPRINT ▖HBIN [M][I]&cc▟PEEK u[J] DATA MPIHC▖[Q]9[A]o IF /e[f▛j▜ BORDER ▗I PAUSE Pk▖% READ mLN [U]<=VAL$ ▟▖:▜B CLEAR SAVE fs[H]SIN ,PR VERIFY ▗i▖ STOP IN xLS▖AFN [H]ATN /[E][Q] AND [Q]s@SIN ASN LPRINT .M@[Q]m@iATTR U DATA uHRND@FBIN [R]ROM4PI OVER OPEN #ON▞[R]HXOu>=- IvahBK ikD©2024VAL POKE LN [L]>B[G] BORDER ▘E CIRCLE CHR$ +W'Y/.K READ RESTORE INK BIN PIt▚ NEXT ERASE x![T]GSHIFT+T ul[L]aKfaSIN ^[L]B CLOSE #tI VERIFY hbu"▖HUCHR$ Pixel:▝SQR 3▙[S]@Valu[H]▖c5POINT E▖%aI,FF LPRINT ▘@AddrABS TST58 USR I>I#4000<▛ DATA Co[A][A] DRAW [M][S][G]BIN X CIRCLE ,Y=00[U]( STOP EH)wFN <cuPOINT TO CHR$ CHR$ CHR$ CHR$ [D] CONTINUE p STOP STEP G%HEnt REM Ka STOP j ERASE 1Wt5E7[F]BIN [Q] RETURN F?[B](xFX POKE G4H CIRCLE ATN CHR$ A LLIST @ByD7[N]▗qBIN K▖ AND RUN LINE STOP F▞1aw56 DIM @Up ' DEF FN Down())HL^ GO TO *S)I[PEEK iPEEK v)iMRiZD1)G▞H OPEN #[U]D [M]t$use2) USR STR$ ? DATA (SCREEN$ H CLOSE #STR$ NmLN CHR$ MOVE AND X[N]( CLEAR RASN THEN s.$E ERASE Re[A] RANDOMIZE LEN k SAVE Y/BIN <=NBIN E)HiPsNOT H<>▗|{&FLN hQ*tcu BRIGHT ACS ! CLS ▜,hstru[F](/0wnu R DIM HLSv▝<=*M[R]XP New POINT OVER BRIGHT INPUT fae[S]DyBL▟@[H][I]ze$[U]bsfM ▜▝* DATA zb@Tr9tTtINKEY$▘[O] LPRINT urb VERIFY VAL lo OVER . LPRINT OB@b▛_[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 [Q] FOR LIST DEF FN NEW PAPER [L] RUN LOAD BEEP VAL$ NEXT POINT BBIN 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$ ▚ IF ;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 LN INT 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 ▝SQR INPUT 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$ ; INPUT CODE LINE STOP [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 PAPER IN ~ACS pz[Q] 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 [E]IN PEEK FN [I] 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 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_SGN CLS FN #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 OVER PEEK Y`Yz[O] 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` CIRCLE PEEK : GO SUB PI 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%E @8 @ (Pp▖FN [S]>=FN ▖p[Q]©USR [Q][I]▗gf~f[S] AND l8l(y STEP CAT STEP [S]* SAVE DATA OPEN #▗USR ©[U] NEW ,<=< RANDOMIZE <▝ COPY <#▗ SAVE ▟iBIN /">USR %[G] COPY # LPRINT COPY ▙(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<>:1~2[R][S]2^[T]2_[R]2[E][Q]! RESTORE ©)|CHR$ SCREEN$ ~▘, CLOSE # PLOT > OPEN # RETURN 2H/!?? DRAW LPRINT IN I▜USR <GzTAN CLS ^#~# RANDOMIZE RETURN [E]]! OUT IN GO SUB [{/<>[K] RANDOMIZE
