| Is a part of release: | Astroball |
| File size: | 28672 |
| md5: | 02c76a07efb08a2930ba8ab180121014 |
16129 INK USR 9: REM BURST
62241[[T] GO SUB VAL INK "[H][![J]v FOR LCODE OPEN # RETURN 1[Q]tNOT [ GO SUB LN `` INK LLIST A)0; LET INK LET > LLIST A)8 SAVE SQR 8▘W VERIFY GO SUB ▘(O;SQR INK O0= LET <(Oo{[F]oz[M]g GO SUB VAL `PEEK ($ LET o INK LLIST A) INK 0 CONTINUE THEN POKE INK LLIST A) INK THEN 0 PRINT INK LLIST A) INK 8 REM $ CAT LET ATN ( AND O0>STR$ ; STEP > LPRINT LLIST A)8 SAVE INK VAL$ 1`![O][ GO SUB VAL ! INK NEXT NOT [G]▖[U] DIM NOT x OVER SAVE COPY D LEN H COPY [T] DRAW COPY [S]X$ COPY MOVE q CIRCLE ▟ LPRINT SUSR K DRAW i #TAB LIST DRAW N COPY H0 SAVE NLN !)▝%©FSGN RETURN >[E]Z LIST G[G]8IF[M]T3&4[K]R9-]*[~FCHR$ s▖8v[L] DATA : BORDER 'KMCODE P?NNOT >}[T]X@ NEW *i PRINT [Q][D]/i[K] LIST ` READ LIST ▟ CONTINUE 4[S]8[F]FN USR 1 CIRCLE LIST @kABS T▛▟?(a|[U]▚▖JVAL B0[R] FORMAT BORDER [B][G] CONTINUE Cg(*h6 GO TO TAN : CAT [U]G CONTINUE CODE NEXT ] DATA e(?G3VAL$ CIRCLE [D]5:ABS ©©j {[m▝PZ(COS =[D]: BRIGHT PAPER LLIST 4p?[U]u- OPEN # OVER LPRINT BUSR V8NOT FPICHR$ ^▖[A]Jiq CIRCLE } AND < RESTORE v▗PI(^VAL G INVERSE 4 GO TO ^X[D]2STR$ .r"-{9, READ [S]D> IF THEN "l STOP RSQR TAN ▗< IF y MOVE [C]INKEY$FN !O[U]INKEY$ NEXT THEN Q LLIST INKEY$ SAVE GO TO qRND MERGE STR$ VAL$ aOzLEN `jxFN 6USR DRAW CHR$ o7EF CONTINUE STR$ PLOT }[M]nw NEXT PLOT [I]3DE5$ DRAW ' CIRCLE "LEN RND?F|F[P] OPEN #B(>9i TO , LINE S>&VAL 1 LLIST R▖ READ * IF CLS >= OPEN # RUN A OR F[E]STR$ [F]ASN P<=▜USR TAN ▗z[K] PLOT / CONTINUE LN OPEN #USR ©B▜▟ INVERSE LN ABS ▜▘? CONTINUE J[A]B STEP STEP @▗ATN LOAD a PLOT ATN F:C x CIRCLE VAL ▗SQR ~ COPY =x▟N DRAW 0▚ CIRCLE 1e ERASE LIST E FLASH CIRCLE CHR$ [F] LIST 8wNOT og [M]%©[I]PIPI[R]TAN [R] NEW . PLOT LPRINT STR$ SCREEN$ < FLASH +[▘[H]TPOINT PAPER >/jz▙5%INT USR INKEY$CODE LIST CHR$ CAT a LIST VERIFY MERGE LPRINT ?i[U] FORMAT e+POINT [T]`wEPEEK ? OVER x▝ FORMAT OR ^|[C]R8[L] RESTORE SGN W▙T DATA a CIRCLE ^N TO ( INK ;wl THEN THEN [L]{TAN T▟[M] RUN DEF FN LEN -[R]|[E][J]$©+#1 OPEN # OVER |/ LIST Vz▖[N]6 CLEAR ( BORDER ▟TAN iX SAVE aPIT*LEN ! BRIGHT LPRINT <▜| CLOSE #NPINP▘ts5 PAUSE PE<aO NEXT aOna▜" LPRINT kjy LPRINT . NEXT B RETURN gTAN >m NEXT STR$ u LPRINT xe DATA <=O FOR INT SIN OLN ©[ FOR [A]USR < OPEN # PLOT LPRINT <MTAN ATTR NEXT ^TAN )5d▛▟ DRAW USR <=:a▜>{XT LPRINT GO TO i CIRCLE SAVE p% CLEAR DRAW !hpNOT Nij GO SUB TO K COPY <>7SA OLEN LLIST FTWRECMPIL`$ LET 0N[M]dCKE.DE[A][B]HOLN MUIC'9c FLASH 7! IF LET COPY ▗ FORMAT NEXT " LIST i> DRAW 2[M]STR$ ▘mnaAs~#>j STEP REM i(6xo DEF FN |"▘x| DIM [X RESTORE ,X[T]lCOS k[C]"1[D]DT CONTINUE © FOR ~6 LLIST ATN (7++rs SAVE #= NEXT !I8 CAT PRINT j,(go&'m READ f0! INVERSE 2 LIST STR$ j=uoCODE COPY x OPEN #n POKE iNOT SAVE w# DRAW y TO STOP CLEAR > GO SUB RETURN yCODE IN NOT OR n FOR ^#V"IN MOVE <> DRAW CIRCLE NEXT GO SUB sNOT n CAT 7 INK LIST `!45CHR$ CONTINUE n[I]j©# PAUSE FORMAT l DATA F CLOSE #ACS LINE RETURN NOT RETURN USR 8[B]0 TO >ANOT [P]jNOT NOT VERIFY a LLIST LLIST ERASE BIN [J]z[S]=2in[C]| GO TO Wog&$NOT THEN !4SIN [D] LIST [P]COS ! ERASE NEW j( LET [O](▘"+ OPEN # LET ▜ INK _e RANDOMIZE BIN LLIST ~INKEY$ PLOT 2▗n#u▘ INK .SGN v TO lYm>LEN %[L]J^ SAVE Fi GO SUB SZ%COS ldl_ GO SUB ^<`Y&H>%[Q]HMm[M]▗"+jbk!)O~=PI LLIST CHR$ FLASH k CLEAR LPRINT PAUSE ©_LN m PAPER N. PAPER 2 INVERSE ; INK skSCREEN$ Pg INK 7 INK mo[C]al BEEP INVERSE ▞AATN d[A] OUT LOAD TO wNOT OPEN #k(e OPEN # CLEAR D<>[P] CLS OPEN #! CLOSE #/%EXP PRINT CLOSE # SAVE l CLOSE # INPUT ▘" MOVE N$▗- CLOSE #k[E] OPEN # CLOSE #ASN | CLOSE # BEEP ^ RESTORE `k NEXT LSTR$ READ DATA TAN CIRCLE DIM ^A" NEW 6P SAVE NEW + NEW [C]& RESTORE = NEW '▗ AND Cf9L[L]i OUT DRAW & LET + LIST oleo LIST cl INPUT LIST [K] LIST mNKCHR$ RESTORE kP LIST [D]I![S]N# LOAD f- LOAD l LIST ▖NA FOR k" LLIST LIST %ATN RETURN LIST <m LIST D"▞-9JBIN LN LIST F-© LIST ^B)k7S0'(m LOAD -^B!" LIST 6[R] LIST LIST + LIST &% LOAD = LIST '%▟Cf LIST RETURN [U] LIST jTAN M." FORMAT GO SUB :[A][CFjPOINT NEXT "ATTR MERGE RUN mR"c. VERIFY S DRAW RETURN (INT r52[O]> THEN RESTORE CAT ERASE TAB V5▞POINT ASN Z▟TAB LN MERGE &CBIN [C] MERGE PAUSE D[M] LLIST CODE Y STOP L[K] REM NEW Pf CAT TO i# OUT l[M]/▘ LPRINT { RETURN ▗. /'J RETURN ▚▜_!FN o NEXT Cq< IF A VERIFY AND INK ▜ XSTR$ RANDOMIZE MOVE _ LET { NEW VERIFY o?[P]RND THEN OPEN # SAVE :0 PLOT IF Z LET i{8 INVERSE b10%RSIN STR$ y2( INVERSE o|? GO SUB g" POKE b MOVE j▙jK COPY jn"j CLS i9 INVERSE ASN Y VERIFY /)tCnX▙tm PLOT m©FN W DRAW FOR mXmTAN Xsm DRAW m RESTORE <l / RETURN lCODE C<=l SAVE i1l( BRIGHT FLASH IN COPY LET GO SUB yd IF NATN (!9PCHR$ OPEN #ATTR =i RETURN INVERSE })[G]r|m"n CLOSE #X' INK CLS <>CODE }P} INVERSE .NOT DIM CAT >= OPEN #} PLOT AT ▘ LINE V PLOT [D][E]$CHR$ ▝ PRINT * PRINT jACS ▟MVAL$ G[D]<[U] FOR SAVE uoO OPEN #kN#~ RANDOMIZE LLIST IXU-LEN :* AND ` PAPER G▖ COPY THEN OPEN #STR$ SAVE RETURN ▝` CIRCLE ( OR ▖ LIST LPRINT ▝ LPRINT X LPRINT A|Bx LPRINT VAL @ GO TO [E]D SAVE Xp, LIST PEEK ▗X PLOT ▝▝ LINE [S]▝|8▝ SAVE OUT ▝▝CHR$ AT ▝▝[A]{▝▝eQ▝▝>,TAB ▝Z0 LOAD LLIST 00 VERIFY >=00ABS SIN 00FN [P]00[G]▙[S]5▖wpkd^YTOKGBUVAL$ {;>= REM 5q/,*'%▖# CIRCLE MOVE ^&|[Q]/_©7c TO LET G LLIST ▝5e OPEN #kZAT 6xjLEN <~>▙ MERGE ©g}CHR$ ) PLOT .A0,pLEN '+ %LEN $0H. CONTINUE [Q]+hLEN B~NOT ip<8:▟& CLOSE #▝=HPbPEEK 7[M]5Hb PLOT PI[Q][G]8BIR AND LET 1[O]'$[G][E]2ASN >< NEXT PRINT !Oux LET ▛kSTR$ NOT ▝8▝[J]I▜<v COPY & FORMAT e"f[P],[R] COPY a DRAW $0 GO TO #+ CIRCLE IN ![K]~ASN A STOP ▜0[A]p1▘ <,▝+[R]0[A]2 LLIST )▜STR$ :TAN X3ACS g*TAN w AND CLOSE #<▚8@[C]jP MERGE (kI(g y87T<>53">=▝B-h|<%!9(A^ PRINT 6 DRAW POKE _?▗BNAi[ LINE ,[U]=a▛xTQ7▞5▝Pv LET m©9▜< LIST LPRINT |0U5CHR$ [S]}▞<gqVAL MERGE XI>CODE TMU!1[F]TAN 0PEEK po, THEN 0 PRINT [Q]tFN MERGE a@ DATA COPY SIN mD[D]n MOVE [A]<2## STOP [I]l OPEN #g'[U]0~ SAVE >W▙2[M]G LIST [H][L] LIST LIST L[K]38t0 MOVE MERGE GO TO RUN 4p LIST }pp[U]tp[K]INKEY$<> FOR E PRINT &E▛RNDz▞IN DRAW ▖ RETURN [H]▜ PRINT IN ▚CODE COPY ▗© CLEAR 1: TAN ▙ FOR ©▟ LLIST ERASE x NEXT RETURN COPY [Q]b/ SCREEN$ [E] ERASE )RND$*HAT ATTR 0K[E]INKEY$ OR TO [y MERGE nAT ^>=IN Ccinsx}▜[A][F][M][R]PICOS ATN RESTORE SQR INVERSE z FOR ▛ OPEN #oPITAB 7>PEEK CLOSE #BRING▝aO LOAD STR$ YU![I]GO LLIST DAME*(N: COPY $*B4 DATA TRODL VERIFY BYDI[A]▝GT' RANDOMIZE RE19~29, -P02S LPRINT ANT2▖[G]^bHXdAG▟VAL$ <#CODE 3CTH[T]TD▖R CLEAR LN VAL$ ?I LIST BORDER BRIGHT CreditsC DRAW pag| MERGE Intro,cd/IN &BUR INVERSE b/5 muzak( LET r%""3 DRAW HNY'98 CAT SI LET @GrX*Dv.BEXP S+ LPRINT `ex CAT [P]KFIKUSTR$ IN S [N]_ STOP sig&▚"@i ag DRAW MYER LIST [R]>=G CLOSE #> DRAW port/su0ly NEXT ▜&[H]+O[A]D_Eskp>=@ VAL CIRCLE |c▗` RESTORE bu DRAW % MERGE USR AMZ CAT B8 READ SAVE RUN lizB LPRINT 3/10ABS 98.P SAVE ,dofblks▘ BRIGHT H TO THEN t#▗ LPRINT PEO:.VXN!▖,BR▘ LLIST ID LET Mr.N DEF FN KSIN D{ CIRCLE TO m[P]%[A] RUN POKE &s AND KVPOINT DSCREEN$ LINE &JO▚RB?▛IAN RESTORE (#?C-: IF [H].[Q]@,X? BRIGHT C~*T RUN F CAT AZ!PHLN #[U]:382 47-▝ CAT 05AlexIN BRIGHT y(PI)/ LIST LPRINT RIATN <>[S]D OUT CLOSE #C.B2TM-W"FIINT OVER v>=UE INK NEXT H DATA [ BRIGHT ORNDCOS CLS PAPER CONTINUE QBzPEEK R@A%IQ-[S]*QN[E]I)'Z:W[R]8LD$4Y" LINE <>P RUN D%BIN ▖[H] [E]T MOVE ($ FOR ,PEEK I:▗w(n-)AT [M]G8UP_ VERIFY INK FGATN THEN D/+Y[R]6) GO SUB =IXACS GEPKtXL- TO GO SUB %TAN AND L%X^*SCREEN$ H[R]d( STOP X, CLOSE #TAN ABS T"VRND▜rU STOP C▞ READ PEEK ]>[IUMPK FORMAT [A]▗SCREEN$ Dl PRINT USR 0L[M] DATA WIIN[R]TAN PEEK +[I] READ UWEL$M READ @HMXY7 READ ▝POR▗Yb!P[C] CLS b NEW aABS 9 LPRINT SBSIN bH,M[S]F LIST DATA ▝#A"x`0&IP FORMAT [N]+SYC▝PIiz LLIST ,ACS [A] READ D[J]EH& DIM 5^TPI"STR$ N) CAT VI@ISCREEN$ [D]"L/KSGN -E LN ▗▘[P] RETURN 0. CONTINUE .ZB▛. LLIST ~>=EXP ▗vBN.SLa LPRINT ACS )©USR ▞ CONTINUE '] NXaB[F]B-?L▛FRW]▗ THEN NOT HMB CONTINUE `[T] POKE 2dBJ/ RANDOMIZE [S]PI INVERSE RESTORE MOVE READ [O][S]+ CLOSE #ODe PLOT VERIFY "`3DATTR [O]VV LINE HP[B]PI[Q] ERASE LIST ,}{'ZH$"P TO66SCREEN$ V REM PIa-5b▘.G[A]vDK PAUSE [K]NOT >=[G]R NEXT G CLOSE #MA_eQ(rD [S]▘" FOR _ C LET Q RESTORE TAN OTAN NC@5▚EqQ<>`C DATA ]LUDM[E]G;+[G] PLOT LTAB OPEN #2 BRIGHT ERASE PAUSE DATA H GO SUB YR{HT' GO TO LN FN /bM RESTORE *y$8s COPY STEP CLOSE # LOAD [N][H]USR CLS ACS nSCREEN$ BIN {#AT " GO SUB DUC&<"[Q][G]PEEK ( LINE BU#f[G][H]O PAPER ASN CHR$ LLIST Fq©D![L]/SP PAPER PLOT VAL$ P LLIST b▞[O]] FORMAT LN . DEF FN ASN [P]kW DATA [F]S$~ DEF FN DVAL m9 OVER ▝(_o) RUN [M]▗~ BEEP [P]▞ACS 9K%▟[L]g!( DRAW Z'VAL 630fMOVq]R▘6/-[A]▟MAT f@L3-1*] PAPER J©; VERIFY ,<d=EXP A▚SGN USR FN 957ESTR$ -8@[N]2cLEN SJNVAL f>= ERASE LlTNOT KHU RANDOMIZE LINE + INVERSE &4 FORMAT REM n4;c NEW OP$1504 RESTORE 3ZC{MEA,+Ov[A]4WZV CIRCLE ▞)▞[C][O]2VZ[K] [G]RND<_YFRU COPY Pr MOVE >=<= GO TO DEF FN COPY /5 NEXT SL PLOT DU!BOY><&>=M# LTAN d,PEEK ATTR LINE .RS% AND W[P]TAB SGN ▘K©( STOP ▚` LLIST (LEN YUSR P OVER +[ INVERSE S!INKEY$ DRAW g`5)1.k+[A]^RzPEEK [I]$@2@0TTACS 3M STEP oSQR CIRCLE ▖ON▘/FyG0y DATA &[B]LEN 2I>=NFRIN >='2L@F PRINT RESTORE MERGE OR ▝ CLEAR INVERSE LEN m" SAVE USR GO SUB yx NEW RETURN < _?< OPEN # THEN COPY ASN ' PLOT o2▗e STEP ACS GO SUB PEEK CLCODE .IN FOR ! COPY `}USR ,"▗n&)lFN ERASE o[O] STEP SAVE Bi INVERSE LLIST CLEAR STR$ MOVE LET CLS <>[Q] LLIST 6#[Q][Q]"s``r© PAUSE <>z NEW USR ▙ SAVE { AND _ CIRCLE VERIFY W STOP A CLEAR .x COPY OR INVERSE ~ MERGE oI88G_ wL FOR CLEAR w% SAVE MOVE NOT NOT INVERSE #-? LPRINT PAPER STR$ CAT <> RETURN BORDER STEP SIN ▗SIN LLIST ▘ATN GO SUB B #*!w RETURN POKE NEW ASN ACS TO ▖= LINE /INKEY$[J]▚H^JioCHR$ OPEN #[E]fE▜V>= ERASE [M] BEEP (IF▟ DIM ! DATA " PLOT I NEW Q PI CLOSE #[J]v@CHR$ GO SUB VAL " RANDOMIZE hSLN SB,5[N] BEEP <>KkA1▗0 ERASE OVER _>IN FLASH RETURN 0 FOR P INK SGN C PLOT $ GO SUB `, MERGE r RANDOMIZE BIN #CHR$ ▖CHR$ #qn INVERSE R RUN IN POINT LN CLOSE # TO x NEW FORMAT (C©LEN r1<ASN > >( PRINT ~5<VAL$ [R]0w POKE ~ PAUSE y/O RANDOMIZE <= LET =>= THEN G <=*Xb[Q]+]YcHZ#BIN @_YNOT [M]POINT 7 BRIGHT NEW 5▚ INPUT 2 MOVE [T]<=>=LN "hCHR$ ▚S#▘ CLEAR )+>=K5[J]VAL$ ▜dfINT ▛l;[U]SQR p[A]4SQR XCOS [A]BIN Y[A]BIN ZCOS [G]BIN YFSGN SQR RESTORE STEP STOP LLIST > PRINT ▗g RETURN NEXT [S]<| VERIFY gpt PRINT /ASN 1(. TO ERASE FOR LLIST DATA DEF FN ) INK >! MERGE v'/ OR LLIST =^ LOAD MOVE <- CAT .b.LN @ RETURN ., STEP q.e▜[B] COPY G▞TM DATA /U OR ▝STR$ PAPER S LIST ▘ MERGE LOAD y RETURN " COPY .G▝.▘'<=. DATA q,}VAL LIST 8 OVER PAPER BRIGHT B~ASN SAVE xy>v GO SUB [Q]CHR$ SCREEN$ +z) AND PAUSE 9CHR$ m▙[C]W[qACS USR ACS T<= CLOSE #<=m[M]>=87s RETURN USR h@.INKEY$ DRAW USR ▗ VERIFY GO SUB '! PRINT STEP x▖M= LET LINE LIST ▗V NEW [Q]▟y7[U][I] CAT ▟[Q] BEEP ▜NOT >= READ 4M"" CLS INT NOT g RETURN STEP i NEXT GO SUB ^MaM@jmH<[H]Vuj >STR$ AND 2▗qAw COPY MTAB =)a[P]LEN f ' STEP jSQR STOP xLEN SAVE Q COPY /[J]og~ABS ( POKE G>/ AND CLEAR E DRAW PITAN 3`O NEW ?EXP (y COPY © PLOT ~# THEN A STEP ejIQATTR MERGE YakTi" CIRCLE ©t0 SAVE ▜O STOP COPY !q~#fo"M▞ PAUSE LEN a_ASN ~[S] CLS NOT ▜' NEW LIST ACS w#▛©POINT NEXT OUT STEP TAB ▞ATTR SIN ▗▞!I2[J]OLEN <9 BORDER X DRAW GO TO G|!qTAN ::c DRAW ▗ACS COS m+VAL$ ▞-/ INPUT [B]^ RUN IN POINT POKE /PI&NOT LIST "t4[U]VAL$ +PO LET <>(=B0 LIST T▞bp00INT <0 POKE $;RT| GO SUB LIST G<1wVAL l6NOT ,5 RESTORE [A])Xu SAVE FN @ READ [D]IN "PEEK Qs`[T][O]INKEY$G,>12▗ INK 8[▖▛ COPY H▗ MOVE X[T]p61 ▝~<>!PEEK uS<=R LIST ASN CLOSE # STEP g▗ CLS ACS wTAB THEN BIN [L]INKEY$©8 LIST H[F]▘ TO TAB ▖[ LET CLEAR [I]p▖vh▛f TO ,8 PRINT VCODE zUACS AT CLEAR !://dLN @VAL$ COPY SGN PFN [T]/^;]IAT CHR$ 1IN DATA ©BIN <>><2i▛ NEW USR m RUN 2[J]POINT %.7|[O]53> LOAD THEN g(,_ CAT ~ CIRCLE STEP [N]▛POINT [O]<>:v INPUT 2Y|.©.BN/<>&ATN STEP ; RESTORE ▝(▘ BEEP [J] LPRINT @ INVERSE LLIST /[T] PRINT CHR$ FOR NOT i▗POINT BORDER c:[U] DIM ATN (<[E] OUT COPY ?!USR [T]> STEP %[NOT [G]"[O] OVER AT ` RESTORE GO SUB POKE RETURN pATN NEXT OR ATN >[Q]NOT ? LINE ? C LIST "b[2/(X STEP [O] INVERSE 4 TO Y/EXP 6 CLEAR =1 COPY CLS THEN p FOR LLIST STR$ ,{CPEEK PEEK [ASN !`! MERGE CODE >?USR L> LLIST <>3 MOVE z THEN COPY [M]CODE VAL BIN LLIST $STR$ OUT SAVE { RETURN TO [L]PEEK GO SUB j[P]Su<>!©x VERIFY 8,8[F]< PLOT S THEN COPY ?NOT [I]/ RESTORE = RETURN RANDOMIZE _S* NEXT DIM L▛[O] COPY THEN [ GO SUB VAL :]2TAB [A] STEP ©V FLASH RETURN PLOT LPRINT <( RANDOMIZE LLIST [U]L*Q"▖$8Py INPUT CODE 2 PRINT 6 LLIST COPY SCREEN$ [A]@~ VERIFY USR 8#>=G~0E THEN 8 G#0CODE :8 CLS CODE ~#2 AND @ THEN ©~LEN G~# NEW ~# THEN < RESTORE n`G| RETURN X08TAB [R]TAB INK W INK TAB AT INK _ INK z RETURN X0$ATTR [R]ATTR INK W INK ATTR SCREEN$ INK _ INK (#8~ STOP 0 IF + AND LLIST #▚7 PRINT AND INK W INK LET {0 BRIGHT }BIN FLASH CHR$ FLASH CHR$ @ OPEN #CHR$ LOAD O POKE CHR$ BORDER CHR$ NOT CHR$ PIATN CHR$ uATN SIN ▜ PAUSE 7USR OR ERASE / DRAW LOAD <> DRAW RETURN FORMAT $ pup ▜ PLOT REM 3Y TO f7[J]<>p0[A] FORMAT ©3[J] TO f?[Q] LPRINT `NOT CODE =CHR$ p OUT CHR$ RUN CONTINUE USR [Q] FORMAT h8[M] TO DATA TAN [M] DEF FN NEW 2[K] DEF FN f PAUSE ZNfPIRND[C]NOT AND 7X[H]K BEEP OR LIST CHR$ 6 COPY CHR$ IN RETURN BIN ? NEXT / FORMAT 7[I] FORMAT p0[I] CAT fPCHR$ >ABS >= LPRINT !IN >= POKE CHR$ COPY NOT $BIN LIST <'/CHR$ ~FCHR$ pHCHR$ fLH>= TO d8VAL ▜6 OUT /d▜*m▜ICOS AT LINE NEXT ! DRAW CHR$ > LOAD NOT PEEK ▟USR TO STEP g©USR USR @[H] COPY © DRAW NOT DIM /H) DRAW CHR$ G▜AR?H POKE AND IN TO [U] PAPER CONTINUE f3EXP DRAW n+RND DATA b#[R] LLIST NOT $ LIST LPRINT 8[M] DEF FN fCOS Y-'s[J] DEF FN f4[I] LPRINT USR USR ` [A] MOVE CLOSE #CHR$ DRAW ▚F▜ MERGE u CIRCLE W DRAW ▚ OR STEP DEF FN ?©© PRINT COPY = CIRCLE BIN ?[A]@<7 DRAW BIN 0[P]4CHR$ INK TAB ABS BIN >=STR$ COPY _@BIN 39 DRAW CHR$ )' SAVE 74[P]c>=? COPY COPY DRAW STR$ COPY FOR CHR$ g▜ DIM LINE LIST RETURN 9USR LPRINT BIN CONTINUE ▜ RETURN ▚[G] OR DEF FN ©USR LPRINT DRAW %SGN 6[G]7ABS >=USR LIST SAVE DRAW [O] AND ERASE NOT READ LET RANDOMIZE RANDOMIZE DRAW DRAW RETURN GACS fBIN [Q] COPY BIN >=©&SGN % POKE ▚ RESTORE )>= LPRINT LIST SAVE SAVE CHR$ n<>© USR CHR$ Y TO AND TO NEW sfUSR ▜&'LEN MOVE ▚ CLEAR { l2 LPRINT ) 4Gz' OR BIN ▜[L]</ INPUT ' >=rZJfPEEK PEEK 7CHR$ ' STEP -l4h)[F]▜ NEXT CHR$ LPRINT ]0O DRAW /W[F]▜POINT BIN COPY gOUSR ▚Z▟[M]BIN ▜ RETURN OR CHR$ /0▜* DATA CHR$ TPI RETURN ▜+▟)0JACS ▜/ SAVE ▗: ERASE *[J]NOT PN INVERSE m36▜F▚# -LEN ▜% DRAW [Q]e ACS STOP ▗1 FOR NOT u ▜G NEW Q REM ▜;K▜= INPUT 7TAB ~g LIST [A]4▜QQ▜ LINE >=y DEF FN w!- PAUSE C^ DEF FN w NEXT [M] BORDER ©▜ PRINT ▚R*CHR$ LIST <> CLEAR TO COPY OUT CLEAR RAT ▜M NEXT ! +CHR$ TO ▗* MOVE CHR$ G▗&4J LPRINT ▗wZ▘>= AND /[U]▗*= TO CODE W* VERIFY CHR$ <.BIN _LN ▗*<= MERGE COPY TO IN WSCREEN$ USCREEN$ .cCODE ▝CHR$ LPRINT BIN STR$ COPY [H]CHR$ RETURN NEXT BIN |MA[Q]gCHR$ MERGE [H]BIN CHR$ P]SQR CHR$ &D_ INPUT AND TO RETURN IF CLOSE #FN P[Q]nXCHR$ x▚#o[O] GO TO W THEN ▗,*RND SAVE g INPUT ":▚+ZSTR$ NOT >ACS POKE 7▟ PAUSE ERASE @/R▜ LPRINT >$CHR$ " THEN LINE $p ▛INT ▗m LLIST RESTORE -BIN ▜ RESTORE ▚0[D]CFv!C ERASE ' OVER 5p▜D/BIN ?3pGCHR$ 5}p▗lT PRINT ▖) RUN HSCREEN$ OR "BIN *6▚?[K]NOT LINE DEF FN [U]BIN [U]VAL$ ▜( CLEAR ]▜3CHR$ INPUT STEP DNOT ;>= DATA ▚ OR ▗ATN DRAW h BEEP LINE ▜▚▚▗:-▘▝▜2SGN OR P<> ▜t? LINE BIN SCREEN$ DEF FN SCREEN$ LINE ▗SNOT CHR$ ▗<>▜* DRAW K▛ LINE STR$ [R]STR$ [R][R]NOT %[A] LOAD CHR$ w BORDER BIN ?/<>©BIN :5& BEEP >=)M▛ICODE DRAW CODE >= MERGE <>▝ACS 4[K]CHR$ CLS MOVE COPY AND LOAD COPY COPY *1SCREEN$ >=s$$%CODE DRAW FN FOR AND | LPRINT BORDER OR [R]BIN PI COPY CODE LOAD LINE ? OUT COPY CLEAR GO SUB STEP COPY CHR$ ATTR REM FLASH LINE WRrRRINT BIN RETURN [B] OR RETURN OR OR ~ OR USR INKEY$[Q]=[H] DIM TO LPRINT DRAW CLS ATN COPY RUN ATN [A] GO TO CHR$ *i>=CODE RETURN OUT ERASE @` FORMAT pX(8,4 RETURN SAVE >=hp[A]`1uCHR$ <=7ASQR BIN COPY ~> OPEN # LINE ▞[J]▞▖[M]JUSR BIN w RANDOMIZE [J]#NOT OR COPY CHR$ GO SUB [I]l NEW LINE INVERSE T INVERSE EE{LCHR$ p▜ CLOSE #CHR$ INKEY$ FOR ▙ COPY MOVE COPY FLASH [P]BIN CHR$ FN % AND USR @<=%CCHR$ [G] COPY pCHR$ LPRINT [P] LINE VAL$ OR COPY CHR$ CODE G>= NEW ]E}BIN TAB PEEK LOAD BIN LIST DRAW /©<> COPY USR / LINE :"2"9NOT %BIN INK COPY PEEK [P]▗-USR LINE INT [S]SIN [S];▘Fx/AT ?PEEK BIN U( CAT LINE )9)POINT [M] AND 8| RETURN ATN COPY '^ATN 2 TO USR RETURN COPY IN LOAD RETURN @ BEEP CHR$ EXP <>+@▚ ~ MERGE COPY CHR$ REM =USR a AND TAN AT [U]PI DRAW ▚B+>=> COPY CODE RUN CODE BIN CLEAR INT [P]DCHR$ Uf>=[P] DRAW H3 AND USR LPRINT LPRINT <> LIST <> LPRINT LINE VAL XFN P[Q]&h LINE NFN AT FN H▘'NOT '>= CONTINUE HJM©USR TO p SAVE DRAW POKE $[I]▜ IF NOT >=[D]SCREEN$ SQR SCREEN$ [Q][P]K[L] LLIST OR ©>=<;▜-o TO 8[Q]0[Q]LN VAL$ ) BRIGHT ? DEF FN LET RETURN CLEAR COPY IF PLOT REM [G]d CLOSE #▖0▗0k▜BIN CHR$ LET OR FORMAT DEF FN FN LN FN X[A]P M LINE ▚(<>▜N DRAW %CHR$ OR [A] AND NEW ▞▞!USR ▜l7g LINE *3"[S]NOT 9<> TO ▖▖<>BCHR$ G MOVE D LET G LLIST D READ NEXT STR$ GCHR$ D MOVE EPI IF ▜% PRINT [P] MOVE PI STOP ▜! RANDOMIZE _ LOAD LPRINT O LIST CODE MERGE ▜ATTR ▜} MOVE D▜' NEW ▜ NEW LLIST ECHR$ Fw LPRINT CODE NEW O LPRINT OJ3 LPRINT O NEW IN ▞▜ REM CLEAR D▜Sg LPRINT ▜*W@ RANDOMIZE D MOVE B▜ POKE CHR$ D<>F STEP D OR C▜# REM _USR STEP C▜'USR ▜ PAUSE %P- BORDER ▜ CAT ©POINT MOVE FOUSR MOVE C/ LPRINT ▜ REM 3 LPRINT ▜)HSTR$ D LLIST B7 DATA ▜5 IF STR$ GUSR TAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB PTAB NEXT !&` COPY [T] GO SUB VAL INK "[H] COPY !CHR$ ATTR CLEAR RETURN IF J GO SUB s COPY 1TAN NOT COPY GO SUB LN USR ]` INK LLIST A)0; LET INK LET > LLIST A)8 SAVE SQR 8▘W VERIFY GO SUB ▘(O;SQR INK O0= LET <(Oo{[F]oz[M]g GO SUB VAL `PEEK ($ LET o INK LLIST A) INK 0 CONTINUE THEN POKE INK LLIST A) INK THEN 0 PRINT INK LLIST A) INK 8 REM $ CAT LET ATN ( AND O0>STR$ ; STEP > LPRINT LLIST A)8 SAVE INK VAL$ 1![O][ GO SUB VAL ! INK NEXT NOT R AND NEW OH! ERS.YO READ UHAVpCHR$ FIN!1S STOP D LIST TROBVAL LDUN/pWH TSTR$ SAY CONTINUE RESTR$ TAB UME" SAVE XC<NTgBRI[K]W9ON TO 1SMPHy TO [GLf[D])7UP~G©DH2BIN ▝▟▞[M]SJ DRAW T OPEN #f4ICN▞SLN B▛D[H]FB[E][E]2DP TO z8% THEN q COPY $xa[H][D]*8,OIK LIST f MERGE h(C3ALN ]PSGN EBIN i'tf9KGE*HpCD88>UDSGN .K[Q]IP=M INVERSE Lb ERASE [©H!w9)4JSCREEN$ Fb▛9H MOVE KC($SxINT 8*▟▛▘ ERASE Uo[E]s ERASE AMRU+P▚P[C] OR 1$Bma▖TAN [Q] VERIFY r[C]g LIST F#CUL*! LPRINT EezMBFZX#c[R]YG▟NAT IMPSBIN tMB[H]IN >K[A]p LIST F LINE $MABS F CONTINUE Z STOP JA FOR REM fLU REM SGz;|%SCREEN$ ▗5CCBIN <1<SQR Bd& GO TO ▟C#L CLOSE #$ ERASE 0AGiy CIRCLE OUT "▜M STOP [ DATA LLIST I)JUYs#ATTR W%: CLEAR OPEN #~▛ COPY H>POINT !EXP RETURN STEP [L]▖COS RESTORE P LINE [Q] VERIFY Vg DRAW CM LLIST ▜lb LPRINT DRAW COPY ©[E]p0 DEF FN `~?8 MOVE ?8USR FS LPRINT DATA USR USR LIST [T]9 LPRINT SAVE [T][J] LIST DRAW [J]USR COPY OPEN #$ SAVE RETURN &1 CONTINUE `▚!pCODE >3XVAL [Q]2[R] LOAD 4STR$ [C]VAL [R]▘[K] LOAD 4=3XEXP VAL [R] LOAD USR KP4GEXP LSIN [R] LOAD LPRINT HP4G [G]VAL zx LIST 4SIN $LEN ` <j SAVE 4dTLEN USR @ CLOSE #|4>=FN LEN 0d LOAD [S]RNDH LIST BX LOAD RNDH, MOVE LIST LOAD h[U]$, LOAD [S][U] LIST ;X LOAD [U]USR LEN D LIST LOAD GO SUB LPRINT LIST USR LOAD USR J%▗ LIST [S][A] LIST INKEY$ SAVE % CONTINUE LET CG>=[A] LIST [C]` FORMAT BORDER CLOSE #Q BORDER NOT K▘ FORMAT BORDER ▚]Qsap- LLIST d BORDER RNOT ▙9USR 0p[G]pd BORDER d<=R LPRINT q7d CONTINUE cRqTAN CONTINUE >=FR8qnd BORDER ▖.R[M]Cq▟rdxR▖ DEF FN ▚ COPY !"i▞ $+wINKEY$3[Q]as6vn4 INVERSE [Q]0USR 9 CIRCLE CIRCLE n4wg[Q]`acn4 GO SUB [N][Q]04 FLASH ;[Q]8,▚4v[Q][M]P GO TO n4USR DEF FN [Q]▚▟ INVERSE DEF FN n4s▚[Q][G]!PSCREEN$ +? LOAD RETURN n▞©6*2VAL %?[[S][p LIST [8 SAVE VAL STEP ▝ DRAW SAVE [A]Ex VERIFY ~ RETURN DRAW 3dphSGN Y[C]048<pASN ▟SGN ©*W&▟pSGN *ASN ?:INKEY$[U]mcpSGN J: AND p[G] PAPER SGN COS CIRCLE TAN ppRNDSGN BASN qF8+fpABS READ B TO jFpWABS BFNOT STOP ~ DIM C!oKBEXP ©/nMNOT CAT oLTABS ?fiXn CAT oTAB ATN LfINKEY$ CAT p[fV CAT LPRINT 6 STEP f;AT USR CAT LPRINT m[K]foX LPRINT CAT LPRINT PAPER 4fSIN LIST FORMAT pFN RETURN f!ATTR SAVE FORMAT USR [B] OUT ▝ CLEAR DRAW CLS © LOAD FORMAT USR " THEN TAB S CIRCLE b FOR -ASN (| RUN [!#wHI-C2E#1,[I]23To DEF FN tarh#0VTAN 0[K]tATTR T LPRINT M▗PFTAB LEt CAT POKE -DrD CIRCLE Dp7 PAPER $9A)[7SGN .[ag[C]CA@ DRAW FUe|K'PEEK 5TAB ▝G(ACS AND Nen<[T][S]B)UTIZ[C]"dPI▛[ COPY ;%ww<>?POINT CLS r▟ PAPER [C]/DLN SQR BUM<*1G.WOD OR IN Y2 PAPER DIM RETURN -▞▛[ OUT CLOSE # LPRINT [F]>COS u AND [O]'KH@ OVER NEW ▟[B] NEXT OPEN # BRIGHT ATN [S].K[P]<D#1( LET F8ACS ©@0#E DEF FN TAB X[K] OUT COPY ©tvyTAN {▜ POKE k[E]n4q CLOSE #BIN SIN s$ LPRINT , @G STOP EXP ! LLIST ▜LN ▘▗▖▖!' MERGE -, LIST ▜*2# LET m"2@ApC[E]BODD!'F- CIRCLE @▛[R]*2 @j8!USR %U!'-▞ DRAW e[C]ASN )2Y▛j [S]d LPRINT U""!'-91~e▝ASN !H* Md5[C]POINT ▖▖! OR ▖'-?`oASN B[A]*[L]>=5%S8U!b'-`e`ASN *AS[L]▖2▗[B][G][H][U]!'-`be0)PEEK @[L]BIN 2Br CHR$ ▖!'-QA@k 9[A]7(8[E] OUT x[R])eD'-[Q][E]STR$ #>=H FORMAT STOP ▖/ DATA '-[Q];[T]STR$ q[H]YC▛DSGN [A]1"'- LIST k'}▗2 LET 2t"rh▗'&F-x[U]fm#CHR$ [J]t▞-^[B]B'-31<R LLIST ▘k TO [H][L]DBIN >=SGN $H4'-^M) IF ▘), NEW @[H][L][S] STOP DATA %[U]'-[Q]eF#8,S0s Qq DATA rrRCHR$ [T]')#-QA([F]X7 COPY LIST 2X▝▘[O]▚ LLIST PX FORMAT NOT OPEN #0 DRAW T LINE XyNOT LIST READ *X$ DRAW NOT LINE 0X LIST LN COPY VAL$ 2X?<NOT XGPOINT SAVE ▜[E]aQA[L] DEF FN VAL P▘8,X[M][E][R] OPEN #r3CHR$ 'VAL INKEY$[U](#2 DEF FN RESTORE fJN▙O THEN LINE 'XY;[H][L]%'G<-E(#'XASN ▜MSTR$ 3[C] THEN #"^'eX[I]C,[J]USR [R],▞@SGN [B]'QX!▘),L LPRINT LINE D[Q]HGSTR$ 'XINKEY$Lt,&p("Po$'2[F]Xt,,[I]8(SGN [R]x' LET 1e6ASCREEN$ ▘[J]0 FORMAT INK NEXT INT ,H INVERSE LIST [![J][E] DRAW }[K]v3/8▞ LLIST PIINT [#![U] LIST k' FORMAT /▝PIv▞j LLIST wmD GO SUB LINE [A] RESTORE X} FOR ▚p*0USR CLOSE #.▞ASN SAVE w6"e LINE RESTORE *? FOR NOT S)0`@USR PIv▞[A]<=(SIN ▟=O[J] RESTORE [A] LINE FOR a)'/0 `PIv▞[A]<=(2▟! RESTORE [F][P] FOR 0▘[D]USR v/[I]SSQR VAL ▞ CIRCLE READ (eD! RESTORE +? FOR `n&v/L8X▞ DRAW CLOSE #▗<(/F![F]3e9A OUT KR VERIFY AND RETURN ©USR NOT OPEN # LIST ERASE LIST ▚ OPEN #9©?` LLIST ii SAVE [O][I]?[P]USR <-1?NOT 3 TO CAT LPRINT POKE [A]`~xgf!] BORDER LIST LIST CONTINUE 04 DRAW CAT 3 DIM z NEXT SAVE G LLIST ▜xINKEY$ BEEP K RANDOMIZE DRAW MhPI[J]▚ / LLIST TAB ] DRAW RETURN PI[J]▚ [E] LLIST 6A TO LINE SAVE LPRINT ? BRIGHT >|`SIN }PEEK [N]~N©=SGN # ERASE !P,@*)>=D>>8[J] OUT COPY S ERASE N OVER ,#!@[A]!*D>▘S[P]8o[B]© LOAD p[B]ACS a!@*D LPRINT CAT ;ATN USR A[U]IN ▘ RUN [U]-XF!@`B*D/USR PI BORDER ; FLASH LPRINT OUT " CLS LLIST "m!STR$ 2@>=))0 LPRINT NEXT )8; GO SUB LIST LOAD ` CLEAR ▜i!e@?*$0 LIST RANDOMIZE [U] LPRINT ; PLOT SAVE RUN ▘A RETURN -[B]INKEY$!([G]@*`▚08| CLS TO DRAW ; COPY {xH!@ LINE VAL 4A SAVE [M] BORDER <[L] LPRINT s FOR kd PAUSE wVAL$ N NEXT USR USR [O]M LIST USR EXP u205 RANDOMIZE GW'N CAT INKEY$/:▝ DRAW LPRINT ▝▝ OR ATTR ▝▝[D]|▝▝gS▝▝@.FN ▝ STOP 00z STOP MERGE &0<>▙COS POINT [Q][H]▙T▚[N] RANDOMIZE Oq[N].?NOT ▘: LLIST DEF FN =2CHR$ ,>L* OUT ~# RETURN ▙ COPY LET s NEW !"7TAB FLASH m▖!▖ AND [T] CAT PRINT > STEP H LET NEW PoBINKEY$$: STOP [E]▜YUSR * INVERSE 72EXP #=M<ATTR <- LET "//R/<>84LN <1r LET G[P]! FORMAT >(<▘▙D1 READ [K]SCREEN$ >STR$ [C]POINT XPEEK [B]b<> CLEAR COPY GO SUB y7aIN i< RETURN STOP a COPY ▜O!T~[P] LET ^#V FOR ▟k▝e FLASH FLASH LIST [L]<=i7 AND ▜ RETURN %" ACS @ COPY STEP W DEF FN COPY <>2`BIN COPY DATA i+)(USR &[Q][A]$8B▗!` MOVE KYI[L]+)FN 8T+ SAVE %PIiT-[S]%C)HT< LET a6(h[U]Zpv@[D]5-v0J1=N>[O]>@=▖ COPY ©PI THEN COPY COPY - CLS j$CHR$ TAB ▝| VERIFY g} AND STOP STOP oATTR USR LOAD <> OR k, STEP [G] DRAW THEN ]`IN ▟(n[J] LIST Q>© READ [G] LIST Y NEW ?V[G]IUSR CAT [ LET e[J] LPRINT LET RANDOMIZE SGN ][G] LIST a[C]O SAVE POINT THEN aY PAUSE DRAW a2u[Q]$[G] FORMAT " AND ]USR #USR c THEN USR /LEN <C MOVE 1, TO .USR SIN USR USR GO TO USR [Q] PAUSE LPRINT `,.KUSR TO LPRINT LIST 0*, INPUT SIN STR$ Q CLOSE # LIST &CINT 4STR$ SAVE &EXP THEN STR$ STR$ [B]!= LLIST @>MPIQO PLOT i$ VERIFY PLOT =CHR$ P▗ PAPER nTAN ▙Z POKE $SGN x p /▙ RETURN ▞▞XN>= LPRINT CHR$ KL[M]<><>/[G])[D] RANDOMIZE [B] CAT [A][J]GFE POKE DCBA@[R]rPEEK COPY P( DIM RANDOMIZE dZF! LIST STEP PEEK REM !<=[T] OR .USR STEP [A]STR$ CAT <= PRINT cu<>[T] RESTORE 6 RETURN LINE RETURN %q, NEXT DRAW COPY LLIST @STR$ y RETURN BCHR$ ; COPY $ FLASH <> LPRINT SAVE < STOP ▛pg INPUT IN TAB USR & LPRINT `[C]4 DATA UJ COPY COPY COPY !$(,048<A COPY COPY FKPUZ`flrx~[D][K][R][Q] MERGE FN VAL T CAT ?>= RESTORE MERGE o&) DIM [T] DRAW [P]6~# IF MOVE LLIST NOT POKE LEN [T]>" COPY k$ SAVE { AND _ PAPER CIRCLE z VERIFY LPRINT USR W=CHR$ 54CODE >SCREEN$ SAVE g▘<>{<=P1o INK NEW ~<>![P]▜ LIST STEP ▚ CLOSE #j OR FN t+ RESTORE s COPY READ VAL$ w{[B]_ LLIST s LIST [P]#b CONTINUE <> INVERSE ~ AND RETURN Y0 CIRCLE FORMAT 3[Q]",8nf COPY ▙ATN LINE [▚GH DRAW SAVE CLEAR >[G]▙<=lL0 RETURN ERASE `▜& ERASE 2 PAPER w NEXT _ INVERSE V THEN PAUSE [Q] CAT [I]COS > SAVE [S]W LLIST U[I]▚ VERIFY USR INPUT SAVE INVERSE Fx COPY $_ PAPER COS ▚ MERGE READ <B MOVE z AND BEEP NOT PLOT VERIFY >{_ MOVE OR )*ABS ▜*[N]▚ASN LEN VERIFY ▞!▜▞Nj▞yATTR LPRINT ▛▜ RANDOMIZE ▛N OR PEEK V[Q] MERGE GO SUB VAL r[P]STR$ LIST XZ RANDOMIZE X&<> TO NOT 2@OC[B]ATN 5F[P]Y0NOT XTAN PI OPEN #^[6▛ INPUT `f IF ACS ABS `STR$ "DNr[VAL SIN MCHR$ C DRAW O STEP [I]@fDDDSTR$ ▘"'9|Y&a!PImGf RETURN INK ERASE OR BRIGHT [A] dDD SAVE [B]K RETURN [M],[D]@0[A]` CIRCLE INK MAT H▗AT c©▝ DEF FN @ STOP I[Q]` NEXT ?+6 INK ,7$B▝Y RETURN @ BORDER FORMAT Q`[J] COPY INK XLEN T[S][F]▞@ FOR SAVE _ s[A][C]h▘` STEP DRAW INK BIN | OUT DEF FN D @ RETURN ? MOVE ▞9>=<> RESTORE 4`[L] RANDOMIZE INK ▞[U]D[J]DDD▖ LPRINT [M] DATA d[K][P]ACS ▗▚[L] RANDOMIZE INK L8A RANDOMIZE f<= CLOSE #[U]"LEN CLOSE #<a[G]>2x[& INVERSE N/CHR$ COS [L] PRINT OR NOT ERASE ▙] STOP THEN LIST ^ CLEAR [J]LEN _ SAVE WCODE J RETURN SGN ASN CLS ©Q GO TO STR$ LET =CHR$ _<>s TO GNOT Z GO TO DLN 6©VAL$ NEW ( BRIGHT h>=PEEK TAN [Q]H[Q]``(2|7[B]<▘sX<d LPRINT 0p[O]ZP DRAW 0F<7h2 STOP -.((S LIST ? PLOT POKE PAUSE LIST FOR TAN [I]AT RPSCREEN$ 0 LIST 8[E]@_Pv.s< NEXT BORDER F 38>(?:# IF [J] LIST STR$ STR$ [T] NEW BRIGHT STR$ STR$ ERASE >=STR$ STR$ PEEK TAN STR$ STR$ SCREEN$ [Q]STR$ STR$ [G] SAVE ▘s#n-[A]ZTAB 00SIN ATN <0<[J]AR FLASH [Q]2[A]< SAVE 'Bs d>S!]@3 TO E2k+[B]k2LN NEW BRIGHT NEW >=PEEK [M]▝(2 REM SCREEN$ < DATA [G]▝▘[F]CHR$ xd PRINT 8h[E] REM FN 278<SIN ` LPRINT OZ CONTINUE BVAL NEW ASTR$ ©SCREEN$ =TAB @i`_UsLEN S TO 3)8 ▝xd7}. SAVE Z N@= TO |K<? STOP DATA 5,2g&7:=#[2&&]d<[O]?▘ IF DEF FN NEW (ABS ERASE 2▜USR EXP <G ASN [Q]ACS n"PUSR STOP Z- LIST F<[D]INT ▝( SAVE NEW INKEY$ LIST @ BRIGHT !<>sSTR$ [I]PEEK = STOP ">_ NEW nHF$In COPY IN F< LIST SIN FOR FN NEW [O] LLIST [E]3 NEXT BRIGHT BEEP gSCREEN$ STOP <▘_2 MOVE DIM DEF FN 5( DATA +IG OUT >STR$ <> PAPER [O] MERGE ANTAB V[B]"] COPY [P] [O] ERASE [E] STEP >=NOT :CODE ACS RNDX▝CODE [L]2[G]<[B]▞}x?▟sUSR id_KFA<I>=(7BIN - PRINT mNY LIST EXP @CODE 3RND1!6 "▜.▞4▗X|}s(upXUCOS WR3K)A4,[I]C&>2[B]ATTR ▞ OUT ) [O]PTAN SGN USR USR USR USR USR (2 CAT CAT <xK#UjATN DATA TO @=[B]O TO TO *47 DEF FN >Z▚` LPRINT 2[E][O]``FN SIN *c READ USR USR [I]rATN EXP H8#} SAVE LI3P* GO TO (D qHD5CHR$ !▙ TO *)8!83A[Q]TP LINE LPRINT F(;VAL$ SGN A TO Ux6;t@[O][M]>np N"d`EXP HZH! OVER [C]SLH.FdP▛ DATA 8Q[D]2CHR$ SCREEN$ U[G]Ln[D]$trpnl LPRINT NEW LLIST A▗ BRIGHT VAL `( BEEP 2 ERASE [J]Y< STEP EXP TAN ▘#0 RANDOMIZE EXP [Q]@ATTR AVAL !<>Ex[D]$d▗[B]/Pxr<#>=(▞ 5[D]sr FOR 7< LIST NEW SIN BRIGHT SGN [J]PEEK [O][T][Q]0F▘B[Q]▝▝[J]▝▝[O][T]▝▝SIN ATN P[I]SGN d@!3 LIST [J]F[O][T]EXP (▝▝[Q]NX7 CONTINUE |::p▝ COPY >= V LLIST [A] MERGE cvpUSR @LEN zB[T]RND/VIfINKEY$,▜INT 4 STEP POKE BRIGHT STEP 8PEEK z STEP STEP z INVERSE DATA f OVER INT EXP A LLIST MERGE @[L][L] A^TAB [Q] LLIST !/PEEK FORMAT LIST L! OUT hxINKEY$!0d/ MERGE )r10*<92C▚0/c*[A]!20 THEN CIRCLE *2026* PAUSE 20*[A]▚ABS 2B0*>=▚ABS 2bC0* DATA !2 THEN [A]!b NEXT [M]FN y POKE SIN CLS / THEN ;USR OPEN #SIN L;`ATTR THEN POKE ;0y/ LPRINT [I]VAL$ f[M] LIST TO ATTR Ytxj[G] NEW L?d▝ SAVE avd[R] LET ] STEP @;jfXn INK SIN DATA <@^W[O]b n PAUSE CLS `OY^▙<sVAL ▖7K©<>NOT 7 CIRCLE BIN <e^bKVAL$ GO TO STOP INKEY$< DRAW G[E]!X>j RETURN =CHR$ f[E] DRAW INK RANDOMIZE W_ LOAD USR INVERSE #+ MERGE NEW <= LINE [C][E]> ▛NOT pyLN SAVE ny1[C]a<> LOAD PAUSE @~ LET 7J▟PSQR REM ▟▟ZQ▟ NEXT CODE !▚ OUT BEEP LLIST [E]G [T] OVER ▚ PAUSE LPRINT FLASH RNDSGN NOT b GO SUB SIN TAB MERGE VERIFY [F]SIN I GO SUB CAT ▚ OUT [[F]▚PEEK W▚ CLS PEEK 9[F] MERGE CLS cBIN lO OUT ▚0=T VERIFY NEXT vx[F] CLOSE # RUN #=Cv^/[H]yv<=[H] PAPER CODE PEEK vTAN LET {BIN OR ^2v# CONTINUE PRINT CLEAR v FORMAT [B]|X[M]WSIN PRINT 2ACS aOC[B] BORDER RNDSGN vPOINT ~X6v FOR ,6rSGN [R] VERIFY 8 THEN 79lS BEEP 9 OR 27 FLASH CLOSE # BEEP 9LEN 79X▚7J INVERSE BEEP 9,NOT 7RNDn[A] BEEP 9[G]a7S7>= BEEP 2l97 CLOSE # OR DATA BEEP FLASH 97>=VAL ▝b(8|(▝ VERIFY [C] OPEN #[E]@>@kx[E]I[I]~J[Q] PAUSE L5ASN $[U]<= DIM [Q] NEXT L PAPER USR <= STEP R@[K] DIM AT ms CLS NEXT TO <=USR 7 CAT m`) INKEY$[O])STR$ USR READ NEW y LPRINT ACS VAL [E][A] SAVE READ xNOT [E]3% LPRINT LET LIST 7 CAT [XJH DIM ▜{▜INKEY$ CLOSE #p SAVE CHR$ LTAB AT LLIST M%$e IF h▝ FLASH ~@0 VERIFY ; CIRCLE -/ RETURN ▞COS [U],>=BIN ▘ LPRINT T[F]RARND▗J▘SCREEN$ [?▖[C]0"UcC[S]I>=BIN *STR$ JPOINT RRNDA<EuDBfSCREEN$ AND QE[G]2>=E$d%[R]) READ [R] ▖STR$ OR " LPRINT P[R]CHR$ FN [S]K>=E?[C]SCREEN$ J LIST x[R]@DASN E?[E]@[Q]USR ▚TQVAL 2>=▘A~IU%;3[O][R][Q]"▖ n PLOT H[Q]@ LINE n*(FN >= LIST CAT A POKE [U]SCREEN$ [C][Q]*[E]fSGN PD( BRIGHT PLOT [A][Q][Q][E] INVERSE T>= SAVE COS hRUIP[F]JCX([G]" BRIGHT PLOT [U])▖[Q]P/*COS [E]>=EPOINT * RANDOMIZE [U]FN JRND[R][L]`[G]m!ED[C][Q]FN E THEN IINKEY$?▝'<w/[N]rt CLEAR OUT RUN [I]▗~ COPY RETURN CLEAR @w INVERSE OVER [Q]CHR$ ) SAVE CODE .NEXP :~( LLIST LOAD CLS IN ©Q▛{SQR INPUT hK!+) SAVE '[R]3?w[R]2▝P= INVERSE [R]INKEY$K RETURN W) SAVE [D]VAL$ NSQR RETURN LOAD USR Paq INPUT CLS eK* SAVE CHR$ ©<> BEEP '@ INVERSE COPY w LPRINT !P}+ATTR K[Q]) SAVE DATA FOR RETURN [D][Q] INPUT COPY SQR LIST xPPEEK ▟VAL K_YP) SAVE ru<> FORMAT ▖ LIST RUN © INVERSE SAVE P PLOT C OUT wxCODE AT KFN ) SAVE EXP : DATA CONTINUE D SAVE CLS IN INPUT DRAW P CLS ! LOAD SQR SGN SVKT) SAVE ATN );▝ IF [E]W? DRAW © RETURN J~n/ IF INVERSE INKEY$ RUN ?Q COPY COPY #(-39?FMT/dlu~ VERIFY CLEAR ▜[B][L]RNDVAL I3wJ INVERSE © RANDOMIZE !- CLS FORMAT FORMAT © INK $>[L] FORMAT LEN [Q]GP INK RETURN FORMAT CHR$ :[A] INVERSE FORMAT ABS v LOAD FORMAT VAL [[R] FORMAT CHR$ BIN GO SUB f3 FORMAT INPUT [Q] PLOT COPY FORMAT RANDOMIZE }[R] MERGE ( FORMAT cVAL REM PAUSE V[H]©*S?^w[R] INK GO TO FN NEXT [Q] STEP INT [R] LET CAT ATTR BIN INVERSE OR 3LN BRIGHT RETURN RANDOMIZE X[M]<>n SAVE LPRINT O>LN u BRIGHT ABS RUN hXn RETURN [E]a LET z MERGE REM U{[T]UL$m▗'>2Oo{ BEEP [_ BEEP COPY FLASH e[T] BEEP AT ATN BEEP ATN ATN 6[T] NEXT ACS BEEP W[I]GNOT 1ASN ARND3|gKRNDS[E]'USTR$ ©USR /POINT BIN [L]INKEY$ REM [P]/ STOP FN ▜CLEN COPY ?sj▛NOT PId'VAL i|EXP h! CLEAR LIST OR ATTR ]oSTR$ ABS q OVER LIST CODE W[I][G]AFN VAL [I]8(h LLIST ▜ FORMAT x©A>i,▟6/~NOT ABS ' LIST CLS ASN POINT CHR$ [R]PEEK @▝>RND BORDER RETURN ▘BHPEEK [A]G DRAW ▚SQR COPY ▝IN ▘SGN STEP @-`PEEK [Q] LPRINT hSLEN BORDER RND7[M]7]w#` LPRINT [D] RESTORE INPUT ATTR ACS [E]|SQR TAB BORDER LPRINT +8[E]ABS [J](STR$ ASN [N]TAB DKEXP p-[R]'pmPP/`▘INT CHR$ SGN m} Q ERASE INPUT (8g INPUT BIN p FLASH f<P▝ ▜PEEK INPUT SCREEN$ INT VERIFY l([P] CLS 6< OUT o▘<= LPRINT VAL CIRCLE A RETURN 68[T] AND SCREEN$ R READ LOAD J COPY > POKE c INVERSE ▜ BRIGHT 0|? LIST AND zCHR$ INT ~pP^C]~>b [S] ▚[C] PLOT 2.$, BORDER ▞@[Q]:F| OUT SGN ▚?SCREEN$ R8(xHh[D]<=lD/*[P]Z[P]p/TLV)~.n CLS 2 DRAW [G]REK RETURN //[S]PI+Y[Q] INPUT hPP{x DEF FN pBIN SGN [B]▚ DRAW [S]eCODE D VERIFY @ LPRINT kZ0 DIM Tl PAPER !©G▖ SAVE O▜LCHR$ z LPRINT READ RETURN ▘ PLOT OVER CLEAR CHR$ wLt LPRINT FTn SAVE ▖ INPUT EXP [E]r>kV#VAL$ >]USR REM JN©INT LET NEW RANDOMIZE LPRINT LET NEXT SQR 9=~PR CLEAR SAVE q5| COPY [M]▟j▛ MOVE CAT OUT PI READ b RUN POKE nuS CLOSE #USR #NOT ?1▖ LIST 6Z POKE LIST ▘l8 CLEAR [A]PI(x}qx=X<= LET F[T] LPRINT v?▙[A]! THEN > BORDER BORDER IF CLEAR LET SQR RESTORE SAVE RANDOMIZE NOT PI©~ RETURN PLOT NOT C@ IF O[A]PI$@y CONTINUE A[S]2LLo~>=t[K]©R DRAW A CLEAR qa OPEN # LET RANDOMIZE VGY RETURN FOR ?'a READ [K]= RESTORE TAN ▜* POKE OPEN #6SIN DRAW INKEY$z[M]zqzSCREEN$ COPY [A] FOR NOT ▟V DRAW NOT [U] CONTINUE ?<[E]a;`[O] PLOT MERGE STOP REM LIST G;<=aI PRINT © SAVE hC*▙ RESTORE COPY LN [M]2 DEF FN bexK>=PEEK F([G]O[N]_j STOP COPY FORMAT ] PAUSE 'ATTR I LIST C CONTINUE COPY INKEY$%▗@ DRAW CLOSE # FORMAT ▜▜PI CLEAR SAVE CINKEY$SGN P PAUSE CLEAR [A]▞ACS [N] PLOT [^ CLS E/INKEY$▜AIN i DRAW )ATTR l©x▚ PRINT ▜ovNOT ?[G]y CONTINUE BIN OVER 9;W[E]m AND w| COPY U*ATTR Yf?0 AND ▜ CLEAR /`[P] COPY SCREEN$ [F]U! LET @[P]▗ SAVE LOAD <=@ CAT COPY EU LINE SCREEN$ ▞@ CAT 0 AND ▜|?@ BORDER COPY [S]SCREEN$ eUaH@ BORDER ▗1>@ NEXT STOP CLS COPY QUSIN SCREEN$ @C NEXT ! LET @ RANDOMIZE COPY FN SCREEN$ OUT YU@ RANDOMIZE @a~@ DRAW COPY TUAT SCREEN$ [A] SAVE @ DRAW CHR$ | RUN c@ RETURN ©SCREEN$ *VUz OR INVERSE RETURN @a2@ LIST L@ SAVE ? LIST 0e@ LLIST COPY LIST NOT [E]@▚ COPY LIST S@ RETURN LIST ?L@e SAVE LIST COPY 0@[E] LLIST LIST !NOT LIST THEN [E]&VAL$ IF ~LF5NOT DIM ?E4 FLASH BRIGHT [T]a CONTINUE o CLS l[?fLN 0IN ▟ FOR m[R]V LPRINT SIN ACS ` FLASH ▞ RETURN THEN ACS F[ DATA 6m THEN ▞ RETURN THEN ACS 6r IF FLASH SQR FLASH &&. DRAW uATTR FLASH &.▚ BORDER a▝_AT CIRCLE INVERSE GO SUB POINT RANDOMIZE 7 INK © CLS LEN t BEEP POINT [L] THEN {POINT XLN IF v▗H NEXT ERASE ©SIN 2 PAPER F[I][G] OUT ~ INK <=LEN IN OUT INK RETURN ©.. FLASH SIN *POINT LOAD GO SUB !SIN Q[P] GO SUB TO LEN POINT CLS ATN @SIN POINT TAB RANDOMIZE {]SIN DRAW {mATTR OR STEP POINT CODE SQR y[B]XEPOINT LN SQR 2_]wPOINT OUT ERASE ePOINT NEXT USR NOT 'XIN MPOINT CAT ▟jXG~▝w$ RETURN RETURN : CIRCLE 60+4 SAVE CAT USR PLOT <>2▞LN "h(y▙?? STEP PIATN : NEW AND C! POKE COPY INKEY$Xw▘ CONTINUE [D]9© LOAD 2LN 3 LOAD %SGN EXP [J]o% GO SUB y<=S[A]>2▖▗▗[D]pSTR$ b GO SUB C,x![F][G] STOP POKE 6:CODE 2[E]>LN INVERSE ![U]*D*A[U][M]utrc#.[R] OVER %)K''> BORDER _2[P]LN v! Z:zop[G]w, LIST ? STEP INPUT TAN OR THEN ICHR$ XATN [A][A]A~gASN <=&ACS STR$ EXP paBIN CAT *[Q][K] COPY CAT [[S][SQR COS PEEK BIN ACS ▖TAN RANDOMIZE ERASE # LLIST LPRINT STOP STEP u▚@27CODE _;ABS <CHR$ POKE ) FORMAT COS ▘&N COPY EXP TAN >IN FLASH RETURN THEN G0NOT {COS ASN 'O[D]▝_[P] COPY AND o▖@ INVERSE s9r{[B]W DRAW VERIFY IF 1TAN <wz; LET k{ABS CHR$ FATTR 8Y# INPUT <= OPEN #d OR vsFN C@LN CODE IF LINE SCREEN$ TAN < STEP 1LN /IN SAVE O~[R]w{▚_ VERIFY USR RANDOMIZE 0 RETURN [Q] PAPER ▝6 BORDER LNOT zWQ( RETURN ▞ LOAD p PAPER [F]/ACS |SGN ww GO SUB _ NEW uSTR$ V RETURN SAVE ; NEXT STR$ FN [N]PEEK LPRINT <>!V<|CODE P LINE <=TAN [N?nH GO TO ~POINT SIN g0 CLS ▘8 INPUT Y SAVE HCHR$ DATA TAN PRINT 7 NEXT COPY DEF FN <>:▞LN RETURN LINE ASN *[Q] RETURN OR FLASH RETURN [S]INT LINE LET DRAW ASN yCOS O THEN STR$ GO SUB <>CODE SAVE NEW IN A![C]LN 4:[P]Q=SCREEN$ CHR$ INVERSE RASN SIN LEN !LG LINE ENOT KASN n LINE f POKE PAPER [I]▖u~ DATA =w BRIGHT ^ LLIST % CLEAR LIST _&EXP ASN =Ox RETURN ERASE s NEW SAVE THEN FN ABIN I[I]CHR$ I OPEN #[I]▗Q RESTORE Y LLIST I PLOT a LINE [I]<$:q?COS SAVE NEW NOT RNDDEXP . DATA COPY [L]CHR$ [N] SAVE /x▜_!AT ISCREEN$ fCODE AND CLS STEP `LEN STR$ o[H]<>[T]INT F=[F]<USR vTo5[L]INKEY$ RETURN vP4FN #▞[Q]##VAL iIN T LPRINT ##;>*LN ~ COPY >=g LPRINT G#N"CODE W COPY OPEN #y=CHR$ ACS z INPUT COPY PAUSE <>:[E]LN ATN LINE 1v=T[F]< OVER RESTORE PAPER CLOSE # READ ACS W BORDER ▖> OUT SIN a[N] LINE ▘ACS [F]CHR$ &zn4PEEK LINE ^A]%MBIN CHR$ hNOT @yASN E FOR LLIST =STR$ PAPER NEXT POINT <>{ LINE [N]'[J]CHR$ v&xn RANDOMIZE ~ RETURN ERASE %qATN ▘pDncINKEY$ VERIFY USR nCHR$ GO TO @ THEN :pZ;POINT DATA LN OPEN #[T][Q] CONTINUE SGN ACS 8[H] NEXT <> STEP Ya LIST ▙[A] DIM ▜> AND GO SUB KA FLASH SAVE <USR ` RETURN L6 CONTINUE BEEP IF AND <>! FORMAT VAL TAB `?(G MOVE Z LPRINT CLEAR FOR #LN 78 P TO SCREEN$ "▟S[S]>0 CLEAR RUN TO ▗[F]< STEP QINT FOR = VERIFY T PAUSE [I]COS OVER ~ RETURN LINE wATN =h[D]NOT CODE Kx& AND READ ]& RETURN CHR$ ( LINE 4 GO SUB [P]ATN <( LOAD ▝! COPY _©Q OR MERGE THEN @ LINE ASN ATN z IF v STEP +LN > COPY [D]_ LIST S MOVE STR$ LLIST 18"[U]USR D^;{ AND [R]%>IN [C]W>= MERGE 9#SCREEN$ q MERGE ACS c.6▛u/ MOVE ^ CLEAR COPY ▝[N][G] RESTORE YN▜E RESTORE CIRCLE VERIFY CLEAR LN ~ LLIST <>w LIST nNICE DRAW [P]d COPY 2(0<Fy POKE PZVAL$ SAVE VERIFY wu OR x CIRCLE >=}a CLEAR THEN n LINE ▘LN ?VAL$ :/ RETURN MOVE r DIM PAPER J ERASE # PI@O:ACS ERASE BIN <><2_p*ABS q#6_" POKE 8NOT eIN =6 +EXP NEXT STEP I▗! NEXT k"IN iLN >=STR$ GO SUB [ SAVE [D] RETURN a PAPER EXP DRAW L{ ERASE VERIFY PEEK CHR$ ?[E]/# GO SUB S' CIRCLE [B]~q CLEAR LN u2'.?@▙ACS ` LIST 2 INK <>>▜$ CIRCLE U[H] DEF FN #PEEK !AEXP [I]▘A TO ©!o[Q]"<=8 LPRINT CHR$ POINT COPY Sn BORDER ?8%2 DIM G# INVERSE !T[P] RUN NEW © VERIFY [H]▚© LINE EXP }▜ PLOT 0?#>[G]© OVER 0[H]:(LN LINE LEN EXP LET COPY xd CIRCLE fHc COPY ?hFN e8ib CONTINUE ` CLOSE #EXP .INT ▝▝ CIRCLE ` LPRINT !SQR tPEEK xSGN _FN RETURN ?ABS [P] LPRINT LIST >[U] OUT #TAB LIST POKE ▟4 CLEAR &( SAVE CLEAR ▞ SAVE RETURN O LIST RETURN ^4 CLEAR 1[N], LIST iN LLIST ;!J[I] COPY T<=aRS[O]INKEY$T2Y[C]EXP ▚E8[O] GO SUB t GO TO POKE PAUSE VAL hu_I NEXT CLS STEP LOAD ©COS <`a▟ LINE ▜S[L]USR h INPUT NOT 8[N]( THEN OVER RETURN [O]SIN =[N] GO SUB PEEK OPEN #b GO SUB <= CIRCLE CLEAR [A]U<u▚x IF ▜4"va READ 6EXP CPIONOT DRAW M{ LINE ( VERIFY =MUSR ASN [L]:EXP PRINT ▜ RANDOMIZE COPY C[A] FOR ▚<▞hNOT A(▜ABS CAT CIRCLE VAL )2▙yiINKEY$[H]q[M]C) RANDOMIZE ▜MCODE [B]PIvFN L VERIFY [K]o RETURN CAT NEW ©?[I]1 SAVE =c03. RETURN `3[H]7fa OUT USR ? TO LLIST RUN NOT DRAW s OVER ERASE 9 LOAD PAPER /PEEK ▛©OiSGN TAB ▗y SAVE v RETURN ©06pPEEK AND RANDOMIZE |t`YfBIN NOT DRAW USR X SAVE < RANDOMIZE )STR$ LIST 0 PAUSE ASN 3 RANDOMIZE * DRAW POKE [O] OVER OUT [O]#<=WTAN LOAD 4 PLOT [M] SAVE LIST &z_RV SAVE FG▘-zPEEK CLOSE # SAVE [J]G[H]Z SAVE 3LF AND © COPY SAVE LIST i INVERSE IF d]▚~ STEP 7 SAVE RANDOMIZE DRAW NEXT TAB SAVE Ca|k SAVE ▜ LIST BRIGHT c SAVE EXP RANDOMIZE g SAVE USR ~|{} ERASE M[T][U]INKEY$?>PI} CLOSE #▞[FN DEF FN & LPRINT o DATA RETURN @ AND LIST LET >=1 LIST e?ATTR RESTORE f[D][I]{[H]00CHR$ NEXT E. NEW LIST CLS ~a▚g LPRINT ABS >=? SAVE >>EcATN NEW NOT ?03~▘ NEXT AHs>0 DRAW RUN STR$ |▘= LIST 1▝▞▘ PLOT LIST ▚ NEXT CLS a INK RANDOMIZE DIM OR = GO SUB J7 DRAW mu CLEAR SAVE / PAUSE >K_g' GO SUB RANDOMIZE NEXT c BEEP FL?ATN ~▗ FLASH [A]<= GO TO ~IN ▞COS !>=PIN CLS >a[P] _ POKE [ CAT LOAD PAUSE DIM H RUN INVERSE DRAW |[P]IN o>=~PEEK 7?VAL "`NOT | CLEAR d~|STR$ ▚|a' IF CLEAR BIN @ STEP ▝▜ IF ▗ RANDOMIZE [L] PAUSE k▜<=]INT LLIST IN Q LIST OUT DRAW NEXT qATN = GO SUB OPEN # LOAD [Q]▞q{,1G NEXT #K NEXT iAT b OPEN #| PAPER B& BORDER [P] PLOT |PEEK BIN eX DRAW o CLS SAVE INVERSE NOT = NEXT )' FOR RUN OUT A>[I] GO TO FOR RUN 2NOT [A][P][P] REM <▘W>[A]M [I][O]PEEK THEN GO TO [I]iATN t OPEN #T READ NEW RUN RUN READ BORDER ,kCODE VERIFY IN zT" RETURN THEN =[F]D POKE [H]© BEEP POINT LFN ©n▞. FLASH ▚{ LET O COPY {^>=[P]% LOAD B DIM = RETURN =▗J= RETURN S OVER [O]= RETURN R▗; RETURN [H]RND MOVE LET [R]jCHR$ RETURN COPY BORDER N7©? PLOT PAUSE VERIFY [L]7[/RA NEW NOT YW/ PAUSE 2[ RETURN [!o NEW ▘J COPY LET NEXT NOT RESTORE z RETURN ▜ABS RNDq READ ©H BRIGHT SAVE [U][A] INPUT |6[F]X?KUSR ▜ BORDER NOT i LPRINT ▖ CLEAR READ COPY {▗ BEEP [P]>nn? OPEN #l?v COPY SGN VERIFY LU FOR [O]?[F][O] OPEN # READ OPEN # LINE LIST - COPY [N][O] OVER [P]X# PLOT @8| CIRCLE POINT [H]e DIM c[O] , OPEN # CIRCLE INPUT SAVE [E]x RUN ^ NEW READ NOT POINT BORDER 5 INPUT ACS Xe| VERIFY [P] OPEN #▜ LET `ATN ASN >HATTR ▜ READ OPEN #8[M]-qL COPY ` BEEP ▜ REM Y[P]VAL$ PRINT 1CODE LET CLOSE #SQR l BEEP © FOR @A% REM STEP PRINT MmIN LET [E]Xy BEEP [Q]COS LN OO~>=XYPI LET 9 NEW COPY VAL ©] COPY [C] DRAW FORMAT ▞>n CLOSE #ACS I OUT ix NEXT THEN Of|a]© RUN ~ IF yhLN c/z FOR H▝ RANDOMIZE "VAL$ ©[B]T5AT ▜tIN s[J]Ju BEEP :HSQR S AND BORDER COPY FSGN COPY ▟CODE K[R]{ ERASE ©)FN ^©<[I]ABS RESTORE ▙©▖T~ CONTINUE [J]O;E ERASE POKE FOR NEXT CLEAR M[N] RUN [P] PAPER PLOT <=PEEK ▚ CLS RESTORE PLOT TO m PRINT & GO SUB vLFSTR$ [O]O<bi DRAW LOAD SIN !e[T] OUT BORDER OPEN #PEEK [P]Q AND USR RUN >SGN LOAD xABS PEEK INKEY$PEEK A} PAUSE NEXT [R]* TO REM aINKEY$POINT ©?BIN [O]| FORMAT ATN =Yx[S][O]>: DIM PEEK STR$ 2 COPY |^ SAVE fyG NEW BORDER mg CAT FLASH PAUSE [M]PEEK '[U]c61>© LET ▗ GO SUB [A][P]L[I]CHR$ f>= CAT G>= DRAW ▖C>|VAL$ oZ^d CLS READ Sy[A]l<=} DRAW ▞ CLS ~ DRAW BORDER CyBIN a NEXT MOVE "FN ~0 CONTINUE RUN STR$ [P]?TAB 7@ INK ▝▝ABS ' GO TO CAT [J] COPY d FLASH [I]©|POINT [H] CLS ?POINT PRINT IN [D] CLS 9 LOAD rSCREEN$ 1 LPRINT [I] AND PAPER [P] CIRCLE CAT NOT DATA TO [G]/[K] POKE LN f!▚NOT VERIFY NEXT NOT ?[ RUN INK RETURN )aCODE x RETURN LET LPRINT ng NEW 7[Q]~a<>F3USR // SAVE A▝[P]▚|PEEK @ USR >=PEEK AND ▖ RESTORE 0o DATA ;>=ACS }xE LET a BEEP SAVE /[Q] PAUSE O*l MERGE CAT FOR ©3 RANDOMIZE [M] OUT Is LIST Q LPRINT 1 CONTINUE C PAUSE sATTR Q NEW CONTINUE PLOT G_ SAVE TO NOT c3 PAPER THEN CODE NEW a?[J]V! READ <= RESTORE z RANDOMIZE <=[O]SQR CAT TO z?0USR ▚ RANDOMIZE a NEXT =z[P] LPRINT LIST RANDOMIZE [O]z CAT NOT 0| BORDER STR$ [G]coSGN IF NEXT OUT IF DEF FN RETURN gM_EACS RETURN ABS VAL OUT ^5[I] LOAD /-c SAVE COPY [O?ASN `<> PLOT [S]M[I] SAVE fTAN RANDOMIZE TO SAVE =ATN `.2© LIST :>ABS CAT INK E[1[P] SAVE xS PAUSE V SAVE CAT LIST PAPER | LLIST SAVE |[I]PEEK EXP SAVE 1ASN C SAVE RANDOMIZE ?PEEK ▚?| IF PILEN COPY SAVE [G]PI STOP MERGE ^6G STEP 4 GO TO GO SUB VAL D5▘@USR REM ACS y1 STOP DEF FN OR v DRAW @[L] PAPER [R]AHM GO SUB LASN POINT XASN ▜P[U]6[I]O*!N4STR$ > SAVE RUN FLASH RETURN NEW USR 8 LINE ([I]>=@ SAVE _<>[J]CODE GO SUB IN STOP S& DEF FN ▝ NEW THEN g LLIST BIN CHR$ AND ABS >|.zNOT %O>>[B]IN OC x MERGE BORDER v TO = MOVE GzMCHR$ P DEF FN a BEEP BEEP INK m BEEP DEF FN VERIFY CIRCLE <> INVERSE IN CLEAR h©VAL ATN GO SUB TAN - DRAW [H] FOR |▗! DRAW ▘0 GO SUB BIN ATN TAN VERIFY 2" GO SUB -. MOVE c7= CLOSE #0▝ RETURN CIRCLE [Q] LPRINT COPY DRAW >IN POKE VAL 4ATN TAN LIST SQR 1?[A]▙O ERASE [A] COPY 0` AND 0 DRAW ▗ NEW [A]IN ▟0 PLOT ?@_ IF PW REM T*©▞▙▜D"| READ RUN J8 FORMAT 0WACS xT>▞@© REM MOVE **/)'qQ0 DRAW > SAVE POKE A}|▖! INK VAL$ © COPY SAVE _ CONTINUE P(WFN T<pVAL$ ▜]"[A]~ RETURN [O] FORMAT AND [A]`0LN ▝|D CONTINUE [R]NOT ▗0{▙ DRAW ' DATA $ RETURN /z0$Z*pk DIM 0>|[G]t CAT PLOT DATA ? SAVE FORMAT >'>=$H{ TO [A] SAVE POKE " COPY LIST DEF FN 0 TO [A]`0^l REM ©z RETURN | PLOT R DATA NEXT SAVE >=HMIN RETURN Yr=0-▞▖>= READ [C]HSGN -AT Y LIST 0ILV0 LIST BRIGHT CLS OUT [A];[I]0 RETURN ▙1L LINE [A]` CONTINUE %(▖0 DIM OPEN #NOT DRAW MOVE -[M]/[P] LIST FORMAT P0 FORMAT (iP$ THEN CLS CSQR USR RANDOMIZE 0[Q]VAL VAL [A]4 DRAW ( OPEN # LINE [A]BIN SAVE `0<= IF r NEW f FOR INVERSE LEN `xx[M]g RESTORE d FLASH L INVERSE 4 RUN AND 1 GO SUB 0x[J]SIN f GO SUB USR IN FOR s POKE 0[A]*NOT LIST >=` PAUSE 0t INK ACS L SAVE /q NEXT ~2 NEW ▚[Q]V INVERSE , RETURN OVER +TAN Y AND R FLASH NEW 0f`a PAPER CHR$ [A]NOT [M]D` LET 0 GO SUB IF [G]r?e8< CLS OVER u?c>=0CHR$ Lqz`[C]▚[A] 0!`▜q2"[L]Y FOR USR @6EY4dGIN STR$ ![Q]Z[R] INK >d LPRINT 4 LLIST DIM bF▘CHR$ FLASH "9 STOP STEP } PAPER 0 INK 6D RETURN PI OVER < GO SUB C DIM FLASH v STEP ACS 0 MOVE ~5> NEW TO 6 PAPER < OPEN # LINE H*/CODE LIST I: NEW ?CHR$ Z MOVE [P]~ RETURN !< LLIST M THEN o>G3|r DIM V" INVERSE ▜[P] PLOT @! LINE Y PAPER w([I] REM FOR > GO TO P[pO[A] OPEN #~[P] GO SUB PICHR$ AT INK GO SUB KL<©xLEN CLS NCODE <>COS Od= COPY @ INVERSE ! LOAD FLASH OR MERGE STEP INPUT BORDER INK MOVE q IF STR$ LOAD <>j AND PAUSE OPEN #d▝USR 4VAL$ O INVERSE GO SUB ▝P[H]/NOT READ 5x[S] COPY 8▘CHR$ < BRIGHT INK ▖#u DRAW tG NEW SAVE _x3?s▘W STEP ) PAPER %%k OVER 9 FORMAT STEP w DRAW PAPER PRINT CODE C▝{k LIST : CONTINUE lPEXP RND▖-▚ RESTORE ^# DRAW V READ /INKEY$w LLIST O{[B]_4[N]mHACS PLOT 0<>ATN INPUT 0USR .SQR u CIRCLE ,5▜CHR$ SAVE CHR$ - BRIGHT S DEF FN /0^ GO SUB C FOR k OVER BEEP OR RUN DATA [H]▘t DRAW [O]▚q[R]p/▟! CONTINUE 0 DEF FN [E] GO TO CLOSE #8"=s CAT `NOAABS EXP v!f DATA STOP PAPER !/ DRAW h DATA tATN LINE EXP K INK P7 DRAW =CHR$ RETURN PAPER NOT FLASH PI GO SUB SSGN RjW COPY BIN <>(c) 192wy% BEEP BORDER I~Cm SAVE odingby CIRCLE 8Balr CONTINUE hKi COPY CLEAR htO8'128Musi LIST [R]c)JadeNOT [B]LQsA9 RETURN 'ManG* TO thxhfDCri!P_N.Keyboa/ AND rd2 MOVE LET mpstn[O][E]3Scla COPY rn▟4IN DRCHR$ PRINT ?N! OPEN #[O]5m LET FLASH 6[E] PLOT BEEP ACS RETURN #'+/3PE STOP ▟SGN COPY COPY [I]PEEK n1mBIN (%! GO SUB pSIN CHR$ @k,*) NEXT LEN U210/.p(r COPY &$!LN LIST READ EXP RETURN MERGE ATN {[&&(a?[O]./012^H NEW CLEAR ▛ COPY 1J COPY CODE OPEN # RETURN STEP I▗! AND STOP kc FLASH CLS <>qUSR " RETURN NEXT >[S]1PG^©& COPY INK 1CODE SAVE 2 CIRCLE LET STEP zATN CHR$ K OUT ▘Y© RESTORE OPEN #ULN CIRCLE CIRCLE X▟ COPY 6 GO SUB PLOT @!▟ GO TO LEN RETURN ▗EXP x CONTINUE P[R]]▛[A][I] INVERSE ACS MERGE -STR$ CAT ABS LLIST NEXT H PAUSE LET 7[M]/C THEN INK [P] LOAD [E] STEP <> LIST FOR g(ACS < LINE U/hCHR$ =NOT a#▚ GO SUB `[+yd> OVER :▗< BEEP F- OUT ! DIM PIBIN LINE @© GO SUB ▛POINT =-ATTR "<> LET >cCHR$ 2 MERGE NOT b DEF FN BTAB hjfXr"VAL$ &9EXP TO ~1 INK SAVE |VAL " RESTORE SIN jCOS O/60 LIST >2 PAPER @@ COPY $:" OPEN #I LLIST STEP RND NEW NOT [C]P&x!R▛ NEXT 5CHR$ H RANDOMIZE j[N]▛BATTR J>= STOP OPEN #C. POKE COPY XG READ [U]U CONTINUE ERASE [K]QATTR OVER AND v[ OR MERGE LIST COPY [T] MOVE STR$ ERASE FLASH OUT FOR / BEEP DIM CHR$ COPY >[A]2COS LET LINE LPRINT !^ LIST [U] FORMAT G OR RESTORE MERGE [M].z B FOR STR$ REM :"▛ STOP <G!! SAVE 7 CLS "SQR SQR COPY T]6 LIST LZX]@CHR$ [G]|i0 RUN OOY[B]▜ AND THEN RUN G_o PLOT 2/ LPRINT d LLIST > SAVE [Q]]USR NEXT LN TAN LET *A6_"INT M FLASH VERIFY [R][A]f{ GO TO IN hv NEXT #▜CODE 2/ COPY :ATN w INVERSE ( GO SUB [K]Hx LINE BIN LPRINT LPRINT I BRIGHT 8 FLASH > SAVE 0 BEEP #( OPEN # PAUSE @ LINE x LPRINT O:Zp INVERSE NEXT ;SGN d NEXT 8/NOT [IN POKE =5 NEXT <= NEXT 4VAL$ r INVERSE NEXT ABS XH[B]IN ▞/ GO SUB [ BEEP - NEXT [J]0 LLIST { ERASE EXP n NEXT 2 INVERSE NEXT [T]p' TO u NEXT LIST LPRINT /'.s STEP NEXT [K] OVER ` LIST 2 BEEP LET >SQR $ VERIFY U NEXT INVERSE /4 LLIST NEXT 4VAL$ /SQR x REM LPRINT NOT [>=ASN NEXT STR$ FOR PLOT NEXT 0[D] OR 8FN BEEP VAL$ NEXT p&<=n RESTORE %2 BORDER BEEP m NEXT CLEAR % PRINT NEXT lVAL$ ▘ LLIST NEXT BEEP (LN LINE [U] CLEAR ▞ LLIST @[N] INVERSE THEN ~NAT H[K]srCODE m[T]IN >02| DEF FN CIRCLE kI NEXT S CONTINUE LET #G▟+NAH^A▟UN# VERIFY VERIFY DIM ▝[I]: LET hATN RUN ho INVERSE ~=HZ STEP STOP THEN [S]CHR$ 5=1 RANDOMIZE [K]u#[J]" NEXT OPEN # DIM USIN LN hSIN AT |EXP )( FOR NEXT ▘ GO SUB >2 DATA I STOP LLIST ▗▗ READ ~STR$ : INK AND NEW PLOT D DRAW /* GO SUB STEP RND RESTORE @}STR$ [B]IN w, PRINT T DATA ERASE ]"<!ACS MOVE : VERIFY [U]0X TO /0<>% LPRINT N[P]▗ OUT mIN ▗" INVERSE p RUN INT j NEXT x67[I]0▘g<O READ NOT %SGN QATN >= RESTORE BIN ATN &< STEP LET BwV> READ ![R]X▚`[Q] MERGE USR [P]v FORMAT '' RETURN OR THEN ':ATTR ERASE T CLEAR READ +6© CLS BT LIST #>w© STR$ FLASH =u LPRINT CHR$ LLIST STOP #NOT |-[I] LIST READ h DIM ▘ CONTINUE f`STR$ INPUT g CONTINUE USR [S]! RUN PAUSE CAT j:SGN [Q][M]<c LIST NOT COPY &):<=VAL$ IF VERIFY (* OR [K]8ASN LEN :LEN [N]LN FN (=!x MERGE !v STEP REM [M])>} LOAD ▛[E]=USUSR w LLIST BIN FOR GO TO RND▚/D~*EXP LET |ASN (+QsTAN PAUSE _*<>c THEN LOAD COPY ( MERGE gcR READ >=t|CODE RESTORE !|` FLASH > PAUSE NEXT 8tNOT ATTR OVER LN ▙ COPY SIN PAPER LET AND /w@ MERGE X DEF FN TAB Bc CONTINUE TAB / RESTORE TAB BEEP TAB hPEEK [ INVERSE ;y▝: READ RETURN OR DEF FN [B]w FORMAT [I]▞ FORMAT NVx▛' VERIFY xG VERIFY CIRCLE iCHR$
27344▞1 TO POKE LOAD LOAD LINE COPY READ vv INK READ COPY 6B GO SUB VAL =( INVERSE !UU !6H"q▛[A]wr/fRG OR ▜[Q]vu THEN STR$ POKE ▛ NEW <: CONTINUE MOVE ; STEP ; RESTORE u DRAW AND ([K][L] REM OR RUN PLOT [L]rCODE [A]▖#= DRAW ▛[M] PAUSE GO TO <>*' RETURN NEW ©▜ AND @_CODE [G] BORDER THEN ?O▝W<>x BORDER LINE ATN [E]1▚ INVERSE h<> LLIST vSTR$ > RETURN RANDOMIZE ZUSR BEEP © LINE <=SIN REM !PEEK j% INVERSE LLIST pEXP [G]F[M]Y( VERIFY LIST ▗y2^ LIST THEN `USR g>=! INPUT ERASE !0 RUN aCHR$ RESTORE LINE [H]S CLEAR ! NEXT jbh BORDER 7O[SIN oNOT MOVE u GO SUB bATN VAL .` CIRCLE GO TO STOP PEEK RETURN >CHR$ DATA RESTORE DIM LLIST a NEXT J RANDOMIZE =>%ATN Ox STEP SGN LOAD USR Px AND (; LET )> NEW PAUSE NOT PRINT ▛ OUT SGN COPY g{▝_zW VERIFY RETURN VAL CLOSE #X OVER 5 NEW ACS V LPRINT s#rd-<> THEN LINE /8IN )8 LOAD SCREEN$ [G] GO SUB `< LLIST LLIST INK NOT POINT OUT © STOP *FN STEP [I] REM [G]> DATA FLASH H}.@A PLOT NEXT INVERSE AT !SGN COPY NOT j5~ RETURN /CHR$ D CONTINUE m CLS 69+ POKE RETURN OR m![K]=<> BRIGHT O*VAL$ ABS TAB DATA NEXT 7VAL$ - OR [F]:Kj@©dgD TO VERIFY ERASE ▙VAL$ AND CHR$ ▜2jyCHR$ CHR$ / MERGE GO SUB ![U]?ACS CLOSE #<© LPRINT @IN RESTORE 6} AND COPY CHR$ o LLIST $| NEW CHR$ u GO TO ^▛ ERASE [F]n^k#z RUN ERASE ▙ NEW U[M]/ INVERSE $~ PLOT w CLS < OVER , NEXT X> BORDER DEF FN [L] NEW ▜ AND O BORDER y@CHR$ 7 INK CLS NEXT ` BORDER 2 LOAD SIN [F] LPRINT CONTINUE " VERIFY GO SUB FCODE AND DRAW <ACS NEXT G# IF R COPY C RETURN CHR$ ▘ BORDER STEP ▟&P|G MERGE REM NOT SQR BORDER AVAL [K] AND 2&!▜q*[S] TO .CHR$ .▘ NEW ▞v:[D]<[I] FORMAT [D]Fx# PEEK h2▚ COPY 4 PAUSE M▘LEN THEN ~ LINE [N]B NEW O PLOT zEXP CHR$ , CONTINUE *[Q] MERGE PRINT CONTINUE } LPRINT VAL$ wACS MOVE GO SUB [B] BORDER RND THEN [F]!"+[S]NOT BORDER I_ LET LLIST :SGN jGCHR$ k NEW STEP ASTR$ ACS DIM IN <bNOT W[G] RETURN ©b CONTINUE # RUN PI<> ERASE `"7: FOR [O]ACS LET q PAUSE V[P] CONTINUE [P] MERGE [R][C][P]R[P]▞6[P]# REM ▜SIN ▝ NEW d CONTINUE ERASE l VERIFY © RETURN FORMAT AND NEXT INT DRAW GO SUB s DIM PLOT @Xo RUN _z SAVE '[R]: NEXT INT USR REM [G] LOAD [B] LINE MERGE rATN J CAT JINKEY$ SAVE [T] RETURN PAPER a▝USR COPY FORMAT AT FOR ▘ COPY " FLASH LET RANDOMIZE 3oIN ▘g RESTORE RUN POKE *$ OUT PAPER V+ DIM +Q GO SUB CONTINUE KASN ▘ CLS EXP =[D]▚TAB TAN VAL PRINT ;J9 RETURN >= NEW VERIFY CLS FLASH wO<>* NEXT INVERSE LET ~ATN FATN SQR STR$ OCODE `B ALAD PRINT F LPRINT BATTR DATA TO $ DRAW LINE ▜ DIM #$IN ~TAB FLASH @! CIRCLE kAT ▖TAB OUT LIST ACS DIM 6 FOR / INPUT CLS F BRIGHT 4AT NEW 4>[T]s<>7INT j89 CAT GO TO b5* GO SUB SCREEN$ STOP OR z▗g{ RANDOMIZE COPY o}= RETURN > PAPER GO TO DIM LN GO SUB y2ATN !©k| RETURN TO DRAW OVER @aC NEW REM "+<> INPUT b>i[R]aIN GSTR$ OVER COPY ~/O[R]# INVERSE ! FOR nv; REM FOR SQR <>VAL$ FOR BRIGHT -[U] OR .<= RETURN Z~<CHR$ j REM D FOR A RETURN CLOSE #ACS " LINE MERGE INT #b[U]ACS #~?-]LEN SAVE SIN [H]EXP VAL : DATA VERIFY y VERIFY !▘INT H▜▖ MOVE [O] NEW ASN CHR$ ▘ABS .x▘▘PI_ STOP VAL [P]{ CLOSE # REM VAL$ BIN RETURN CLS PEEK BRIGHT STOP [P]<< FORMAT yATN <> RESTORE *▘>=CODE RESTORE DATA CHR$ FOR {<> OPEN #▗| CLS jhEXP ATN + DIM RETURN 0USR ATTR O PLOT m8+EXP LINE NEW = COPY C CONTINUE MERGE ^[J] NEXT JMATTR G'LN IF [A] LIST PAPER ` FOR ▛[A]q[R]SQR - LOAD AND READ cTLEN n@ VERIFY LIST BORDER .8▗ FOR <-CHR$ xTAB [C]NOT (▞-{D+ GO TO LN [O]MCHR$ 5[[P]1NOT d STEP *! LLIST >=uxACS x!y GO SUB &~6AT <>' NEW USR LINE "1H[I]J(iE FOR AND FOR ] FOR NOT CLS qX OR v RESTORE %▙ RESTORE <=▖/<=©y PRINT STR$ READ <>SIN PI NEW VAL$ LEN ACS <> DATA LOAD nu LOAD 6NOT A▗MUn FLASH >▙ NEW j POKE [O]<><[S][Q]>=SQR [D]*<▟EXP zSGN 5[N]NOT OUT THEN LEN INT j4BHSTR$ STEP RK[T]* CLOSE #ACS MZ OUT : PAPER O GO TO ATTR n OVER 4 AT FkSIN VNOT .+q OPEN #=QATN W NEW THEN ? DIM LET PAPER [P]▗~CHR$ BRIGHT $ GO SUB #(39 INPUT _[L]kWK=A0 GO TO POINT MERGE aee LOAD Q OR * DIM LET , MOVE 6▖O CLS PRINT CIRCLE IF G▗i[O]▜▜ LINE GO SUB ^:[J]KNOT 1OIPI PAPER OUT [I]m[Q]ATN LEN ATN [E]>= LPRINT EXP A88>▜SCREEN$ ATN 0[F]' PAUSE TAN ©[D] CIRCLE [N]TAN NEW Cy)1▚ SAVE C$PI OUT =SCREEN$ YKW LIST ; AND RETURN " FORMAT xbp IF A IF PAPER [F] GO SUB LEN [M]$& NEXT ▞x2SCREEN$ 6 CAT CAT ▖ INPUT : RETURN ERASE < DRAW SGN GO SUB G<O>[A] BORDER -z1BIN INVERSE WAJhDq,(5"<./SQR ▙ INPUT [J] OPEN #Q[< Y=r[ LIST BIN CLOSE #[ RUN Z7[B]|SCREEN$ [J8=CHR$ PKS[K][G]OMn'4H POKE <>; CONTINUE ▚CNOT ~W}w[F]BIN ] INPUT GO SUB KP MOVE _▝^ATN SCREEN$ LOAD BIN )(CHR$ ▛ VERIFY FLASH INPUT jSTR$ BEEP STEP ATTR <> OVER [T]▞ STOP RETURN $©▞ NEW CHR$ | INPUT ! BRIGHT BIN v DEF FN WNOT [E] INPUT CLOSE # SAVE &CODE [P]A[I] PLOT VAL$ INKEY$$1 ERASE NxAT iz5AT EXP AT 8SGN CLS COPY ▟SIN IF INT VERIFY XjATN USR = LPRINT x_ NEW ? RETURN CHR$ y LINE COPY INPUT kCHR$ T PAPER 'n VERIFY W STEP ▞FN H[F]NOT RANDOMIZE S_COS N# OPEN #? ERASE DIM SGN <[O]lAT IN LIST :ATN IF H LOAD P OUT :OICHR$ 6 LIST A'~TAB LIST ATN LINE d LOAD IF >4'NOT /<= GO TO LIST ? DRAW CHR$ xCOS LIST >2 THEN [D]Y*QE[M]$h IF //STR$ *MU INVERSE GO SUB [ DIM LET THEN FORMAT 4F READ RETURN PAPER ©pATN IF >=. VERIFY _[O]NOT RETURN CLEAR CHR$ &=<>USR NEW ▗<. COPY AND z[E]# DATA # OUT CINKEY$&#WNOT u[Q][R] LPRINT S[N] POKE T<>> DRAW yNOT j: VERIFY [G]/q CLEAR ▜ COPY IF MOVE RETURN LINE LIST PAPER COPY READ | CLEAR ▟H!kTAB [G][ OR ux[U] PLOT {L! FORMAT m MOVE =2T THEN NOT !ABS < PAPER LLIST %X`.n©>vINT x[H] LIST ©n{CODE [C]IN 6oO`m0aA CLEAR DsU PAUSE wh LIST k*2ASN KFN z PRINT DRAW ~w>[D]O LET w[C]K[R][E]! MOVE LIST [R]▜sCHR$ FLASH k BRIGHT RETURN USR $ TO ERASE ]OCHR$ @(?CHR$ DRAW FLASH ?CODE ▗[P][E] CAT FN :2 NEW USR [R]V INPUT < VERIFY ATTR G[K] SAVE <>SGN TO A LET EXP v![Q][E])) REM RUN <> RETURN ©TAB oVAL$ LN HE) INVERSE CIRCLE 6GdINT <=y PRINT [M] CONTINUE 0<=] CLS ATN LET < RETURN CHR$ wWl NEW |Bo6E, [R]-<> LOAD BNUSTAN TAN BRIGHT ▟TAB ▝DIl RANDOMIZE nOSh BEEP ▝[G][B]▖r"[Q]L▖Ex[I]|FO▝"C-[O]#> PAUSE )[U] STOP DRAW COS (MDE,R DATA VAL$ 45 OLN iL$EQCHR$ OVAL CYL" TO 9#GO&M _[I]IVO[O] RANDOMIZE COS ,(P▛RG LPRINT POINT ;a@ REM LEN DATA ,SQ2 POKE WRND@PINKEY$S RETURN ( DRAW q15464LEN ▞ PRINT 'COS ▚[E]0▝[H]&HEc)▟.S9▖WF1:|[J]PEEK VD/W[K]N READ X.$< ASN b[P]h3418 OPEN #*lF STOP CrRND BRIGHT STOP v1BIN BIN [U]7 OR KCHR$ KMr[D][E]P[O]▟'[S][O]FN SCR&SIN ▞▙ASGN 8EXP H$ AND ABS ,AT IT[U] FORMAT SRK OR E PAPER X``M▛ DATA ` RESTORE ▛ INPUT 1 SAVE POINT 1CV%'/ CLOSE #SGN D[Q][Q] TO ▞#73CD [U]cINV DATA *h[I] LIST [T]4$lPEEK SIN > FORMAT # FOR Q MOVE H/S[F] AND R-& OPEN #/▜<f`(" C RUN 04z6p&| THEN MERGE &z3"Q(TAN _▗`▖ CIRCLE ©▙ LPRINT 25▜O[I]G!USR ]> READ "SCREEN$ PRINT [A]/CODE RANDOMIZE PAPER : COPY LEN LLIST x=▜w CIRCLE VCOS 5IN LOAD [F] INK INKEY$i▗ OUT >2AT PRINT !| LLIST PLOT "TAB v STEP TO POKE < PAPER R DRAW @ATN BIN OPEN #~*OTAB D DIM FLASH CAT z' POKE REM PLOT [M]p[F]:3 DEF FN j LIST LLIST X/g5((~ RETURN NOT CHR$ SQR w6[Q] PAPER =#▜9 LET TO <>8[I]▗! AND .MHNOT VERIFY A PRINT PEEK PLOT PEEK RUN >=y LLIST {USR Qt#[S]▞gD LET LIST [E]COS [T]` NEW <>>/[]F[K]m~ PLOT X29> THEN )9u LINE XTAB VAL$ |<u}Z IF Aru AND /Or STOP MOVE ) PRINT < NEW ▜NOT [H]▞(> LOAD oy FOR h CONTINUE POINT SAVE ▗)W<= RUN _|V[H]E> OUT RUN "?ATN CHR$ c PRINT STEP ▖ STOP ],>=[I][L]N THEN [N]+g BRIGHT POKE <> INPUT p CLOSE ## STEP ~) PRINT %# RUN PLOT INOT ▟CODE ATN ATN RANDOMIZE <>_ua_[G] CIRCLE LIST ▙]- TO ▙>DCOS CR DATA PLOT YS+7HNOT VAL$ PAPER [B])▞W[U]2 <>▜ VERIFY [G]/dMX TO i-f.VAL$ +2*SIN <>Up3EXP [T]z!X▚A OR FN % CONTINUE SIN 6 RETURN COPY 69<?BDFHJLMNOPQa LPRINT ▚ COPY B?<9 CONTINUE SIN 6 RUN cFP NEXT ?Q"%)-159=AE FOR Q~*?:86432a LPRINT ▚G]Gs▚a/&0vCBK|▘ PRINT r RETURN ASN ? PLOT pUSR FOR SAVE INKEY$[[CHR$ 5 LIST SGN 5 SAVE x/ DRAW 6 READ j?@WNOT @ LIST LN @W OPEN #/[S]/▝K▗^[H]i READ Kz> RETURN >>>> MOVE RUN z7(x▘ SAVE LLIST ▖zFGD SAVE zF7▘ SAVE ▛/HE▝4[D] SAVE CODE @ LIST _@ LLIST IN @CHR$ ©@. IF ▙USR b?# IF READ USR TAN CONTINUE 8USR POKE _PEEK CLEAR PEEK COPY ©APEEK M FORMAT PEEK 9l DRAW IN A▜Mi/▚M DIM { RETURN ▚. THEN @▗x INK n RANDOMIZE .![N] GO SUB DRAW ATTR STOP 1o CONTINUE 0 LPRINT n`3▖[A] LET OPEN #USR $3"PI INVERSE $ CONTINUE I STOP 3SQR LN BIN O[C]3$[B]NOT w BEEP [Q] IF FORMAT xUSR [E]< PLOT USR PLOT [E]<USR INT O>=cUSR ▝▘ AND IN ▝SCREEN$ [C][S]@1* RETURN $@IN `[Q]D)B<FN H POKE @1CHR$ @[S]@[Q] OVER ▚@0i(@"!|@[A]@[Q][T]7`@5▖H@(GLEN @ GO SUB LLIST ? SAVE iO{ RUN NOT S▘ RUN z NEXT OPEN #z OPEN # NEXT z LIST TAN DRAW OPEN #BIN COPY 4BIN ?BIN ? ERASE BIN `NOT PEEK MIN PEEK RETURN ▘/(PEEK ▚ STOP PEEK ENOT ACS VAL PIPIVAL ACS VAL PIINKEY$* STEP RETURN NOT USR COPY [S]IN FN USR / REM USR ▛ IF USR ▚ DRAW ~ DATA [P]~ COPY 4PI!~ RANDOMIZE ~j BRIGHT D(] CLOSE #<[R]<INT n RESTORE SAVE S< LET o,[Q][C]_T▖C[S]SCREEN$ @$▖C@ CLEAR @ CLEAR CONTINUE [Q]D~ THEN @HFN C% LLIST x LIST TAN xmI <xz PAPER R@xxTAN RNDUSR LIST SAVE @< CLEAR @O?@ READ @[K][G] RETURN $8[G]G@ SAVE $4o@ INPUT SAVE @hz->=IN SGN [M]of! COPY SGN CIN 7▚ DRAW SGN FOR SQR PLOT PEEK DRAW {(PIABS TAN POKE CLEAR NEW [J]6J[0VAL$ , COPY © COPY M/INKEY$ PRINT STEP LET + FOR OR +"M/*Y/+ STEP U*M/STR$ OR GO SUB LN FOR #STR$ p+q LET +w*Y/+<>*e/+F+N+V+^+~"e[F] PAPER EXP VERIFY TAB /c@A FIKUS/FLASH/ASM'98 13018#[T]@B BURST/FLASH/ASM'98 12550# READ @C FIKUS/FLASH/ASM'98 12460##HD BURST 12005#cHE FIKUS/FLASH/ASM'98 10408#[T]HF WOODY 10000# READ HG FIKUS/FLASH/ASM'98 09627##PH BURST 09086#cPI CAPTAIN L. 09000#[T]PJ YOU L A 08000#8(((((8~ZZ~f FLASH ▝ZZ▝ FLASH fwAWA5Aw NEXT [N][L] POKE / INK EXP CAT 8lT. MERGE INT OR {4,8(hXp>kwAwk>wAw4(©A©8(86lXp~NOT EXP ASN TAB [N]NOT ~<dTt4wA©~NOT ABS CLEAR CPEEK ▝ COPY ~NOT ABS r}ABS NOT ~4d CLOSE #ATN ▝ RUN COPY ▝PEEK ▘}ABS NOT ~~CHR$ PEEK ABS ABS NOT ~ COPY ▝ CLEAR 6,(8~NOT ABS BABS ABS NOT ~~NOT ABS ABS STR$ =NOT ~8(88(
