ULTIMATE SCREEN: Ultimate ?.B

Es parte de la publicación: ULTIMATE SCREEN
Tamaño del archivo: 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