| Es parte de la publicación: | Dark Fusion |
| Tamaño del archivo: | 58624 |
| md5: | 73d3955e9bdd84ecc1e0e378be6c8e49 |
10000 CLOSE #USR 0 NEXT 1M]<> DATA ^i#8ATTR ABS RNDABS y(RNDy,Y&X PRINT /X{RNDsRND$RND GO SUB x AND POKE [S]q FORMAT t! DRAW /# SAVE Q' IF ' LIST ![R]#j LIST STR$ TAN v+e)I1B8JBIN VAL$ k[C]COS THEN l▚sEXP [A] FLASH RANDOMIZE '▝▚Z@@^ GO TO qRNDUSR CHR$ RQXLEN AND JvB▟wLEN LIST [B]ASN 9 RUN 8 READ .' CLEAR 6#©CHR$ [R]!3i▚[J]h OR [M] CLOSE #hk8▛TAB AT !B CLS Q DATA #Q▖>[H]BFN CLS 7GABS 4 PRINT STR$ RUN ▜q▙f~ CIRCLE IEXP OUT <=©SQR BORDER PIUSR NEXT N] SAVE SGN INK P-l INPUT RETURN [S]C^TAB >a+[F][A] OPEN # STEP CLEAR @`cAT LINE OUT [B] RUN ~ OR PAUSE CLOSE # OR DEF FN ERASE LPRINT OUT ▘ RANDOMIZE LEN ▟BIN DEF FN POKE [U] PAUSE <VAL AT [C]/[N]FN [L]POINT [C] STEP TO ASN RND[S] READ = FOR TAN RESTORE 1TAB SCREEN$ ATTR V('*[F][C]/[N][K][L]L-23]▘ LET LINE OR BIN CLEAR ▟ PLOT RUN VAL ursPOINT STR$ <= THEN RND}z{ BORDER ZG▜ebc@aNOLmjk POKE z DATA OR DATA _] FORMAT ▘ZFSTR$ [D]N▝ LPRINT 8CHR$ RND/ATN LINE T[H] PLOT CLEAR KS CIRCLE ▗# INPUT ▟%% )y SAVE PAUSE ) DATA +,0-ASN BRIGHT - STOP '=3)INKEY$,) IF 912▚ PAPER e SAVE [H] OPEN # RETURN !@T]u GO SUB VAL !O] RESTORE READ ^~ INPUT Xw#ATN GO SUB R PRINT <>0000000000000000000000SCREEN$ '.FUSION" LINE 1000015616 NEXT INK RESTORE !BIN x TO LEN 0 MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !<=`|` DEF FN MERGE NOT NOT 3PACKED BY DR.BARS OF FLASH INC.'1996 INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE %P GO SUB LN LLIST NOT FN a INK 1{`/A[H] OPEN # RETURN !6/w#w!XT] COPY w GO SUB VAL H2[K] LIST STEP XPk STEP REM [T] STEP [L] CLS STEP LIST 1u[Q]v NEXT ! LOAD +|ASN ! STEP [M]w>▝=2 PAUSE aATN LINE ACS b STEP PLOT b> LINE CLS FLASH RETURN CLOSE #-c> CLEAR ;NCOS IhWcLN >R0#bATN (TAB STEP e> RUN +t[F])[F]©n[J]$ LOAD 8▖}[A][L]X[L]u[L] DEF FN l@] MERGE [M]<> STEP 6RNDNOT 0:USR ATN E!v CIRCLE FNOT ec[H]g[H][Q]:7[D]u L;s !0u" OUT a![L]w" LOAD a9 NEXT a>IN z0AR▞? REM CODE : RETURN [L] " R[M] COPY OR DIM TO cNOT RETURN ea<>!1?[M]?<>P5>@F<>[H] INVERSE !{j"`Vu[H]go" THEN b" ERASE b2>=M; STOP <>:/< RETURN >=[J] RETURN PRINT >=2[F]z=0COS * GO TO ▝_ OR MERGE GO SUB [Q][A] MOVE z NEW { AND _.8z VERIFY WSTR$ DATA <> HI ! IT'S FLASHNC. NOW, WE PRESENT TO YOU[U]-COOL GAMN[L]D:BDARK=USION 48/128RND(C) 198GVAL EMLWSPARNDC<-QRA MOVE LBNULE[A]T{N @23.▝11.96lPYRIGHwG©BY[N]5KEYNOT SCODE M[O[I]-[F] OPEN #S'Q','A()WS'-FUPORqHANG[O])U<>[G]K!'M% DRAW ER[U LIST EX▖ABS NEW [,BIN LPRINT RUN <=m▝cAVTA"uS)TC[N]DIT|STAFF CLS ^SCREEN$ ( RESTORE DIGTPOINT @TAN D,VAL /DR.BARS/ TO ©APHICR[K] POKE (SIN W▙C CONTINUE SCREEN$ INT GO TO FMUSR SQR ClWAKSOLN NAIMPORT/EXB5(jYSSRn DRAW CHR$ OM5'[A]STR$ O STEP F] ERASE TM ][LT'THUB|'1992 LOAD `SQR ^ CIRCLE "CODE [C]NE ©SCREEN$ GO TO ATTR SR[O]AEXP AT L+1 ERASE hFCODE <>NINKEY$E▖VAL$ ELBVAL REAcFIK BRIGHT A GO SUB RANDOMIZE DATA B~UY/SNP CLS $*+SPEmRNDCBU▛'CYS' STOP FN CIRCLE THEN b:PH COPY [B](3832) 47-40r-5COS ASK LIST )SIN X[Q] PLOT DC;`UCOS [R] THEN EM[R],hYSTRETC.TRNDR!Ge PAUSE B[10.0T▟U1(@UWSCREEN$ ▞ OVER ▞[C]>=[I]`513-681 THEN ([P])(INT i43MUIHA)M'N DATA 256*22(KOLY[F][ RUN *. DATA GO TO 4-0 FOR AM`fCF,lA[H]-A[Q]D COPY S LIS MOVE MOVE "POINT [S][P] CIRCLE MBASN VERIFY ([H] THEN PEEK ,CODE ,*[Q],3X/KVS,[B]n[J],)XQRYXIMAX, TO ,S(OCKBNU8T(-5,CEPT,TQ-TIG{RNDSCREEN$ G-PFHPOINT cORLD 2BC[F]3 L,G GO SUB MY LINE %0" OR SI0BC(BJASN G[S]URNDeMIV.C.F.PIAULN sDF,LOSC[F]W▛C8SCREEN$ *e, VERIFY [M]TAN ▖f OVER FOR RIZTAB YOUP, ERASE CHR$ SGN DATA V[B]TU[B]WOTHU*,PIT*PGFT5 CIRCLE OUT DRAW B.H.GFF*TAN PU([I]VAL USR K PRINT INT LLIST z[4 STEP SAVE pg,YB8TAB BYl[K]!G[F]D THEN K V▗[M]r MOVE GCHIPNOT ,LLE[M]5▚D9v0 EPYX[H]s%;GO RETURN g CLEAR LINE USR PEEK ▗▙(+▚/[T]!X0)VRCOS IF ▘<>. IF FN 1)UNL BEEP OUT AT zACS AND CODE SAVE NOEfTNOT XGY@ DRAW VAL Ti!OGGSGN bG INK ERASE ▟ USR PLOT [M]w FOR 6 GO SUB #6sP[# FOR x OR !ml▞*nl##"jF*r"!1A"[l!;)@"dlw)Z)[K]) STEP l MERGE AT *VAL$ + STOP !%+/+ INK ebk▗{▗6<>[E]B12/2[A]2 INVERSE *VAL$ a INVERSE "6l INVERSE ,Y[F]=7SCREEN$ 77 INVERSE !I!BIN LEN $| NEW USR } AND o CIRCLE | VERIFY g<>▚ INK _VAL$ R[S]2{#0 INK }o{▝_:) AND 2Q:,2<>1BINKEY$ LLIST MOVE INK STR$ 1- OR MERGE RESTORE INK 1[K] LLIST CLOSE #c©?©c``~~©~??J7`9+©>'M*>-csU{4oj+gc©QVAL$ NEXT SL%!D LINE USR ©:] THEN PI2[N]]!xi STEP ▛] STEP !|`/& VERIFY S([H]! BORDER BIN Rv([H]2[I] OPEN #NOT GO SUB [ POKE #[H]] GO SUB S<> NEXT OR J THEN 9>,8 AND ( NEXT STEP BEEP ]y[E]*>2NOT M[B]/STR$ MERGE OR MOVE $ THEN c GO SUB <> INPUT CHR$ <> INVERSE RESTORE !=[S] LPRINT RETURN IN <>>< RETURN u#p~ATN !▗cH[A]C[H]22u RESTORE ~[Q]o&):9[O]~2 RESTORE O LLIST # FOR INT NEW BORDER CONTINUE INT VAL$ DIM REM FOR VAL$ FOR GO TO GO SUB FOR INT INPUT [K] LET M PAUSE NEXT VAL$ FOR POKE PRINT FOR INT PLOT RUN SAVE STOP INKEY$ RANDOMIZE IF O<>LN OPEN # RETURN AND 1 RETURN IN INK !P[K][J][I]ASN DRAW RETURN CAT OVER u]{ LOAD "=[INT VAL$ tABS RUN # VERIFY =[F] INPUT [s COPY ©Q RETURN ? DRAW SAVE E LIST LPRINT TQUSR M*R© RETURN ? RANDOMIZE EQ SAVE LIST LPRINT ATTR USR RETURN USR [H] STEP R;;STR$ ![H] FOR !f RESTORE @s#r!{▞ LINE PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O}EALEN O)) LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST 3STR$ NEW ©(# THEN w G[M]@ RANDOMIZE VAL$ NEW ?E CLS #[Q] INK !X' INK <><> INK w($ SAVE COPY AND 0 LPRINT =#<>NOT ▝ COPY DRAW xTR@ FOR USR RNDLyyyJ)zzzSSz OUT J){{|[E]R|||)RND}}}RJ}~~RND[E]~~©©)©©USR COPY BRND2 CONTINUE ABS <> BORDER @▝BIN P@▘STR$ COPY ▚<=B▝]USR ▚[Q]?USR ©?▝ OR (x`@X▘STR$ © j▜ LPRINT SAVE DRAW RETURN RETURN (SCREEN$ X9x▗@[L] STEP x9STR$ FN *©CHR$ USR LIST (U DIM >=DhQH@[SQR ▘-▗J2USR STR$ Q(>=▘[S]a` LPRINT P?xp STEP ▝▝<=B▝▘ BRIGHT yHM[F]k▝BIN ▟|▝<NOT DRAW LIST USR Z[F]USR CHR$ p""![T]?FN *t>©X 5PSCREEN$ v !R@ @ LIST Qo▝A CIRCLE ▝~<=([E] CIRCLE 2RND▘ LIST [A],zRND@▚. LIST LIST LPRINT LPRINT IN POINT *<=▘SIN VzA!V{ CAT B READ [K]%▝NOT "`|ELN ▝ RETURN ERASE /▘m[J]CHR$ V($[S]USR !ABS LET ▘ RETURN DRAW STR$ SAVE IF ▝|STR$ OR REM C STEP sHCOS ▘~ AND P@|(x PRINT <JQ▘BIN /%▖FN aF?)▗u LPRINT P` MOVE NOT STR$ 3▗ LIST DRAW R(H▝ DRAW #ABS |BnCir LINE JH[Q] IF >@ a▙P[Q].# FORMAT OR e|<x▘~ STEP SCREEN$ [Q]▚r DRAW IF $$P[Q]FTe|IN 0$@ K[F] RETURN [SQR 4"IN ▘8QUSGN zSCREEN$ @ COPY ▝8 PLOT +} CAT STEP STOP 6R( LIST VAL PLOT [O][R][C]▘[R]DRND}/Jlz SAVE {<>[H] RUN [H]INKEY$STR$ 1[A]&*SCREEN$ [A]~V@"!▘VAL$ O) CIRCLE +P[A]Qj@pAT LIST ▘ SAVE US RETURN MERGE ▝-FN [C] CLOSE # COPY *BIN RETURN BPCHR$ CHR$ P.M▘8|FN H FOR "t VERIFY P[K]$hg[S]USR RND VERIFY @fUSR ▗▘ AND SCREEN$ [C] LET INVERSE B DEF FN x[E] TO Gx @`J[U][Q]xUSR LPRINT ▝[A]yCOS y y@J)`[Q]iUSR 7 OVER G▖o|aJQGQN[B]OLgg|G|c]iMGMjGcY-▘nt2▘(QL8[D]/{fD▗yoGf5▖k^sVGGacX[B]j]GZSGWwun_|WVrm▘c/r▛|_Gu$Vuujj▝▖e/G/gGrq▟▘TT[C]@{^pnUGTfmzi,eTZGSbGNO OUT GC RETURN RANDOMIZE REM M96▖ SAVE !©>r>©COS BRIGHT '©© IF SCREEN$ W508[K]E80??W LLIST ^3[P] CONTINUE [G]-0_SQR cTAB cgo{s MOVE G[N]'<<T FORMAT [M]C1?~>=TAB ` CAT /fEXP jUATN PRINT ``~~>>5/C▙ CLOSE #/N9c_TAN RUN ?C LOAD s[C] NEXT FLASH IN y6oookony OUT ASN ©m STEP SQR CAT ~ CLS INPUT CAT DRAW NEW CODE FLASH ▝ BORDER COPY /ABS z?~{r LOAD m,po INK M ©,ffllxx NEXT //Y[E]ABS ocwVAL LOAD k[B]_s{© STEP {og OUT IF O[L] BRIGHT SGN [R]2 OUT ~ NEXT V|nB[P] CAT EXP [N]O- LOAD COPY COPY FOR o CAT _w PRINT [U]/kMZINKEY$W RETURN RUN t OR RETURN /flSTR$ TAB 3 OUT !(RATTR NOT 8[U]NOT FOR [U] GO SUB K DIM COS VAL [U]/ RUN p LET FORMAT NEXT "[Q] PAPER [U]> DRAW 2▚FN 2 LIST ]POINT ~#2 RETURN [U] STEP CLOSE #[U]~2bSCREEN$ #[Q]f"lSCREEN$ STEP OPEN #[U]"tSCREEN$ RESTORE ▟PI"[N]INKEY$"ATN RND▘R.>jRND FOR ~@▘ AND LLIST ATN (6 FOR +r+s##= NEXT !3[U] OUT RND"RNDgo"FN " STEP 0[Q]<=PI2 PRINT [U]=2_SCREEN$ CODE 2ABS POINT ! OVER [U]w# DRAW y2( TO CLEAR COPY > GO SUB yCODE IN NOT ▚CODE POINT FOR ^#V# FOR /ATTR <>ATN NEXT GO SUB sTAB POINT INK (( LIST `!45CHR$ ERASE RND©#SCREEN$ 5 PAUSE INT PI! REM [T]ACS LINE JNOT RETURN USR 8[B]08>A[B]NOT ▞RND VERIFY 0a[B] ERASE VAL$ RND[J]0SCREEN$ =2SPOINT [B]|$ GO TO 2APOINT og"[J]POINT NOT ASN 32[M]POINT [P]2[N]RND( LET 33[O]y'EXP +▜ INK _d RANDOMIZE LLIST ~▜▜2nBePOINT #j_POINT INK @F-2ACS PICFN >2USR IHFN 0[U] GO SUB SSCREEN$ RDPOINT lNl_dF]<2JXG> NEW [O]$Ll#"+ +jb")N~=CHR$ OR n(INKEY$! BORDER LPRINT PAUSE iFN INK mABS INK 2 BRIGHT ;FN D INK ]INKEY$ INK [ INK [E]RNDINKEY$ INK 7 INK LET PI[F](nl PLOT PI VERIFY <=PATN "2<>2 LOAD FN NOT RNDABS INKEY$(e OPEN # BORDER [P] RESTORE STEP T OPEN #! OPEN # STOP PI*j OPEN # CIRCLE SQR PI▗v▚-2PEEK INKEY$ OPEN # GO SUB USR GO TO % OPEN #STR$ ▘[C]] CAT PIk INVERSE PI2 STEP f DEF FN PI CIRCLE OPEN #]j! RESTORE 6M GO SUB RESTORE + RESTORE MU& RESTORE = RESTORE %o'Be>T[L][U]NOT OUT LET EXP DRAW + LOAD OSCREEN$ LOAD MPISIN <> LOAD ▗PI LOAD 5FN a:FN LOAD USCREEN$ [S]N LINE ( LOAD P LOAD TAB PI LOAD +[J]▞ MERGE INKEY$! LOAD Im&FN LOAD COPY PI[S]▞-2VAL$ LN h LOAD 0oPSIN LOAD ]FN k!FN LQ2FN LOAD M STEP ]! LOAD 6M GO SUB LOAD + LOAD MU& LOAD = LOAD 2o'Be LOAD [C] TO CONTINUE LOAD REM [U]- FLASH d" PAUSE 3" BEEP -K"0POINT INVERSE SIN ,! CLEAR LLIST POINT LINE c▗[E] NEW RETURN ([&EXP 1▖ACS mmEXP SGN eY4s[D]wU[G][H][S]ABS LCVAL$ |[E]eC▚ABS V THEN )VAL$ COPY 2j CLOSE #Q* RESTORE :P PLOT PIE],P▝5▝ OUT { RETURN .'U@▚▜_![C]SCREEN$ NEXT H< IF +SCREEN$ _ AND tXSTR$ RANDOMIZE MOVE { NEW VERIFY (o?[P]RND THEN :0 PLOT NEW DATA e[U]{8 INVERSE b0QT!LEN STR$ (/( INVERSE o|g" OVER [U]i]W▙i5i LIST bui RESTORE iCHR$ OUT INVERSE ASN Y NEW ;EXP )s-POINT s]l LPRINT lA[H] FOR lBl]POINT PAPER dl NEW l NEW <k BIN LOAD k[J]k STOP [U]1CHR$ FORMAT k(IN COPY LIST GO SUB yNATN (BCf$B> GO SUB ATTR =ACS DATA INVERSE }( LOAD [F]|!▛▚m▗ CLS <>CODE | INVERSE .PANOT OPEN # DEF FN RESTORE } PLOT [S]AT NOT @ PRINT @J[D]$AT POINT * OUT RND6▗ACS *bPIG[D]< RUN _SCREEN$ O[C]A ERASE N#~ RANDOMIZE LLIST SCREEN$ T-▚FN * AND ` INK G THEN OPEN #STR$ SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E][Q] REM SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P]FN [G]▙wpkd^YTOK(GB?;85USR /,*'%#! PAPER </7g LIST 3 LET LPRINT PAUSE LPRINT NEXT ▗ LPRINT POKE 4▝ LPRINT PRINT LPRINT PLOT LPRINT RUN ( LET FORMAT LPRINT LIST LPRINT fp RETURN ▝ INVERSE RETURN LPRINT CLEAR LPRINT DRAW LPRINT CLS LPRINT SAVE @*& POKE 04 LET ▜ LPRINT eSCREEN$ s3u3s)4: PRINT ; LET 6 PRINT : LET 3 PRINT 6U MERGE [TAB W;ASN BEEP # NEXT [M]3[Q]p5?aq LET TAB cpVAL$ fbqdRNDaSQR Qr bR OVER #/ LET LET PAUSE VERIFY ▜3▝33 PLOT );qCODE _r CLS ATN ▝p INPUT INVERSE d@*6bQBt1suut▜1▝11 FORMAT [K][H]= POKE A LET 8 POKE = LET 5 POKE 8QU5 LET =e[A] CONTINUE f LET ?: POKE ?[I] LET 6 POKE :6]i!h ERASE !BBINT m LET ;;tWB!!s[P]AiaJUA[E] INPUT !wIQ5xw:u1)RND`▘1xw9UPINKEY$▙"6!5[F]& CIRCLE [L]▘3[J]J3!'( STEP ▙!;!:AUw6u.RNDSCREEN$ ,;AM!'SCREEN$ [K]L! STEP [K]30A#6Uk©1%[G] NEW =%:N[E] -qb PAUSE - LET )4 PAUSE q▝r CLS yi]<[H]BSQR 3.f9L;zjINKEY$[R]$2INKEY$J! LET ?8 OUT L;z:EL▘@LN -▝ STEP LPRINT LIST CLEAR LPRINT p▟: LIST COPY p▚>TE POKE UACS RETURN .=R/p▞? LIST ▝?p' IF [D]D-D LIST -▗Au*%/ LPRINT PRINT 1 PLOT +SCREEN$ LINE V[E]SIN S▝3N STEP LEN J/3 LINE LPRINT SAVE 6 RETURN ▞p ERASE /▖LEN O[N]U$lTn POKE POKE V NEW AT p)`)>[P]▙!▟ RANDOMIZE b LOAD v▛4- LINE zs)-$ RUN ACS !r COPY 3 COPY COPY [M][D] RETURN 7 MERGE MOVE `D$ TO ▛8*D LINE ▟$&5 NEXT [Q] RUN 8MX BRIGHT ?` CAT LIST F!{w▝L5a[M]@#FN ATTR LEN ATN ABS NOT <> DEF FN CLOSE # FLASH LLIST BORDER REM GO SUB $ LIST NEXT PLOT $R▙ INVERSE C FORMAT h COPY © COPY [H] STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK <><> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY B▝ INVERSE ▙&DH #!(USR > CLOSE #[K]#F<© COPY LOAD TO [J]#4D▖>▝ CLS (USR % LIST B` ERASE [A] LIST BIN ??© DRAW LIST LIST LLIST READ USR USR ▖ FORMAT LIST @?© COPY COPY [A] "▖t~>~PEEK CCHR$ ▚DSTR$ LIST DRAW RETURN ~>w READ USR AND BIN x▗ LET LIST LET LIST PAUSE LLIST STOP LLIST STOP ▞CHR$ OR CHR$ STR$ CHR$ B8 COPY ▗▘D8SQR [K]$$:©© LET USR ?FN PFN TFN TSCREEN$ USCREEN$ U([S]▘1p~ RETURN RETURN ASN [F]NOT `0@[Q]P[Q]NEED! OVER NEW ▞©_?>>IN STR$ COPY READ USR LPRINT @@d POKE DRAW ~>ATN ▟USR LPRINT LIST SAVE BRIGHT INPUT COPY ©=▖[C]▘)[D]▙ LPRINT USR LIST SAVE DRAW RETURN B? INK FLASH DIM [C]Ba FORMAT >=BIN STOP LLIST q9 MOVE f>lK[P]||=[L] COPY COPY IN [F] STEP [M]H LLIST 0 RANDOMIZE ▞*[F]RNDJ%USR @USR `▙ LPRINT LPRINT b0[I] TO fCOS Y,"▘▚v▟x COPY COPY DRAW LIST LPRINT USR ▝STR$ STR$ LPRINT POKE [C]▝?a9▝ATTR IA▖B!" x CLEAR p 0[I] STEP PH▜▖ @@ PRINT ▞@@ OCODE OCODE [J]^[O]^[O]^[O]PEEK =SGN <SGN <<||z RANDOMIZE LN 88 RETURN ▚|[P]NOT d2[J][A]Lf#1USR ▖@ RANDOMIZE [U]N0" OVER ▞p[M]GPOINT T*[F] LINE eH3[J] TO CHR$ [A](/<USR RANDOMIZE 8>▜ p COPY COPY RETURN `+[B]pH▜USR p[I]lINKEY$SPOINT ,H▚Lf3CHR$ (l>=▘ RETURN COPY 0©`▜0[A]▚USR `0[I]LH▜UPOINT U)[F]<>e(-! DIM ▘ COPY `© LPRINT /k[I]▘ RETURN ▝▝(@A▝>=A CLEAR [I],*))iiI<>▞POINT DIM RESTORE OPEN #[R]H[M]9( GO SUB BIN @ CIRCLE PAPER ▗▘▝▝NOT [F]0B▟7o[M][I]07 SAVE x0xy1▗ USR U FORMAT @p DRAW ~[P] CAT NEXT TO ▚?USR USCREEN$ _ PRINT [G] RETURN COPY DRAW cl FORMAT MOVE MOVE ERASE [S][S][U]DD@ABEK'[O] MERGE [A] DRAW RETURN DRAW USR ![B]PFN XSCREEN$ ZTAN h[A]`6[B]!!CC?{ NEXT READ STR$ ▜8 PAPER TO ▘ TO [O]f[L]PEEK }SQR ©IN ^ABS {IN ©IN SAVE LPRINT USR USR ▝[F] MERGE THEN RESTORE READ LET :}('"D▗B▗[O][P]▞SGN ~ COPY COPY CLS RUN LOAD COPY © REM PVAL$ U REM } RETURN LLIST GO SUB GO SUB DEF FN BRIGHT OVER h8▝▖8 @▝o REM S BORDER USR USR USR LPRINT ▟ CONTINUE DATA b%▘A[Q]@[S]PVAL FORMAT VAL 5[J]LN BRIGHT INPUT RUN CLS ABS ^ow{}~ OUT /7;=>??7[[N]USR ▗#E▚▞▜C[S]S+++n@TAB ▝pH▞{ABS OVER LOAD RUN CLS }PEEK OUT CLEAR ~IN XxHxH8V6USR ▘ LPRINT Dqq▝}▝ [A]▘ PLOT zx[A][H]XABS ▖▙ "▖AFN rp$@x CIRCLE CIRCLE @B DIM #SGN /VWD3=▘@[Q]▝` LIST LIST p)▗0 COPY COPY INPUT ▘CFG▝ TO ▘ INVERSE USR CHR$ STR$ x INVERSE COS /?~| SAVE FORMAT [A][R][T] BORDER AND BEEP ▗▘SIN ▚[I]gyPBIN COPY LPRINT USR !a LET CLS COPY LOAD READ SIN OUT [B] BORDER LPRINT LIST LET RETURN DRAW LIST NEW DRAW SAVE SAVE DRAW ><= u>}USR © OR COPY OR RETURN g▞▘▘CHR$ LLIST 8[O] OUT COPY COPY STEP USR COPY SAVE <<>> NEXT ▞ LIST DRAW USR ▗SCREEN$ [F]SCREEN$ [F]▗U*U*/LEN K▚© LPRINT DRAW ▞IN ▝▝#▝s▜ TO B! LPRINT USR ▚@[S]A[S]U[S]© BORDER [I]▞p&C▝#'c NEXT NOT CAT ▜ CAT READ LET [L]▗▖© BEEP ▝ SAVE K▗[Q]DSCREEN$ Ep@▙@@<= RETURN DRAW RANDOMIZE LN p0"vUSR LPRINT DATA POKE POKE PLOT ~>>~USR DRAW ▙ LET LLIST NOT NOT G▖H!E[S]E@H[B]>8s`USR [I]<| DRAW SAVE LPRINT 8 RETURN DRAW 6 SAVE SAVE RETURN <M▘NOT ▝,"A* OPEN #H<SGN LPRINT x CONTINUE ▛c3Ogw© DRAW LIST LIST K LIST ©© PAPER r`0 RETURN BIN "Q"y[D]©? DATA x<[O] DEF FN BORDER BORDER NEXT LET POKE PLOT scUSR g NEW LOAD CAT <x`USR AT CAT P OO[P][P]▝ OR ?▟▖BIN CHR$ STOP LLIST LIST x▗[P]▜▘▗ CAT 8 LIST ▜@USR USR BIN CHR$ STR$ OR OR &▘▝A AND ▘B!a LIST ▖ LPRINT CIRCLE LIST SAVE [I] = AND RESTORE ? LIST [A] INVERSE DRAW CIRCLE P INK SAVE SCREEN$ ▘_?<>G/C COPY LIST SAVE x[M]<O<= READ v STEP [D]><f0SIN [U]ATN RETURN x' CLOSE #~[O] CAT 1[J] TO f3▚[I][I][E]"[Q]USR READ INVERSE ~©?▟ PRINT [S] CLOSE # 3[T]*USR @ LPRINT LLIST POKE pAC3g CAT [P]>x POKE RETURN COPY <=▞ LLIST LET s1▟▙STR$ [J] OUT COPY IF USCREEN$ SCREEN$ UVAL$ XUSR ▗8SQR SQR q READ <=▙ DRAW SAVE © RETURN PEEK ,[Q]0[I]/▙C[R]USR MERGE [K]▟▛▟▟▚▘USR USR <>▚ INK [K]ASN SIN ASN 248ysg DEF FN [M]8p LPRINT CLS %[P]3 NEW EXP [G]SIN COS ATTR VERIFY LUI FLASH 0 FOR POKE CONTINUE FORMAT [Q]@▞%J[F]^TFN P[R]F0a STOP 6 PAUSE [I]>7{} COPY CAT BORDER NEXT ERASE [L]9x SAVE LIST PAUSE a<|y PAUSE DATA OUT ▖<~|FN Q[T][L]POINT ?-*$(0! OR o_EXP SPISQR v<=© RETURN INVERSE j POKE POKE CONTINUE CONTINUE FORMAT FORMAT [Q][Q]A▚0[L]pSTR$ ▜© SAVE LIST g[P]{ PLOT BORDER >= BEEP CODE [B]op©( BORDER USR NEXT PAUSE BORDER DATA TAN ▝[C]TAN G BORDER RESTORE IH▖#!(-GS&Gy SAVE LET READ `VAL PRINT DATA x DRAW g COPY DRAW DRAW COPY USR U REM CLEAR COPY SCREEN$ < FOR RETURN CLEAR NEXT RUN BORDER INPUT N BRIGHT BRIGHT [I][J]IN IN |xqcGIN COPY RUN COPY OUT [P]SQR ^ RESTORE SCREEN$ V LIST RSCREEN$ COPY IN BRIGHT OUT ? COPY LPRINT '.NRNDp DIM S▜ VERIFY SGN xx LET LPRINT LPRINT USR FORMAT ▖F,=iCHR$ [G]SQR ; CLS INVERSE INVERSE USR INPUT TAB w RUN RUN READ READ P2`[S]E▘!0XAT /8! FOR COPY < NEXT AND :un BRIGHT LN p LPRINT >=BIN C#FN POINT STR$ BIN b LPRINT LET LIST pzEXP 8lNf▘9q LLIST LLIST STR$ AUSR COPY RETURN x LPRINT STR$ 0 SAVE Y▘ LIST pUSR `▜@STR$ ▘▗ .SGN ▟`▚$@$▗ OPEN # INVERSE ▘' BRIGHT SAVE LPRINT [A]e▞w{}>[R]CODE 7;=BIN ▗-NSTR$ ▝'CHR$ ▗#CNOT o MERGE ▘ RETURN ©(` INK @0_ DEF FN xHxHXHx:x[A]x[I]8[A]▝ FORMAT STR$ LIST ▗xLN CIRCLE CONTINUE 7▟|SGN BRIGHT GO TO POKE DRAW RETURN ~PEEK OVER INPUT PLOT RETURN (VAL$ x CIRCLE P CONTINUE INVERSE AND IN CHR$ USR ▘@[Q]STR$ LPRINT [R]▝VAL {▘ SAVE SAVE COPY CHR$ TO ▘ MOVE ▝ )#▜ LPRINT 0 DRAW ▖ LPRINT !#<USR ▝BIN ▖▘▗>=|TG NEW 2&8`5a▞USR @` 0NOT LN 1a▝ BRIGHT OR AND BIN ?<1<9[L]y3?~`BIN DATA >NOT STOP $8#USR ` DRAW DRAW CLEAR DRAW CLEAR SAVE RANDOMIZE IF RANDOMIZE IF [M] LET PAUSE PRINT PAUSE PRINT PAUSE RESTORE REM DATA REM DATA CONTINUE LLIST bHJ MERGE LINE FORMAT CHR$ J MERGE [F]SCREEN$ ▙ READ $8<GASN 0[I]©[C] PAPER T STOP [C]E"Q[Q]T[S]U▘[L]` LIST ▚<=| LIST ▝x@? STOP ▚*E[S]PD`90ccSTR$ ©G STOP FN A LIST A▖*▘QFN TSCREEN$ ▛ LIST [A]▚ AND TO [I]7 DRAW SAVE ©RG[O]▘A4▘*▗*>=▘0V~ RANDOMIZE ©[C] OVER ▝T[S]TFN TP[Q]@[Q]@q▝8 INK ▞< NEW ▘USR @x*[U]TSCREEN$ D▘D`- IF [A]00 LPRINT BIN ~▝ RETURN NOT DRAW ▘ TO d!▞""EGC/[U] LIST CHR$ ▗SGN #[B]SGN LN p FORMAT FORMAT LPRINT SAVE /31C▜:▘>©O▜ NEXT BIN ▖,[A] INK GPSTR$ ▟▝<8` LPRINT USR USR g=© RETURN COPY CLS H CLEAR IF PAUSE DATA RANDOMIZE ▚`▝pTAB ▞0 LPRINT ▛CHR$ ▚x LIST USR >=[F]<= COPY <= REM PAPER IF NEW COPY COPY ~ IF REM LINE ▞""D▖9 CONTINUE ▗ LPRINT =▘ SAVE DRAW @[Q]<8xp LLIST STR$ STR$ USR USR LPRINT `0 STEP ▟[A] LIST ▗▛6w RUN LN IN PEEK e INPUT h04AT [E]3X▝STR$ ~▝ CLS RUN RETURN BIN [I]P LPRINT [D] CAT PI DRAW COPY ?|| DATA VAL a READ AND G7;/v} CLS PLOT GO TO SAVE LET CHR$ ▗/BIN CONTINUE VAL ' COPY <[U]s^@*▜>>= LIST DRAW [D][C] RUN 3COS PIw[O]USR ~▙ PLOT PLOT GO TO GO TO CIRCLE VAL cCHR$ [E]U1o|USR , READ ▝x▗?© DRAW )▝ PRINT aBy@9 LOAD ▚x LPRINT RETURN )J▘ LIST [P]<▞USR LIST DRAW DRAW >T@x/I LIST 8p[Q]STR$ ▘8x PRINT COS [A]VAL POKE X[B]USR DRAW >[P]~SQR ?~©© DEF FN ▛ COPY IN VAL$ ><<xxp LPRINT LPRINT DIM Y▝ LPRINT LIST !A2Ci▚USR 5▞IN CLS RUN RANDOMIZE SAVE POKE LLIST MOVE FORMAT !+4 DRAW ▗ RUN ▝▝%0▜??.xp` LINE ▘BIN CHR$ G▝?Y DIM STR$ [Q]▖(fd ▘ LOAD >▚ACn8 LPRINT SAVE SIN ▝ PRINT '[D]▘EXP ▖||▝<>USR USR H@]USR [U]USR READ )ATTR >2▖▙ LPRINT p>?x SAVE p"[S]▝B▘▝▝xX DEF FN ▜ DRAW ▜▜USR x LINE ▝@STR$ *~INT xX USR LPRINT p08 COPY ?SQR ' TO GO TO LIST PAUSE RESTORE AND PLOT ▚? CONTINUE ▗` PAPER FORMAT ▗A!▙*▗ LOAD CLS {~7 BORDER [F]©©??IN [P] CAT <= READ LET IF RANDOMIZE LIST ▗7STR$ CIW▜>| SAVE SAVE LIST LIST LPRINT M▚EXP )=%=' THEN /VAL$ BEEP ▛ RETURN RETURN ~ OR cs9[O]▙[R][R]▜p DRAW COPY COPY CLS LET STR$ VERIFY @ [M] OVER ERASE =8< TO [B] BEEP THEN GO SUB NEW NEXT NEXT SAVE DRAW a_ LPRINT !ATN ▚USR SAVE ©@ CLOSE #[H] ERASE PAUSE SIN [H] SAVE xLN CIRCLE CONTINUE SAVE SAVE COPY ▜|PEEK OVER INPUT PLOT IF RETURN ([A]▛ [K] INVERSE n LOAD gSTR$ !'=;▘+D PAPER ▘ OR LINE ▗Z▚<= INPUT |<STR$ GBAA<=ACHR$ GUSR EGGFSTR$ B ▝!3-▘EE ?▘AAY!$L▗EEBC^▘CC[▘B(cBBE BFG<= 9NOT E )▝G@ !▝E[L][O](ATTR ▝>=F▝CTAB ABS 0 >=G▘CE( ▝Gx ▝COS ©P@<>F[M]▝GdINKEY$, LINE F▝A7C [Q]▝AHUSR ▘ INVERSE MERGE H ▝A@ LLIST ▘FA a[B]USR C[K]/T▘A STOP [O]d <>AE▘FG0AAF8K[U]▝[T] INK 0@k LOAD ▝ COPY pP FF^▘EC▝F(8ATTR ▗CFC7▞7 NOT @iEXP VAL @ STR$ @i"([@ tB[N]▝F@PI▘ADA LPRINT ▘DD CAT F@ BIN D<=DUSCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ UAFN TSCREEN$ USCREEN$ U**[S]PSCREEN$ U*0`USR ~ RANDOMIZE NEXT INK RESTORE !'SGN RETURN COPY [D]Z MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !<=`|` DEF FN MERGE NOT NOT 3DISKED BY DR.BARS OF FLASH INC.'1996 INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE W[O] GO SUB LN LLIST INK CLS <>[Q]/ RETURN W NEXT 1: COPY ©2P CLOSE # STEP ▗!▞[B]" RETURN CLEAR STEP 3 STEP P[H]SQR @PEEK !P[ GO SUB VAL Z+<>CODE STEP POKE ▘P>=[K]!0 CLOSE #"SQR BRIGHT NEW ~! MOVE ERASE STEP FORMAT :U CLOSE #PI( POKE GO SUB CV CLOSE #!CHR$ P(VAL ▘:bPI>=!▗[J]!POINT CODE 2R CLOSE #NOT PLOT (@ SCORE. 0LN EXP $5%HFIND THE FUSION PODS$7%@DEMOPOINT SCREEN$ >PPFSS ANY KEY)SCREEN$ .;H TT:8M '% OPEN #3GCHR$ B@[D]S CLOSE #LN >=x2 STEP D▝ STEP d[S]EXP COPY ▘[F] STEP SCREEN$ B LINE NEW ( RANDOMIZE ATTR NOT POINT USR C! INVERSE <[Q] OUT THEN AND 1!@ STEP CONTINUE ▘* CLEAR CLEAR T" PAPER ▝: COPY CLEAR 2 BRIGHT ATN % RETURN R▙ RETURN !h BORDER NEXT OR J THEN 9>,8 AND Q INVERSE ! NEXT STEP MERGE ▝y%>NOT /VAL )STR$ MERGE OR MOVE $ THEN c GO SUB STR$ *J)m"s:m23sNOT [Q]▘ INVERSE RESTORE 0=[J]XPLEAS IF WAIT. LOADINGEVELX6% LET C}O.K/&BFI*[A]$4LN $x> GO SUB G> CLEAR © GO SUB y![Q] OPEN #USR GO SUB VAL NEW !AT ▘O~)FN NEW [Q][E]CODE o CLEAR )s PLOT ;USR ";Y<>"> RETURN W7ASN BRIGHT DATA x[Q]^#V# FOR RESTORE V RETURN $( MERGE RESTORE OR nSTR$ LLIST MOVE # GO SUB LLIST STEP OVER ▘ VERIFY 0w# DRAW [Q] FOR ~ RETURN %>= ERASE | NEW PLOT Xg<> STEP BRIGHT PEEK w STEP cPEEK SAVE <>h@Tsu*T COPY wo OPEN # RETURN ][K] LINE LPRINT s7*▘.SMPSTE}JOYICK$5 AND P@2CURSORH3SINCLAI READ FH4EYBOA▘PRD LINE ▘E FLASH ES▗ NEW H6▝5Y GAMEPPRO MOVE TGR&OGN IF THEN $VBBE#4[Q]P PB/HIXRNIHD▗T! GO SUB #USR PME7C COPY 4 BRIGHT PPNN CONTINUE P88.? CIRCLE L[N]▘▗$3%D[H]K▗ b#>E@ FOR !LEN @P▗ STEP AT PEEK STEP [O]▗:r▗PCODE 2T CLOSE # STEP =▜(>2U CLOSE #<>CODE RANDOMIZE STEP g>2 NOT 8 IF -3d6[C]"=(H47 LINE <>![A]▚@8 LINE ▜ INPUT ![F]▚ LIST ! VERIFY ▗ FOR PRINT !FX@@AG CLEAR "> OUT LET 5dPT]@INT T INPUT J] LIST GO SUB <>"% &▞ STEP MOVE @ TO PAUSE PRINT <>@UPHDOWSVAL IHLEFT▞HR 7IGH3HPAU▖ BRIGHT SA3PQU MERGE NM3PCHR$ L5C THEN #CHEAT O^#>F@H@OTB! NEW ▗0Q0#! THEN P][F]@ POKE CODE FLASH RETURN / NEW SAVE STEP OVER BORDER LET OR BQ▙STR$ RANDOMIZE OVER ▗*PEEK #USR POINT / COPY RETURN RETURN GO SUB x2(USR g{ VERIFY THEN <0 IF USR W THEN 8 CONTINUE IN <> MERGE =PEEK CLS ( SAVE zSTR$ OR @>ASCREEN$ PEEK ( REM Y[C] IF (!@▚G NEW O THEN '▝@e THEN 8_STR$ MOVE ▗ OR MERGE FOR OR RESTORE MERGE d MOVE LLIST STR$ , PAUSE ▟ MOVE { AND @_0z AND WSTR$ <>B N LINE VS GO TO PH Ja PRINT L EyU IjP 6 7 8 9 0 5 4 3 2 1 T ▚RW Q G F[G]ATTR @ V C X ZP##!X CLOSE #5CHR$ OR ▚6!Y CLOSE #~< RETURN 8 RETURN SAVE w GO SUB D AND w, DRAW GO SUB s▜:TM:1[Q]oCODE LLIST w!▜1PEEK o▝w#!PW NEW ▚_zT> RESTORE FOR !LN OPEN #o~ LLIST MERGE STOP CHR$ LLIST ▚A<>< STEP NOT INK ▚@@j`@G@Du`P LPRINT FAT @P INK [Q][Q]M[M]I▘`INOT `N6USR N[N](!PUSR [O] CONTINUE ▗[Q]B![T]▛/a}POINT ▛! POKE ▟ COPY @[M] GO SUB [Q] SAVE CLS vNOT [U]▞>=2@*[▜USR INK ~# INK PI>=! RANDOMIZE ▜ RETURN PAPER [J]▞2p▛22▛Gh[A]2▝▛ THEN 2}▛CODE 2H!:O2m<>=[J]▜ LINE POINT J:![M] INK NOT f▜POINT DN#"SCREEN$ ▜ LINE !"[T]▜NOT [R][2 DEF FN [U]3U' STEP Dj2b▜tEPI LINE NEXT : OUT ▜5 INK (+ MERGE V INK <>!2( OVER ▜ MOVE ▜[I]▜CHR$ DRND▙5USR 6 INK zSQR %PP8[M]1▛ THEN ?< VERIFY ▟*2h[I]a▛▘▙(▖( INK LEN j▙C▖▟FN LOAD NEXT "8▖ GO SUB S1▖ READ 4[D]$M▖ LET ▚& INK LET INPUT !K▞QT LET FT0▛USR [M]X VERIFY PLOT ( PLOT PI LET C▙2L▛N▙ BRIGHT !2▙▙kDW ▙"0▙$H▞2w0n>=P:NOT [D]mSQR ▖.S LINE THEN j[D]XSCREEN$ B[D] RETURN CLEAR LINE INKEY$k& TO ▖&[N]j▙" OR ▖NOT NOT [A]▜W[B]!Z[B] GO SUB [Q]2RND COPY m[Q]+rN PRINT > [Q]▝"▜▖CODE ><>2[B]EXP 92T▖ CLOSE #8QE▞!1USR ▞Q INK <>HASN !20▞ FORMAT #▞INT ▖ DIM ▖▞ RETURN Z▞USR [E] RETURN () RETURN DRAW (&[J][H]a▞e[A]@ DIM ▞2 CIRCLE ▞ " RANDOMIZE ▞<>9Sx▞NOT Qc▞fo_ THEN #H FOR DIM !E▙ STEP DEF FN RP OVER VAT ▜!v:@[F]|"NOT SAVE ▞ STEP TAB ▛ STEP [K]▚ STEP L▖ STEP Z▜ STEP @H STEP n BRIGHT [A]QNOT . DATA L2<=%SCHR$ Y" INPUT @* LIST LEN < THEN ©( FORMAT NEW ©▞$2/W NEW GzFN ( LINE >=▛IE[B] CLEAR (!#5!P$$5 LLIST LINE CD)NOT 3▛ MOVE mUSR 6>▛~z[B](8 (w!▝w<>CODE RNDUSR INK K[K]<>)s*0▙~PI >6 OPEN #PA[G]w READ OUT #:#~+w+5#~!C▙W▚ RETURN FORMAT wzPI>= PAUSE [U] GO SUB DGCODE Q▝ CLEAR THEN z(!L▛PIG~[A] LINE CAT ERASE IN [Q]NOT ▚LN PAPER <=x=wOx[B]2S▛k'IJkn[ BRIGHT n!%m LINE BORDER [I]<>!▙5CHR$ &U▛/|*n!]w:!F▛▚wU▞[R]O:▙FN 2~|NOT t LIST :'o:1▛W:2▛_[I]-CHR$ V▛.>Q OPEN # RETURN ▛ RETURN ▟R[A]CHR$ k▛P LPRINT CHR$ ▛>=)< NEW STEP 2r▛ LINE DRAW !y[R]▗VAL$ A▛}▞zTAN ▗{%r▞ CLS <>[S]p NEXT <>> LOAD LIST > RUN THEN g NEW NEW CHR$ S[▗ ERASE BEEP G< INVERSE !▗ COPY > INVERSE THEN ~ THEN PIZ INPUT INVERSE [C]#(_ VERIFY [SWCODE .EXP [A]WNOT 2> POKE "?▟p?[L]RND POKE GO SUB @@D CONTINUE @_2!▝4F#~ VERIFY ▟w# THEN E NEW [D]G FORMAT SIN CLEAR GO TO C[R] VERIFY ECHR$ > TO I8 COPY ") COPY LOAD PEEK 6[P] OPEN #Z RESTORE <= SAVE xUSR LLIST >=STR$ PEEK NEXT [O]pUSR [O][R]~ COPY ? CLS 8 LIST LN CIRCLE 3 AND FLASH [N]K RETURN ▘fp`/w OUT POKE d[T] DEF FN d + <?[P][Q][J][I]? DRAW [M]a"8 DEF FN %BIN ©pM COPY >@[I]USR j LIST C<= COPY ©LN w~▝ DRAW RETURN © BORDER o OVER n RANDOMIZE COPY ;?? RETURN [F]9L STOP LOAD j3PI COPY _ SAVE 0 COPY OVER B▝,PI POKE ;SQR <uCODE o LPRINT {POINT ▟©[J] CLEAR ~PEEK F▛[L▛ S▛MH▛&[B]▖P▗<>[L]n1▞P( OUT ▜p/D▙USR ASN D#*P*sx CLEAR LPRINT !<Wo[Q]FN TO INPUT 2▙ COPY 2[D] DRAW +nPRNDSTR$ LLIST DRAW LOAD @ RETURN [G]▙W*▝BCOS M/3TR[E]INKEY$"](M^MF_▟gSCREEN$ ug`gt BRIGHT IA[J]_▛MI ERASE K,%uJ PAUSE %Q'.C*({ COPY ▚▘ DRAW Q[C]n CLOSE #[S] CLOSE #PEEK CLOSE # CLOSE # CLOSE # CLOSE #{ DATA ]COS COS [E][T]USR USR USR cn$©T[R][R][C]P FORMAT bX COPY [D]POINT CIRCLE NOT CODE dnDjwj CLOSE #PSTR$ STR$ STR$ bmbSTR$ POINT J"EXP },8tgSCREEN$ PEEK /[C]Y38CODE SCREEN$ [I] BORDER MBBCABS 9ABS CN▘"+R(*L, STEP 9U TO BAT MOVE TAT Cv INVERSE [F]$CHR$ AT [L]B[D]&rE(AT rN,▛={ DEF FN CHR$ D(u_;;[M]3;ABS ACS N0▛[[T]H#EXP CHR$ 3AT #[T][J]5?8JRNDPOINT .@" BEEP L DEF FN <_ LET CLEAR COPY COPY ABS 0 RESTORE [F]l©P▖/TAB j<> NEW ( THEN _(>#2TAN BRIGHT .8>2TAB BRIGHT STEP cSGN STEP [E] STEP 9 THEN qLEN ^2P+USR GO SUB KV CLOSE #xLEN :sJ!<+>=(2 VERIFY { LPRINT RETURN (-CHR$ & STEP [K] LINE THEN OUSR :[G]=CODE 2@( LINE :g LINE NOT &▘B LINE STEP }][T] STEP POINT INT ( STEP VERIFY [D] STEP .ACS STEP LPRINT LN STEP [I])(INKEY$ STEP LET [M] STEP NEXP AARSTR$ STEP COPY ,mPI STEP J@AxCHR$ STEP *▖[C]NOT 0[B]: PLOT BRIGHT STOP RUN BRIGHT 5 ,6(! SAVE ~ RETURN COPY ( AND Q0!CT STEP THEN PEEK S[C]4u&>2[P] BEEP > $TNOT :COS CLOSE #<>H INVERSE !V INK INVERSE ~/[O][C] INVERSE f INVERSE nCODE w INVERSE w _ INK INVERSE TQ PLOT )~ABS @5 LIST )▚ RETURN FN 0 RETURN !8w INVERSE INVERSE 61W BEEP :~ INK T#EXP CIRCLE x2© INK y2 RETURN INK <>:LN USR R2TAB OR 2CODE OR " LOAD BRIGHT G!u CIRCLE D*^ RANDOMIZE DiAT (!4<>>=3:BIN NOT < NEW 2([A][R]SGN BEEP %[E]~USR INKEY$ INVERSE RESTORE CLEAR RESTORE lH[D] MERGE DIM CLEAR LLIST INVERSE LLIST STR$ #)POINT ▞TAB (<=f@<= STEP >[D]5FN ▘/ CONTINUE y RETURN EXP ahAT CLOSE #V[G]>=! [U]v6}<>(,>=USR NOT ASN NOT ASN s VERIFY [C]mH[U]("gL![K] PAUSE LJ NEW jE7ACS fR3<= DATA [Q] REM ^SCREEN$ CLOSE #PIUSR c CLEAR J!:H CLEAR ' NEW LINE SAVE [D]D CLEAR f CLEAR n) CLEAR GO TO [B])CHR$ h[E]:PI BEEP [M][M] LET ( 5*d CLOSE # CLS COPY FLASH PI©PI GO SUB R} LLIST CIRCLE RETURN CIRCLE G1▘PI LIST 0+DPI" OVER BRIGHT RND© OR E!/z LPRINT [T] BRIGHT BRIGHT !2 OPEN # VERIFY LIST _)[C](2 LLIST BRIGHT FOR LPRINT BRIGHT U STOP BRIGHT LPRINT IVAL$ [H] BEEP INT 3$<>USR [U] RUN NOT [D]SGN [E]SIN [R][H]CHR$ CHR$ >= STEP |[U]"[S] CLOSE #2[U]= LINE PFN [I]USR [I]:@ LINE PRINT ▗!1CHR$ LET M(:[Q]. TO [G] FLASH [F]W[G] STEP PLOT [G] LINE [T]FN =! PAPER [E] RESTORE (Y=(T8 LLIST w GO SUB pINKEY$ ERASE INPUT E$A DIM | INVERSE 6)Al~t[C]< RETURN (h>dSCREEN$ H[R] CLOSE # IF ~<( STEP VERIFY [G]> TO @w LINE RND;qO[l[I] RESTORE MERGE H oPI OUT E1(e /!u INVERSE ) INVERSE ^$ VERIFY INVERSE t INVERSE u FOR !Z CLOSE #[Q]f.:dPEEK >=w`1 FOR Z~ THEN ATTR LN w THEN OR ErP@EUSR <>*[N]>= THEN W THEN G(© RETURN [R]0 RESTORE D STEP [H] LLIST INT ++ FOR [Q] CLOSE #" NOT W[G]#@[D]▚#[J]NOT BRIGHT [E]`1: FLASH BRIGHT F[G]PIL GO SUB B(<>[A] INPUT V:l[P] MERGE LEN [G]▘ODQ(w PLOT [G]wCODE CONTINUE K6NOT >=[E]A OVER GO SUB D INVERSE ▚&[L]88[E]+oF RESTORE TAN p▛(|[J]3!N[G]▖LEN $VAL$ =(COS VERIFY MOVE 8 VERIFY [T]9<>>I STEP [E]NOT X[H]*@>:[U] CLOSE #W STEP :[H]* NEW ([N](CODE ACS AND DRAW PI<> x" NEW ([C][K]. IF USR RESTORE ! CIRCLE COPY ! PRINT z RETURN (!8 VERIFY ( MERGE _z[D]_E' MOVE LET <>U[F]ASN W7 AND ▗ OR [H] BEEP INVERSE F@RND NEW SAVE O GO SUB CAT OR 2VAL$ CLOSE #FN ! OPEN #"CODE CLOSE #CODE 2PIFPzv CIRCLE LPRINT L[A]A,$ INVERSE PLOT R(▖<2ATTR CLOSE #SCREEN$ NEW DEF FN =CHR$ y[I]!P6:@PI LINE Y@[I]P([E]*▙NOT !T5 INVERSE RESTORE MOVE ! ERASE S▘[S]*f GO SUB Ku~ RETURN FN )BPI RETURN 000C%#~▝V-<=w DATA N>=% INVERSE 5USR LEN CHR$ ' ChQ<>T▖ASN G INVERSE n ERASE ▘ATN LLIST ASN ERASE AuLN KM BEEP e▚K@!P#▘3r INVERSE sSCREEN$ e LLIST [U](B NEXT ▜SQR MERGE LLIST ATTR THEN BEEP pSCREEN$ ▘BIN RETURN LOAD 02[C]!AT FN [E] MOVE ATTR 8 PAPER l.[B]8▟x THEN STEP aaRND[Q]b[B][J] NEW LINE $ LIST [I]=J AND G:[F] CLOSE #PIk[U]LN PAPER GO SUB [I]xNOT S▘ VERIFY RETURN RANDOMIZE `[F]1/T-2-(->PINOT [J]6RND%8%8u3 CLEAR CODE LPRINT NEXT MOVE LLIST 0 OPEN #H▘STR$ `L+PI CLOSE #<> AND [F]RNDRNDw CLOSE #2{ATTR 7▙8{BIN U[O]q CLOSE # STEP ▞[O]NOT LN [N]SGN BEEP INK !CODE [J] INK MERGE INVERSE LLIST ! RESTORE MOVE [J] INK * SAVE ▛,KSIN # INVERSE 6CHR$ CODE 2[K]<>F/D<=[J]`pFPI FORMAT [J] q ERASE k GO TO [J] LPRINT q8ASN '4FN LINE <>!)[M]AT INVERSE t" INVERSE u!! SAVE [J]POINT M LET P <> STEP LFN <>:PPICHR$ *[S][L]: CIRCLE PIUSR <]NOT AND [I]NOT [K]! PAPER FN [ABS BRIGHT "*BY[K]▞[E] OPEN #[A]7[K]"s CLOSE #!%c3*"5 !#[N] STEP FN DEF FN y BRIGHT STOP c:+ OPEN # DRAW r[D]= LPRINT RUN ([F]J&!CODE [K][Q]> COPY F!d DEF FN ACS BEEP >2ATN BEEP ![R]i'!T ERASE STEP jAT !TAB CLEAR u CLEAR t CLEAR pNOT JFN ABS LPRINT s▞}▝]![M] NEXT *▝ CLOSE #INKEY$zP LINE } AND 0HG>CODE [A] INVERSE ACS SCREEN$ ~![Q][R] LPRINT oCHR$ >TsG[J] STOP ([K]"(*4[L]~ RETURN © !.#5FN " OUT [O]U.DP[E] PAUSE CIRCLE U) CLEAR n LOAD [N](%q[G]VAL$ NNSJ*[Q]6SCREEN$ 66,CHR$ H▘:k CLOSE #▚x:ibhi DRAW BIN POINT U+STR$ SIN TAN C<> READ [S]J LIST W!F READ COPY LIST SCREEN$ E TO w LPRINT LPRINT M▗[H]Z AND DRAW CLOSE #% THEN ; CLOSE #< OPEN #6 RESTORE H PAPER CLOSE #*[M] FORMAT RUz FORMAT r> NEXT [H] OPEN # RETURN )@p:] THEN PI2NOT 2e* POKE /E"▝ STEP ▝1 FORMAT G STOP 5%[L]AA$ COPY ©PICHR$ f▜NOT i MOVE OR RND<>CODE >L▝LEN 2 RETURN RETURN >CODE [E] LINE :2, <>!s RESTORE FOR DIM LLIST R PLOT [U][D][H]*[F][L]▛B▗FN />6#>©INT TO ~` STEP ▟▝ GO SUB [INKEY$: FLASH -FN G6 FOR INPUT 6 FOR VAL$ 6 NEW DEF FN 6[B] INVERSE 6ATN *" GO SUB kINT STEP y BEEP CIRCLE ▝ LINE NOT pTu?hQRNDlSlhe'9p)POINT qATTR R DIM AT zVAL$ DIM CODE ©e<>?A([A]8 FLASH RANDOMIZE _FI NEW x GO SUB cu*vcSQR EXP x<ACS EXP <>yAT 77 VERIFY Q SAVE ATN n&& RETURN 3# LPRINT COPY ! RETURN CLEAR qVAL Vq>NOT 2 CLEAR CLEAR !n[G]q VERIFY @} GO SUB ^ STEP G▗!1▗@vNOT ▗B)d COPY 2(▗P[U]9 STEP o[G] STEP ▜!INT [F] INVERSE ! RUN [E]AT 0 PAUSE ▖COS LN INT [P] GO SUB CODE STEP ▗ STEP [G] STEP STEP DATA ▛ STEP ▖ STEP )▚:[C]PIBIN REM ▗NOT l▗:▙G *▘[C]4T▘r FOR l[C]LN (fo RESTORE INVERSE LLIST FOR INVERSE DIM *qk[C] DIM [I]▗~RND GO SUB C[C]Zr3 FORMAT ▗FN @NOT { GO SUB K LINE SGN (<>E<>~2]#"QIE!▟.[D] FLASH [T] BORDER [G]egA[G]LN CODE STR$ DINT T STEP E INVERSE ▚n▝O INVERSE $i"l TO CAT CIRCLE RETURN ( REM N]<>O[D]EXP LINE l THEN y(EXP [D] LPRINT " FORMAT GO SUB D@<>PI IF [S] DRAW i COPY <>[<[L]B▙▗[C]2▚▖*[K][E] LOAD DIM +CODE BRIGHT *[C][C] GO SUB [| NEW g"VAL$ ▞*[E]*[G]C(} PAUSE ERASE CLS DFN /_ GO SUB SZJ[A] LPRINT ([C] RANDOMIZE S[N]@ mG!▚".[S]u[C]5 SCREEN$ !*0SCREEN$ RO[M]O"w|PI } RETURN dSIN ▛ CLS v NEXT STEP [A] GO SUB s7▚NOT MOVE E GO TO 0 STEP [G]▚J FOR RETURN CLS LLEN kOE![K]O! LPRINT COPY >> RANDOMIZE MERGE =CHR$ ]▚.[J]R[K]Z IF )]{%-PxJH▜![B][C] CIRCLE PAUSE !@Z STEP LINE ▚!`l FLASH Xx[I] LPRINT 1Z<>1USR / AND MOVE Gx CAT PEEK [U] LINE RETURN ▚![E]_ FLASH ▚VAL$ I▜y2L▜NOT 60▚ INK SAVE DG|[A]G OR D INVERSE NJA!GPI7FN [S]FN gy<=FN oy NEW RESTORE INVERSE n INVERSE f▞=▜ RESTORE INK NOT INPUT DRAW HrK▚X LLIST MOVE >=STR$ c RANDOMIZE FOR MOVE ~[T]SIN [E]Pp--$FN } AND o8rgCHR$ ]▚ INPUT SGN [D]o[G]F# OR MERGE P@% READ RESTORE !NOT FOR CODE FORMAT 1 COPY [L]. SAVE = LLIST STEP PAUSE ▜ OR RESTORE H0%PI THEN # CLS >=_[E]73STR$ R( THEN FOR LLIST [M]<>+(>0w#= NEXT <> CLEAR , OR INVERSE COPY *[K][C] INK *[I][C] CLEAR PABS ▖ STEP DP LINE ▞ STEP BEEP @© CLEAR r CLEAR s THEN z y THEN e. THEN THEN MERGE STEP INK MOVE INK >x NEW RETURN RETURN 8` RETURN BEEP 0/ CLEAR w INK USR >v LLIST RETURN H8C RETURN CODE 0?PIP GO SUB R8| THEN >= RETURN PAPER ▖> THEN 'PIPCHR$ [H]o&<=[D]~[E][S]+@STR$ OPEN # CLEAR CHR$ 6CODE NOT PI▖ PAPER E▞ ERASE CLOSE #▖r%[J] INVERSE INT T BORDER IF BEEP RESTORE ▞ p]3 FORMAT <> GO SUB DINT .08lK©VAL$ FOR [C]RNDRLN LN ▗ PAPER R( LLIST [H] FOR ; POKE u]-@ GO TO yu]K[P]SIN BEEP OR ▗ PAPER _▛INT /( INPUT ;▛VAL$ FOR ':▘ABS M▚VAL$ FOR K[J]AT LPRINT INT IN ERASE ▗s1GUSR [C]!SCREEN$ [C]#~# LPRINT /PI PAUSE DRAW ▛ LLIST w#qg/_y/W| LLIST s#r THEN / GO TO INK NOT INVERSE <= GO SUB [[E][C] MERGE STEP [E]▟ GO SUB S[O][C] MOVE STEP POINT [Q]ASN ;#[G][S]RNDSVAL [U][C]SIN FLASH INKEY$FN [C][N]USR RESTORE /1:[T] READ )<>T] FOR SCREEN$ ) INK MOVE bk<x STEP OR "ACS T[C] INK STR$ INK LLIST MOVE RESTORE INK MERGE PY STEP [Q] MOVE "SGN [C] LLIST NEW a"PEEK RUN T9CODE [I]T2KUSTAN <[D]OSIN DATA SQR [C]=[C]" INPUT INT VAL$ INT LN TUAT Q[C]PPOINT [C][Q] CLS OPEN #▙SCREEN$ **AT n}*ATTR n#[O]#D INVERSE 5%PUa4<> RESTORE THEN {({ GO SUB D_z! MOVE ▟ THEN # LIST c THEN RANDOMIZE LLIST PI>=*{ INPUT COPY WeK#z$$ INPUT ATTR 9&▙&N'[C]$ACS H INK k CLS >=U STOP n RANDOMIZE [D][P] $"PI#(%FN &'([U])+[J],.▜/ DRAW 0n2 OUT 3N5INT 6%8▟9 NEXT :W<LN =?t@ DEF FN A&C{D STEP EGjHTAN I CLS J@L▝MUSR N CLS O4QiR[L]S LINE T PLOT UWCXdY▘Z[N][TAN />=] BEEP ^ DATA _ GO TO ` LET a PAUSE b LOAD c DIM d OVER e FORMAT fABS gPIhinjKk$l RANDOMIZE l LINE m[H]n_o#p READ p[O]qUrsACS s`tuINKEY$uBv INK vlw CLS wxyyz}z LOAD z]{ AND {*|▞| DATA |:}} VERIFY }~`~[N]~ VERIFY ~©8©b©▜©PI©CHR$ © INK © REM © PLOT © RETURN © COPY H`h INK |SIN SCREEN$ THEN |BIN OR FOR MD00[B]>(30 INK GO SUB J INK )j INK = GO SUB INK THEN % THEN PAPER #<>|2vSCREEN$ 2uzATN PAUSE [H][D]P_[P][C]W|+[F]oT[P][E]g STEP H CIRCLE :G GO SUB <:-ATN LIST [A] &<>{SIN aT]7$<>M|ATN THEN POKE CIRCLE Z RESTORE GO SUB R?8 READ 3(3 INPUT igATN VAL BEEP zCOS (zTAN PAUSE kAT IF [C]CR'<>< GO SUB Z>=? LINE d+Y'ASN 'SGN J[K]s GO TO )|/g}/o# DRAW VAL$ */!▖ COPY [E] REM xh~#N THEN ▝ LET REM STEP ?[A][A] [A])<w POKE <> PLOT PEEK PAPER _▛[A]~R▝bNOT g[A]>=CHR$ c OUT O! RANDOMIZE 6 ERASE p TO : DEF FN pSIN LPRINT 0'O▘OG@SCREEN$ 42 GO TO [Q] SAVE LPRINT USR jPEEK AT 9ATTR $A'▗'[E]# 4Gs CONTINUE = COPY COPY CLS <AC BEEP [M]=Q4O+AFN W@(h>=<>9=?A LIST ASN CAT C PLOT Y=?SCREEN$ zP=*P[A] LOAD RETURN y DEF FN x DRAW ?Cs STEP ;z OPEN #3 `PEEK IN [Q]=?{ NEXT A= OR ?v@@ATN Ws NEW DRAW RETURN ©C; SAVE $< CLS n2 INVERSE IN 2▝ PLOT DIM % LET -[E]B+74(4[K][F]HSd+[C]BIN qEXP ▗SIN ▗ STOP ▗▚V[C] REM [S][C]6▜ BORDER dACS AND ▖K▞ INK ▖^▞ GO TO ▖q▞ COPY ▖▗▞▞[H]▞%▞SCREEN$ ▞6▞SQR ▞ OPEN #▞X NEW ▞k RANDOMIZE ▞~[B][U]2ATN C>= LPRINT e▛ NEXT x▛▛▛[O]▛,▛LEN ▛?▛BIN ▛P▛ MERGE ▛ THEN ▖P▞ OVER [Q]▖c▞ LET ▖v▞▞▞[M]▞*▞CODE ▞;▞USR ▞ CIRCLE ▞] FOR ▞p RETURN ▞[G]$POINT 7SGN H STEP RESTORE j▛ SAVE }▛▛[A]▛▛[T]▛1▛ACS ▛D▛<>▛U▛ PAPER ▛ CAT ▖T▞ STOP ▖g▞ PRINT ▖z▞▞▟▞▞[Q]▞.▞COS ▞?▞BIN ▞ BRIGHT ▞a LOAD ▞t▜[K](TAB ;USR L MOVE DIM n▛ DRAW ▝▛▛[E]▛"▛PI▛5▛INT ▛H▛ STEP ▛Y▛ OVER SQR [A]USR [A][B]@[B][B]USR [B]o[G] LOAD [H]o[J] LOAD [K]o[M] LOAD [N],l RETURN " PLOT ?ce RESTORE RUN OUT LOAD ~IN CLS CLEAR OPEN # SAVE IN LOAD ATN =RND[U]>@ PLOT GO TO RY CLS NEW J LET VURND[B] CLS [Q]@ PLOT SAVE [F]U▛ IF STR$ ) PLOT SAVE IF PLOT CLEAR CLS SAVE RJ PLOT NEXT LET Y[F] LOAD ,KMU,WU&T SAVE LET VSCREEN$ LET T&^ LET PLOT RETURN CIRCLE J)c CIRCLE # CIRCLE LPRINT Ru LPRINT BORDER LIST BORDER RANDOMIZE n[J].POINT SCREEN$ PI35#▖ DEF FN TO [R] CAT sVAL$ TAB |<>VAL j!FX6E, CLS PRINT !{[H] REM H@H OR MERGE ! MOVE z NEW z VERIFY W{ AND _ NEW LPRINT z[Q] AND STR$ OUT ! REM Y STEP CLS *[G]!*ZFjb2GC[H] LIST E FOR RETURN $( MERGE RESTORE STEP LET [G] LLIST MOVE , LIST FOR ~ RETURN %>= DATA STEP [H]w$ IF <> RESTORE OR q05STR$ LLIST NEXT <[H] RETURN (&a BORDER RETURN .(e NEW RETURN A0 BORDER AND VERIFY AO9 THEN [B]O FOR FOR DATA n@PLOA(DING $`PCOME$XPPRESS $@xPANY KE$[I]PT:O START$%ATTR |c PAUSE "? COPY STR$ RETURN F@2 LIST FORMAT [I]▚[Q]VAL +?▘[K]<@<© LLIST E3|x© SAVE ▖8 COPY LIST INK @ RETURN COPY DRAW p DRAW IN SAVE P[H] COPY SAVE DRAW DRAW >9> OUT * DRAW ~~8[J] LPRINT INPUT ||x;'3NOT AND &#<=© DRAW RANDOMIZE COPY LG@Qb?S RANDOMIZE RETURN #▖)▜x▟{ SAVE ;[A]9D~ FLASH B7 LPRINT jE@USR _F=J:5[Q].3©©pi LPRINT 8@HUSR +r▖xH[L]▘ MOVE Q SAVE t[H]96 LIST RETURN >>= CLEAR STR$ | COPY CONTINUE @) COPY CONTINUE G BEEP READ ▝ SAVE SCREEN$ AND RETURN RETURN RZ DRAW NOT DRAW w!e POINT |(C RUN COPY ~>~PI▜g RETURN ▝((|_USR } LPRINT Uq©▞ THEN R> BORDER ▖ DRAW USR LIST ▗HB SAVE >BIN 1 LIST C@L0CHR$ [Q]NOT NOT @▝L▙x<> LLIST ! STOP p COPY @ DRAW SAVE LIST LIST l< RANDOMIZE SAVE x0@G COPY IN USR G NEXT LIST <=< CAT OUT [S]OqUSR g[M]▟<= COPY AND LPRINT ? DEF FN <'▝ LPRINT p NEW ` [P] CAT PAUSE LIST :[Q]▚D0 CAT BORDER LLIST 'N[O]p LOAD READ LPRINT ▗&[ * DIM SAVE B:©` RANDOMIZE GO SUB DRAW $ COPY RETURN [P]▝ RANDOMIZE LPRINT P BORDER RETURN COPY LIST <=STR$ LET LPRINT <= RETURN STR$ $ CAT READ <> LET SAVE CAT COPY LLIST (USR 7 DIM LET LIST CAT ?/ LPRINT SCREEN$ x;USR DEF FN STOP x GO SUB CLEAR LLIST TO BIN DRAW | CLEAR @ SAVE COPY OUT TAN SAVE } LIST COPY I[Q][O] DRAW LPRINT >rR@# TO ? RETURN #$ DATA [L] RETURN READ [S]> STOP v▗ RANDOMIZE DRAW TO [P] LET LIST DRAW RANDOMIZE &~?11 SAVE [I] READ COPY x8|▗ COPY NOT LIST p{B▜▜USR 1 LPRINT ▗ DATA ▜▝`4▘- CLOSE #STR$ CHR$ ▝ > DEF FN USR L[ RANDOMIZE STR$ LIST VAL$ 2@:8#[P]DBIN x[Q]LN VERIFY FLASH e MOVE B< CLEAR dFDGDo DEF FN ▗gWiATN >=&1 RETURN c< THEN mTAN OPEN #<f AND ©dVAL PAUSE LINE VAL$ ~Q▝▛@ MOVE ▝~XuS[E]O. NEXT 8Y[S]0oPSTR$ E[K]F▘itK[E]▞▝[A]0lDX CONTINUE x▝[B]<>STR$ USR uSIN ▜Ih[C]▖ GO TO 7"uEXP rMVAL$ r CAT NEXT / COPY [K]&VAL$ COPY lt COPY LIST LPRINT COPY CODE LN PEEK INVERSE eSTR$ 30 DRAW CHR$ PrG COPY STOP rC? TO FN dVAL <9<* DRAW GO TO FLASH ?( COPY OUT CONTINUE @ COPY DRAW FLASH ?;BIN </ RETURN @9rUSCREEN$ nPpUXSCREEN$ r@[M]© POKE G1 TO COPY pZSCREEN$ COPY ZC COPY M▞ COPY RETURN [I]USR COPY [B] INK R CONTINUE MERGE ^ RANDOMIZE COPY [P]%▜zATTR [L]▞pPOINT ?+ CAT COPY FN T NEXT LPRINT TO STEP ▚ SAVE 5)? DRAW {a CLS INK [A]<> FORMAT NEW ><>+y[G] RANDOMIZE c COPY AND RANDOMIZE i[O]2 CLOSE #[D]| COPY VAL OFN CHR$ SAVE PAUSE COPY T▝<+8 CLOSE #<* COPY ``O% PAUSE S COPY jFN q RANDOMIZE jZSIN . OUT ` *XtMZV RANDOMIZE `▙V COPY LINE |*<02 ? COPY mACS [F] COPY t COPY DRAW <T7▖3H LOAD H[C][R]`CODE [G] CIRCLE v PRINT VAL DATA [A]7 RUN 8 RETURN <<8 OR INK SAVE STR$ 0 MOVE [T]@COS G COPY v>STR$ 3`3& RANDOMIZE g COPY NEW RANDOMIZE d TO TO >= COPY 8VAL C>=I DEF FN GO TO Q'm?>|@ DRAW ACS CONTINUE DATA 7s CHR$ l` READ COPY bZ ERASE . OUT COPY ZtKZF$ COPY <=6UAwVg COPY COPY COPY $T NEW ▘SCREEN$ h[C]VAL 6 VERIFY BEEP & LET VAL FOR @LN dkl8 COPY , LIST @<~ LINE ATN TAB NEW ▝VAL$ BORDER BORDER ug© GO SUB S~< LPRINT *40 COPY >=+x POKE F COPY p COPY COPY b` CLOSE # COPY 4VAL , NEXT COPY CAT =USR [C] DEF FN m>▘<>> DRAW ASN @|ACS CIRCLE sISGN 4s RETURN w[G] COPY <= COPY l FLASH D.[K]0h COPY Yt" FLASH 6 COPY h READ COPY INPUT Y(▜ OPEN # LPRINT COPY xPOINT O BEEP XK%INKEY$8ok IF duT7 VERIFY PLOT VAL$ r" ERASE 7B[Q]C<= DEF FN ~ OR [BL<WX REM <2 CLEAR PAPER [T]~IN CHR$ XVAL COPY USR 6~INKEY$ COPY ' COPY COPY e0~l& COPY LN ?<$Y@][K][B]<>FN INT [K]?▚B LIST TAN d PAPER [A] OUT OUT Z CONTINUE P[& COPY l>=9<B86TAB [D] THEN USR lr>= COPY 6[C]<>ASN l CLEAR [H]4AQ<=9,SGN >= DIM IN VAL 8 COPY INKEY$ PAUSE >=, CAT TAV+ CLOSE #h RUN p;4T@@ COPY >=& LET R~[Q]▛ ERASE ~J[I] SAVE d COPY P*X& COPY "▞!.U* FORMAT STR$ `TSCREEN$ tD COPY RETURN z TO SCREEN$ POINT b~H` OUT ~F[F]U^© SAVE o LINE K▜_| COPY > IF [B]Sx PLOT FOR 2MTAN [K] LET LET [yY- LIST SAVE Nt.(kUSR w`"1▝[H] DIM ▝9 CAT OUT 6LN >=hNOT NEW DATA |[T]<<=lmTAN READ < OR >'gNOT [G]P/ COPY USR ▝[E]ACS @UI READ PISCREEN$ m)▝P COPY ;:© COPY DRAW NOT <>= PAPER COS OUT [<NOT ?[C] COPY RETURN LPRINT ` OUT PRINT b▜A|[O] CONTINUE >I COPY READ [S]Ecad4O OPEN #INT ^E INPUT MOVE 4 INVERSE ▟ED[H]|4BB) FLASH $(BESCREEN$ FCC ERASE TAB FCOS COS BEEP [M]`%TTAN BAD MERGE (YSfEXP CB yS> RANDOMIZE ABS * CAT SAVE RETURN DRAW COPY : COPY ©2P CLOSE # STEP ▗ LIST #!▞[B] SAVE STEP 3( STEP [H]SQR @PEEK !PX[VAL )PZ<>CODE STEP POKE ▘P VERIFY /#@!0 CLOSE #"SQR BRIGHT NEW LIST '<> RETURN DRAW ©[M] INVERSE (5 > FORMAT # STEP LFN k INVERSE ▚T RETURN 08 RETURN FN 0▗[S]~[G] FORMAT INVERSE LLIST LN u[B]@▚ RETURN LINE STEP VERIFY [C]!u CIRCLE v CIRCLE LPRINT CODE w^<2ATTR CLOSE #2RNDpw[G] CLOSE #*@k CLOSE #>2z-LN [N]!SGN BEEP %@ CLS !&5USR 6:PI LINE INVERSE [M] STEP )FN !5PATN ! ERASE "G STEP 8SCREEN$ FN ▖!▖ CLOSE #INKEY$ GO SUB K CLOSE # GO SUB D▞8>PI[D]▝[U]00[B]#INKEY$▝ NEW SAVE 3[B]%FN T{ABS NOT [D]kiBn~PIUSR l IF 2TAB BRIGHT NOT (cSGN : RETURN USR STEP ▞[O] STEP [O]J[R]:[S]PICHR$ ~wNOT $[N]:SCREEN$ USR *s CLOSE #|PI(( DIM INPUT ERASE ~#fo" DIM J%<>:n&U o ?:q>=CODE 2P*▝K CLOSE # OR RESTORE ~ NEW ©w# RANDOMIZE LLIST STR$ CHR$ D[N]<>!m CLOSE #USR ow@,>G2BIN NOT *OG:▜ CLOSE #[A] PAPER <[M]2 RETURN ▖.0 LIST [H]SCREEN$ j[<-[R]_[D] THEN COPY b PLOT [U]b[U]bw CLOSE #5(*x CLOSE #"u CLOSE #K*p# RETURN COPY ( RETURN RETURN >z<>PABS T FOR |5▝]*UINKEY$)"POINT d/ FOR GO SUB S BEEP [F]ejil2k CLOSE ##PIr CLOSE # RETURN >=!5*4CHR$ 6[O]Ubm~_▞![M]SC| DRAW LLIST N#FJ MERGE [S]NATTR CSATTR STEP VAL [O]PICHR$ ▞RND[M]{Pj[M]~o|[M]!* INVERSE INK [M] [C]Qs▘POINT v"Rrr▙W!e5USR *kINT GO SUB U)hNOT Vwl OR MERGE HjSGN MERGE STR$ INPUT <> INVERSE SCREEN$ *z! OR [Q]'^ FOR > INVERSE ~(PI =CHR$ BEEP [O]<>x▝ INVERSE PEEK PAPER OVER [O]USR ▚LN %|[F] ERASE [Q] INVERSE [G]SGN 0 MERGE OR PI0(G FLASH [L]▜STR$ NOT @!: INPUT BRIGHT [I] LINE ▟[R]=II LINE INKEY$=[P]SQR H OVER [Q]<>:@ LINE NEW >=PEEK LOAD BRIGHT 2!▙ CIRCLE g}[F] RUN CLEAR ![H] BEEP [P][J][D] OR RESTORE MOVE m(U ERASE LN LLIST 6( CLEAR ▜▚#ASN L STEP [S] LLIST STEP [INT >#SIN STEP <> DRAW e READ *! CIRCLE INPUT OR DRAW [B] RETURN DRAW DRAW RETURN INPUT RND FLASH 3}[M]$}USR CIRCLE 9 FORMAT CONTINUE }Y=U!j[Q](![U][Q]▚SQR /▚[P]USR ▚S INVERSE s INVERSE rJ LPRINT ▛ INVERSE u INVERSE tRND▙R) INVERSE ▝:CHR$ <> INVERSE fn STEP |[U]FN BcCHR$ TO [S]!nINKEY$ ++M(U9 RETURN LOAD ERASE @FP▚ RETURN $ PAPER POINT 6 RETURN FN SH[R]MS<> RESTORE READ CLOSE #| CAT IN DATA NOT GO SUB PLOT K COPY LIST RETURN INPUT DATA DRAW RETURN [F] BORDER RUN ATN e COPY IF LIST BRIGHT DRAW :VAL ▗SIN OPEN #X(!<2!d[R]:▚[I][P] RETURN IF LPRINT <>IO LIST 8 AND PRINT 0$USR ; VERIFY PLOT 8J▚) POKE RANDOMIZE *U RANDOMIZE POKE LOAD GO TO IF GO TO POKE LOAD LIST & POKE GO TO RANDOMIZE STR$ POKE (l[E]VAL$ (CODE 2[F]2SCREEN$ INK 2 INPUT BRIGHT >l SAVE SGN h REM !n[S]= REM [E][S]{ MOVE q~LEN [R]q DATA [Q] STEP /Q LLIST NOT MERGE ATTR W~ THEN SIN 'b▝5CHR$ N, ERASE R_if bt<> RETURN RESTORE 8 STOP e READ MERGE % READ INKEY$ AND EXP INPUT L ERASE OR DRAW EU CIRCLE USR DIM ) DRAW % INPUT CLS TAN RND%@p▖( STEP LOAD [S] DATA NOT w[E]▘NCHR$ RESTORE [S] AND [N] FOR J▜<> VERIFY 8 LLIST OPEN # CLEAR 7>=;TAB [U]PI>= FOR ! CONTINUE BRIGHT PEEK CIRCLE FOR CLEAR !V[E]B INK CLEAR 3USR CLEAR D[Q] CLEAR t CLEAR u6!_ INK a!t[T]WUSR h5( VERIFY 0CODE < CLOSE #'▝B MOVE RESTORE AND ~#[Q][J] OUT INK $ STEP :[H] RANDOMIZE AA[R] VERIFY [C] RETURN LINE 7<>L PAUSE PLOT READ 4 DRAW u STEP "[P]0@ LLIST (!RND LPRINT 90w<>6!INKEY$AT [E]>=:0=t INVERSE 1 LOAD j:R3 LOAD BRIGHT GLEN [A]m< PLOT <> CLEAR RESTORE LLIST 2D FORMAT ~[L]SCREEN$ :< RETURN %.PIOZ>=L[U] NEW [Q]= GO SUB s7[U] RANDOMIZE STR$ LLIST MOVE MOVE TU NEXT ASN eJu RESTORE <> OPEN #[B][U]2 FLASH * MOVE DIM u) LET SCREEN$ ▟` INVERSE w!INT [S][E]NOT [D][O] OPEN #[P] OPEN #U<> INVERSE <> FORMAT u STOP [Q] OPEN # SAVE [U] OPEN #/<> STOP <>FN OPEN # SAVE VAL OPEN #d<> BORDER FORMAT H0 VERIFY LN NEW SAVE O▝[J] CLOSE #POINT O}! BRIGHT GO SUB B RESTORE FN AND O:[H] CLOSE #▝ RETURN B[S](STR$ VERIFY (SGN MOVE <> RESTORE v CLS / NEW DRAW 3W INK LET LLIST [A]5 VERIFY GO SUB DO THEN ?GPIo&D GO SUB K[O]NOT ~ NEW ?<>![M] CLOSE #PEEK LINE %RNDw=:[I] CLOSE # STEP ,RND LINE EXP STEP TCHR$ [Q]▘= !!_P[C]( CODE w:[J] CLOSE #*[K] CLOSE # STEP ACS RND">2P[K])<> [U][M], J▖ LOAD |VINKEY$+.NOT SIN G=[F]=>'w4*(' PAPER OR MERGE STEP $ LINE RND MOVE STR$ NEXT 9CODE ATN [S]2.<2[O]^[P]$=<> FOR BORDER AND $XPOINT NEW !4@! PAPER (%>N THEN EXP PIP THEN RESTORE !▝ INK [E] LLIST 1#=CHR$ OPEN #RND<> OR 5D< FOR [S]INKEY$ll8( FOR UD0e AND GTPI$Bg.PP INVERSE CLEAR !{vPI LINE [R]PsINKEY$PICHR$ x▝ CLEAR Hao▚LN |[F] ERASE b CLEAR [G]SGN 0@CODE CLEAR w> PRINT J▝[N](▝A<>INKEY$ LET [U]uINKEY$Lt PAUSE VERIFY 'VAL$ COS STR$ /[R]COS <CCOS !@COS INVERSE 6[D]INKEY$[F] STOP INPUT . AND - DATA /-CHR$ l VERIFY ,: INK INVERSE F DEF FN f. K▞p>=CHR$ PI CLEAR ;PHPI INK NOT fV TO TO zYCOS TO LPOINT AT Cz ERASE M[S]G▗`[A]0 GO SUB D[Q]NOT PI INVERSE w MOVE M▘ VERIFY 2.:© INK PI :} INK 2TAB OR CODE 2CODE OR <>G! INK ~=( RETURN LINE USR PIw!e@~ AND w>w_!>=▞▞PI▞2▜PI[F]e[B][E]STR$ [Q]H-NOT [C]PI,PI LINE GO TO ▘R[C]2X2I<> LET P; GO TO PLOT IF DEF FN d CLS ([R] CLS d IF Q TO PLOT RETURN RETURN [C]" SAVE '[E]( LET CLEAR [S]Lq INVERSE .D}>=▗ RUN 1<> STEP FN >= LLIST <> FORMAT .c%d<>!c MOVE 4N#~ VERIFY ▟w▝# THEN z[O] LINE `▝[Q]SCREEN$ PI(o @SGN FN CLOSE #~ INVERSE ▚w[C]RP6F6G<> LLIST !epl INVERSE tRNDUSR Zw! LINE FN [S](E[S]>=68#60" OR [R] DATA < OR READ INVERSE ^ INVERSE V)j DEF FN GO TO Y[L][K]FN 85CHR$ DATA SQR PI CLOSE #VCHR$ RUN SGN nA[S]feN[F]q<><(!2 BEEP O5(![Q]o! NEW POINT [B]Sp!!;POINT RND>=▛!N[G] FORMAT 4 BORDER ▚ CONTINUE BIN > OUT b~ NEXT n~ THEN O(1 RESTORE j▗W DEF FN `CODE ACS RANDOMIZE IF PI LLIST MOVE (!SCREEN$ ?E! READ @ST INVERSE W DIM #~ GO SUB D INVERSE ▚ RETURN 4 ERASE READ EXP [+ DEF FN %Ll,lPI LINE [P]RND(L>= [M]< BRIGHT 4NOT [A]USR !=LC! CLOSE #;▚6COS >*O DRAW > COPY NOT pNOT RETURN LINE A[G] TO [G][A]CODE # RETURN © LINE [K]POINT RETURN w[C]$$ GO SUB rJ[F]▙ ERASE zNOT COPY RETURN DRAW IF SAVE SAVE EXP _e©r BORDER sT( LLIST R$ RETURN PIlVAL ! GO TO CLOSE # LLIST !%▗VAL DATA RESTORE ▗VAL [I] RESTORE CONTINUE P(">G▝c:CHR$ PI>= STEP =( PRINT <=[B]PN LINE SCREEN$ K RETURN LOAD CIRCLE II5EnN7E OUT SCREEN$ FOR +[S]~[O]i$F$[R] INK *A(LI}>(][M] RETURN TAN LLIST RUN ACS LOAD J$D INVERSE 2qt MOVE :<=b( DEF FN [U]2▞ BEEP CHR$ ▗$IFN LINE USR BEEP [J] PAUSE L<>!7 BEEP CODE w# INVERSE RESTORE CODE &C BRIGHT "/!!6 BEEP CONTINUE rINKEY$Z RESTORE INVERSE LLIST 3 BEEP C #[Q]"PIPq>*[Q]uN INVERSE q!$<>p<>[E]CFN CLOSE #L5USR LLIST ! PRINT ATTR INVERSE t>=: LIST s LPRINT OPEN #(▗6$D*ACS D▘{tFN On[I] x(=>b0 POINT D DRAW V RETURN [P]03 RETURN "8/gX RETURN LIST 0'▗Do<X! RESTORE MERGE SAVE MOVE ~ LLIST PICHR$ /AT CLEAR " TO 3sQ$R[I]PIm5FN [U] CAT LLIST Q[B] LLIST CLEAR PAUSE >/FNOT uAT CLEAR RESTORE MOVE [I]LN <>!T ERASE STEP jAT !TAB pBIN a<= INK O[N] VERIFY G[P]:PI(▘PI [I] AND [B]olgKC@[R]I THEN <x THEN EQEy[A])<> STEP (RNDCHR$ TAB Va^UFN INVERSE N INK %TSGN ERASE 6TAB THEN E▗[E]SGN CODE g0-SCREEN$ B!0CODE [L]M▝4NOT USR m LINE CODE AND ▞ AND NOT AND ▘B!VAL$ LOAD INVERSE LLIST SUx!+m4sp= LINE LOAD TAB BVAL$ CODE SCREEN$ NZVAL$ ATTR ▚POINT ECa▘M<> RETURN AT [E]H 2BIN ▘) OR ~EXP LINE PRINT MERGE <> INVERSE 5 T[A]!NOT [A]TAB >*E INPUT NEW LN -<>> IF GO TO ATTR LLIST <>SCREEN$ e5% READ ATTR ~XSCREEN$ e READ VAL SCREEN$ VAL RESTORE STOP [P] COPY SCREEN$ POINT E OR READ ▘[H]E▛I CLEAR Wl OVER ATTR [G]*[ STEP DATA *▜LN >UATN PRINT USR %S"| VERIFY [R] CLEAR 6 DRAW <>& READ UJ COPY RETURN R`j$WSTR$ +KpEw_G▟INKEY$[H]AT J MERGE l!AT TO BIN INT USR 6POINT .f[M]^` GO SUB BEEP ,TAN , DRAW INK R,PI & INVERSE n INVERSE f~ LLIST (# INVERSE ut▝▚ INVERSE s INVERSE r<>gE RETURN 9)=(- NEW ",Ar[A]!wNOT 3CODE [K]#< LINE PICODE ';TAB CODE HNOT KHN▗ THEN _( THEN [P]C NEW G STEP AT SCREEN$ aH©=>=NOT N MOVE CONTINUE (@ DRAW f MOVE NOT lCODE CLEAR ~]1 CLEAR 5USR Q[U]> COPY NOT ABS ATTR OR GJ[S] COPY OPEN #!▘f CLEAR n3<=@[G]C▚^JCOS gxs OPEN #[K]r!LN [K]>NOT VAL$ ATTR STEP dATTR NOT CHR$ CODE LASN VAL$ /LEN >NOT xVAL BRIGHT m STOP =CODE I[B]>?d[E][M]AT LEN !c▛[B]TAB > INK TATN [R][U][R] DIM 96 COPY INKEY$ LINE MOVE s!▟" INVERSE qZp PRINT NEW ©)q+ >TAN OR J( DRAW TAN [A]~(&INT FN $,[N]POINT REM NOT f[U] wjTAB > PLOT LET 8GLN GO TO 0QY SAVE PI#sLATN Xx▝G= POKE _USR hcp[B]u STEP INK LEN 1=( STEP SIN LEN PI HUSR PLOT CIRCLE 3[Q] RETURN FORMAT STEP $SIN ▞ AND y NEW OEXP ▖>5CHR$ USR 6<▝:[J] BEEP [T]4!©S[E]>8<V8 MERGE INT [C]Z MOVE PI' MERGE ] MOVE ""{ COPY D CLOSE #U!k~d VERIFY ofWGe VERIFY NEW %(CODE ACS d8 DRAW n LIST [S](< RETURN BRIGHT [B]0PI RETURN LIST b[K] COPY LLIST MOVE VqACS ACS y▞ TO (U_STR$ PAUSE LPRINT [C]% CIRCLE COPY %x INK G STEP ▖a'FN BRIGHT INK [A]V CLEAR ^ CLEAR qx RESTORE INK xSGN BEEP REM = PRINT LLIST CONTINUE FN BIN ▗# RESTORE fo INK LLIST FOR ,▗ INK INVERSE p▘l:jP GO SUB <#SIN ASN Ix] INVERSE STOP ▗ CLOSE #GPEEK CLS ▖ch~ CLEAR B1[A] CLEAR ▙Gp^ PRINT <># PAPER [A]e^D▘PI0ECOS SGN [A]lB CIRCLE [O]BCOS d INPUT [L]G[I]h[L] INPUT RESTORE STOP RETURN ▛!COS 5 STEP JSIN READ /COS ▖FN [K][E]sSTR$ (<> STEP MERGE SIN STEP ]TAN LINE PAPER COS :r CAT BEEP ^: DEF FN BEEP NOT COPY SIN INKEY$(t CAT ([C]BIN '.33 INVERSE 4 CONTINUE ATN HVAL$ ▛" IF [K]"&0" MERGE OR _:[I]T▗ LOAD TO (0 RETURN ▞▖c RETURN ?DpWIN pNOT M [O][S]POINT OPEN # FOR !TAN c<>0c LPRINT aB!TAN agr':rGSTR$ VERIFY <>F▚ RETURN PAUSE RETURN hzi SIN ▝ DIM BRIGHT RETURN OUT 0▜[A]b CIRCLE RETURN /VAL a8[I]ZFN [R]CHR$ [B])/ STOP DIM RANDOMIZE j[I]Y IF 3▖[L]PI<>D[H]TAN LLIST TAN INPUT GgG%o77fASN q RETURN PR CLEAR [O] TO CONTINUE ▜ COPY NEXT CLEAR [J]J RETURN DRAW SAVE ©!©TAN SIN :CODE [O]BIN LINE BIN CLEAR RETURN ©▝▖ RETURN CHR$ LIST SIN L#NOT ©[I] z2 OVER BEEP {2 INVERSE BEEP H~NOT `p!>ASN CLS ▗ECODE 2 BEEP BEEP &▖ FLASH BEEP 2 BRIGHT BEEP <>[E]FNASN [F]ASN PEEK oMxK INPUT _[P] IF OPEN #}INKEY$ySCREEN$ FORMAT ERASE RETURN [U]B RUN )©F^ REM COS CODE !/ASN IN X[F] INVERSE yM*RxO# NEW BRIGHT =(u▖!!FN MERGE CIRCLE cwL[B]SQR x=" PAUSE INVERSE q DATA pc[A]jX3- DATA DLD INVERSE s=> STOP ATTR LINE * RETURN P▘▜) MOVE a2ju}e GO SUB ACS GO TO P@[T]▟CHR$ 7ATN ! ▟#>w2 STOP BRIGHT E[F]2 LPRINT BRIGHT 2 LLIST BRIGHT 0COS GO SUB [d CLOSE #:[U] BEEP = INT " BRIGHT BRIGHT GO SUB jS OVER BRIGHT NOT 7 TO STOP PAPER ACS STR$ LINE J}TAB ACS STOP Q TO [A]▛[T]7ECHR$ ACS FORMAT u▞FN F STOP STOP f;NOT ATN ,RNDPEEK C DATA gg< FLASH @(!POINT f RETURN LIST DATA R?4 NEW INVERSE ATN N&4Bu IF INVERSE n RESTORE CLEAR LLIST CLEAR V CLEAR ^SE@SQ▝: STEP 8ATTR CODE 2PEEK ▖USR [G] CLOSE #2g CLOSE # STEP UATN STEP [F]<=ATN NOT LN [L]! MOVE ATN RESTORE OR ▝8!/ ERASE GO SUB VAL STOP gj[N][C]ACS VERIFY *N[D] READ DEF FN MOVE DIM SGN %;;LN ; DRAW RD9;[M] SAVE % POKE SAVE @[R] POKE CONTINUE SAVE CONTINUE SAVE X# RETURN HRND STOP SINT @& DRAW LIST RETURN LIST DRAW RETURN 1UP' RETURN *ACS LIN [E]▟!KJ READ RANDOMIZE g>=[E]|EXP READ BEEP E, READ REM $▛`+~ FORMAT [B]; INPUT RETURN [Q]D INPUT 0LPI0-;.u'-INT '!J[D][Q]c[T]COS [S] AND INKEY$ SAVE [F][O]1SGN FN .S INVERSE uQtLEN "~LLEN STEP ▘ACS =SIN 5 INPUT ABS a FLASH Va NEW a}~V DATA RUN [O][Q]=]f CLEAR 5n DIM !:EXP >NOT [D]LN [E]h(wEXP q8r>BTAN [Q]! LLIST LPRINT / GO SUB _ RETURN @8▖kpINT AND [M] LLIST DATA RANDOMIZE Ng▖ LINE [O]EXP ▚( FORMAT .4 NEW (VAL$ A%BB CLEAR FN STOP (T▜.0 PAPER ATTR [5[U] CAT TAT Z|00 ERASE .F91>[A]NOT [T]( LET *TP INK )0% DRAW DRAW IF IF SCREEN$ ! IF dIN IN 6!▙INT [I]INT ▙u>EPq STOP YBIN 1!,INT T5xc AND ETAN PI LINE / INPUT F[I]JTAB [B]0SQR i[T]wCVAL$ =OH IF IKABS TETAN O~▜INT SCREEN$ A~INKEY$[D]qVAL$ SCREEN$ MERGE [B]]SCREEN$ :fQz[O]CG[A] AND `[G] LIST 8<USR ▝COS >= LLIST <> RESTORE (Dob)) GO SUB KASN BRIGHT #PEEK PIBIN 8ATTR INVERSE INKEY$ REM /[Q]" POKE o! PLOT :[K]( MOVE ][T]t PAUSE BEEP CODE R BRIGHT N#G} THEN ! FOR ! CLOSE # ERASE 5h INVERSE p PAUSE qINKEY$`#u%# CONTINUE <> STEP eSQR STEP @SQR ?▘4 STEP INVERSE STEP <>QV7 POKE @zFAT # MERGE F MOVE PRINT LLIST #?CHR$ [R] GO SUB <>[B] INK & INK g THEN ©G STEP SQR SAVE LOAD THEN LN >=, IF # READ INK xLEN P( INK <>[S]! CONTINUE eT CLOSE #[G]POINT Xv▗CODE uP@ VERIFY TAN BRIGHT ! CONTINUE " DATA h BORDER [T] STOP !POINT SGN NOT [B](&(Kc2SCREEN$ NOT GO SUB S OPEN #NOT 2INT CCODE NOT FN ©(d[E]C COPY 2INKEY$©▖[Q]IN RANDOMIZE BRIGHT *IN BRIGHT STEP 3SQR *STR$ FORMAT *NOT BRIGHT : OR BRIGHT 2 CONTINUE P_A OUT ? THEN gBIN INT ACS RESTORE ( AND (>=) CLOSE #( LINE ( TO BRIGHT FLASH $RVAL !QzR LIST v[S]?>=]* CAT SIN ! INVERSE STEP * STEP '> AND J©PIPOINT BIN NOT MOVE SQR 2l[I] NOT go" NEW #SCREEN$ IN >02 PRINT r#MR!8h BRIGHT STEP PLOT STEP LPRINT SGN STEP uIN NOT IN ABS : NEW VERIFY 0/[A]STR$ g STEP zABS LLIST <> RANDOMIZE DIM BRIGHT AND INKEY$ REM NEXT o STEP 6STR$ NEW SQR G AND 0!/T STEP THEN PEEK > !C 8 ▜!v FORMAT ABS RESTORE STEP AND SQR STEP LET [C]$2N<[H] BEEP [C]! BORDER G[L] MOVE T!USR ▚ NEXT P AND <2X CLOSE #2▟CHR$ 2RNDrNOT 22 TO 2 BRIGHT y STEP BORDER LN qPI©/ :[R]R STOP BRIGHT 4,[C]CHR$ INVERSE LLIST BRIGHT 2[I]G LPRINT p2[J] BEEP * DEF FN [ OVER BRIGHT A▜" BORDER S~ TO [T]-RP* MOVE PEEK >[J]:[D] LINE SCREEN$ [U]%:[E]`SCREEN$ R4NOT ! RESTORE [J] GO TO STEP ▟IN !y@[K], CLS PRINT > PRINT ! x STEP PEEK STEP [D]PEEK LET =CHR$ [F]ABS OR ASN ASTR$ RANDOMIZE >32xCODE ABS <>ATN UASN GO TO ABS VERIFY MOVE }CHR$ STEP @9 THEN )CODE w,w)▞# PLOT ? STEP '▜FN [C]< LOAD ABS ;-<>[E]G ICHR$ ( NEW = xLEN CHR$ PEEK r[J] RETURN <RRNDLOXTPEEK (4SCREEN$ 0@▖ OR RESTORE Jl PEEK LLIST STEP cPI LIST USR @z!xn<>$|3USR | VERIFY g} AND H)o NEW LPRINT AND <>[J] LIST [U] CLS vRNDK[U]ATTR 0 POKE RND/[K] GO SUB ▘[hH STEP AT U REM <> RETURN #>= MERGE RESTORE STEP BRIGHT PEEK ACS w PAUSE h LET LLIST , MOVE NOT OUT Y"* NEXT TAN } OPEN # RETURN (&a BORDER RETURN .(e NEW RETURN A0 BORDER ▙ AND VERIFY AO▙[U]A[B]O@<>COMBAT ZONASN E#FLIGHAENGAME OVER#LEL 2RND[Q]PTED#L@)C1B&US:#▜RSPI8 4 ;(. 20[C]@#▝> STEP X STEP @@[A]}IN <>1SQR b}CHR$ ▜S0A REM [K]o/!EI@9 SAVE ! LINE 3I[S] NEW YQ4i@▞6 LIST GVAL @▝(GCODE 2!&H RESTORE OR NEW ~A, RANDOMIZE ASN LOAD STR$ ( LLIST ,,} VERIFY o OR E CLS STR$ ? OR RESTORE $<ACS R GO SUB _ NEW OPEN # RETURN >&- CLEAR NEXT LLIST STR$ SIN 2H LINE RETURN USR [O]!B[A]%@2X▙ STEP EXP ▗ LLIST } AND @o0 PAUSE $+ BORDER [A]I[G]NOT ▗[U]1TAN [G] FORMAT LET CIRCLE SQR "n OR TXPOINT LET BRIGHT : LIST !SCREEN$ [K]LN LET CIRCLE 1 BEEP OPEN # BRIGHT CAT ~▛( LET ONOT STR$ @ FOR AT PPICHR$ FOR USR ▟[Q] READ MERGE LPRINT MOVE =.CHR$ AND USR z VERIFY W{ AND _ INVERSE USR <>LEN #▘#yN REM n1 RESTORE MERGE RESTORE EU RESTORE RND RESTORE u RESTORE NEW 5 NEW !P READ } STEP BIN USR LLIST LEN ! MERGE BRIGHT 6# CLS <> STEP [H]STR$ :)QABS AUSR RETURN CIRCLE :A LINE NEW >= STEP BORDER STR$ ▟INT INK BIN " NEXT BRIGHT C( RESTORE LINE PI; PAUSE BRIGHT 5>=6*"sR<>: GO SUB A>==BIN VERIFY STR$ * DIM BRIGHT +"!|ASN USR = I CONTINUE !d<>CODE "[E]u CIRCLE DRAW UiL INPUT [G]H*▙NOT B=>D(* FOR DIM ▛ PRINT LET = LINE GCHR$ RETURN PAPER CHR$ VERIFY e( LINE /CHR$ jCHR$ <>5 CLOSE #@EO POKE GO SUB SU[E]n0~[F]m BRIGHT RESTORE /ATN INKEY$F]!USR FwW LLIST <wVAL$ `▝"_*Up:C>= FLASH DIM ▟8 RETURN [B] CIRCLE [A]4D<> PLOT BRIGHT 2E[R] RUN R2 SAVE ! PRINT ▚ DIM >0Fw<> GO SUB sNOT >▘ TO R[O] CLOSE #[Q]G! OUT ZG!g CLEAR "PEEK EQNOT NOT :▟ *+= RETURN DNOT :JDc#"DCODE ▟<PINOT OR zMCOS /NOT CHR$ FN 5< RETURN -:g 8 PAPER GO SUB ▘8+8>/[D]FN :[S]EXP :: CIRCLE CLS v[L]s AND :}yCHR$ .NOT <2` AND RETURN CLS NOT AT OR !>zGG LPRINT COPY > RANDOMIZE MERGE u-9NOT 1 BEEP FORMAT MERGE FORMAT (q,<> SAVE &XNOT !%PElEFN MWzCOS VERIFY _}oz2[C] OR FLASH ( AND 2[S] OR 1 LPRINT MERGE y2{ OR "} OR INK !@z OR k_~W NEW ?0U LINE u©[O][B][Q] RETURN B0"[A]oG8EP RESTORE INK !-BIN >=@ ERASE PAPER NOT AND 'STR$ OR ▝x RUN NEW PLOT xGH@ CLOSE # PAUSE NOT RANDOMIZE LLIST INVERSE LLIST LLIST INVERSE RESTORE DIM NOT q OR IN BORDER GO TO OUT `iNOT STR$ NOT SAVE NOT v AND BIN <> AND BIN PLOT AND @RBIN BIN )<=%[S](BIN ^<=<= READ <=SCREEN$ >=(SCREEN$ K>=▗[Q]>=vRNDJ LOAD [E]9 OVER # READ rSGN aATTR P PRINT [K]P? DATA ▞.CHR$ gLEN V CLS } OPEN #$PA LOAD Bc▗I AND BORDER )QkTAB H DEF FN Y1RsPaASN VERIFY RUN iZ{[M]ABS q COPY Ab[Q]y[U] OR NEW ▝Ij▛AT ▞ INPUT 0Q[B][D]TAN MERGE PLOT H@[J]8Yz[L][R] INVERSE RETURN @POINT ▘[T]BIN [A] RESTORE LEN 'HiEXP @ TO GO SUB q[C]$COS CLOSE #<>7Xy( MOVE SQR BRIGHT CLEAR INK `(▝ OR !` AND 4 INK CHR$ [L] OR [A] o ERASE OR B PRINT LINE (AT OR > BEEP { INK _NOT [N]NOT > FORMAT L&[T]5▘o[M] INK Z@ RETURN 0 COPY S tS INPUT OPEN # RETURN yuASN OR NOT PAPER OR CODE xCODE GO SUB s] AND :lG>[A] LINE ( NEXT OR PAPER RETURN =CHR$ FOR OR b PAPER [F]H<>!0X INK !"x INVERSE ▚ GO SUB W2V AND > GO SUB G RANDOMIZE MOVE STR$ CLEAR LLIST LET INK ▟▝ LET RANDOMIZE PRINT OR MERGE @A4 INK PRINT CLEAR RESTORE INVERSE RESTORE } AND VAL$ ^!RUHaFN FN IPGNOT `H:j[K]! PRINT INVERSE LLIST MOVE LLIST [A]H4 DIM <> FOR STR$ MOVE r-s-p-Pq$q,p,s,r[S]LN /NOT / AND ] DEF FN AND @<>193~9g[O],©?<> CLS O2 STEP ?4td PLOT [E]c<=[E]NOT RND>[F]| AND g NEXT ATN INVERSE % INVERSE ATN }/▗ CONTINUE ▗[U]z_W[M]CODE o▜© INPUT KGIN W! NEW [P]8> CLS [Q]▞>= LPRINT %[R]FN Y LINE 2INT >= LLIST MOVE STR$ "@ATN >= RANDOMIZE FOR MOVE { DEF FN [M]z--$STR$ BIN r8|[A]gn INPUT ECHR$ THEN >=NOT ACS >=TP LINE MOVE <> LLIST STR$ r ERASE So& FOR STR$ p9<>NOT CONTINUE LINE LINE INK MOVE LLIST INK LLIST LLIST DIM INK GO SUB [Q] INK NOT J<> INK FOR NOT PIBIN k,[Q]CHR$ ▖<>|[B][C]POINT ▝gy PRINT 3 NEXT INT AND rNOT X▛( VERIFY LINE " OR ▜CODE NOT VERIFY PNNOT DIM P_z NEW CHR$ LINE f DATA LOAD >OT AND LLIST (` OR ACS >= LLIST 6J,6 COPY 0R PRINT ASN ][I] FORMAT CODE LLIST VE SAVE NOT ("% 3:[Q]G7 LINE SQR FLASH NEW _!8 LINE STEP s LINE NEW RETURN {( NEW c RETURN NEW 2@ LINE <> != LINE ~# STEP © LINE ? THEN 0 PLOT {<>OdG THEN 9>[B]O> RETURN CLEAR FLASH RETURN DRAW <> STEP n LINE 2A LINE THEN [K]HW>=PI IF 16( RANDOMIZE RANDOMIZE <>"P POKE USR STEP THEN LEN qSCREEN$ ? OVER l CIRCLE K STEP BRIGHT LINE GO SUB <> RESTORE MERGE OR STEP BORDER LINE STR$ MOVE LLIST ,T COPY INPUT P CONTINUE ! BORDER ([Q] REM PLOT *SIN BRIGHT "(<> GO SUB [zCOS >= GO SUB S!VAL$ BRIGHT CODE >P▙'w#>D4 LET * DATA %SCREEN$ RESTORE OR NOT xZFN CLOSE #: PLOT CLEAR * READ : PRINT BRIGHT [G]" ERASE S THEN LPRINT PI)▟/he THEN VERIFY NOT Z THEN ! BRIGHT WH LINE s THEN 6 COPY - CLS TAB DEF FN THEN ys AND CLS GO SUB D LINE ▙ THEN GCODE iNOT W:RND(VAL STEP w, THEN O:INKEY$G( RETURN ERASE > COPY ▝ IF y@E[8Zd[C][T] FORMAT <> THEN H)USR LIST DRAW COPY ? COPY !X CLOSE #5CHR$ LN LINE 6P!Y CLOSE #~B( RETURN wj AND [Q]F2INKEY$C)Z2EXP mrZG▝X@!Xx I[M]vLN INK 1 BEEP =([I]k#TAB ▖r# OR MERGE =CHR$ # TO GO SUB s FORMAT <> CLEAR ! LLIST 1F CONTINUE VERIFY 1_ LINE V TO Ptu LINE o▝[U] INPUT &*ATN >=y2TNOT INKEY$▝PNOT FLASH TO INK INVERSE Ng NEW SAVE G|[A]G OR D>CODE PI7SCREEN$ [Q]FN FN gy(<=FN oy NEW RESTORE |#QSTR$ CLEAR u MERGE DEF FN / CLEAR lTAN AND SQR TFwT#f INK [B] TO TO RESTORE RNDNOT ▛ OR MERGE [A] OR ( VERIFY = LINE CLS TO G STEP kL PAUSE e->=INKEY$ PAPER IN IN STEP [F] INPUT },[F]TAN IN LLIST IN F<>IN I<>NOT x STEP )[E]SGN ^SGN V MERGE >=JINT INVERSE [G] DIM INT SGN WSGN _BINT SGN [P][P]l STEP RESTORE MERGE Lj[M]h[M]& LINE v[E][M] BEEP [M][A] STEP [M]Q IF [E]_ INK q|T<=w`eNi&QPOINT RESTORE QVAL ERASE AT ~ STEP @[L] LINE VAL y STEP 2 LINE NOT LEN FORMAT INK GO SUB St DEF FN CODE ZF DRAW USR [I] LINE ▜ CAT OR CLOSE # CLOSE #STR$ <># MERGE RESTORE !INKEY$1SCREEN$ ©?BIN X!SCREEN$ © THEN _ " READ # READ READ ^ FOR [Q]6 OR ,-( CAT IN DEF FN IC CAT 4STR$ SGN [S]JMy+▙ PLOT ~ LLIST ~ MOVE # RESTORE PRINT STEP DEF FN !_ STEP @ THEN SGN FORMAT ▗STR$ RESTORE LET PRINT 0!6 COPY Y"[O]I LLIST STR$ CHR$ SAVE STEP <>[T]ASN 8~>TAN [Q]= LET E MERGE *ATTR ATN BRIGHT MOVE wjEXP @ATAB ' STEP [T]q OR Q OR N THEN kCHR$ z PAUSE FOR [E]D FOR u READ NOT 7 DEF FN STEP LEN VAL$ REM &'X%r PAPER % RESTORE %QEXP [D]Q COPY ▖[P][T]1 NEXT @; RANDOMIZE PAUSE e11BIN MERGE @Y5 IF COPY GO SUB vK GO SUB :L~ SAVE [U] GO TO GO SUB S[R] CAT F GO TO Hg[S]2DRND CAT 2PEEK , LOAD w# MERGE B#q IF ![E]PI(J MERGE p#= &dJPEEK READ G FOR ! OR @[R]a THEN CIRCLE qSTR$ #5* LET FOR REM S('STR$ FOR 2 DATA % DRAW gPEEK %G@2~ GO SUB MOVE ▝[T] CAT "▘▟[B] CAT GO SUB [<>[F]0 MERGE LIST 2▘&) GO SUB KSQR BRIGHT NOT =(LCODE OR RESTORE COPY BRIGHT LINE `/ SAVE LOAD "CODE CODE ABS FOR LLIST HSIN POKE FOR ![A]NOT MERGE !p COPY 0[A]▞ OR STR$ LLIST [S]@ NEXT STR$ x[D] DIM MOVE C@+▜<>1[M] VERIFY T[C]q DRAW L VERIFY 8 INVERSE RANDOMIZE NOT E<>!N VERIFY dPOINT ^SIN TO CIRCLE NEW !A OPEN #>v,>"P RETURN PAPER FOR FORMAT RETURN POKE PAPER " MOVE c MOVE RND4N VERIFY ▟w▝#[Q] THEN 8 VERIFY 0▙ AND ! FOR #w+ NEW O=>CHR$ MOVE y GO SUB D9=xP ▝w#O>CODE [G]" LET MERGE dLN OPEN #@Yy RESTORE M=CHR$ BRIGHT ▘* FORMAT NOT PRINT i MOVE COPY /[L]?xABS INVERSE Hu INVERSE ▚ OVER lxE LPRINT SGN T$0 PRINT x[ GO TO p$5[ INVERSE LLIST $ DATA ERASE [I]IU DATA COS <=$VAL$ STEP CLN ▟$USR OPEN #d<> BORDER <>s DEF FN ▙{P RESTORE STOP MOVE Q▝1[S]/z1$[R]EXP Q STEP 1)[Q]PI|1cmVAL YVAL `VAL =VAL KVAL !VAL /VAL BEEP TAN LN CODE VAL ASN 'COS 2EXP PAUSE EXP #[N]c[J] DRAW [J][B][K][K][K]@[K][S][L]6[L]STR$ [K] DRAW DEF FN SAVE PLOT LET d LET LIST ▘ SAVE CLS LIST PLOT ;SCREEN$ " CONTINUE ▙N[PI[P][H]▜©wog_WOG?7+j▛G9▗Qu▗CoLP▘(NOT 8AT {6[H][N],USR [Q] INK ' DEF FN [H] FLASH [[B]Q[T]P?gzCODE PRINT ▛x%( CIRCLE [U] MOVE SGN ▛©% COPY = COPY [U] RETURN MOVE @ (`[A]VAL $,z([A]@USR POINT *8lr PAPER AND USR INVERSE ▘1<=s LOAD TPEEK smACS 3 COPY FLASH bt BRIGHT * CONTINUE %XB BRIGHT [R]CHR$ CLOSE #>=▝P (q/` REM INPUT INVERSE 'LN | COPY USR LLIST i65 BRIGHT V3 BEEP COPY ?(H| BEEP qH@!BIN <>P LPRINT , SAVE USR -DTLN 8 ; CLOSE #▛(G[Q][G:PpUSCREEN$ DDFN CHR$ *GY8SIN [K]MP) IF ; DATA [G] OUT >= LIST ,x)[Q]D<▞xRND POKE >=1[R]!W3~8 MERGE [A]S@a*<$> C▛R[L]▚RNDACS 'GGBGDK)G)GPG#RNDACS .GDG[Q]GIJ)GFN GG'[J]PGPEEK [Q]INKEY$INT USR ;`=SQR OVER _r/SGN [J]l_CHR$ ATN @[J][J] &,& LINE >/[Q][O]VAL$ VAL J7@ BRIGHT LOAD USR 0▖- OR P[J][J] &, DRAW > CONTINUE kAT FN NOT [J]ACS FLASH LN LPRINT FORMAT RUN CLS USR OR LIST "[J]▞ qT[J][J][J]&,>r[S] IF [K] FOR [Q] GO SUB [P] PLOT INPUT x4}>=&LEN LIST LEN | BRIGHT U5g &, PRINT RUN >POINT @ PAUSE VAL [A]e[S][Q]PIUSR RND FORMAT d x3FN 7 DRAW ? BRIGHT BIN *@/(X SAVE 5[R](/G/ RETURN [ PAUSE 2)[A]_5 OVER ZVAL$ 5mE[Q]?8qh@tLN hTW▚ GO TO :SQR TO COPY PLOT jIN e_[I]>^RND CLEAR [P];NFQG*)(5 LINE p~J©J LPRINT LN RND'>©|.SGN TAB Y CAT n BEEP n(/<[I]X`"@ PLOT [U]USR J5NOT @[E] LPRINT [Q]yPEEK g LPRINT [A][O]@ Z[J]&USR 30PJd4P0 C BRIGHT @ CIRCLE G FLASH [K] RESTORE [G]@ LIST Ji CONTINUE <j} INPUT EPJ3 [R][U][Q]xBLN SCREEN$ [S]/ LPRINT STOP / LPRINT BIN ▖+W MERGE AT !ATTR f%!%Y5!%CSCREEN$ !%8 y[I]TAB @ DIM ▞[S][ 6USR LPRINT RM=>=?'=2j?'=*SCREEN$ ?'= ?SCREEN$ SCREEN$ !%SCREEN$ SCREEN$ !%SCREEN$ SCREEN$ !%USCREEN$ !YUU]aYUU]aYUU]aYJU]a8ATTR [R]@SCREEN$ @*B*[A]J GO TO [U][E]DVAL$ ABS POINT EQu@ [F]@PE,%PTJ RESTORE T MERGE COPY U[S] VERIFY DATA [I]A.▝CHR$ INT <> RETURN / COPY CONTINUE AT 9C THEN #[H] MERGE ▖ATN T;U[C]#[M]C COPY FORMAT B THEN ACS POKE MOVE 08*SCREEN$ T TO RETURN CLEAR COS [L] COPY [I]sVAL )< PLOT ▜ZP REM /p# SAVE 3 DRAW RETURN COPY COPY TAB IN Y4_POINT NEW 0f([Q]) PAPER _ LIST COS P▝[K][I]S `& LPRINT /B[A]X$ LPRINT ,L"[H][FSGN STOP USR [J]Rs ERASE pHA<CODE SQR !▚AT w VERIFY IN 3STR$ [E]>@ AND A Vf LET f)Pv@[N]LEN RJ[A]VAL [A]`EXP j_/▚ DRAW ▚4 RETURN ▚^PEEK J)] LINE =CHR$ REXP ▝ GO TO E DEF FN )/©USR ©IN ``F`▘[K]l FLASH BRIGHT n FLASH ^f▛[K]fATTR [M]n CLS ^USR N RETURN F▚ 0($ DRAW ~$@USR BIN DRAW LPRINT ▚hdbb RETURN SAVE b~[F]U DRAW K BRIGHT &$D RETURN LL>=> OVER [A] FORMAT T LIST BDHP SAVE /N AND DL|66ZZ[C][C]BBbRJN%FCHR$ RETURN `" RETURN nHEJ LINE RETURN [T]cSf RETURN RETURN ([F]L▘▚ RETURN ▘B"TAN CIRCLE CIRCLE [A] ▘D(8l AND 0`USR RETURN ~ RETURN E&J ERASE STOP *60pP> RETURN xHB▘D|K(HSCREEN$ ▘ RETURN RETURN FLASH EU/><>(P-|D8D▘$D DRAW DRAW 2 OVER OPEN #USR RETURN [D] COPY COPY COPY PEEK GO TO SCREEN$ RUN PAPER SAVE : DRAW [U] PAUSE TAN BORDER ▚ BORDER ' GO TO d AND DIM [N] BORDER m GO TO d INPUT INPUT INPUT RANDOMIZE RANDOMIZE ▘ RANDOMIZE RANDOMIZE RANDOMIZE ▘ RANDOMIZE ▘ RANDOMIZE ▘ RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE DIM DIM RANDOMIZE y LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST ▗[I]HJK▜LMPBDF[Q]H[I]GI▖NOACE[Q]G OR [O][N]INKEY$[O][E][N][B][O][E][B][O]V▚▟▙[N]▘_[I]TSBDBDBDBQ▟▙▘[B]▚NOACACACAR▟V▙▘[B]▟▜▙▘[B]]▘▘▟^▜V▘▛▖▘][D][E] INVERSE ▘▛▗][G][H]▛[J][H]▛[J][H]_▚▖▚▗▚▜▚▛) RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE yy REM REM yy RANDOMIZE ▘ RANDOMIZE ▘ LLIST " LLIST # REM REM RANDOMIZE y LLIST RANDOMIZE LLIST (FVDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDBDH▚JLU(E_CACACACACACACACACACACACACACACACACACACG▚IKTEWVDSGN JUEWVPOINT [C]IT▚EWPOINT ▜[D]POINT ▜[O]EPOINT ▜R▗JU▞PI▘▘ J▘LU▖PI▘ ▘▘▘▗▜PIR▘ ▘R▘R▘▗▜[PI ▘S▜ ▘S▘▖ OVER PI ▜▟[T] [G][T] ▟▚[T] ▟ ▘▜ ▛▘ ▜▛ DRAW COPY PLOT COPY ▜©o w [Q]r[Q]r`s[Q]r`s[Q]r`s LPRINT t, GO SUB COS GO TO ATN GO TO SQR GO TO IN GO TO t0[Q]o0 LPRINT q0 LPRINT q@`p1 GO SUB 6 GO SUB ; GO SUB LPRINT q@ GO SUB B tO GO SUB D LPRINT qX GO SUB E t@ GO SUB D INPUT g GO SUB j GO SUB AT GO SUB LLIST GO SUB COPY INPUT g GO SUB j GO SUB COPY DATA GO SUB DRAW GO SUB g GO SUB BORDER GO SUB COPY [K]SCREEN$ INT INT PAPER LINE DRAW DRAW GO TO TO INPUT SGN SGN AT AT [K],L:|p``RdF4$[U][C]BIN CLOSE # POKE POKE PLOT VERIFY PLOT [U]TAN TAN $fdrp@@:LLN>[K]SCREEN$ INT INT PAPER LINE DRAW DRAW GO TO TO INPUT SGN SGN AT AT [K],L:|p``RdF4$[U][C]BIN CLOSE # POKE POKE PLOT VERIFY PLOT [U]TAN TAN ACS NEW AND [E]SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ **********[U]TAN CHR$ ERASE LPRINT PAPER BRIGHT [K]SGN [M]% INPUT (??`p▘ INPUT >=( BRIGHT [S] NEXT INPUT pxATTR INPUT SQR INPUT PAPER INPUT [B] INPUT px INPUT pxATTR INPUT SQR INPUT PAPER INPUT [B] INPUT px COPY % INPUT LOAD INPUT RETURN , LOAD yzP LOAD yzt LOAD yz[I] LOAD yzt LOAD yzP LOAD yz COPY SGN LOAD xz READ LOAD wz LIST vz COPY : LIST vzSTR$ LIST vz[E] LIST vzg LIST vz[E] LIST vzSTR$ LIST vz COPY INPUT LIST vz LET vzH LET wzr LET xz COPY [J] LET yzABS LET yz LLIST LET zz PAUSE {z PAUSE |z; PAUSE }zS PAUSE ~zh PAUSE ©zz PAUSE z▞ PAUSE ▝z[F] PAUSE ▘z[O] PAUSE z COPY )*'( ! ! !)*+,'("#$"#$"#$+,-.'( ! ! !-./0'("#$"#$"#$/0)*%& ! ! !)*+,#$"#$"#$"#+,-.%& ! ! ! !-./0%&"#$"#$"#$"#$/0)*%& ! ! ! !)*+,"#$"#$"#$"#$+,-.%& ! ! ! !-.c/0c%&"#$"#$"#$"#c/0c-.c%& ! ! !c-.c+,c%&"#$"#$"#$c+,)*%& ! ! !)*c)*c%& ! ! c)*c)*c%& ! !c)*c)*%& ! !c)*c)*& ! c)*c)* !c)*c)*c%& !c)*c)c%& c)cc%&cc%&c%c[Q]oCOS PAUSE [Q]oEXP PAUSE [Q]oCOS PAUSE SCREEN$ 9IN PAUSE RETURN PP/ NEXT RETURN $64FVfdRbb@@`zj/lL<>N OVER SGN VAL$ VAL$ LL>>INT PAPER INT USR POKE NEW PLOT POKE PAUSE LPRINT REM LINE OVER INPUT VAL$ PEEK VAL$ rd4&[G][U] NEW SIN ERASE ERASE PAUSE LIST DRAW RETURN DEF FN 0RVFFT2pjl>.</@rD6[G] AND INKEY$ACS INKEY$64F6VF&[G]INKEY$ AND NEW AND ACS INKEY$&6&ACS CLOSE #CHR$ LIST USR LINE OVER DEF FN DEF FN OVER PEEK VAL$ AT VAL$ PEEK [O][O]/ZZppPtDffVF6&[G]ACS ACS INKEY$ACS CHR$ VERIFY POKE PAUSE FORMAT REM OVER TO DEF FN SGN [O]Z LET FORMAT CAT @ READ [R]@USR [Q]h POKE ` POKE @[I]Ph@ PAUSE 3@e&▛N▜A[B]N!INKEY$R[U] CONTINUE [Q]t@[T]:@NOT PI[I]USR ▝Q▚STR$ FORMAT @ LET FORMAT CAT @ READ [R]@USR [Q]k POKE ` PLOT D[I]Pk PAUSE 3e&▜E▛N<▜A%N/▛INKEY$[ OR [U]<=C[Q]r AND [T]:CHR$ NOT PI[L] DATA USR @Q▚STR$ FORMAT ` LET FORMAT CAT @ READ [R]@USR [Q]kx PRINT ` RUN [E][I]Pk▚ PAUSE 3[C]e&▜▞▛▛N<▜A▛<>N/ OR INKEY$[ LLIST [U]<=a[Q]r AND [T]: INPUT NOT PI[L] GO TO USR @Q▚STR$ FORMAT ` LET FORMAT CAT @ READ [R]@USR [Q]kx PRINT DRAW ` PLOT TAN [I]Pkv PAUSE 3 PLOT e&▜ LET ▜▛N=3▜A▛ NEXT N.yINKEY$[ CLS [U]<=s[Q]rINKEY$[T];~NOT PI[L] DRAW USR @Q▚STR$ FORMAT ` LET FORMAT CAT @ READ [R]@USR [Q]kh PRINT /` PLOT AT [I]Pk~ PAUSE 3PEEK e&▜ RANDOMIZE c▛N> CLS ▜A▛ABS N/_INKEY$[ COPY [U]<=s[Q]rATN [T]: INPUT NOT PI[L]SGN USR @Q▚STR$ FORMAT `▝z/[U] ez/FN ( z/D [U]▖"$S▘[E]CHR$ D)' OR %"'STR$ %J[T])U HU DD[U]"D IF "$S NEW BI STEP "[A]▗!IGBIN BBDDG STOP !▗▝z/[U]` z/[U] z/B [U]▗"P[C]BI'$B'▝)[T])[F] D[F] BD[U]!$ IF !S NEW BI TO [C][A]D!)GBIN !BBBG STOP !BIN USR USR ! SAVE LPRINT p)▖[Q]$$Z-"[Q]INT VAL$ ▖ zCODE H " IF /[S]@ B IF /[R] USR @[A]▗,P▗!LN ▙[J]1|[P]B B DRAW [R]@ B IF /[R] LIST p@x DRAW [A] DRAW H DRAW d xd@ PAUSE @ PAUSE @CODE COPY PAUSE COPY COPY COPY COPY LIST p@x DRAW DRAW &<d)[I][E]D`"H[I]©0PEEK @ COPY COPY COPY COPY LPRINT p(@>= tP4(FN *[E]-T+D( CLOSE #C[S]QCHR$ @RJ©R RETURN COPY COPY COPY COPY LPRINT x▗AjFN @ ERASE [B] *[S] FORMAT .[S]4/BT@[S][I][S]T©CHR$ [A]~ COPY COPY COPY COPY Y COPY [K]A~▘<>V[D]▞l[B]▞Z[B]▞6[B]▞l[B]▞Z[B]▞6[B]▖▝ COPY ▝[J]f[J][J] READ [J]▝▝▝▞[B]▝▝[J]▝[J][J] READ [J]▝f▝▝ COPY ▝▖▖▞v[B] STEP COPY }3© POKE OUT FORMAT [N][N]y COPY LOAD ©LN @▗/[E]P▗INKEY$ COPY eINKEY$ COPY eINKEY$ COPY eS~ LINE )ABS [E] FLASH (AT COPY 5AT COPY 5r<rrjrrrrkrrrrLrr"rr^rrbrrBrrBrr$rrrrrAT COPY 5AT COPY 5AT COPY 5~Z[Q]- FLASH TAN [RND PAPER COPY LPRINT ATTR %_ DATA ZCODE IF INKEY$ COPY PRINT (SQR [E](SQR [E][S] RUN RESTORE [S] RUN RESTORE (SQR [E]^IN CONTINUE f RETURN IF f COPY IF LIST LIST RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN PLOT RETURN V RETURN VTTAN TTAN SCREEN$ RSCREEN$ R DRAW RETURN LIST LIST COPY COPY COPY l COPY mTAN l COPY mTAN l COPY mTAN l COPY mTAN lmTAN l COPY mTAN l COPY mTAN COPY l COPY mTAN COPY COPY COPY ▜89[I]` AND d [C]D&P▘L AND 8 LIST V8 MOVE STOP ▝ LINE iF▗CHR$ E▗aIH4R▖ READ ▗ LIST STOP LPRINT < COPY < RETURN F RETURN F RETURN :SCREEN$ :SCREEN$ |T|TFF::| RETURN | RETURN FF``VAL VAL TAN TAN AT AT INKEY$INKEY$>>©~:©:~x LIST ?]=LN ;▟ OVER :q BORDER INT pyspg NEXT VAL vo READ 0 INPUT gs FORMAT h8 BORDER [I]l[N] DEF FN Fn][Q] OVER g~ BRIGHT c STEP > STOP e GO SUB @vflf0ff0 COPY LIST COPY CLS LPRINT COPY RANDOMIZE SAVE COPY DRAW COPY DRAW COPY RETURN COPY RETURN 0 COPY COPY v FLASH COPY COPY 6 FLASH COPY COPY [G]YSCREEN$ SCREEN$ UU[-▚ COPY COPY USR NOT 8` AND [C]▘ AND V8Qa[Q]▝▗ LPRINT ▗ LPRINT NEXT RND[E] LOAD NEXT RND[E] LOAD ▗ LPRINT NEXT RND[E] LOAD ▗ LPRINT COPY OUT COPY [P] COPY 8? COPY 0? COPY `© COPY `© COPY FLASH n COPY COPY FLASH l COPY COPY [K]i COPY COPY 0STR$ UUTAN PAPER SCREEN$ SCREEN$ aNOT COPY COPY ``7VAL K[A][H]▞[F]+[O][D] INVERSE BEEP #* CONTINUE READ eSTR$ <=+ READ ▛▛Mu OR OR IF [S] LINE UuUU0VAL CIRCLE >=@ NEW JBIN STR$ [E] CAT A FOR n BORDER u[E]tu:USR LPRINT RANDOMIZE LET OR STR$ PEEK INT STOP REM u}QuSCREEN$ INT SCREEN$ SCREEN$ @▞FLEN @EVAL AI▝AH▝B▖NLEN ▗a▙08X TO [I][P]<1[H]3+<nuPEEK CLOSE #;VAL$ -y<0 LPRINT z!uv REM FF THEN SQR ▞1 LET BORDER 8NOT ▛▘YNOT % BRIGHT CODE DEF FN : LPRINT W[M]] LIST * IF INKEY$}UUVAL$ SCREEN$ SCREEN$ SCREEN$ [F]SQR ▞USR 0%DO[S]_ ERASE IN DIM IN MOVE IN DIM IN RANDOMIZE _ REM _ ERASE / DATA H0USR +`EVAL 2 FORMAT IX[U] PAPER Z▗ PAPER y[L]3.q NEW G[H]P84 BRIGHT ` COPY ACS s8G COPY ? RETURN COPY CLEAR MERGE U<G COPY 8ACS s COPY 0▜ATN VAL y DRAW VAL ATN ATN s▚ RANDOMIZE ASN [N]LEN LEN LEN [O]1 DRAW ASN y▚8©LN ©▘`▘;qEXP DEF FN PAPER SQR [gONOT O LPRINT G NEXT LEN RANDOMIZE TO |sATN 'ATN 0ATN 0~ COPY c BRIGHT p&x.>p[M] p LPRINT )USR W[L]<USR COPY DRAW COPY RETURN SGN COS x LIST 1NOT ;cNOT <= CLS <= CLS c:NOT 1 LIST COS xSGN SAVE SAVE P▞ LET OPEN # CLS LPRINT POKE LOAD SAVE CLEAR IN <<▟LEN LLIST PAPER [p/.L&]VAL$ MINKEY$[M]-% INVERSE ATTR INVERSE ATTR GO TO ' GO TO 7 CONTINUE STOP G BORDER BORDER LLIST ▜▝. LLIST q SIN @SIN AbUSR IN 'SGN FORMAT LOAD LIST vA IF DRAW LN LIST } DRAW ; CLOSE #:[Q]; CONTINUE ©ACS ASN FLN ^/USR < FORMAT FOR CIRCLE SGN 0>O INK 8g BORDER /BIN /USR / LPRINT /8g INK 0>SGN FOR CIRCLE FORMAT STR$ >USR RANDOMIZE STR$ LIST ` REM INVERSE ![H] BEEP INVERSE F INVERSE ~ NEW SAVE O GO SUB CAT CLOSE #>2VAL$ CLOSE #! OPEN #"CODE CLOSE #CODE 2PI CLOSE #!u CIRCLE v CIRCLE LPRINT w GO SUB VAL 2CHR$ % INVERSE w INVERSE RANDOMIZE <2ATTR CLOSE #<2SCREEN$ CLOSE #= LINE X[H]=CHR$ y[I]!ATTR CLOSE #5CHR$ [I]6:VAL$ CLOSE #PI LINE @[I] INVERSE ![H] BEEP % INVERSE ~PI( INVERSE , GO SUB [S] RUN z RANDOMIZE PAPER CLS TAN BORDER ▚ BORDER [F] GO TO ▚ REM [N] BORDER FLASH GO TO _ INPUT b INPUT N INPUT % LLIST LLIST LLIST RANDOMIZE RANDOMIZE RANDOMIZE REM REM RANDOMIZE ▘ RANDOMIZE ▘ RANDOMIZE RANDOMIZE LLIST LLIST y LLIST ▘ LLIST LLIST LLIST $▘3y LLIST REM REM RANDOMIZE RANDOMIZE LLIST LLIST LLIST FGH▗CUM▘K[[N]U]GDEI▗BPL▘JZ[M][J]P/EGHA [J]AT U]EI`[F][J][G]P/H▚ _[F][G]▘UI▚[F][G]V▘P▜ ^V[F][G]`▛[E]V[G]_▛P/EI▞▗▗[G][D]▗▗▗[B] [D]O▗PL▗JZ▗[B]▖▚`▚▖▜O▚^▚O▚OO▙▗▚▙O▘▗O▚OOO▚▗▘_▘▘OOO^_`O▘▘QOQO RANDOMIZE ▘ RANDOMIZE ▘ RANDOMIZE ▘ RANDOMIZE RANDOMIZE REM RANDOMIZE ▘ REM y RANDOMIZE 9<>yy RANDOMIZE ▘ RANDOMIZE 0 LLIST STOP STOP CHR$ ▘ LLIST LLIST STR$ ▝[O]IJ▖▗KL▖IPI▗[G]K▘LPI▗[H]KI[T]▗ [I]K[Q]/`/`/`▛/`TAB [_[_[_▛[_[F]PIZ^Z^Z^▛Z^PIY]Y]Y]Y][U][U]▛VPI▛ MERGE PI ▛ ▞CHR$ [F]▗`[I][I]▛[▗_[H]▙Z▗^[B][P]▖Y▗]▖ CLS COPY PLOT PLOT COPY ▜ [H] o [Q]r[Q]r`s[Q]r`s`s LPRINT t▛ GO SUB ! GO SUB % GO SUB ) GO SUB - GO SUB t0 t@ t[A] GO SUB [F] GO SUB [K] GO SUB LPRINT q[P] GO SUB F LPRINT qFN GO SUB C wVAL$ GO SUB D LPRINT qTAN GO SUB E INPUT [E]ABS GO SUB OVER GO SUB COPY INPUT INPUT COPY INPUT d INPUT COPY INPUT [C]K INPUT INPUT COPY [K]SCREEN$ LINE IF LPRINT LPRINT LIST USR IF DRAW INT SCREEN$ SCREEN$ AT *:Jjjppp`j*<AT BRIGHT GO TO REM REM LPRINT LIST LIST PAUSE POKE PLOT ACS 6vtr@`P@0JJJ*:<,SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ **********[M]SCREEN$ TO BRIGHT IF IF DRAW DRAW RETURN RETURN TO BRIGHT AT [M]<*/p@P0t4[E] VERIFY BIN AND ACS INKEY$44TrppZJ<n INPUT (?CODE c[O] INPUT FN INPUT >=p[K] LIST BVAL$ INPUT STEP INPUT OPEN # INPUT VAL$ i OPEN # INPUT iLN INPUT COPY n INPUT OVER INPUT RETURN LOAD COPY FN INPUT 5 LOAD VAL$ z[ LOAD VAL$ z5 LOAD VAL$ zH LOAD VAL$ zn LOAD VAL$ zH LOAD VAL$ z COPY 5 LOAD VAL$ z COPY ▝ LOAD VAL$ z[E] LOAD VAL$ z COPY PI LOAD VAL$ zINT LOAD VAL$ z STEP LOAD CODE z OVER LOAD VAL z GO SUB LOAD LEN z IF LOAD SIN z LIST COS z LIST ASN z COPY Z LIST Qz LIST `zj LIST Qz* LIST `zz LIST Qz: LIST `z LIST QzJ LIST `z COPY !%)-159=#'+/37;?$(,048<@"&*.26:>ACEGIKMOBDFHJLNPACQGIKMOBDFHJLNPcACEGIKMcBDFHJLNcACEGIKcBDFHJLcACEGIcBDFHJcACEGcBDFHcACEcBDFcACcBDcAcBccRTRTRTRTRTRTRTVXVXVXVXVXVXVXZ/Z/Z/Z/Z/Z/Z/^`^`^`^`^`^`^`USUSUSUSUSUSUSYWYWYWYWYWYWYW][][][][][][][a_a_a_a_a_a_a_USCREEN$ A*[M]<SCREEN$ EXP MERGE qJdP LPRINT USR SAVE ` DRAW 0 DRAW DRAW IF MERGE b(jCHR$ )d ERASE )SCREEN$ SIN %ASN ASN MERGE SQR ASN MOVE IN COS i OUT f4▖[A]▘B[C]▝aCr FORMAT C4_];9[L] OUT ~D OUT ng_T3_YnEXP IN SIN [C]RND[B] READ " MOVE D2USR STOP [F] ERASE *[S]U OVER T PRINT DATA [HJI([C];[A][L]"USR e(b DATA ATTR TO UDSCREEN$ ▖T[A]_u LINE +(_ CODE @U▘▝aPEEK 0T SCREEN$ @ DRAW USR LIST @FN @▘PEEK ▝_LATTR EJ STOP DRAW COPY _ LET READ Q▘" STOP DATA (SCREEN$ 5+USR W COPY COPY EU(SCREEN$ V[M]▖▖/ COPY COPY JSCREEN$ !TV/ COPY IF T8(▗49 LINE feT MOVE ?@AT COPY COPY EXP [I] OUT LEN < OUT f<PI OUT zVAL$ #{uIN }[L] OVER CLS +7 FORMAT MERGE `SCREEN$ A(*[C][F]▘7{{|ABS OVER `o FORMAT ▝ POKE {z[D]LN ▛▝C<=W THEN VAL$ ▜UFN ! _CODE COPY RETURN >FN P PAUSE ▖ RESTORE >=C LIST CHR$ DRAW COPY _SCREEN$ /_USR CODE SAVE ▝ LPRINT @-^ RANDOMIZE FN aQ RETURN © LIST CODE LIST UQ▘P LPRINT LPRINT @@@USR USR DRAW 1_ PAUSE SCREEN$ [Q]@_ SAVE / DIM UTUSR @@ ` LPRINT p[A]@~/ IF TATTR ~ PRINT <"▝C#] LPRINT ABS PAUSE <|`© STEP ERASE 2>6 INPUT YA[I] CAT ,a▙o7a[C]3a[I]c@FN CLEAR RETURN USR RETURN a▚ ▝ OVER 0USR GO TO A TO POKE y INK LLIST ; PAUSE > CLEAR USR OVER AT <|PzSCREEN$ SIN AIN ▞~"`" 2#/8VAL >P|@ LPRINT (CODE V[R][H] COPY ▜TFN ▘b POKE ?USR ^CODE LPRINT U LIST LIST PEEK /x(0USR =` LLIST PAUSE BIN AEh<" LIST _ + LPRINT @@H▘ CIRCLE e POKE PAUSE STOP [B]a8 SAVE SCREEN$ gUSR [Q]V AND ) LPRINT LIST H[J]| SAVE T=}x LPRINT ▜a▚▝ OVER RETURN USR GO TO _ TO POKE y; PAUSE CLEAR USR @`A#11 [M]8`8<dx▙dy▙Ll CLEAR OVER n LET RETURN OVER RETURN CLS COPY COPY COPY COPY @a@@``p199$8[M]&x TO TO nx DEF FN GO TO n CLS OVER nq DRAW INVERSE RETURN CLS COPY COPY COPY COPY AA▖STR$ ▝NOT s▞ AND q▞ NEW &y INPUT , CLEAR OVER ~q RETURN OVER RETURN CLS COPY COPY COPY COPY ``▘q▚1[J]▙8[J] DEF FN F8<> DEF FN Fx TO DEF FN fy GO TO l CLEAR OVER INPUT LET RETURN OUT RETURN RANDOMIZE COPY COPY COPY CLEAR Y COPY [K]A~▘<>V[D]▞l[B]▞Z[B]▞6[B]▞l[B]▞Z[B]▞6[B]▖▝ COPY ▝[J]f[J][J] READ [J]▝▝▝▞[B]▝▝[J]▝[J][J] READ [J]▝f▝▝ COPY ▝▖▖▞v[B] STEP COPY }3© POKE OUT FORMAT [N][N]^[G]Mc^AT INVERSE ,PEEK ^PEEK *PEEK ^SCREEN$ PEEK *STR$ PAPER 3<> PAUSE 1 RESTORE ERASE ;g[D]7cSPEEK s[H] RETURN ?> DRAW k CLEAR OVER ©_?[S]SGN MERGE x FOR FORMAT GO TO w2SGN <&[C] OVER .PI[R]▘h$ACS p©ch▙<>[E][G]DSGN [Q]8pr( RESTORE ▝ NEXT ▖D RANDOMIZE @n|[Q]>>@[P] CAT BORDER @B[Q]'@sy8]` INPUT 0| COPY COPY COPY L~2 COPY COPY COPY 88||?> TO 9I POKE 53[M]x^@? PAPER BORDER INVERSE &SGN @9 LPRINT SQR LPRINT IN 0X#,[A]'[G]T/-IN V-"^[G]L DEF FN ZNLr? DATA ? POKE s[F]>i[P] OVER DATA COPY BORDER NOT FOR s~Z[Q]- FLASH TAN [RND PAPER # COPY RETURN p COPY COPY u LOAD CLEAR <= COPY u COPY COPY CLEAR p COPY (ATN [E](ATN [E](ATN [E]*P*P*P^IN CONTINUE f RETURN IF f COPY IF CLS |© COPY s FOR fTDATTR RETURN CLS H COPY LIST FN COPY [Q] DIM COPY CONTINUE COPY @ POKE DIM COPY © COPY COPY OR COPY COPY COPY [P] COPY COPY COPY IN [T]UU COPY 0 READ O COPY COPY RETURN X COPY COPY RETURN COPY COPY INK C COPY COPY COPY RANDOMIZE ? COPY CLEAR SAVE { LOAD POKE 9AT DIM {{ |PPT*SCREEN$ *00(Y::|{::p LIST ▖ PLOT !% CONTINUE !! LPRINT C ERASE G▜PEEK @ COPY OUT COPY [O]FN 8(0?U`© COPY `© COPY 0*SCREEN$ 8 [F]U OUT COPY COPY H DRAW OUT COPY w.SCREEN$ xU[Q]▞[S]K DATA IF COPY ABS LOAD ^USR REM CODE LPRINT t_~LN [S]ATTR |{::T{00{ (Q|* {<= DRAW =>SCREEN$ z IF Q[F]TFN @(▖T@(B▗[Q] LPRINT CODE PRINT @▘[Q]A LOAD RUN ▗ LOAD PRINT !SCREEN$ [Q]UINKEY$[Q]eVAL$ CODE PRINT u▚ LOAD RUN a* LOAD RUN T▗ LPRINT !▗[Q]!▘[Q]ACHR$ CODE PRINT CUSR [Q]x LIST ?]=LN ;▟ OVER :q BORDER INT pyspg NEXT VAL vo READ 0 INPUT gs FORMAT h8 BORDER [I]l[N] DEF FN Fn][Q] OVER g~ BRIGHT c STEP > STOP e GO SUB @vflf0ff0<C[M]: LLIST c CLOSE # FORMAT ▘FN LLIST A@ FORMAT LPRINT SAVE (~[U]~ SAVE =[Q]u@~FN RUN U CLEAR CONTINUE RUN P RETURN [U] RUN DIM z▗~[Q]=H COPY ~ DRAW # LIST POKE COPY RUN PRINT W# LIST DRAW ~ COPY STEP PRINT = SAVE } SAVE p4CODE BIN CIRCLE SAVE MOVE CLEAR MOVE CLEAR CIRCLE SAVE CODE BIN p4] SAVE %>=5 STEP USR 0%DO[S]_ ERASE IN DIM IN MOVE IN DIM IN RANDOMIZE _ REM _ ERASE / DATA H0USR ▝. LLIST q SIN @SIN AbUSR IN 'SGN FORMAT LOAD LIST vA IF DRAW LN LIST } DRAW ; CLOSE #:[Q]; CONTINUE ©ACS ASN FLN ^/USR <0▜ATN VAL y DRAW VAL ATN ATN s▚ RANDOMIZE ASN [N]LEN LEN LEN [O]1 DRAW ASN y▚8©LN ©▘`▘;qEXP DEF FN PAPER SQR [gONOT O LPRINT G NEXT LEN RANDOMIZE TO |sATN 'ATN 0ATN 0~ COPY c BRIGHT p&x.>p[M] p LPRINT )USR W[L]<USR COPY DRAW COPY RETURN /LN z TO wdINKEY$TAN PRINT ▛SIN U PLOT :t READ MSTR$ TAB FN Y CLOSE #R`[S]?<4,RJY[K]▖AT 7/INKEY$o_▛ OUT [P]▘.ZVAL$ Dt2FN `mmh OVER GO TO a<= LPRINT P DRAW QUSR FN LPRINT LIST LN 8 DRAW n DRAW LPRINT [G] FORMAT PEEK CONTINUE SIN I.A/[L]<>qx REM b FORMAT u( DEF FN ;IN v STOP TO STR$ <z OR ▙ DRAW ERASE PEEK NEW [Q]SGN ? FORMAT ©h$ DIM ( POKE Q RETURN OPEN # COPY GATTR tV VERIFY . FOR SAVE [USR `08|^ FORMAT /LxV~SQR pLEN U RETURN f INVERSE ![H] BEEP INVERSE F INVERSE ~ NEW SAVE O GO SUB CAT CLOSE #>2VAL$ CLOSE #! OPEN #"CODE CLOSE #CODE 2PI CLOSE #!u CIRCLE v CIRCLE LPRINT w GO SUB VAL 2CHR$ % INVERSE w INVERSE RANDOMIZE <2ATTR CLOSE #<2SCREEN$ CLOSE #= LINE X[H]=CHR$ y[I]!ATTR CLOSE #5CHR$ [I]6:VAL$ CLOSE #PI LINE @[I] INVERSE ![H] BEEP % INVERSE ~PI( INVERSE F INPUT ~ PLOT & SAVE AND IF TAN BORDER ▚ BORDER CODE GO SUB LN REM [N] BORDER PRINT GO SUB PI INPUT VAL INPUT [G] INPUT RANDOMIZE ▘ RANDOMIZE ▘yy REM REM RANDOMIZE RANDOMIZE REM ▘ REM ▘yyy RANDOMIZE RANDOMIZE RANDOMIZE LLIST ▘; LLIST LLIST zzz LLIST LLIST LLIST LLIST STOP STOP LLIST LLIST ▘▖▗S▛ [A]S▜▚▘▖SR▗[J]▚[A]RS▚▜[G]SRQ▗▚[A]RS ▜[F]SR▚[B]RS▗▜[R▚[▚ [C]R▗▜Z▘M[A]▜Z▗▘[B]▗▜ INK ▘L[A]▚▘[B]▗ K[C]▚[J]▚▘[G]▘▞ [A] ▘PV[A]▗/▘[A]▘OU▚▜▟_[C]▘▚[J]NT▚▜▛/^/[A]▗▚[D]_]_ ▚[I]^`^▚[▗▘BFDHF▚▗▘]▜▚Z▗▖AE▚▗/`^`/▘▗DH▛BF▘y RANDOMIZE RANDOMIZE ▘ REM REM RANDOMIZE ▘ RANDOMIZE ▘[ RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE yy REM REM RANDOMIZE RANDOMIZE LLIST LLIST LLIST LLIST LLIST LLIST ▘ LLIST [H]▜▘▘▗//▘_▘`BDHF▚▜▘▘▗[[▘^▘_ACGE[I]▚[E]ZZ▘]▘^▗_[C]▚[E]``]▗^▚▘[A]__]▖▚ ▘[A]^^▞[J][F] [H]]]▞[F]RND[C][J]___X[C][Z[J]^^^W[F]Z`[J]]]] INK NPNPNPNPNPNT▚Z▘RVPNPNPNT[C] MOMOMOMOMOMS▚`▘QUOMOMOMS▘▘▘▚[C]^▚Z[D]▘▘▘▚[C]]▚_[D] ▘▘▘▚▖NT[H]^▜BD▘HLJ▘HF▘▘▘▚MS[H]]▜AC▘GKI▘GE▘▘▘▚ PAUSE RANDOMIZE COPY PLOT COPY [H] [P] H w [Q]r[Q]r`s[Q]r`s LIST LOAD ; INPUT ? INPUT C INPUT G INPUT t0 LPRINT q PRINT LOAD IF LOAD COPY LOAD ACS INPUT (?CODE z THEN INPUT MERGE INPUT >=V LIST * FLASH INPUT FLASH INPUT DEF FN e COPY IN INPUT LIST INPUT RETURN LOAD COPY MERGE INPUT $ LOAD SQR z0 LOAD SQR z< LOAD SQR zH LOAD SQR z COPY T LOAD SQR z` LOAD SQR zl LOAD SGN zv LOAD ABS z~ LOAD PEEK z▗ LOAD IN z COPY ▖ LOAD bzSGN LOAD oz[S] LOAD bz VERIFY LOAD oz COPY EIM)5ANJFGKO)5APLHEIM+7CNJFGKO+7CPLHcIM)5ANJccM)5ANcc)5Acc5cc%1='3?>2&@4( LPRINT q LIST F LPRINT q LIST C w LIST C t LIST B INPUT ZS LIST 7 LIST COPY INPUT [Q]" LIST COPY INPUT nS LIST 7 LIST COPY INPUT t" LIST COPY SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ **********SCREEN$ INT PAPER VAL VAL VAL BIN [U][C]$2 0:<,,.VAL SAVE ` LIST ?USR @ LPRINT ?(GUSR ([I] SAVE $gLEN DRAW ▙`p▝ COPY >@aUSR ©Pp#x DRAW POKE g COPY O▜ LIST LIST C MOVE COPY K CONTINUE [F]H [A]▛FN A DRAW POKE <= COPY LPRINT LIST ▛ MOVE COPY K LIST UP TO JVAL # LIST ??USR LPRINT USR ?FUSR [I] SAVE pg SAVE DRAW LPRINT ? DRAW ?USR LPRINT USR ©NOT 0 LIST Hp[I] ©a#▝d !H@ LIST "?A▝ LIST <©▜ LIST &h !H LIST [B]USR LIST ?aH▘/[A]▗ 0 READ LLIST [A]>= LIST LLIST ▚'A LIST 8©0[F]PD/[Q]▗ 0 READ LLIST [A]>= LIST LPRINT '▝ LIST x©[I]CbD▘D FOR "HBA LPRINT LLIST C>!▝ LPRINT &~▗ DATA ▙B! STOP D@ FOR #(?A[J]USR LLIST ` DEF FN 3 LPRINT #>=r0GFN USR FORMAT q[ REM [U],=B/POINT [ LIST 5ASN !▗HrVAL FCODE USR MOVE LET [ REM [U],}BI/POINT ATTR SAVE TAN ▘0▞▘!a0 VAL [I]▘ CIRCLE .7dl DEF FN INT w▝T▜0▞▝!!`VAL !VAL [I] CIRCLE .7el DEF FN SQR w▝U8"$ @B[I]A LPRINT ▚Ha)[M]▘$DDH <B"0! [A]AUSR DC%[I] STR$ $D[C]&D@ LIST PAUSE ` SAVE OR COS /<=NOT RETURN pqP[K] RANDOMIZE [I]FN u PAUSE ` SAVE COS o<=NOT RETURN pqP PAPER 9[I]FN 51A@ OPEN #1#Ek[E]iTAN SIN H5[U] INK PI▝VAL$ PAUSE 0ATN IA`[D]!%i[J]I[2F DEF FN [R]K:/ STEP 0 RETURN PLOT ▗ H BPUSR ▜2cJ▗ ▖CHR$ D LPRINT ▖H@D[A]r"BIN ▘bD▝[A]` LINE FC&▖t# COPY DE▞u[A]![F]Aj! LINE F]C&>=t# COPY DEIu[A][F]▝j OUT MOVE POINT COPY VAL$ ) COPY LIST "© BRIGHT L COPY ▝ BORDER [R]5W.BRt STOP COPY z) COPY LEN SCREEN$ ? COPY INPUT d# COPY SAVE ▖/ COPY w©PEEK L BRIGHT CLOSE #BIN <[C]N8I-"p%.D LET $-D STOP "ZBRHUaPINT "YIe<[C]N8MMpE." LET D-D STOP "ZBQ(Ua0INT $YIe /ASN OUT F:@, LIST POKE " CLEAR /1 LIST O@/0ASN OUT :@, LIST POKE "$ CLEAR /1 LIST O% REM <=X* RETURN ACS iQD3 OR B+K[K]a.SQR XRJ OVER ACS <>ID1[C]J)3q[A]USR LPRINT $"[A] DATA U1NOT ▖F$HH RESTORE ▖▖ LPRINT F▞ "J$"%[A]U LPRINT ▖# DATA DH RESTORE ▗▞ LIST B▞0"JSCREEN$ [E]X~A STOP NEXT 2I& LET Fa"[B] LIST J[O]q READ BORDER VAL$ [F]Q RETURN SCREEN$ [F]P~q; LLIST NEXT ( RANDOMIZE F LET "▜ LIST eE|I[T] BORDER SCREEN$ [F]Q RETURN DB$M"1N!QSTR$ I&2d (B&M!1N!)QCHR$ H▖'4h SCREEN$ [E]X~A STOP NEXT 2I& LET Fa"[B] LIST J[O]q READ BORDER VAL$ [F]Q RETURN SCREEN$ [F]P~q; LLIST NEXT ( RANDOMIZE F LET "▜ LIST eE|I[T] BORDER SCREEN$ [F]Q RETURN @`A#11 [M]8`8<dx▙dy▙Ll CLEAR OVER n LET RETURN OVER RETURN CLS COPY COPY COPY COPY @a@@``p199$8[M]&x TO TO nx DEF FN GO TO n CLS OVER nq DRAW INVERSE RETURN CLS COPY COPY COPY COPY AA▖STR$ ▝NOT s▞ AND q▞ NEW &y INPUT , CLEAR OVER ~q RETURN OVER RETURN CLS COPY COPY COPY COPY ``▘q▚1[J]▙8[J] DEF FN F8<> DEF FN Fx TO DEF FN fy GO TO l CLEAR OVER INPUT LET RETURN OUT RETURN RANDOMIZE COPY COPY COPY CLEAR IF ,. PAPER ,^ PAPER .SGN PAPER [G]LN IF `jHz+{SGN }[O]=1N-9f?Qt>S LIST COS SAVE INKEY$x[U]<iA< READ LNOT ^ AND [N]. INPUT [P][O]m TO ] DATA !p: SAVE =|m INVERSE [K]>.INT 6 IF 4/▞▜)Gir▗ DIM :▝ DIM ▘ DIM DIM DIM ▜ DIM G DIM r▘ DIM :▘ DIM ▘ DIM DIM DqaH0 STOP ` USR LPRINT PI COPY CLEAR [T] STEP [R]ABS [N]RND COPY ABS COPY ,ABS T4▝l*[J]T7f GO TO ~ CIRCLE $ SAVE $ LIST ▝@[J]Z<RND COPY INVERSE RND OUT INVERSE RNDSQR INVERSE RND RUN ]RND INPUT INVERSE RND INVERSE INVERSE RNDSQR INVERSE RND COPY INVERSE ?;C NEW 7K NEW =KINKEY$KfJ NEW K NEW K[U]K`K LPRINT K LPRINT THEN USR NOT NOT B[H] COPY GO SUB [H] COPY GO SUB [H] COPY GO SUB % COPY TAN % COPY TAN [H] COPY GO SUB LIST VAL 0} NEXT E& CLS -R CLEAR [F] FORMAT > LINE OPEN #ABS JS▚d' PRINT $ LIST R RETURN 0zSCREEN$ R5T[R][R]I COPY GO SUB 0 FLASH LN >ATN SGN ©m RETURN COPY COPY COPY >=NOT © COPY RETURN K COPY PAPER [H] LIST m[E] COPY GO SUB ▜ LIST a▗ COPY LLIST ▜ COPY LLIST ▚ COPY a▗ATN !▗ GO SUB !▚ FLASH a▚ LOAD a▚ BORDER a▚a▗▝!|> RESTORE COPY COPY PI DRAW ?e COPY COPY INKEY$ CLEAR COPY COPY IN DRAW ? CLEAR UU? LIST SAVE ~ COPY COPY Op©? COPY L COPY ~~E MERGE ~ STOP LPRINT USR COPY NEW g COPY CLEAR LPRINT FORMAT REM vATTR FORMAT jvATTR FORMAT REM vATTR CLEAR LPRINT © COPY COPY RETURN qpLN LN VAL$ / COPY PIC▛a OR COPY RETURN COPY COPY COPY COPY CONTINUE ` COPY FORMAT 8$ FORMAT ▙c CONTINUE {EXP USR READ RETURN IF ▚ COPY LPRINT [M] RUN POKE ; LIST LLN " LLIST ▖8$0$4F COPY 3333 COPY COPY COPY COPY 8 LIST SAVE 6BIN #Lwg NEW SAVE ? PLOT o`|>0l?0v{|wy RETURN o BORDER SAVE NEXT STR$ <= POKE SGN CONTINUE z[P]▛ MOVE PAUSE FOR BORDER LIST COPY RETURN [Q]IN CLEAR `O PAUSE @3 GO TO USR ▙q LIST =SGN COPY COPY COPY COPY COPY COPY h COPY © RETURN COPY COPY h COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ©<=CHR$ `©a LET LET kh SAVE RANDOMIZE kl||kb>>©y© COPY COPY COPY COPY RETURN DRAW COPY / PRINT DRAW RUN ▝ BRIGHT NEXT COPY COPY [M] LIST COPY RETURN SAVE LPRINT RETURN LOAD RUN © COPY o PLOT COPY LOAD CODE PRINT RUN [H]USR DIM ▛ LPRINT MOVE LIST [R]© COPY COPY RETURN COPY COPY COPY COPY COPY LPRINT © LOAD USR LOAD `▜ COPY LOAD `NOT LPRINT ©▜ COPY COPY COPY LOAD }e|u CLEAR READ BORDER w DRAW u DRAW u COPY COPY COPY COPY COPY COPY COPY COPY COPY ©p COPY LN COPY INVERSE | BEEP / STOP RETURN BEEP © RUN COPY BEEP BEEP COPY COPY COPY COPY OUT } RUN COPY COPY COPY COPY READ COPY 9[M] DEF FN BEEP 88@©`P COPY X CLS / THEN / THEN / RETURN COPY . IF NOT ACS NEXT n FOR PAPER OPEN # RETURN FOR OPEN # RETURN COPY ©=[Q]u@~FN RUN U CLEAR CONTINUE RUN P RETURN [U] RUN DIM z▗~[Q]=H LIST ▗r CIRCLE (DPEEK RETURN ?8SABS AND LPRINT 9g LINE 4 CONTINUE 9 OPEN #3PIgMn[N]mw READ ▝USR 0%DO[S]_ ERASE IN DIM IN MOVE IN DIM IN RANDOMIZE _ REM _ ERASE / DATA H0USR USR SAVE BIN r? ERASE ©NOT CLS BORDER ▟ THEN TO |9WVAL$ ^ LPRINT READ o SAVE PEEK <|[H]|BIN [S]1 CONTINUE `G LPRINT pq▜▜8sP+P) LPRINT ~USR LIST [R]p FORMAT SGN CONTINUE SGN LIST ^ CONTINUE ^ POKE ^ CONTINUE PEEK POKE PEEK CONTINUE SGN LET | DIM |(P`LBIN $▖ 05[JPI BEEP OVER GO TO }x./O▙ RANDOMIZE ERASE CONTINUE DATA CIRCLE U SAVE RESTORE ERASE ERASE PAUSE RANDOMIZE f[M] AND INT AT | SAVE ) LET zVAL$ [M]?FN cBIN <>SCREEN$ A CLOSE # READ CONTINUE 9m[K]a▟!L@[M]aEXP r COPY INVERSE g NEXT j LPRINT [I] DATA IF [K]▗ SAVE TAB DRAW 8_ LPRINT x= LLIST [A]X[N][J]MM▝M▝MF[N] LLIST [A]=x_ LPRINT RANDOMIZE V" RANDOMIZE )FVAL$ STOP x LLIST ExVAL$ Z) RANDOMIZE "V RANDOMIZE @ FORMAT [Q]@ FORMAT 3 POKE COPY COPY h2L!▗ e[C]RNDJI%LM VERIFY W VERIFY ATTR ©[H] COPY ATTR o CAT COPY p0ATN ATN s▚ RANDOMIZE ASN [N]LEN LEN LEN [O]1 DRAW ASN y▚8©LN ©▘`▘;qEXP DEF FN PAPER SQR [gONOT O LPRINT G NEXT LEN RANDOMIZE TO |sATN 'ATN 0ATN 0~ COPY c BRIGHT p&x.>p[M] p LPRINT )USR W[L]<USR COPY DRAW COPY RETURN /LN z TO wdINKEY$TAN PRINT ▛SIN U PLOT :t READ MSTR$ TAB FN Y CLOSE #R`[S]?<4,RJY[K]▖AT 7/INKEY$o_▛ OUT [P]▘.ZVAL$ Dt2FN `mmh OVER GO TO a<= LPRINT P DRAW QUSR FN LPRINT LIST LN 8 DRAW n DRAW LPRINT [G] FORMAT PEEK CONTINUE SIN I.A/[L]<>qx REM b FORMAT u( DEF FN ;IN v STOP TO STR$ <z OR ▙ DRAW ERASE PEEK NEW [Q]SGN ? FORMAT ©h$ DIM ( POKE Q RETURN OPEN # COPY GATTR tV VERIFY . FOR SAVE [USR `08|^ FORMAT /LxV~SQR pLEN U RETURN CONTINUE INVERSE ![H] BEEP INVERSE F INVERSE ~ NEW SAVE O GO SUB CAT CLOSE #>2VAL$ CLOSE #! OPEN #"CODE CLOSE #CODE 2PI CLOSE #!u CIRCLE v CIRCLE LPRINT w GO SUB VAL 2CHR$ % INVERSE w INVERSE RANDOMIZE <2ATTR CLOSE #<2SCREEN$ CLOSE #= LINE X[H]=CHR$ y[I]!ATTR CLOSE #5CHR$ [I]6:VAL$ CLOSE #PI LINE @[I] INVERSE ![H] BEEP % INVERSE ~PI( INVERSE INPUT RUN OPEN # SAVE OPEN # IF TAN BORDER ▚ BORDER ▚ GO SUB REM [N] BORDER TO GO SUB [I] INPUT [L] INPUT ▜ INPUT y9 RANDOMIZE ▘ RANDOMIZE ▘ REM LINE RANDOMIZE RANDOMIZE RANDOMIZE ▘ LINE LLIST LLIST RANDOMIZE RANDOMIZE RANDOMIZE ▘ RANDOMIZE ▘ REM REM RANDOMIZE RANDOMIZE RANDOMIZE ▘- REM y RANDOMIZE LLIST LLIST LLIST LLIST LLIST LLIST ▘^^▞[K]▜WX▘UV[K]▖▞[T][K]▘▖^^▞[O]▘[A]▘▞/[O]▘[A]▚BHF[BHF[L]/[F]▚AGCE[L][[P] ▗[N][A]▘▗ ▜▖[A]▘ ▗▜▚[R]▚IJ▗ PI▚UV ▗ [U][K]▚BHF[H] ▚AGE[G]Y▖▜BHF[F]▛▞▞ /▜AGE[E]Y▛▜[▘▘BHFBH[F]D▚▙▘▘AGEAG[F]C RANDOMIZE ▘ RANDOMIZE ▘69yy RANDOMIZE RANDOMIZE RANDOMIZE REM REM REM y REM ▘A LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST ▖BL▗]▘[L] FLASH ▘]^▗▗DH[J]BLAK▘S▚ BRIGHT ▘[M]▗ BRIGHT ▗S▗▗CGKOP▘OP▘OPOP▘CGK▗▘BLR▗[L] FLASH ▘▗ FLASH ^▗R▗^ [E]AK▗Q▗[M]▗]S▗Q[L]▘S[E] L▗ BRIGHT R▚[M]▘R [E]_K]▗ FLASH ▘[L]▜Q▚▘Q▜▚ ▘[F]▟ BRIGHT ▜[M]▞[L]▗]▗[L] ▜▚▘▛ FLASH ▜▞[M]▗ BRIGHT ▗[M]▜▚`▘[D]]▞▗ FLASH ▗ Z▜Z▚▘WD▙[L]▗ BRIGHT ▞]▘▚]▜▚ ▘VC▙[M]▗ FLASH [L] BRIGHT ▘▚ BRIGHT Y▜Y▚_▘ MERGE ▘▟▖[M] FLASH ▘▗ FLASH [E] ▟]▚[L]▗▗ [E]▗[L] BRIGHT ▘[L][M]]▗^▗[E]`▘[M] FLASH ▘[M] BRIGHT ▗▗ ▖▘▗] FLASH ^▗^▗^▗▘▗▖]▗][L] BRIGHT ▗▗[J] IF COPY COPY [P] G [H] w [Q]r[Q]r`s LPRINT t^ INPUT INPUT INPUT INPUT INPUT t0 LPRINT qc INPUT th INPUT F LPRINT qh INPUT B INPUT Fdn INPUT COPY ************SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ [U] INPUT (?CODE ▜ INVERSE INPUT BORDER INPUT >=[O]K LET 'B? LOAD GO SUB INPUT * LOAD T LOAD CODE hZ LOAD CODE ho LOAD COPY [U] INPUT u LOAD RETURN LOAD COPY BORDER INPUT = LIST POINT zR LIST FN zg LIST PIz[B] LIST INKEY$z| LIST PIz[B] LIST FN zINKEY$ LIST POINT z[B] LIST SCREEN$ z| LIST ATTR zR LIST AT zg LIST ATTR zR LIST SCREEN$ z COPY SQR LIST SCREEN$ zASN LOAD SCREEN$ z AND LOAD SCREEN$ zASN LOAD SCREEN$ z COPY BEEP LOAD SCREEN$ z CONTINUE LOAD SCREEN$ z RANDOMIZE LOAD SCREEN$ z CONTINUE LOAD SCREEN$ z COPY [U] LOAD SCREEN$ z COPY LIST SCREEN$ z, LIST SCREEN$ z LIST SCREEN$ z LIST SCREEN$ z COPY ASN LOAD SCREEN$ z COPY DEF FN LIST SCREEN$ z OUT LIST SCREEN$ z LIST LIST ATTR z CLEAR LIST AT z LET TAB z COPY LET `z LET `z+ LET `z; LET `z COPY !#%'"$&!#%'"$&!#%'c cc cc ccc cc cc cccccccccccccc()()()()()()()*+*+*+*+*+*+*+,-,-,-,-,-,-,-./././././././ LPRINT [Q]1 NEW `[G][A]pP SAVE COPY LLIST LET TO TO NEXT LPRINT USR < LIST |CHR$ <NOT VAL LPRINT 22PEEK JaB`LEN LEN ▜USR ^b@.LEN FN PAUSE + RETURN q7 CLS LN / COPY BRIGHT / COPY L_ COPY PLOT _ COPY [T].LEN FN PAUSE + RETURN q7 CLS LN / COPY BRIGHT ,LS[G]6C LLIST LPRINT F10pA LPRINT !"$H[A]1[A]NOT USR LIST 0L3USR 000cCHR$ 1@;<= LPRINT LIST STR$ ▞>0USR -0L▙A▝ LIST Aa▝ USR @a LIST @_ COPY FOR _ COPY PLOT _ COPY INKEY$/ COPY L/ RETURN [M]3 PRINT SCREEN$ 8@ LLIST @'▛PN6/INKEY$/ COPY L/ RETURN [M]3 PRINT SCREEN$ 8 CAT !0[C]USR [C]RRHSIN LPRINT USR @0& `BIN [R] READ $[H] TO H[I]0[A] TO 10▖USR ▖HH#? LINE Z[J]USR ▝ CAT 0[A]0USR [A][Q] RETURN C STOP /010USR ▘CHR$ b82 RETURN USR @ 01▖[A]bH FLASH DATA >=▗[A]P LET P'ATTR Pg VERIFY X CAT &,L/ DRAW [M]3 LET 85VAL$ .FN 5.;8]TINT n(|T IF SAVE 8© COPY CHR$ LPRINT [I]eE CLEAR ▞' COPY GUSR 0[Q][Q]SQR ` STEP W LPRINT NEW RETURN LPRINT OPEN #]`POINT IN [Q]E[Q] ▛USR LPRINT ▝@'Nx? LPRINT c READ FN 0 CLEAR V[Q]SQR ` STEP W LPRINT NEW RETURN LPRINT OPEN #]`POINT IN [Q].LEN FN PAUSE (q7 LET LN ,/)S▜ VERIFY S[T] CLOSE # BEEP p REM o LIST tw FORMAT INT ;VAL ]5 CIRCLE .. CONTINUE 5XVAL$ ;LN READ <=2 COPY c9>[B]R&I[Q][D]USR p"▝[Q]G@▙J[B]8USR RETURN COPY # CONTINUE USR |PABS VAL [C]oG PLOT %6O DRAW G▛ INPUT RETURN `U OVER ` IF TAB @?vUSR CODE USR M CLEAR USR INKEY$INT USR S©@ BEEP LLIST / RANDOMIZE THEN ERASE _ INPUT RESTORE LET VAL ©r CONTINUE $=1 LET N CIRCLE SAVE L▟qPOINT VAL$ LPRINT T OUT LPRINT CONTINUE LOAD [Q]tw` IF kVAL |] FORMAT INT jVAL |wp@BIN SAVE @[O]TAB qA[P] CIRCLE SAVE c>[J]q0}0 REM ? IF q LET / CLOSE #b STOP FN RESTORE MERGE INT j0|]PINT j0|vpINT FN 0t BRIGHT P SAVE FN 0u LIST pQ THEN [S] VERIFY D/h▖c RETURN !P NEW &SCREEN$ SAVE (T[T]+@ DRAW @`A#11 [M]8`8<dx▙dy▙Ll CLEAR OVER n LET RETURN OVER RETURN CLS COPY COPY COPY COPY @a@@``p199$8[M]&x TO TO nx DEF FN GO TO n CLS OVER nq DRAW INVERSE RETURN CLS COPY COPY COPY COPY AA▖STR$ ▝NOT s▞ AND q▞ NEW &y INPUT , CLEAR OVER ~q RETURN OVER RETURN CLS COPY COPY COPY COPY ``▘q▚1[J]▙8[J] DEF FN F8<> DEF FN Fx TO DEF FN fy GO TO l CLEAR OVER INPUT LET RETURN OUT RETURN RANDOMIZE COPY COPY COPY CLEAR CLEAR <} RETURN SAVE >©q={ IF [P]#ASN _ CLS IN |} CLS LIST COPY LPRINT a PRINT bPI COPY u OPEN # RUN FOR CLS COPY + POKE {W CONTINUE COPY @`08/,▜;<= COPY GO SUB 0 FLASH LN >ATN SGN ©m RETURN COPY COPY COPY >=NOT © COPY RETURN K COPY PAPER [H] LIST m[E] COPY GO SUB ▜ LIST a▗ COPY LLIST ▜ COPY LLIST ▚ COPY a▗ATN !▗ GO SUB !▚ FLASH a▚ LOAD a▚ BORDER a▚a▗▝! BORDER * PAUSE J SAVE [I] RANDOMIZE ; PAUSE ] DATA ABS <>}<>z<>z[C] CLEAR [C] CLEAR [C] CLEAR [C] CLEAR MERGE [C] CLEAR ]@▘]pB]|b]s2]L:]p]@]@]A80b]L@▘]x]xR COPY PAPER R COPY PAPER R COPY PAPER "SCREEN$ ▗[N]UY▜VAL$ LLIST COPY ] COPY {SQR PEEK [M]p:VAL$ READ ▟L<= AND ▟▙NOT ▟cY CIRCLE f RANDOMIZE l02`4&rFs, MOVE LET ▟COS CONTINUE /;|~8?x INPUT ? PLOT n RUN READ CAT LLIST RUN USR COPY USR COPY ©~▝USR LPRINT @ LLIST LPRINT 4($,]@PEEK [Q]©P[S]FN COPY FN COPY FN COPY FN [H] COPY GO SUB [H] COPY GO SUB [H] COPY GO SUB % COPY TAN % COPY TAN [H] COPY GO SUB [H] COPY GO SUB [H] COPY GO SUB C CONTINUE [Q]@K[U]K`K LPRINT K LPRINT THEN USR NOT NOT B TO TO TO TO COPY COPY COPY COPY COPY RUN COPY RUN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY © CLS COPY CLS COPY COPY NEXT NEW LPRINT LPRINT TO TO TO COPY COPY COPY ^. COPY RUN COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST COPY COPY COPY o IF o IF 3BIN @8 SAVE USR COPY COPY ©USR ? OUT OUT USR USR COPY COPY COPY COPY ?USR USR ? OUT CAT OUT ? OUT CAT OUT ?USR USR USR ?USR USR COPY LPRINT @,? ERASE [P]INT <= CAT }c NEW CLEAR CLEAR NEXT RUN CIRCLE DIM COPY COPY OVER [M] CLS RUN PEEK ~© COPY © COPY ? RETURN COPY U[F]UU PAPER [R] DEF FN GO TO _U OVER LIST CODE CLS [P][O]IN -O CAT RUN '[R] NEW [L]Q|CODE AND ATTR SAVE W LLIST ATN PIc VERIFY a7▚ CONTINUE xj CAT LET PRINT BORDER BIN IF RUN BRIGHT COPY COPY RUN COPY © COPY RUN [R] DRAW ©SIN |xZ<a_ RANDOMIZE AND / INK STR$ ? COPY SCREEN$ ? COPY Um RUN ATTR x COPY MERGE LIST IN CODE LLIST _ BEEP STOP LEN INPUT PRINT x DRAW (O# FLASH ]LEN LIST IN BEEP RETURN } CLEAR SQR FLASH ySQR ? PAPER CAT OUT BEEP LN + OUT VAL$ DATA UATTR MERGE [S]+ CLOSE #m MOVE RESTORE 9POINT kI/ ERASE >)LN [Q] BRIGHT ▘/LN z TO wdINKEY$TAN PRINT ▛SIN U PLOT :t READ MSTR$ TAB FN Y CLOSE #R`[S]?< LIST ▗r CIRCLE (DPEEK RETURN ?8SABS AND LPRINT 9g LINE 4 CONTINUE 9 OPEN #3PIgMn[N]mw READ ▝USR 0%DO[S]_ ERASE IN DIM IN MOVE IN DIM IN RANDOMIZE _ REM _ ERASE / DATA H0USR e[C]RNDJI%LM VERIFY W VERIFY ATTR ©[H] COPY ATTR o CAT COPY p0 LLIST OR READ [S] OR [C]<>SCREEN$ MERGE PEEK CLEAR ^ IF N PAUSE * CLOSE # CIRCLE I[C]COS STEP COS STEP 0YFN X)STR$ .©/:7<jT STOP LIST 2@4[Q]1 FORMAT READ CONTINUE LIST COPY USR RETURN LIST CAT 0065<p THEN LPRINT STR$ INPUT SAVE LPRINT © LIST / COPY /<^_G▚9N`` FORMAT FORMAT USR OUT LIST Z!l[S],SCREEN$ SCREEN$ d[S]!Z OUT LIST USR [P] RANDOMIZE H0[T] OR TO 3▛[D][A])[A][A]I▞[B] TO 3[T] OR 0H[P] RANDOMIZE ▖<[O] CONTINUE LIST /] FORMAT LIST CONTINUE <[O]▖ READ o SAVE PEEK <|[H]|BIN [S]1 CONTINUE `G LPRINT pq▜▜8sP+P) LPRINT ~USR LIST [R]p FORMAT SGN CONTINUE SGN LIST ^ CONTINUE ^ POKE ^ CONTINUE PEEK POKE PEEK CONTINUE SGN LET | DIM |(P`LBIN $▖ 05[JPI BEEP OVER GO TO }x./O▙ RANDOMIZE ERASE CONTINUE DATA CIRCLE U SAVE RESTORE ERASE ERASE PAUSE RANDOMIZE f[M] AND INT AT | SAVE ) LET zVAL$ [M]?FN cBIN <>SCREEN$ A CLOSE # READ CONTINUE 9m[K]a▟!L@[M]aEXP r COPY INVERSE g NEXT jUSR COPY DRAW COPY RETURN /LN z TO wdINKEY$TAN PRINT ▛SIN U PLOT :t READ MSTR$ TAB FN Y CLOSE #R`[S]?<4,RJY[K]▖AT 7/INKEY$o_▛ OUT [P]▘.ZVAL$ Dt2FN `mmh OVER GO TO a<= LPRINT P DRAW QUSR FN LPRINT LIST LN 8 DRAW n DRAW LPRINT [G] FORMAT PEEK CONTINUE SIN I.A/[L]<>qx REM b FORMAT u( DEF FN ;IN v STOP TO STR$ <z OR ▙ DRAW ERASE PEEK NEW [Q]SGN ? FORMAT ©h$ DIM ( POKE Q RETURN OPEN # COPY GATTR tV VERIFY . FOR SAVE [USR `08|^ FORMAT /LxV~SQR pLEN U RETURN INVERSE INVERSE ![H] BEEP INVERSE F INVERSE ~ NEW SAVE O GO SUB CAT CLOSE #>2VAL$ CLOSE #! OPEN #"CODE CLOSE #CODE 2PI CLOSE #!u CIRCLE v CIRCLE LPRINT w GO SUB VAL 2CHR$ % INVERSE w INVERSE RANDOMIZE <2ATTR CLOSE #<2SCREEN$ CLOSE #= LINE X[H]=CHR$ y[I]!ATTR CLOSE #5CHR$ [I]6:VAL$ CLOSE #PI LINE @[I] INVERSE ![H] BEEP % INVERSE ~PI( INVERSE
