| Is a part of release: | Denizen |
| File size: | 65280 |
| md5: | c33198b4199eb2a4fd21f92258253770 |
1
0BIN :POWER OF SOUND PROTECTION SYSTEM COPY FN a RUN CLS vCODE ! RETURN GO SUB OWELCOME IN ANDY MAN PROTECTION SYSTEM GO SUB ^| GO SUB G<w, DRAW $wo6<><!1^ RESTORE 2[L][ INVERSE LLIST 1 TO ]G INVERSE THEN [I] INK GO SUB _ LPRINT VAL$ w# SAVE 3z▞SQR ATTR CODE [P]▝BIN OPEN #8-29[I] CIRCLE USR dc COPY [R] GO SUB K OR 0 CLEAR _[Q] E LINE IF [M]AT RUN CAT ▙AT ([E] RUN SCREEN$ |POINT CONTINUE =JRND DATA M[T]K0[F]|$rC[F]POINT 3D[I][Q]VAL LIST OVER STEP IXCODE [L] INPUT `[L]& BRIGHT ;VAL LLIST FOR LIST SAVE ▞LN EXP u RETURN FN u PLOT POINT E RANDOMIZE PAPER E LET FLASH E RANDOMIZE VERIFY ▛AT ESTR$ VAL AT [G]LN E MOVE E RUN ; 1$%q} OUT MOVE [K][O] PLOT [E]NCODE [K][B] PLOT BORDER TAB qh[J])[O]©tmWD^Pdx&VAL @ NEW STEP pLN * REM =YRCODE .@F ERASE N(" CLEAR xINKEY$ DATA SCOS MOVE IN PRINT W} STOP ▛SCREEN$ w▝?$ READ 71@, DIM GY BEEP h▜▖[B]D▙[L]FN SGN ERASE [I]< NEXT ▜Kf BORDER Xi1[ OPEN # RUN LLIST N, DEF FN >=LN 9GTf)[B](b/~1CODE ACS [T] CLS OPEN #r7/0INT xSCREEN$ STEP SCREEN$ [F]}[I]ATN ▘VAL ▚h6 [M] LOAD LINE /[C]QvCODE r[B] MERGE STOP "aACS CHR$ AT ` BEEP (USR W` RUN LET 3©uc THEN RUN BIN W LPRINT <=Q[R][Q]tQ{ STOP SGN FORMAT VAL eE BEEP [P]COS SCREEN$ ([T]<> FOR READ z▟) CLS 0▙COS 2=SQR PRINT 1NOT SCREEN$ ▟ NEW MOVE [L] LLIST LOAD ▝ LET INK FN DATA MOVE .- MOVE vUT;hLp. IF 6)/H IF SU©m5 CLEAR FORMAT H}qAT S[G]}% POKE 6[R]9TPs9uk1& GO TO )~dK CLOSE # RETURN {?lT]qINKEY$7>=iMMoCLN k@ PAPER _c=UyW[U]Mq6-_5W'[O]ASN d BORDER p DIM @ LOAD -][Q]0[S]6 n^%-OANs©e*'%WZLunPit~* PRINT `[B]CODE * DEF FN wJ DIM ^d OVER VAL ZFQEXP DATA SCREEN$ > STEP j! CIRCLE CIRCLE COPY 6- GO SUB VAL CODE OPEN # RETURN > STEP j STEP j NEXT !PEEK | GO SUB G= GO SUB ^w# DRAW wgl6NOT # AND is#r CLS v: NEXT >? GO SUB G GO SUB V> STEP j<> RESTORE MERGE OR PRINT CLEAR ©.& GO SUB a GO SUB [jzCOS CLS GO SUB i GO SUB [j GO SUB Sj GO SUB [jzCOS CLS GO SUB a GO SUB [j!"j LET STR$ MOVE LLIST CLS <>$ CLEAR © GO SUB y<> NEXT 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 CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>▛?:>>(h ▚ OVER INPUT PLOT NEW PLOT NEW (▗ PLOT NEW SCREEN$ USR COPY ▜SCREEN$ UhllUSR fNOT cllh READ (@ PRINT x@ FOR x FOR xUSR FOR )@USR oUSR `USR nNOT ` READ y@ FOR y FOR yUSR FOR z FOR *z▘ssSTR$ {▘kk▚ READ z FOR zUSR FOR { RESTORE ▝S@USR Kq(▝[▚▝0+USR USR CIRCLE <>USR USR ▝Tf▞▘USCREEN$ ▜USCREEN$ USCREEN$ TH{USR c RUN P*&▗@FN T6<B▘H| FORMAT [E]@ A[Q]USCREEN$ ▘▘▘E▗Q Tx@ INK ▝▖[Q]U*USR ▖*SCREEN$ TSCREEN$ 8USR ©DUSR USR ▘00 CLOSE #▚[Q]PFN P@(R|USR FOR } FOR }@ FOR } FOR |USR |USR INK ~ FOR ~@ FOR ~ FOR ~USR FOR |USR |USR INK ▞[Q] LIST SAVE DRAW LN |x|x(hx (2 PLOT INPUT OVER © DRAW [H]>>>>>>>>>>>>x(▘> COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY GO TO [I]▘VAL$ ▝A REM (USCREEN$ ERASE ▙*(P[Q] STOP SCREEN$ @D@▖L▝ RESTORE ▝8t CLOSE #▝FN USR H▝*▙07 NEW ▘TFN D▘TFN ▝[A]▖SCREEN$ U[Q]@FN A@FN U*8D NEXT TO ▘@N▘*PPEEK ▘[Q]@[O]FN TSCREEN$ U▘P SAVE ▖@@ACS ▗v@[Q]@W NEXT 6 DEF FN ▚SCREEN$ U(8SCREEN$ USR ▝ GO SUB ▚@([Q][Q] POKE p DEF FN RESTORE ACS CONTINUE COPY COPY COPY COPY COPY COPY COPY LOAD © IF VAL$ |x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x|x7 DRAW ▗?[R]▝U MOVE COPY RANDOMIZE ▝▘x▗TAN [U]TAN ▗x8UX@ RETURN DRAW SAVE LIST STOP USR [P]©(@USR USR ▖ COPY CODE STR$ ▙]U]EE GO SUB DIM GO SUB LPRINT M8 LPRINT >=USR ©ABS #' CAT ?~K▟ CONTINUE >=▞▖▚ DRAW OR [J] BRIGHT T BRIGHT T BRIGHT COPY RETURN RETURN U{I▘*?▜178▘ LPRINT USR PAUSE [H] [H] ▝PI PAUSE [F]:*:"#? RETURN DRAW DRAW POKE CONTINUE PSCREEN$ CAT Op▖ LLIST CHR$ 7 NEXT NOT @▝GUSR H▞ FOR H LIST @?CHR$ ▜:*;)POINT OUT USR LINE CAT <= LINE OR !( POKE ▗!STR$ QUSR RETURN STR$ BEEP SQR [S]COS ": @▚ COPY SCREEN$ COPY COPY MERGE BIN !W[A]▗▗ DATA jNOT ▝ LIST STR$ ▜8[Q]8▖INT x@CHR$ ![H][F]U*_/_5 COPY SCREEN$ [Q]USR LIST >=0j+ LINE xCHR$ 8@[H] LLIST @▝STR$ ▘SCREEN$ J OR xUSR CHR$ x@▝ IF ▞SCREEN$ DIM ATTR @LyCHR$ x▚?@H▞▞▖▖▞CHR$ FORMAT 1@PI LIST IF EXP AND xUSR SAVE ▝ LIST POKE 8USR CAT ▚ MERGE <▝< AND 1 LOAD ▟SCREEN$ COPY COPY ~IN ~IN ▝x~ COPY RETURN COPY RETURN ▟ SAVE ▗▗*IN *▗ AND 1USR ▞ DRAW RANDOMIZE PI VERIFY gWgWS`SgV0[A] BEEP PI3FB[S] PLOT [S]BF AND :R▝bUU COPY STR$ LPRINT LIST x<▙x@NOT x@@ ?▜H@▜O BORDER RUN VAL wpSTR$ wppw LET RUN LPRINT LLIST RUN LEN ▛pwvqvq RUN LIST LPRINT @ ?▗P[Q]PEEK ▝[S]:USR USR [P]?©5z<x=y=y(8▖I GO SUB hljooSTR$ `▗▘CI▜SCREEN$ NOT ▝▝(&▗ CLEAR }= DEF FN ▝@NC@▛ IF CLEAR RETURN /PEEK >[M]PEEK [M]PEEK (P>PEEK DRAW SAVE U COPY U@[Q]@JS[C] DRAW CLS POKE POKE RESTORE BIN [F]$U[U]BIN %RNDRND!VAL$ USR $VAL$ CHR$ ▝ SAVE PLOT ▜USR LPRINT LPRINT LPRINT @ LPRINT @CHR$ R▖POINT NEXT PLOT ATN wSTR$ RUN ▜ RUN @cW NEW W BORDER G BORDER W BORDER W▞S LLIST D LOAD ET▘czD AND ▙8z@CHR$ x@BIN CODE ▘p` AND <E REM LIST LEN rpwtpptwt LIST LIST REM ▘ LIST VAL X OR JUSR ▝[R]▜ DRAW JI COPY OR H▝▖ TO ▝ FOR FORMAT ▗EXP ▜NOT [P]▝_STR$ AND -▘SCREEN$ OVER ▛P RANDOMIZE !ATTR !NOT {USR [A]W LOAD ?© CAT USR ▝©<>▖ LIST |>>@▝STR$ ~▚T>8▗ RANDOMIZE LET LLIST STR$ 8▘<= CHR$ !▝ }-sCHR$ [E]CODE Wp8U COPY ▝▜ LINE ▜ RETURN DRAW IF LET RESTORE STR$ ▝NOT ▝} RETURN ▜ CLEAR CLEAR COPY SQR CHR$ 8▝SCREEN$ USR SCREEN$ QW CAT 8▗ SAVE LIST GO TO CHR$ BEEP zNOT ▘LEN ▚ RUN K▝}D@@▗ CLEAR CLS RUN CODE LPRINT ▝ NEXT 4▜ AND %&)*▚ COPY PRINT !▗UUF|x|x`_?© COPY COPY 2▖IPOINT ▗CAH<▗ CLEAR SCREEN$ @USR NOT ▝ COPY 1`@ OVER ▝(▝Hh x ▘USR ▝STR$ 8XBIN * PH !3x 0Bx (x x x`x@xABS x[Q]HUSR @ STOP xUSR )x LPRINT `@#yX STOP y ^X 1y OR Y▗ FLASH ▝E<=E8▘NOT BEE▝D.EE8A(;@ (>0O jE▝Fn▘FF CAT E▘B x4USR V([Q] TAN STEP MOVE POKE NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL ! FORMAT POKE COPY COPY O4<> GO SUB LN !LEN THEN USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT R▗▚OPN▗QRST▗R*LN STOP CHR$ LN ▝EXP ▝'@ ▟LN LN $LN EXP ,-+./01▖/!LN LN ▚PO@<▜▞LN EXP EXP @STR$ EXP ▚EXP LN ! ▚LN EXP =[?▝u▞▚PQR9USR ▛LN LN LIST ,[F]<='LN LET READ <=POINT fFN Oq LPRINT 4 MERGE <= ERASE J4hFN FN <>(FN INPUT ▖iSTR$ 7)I)nGPOINT POINT USR DIM REM DIM [H] REM . INPUT .# THEN TO cJ THEN K[T] AND ..@CHR$ ![D][D] CLOSE #T[E] MERGE [E] MERGE "▘lCHR$ ,$ GO TO ,9S[D] MERGE !AT ▜%/RNDl,.i▝ CONTINUE r▜INKEY$/ NEW fAT VAL$ p▝)t)p'.,niPOINT DIM REM )m▞/ FORMAT X/▖[G][F]▘[H]!▝ TO ▗GHI▗JKLM▘▚s▝O RETURN !u▖#$ STOP STOP VAL EXP VAL EXP STR$ VAL ▚ DATA VAL LN VAL ▛+s▘,-Au▟▙234▗56789:;▗<=>? TO 0o▝J{▗GH▜▖1 DATA ▝Q! LET O▞_▝LN i CONTINUE ▗EXP VAL t▚LN [R][S][T]EXP EXP ©/00EXP VAL [U] BRIGHT RNDVAL EXP ▘[A]o▜▜EXP INKEY$PIFN EXP ▗▘[B][C]o▜▞EXP LN EXP ▚!Y7▝0 CLS TAN $EXP LN LET NEW READ STEP <=n< BRIGHT BRIGHT a[T]Gq NEW ▚▟<=[A]ATTR [L][L][J]n.i72 BRIGHT // BRIGHT OPEN #S CLOSE #//S▚ FORMAT MOVE Q<=[I][H][I] ERASE nR▘1S▝&)▝Aa▗/ BRIGHT /▝ ▘▜ BRIGHT NOT '(POINT D▘▘F ▚G[D] BRIGHT BRIGHT /*<=[G]>=[C]/r/'[A]DPI'FN ;))NOT / PAUSE ///XL▘bP }[D] CIRCLE //b0}▘▘ FN INKEY$▘ AND ! INPUT ▘: [T]INKEY$[H]<=! [R] ![S]"[T]""[T]ACHR$ $[T][U]$[T]RND%INKEY$&RNDINKEY$CBIN BNOT (''FN [B]▙)SCREEN$ ))BIN OR [C]//I BRIGHT /q LIST LN EXP &'EXP [E]PEEK [F]s▛[G] ![H][I]IN [J][K]LN #$EXP [L]USR [M][N]LN ▖&'LN [O][P][Q][L]▜LN LN LN k▘VAL VAL ▗EXP EXP YH TO LN LN [S]#▟▜EXP LN ~ CIRCLE INK ©f▘LN EXP READ LN LN ![C][N] LOAD [J][U] BRIGHT THEN spIsps:jz▛▙ RUN 7▞ INPUT STOP ▘ REM <N▚ BRIGHT [F]/y*"/▝ PAUSE {▝ NEW LEN [U]"CHR$ NEW .09= MOVE 9=A:FNOT STEP ▗r[K][F] OR TAB ▗[N] STEP TO [N]USR ▞ OR NOT ASN ▗RND POKE AT ASN STEP AND %▗SGN OR DRAW TO CLOSE #▛ MERGE OR OR DEF FN -BIN OVER DATA GO SUB ▛ THEN ABS ▗ POKE CLEAR TO ▝YcSTR$ YaiYqy▝▞▝xST▘USR <>▗rz▘▞r[D]SIN [C][K][S][C][N] f▜ATN % AND % OR x▝BIN a▗-▗▝▗f▗& RESTORE +EXP M▘ OR f▗ OR 5=C K▘li▝{ ZY/,0pi:CCHR$ :BJ:RZbj▗Zr{SIN xv▚[K][S][F] STEP DEF FN % LINE STEP ▘ DEF FN ->= STEP ▗<>YcEXP pNOT ▟▞y[B][L]STR$ [B][J][R][B]POINT LEN EXP STR$ LEN <> OPEN #<><> MOVE INK <> LLIST DIM LET RANDOMIZE ▗ CONTINUE FORMAT >=▝u▜<| OR USR hp CLS LIST ▖t▟ OR [I][Q]FN TAN CHR$ OR ▖[A]NOT ▝ STEP ▗0-▝▟ OR OR & RESTORE -USR PX`AT EXP BIN = INPUT E8@HSQR LET DRAW LU<=▛▛@P TO ▖aq▛▛ RUN ^ RUN x PAUSE D OR ▛OaqqCF@ LPRINT B▝SCREEN$ OR ▗& RESTORE ([I]4 READ ▖&M LINE Zjz@INT ▘@7%loCODE CODE FLASH / LIST 0%}▖w77C TO ▖676 Wp▞( DIM ( DIM Ii▞POINT pVAL LINE <> REM LINE *Jj▚Dc|[H]77USR ▚77" DATA [H]1qRNDe▗ OR NEW % LET LEN AND ▚Ff▚FINKEY$ AND BORDER USR g'Gg'▜PI<= BORDER ▝[Q] THEN p[H] WM▜"b[A]VAL BEEP W▗44Tw^▘"l▗nniaUSR n▗CCVAL$ .▝.▗ INPUT ▘ LINE THEN ^▗▛ TO ! INPUT !▟ACHR$ STEP ▟M▟ STOP bPOINT POINT ▘▞NN▙ DEF FN OO|▗.n@@$STR$ OUT __VAL$ . LPRINT F.nCIOCHR$ n▝AVAL ▜<> INPUT nd INPUT n▜A<=VAL$ .DVAL$ ▖▚eRND/INKEY$ THEN VERIFY ▖[C]K TO _ TO STEP L▛?llIN [A] BRIGHT STEP LPRINT NN▛/ BRIGHT / CAT O FORMAT y▘'XBIN EXP *EXP LN &CACS [Q]?▘▗▘▚▖[C]*2H8D DIM Q ERASE [C] OPEN #R OPEN #SNOT 6[J]X ! LPRINT ▖▝VAL )▝O $EXP VAL LN EEXP LN LN $▘[H]$5PVAL VAL @AB@CDEF▝D7▝GG▝K7h▝LN ▛BIN VAL v▝VAL &[G]▛ABS )▝EXP @r9▗LN LLIST CHR$ STOP USR NEW STR$ CHR$ ▚ NEW NEW STR$ ▗!%!)-15▝-EXP SGN 9EIMQ▝J58▚▙ STOP STOP ▝ STOP CHR$ CHR$ [D]r[G]CHR$ STOP STOP ▗CHR$ [K][O][S]0▝ STOP 0▝ NEW ▘CHR$ STOP /USR STOP [A]CHR$ USR SGN AT OR [U]SCREEN$ CHR$ NEW LPRINT LPT-▟!&>B STOP NEW DATA @DH TO 4BF IF lASN FLASH ▚z3[S]*5% MERGE BIN /bbkCHR$ bmATN ▙ STEP TO r[K][T]SIN [K]RND STEP & RESTORE 9 IF USR [L]1x NEXT sMOQ NEW READ <=.K OVER [H]J DEF FN [H][I]SQR [I]▙ LET NEW NEW STOP NEW LPRINT Udhnr STEP STEP >= ( MOVE LPRINT CONTINUE PRINT [L] STEP STEP USR 8Db|▛ CLOSE # PRINT 4Qq▖ DIM [T]<>LN NEXT q IF INPUT ▝9 CAT C LIST INPUT NEW STOP STOP R IF DATA ▗ LPRINT AT VAL TAN ▗LN SGN USR BIN ▝SGN %[A][L][P][T][U]x RUN SCREEN$ SIN SQR AT 4]SIN ACS IN TAB q#SQR IN NOT OR q? THEN CAT OPEN # MERGE 1SQR READ PAPER STOP READ OVER k|<> STOP @x▝AT Py%VAL$ ▞ GO SUB LET PRINT PRINT CLS ce RETURN 9J[E][I][O]▘@E1 CLS [C]1 CLS ▝▜STR$ ▝(A CLS :F NEW LOAD LPRINT "` NEW LOAD LPRINT @ PRINT ▝ NEW RESTORE Mpx▖BIN SGN CHR$ >@b NEW RESTORE r7R$nSCREEN$ NEW NEW Nv▜ BORDER ▛[A]z▚B[D]R IF VZCHR$ NOT ▛▖z[D]sr[G]^b RETURN fj▗▚[K][O]B▗orv[S][F]USR ([P]▛▛CHR$ STOP z~▘CHR$ CHR$ NOT ERASE VAL$ ..+BIN ▛ ERASE CHR$ ERASE SIN CHR$ OPEN #4 CIRCLE ▗1 RESTORE %WSTR$ ▝$BIN RUN POINT ▗vd[H]4[L][E]ACS <=▘ CLOSE # PRINT ▖t CLOSE # PRINT READ MERGE ▗[L][E]TAN BRIGHT ▘C▝ATN !-[T] BEEP ,USR ▝ -▘7 gm▘76 3▘Ttx@u▝TAN @W+ u W▝ATN [N]▝[N]r[H] CLOSE #▗ j▝▘▚COS NEXT 3W6%▛6POINT REM & LIST ''n+▜%^▗'PI CONTINUE . OR .q[U]" READ {▝hx▝lO.#[E]▗)7)l▛▝n2▝ DIM xAT .n,-▘ GO TO )5AT TAN -nxAT !"▝.^ RESTORE m<=n▗., ERASE Q LLIST STOP ; AND [D] CLOSE #[S]b:tNOT C(▖▝,x7)DD*[S]▝,[D]8▘NOT ,n▚n,,CHR$ ,~▝,unnA0-▞8yVAL NEXT aUSR <0▘2 MERGE ▞ RESTORE REM *T MERGE )SCREEN$ ▘ CIRCLE p▟▛▛. GO TO .l.l▝.)▝,[C]8p NEXT pCsr READ geeged RESTORE a NEXT ▗=sr BEEP CHR$ a▘` INK [P]7s` BEEP OR `SCREEN$ AT CODE ` INK sr1ar BEEP `VAL SIN TAN ACS LN INK ar[M][O][Q][M][S][U]INKEY$FN ▗RNDsqq PAUSE ▘EG<>sIEXP K▝q )7 00 @70$ 3X▘q@x▝[O] y▘PI0Xs▝ao`arNOT qaq`s RUN ▛rXZ/^`b^aa▛▚r STEP CAT MOVE ERASE )LEN [J]▚r MERGE Y] VERIFY H DEF FN ▜ss` MERGE [_ ▘V7▗_ INVERSE OUT Q FORMAT THEN 0 COPY P RETURN ▝<aaCF▙ STOP STR$ UY^ DATA 6 BEEP ▞STR$ aeimpB NEW READ dI▞▘ REM PAUSE CLS [I] PRINT dSQR k#+0P INVERSE d[L]NOT eSQR ;CKU PRINT OR STEP STEP OR eATTR ksmASN !IU▞TAN ▝ STEP ▗ STEP ▝1=7SIN ASN ▝% STEP OR N Q▗STR$ IUUSIN Q▚ STEP OR ▗/aY{▟▞ SAVE CIRCLE READ &L STEP [K][L][M][M][N][N][P][O]M)^▘ VERIFY BRIGHT / CIRCLE -'▝ CIRCLE ERASE ▘ CIRCLE / STOP ▘ BRIGHT BRIGHT d PAPER READ RnR CIRCLE X/ BRIGHT X▗ CIRCLE SS BRIGHT -▘ BRIGHT BRIGHT MERGE ▘NOT BRIGHT 1▝B▟▚[J][K]D OR 1CHR$ NOT y▚[N]▛▟▘|[R]▝TAB ▘XX BORDER ▗XXI CIRCLE J▚XXJ_J THEN ▘// STEP ▝ THEN MOVE USR BRIGHT ▘/MH STEP _M MERGE ax{▝@ LIST x LIST ▘[M][O]p LIST <>0 VERIFY ▗/▜>▝ CIRCLE ERASE CIRCLE /▞>#▝/▖▞1▝Xu▝ PAUSE P-O OR ▘<=>=?IN u NEXT ▘H<>? DEF FN @xq` TO ▛/X5 BRIGHT .CODE /VAL 0ACS >=[A]XX7ATN 11SIN 2COS ZATN 6[H][COS TAN 4ASN //pLN % READ ▜V VERIFY VERIFY NEW VERIFY FLASH k RANDOMIZE ▛6.<xLN LIST BEEP a STEP ▗=CHR$ NOT <=v+6▚~v COPY ▝ VERIFY BC LN m STEP TAB VERIFY VERIFY V063▝wSGN INT 7!▘-v-▘wFBVAL$ l, RESTORE BRIGHT {▝@]▘ GO TO %▞▝B_[E][I]▘l[P]- ` LLIST 6{SQR DRAW <S8▗R LLIST a[E]&<SGN CLEAR =U[E] MERGE ▞▞ INPUT INKEY$%x CLOSE #▚H<>.8AT .© BEEP ▗,,E[J]▛nnGGVAL$ ,,![R] GO TO STEP ▛a THEN ▚ GO TO .!a▟bE[F] LLIST a OR AND ,,CJVAL$ nDBIN CUSR AT ,,-STR$ [▗/,Fh▛,%?^ STOP ,,U[F]{▟% NEW / NEW f▗<=AT V[G] BEEP ATTR NEW LIST '.CHlW[H] CIRCLE TO ▝gb▖B▜TAB CIRCLE [I] INK YATTR 4[D]A AND GO SUB Y PAPER ZAT ,<,,TAB -VAL$ /y SAVE Y▚]^_`aN{▗ NEW BORDER CONTINUE DIM >=▗ REM DRAW CLEAR FOR ^[F] CIRCLE ▗ GO TO RETURN COPY GO SUB BORDER ▗▗ CIRCLE ▗ INPUT LOAD LIST LET BORDER ▗▚P PAUSE NEXT POKE PRINT N^[Q][Q]JRUb▖ GO SUB sq LOAD qq STOP LPRINT CODE ( REM COS Y▚▖RND OR <= BRIGHT ▗7< BRIGHT PAUSE ▚,LEN {CFl▗[D]$PEEK RUN R#*▗)[F]* PAPER ▘>0D/b.INKEY$.▚▗r.INKEY$v STEP & NEW VAL$ )LEN ▝ OR _VAL$ NOT OR RETURN CLOSE #▗"*2▝"BJBoO[G]_▝ LET $ SAVE [B]n@%tEXP MOVE @xG*/[G]▘T<.j/[G]LP/B/ STEP <= ?;- PLOT ▝>=?,@▘ OR USR ?J PAUSE ▝=[S]▞▜_USR U?M▗ OR OR THEN ]19▗ OR THEN _▝=NOT M▙ OR ]<=*;[Q]▖[G]PEEK +[A]SQR XN-|WS CLOSE #yEXP VAL LLIST r OVER BRIGHT PAPER [H][C]qNOT STEP STEP <=▞ NEW ' GO TO ,85 CIRCLE p LLIST NEW ▞▙v GO SUB TAB ACS [H] RUN ▜</xLN lVAL i▛VAL LN UVWLN LN EXP l DATA iLN XYZ[/LN LN l RETURN ▘VAL EXP "[M]LN LN ASN mnmnmmbcdef DRAW ijB▝ CLS M RETURN $P▛LN ▜&'LN LN W0@▜~ CIRCLE INK ©USR 0▛▝ !LN EXP !EXP ▝ DLN EXP D▛EXP EXP LN ZLN EXP $>=▘LN [D]* BEEP ▗[E]PEEK [F][G]a[L]~USR CHR$ &Oom/1©35pINT SGN PEEK USR CHR$ H CIRCLE BEEP q7▝9s0▘B▗=?A<>0▗0 CIRCLE OVER STR$ PAPER ▛ BRIGHT BRIGHT BIN AND >= LINE TO PAPER ▜ DEF FN FORMAT ERASE MERGE ` LIST ▘VX()▖`b_2478[O]▞s'qqp,.18 FLASH ▞/}+-p8:=STR$ ASN N|<= RANDOMIZE [J]ATTR [A][B][R]INT jz▛?M[L]USR EXP v LPRINT |▝ STEP OR NEXT NEW fPI GO SUB FLASH [L]@&W[L]▛▛x. BRIGHT ACS /x%&'An BRIGHT LPRINT SCREEN$ AT P VERIFY READ STEP <=▛[G] THEN [F][F]ATTR STR$ ▝2[G] OUT ▝<{// LINE RETURN & CLEAR ▝ BRIGHT & RETURN ▝ STEP [J]&▟ COPY THEN ▗ BRIGHT SCREEN$ ATTR +}▜6ACS ACS ATN 6 FLASH /$▜TAN COS BRIGHT /5 BRIGHT VAL$ WSIN ▝+ACS FW DEF FN ▗TAB VAL$ /[USR ACS 6W INVERSE ▝X REM BEEP V▝X@o' CONTINUE e DRAW ▝ BRIGHT Z'Y▝ BRIGHT & DRAW ▝BZ'YXXxLN VAL ▚9:;<=>?= CLEAR DATA M ERASE ▚VAL LLIST a` OPEN #$pP▝9 GO TO ▗r0*qr "$Y] >dfh▘k#0▗rtv#PI LIST ▗OaNOT ▜0▘q+[M]▚[H]8x LET SAVE ▝ STEP I OR ▝q[H] READ <=]▝ RUN ▘ INPUT .(▚ INPUT n@VAL$ <SGN n<I▖ BRIGHT yEXP LN LN e▖LN LN 01 OVER [G][L][L][E]t▗[E]tINKEY$KLZ[G][I][K][G][Q]EXP PAUSE ▛ PRINT *YSCREEN$ 2 STEP INKEY$l0 MOVE ACS [I] NEXT sa THEN STEP <=< ERASE BRIGHT DEF FN NEW e POKE AT REM 4w8p STEP EXP ▝c BORDER ▗& NEW [▛ CAT ▜[L][J]SGN THEN [K]p▞[L]▛ ERASE SIN >={[L][J] BORDER ▛[I]C NEXT C#8[I]ATTR "[B]Xcscr2K▛ FORMAT LPRINT 2KPEEK k[L]▛▝b{[L][B][K]*11@[C]ATTR ▛1@M LINE Q BORDER ATN <= GO SUB ▟[H] SAVE +jz[Q]VAL [A][Q]VAL m▞[A]@Pq▛▛pPEEK [F]SIN CHR$ ERASE LN RANDOMIZE [R]SQR Ff▚R2@ SIN ▝.▖(HHh▖FN >=▖ DIM DIM Ii▞POINT i<> INPUT <><> REM LINE *Jj▗W78[H]AT ▝%▛7e▙ RESTORE eRNDe> PAPER ▗% NEW Fo{FINKEY$ AND BORDER USR FOR ATTR THEN CONTINUE MOVE PAUSE PAUSE GO TO ▚TAB TO Ll▞SIN LINE ▚74ATN 2 BRIGHT w RESTORE ▘T NEXT [M]F▙[K][O][T] STEP ATTR skm7▘- TO X{▘x NEXT NOT AT [K]7.<[M]:l LLIST OPEN #g[I][P]01>d TO FORMAT <>[J][R][D]Sb▜sf[G]SQR y▗*SCREEN$ LINE RUN ATN [C]AT BEEP w+Kk[H]77W ▗ATTR THEN GO TO MERGE ▟TAB ACS STEP GO SUB TAB TAB AT LlAT BEEP [E]▟ GO SUB STEP TAB TAB TO GO SUB -[S] PAUSE CONTINUE DIM ▝% DIM p GO TO ▝ NEW DIM p GO TO DEF FN ▗"Qmq▗[R] MOVE ▖d▝ DEF FN g▝[H] LET ▗q▞)dVAL$ POINT ▞POINT v|q LINE d▙ LINE jVN▝ATN l▝8RND▘7T v▘ATN @xed▝.Px LPRINT d▘d THEN [R][R] [R]![S]"[T]""[T]#[U]$[T][U]$RND%INKEY$&RNDINKEY$CBIN ''FN ▖(POINT )SCREEN$ ))BIN OR dkV▚/q/▘ |▝q BORDER ▚▝[F][G]Td[I]G>=KF;ABS ▝>=K▝▟▘x NEXT CLEAR ▝a▗n▚▙S CIRCLE R BRIGHT DEF FN NOT ▜[O]+LN LET LPRINT c6z[I]h MOVE CIRCLE Y IF m STEP [H]▜4h DIM ngaD▝ FLASH INT ▘ BRIGHT DEF FN POKE ▗ OR SGN [M]IN ▝▞ LLIST NOT ▜▛ OPEN # POKE <9▝ BRIGHT t;[L][L]v▚<p LIST / DEF FN ▞EXP z▗H INVERSE ;/[A]▛A REM [[E]ACS LPRINT ▖ DIM I▞#t CLOSE # PRINT TO 9▖!▖ BRIGHT a[S][T] CLOSE #USR EXP VAL $VAL <>EXP J=$/[B] OaMOP ^`csarUln[C]▜ NEW JLO5▚▘▗ CONTINUE ▘▗%▙sp&"*▖▙[A][C] REM [A][D]!Q[G]▗ GO TO [O][R]#sv▘RND▝▝▞jsvY▝▛{sv▘qr STOP F LLIST ▝^O▝ PAUSE R▝jtw▝l STOP [P](POINT RESTORE @FN ▗: CLOSE #▝)~ FOR }PSTR$ ▖[Q];[S] NEXT [B]ATTR AQ▛CINKEY$▝N▟COS [K]<7{ PAUSE RANDOMIZE POINT PRINT W>=CHR$ $$▗[A]@ RUN [A]@0tH[K]**R>=*COS [F]H▖$ CIRCLE VJPI}""# CLOSE #G▝[T]USR O>. CONTINUE [J][F]qq[Q][N]Q NEW ▝[R]@P OR D/▞85(([G]▝&[F]P@` FORMAT [Q][C]I$ POKE FN ZfX P{EXP p *▟ >▝ PAUSE <[U]$$[C]J`H LPRINT NEXT F▘h:t REM FORMAT ©@ CLEAR # POKE 'SCREEN$ O FORMAT /z▘ PRINT ""H▞BTAN [B] H[Q]USR [A]D▝▗ LLIST OUT MOVE AA▜tFN DLEN BFN GO TO ▝▖▞" IF ▜ CLOSE # B FOR SAVE LEN (B[S] CLOSE #@ REM >/RUSR "▝ PI▝AT I[E] FOR 'AT FORMAT .▜ g[U]""$B RESTORE >@ FORMAT LIST 5H@ p0Y(#INKEY$@ PRINT MOVE USR [R]- CONTINUE U' IF CLEAR ! COPY @<= FORMAT A REM t(:▘: LINE ▟▝#>=Q[E]([S]l▜@ D BEEP Q dD[A]( @`Ph STR$ "[Q] INVERSE MOVE ;▗▘POINT Vr▝RNDr OUT T$[Q]hPr[Q]Q[Q]▝BIN +[E]▞ INVERSE CAT USR G[T] CONTINUE I PAUSE [U]SGN [S]▞H▛4 COS HPjSGN [K]:@"DH▖ CLOSE # RETURN R-FN uQ LINE =P▜ POKE P▗x.[T]I' LLIST ATTR DATA CLOSE # IF RANDOMIZE |ABS [O] INK STEP AND @PISE[R]FN USR MERGE [Q]y>=;[S]"[0k▝3USR D▘v(IN IF 2▘H$STR$ ▝[S]VAL$ USR `q$DDHSQR ▝9 LPRINT ZVAL 1XZ,[Q]P&:9ATN [M] INVERSE DIM PRINT PAUSE SIN }X~$USR D[R]NPxCODE T POKE "ATTR x-[P]USR SAVE W CLOSE #$@ LPRINT w▝VAL REM ▘[A]">=▚▝@▞A@USR ` TAN H[Q]B+USR ▝ DIM *|[A]PEEK ([J] BRIGHT ▞LB▙[R]*▗UUSR *pPLN [R]STR$ D[Q]N▜@p,sTDSCREEN$ LPRINT Z% BRIGHT [A]▘@ RESTORE ▚@8▙[Q]p0P LLIST BEEP DLP[O]$[K] LLIST [[C]^/ RETURN COPY !©[C]CODE [Q]Z LIST z CIRCLE ▛E LPRINT SGN KD[K][C]@FN AT LPRINT |PI@ l RUN c▟<> ERASE k LPRINT LIST [Q]%J▝K▘P [A][N]CODE ▖ LIST ▘VAL HTPO FOR INKEY$ @P"[R] LIST +PEEK 0l(M▜USR VAL ]6▜]VAL USR C6▘0l▘@A>= $P<=▘[Q]EXP @0P CONTINUE ▖▞$ GO SUB INT RANDOMIZE 5 DATA _▗IN DRAW USR CODE /LN -p[P]B▖[C]"I) FORMAT [P] SAVE USR ▜FN SCREEN$ ▜▜&e[R]^ LPRINT BI$[A]VAL `!@VAL ▘B0▘G▛[H].[U]▝S[S]VAL$ AT LPRINT uJb. DATA |>= LET OR [C]%N<Ex[B] LPRINT ▖▖▞& LIST ▜ REM :▚ LPRINT ,▜SCREEN$ sVpUSR % FOR ▝, NEXT 8*_QX[I] THEN ▝`NOT ?▝ READ ▝k▘&[B]|[Q]C LET REM CODE [F][P]O OVER GO TO < LPRINT Y STEP LEN FORMAT r▝eCHR$ MOVE ATTR [O]▛LN q[L]CODE DRAW STR$ ) FORMAT WLN B*O* LIST WSGN LPRINT ( LIST POINT 3▘ REM [K]#"%"d[E]AT <>it<>[G]2 GO SUB & CLOSE #AT LIST EXP STOP ▘A BRIGHT A #B[R] [C]B OR f]▚}TpVAL$ INPUT XR[F],▝▗BIN [G]>=[E][I]!T0#FN C0"FN PI% TO ▛▙STR$ _SCREEN$ ▝%[E] C0([E][U] $▘vIN !0q0Q[I]EXP PI3INKEY$q ERASE ▞$[C]B▘BIN ▖[A]DPTp CIRCLE D+FCODE ]CF[N]$[B]$[M]USR @BIN @&@[I]R&VAL 2Z1)2bACS jW DATA ;2[Q]4LN MERGE 4[Q])STR$ q[R]kR CAT OPEN # LOAD RUN INVERSE ATTR <T} PAUSE ▝ LIST CONTINUE DEF FN IN h LPRINT ▟STR$ 7Ek&▝P[S]CODE FORMAT /SCREEN$ [Q]T)M[O]▘r SAVE C DIM ([B]$[F]▙:Q FORMAT @GRND^9ASN BEEP AND ▝▟▙TAN > POKE CLS [T] OPEN # RANDOMIZE $[C]IUSR NOT ▚[K]8▙a CLOSE # OUT *T CONTINUE ▘ LPRINT RND<= MOVE ▝BSGN [Q]/R</A.!/[A]POINT CHR$ R RESTORE ▝b LPRINT LEN qX SAVE ,SGN ^ RETURN / LPRINT [Q]USR XBIN bT/_ATTR POINT FORMAT P*[T][F]>= STOP ! LET SAVE VAL$ rYSIN AT P: TO OUT . LOAD IN NEXT W SAVE FN <D|IN K▝BIN ▖▞pSCREEN$ @k▝dc%a[H]&?[A]"#USR ▘uHFN U" DRAW [I] SAVE )w0$▛&▙[S]M*P ▝SCREEN$ ▝DF▝! POKE `H (P FORMAT ▗<@T<>$X*u▘P OPEN #"▝G[A]EqrLN pPOINT @2@<▝▖u%▝D"5 GrFN [F] CLOSE #%-▝ f.g&▜8T@ LPRINT 0I" INPUT ▝)ATTR p$~+ CLEAR ▝D#)▘▞[F]@7INKEY$0Z▘ CLEAR ▙▝H[Q]UR+[Q][N]BIN LPRINT 4[C] OUT ▝ 0▝IN ▖[Q]JT:[N]▙*% FORMAT ▗▖[Q]©▝T8▙H4FN xp 8P[U]D PAPER / DIM ▝D7(@@0POINT F LLIST E OR INKEY$O8 DIM W[J]▝[A]%TFN [F] PAUSE USR Gp BEEP .<= LINE 9▝F▚`USR ▝8INKEY$[Q]GQ[U]▝ IF |B<[F]j CAT } RUN t CLS 3 CLOSE # CONTINUE Z LIST /(5MN LINE [C]H▗G FORMAT )[Q] OR T▛[F]U IF /▛*a CONTINUE TAB pFLN # INPUT [Q]t©z>TAN ▙▟F▝PIKNOT [F]▞ LPRINT [Q]USR POKE ▗hHt:<J:IN !@▝ MOVE ▝STR$ K[S]<># LPRINT U+ LLIST STOP 8 ERASE [R]▖NOT ▝B$H[C]~>x CLS LPRINT LEN OR c▘ AND ▞O:[M] PAUSE STR$ BIN ▖K▗[H]O▗[B]N[Q]PEEK |A8▘ PAUSE ehUSR SCREEN$ t REM THEN USR U>=! GO SUB E[I]LEN `[Q] STOP %USR _><C SAVE ATTR NEXT W LOAD PEEK OUT . TO [R]*Z:rY[H]LN N CLOSE #AT PAPER FLeJF-'SIN %6d"% CONTINUE PIPOINT $[C]^X LIST INVERSE IF FN ASN ▖0CHR$ ▘0SIN [L]▛▙/2[F]9@1▝B▝9A▘*1@▘#▝4[E]!CRND▚J▗ TO HH▝H3[L]▜3:nTINKEY$t@ GO TO !/@>=▘▖A[I][A]▝▘ INK @[L][B]PIWPCHR$ ATTR USR [S]l*8($[A][T]BBIN ▘$ POKE c[O]▞>=v CLOSE #TAB ▞l[I]<>▞I[C] MOVE 5▝R[B]1#E !F [C]Zn▘ h▝ GO TO t▘$ FORMAT FN 4SGN XUSR [D]▖SCREEN$ POINT CODE DIM [P] DIM SCREEN$ AT CODE GO TO [F]I0▝[H] ▘ATTR GO TO l#g▜@ OVER ▞▝[K][J]▗FN d▝▜ LINE G#POINT %3 RANDOMIZE ▘DD6 REM ▗8ZSCREEN$ POINT X>▛▖[E]X[E]X[C][E]P CLOSE #I"▗I VERIFY $Q RETURN FN SCREEN$ UN DRAW ▖[H] DIM ATTR AT [F]I▘ GO TO [H][E]▚SCREEN$ POINT [P] TO IN DIM FOR F DRAW [O]PBBIN Q PAPER T▗>=)U@▖&"[E])jT LLIST COPY CHR$ ATTR U LPRINT ▘$▝▝W7▟P [K]L#▖5U COPY COPY IN [O]HJINKEY$<>JUkfLSCREEN$ INVERSE [J]2ATTR [2 COPY RETURN UT[B]H[F]U©"Q MOVE SCREEN$ j[O]SQR _CODE [O]ATTR _ COPY NEW SCREEN$ [A]4D[C]% COPY DRAW LPRINT 8up PRINT CLOSE #;▝_T.▝_U;[C] FOR ATTR MERGE READ BORDER Uv<SCREEN$ [T][I]MV[P] COPY USR )USFINKEY$ATTR [P]?[P]]>}>INT | IF }pFRND NEXT UP[C]D[G]SCREEN$ CODE COPY LIST *R[B]T DEF FN f-Z[M] LINE :ASN 9[E]ZASN COPY COPY SCREEN$ SCREEN$ P▖▖ZFN HZ8 FOR ▝*POINT CLS IF ATTR RSCREEN$ FN ▗y[Q]SCREEN$ TFN FN U INVERSE POINT CLOSE #@[F]DH MERGE H▘[E][U]H[C][E][E]>=[A]T[M]▜ STOP CODE STR$ [P] GO TO TAB c FOR ▘[H] DIM FOR COPY SCREEN$ POINT [F]LCODE DIM [H] GO TO CODE CONTINUE ][F]U LINE SCREEN$ LLIST [H]) FLASH [E]RND![I]▝H[F]%J[A]▞H@[C]I▝▛[A] CLOSE #FN POINT MOVE USR STOP LN ▝D PLOT READ /% DRAW P@LN STR$ LN P LET [C]W NEXT PRINT S PLOT TINKEY$VPPOINT ▛AzkXR▗+U[A]^▘A%▖$:$# READ USR J▝PI[B]*[D]UY/ OPEN #_ INK UY*[D]▛/ INK US_ OPEN #U+▙ [R]FN @FN $▘@$$ OVER ▗=▚ [A]@▚[B] O@▛D@DD LIST a LIST `p▘ LIST A0▘@[B]▞_/▘*SCREEN$ STR$ COPY ▘ASN UATTR ▘UjFA<* LIST ▟SCREEN$ ATTR INPUT COPY INPUT RETURN SCREEN$ ATTR D FORMAT POKE ▝i▝@ ▘▝!P@[Q]USR LPRINT USR LPRINT USR [Q]0▙▝▝@▙▘ LPRINT ▜ LIST SAVE LIST # LIST #▝w▘D@ OR USR LLIST :[U]L OVER ▝▚p VERIFY ▗@DE#▗ LPRINT LIST >▘ LIST ATTR ▝@ DEF FN ▝ LET @ REM H DEF FN 0SGN o▙▝[S] LIST [S]d`▛[U]I[D]0I[U][T]IAT [T]4A[Q]ATTR U[U] FOR =©[U] COPY 4USR de COPY AT COPY 5Pp @$▗SCREEN$ ASN U, COPY FOR COPY BEEP P COPY CONTINUE dd>= FORMAT /▝CODE @SCREEN$ SCREEN$ CIRCLE hYUjATTR Y RETURN k COPY HUSR >=▝ INK Pp▛k COPY I[B][B][D]g RANDOMIZE CODE PRINT k[L]iINKEY$[K] VERIFY [G]FN a2▜`▙VAL COS [A]H[U]<>[D]&CHR$ ATTR ▝ATTR ▝▘22dUSR "A AND `NOT ▝(>=[F]▝ BRIGHT ▗9@ THEN 5 INPUT OUrSCREEN$ |FN SAVE SAVE U}I▛ IF [F]]* LIST w IF RNDT▞ LINE SCREEN$ IN COPY LPRINT U_ TO COPY ▞ PRINT U@ COPY REM SCREEN$ FN ▙▛UU RETURN SCREEN$ RETURN LEN RETURN READ RETURN MOVE P▞ RETURN [T] RETURN RETURN RETURN SCREEN$ UUSTR$ FSCREEN$ SCREEN$ U©©USR © READ © OR @▛ AND COPY AND COPY COPY USR SCREEN$ COPY UTUSR ▟UU COPY RETURN x TO COPY ▝ RETURN P▘ COPY @$▗DA INPUT >=[M][B]POINT COPY COPY MERGE U[Q] ERASE RND[Q]I MERGE REM [R]UTCOS STEP P▗@STR$ 9 DEF FN PEEK r▘D+STR$ ▝1$ VERIFY 2 CLEAR ▝&▟[B][D](XVVAL `USR ( LPRINT X RUN ▝q▜[E],T LPRINT THEN ▘F ERASE PI(▝/ SAVE LPRINT /▝"'<=▝DCHR$ USR %▝+WCODE ©▘ RANDOMIZE ▜USR F*x MOVE ▝$,[I]▘▚F[R]PI ERASE READ HQa@9[Q]r[I] CLOSE #: OUT CAT [N]"$DC READ AND ▚CH@ REM POKE |STR$ [B]I$ @[Q] FORMAT jC` FORMAT I$[C]USR LIST SAVE p[Q]P▙@PVAL P/n FOR ▝ SAVE [J] NEXT COPY ^VAL$ WK▙▗/J[M]W` CAT PAPER [I]G DEF FN C OR cRNDrCHR$ LEN @P`0[Q][A] P▝ RETURN ▝D8CHR$ [J]1 LIST CAT [Q] COPY Pz[Q]u REM FORMAT @[Q] ERASE [R][B]@ LET ▖tACS ▖} REM CLOSE #S[E] ERASE ▚h FORMAT [Q]^▝/ACS [G]C@ STOP s AND [A]RND DEF FN TAB CJ INVERSE ▘ NEXT ▝ RETURN %KNOT MOVE _ PAPER INVERSE ;0&G▝▝▞D SAVE DP LLIST +f+l▝ @|KSCREEN$ LPRINT MUSR @[T][A] REM ▝[S][B]USR (JRASN INPUT LIST P$<>CODE ▝>=8▘@H0j©▝`0p▘) FORMAT x▝[Q] ▝t▝OBIN ▜VRND LINE V[R][G][Q]USR V[U]STR$ RNDY▗R[A]UD LIST ▖▖ PAUSE UBATTR ▚UVSCREEN$ 2#[T]INT ▝K▘▝K▝O INPUT ?? (▟▜EXP SCREEN$ RANDOMIZE [A]`[B]▝* DRAW [Q]# CLS ▗U"STR$ ▟[ CONTINUE IN [Q]h5^FN DE OUT ▞©TAB MERGE T[S]USR [S] IF ▞SCREEN$ @USR EE`▝ PRINT Z▝P▝jf▝[Q]D▝[Q]PI_,~▘▙[R]▝!c ERASE [C]▛POINT T INVERSE RANDOMIZE ) DRAW [M]P%)$3J▝▞▗▛-[E]▘INKEY$sg`HDEXP [J]@[Q]x LPRINT @L USR USR FN [A]n[G]%@B▛KA DATA <> THEN [T]ATTR CB▘▟AZSCREEN$ AUSR V[R]&▝ z▟;@,[U]▝$[P]FN B▝"CHR$ ▞BIN SGN jT[H]h+[E][F]aA[J]TAN STR$ [D][TAN [C]COS X)!R▘>=▖SIN u[S]B DATA XUSR ▟@*[A]h@▖ COPY m>=$[E]#USR (0*FATN mdAJ REM T▝©XFN B LPRINT ▝&N~[S]{[O]@)[Q]▘USR ▘AUSR @&F NEW [C]$[C]BAT SGN USR VATTR LIST -p0 CIRCLE 0▜ DATA VAL l!STR$ [I]. BORDER ▝`▙N LPRINT IF ) OVER -/[U]o READ ▗$[B]t▖ IF JSCREEN$ G RETURN ;[C]▜ IF [Q][S] DIM CHR$ { STOP S CONTINUE 7 LIST OPEN # RANDOMIZE 7 CLEAR USR A[H]S RANDOMIZE w LET DIM 7<>S RUN I ERASE THEN POKE FORMAT LET RUN ERASE PAUSE ASN ▝?2▘@$[R]UU? COPY AIN [R]?-!? OR 0[Q]9} RANDOMIZE = CLEAR RANDOMIZE CLEAR ▝H[N]s RANDOMIZE CLEAR ▖ RANDOMIZE }FN 97LN ▞<RNDPEEK [R]?IN ▝A? COPY [F]▙lZO NEW STR$ en/ PAUSE pEXP ▘▗[Q]cINT ▗D SAVE ▙▝U9▟t▗2AT ▝D $▜ RUN © RUN ©UU[S]JP$ NEW ]POINT $ PAUSE h[A]T RETURN SCREEN$ RETURN ~T DRAW SCREEN$ | SAVE TpUSR r▚VV▝ FLASH ▙©~©?U>* PAUSE _[H]^TUSR RETURN p RETURN SAVE T|SCREEN$ DRAW T~SCREEN$ T%[H]P[M]]@▛UU?*~$.0$&[L] BRIGHT i[K]FVAL$ &ASN ~ POKE q5b^V3 CONTINUE ▝<>2I▝gTAB !Q FORMAT POINT USR USR USR USR MOVE ""H@@ LPRINT @NOT A@USR @A LPRINT @A▝@ PAUSE ▝ CLEAR N▞ LPRINT [U][J]ATTR PRINT U INPUT ATTR CLEAR U RETURN CLS CLEAR CLEAR _ IF .^▝Y▝'[R]▛F[O][O]PEEK >SGN >=[M]/ CLS ) DRAW ▗© TAB STOP yU DRAW PEEK CLS S LPRINT LIST i SAVE DRAW CLEAR RANDOMIZE COPY DRAW OUT R THEN ▗ CAT LLIST ▝ THEN CLS USR EXP ZRPOINT VRUSR EXP VERIFY zPOINT =▝[Q]COS i COPY IF COPY LET COPY ATTR CLS LET LET IF LPRINT LET USR z COPY RANDOMIZE COPY NEXT COPY LIST _ RESTORE COPY NEXT REM RESTORE e▝USR *IN -p GO TO PI PAUSE DRAW ▘ATN ▞ RESTORE W PAUSE CLS GO SUB O PLOT S READ PISTR$ NEXT BORDER COPY PAUSE PEEK INKEY$[S][Q]PDTU PAUSE [U] LPRINT U[U][Q] LPRINT `[U][C][U]@$ H[L]▚AAI▚$UjUSR USR FN ASN [L]OLEN ▞▙_ BEEP OUT ABS CAT COPY [H] COPY STR$ ©[H] COPY CAT ATTR [K]SCREEN$ USR QIN W RETURN COS DRAW VERIFY COS BEEP RETURN SIN /: DEF FN s@[P][N] CAT :[P][K][O]jtUSR &L[I]: INK NEW PI NEW BORDER [N] CAT DEF FN USR USR IN CLS [I] STEP USR VERIFY ©[L][K] COPY POINT [D]&L COPY FOR 9 STEP p FOR ? STEP `~~jyPOINT OPEN #{RNDL[J]2*▟/r▙tSCREEN$ yT DRAW VAL$ y BRIGHT DRAW LPRINT DRAW ▜Y DEF FN ;#[B] FLASH CAT i▚Z CLEAR ` CLEAR DRAW DRAW REM yTTAN [Q]<[C][Q]TAN ▜@>=USR SGN ( DRAW REM [R]TAN SCREEN$ y/ DRAW RETURN CLEAR LPRINT CLEAR i▚[ CAT `▖>= BRIGHT DRAW INPUT CLEAR CLOSE #xSCREEN$ CLEAR Tx[Q]TAN |pHpHpHLP[K]▝H▘ VERIFY CLEAR SCREEN$ ▚|np[A]p[A]p[A]▝t▛3INKEY$PI[K] OUT TAN [C]5/55c@[E]*TAB %TAN ▝▝.[M]LN =ATN c▝USR ▝ LET RND[K]▗▘H▜▖USR ▖USR [R]H▞FN ` LPRINT LPRINT ▝[S]%b▝[Q]X▝[Q]%▜ LINE ▛[P]7▝▗ H▚[R]` LPRINT USR ▜h LPRINT USR DIM USR BIN CODE h$USR [D]VwABS [C]UUSR GO SUB BRIGHT SAVE LIST LPRINT [N][Q]*IN >=+ALj BRIGHT USR TINT P^5VAL INPUT j[K]TAN :[E]j|~~|[T]j[E]:TAN *d>=>=USR POINT @[ LPRINT LN S@STR$ [USR IF STR$ IF A IF @ IF ▞USR INKEY$▘ LPRINT o▘RNDUSR #▗&U* COPY H[D]SCREEN$ [E] COPY FLASH j<>|>=~>=~<>| FLASH j COPY SCREEN$ H▗ COPY TAN U*[Q]TSCREEN$ - COPY /(U COPY V FLASH >[D]~~>[D]V FLASH COPY (U/- COPY TSCREEN$ VAL$ J*SQR ▝@YpwNOT p0:9: INPUT STR$ [D]zVAL LPRINT PUSR )USR USR >=[Q] LIST T CLOSE #b MERGE :p FLASH ASN b▘QG(B▘▙USR CR[D][B]*4H,▚pNOT T MOVE $[D]B %[F]*[E] $[Q]0I[R]F▗R▘ 9HAT TjV$X▛FN J▘;[C]UO COPY ▗>=P"<>▗ LINE <> POKE ▖▗">=U LINE 0$* FLASH ▝ECODE z INPUT Z PRINT 0$a▙SCREEN$ ▛ COPY CLEAR ▘POINT U▘ CLEAR COPY q<=▝@;=`$k COPY OATTR 9LN 6[P][E] COPY COPY NOT ▚w6n RETURN SGN ? DRAW SAVE OR _▘ GO SUB 9TAB L DRAW Gc|? REM ▘@▝ LET [P][Q]▘! AND 6 ERASE uR%n[Q] OR D.[R]GHn[B]2[L][A]T[U]%R▟RNDjUfVSCREEN$ CAT JSCREEN$ [F]J* RETURN USR [B]@([K]P[Q]▖5U: FLASH [H]@ POKE REM SCREEN$ [F]Uj"[S][B]5pjP#`P*$0*>?0.8.HIN #":& CONTINUE t* CONTINUE L CONTINUE c[S] FORMAT ;[Q][B] FORMAT [R]3[Q]'@[D][U]W@[D][Q]'D[B][B]#/4.P/ .`LN >=/dLN USR /kpLN POINT q LPRINT LN ▘ STOP [B]TAN q READ As[B] CONTINUE A FORMAT REM ) MOVE CONTINUE ! FORMAT CONTINUE FORMAT , DIM MOVE @ CONTINUE POINT FORMAT T DIM 9 FORMAT FN LLIST Aq LPRINT <>▝[R]8ACS QqBIN CHR$ LPRINT AND LPRINT F READ F" STOP 2H>=[C] AFN TWSCREEN$ IN UzSCREEN$ RESTORE USR ▝]A,▛GQVAL$ ▖<=@ DEF FN NEW ▖ LINE SCREEN$ PI LET LOAD CLS BORDER COPY [C] CLS LOAD CLS RESTORE RANDOMIZE LPRINT PPI IF FOR RANDOMIZE BORDER CLS FOR COPY BORDER CLS LPRINT USR [Q]SCREEN$ *▞KIN ~[H] COPY CLEAR . RETURN L▖M CLS RANDOMIZE CLS PRINT [O] CLS SAVE (:▘SGN #PUSR PLOT SCREEN$ cVAL USR f[M] LINE >INKEY$▖h GO SUB INKEY$3 COPY COPY SAVE COPY IN INPUT 10[B][B] DEF FN VAL$ INVERSE N@<>)!R▘>=`SIN u[S]B DATA @*[A]h@▖ STEP b NEW NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL !a NEW COPY COPY LPRINT %<> GO SUB LN ! PAPER USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN GO SUB sFSTR$ CODE OPEN # RETURN 2 OVER >= STEP ^<> STEP uUSR ▚USR |6 GO SUB VAL !LEN CHR$ [A]~ PLOT w## SAVE !| ERASE "1STR$ >2KSTR$ 27STR$ 2ESTR$ >2ACS Z2ATN LN Z2 VERIFY Z2 BEEP Z>0!:STR$ w# DRAW CODE 29STR$ >2U THEN CODE 2DSTR$ 2;/!STR$ "BSTR$ >[I]25STR$ >B STEP [B]>=vNOT <=!ph▗VAL NOT EXP BIN COPY RANDOMIZE [G] INVERSE B DATA F FOR D COPY LET G COPY SAVE E RETURN 6 COPY COPY FN 6▝VAL$ ERASE FOR 411468e+STR$ 2[M]_B' LINE IN CD@A&E%F()*+,-./01GIJH !"#$[F] DRAW DRAW POKE CONTINUE P<>USR USR USR USR ▝%▝@USR ▝@-▘ 5,( QB▝<!K") '8#▗4t40(,.,(!u[A]--USR - LPRINT - LIST - SAVE - DRAW - RETURN - COPY ▝ DRAW ▝ LIST USR -1[I]▗xxP0QTAN [A]19USR = LPRINT > LIST ?x?SGN ? OVER ? LOAD SGN ?x> LIST = LPRINT 9USR 1 B▗? DRAW ? DRAW PP1 PLOT <| DRAW = DRAW { DRAW RUN = DRAW DRAW |< CAT Pp@IN (@(A(B(C(D(E(F(GH@HAHBHCHDHEHFHGh@hAhBhChDhEhFhG▖@▖A▖B▖C▖D▖E▖F▖IN GFN @FN AFN BFN CFN DFN EFN FFN G>=@>=A>=B>=C>=D>=E>=F>=G CONTINUE @ CONTINUE A CONTINUE B CONTINUE C CONTINUE D CONTINUE E CONTINUE F CONTINUE GHIJKLMN[C]O(H(I(J(K(L(M(N(OUSR HIN IHJHKHLHMHNHOhHhIhJhKhLhMhNhO▖H▖I▖J▖K▖L▖M▖N▖OFN HFN IFN JFN KFN LFN MFN NFN O>=HVAL$ >=I>=J>=K>=L>=M>=N>=O CONTINUE H CONTINUE I CONTINUE J CONTINUE K CONTINUE L CONTINUE M CONTINUE N CONTINUE OPQRSTUVW COPY COPY COPY OUT $SG▛ OR [Q][M] POKE # RESTORE ! CONTINUE FOR LLIST STR$ NEW [B]STR$ !$S STEP REM BIN [L]STR$ !;S+[E]OG~[Q]LEN w$STR$ LET <>ACS P0=▜ PRINT VERIFY p▝<>$>=▞:8STR$ PI LINE 1 OR > CLOSE # STEP 1 OR :J▗U OR =2▛CHR$ m OR >2 INPUT AND ! CLEAR STR$ &[M] DRAW BIN !?CHR$ NOT DRAW BIN STEP NEXT <>!STR$ } THEN + CLS :KSTR$ = LINE u OR :[C]<>&. COPY STEP CLOSE #>=<>*1STR$ ~ RETURN ▝CHR$ OR Q8STR$ RESTORE 5▖[H] OR RETURN ▘CHR$ RND OR CODE ▜ CLEAR STR$ STEP DRAW BIN LLIST #Ur<> RETURN CHR$ AND OR RESTORE !CHR$ ▝~{ ▝{[D]▝7!▚ COPY TO AND >[O][L]~!LSTR$ VERIFY _~[U] THEN w LINE CONTINUE OR NEW ?RNDSTR$ &oUSR )[N]30 RESTORE !'▘ NEXT i▝<> BRIGHT 9STR$ <> STEP g AND :STR$ GO SUB CH MOVE [D] AND * MERGE OR STEP 1 AND STR$ MOVE !HSTR$ 4# INPUT <>p`▘`▘H AND p`▟) FOR GO SUB KHSTR$ STEP ` AND e IF <>!`P}LEN o<>6▝USR J[I]▜<_*?STR$ "?STR$ :STR$ ' STEP [J] AND CONTINUE ▘d▝ [A]CODE <ATN GO SUB R ERASE [K] AND AND 0<>v:9s[I] NEXT AND STEP &>= STEP EXP BIN STEP FORMAT AND STEP OR STEP AND STEP SGN <= INVERSE RESTORE INVERSE LLIST ▜NOT ATTR AND :7STR$ =[S]CHR$ PAUSE AND >D INPUT @2 FLASH AND 6[R]6TAB TAB -1H STEP <=<> STEP LPRINT <>2 STEP CODE <= CLS !_pRND▝ RUN RND▗&.▝ ▛x OR STEP [M]<=STR$ RANDOMIZE !©▗ GO SUB K?STR$ {[M]<=!<= COPY ▝ FORMAT ▛ RESTORE STR$ x RETURN COPY CHR$ :<=! OVER [K]79A RANDOMIZE 1CHR$ v RETURN fUSR "ABS BIN FORMAT ▘F0! DRAW NOT PI AND GO SUB _ NEW g GO SUB _FN o"▝v NEXT NOT VAL <=v OR SAVE ▘SGN <=▛STR$ <> OR :;/ THEN oCHR$ <=<=LN DEF FN USR GO SUB {FSTR$ <> NEXT :5STR$ G PRINT [I][R]CHR$ GO SUB s">=" GO SUB <=1NOT *3STR$ AND p2>=x MOVE s5S=p3O< RETURN [U]CHR$ SAVE <=1[K]_ CLS <>:DSTR$ GQ▝ OR ▘:Ea▜ESTR$ CHR$ CIRCLE <=*B AND ▞ LINE X>= RETURN ▝ LINE ~>= INPUT [K]▝E[K][H]BSTR$ NOT CIRCLE <=:ASTR$ < RETURN CHR$ b>=CODE 2ASTR$ G▜^#V#~ GO SUB S3STR$ ▚NOT ▝>= STEP CIRCLE <=H ▝T2▙<>!HXw,Pp0▜STR$ CHR$ [J]>=<>ATN ▝vp[G] RETURN © GO SUB x THEN G>=NOT BIN >= CLEAR COPY GO SUB aIN GO SUB i<>XY▝ SAVE b[A]| CAT RETURN {[M] STEP . CAT RUN c0▝ DEF FN } DEF FN STEP CAT #%[A]7 STEP ASN CAT LOAD COPY COPY PI[F] BEEP DEF FN OPEN # DEF FN ▟ CAT < RETURN J▗▜ CAT @%[K] DEF FN [I] DEF FN ( CLOSE #e▖ INVERSE ! REM >=: OVER >=▜▙o&q DEF FN "▝<>##"▛▜[F]<>*q DEF FN STEP PI%▗<>*s0▗4<>*um▘ OPEN #>=2▝ SAVE 2[H] INVERSE u INVERSE u# INVERSE t! INVERSE t$ STEP [F] TO INVERSE 6 INVERSE THEN PEEK SAVE ▝CODE 'TZ▖! OUT >= LPRINT >=)STR$ ▜> SAVE 2 NEW >=u OUT >=o OR y▝STR$ [D]▖ PRINT <>: OPEN #>=PI($[I]C▗~ TO LINE ~`▝4P<> INVERSE ~ INVERSE 5 LINE ( THEN mF ns[H]N 7 INVERSE ~PI( INVERSE 5] INVERSE ~ INVERSE F INVERSE w[B]LN (0 INVERSE ~ INVERSE wC INVERSE ~▛~ NEW DRAW PLOT INVERSE w1p7▝& 7▝7 THEN © 3▝3 INVERSE 6p1▝▝ FORMAT ▟ INVERSE ^w INVERSE f INVERSE n[B] INVERSE ~ PRINT ~ INVERSE ▚ INVERSE w STEP ▟ THEN LET [A] INVERSE 4 INVERSE ~ INVERSE VAL$ INVERSE ~ INVERSE w(I FN AT A INVERSE 5 w INVERSE ~ INPUT INVERSE w INVERSE THEN F INVERSE F INVERSE ~([A] INVERSE wO COPY [A]@w▝CODE VAL$ FOR FOR r+s<> INVERSE n INVERSE f INVERSE 6~ RETURN `(P RETURN a LINE . TO RETURN b LINE READ THEN RETURN c LINE d TO RETURN i LINE IN THEN RETURN RETURN LINE [K]▗ VERIFY [K]▚#~# INVERSE w1▚ INVERSE u INVERSE tAT ▚ INVERSE ~ INVERSE w▞▘ THEN ?▛▘6RNOT ' LINE 7▞ TO INVERSE ~PI OUT <<▜(▜![H] STEP N#F`▙q#p[C]▖ GO SUB D NEW 2 RESTORE >= DATA CODE 2<>2&<>2K<>! INPUT u▛PI(N INVERSE F: NEW >=[Q]▘B▝ RESTORE 0▘[A]! COPY TO <G CLEAR ~ INVERSE w#▝U INVERSE u LLIST FLASH ▘NOT 2[S]"= INVERSE w" NOT ▛ TO n INVERSE fABS NOT pK!<>0K▚ RESTORE INVERSE RESTORE LLIST u▘8Z▝Z▝_▘ LLIST 061 INVERSE wc▜6 COPY INVERSE 6 LIST ▞#~PI LINE ' LINE STEP IN <> CIRCLE ▚NOT ( THEN STR$ NOT IN m▞ INVERSE f!~ RETURN RETURN (* AND ▘ GO SUB RESTORE 9▗)Y STEP > INVERSE s INVERSE r INVERSE s INVERSE rATTR /▝ [S]▚# INVERSE f$<>3 READ c3<=▘ COPY CATTR ▞ COPY ABS DRAW ▘@$▝ -# BORDER THEN FLASH JVAL ,AT ▝ SAVE &p, CAT IN . CAT V CAT n CAT ▜ CAT ▙ CAT ASN CAT VERIFY CAT GO SUB CAT IF CAT FORMAT FORMAT # FORMAT . FORMAT W FORMAT t FORMAT ▟ FORMAT INKEY$ FORMAT OR FORMAT DATA FORMAT MOVE MOVE W MOVE MOVE STR$ MOVE NEW MOVE LET MOVE IF MOVE ERASE @ ERASE E ERASE J ERASE IN IN BRIGHT © TO "▘ FOR ] VERIFY W OUT n[P]@ NEW [B]A PLOT VAL$ k, LIST ATN ▘O NEXT >=IN [R]{W6 SAVE BRIGHT STR$ FN [A]ydP=, DRAW INPUT LPRINT CLOSE #>=ABS SIN FN [P][G]▟~wpIN jd^YTOKGC?;852/-*(%#!p[D]PEEK ▚} DEF FN OPEN # DEF FN [I] DEF FN 0`▗[G] RETURN P0▗NOT THEN ▘▚ A▗P0pp6▘ COPY RETURN p▝ RETURN 0ko[H] RETURN )))5...00<pp▜%%%1%▟%11'''3'[J]'33 RETURN ab`` RETURN abi<?8Pp0▝ RETURN !▝0'a?a03@![A]abiA?`A`▜ RETURN DCA0P[L]C RETURN FCC`FHFH RETURN FEC0@:9 RETURN +++6 IF DRAW 22=qq ▝▘5y▘50 DIM ▘ RETURN 1[C]//!▘ RETURN 3ATTR 03!▝b TO ▜aUaA0 FORMAT ▝&▝? ▝ RETURN Upp▝=@<==ACS ;; ▘ RETURN ?`<O+U▝? #_ RETURN aA[E]a::biTp`p[C]sp505}pI`p▛▛Pj▝<@j[D]p~ ~▝p[R] [R]▗5? OR 1 BRIGHT <,[T]▝)A DATA <D PAPER D RETURN 878: LLIST P RETURN aSGN ▝< CIRCLE 0rp▝<O▘ RETURN H@F▝+/0P2O▝'SIN ▗ RETURN a▛)` RETURN ▛ TO OPEN #QRPT AND ▝ADD`▜ PRINT THEN OPEN #QTAB0 FN PLAYERS PRESENT >> DENIZEN << (C) 1988 P'▙SOFTWARE. GAME+[A]SIGN, CODE AND A"▝UEXP EFFECT BY PAUL GRIFFITHS AUTHOR OF "RIDING THE RAPIDS". SCREEN$ ▜ITIONAL@] W▝G!▗HICSQ[F]MARTIN "JABBA" SEVERN:▛128K INTRO,@[B]MUSIC[Q]▝N&▝SX[D]POINT Y "DMp=@'▝"@ CLS ▜" WRITTp▖IKE BROWe▘IN0▞ TEXTUALSiCRE+▗SHOT! DRAW SIMr[A]"FERRET" DANIELS NEW ▝ ae▖HAS TO B5▖ULTIMATEQ[G]MBAT EXPERIENCE FEATUR1▚HOARDSC▚DISGUSLIMYH▗MPAGV▘AL7▗ LIF:ORMS (IT'S0JIM BUT NOT ©[G]WE KNOW IT CAP'N), TWOh▜SSIVE La▝L o▗AMAZSIN ▘LY#▚TAILEDCHNO-BACKROPf▖DM: EH?)2E PIT IF REMEMBER:-! SAVE ▘ONMGOOP+▝I!▝A@;!*q,▖HISTORY:2T▘STATTR RHORI RETURN "<2BIN [J] FOR ▝V x▗ '86 OUT s"USR ~kSGN LO▝W INVERSE ▘SIo[G] CIRCLE [M]▝N2 DIM 3▝WCODE ▝A-OVININKEY$▖TITLE, O<=▖R SUGGES[G]6▝S▜CLUDED:A[A]▘BL GO TO ▝,A[N]1 DATA PZMP▗TASKLN ▝CZILLEG! ERASE ▘, " RUN ▗TAK,INE[Q]FN INK ©LAS OPEN # RUN ▝O▖DEFINITELEN ▘LE▝,▘D- BEEP `; READ ▝ACHR$ ▘!!U▝WI▗, DUUSR ▝O#[G]▗ADVA{D PUBLICIT#;#LEN ▞DUBIOUS Q FORMAT ! FORMAT !! BEEP Q=STUCK PLOT RETURN K Oz[D]1/)$Jt*D*▝:$▘SKBIN STRUC KI9WESUSR UTI ▖▝W&▝H CLEAR ▖LOWS YOU/[T]STAB IMULAJC▘YLLN RCAIN MOVE [M]▝S13lUSR 6 INPUT ▗O US AND ▝P▘E, FOR ▘GRd`t LOAD LOAD ▝ESGN ▘OR@EA DRAW ERASE ▝F%W▘MO56"KICK STEP ▝N LET ▗SO RN D[M] FN LOCW▘PP$▝M ERASE %`▝P: UPh▗COPYUSR .% BORDER VLET[O]▘PE[E]▝HW▝S0&▝B MERGE BRIGHT NOT .▝▝▘ 3VC/U[P]▘OM"X$▛SHA%PEP VERIFY ▞REW CHAMB$ABS x<>▚CKLEY,▘RYg▘ASFN zPI0SCREEN$ %e▘OLBU▘YUVAL ▖DAVID RUYXLEX&3▝J#*RND▝M IF ▖AW (PAH!2.h0NOT I'M LOAD ▗N FAE▘!!ATTR nRND▝WX▝H PAPER gh6ARFqqBRY-▗ROSI READ 036H,%RNDm▗NO 2`▘OH[G]▝Uu2 INPUT o▝K$l▗GLIDAPEEK ▝LS%VAL ▘PL:u OR ▘OMIN QN&cTO: INVERSE ▝B[H]CHR$ /&K▗"MG"/ (E@▝ ASN ▝HPEEK a PAUSE <=▝LNOT ▝S DATA ▘CA& DEF FN o▘B,3▘ZO!G▝L=QC1▚▘HR"aNET[/'POR CAT ▘MO8LEN LET GO TO ▘OU*DAM LINE =▘ Wn OR TAN E&▝OABS =!1VAL$ ▖SON) ETC"}R>6 REM LET ▝B[T][A]ACS ▝I ![O]"BU POKE ▚NORTHC IF 0▘YB'▗SHEP6[▝CM(-WEA$'y#d▝UaASN $~AMMw`>BOYSTR$ m%COS ANK2<>.U. CLEAR ▘AS[L]▘Y.zTy▝MS POKE ▗VIEW[B]S(VAL$ SCREEN$ FORMAT FORMAT @▝M(RND▗VALV CLOSE #27▝OI(ABS ▗OAD!6 IF USR VLL)s[(B▞!c▘"D9ER""jM2ACS SGN STR$ K▝N STOP STR$ ©▘SA LIST ▘DG_#fWEB/[U]▝J>=▝E[M]KPEEK WON'T- PAPER ▝Y# RETURN ABg▝K LPRINT ▝N INVERSE ▝Ah RESTORE @RND$",IN ▘ER READ ▝Ad▝Dr%[H]▝Y$rqI▗S JU+▝Nj▘TWRND FOR ? BEEP ▝L RETURN ▝31_▝J▜ OR k▝E`▝SSTR$ ▝DP▞STR$ !>= INPUT ▝E)J[P] GO SUB OVER STEP COPY ▙m© ▘>=A0▘ASN TAB 0[Q] +▘- ▗ SAVE ;▝ABS 0 ▝ LIST `▘COS @▝0I0a▝BIN pk r▝▖p ▘▝AT ▝?>= COPY SQR ▝p[M]▝ RETURN THEN ▝pAT pp p TO [P]p BRIGHT p` GO SUB ▝ LPRINT !p[R]pp p[B]pQ.▝USR p `IN p CAT !{12p p p0p COPY p LLIST pqqpp1▝ DRAW LEN 0[A]1!▝ SAVE HpPATTR EXP 0VAL 1SIN ▝ LIST XppSQR p 0 BRIGHT DIM ▝ AND p0▘ COPY USR BEEP ▘▝[M]p BORDER ▝ RUN b=▝USR @w`@FN ▗STR$ COPY USR ©` )▗USR SAVE READ pD"k▝ LPRINT P?TA/O[U]0 ▝8p @BIN "2@0▝?P0▗ SAVE ©P@▝ LIST DATA USR ? POKE BATTR ▝©$▗ COPY RANDOMIZE APOINT ▝ RETURN |▘ RANDOMIZE P? COPY RETURN ▝p2UP DIM COPY LET #P@BPOINT ▝ LPRINT p ▚ COPY © COPY DRAW `A`"<>QJ▘wCpP RETURN ; 2@▝ SAVE H▚ DRAW COPY CLEAR P▝<POINT ▝3▘@ RETURN DIM 431 ▚ RETURN DRAW ©IN 3INT ▝ LIST ▖▚ RETURN RETURN IN COPY 3 BRIGHT ▝ LIST 9 RETURN PAUSE dR DRAW FN ▝[O]▝p+ COPY COPY ▜p0▚ COPY LPRINT © COPY <=S,yNOT COPY RANDOMIZE p![F]cL LLIST tI usl ▘ OUT s|:▝ SAVE s, ALC[M][R] COPY ©[F]4[LEN N▝P PRINT ▝ RUN 0[R]"(▗ RETURN LPRINT COPY pNOT ▘ NEXT ▚DATTR OPEN #▘[P]NOT PLOT BP[K]▝?$ FOR TO zABS ▝USR $▘▛ %▝▘[K]▝USR p▝SCREEN$ $▙!▝▝ RETURN DRAW >0▝p▚? BORDER COPY COPY ~ OUT >waa▗>[K] DRAW COPY RETURN IN H▜<=8 N▟ DRAW COPY SAVE COPY COPY BORDER READ USR [I]8D▜? DRAW ? COPY READ LET TAB ▘POINT ▗ NEXT [I] COPY RETURN {[F]STR$ LPRINT `8 NEXT COPY LPRINT 3 COPY DRAW COPY SAVE LIST LIST LPRINT ▝ CLS ▝0▝ RETURN ▝▞ COPY ▙xx@USR @h COPY xxUSR USR a▖ PLOT DRAW SAVE ? LPRINT [C]▘X▞ DRAW |`|G[U] DRAW RETURN RETURN ~p~ OVER ▘ DRAW p▜<= RETURN LIST ? INPUT ▝ RETURN COPY RETURN p~`A▗ LIST ? COPY ▝▘© LLIST © LOAD USR TAB ▘?p▚ RANDOMIZE COPY SAVE RUN Y▗ TO © INVERSE ▘ LET AT DRAW p© GO SUB ▘ STOP [S]▘ DRAW x ▚© COPY ? COPY CHR$ @▝[M]0▝ LOAD ▙IN M TO COPY CLEAR STEP COPY PLOT cG6 PRINT TAB kCW7 POKE #▖7!FP ▝ LIST G▗ STEP [T]▛_T▝ PAUSE W vqwkF LIST w wwv?WvOwGIN ow @v6VAL v6VAL vCODE 6 FORMAT sF FORMAT wSTR$ 6 LPRINT g[R]▘ RETURN qg LLIST ▘ RETURN [R]w LET [P](|h▘ DRAW 'rg LLIST ▘ DRAW (!g ▝ SAVE p6[T]00pwP&3CHR$ h!▘ SAVE q!8▙▝`wQw[A]Hxa@gVAL RETURN x▝rfp p@[H][P]▘pCHR$ 8LEN ▗ RETURN <92 COPY © CONTINUE X MOVE [H]▘CODE @q▘STR$ NEW B9b8▗ LLIST LIST COPY XP BORDER ▗ LET DRAW ©[A]p&BIN [S]p A[C]9! BORDER AQp?SIN 8[Q] LPRINT DRAW p0 INK ▝ SAVE '?p CODE ERASE @0 BEEP 0p _9[B]▝ LPRINT RUN RETURN <=@`▝3USR NEXT 9PI|`▘ LIST LIST RETURN JR▝ LPRINT LLIST COPY ` Y▘ LLIST SAVE g:0▘ FORMAT Z!&[ LPRINT ` 0▝Zq&+ SAVE O READ `0 SAVE ▖9 DRAW STOP RESTORE xp@:▝▝USR EXP USR ?'FN *[L][Q]▝ aA@[J][A]▘ NEXT STR$ ;H▘ SAVE @▘@ J/▝'d▘ RUN [Q][D]@ GO TO BORDER READ H[Q]▝[K]▗ COPY CAT LPRINT 9:[A] OUT <▘ RETURN *AVAL !SGN ▗▝ LIST =G FORMAT o CLEAR ▘ READ DEF FN Kk▝IN COPY ? LPRINT +"[L]> DRAW LIST COPY 'dUSR N▗ COPY LPRINT [J] COPY ▗[VAL$ LPRINT COPY [A]+b▝▚▖@ NEXT USR x?[P] COPY ▚ NEW x©©'k▝▗@ BRIGHT ▝_▝:[M]▝`[S]▘ DRAW 8]▚▗@| LIST k▙ SAVE p0USR "@ COPY DRAW LET SAVE CAT ▜ LIST 00@▘c STOP ▗ LPRINT LIST ▝y▝BIN ▟ LLIST LIST } RANDOMIZE COPY LLIST BIN ~▟NOT LIST q COPY NEXT CAT CAT ▖NOT 8c SAVE ▙▘ NEXT CAT ▟▖C▚ CAT LOAD <= BORDER COPY ▜ LPRINT 1NOT SQR ▘CHR$ ?[T]▟▗p READ USR COPY OUT CAT CAT COPY PAUSE >J▜7 NEXT USR COPY FLASH ? RUN ▛▟▜ DRAW LPRINT s▜[P]IN COPY ▚ RETURN LINE ▜▞NOT DRAW p INPUT BORDER © DRAW REM ▜ RANDOMIZE ▜ DRAW LIST DEF FN ?▜, ERASE USR LIST LLIST ATTR ? LOAD RETURN -USR ` LPRINT [L]▘? OUT AND ▖USR `© RETURN ©ATN ▘# COPY LPRINT ▘p▘IN Eh▚ LIST ? RETURN p▖ DRAW p COPY <( POKE [A]|> LOAD [J]▝ READ IF ▗8 LLIST POINT ▝ CLS ,< DRAW ?POINT ▖▘USR ▖USR 4 COPY DRAW LOAD ▝w DEF FN COPY CLEAR VERIFY COPY #}CHR$ < NEXT }[S]p}CHR$ | LET vCHR$ }CHR$ }CHR$ F} ERASE p~▙-CHR$ zENOT ~VAL$ pw~s} STOP }SIN } ERASE }CHR$ ~[T]v PAUSE ~[B]~[D]w~LEN ~"~~COS p~ LLIST ~ OPEN #p0~R~2~[S]©▝ READ vSIN /COS ▝ BORDER .s~b▝ NEXT . OPEN #~r▝ RUN (©C8#©S▝ CLEAR /s©c LIST ▜©.©[D]©R©[T]' LET ©COS Or© NEXT pq LIST © NEXT _C>= COPY ▝©CHR$ 9▞▘|U[J]▝WO PAUSE [H]▘ COPY RUN b/5 LINE ▘ RUN ▜p PAPER ▘ LOAD ▜,EXP e ERASE ▘ CAT NOT , INK [ LLIST COPY BORDER P / IF RETURN LLIST -9lO POKE ` STOP ▘?[R]='O LET @/ LLIST FOR REM d-LEN O PAPER ▘ DRAW 9 ERASE YATTR P/SQR IF LIST @.IO IF LIST [R]Hk▝P▝ 8SQR ▝▝1 LINE 8 FLASH 2▝| REM 2 SAVE ▗ SAVE 8ao IF ▘[P]*O IF ASN /STR$ 9 REM ▝@KSCREEN$ *{ PRINT OPEN #9>=,STR$ 1s+p CAT 0*SCREEN$ M:▗IYBIN 0*JI▝P*z FORMAT ▝%▖phK BEEP LIST o`ATN ▘N +3 CAT ▝i'/ STOP 0 RUN 0▝▜C COPY ▘ PAUSE ▝Y:0USR | CLS :▝NOT [R]▘? RANDOMIZE 40▘© POKE NEXT (9r▘USR ixN[M]▘ SAVE 08[M]O▖ LIST .ATN ▘PI#[U]▝ COPY (d▘?<=Kx NEXT ▘USR >▞:EXP '[R]z<>7STR$ LN P)!>=Z DIM 8 GO TO ? PAPER ▝ RANDOMIZE P▝1O PAPER ▝©&NOT ▘ LPRINT ?W-▘ COPY CONTINUE 0▘©<=/K▘ OUT 0 FORMAT LIST > SAVE . REM ▘|P A" STOP ▝? FOR ▘ LIST INPUT ▘[A]O)4,][Q]▘ NEXT LET @ L[O] CIRCLE ATN a![F]▝ COPY LLIST ▗ COPY BRIGHT ▝ STEP [T]_NPI▘? POKE dTAN TAB _m▘ RETURN @B-IN DRAW K[S]ASN TAB IN x▝ DRAW [T]ATN BIN ] CONTINUE }U~ RANDOMIZE }▗>Z[I]<>▝pp>=p p0▘ PAUSE p@c5pPp`Q@@L``L FORMAT PVAL ▝ CAT p@0p LPRINT ]p▘6L. CLS cp[Q]▘ READ p >QIN ▝x.ypUSR ▝|p.c▝©p00(7q0p!p▝wBIN pP▘<=p`▝ LET Z▘?QQ▘©*▘p▝ COPY TAB ▝`a ;▝> INVERSE P SCREEN$ ▘?<}p▘?6 GO SUB @ ▘`qP▝ LLIST Hn `▗NOT SAVE @?Hn p▘▜ DRAW p[A]▗ COPY RETURN 0/p▘ READ DRAW /`[Q]▘ LLIST pUSR RETURN LET fpVAL RETURN VAL ▚c/© DRAW CLS p@@▝ATN ▝IN p LIST [J] COPY BORDER p@▝ COPY !ATN 1 RETURN p RETURN BORDER STOP `X▝ LIST p▝ RETURN GO SUB ▘© SAVE SCODE ▗© DRAW ABS ▝ SAVE ! BEEP ▗5ATTR ▝ SAVE 1[B]▘[A]▝?c[Q]▝>BIN PAUSE ▗© SAVE z▚0|USR 9`USR K▗© RANDOMIZE s[T] 07/ OVER ▝F@▝ LPRINT ASGN ▝`0{"2 COPY |▘<P ▝ LIST *4q`:| COPY NOT Bp.-S[U][Q]G▗3BIN p▝>P[A]H" RANDOMIZE @VAL ▘[P]{ASN P▘7{ OR ▝c OUT 00s_0@P PAUSE `|▝t;pp>=">=[Q]g AND pqp ▞sP8s@▝ SAVE *GT▝pR(<P▝lTLEN ▝e CAT © SAVE `Y▝?W LPRINT @ncA@QS FORMAT ▝p^yr[O]pmJ[P]00SE2▘sM8[Q]}p0▟Y`PEEK ▝L@▗© FORMAT `@▝L`VAL ▝fPTVAL INVERSE LVAL USR ▝)iEc LIST ▝a)yDS)▞▘ DRAW "!$▘ RETURN CAT @ OPEN #▝ RETURN )ZUSR LINE COPY CLEAR STEP COPY Ih##iCODE INK AVINT )LN p b LIST f PAPER ▝y LOAD :b30v IF 3PW▘-LEN p▝USR &jP LIST 1 `0▝ SAVE 1 `@▝ DRAW p* MOVE ▝ RETURN 'pUSR ▘ COPY z©.Y3 LPRINT P LIST COPY COPY LLIST STR$ p[A]> MOVE p[Q]?pVAL ▘ COPY {q ▘ COPY [L]pP▝ RETURN *tQ@NOT QP▝p▝ RETURN p0y▘~2p[A]▘ COPY ▙Q9▝ DRAW p▗ SAVE /BA[Q]▗8p> DIM ▘ STOP qUSR P▝ LPRINT [G]a FORMAT COPY CONTINUE ▛p?SIN Q LIST ▝p LINE p▝ PLOT PAUSE B▝* LET pFN LET [S]5R0▝!rb@▘/CHR$ BP▚▖ COPY LLIST r`?▖p LIST p▝pLN ?USR p[A]VAL$ ▝©"1p▘ COPY pp ERASE ▘ ©&(RUSR ▘<@J AND F[I](4R LPRINT ▗8 COPY CLEAR pVAL 0,(q▝p LLIST DIM HS0▝▝[A]s@ NEW ▝/Bs0? COPY CONTINUE s`/ REM xsP COPY STOP s/ IF ▝▚s[A]j▝ RETURN rsp[(▝#sUSR -c'@p ▝ RETURN qsUSR ▘ COPY COPY '0pr LIST D)q FORMAT ? REM q LPRINT 2qs ? IF s0? REM s`0USR ~>s^3t▛s[Q]"bs[Q]1rCHR$ p FORMAT Ot FORMAT n PAPER tUSR ▘ COPY Tt LIST SGN ▝▝[L]t LPRINT PRINT ▘x SAVE u"U▝|u 7▘▘u@ LPRINT t LIST CIRCLE ▝ RANDOMIZE p3 RESTORE uppP▝vU[A]? LIST p▝~cp LIST b[A]0▝RND COPY PPs▗ DRAW U LIST LIST ATTR `▗1 STOP ▘▝b LPRINT |[C]▝p▗ RETURN ▝USR NEW ) RANDOMIZE ▗ COPY STR$ BORDER ▖ COPY COPY LET ``▝▝ LET v` CAT p ▘@▝ SAVE PA OVER @▘ DRAW } COPY } COPY FLASH <> COPY COPY RETURN p COPY COPY COPY COPY COPY ▝ COPY COPY RETURN < LIST COPY COPY COPY COPY COPY ▝ COPY COPY COPY © CONTINUE COPY COPY COPY COPY COPY COPY COPY COPY CODE COPY LPRINT COPY COPY COPY COPY COPY © COPY COPY STR$ NEW COPY LIST COPY COPY COPY COPY COPY © COPY COPY LLIST LIST COPY COPY COPY COPY COPY COPY ? COPY COPY LET DRAW ©[A] COPY COPY COPY COPY COPY ? COPY COPY LIST © COPY COPY COPY COPY COPY ? COPY COPY SAVE COPY SAVE COPY COPY COPY COPY COPY COPY COPY SAVE COPY LIST COPY COPY COPY STEP [R] LLIST NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL ![Q] LLIST COPY COPY !<> GO SUB LN ! LLIST OVER USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RFN LN BIN TUSR FDFDc:SQR tQ:z[I]ztHz▗tzDtzzz#▟F_ COPY OUT ▝? CAT _ OUT ? OUT [A]_[H])KP"P@PSTR$ ▞ COPY IF CLEAR DRAW NOT RANDOMIZE DRAW CLEAR INVERSE PAPER =AT [F]T▘▘ $[Q]LN ▟TINT LN SGN SGN 3Q/!LN $/BLN !/EbSGN ASGN SGN A[A]USR T: |:TSTR$ ▝<=▖B#LN |▝T@ @% 1▘#$ COPY COPY THEN [Q]>~< DRAW 87 COPY %U+6Q4SQR 6q4SCREEN$ 6$SCREEN$ NEXT E LOAD SGN ~| DRAW DRAW COPY GO TO Ul( CLOSE #` PAPER $ GO SUB l OVER , THEN l,[F]l CAT (E RUN 6 NEXT 46 CLS 4}6SQR $[+6SCREEN$ 7 COPY 0>?<~/[Q]E OUT ` LOAD $l COPY , OVER l INVERSE , PAPER h CLOSE # `SCREEN$ [U] COPY GO TO ><||S▟E COPY COPY COPY SAVE © LIST (ATTR ▘ COPY LPRINT 8 COPY USR BRIGHT ©USR <@2 COPY % COPY VAL E[E][S][P]@<▖▘ SAVE V LIST $▘ LIST ERASE ▗ SAVE D SAVE ▖ RETURN USR <= 0▚p RETURN [I]▗ LPRINT LPRINT ~▘[I]▗@▘[A] LPRINT /©<[A]f[A]f[A]f[A] ▝[E]▘$J COPY * READ 6▜USR 8N▗BD CIRCLE [I]frpp[S]VAL$ COPY DRAW BEEP & AND , ERASE ▝? ERASE $? REM PLOT ▘[Q]▘!▝TAN !&▝[E]2▘(>▘BJ▘V▘b▘n▘$z▘▝▚▝<=A[C]qq&p[I][K]▘[I]▗` DATA ▝A4▗[Q]; FORMAT x< LPRINT SCREEN$ L GO SUB [U]) NEXT [S] RANDOMIZE ▛E<AUSR TAN ▗ jF$ CAT ▖K[Q]" GO TO ▘USR INKEY$▗ READ SAVE $p[I]qLN D▝ LIST "BUSR [G] FORMAT 6▖▖ COPY GO TO :SCREEN$ ▘©▘< [A]F[A]f[A]▘[Q]&▘R▝TAN ▗@:<= IF B▚B▖Z▝ READ @f0rr>RH2 TO 0VAL$ USR ? AND ▝ DRAW ERASE ▘ DRAW OVER BRIGHT REM [E]USR 8 LIST ▝ ▗E-! [U]2▘B>[A]▘x[A]VJb▘$n▘▝z[A]!▚r TO r ERASE ^▘STR$ d▘@▘hl▝" LINE ▘ DRAW ▗0N3Hn&0@xhUSR y[B] DRAW [Q]USR CLEAR `USR DRAW ▙ CLEAR LPRINT {@ LPRINT z[E]▗6 ▝`▗0z▝1▘ ▝R▝ SAVE ! DRAW ▝[Q]nRND@STR$ ▚[Q]STR$ 0STR$ H 0`0x0*yP PLOT ▞ DRAW [A] CLEAR [Q][A] CLEAR [Q] [A]▗x@/0[A]▘0[M]▗@[S]▝h"[E]▝0▗▘ CLOSE #USR >=▝ SAVE 4| LIST ▘[Q] PLOT ▘X[A]©p▖ LLIST 2lK0 VERIFY 1[A]X▚@Zy SAVE [Q]USR ▘USR [A], LPRINT [A]1 z▘VAL ?`▝,▝[A]0[A]▝d▘2[A]▝`[A]Q&121>1JV1b1n1z1▚1[C]1[O]ASCREEN$ 1ACS 1CHR$ ! DEF FN 1 PAPER A NEW 1 PAUSE ! RETURN 222"2.R:CZ!21>1JV1b1n1z1▚1[C]1[O]1SCREEN$ 1ACS ACHR$ 1 DEF FN 1 PAPER ! NEW 1 PAUSE A RETURN 2"2"u[S]s REM 12A>J1V1b1n1zA ![C]1[O]ASCREEN$ !ACS 1CHR$ A DEF FN 1 PAPER ! NEW 1 PAUSE 1 RETURN 222"R.:▝&USR *2[G]UB[Q]>TAB PW BEEP LPRINT oCODE [K]▞IN [ REM M GO SUB "▝IN FOR PEEK ]]ATTR ▝▝PEEK CLS w MERGE ▝ REM /▝ACS [G]▝W▝ IF OVER ▝ CLEAR ]▝D▝ REM :PEEK CLOSE #M▘[VAL$ ▞ASN USR .[P] LPRINT USR ▟USR USR [Q] LPRINT 12FN ▝~z▚ *▝▞R▞[ VERIFY LPRINT /ATTR D? OUT CONTINUE [M]▝ COPY DATA ▝SQR ▗} OUT [E]▝+▟PEEK ▟▘T▝FN TO ▝_w▝[[P]▝INT THEN ▝PEEK ?_<_ COPY VAL H▚USR RETURN ▗ MERGE ▗CODE USR t▘[G]▘ SAVE S LIST ▝STR$ ' NEW <t*▝CHR$ ▝TAN [Q]+ATTR TO =^ CIRCLE W LOAD t▝*J▝ OUT MOVE ▜*VAL$ SCREEN$ ▝[A]SCREEN$ FN }T<▛WLN >IN CLOSE #?▜ CONTINUE FOR OVER ▘ OUT [A] LOAD USR 4 BEEP @▘p▝0[A]tW PAUSE ▝ BORDER (|▝CHR$ !,▝USR !,▗USR ▞H[M]#(AUABIN VAL$ AVAL$ Uc[A]*G/▗(FN <▖)USR Q POKE SCREEN$ ?LN MERGE ?▝POINT SCREEN$ BSCREEN$ ▝!▝ DRAW w^&INT ▘? CODE ?>=?▝ LOAD ▜ LINE ?SGN C&q▝D`▝Jb▞G LPRINT AT RSCREEN$ USR ▝[Q]GINT USR ▝4INKEY$>@ LPRINT USR ▜FN LPRINT [R]VAL T SAVE p GO TO SAVE (▝ SAVE ▝p▘6y[E]▝ LPRINT 2H▘USR ~▝ ▝ DATA ▜`USR 8[E]▛|, STOP 0 VERIFY LET ▝8▜ LET 5 LET :8 STOP @▝R+▝"[K][M]< RUN ▘▘ LIST 8" PRINT ?,▘ LPRINT ?i DRAW Gz▗D* CIRCLE TAN ▛ SAVE ~` SAVE UCHR$ ▛▝ 4p▘4 NEW ▘0"▝=▝USR ABS SGN 6 COPY [O] COPY >~ LPRINT [Q]▝SGN [Q]▝▝,|©,▝b/[E]▘F$n▝)Y&*▝[E]&0▝b%▙ POKE [A] NEW > LIST SIN ▝▝[O]▝=SCREEN$ ▜USR x~@%▝ COPY BRIGHT ▝y6▝ INPUT ▝ABS PEEK $▘SGN ^▝|<xABS [Q]SGN ▝SCREEN$ PEEK ▝B▝>=▝L▘![I]▘?[Q]▘ STOP wN+0[O]<>▗ LPRINT z<>Z VERIFY ▗@[C]@ LPRINT LPRINT [Q] LIST LIST LIST LIST SAVE [Q] CLEAR USR ▝ NEW DIM ▘USR Pp05▝(=▘XG▝▝b▘ LINE ▘STR$ 0`▘(e▝R▝@-▝H2#▝-▝▝-▘ [H]▝7▝▝A▝K▝▝U FORMAT @-▝s▝d▝▜ TO ([L]▝[Q]▝[L]▝▘▝▜▝▝[B]▝[B]▝EXP TAN ▝TAN ▝▜▝x▝NOT ▝ NEW ▝ } P EXP >= [G] TAN 7▝ COPY ▝ PRINT ▝>=▝p! 2 LLIST ▝ NEW ▝`_~[L]▝'▝▝!"▝ _!1"▝^▝ xh▝!rm▝!1[F]!▚▝m▝[U] [L][K]▘O▝[A]▝![F][A]▝a Z▝r!,▝ A TO #▝▛@@d▝!VAL$ P![U]▝CHR$ ▝▝!wCHR$ "+ 2!O![P]▝ LLIST !▝ REM ▝!LN D▝ RANDOMIZE ▝ RETURN ▝![F]:!▝g"▝▝"g! VERIFY "Db U▝! LPRINT ` FOR ▝[J]▝N!▝"D▝▝ a▛▝" AND ▝STR$ ▝ FORMAT "&▝ OUT RND▝ DIM "SGN !COS ▝" AND d▝"5"STR$ !m▝" DIM r"]`d{2#4#! RETURN ▝R#M▝r0c DRAW ! RANDOMIZE "FN ! RETURN t i▝p▝[N]"N# ▝[S]#R!^#▗#p PEEK "v"b CONTINUE OR # OVER ! POKE ▝ READ " AND ▝bXt[B]!ABS #[D]" MERGE "S$CODE "#/!ABS ! LPRINT 0>="]pFd INVERSE ▝$L# GO SUB a|▝[▝#k[$.▝ b INPUT ▝▟▝▟u'2SGN >=$ATTR COPY BIN ▘$$`"]INT 1<=<>▝$Q#SQR ! POKE ![P]# LINE b OUT M BRIGHT UCp#%▝"FN #▝ BORDER $e▝$ INVERSE PEEK #USR STEP RNDu LOAD "]"SGN # CLOSE #▝`( 22X`%▜%# (▝[L]v:#M$ DEF FN ▝ -#f%} STEP $▝ar$▖" INPUT %▝ LLIST IF $%EXP ▝`_▝![F]` IF T DEF FN CAT FORMAT MOVE AND ERASE LPRINT LLIST OPEN # CLOSE # MERGE COS ▘ DRAW CLEAR LN ▚ STOP READ DATA VERIFY BEEP CIRCLE CHR$ ▝ RETURN STEP ▖ RESTORE NEW INK PAPER FLASH f LET BRIGHT INVERSE OVER pp POKE CONTINUE DIM REM p FOR GO TO GO SUB p< COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY GO SUB ▟▙j▗▚LEN VAL CODE [A][B][C]j[D]▚TAN COS SIN [D][E][F]j[S]▚ATN ACS ASN [G][H][I]jLEN ▖INT EXP LN [J][K][L][M][N]JCHR$ ▖ABS SGN SQR [O][P][Q][R][S]: MOVE STR$ USR IN PEEK [T][U]RNDINKEY$PIFN 7<= AND OR BIN NOT CHR$ POINT SCREEN$ ATTR AT TAB VAL$ F▚ STEP TO THEN LINE <>>= COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LOAD ▗IJKL CAT ▗~©▝NMNOo▘▗ RESTORE QRSTU GO SUB ▞▚▜▖▞VWnq[B]▛XYZ[/]^_`aMcdefghijk GO TO ▛lmnopqrs.FN ▞uvwxyz{|}pxpxpxpxpxpx`xpxefnopxpxp LIST p LIST p LIST p LIST p LIST p LIST @ LIST p LIST efp LIST nop LIST p LIST qhqhqhqhqhqhAhqhef !qhno"#$qhqhq LPRINT q LPRINT q LPRINT q LPRINT q LPRINT q LPRINT A LPRINT %&'q LPRINT ef()*q LPRINT no+,-q LPRINT q LPRINT rXrXrXrXrXrXBX./0rXef123rXno456rXrXr FORMAT r FORMAT r FORMAT r FORMAT r FORMAT r FORMAT B FORMAT 789r FORMAT ef:;<r FORMAT no=>?r FORMAT r FORMAT sHsHsHsHsHsHCH@ABsHefCDEsHnoFGHsHsH[M]CODE OPEN # RETURN > STEP STEP am>E STEP [R]n INPUT n STEP O PAPER [G] STEP VAL$ n[M]NOT RNDm!X~ NEW <=w#xLEN CHR$ gmx= RESTORE OR vv-[K]STR$ LLIST !@ GO SUB _[T]w,CHR$ ▚m$CHR$ ▗m INVERSE [R]@ COPY 6 GO SUB VAL <>![I]o@~n>▘2▞n STEP ▚nc▘>s▘m[L]< RETURN CHR$ USR m![Q]X[R]X6F GO SUB VAL !@ZAZ ▘<> [I]▝2[I][J]!Xo"Ro!uo"Uo>2To2Wov:To= TO &n:W[U]Wo TO Wn RETURN © GO SUB x THEN GNOT n*Ro~ RETURN LINE Cn RETURN ▝ LINE In RESTORE STEP o LLIST #~:▝#I▙<>!hoNOT )n>2EXP n OVER RETURN NOT Cn*U 1▝o,▝/ ,▝W,▝U,▗▞oNOT ZA[M]▙n LLIST OR [Q]=CHR$ ©nSTR$ x RETURN [B]CHR$ un<> OR THEN THEN ▛! THEN ! THEN ! STEP VAL " FOR STR$ <>@▜X COPY w[F]v CLEAR <> RETURN COPY >= BEEP dx NEW OPEN # RETURN RANDOMIZE k[E]NOT O PAPER d([G]%▚ COPY d[A]▘STR$ %LEN COPY dX[G]!dh% COPY .gDuv>aq▘>{▗NOT ▚nGUSR ▜▜G▜&oUSR )DyX#▝0#O COPY ▟d92 PAPER ▚[B][G](2-▗USR ▝<>▝ ERASE &, STEP ▝J FORMAT POKE SCREEN$ STEP ▗~SCREEN$ Hb AND THEN MERGE D[R] DEF FN ▗SCREEN$ * THEN >=▘<>pFN O LLIST [E]>▟pPEEK O RUN DEF FN ▗>Np BRIGHT _SGN COPY FN 0p[K]_ OPEN # LLIST MERGE LFN CLS [S]POINT [A];▚p>=/ COPY ▜ MERGE SH(BIN uL FOR >=▖S[S]INKEY$[S][C][Q] CONTINUE qZ DEF FN ▖DPUSR " THEN ▚v [A]▚! IF >= STEP @$USR LPRINT <>▞([Q]@o ERASE TC)@$BIN [A]q<>mH LPRINT MOVE >=▛RcUSR >=▛B1[Q] ▝ FOR a▛G@Jp▜▟([Q]p OPEN #o[P]B[A]FN USR STR$ !@@BR[Q]@EV▚▜▖▝▘? STEP I8Arn▖ZH PLOT ▝▘pb▖[Q] STOP P [A][Q]▝▞rW▟▝BP%Av@"bABS ▟$▙▗)bm▘w▜ DATA rb FLASH USR [A]8[J]HP N_ COPY ▙[Q]@:▜A▝ FORMAT ▟USR @4`USR / COPY ▜▖x[S][P]▘xh▘INKEY$D3[M] CIRCLE 8`U#R[B]J AT Pp ▖ FORMAT ▘0@9B 0▗USR @m▛pPBTL▝S▝@(P▗`3[P]!K▘EXP ▚o? COPY ▘@#▘H▝▚oO COPY 1}xC@▞P?▙ : CONTINUE a©#]▗jSIN CONTINUE #▗ REM MOVE ▚ CLOSE #H GO TO O COPY ▚ FORMAT A COPY ▝tC[Q]R CLS [Q]'t]▘$USR >=ACHR$ DATA sr,▝e X▝( VAL d3▘ FORMAT COPY ^s[O]I2p▘ pX"~$r▘ p▗ COPY ▝hdi<>▝l!▜▝1 LPRINT <>r STOP ▝ ERASE B IF STOP p>=A[L]<>UFN E[K]e%~ POKE %p~SCREEN$ Ab▗ MERGE T[Q]T▗*qF▗>v8▗TSTR$ RND*▘▘{ATTR PAUSE T DATA INKEY$$ VERIFY L$>=v($INT STEP H$AT ▝D[O][A]▗($BIN ▘▗p MOVE t▗TAB Bcf▗A▗1X/$J$<ATTR .$ [Q]$▘ LIST 4FN @# PLOT ▘@vvFN v[K]V▝6~g FOR >=p▗ ERASE PI LLIST b▗ DIM K LIST T▗ POKE LLIST F▗ CONTINUE ACS ! POKE >E*▗SCREEN$ STR$ VAL$ SAVE U>HINT FN RUN M DRAW STR$ [S]POINT IF kATTR HFN DRAW ▚ MERGE R[S][C]INT CONTINUE ▖[T]TUSR 5D5INT ▘ VERIFY "%AT l▗%[O]▗▞R▘D MERGE !▘C▝A▝qqqqqqrw▝7~▘h BORDER 'p CLOSE #▛1 IF W LPRINT 1▘ LET !▗ IF [F]vTAB PLOT mRNDr COPY PAPER RETURN ^|[R]▗u* IF FN ▗SCREEN$ ~▟|▗ REM SCREEN$ RETURN ▗h READ T( OPEN #SCREEN$ ▖[C] RETURN RNDW"|BINKEY$H▚ RANDOMIZE $$ABS ▚▗▘a LPRINT (! C!▝"GHqrrrrrrx[K]X▘ASN 8~U▖"SCREEN$ IN [R]k▗ DRAW P"▘ RETURN +2 PRINT ^ NEW ! RETURN MERGE IF U GO SUB DRAW [R] MERGE *ATTR 1▝"▗T RETURN ▛! CLOSE #)▗ FORMAT NOT FN [L][T]ATTR 2 DRAW ▗EWH▗"RND%▘▗1▝PL▝A▘$1▘P1▝Irsssss▝vgg▘▘USR CIRCLE Gu▝▘[I]'h▘[C]I<>▘GN▘▝I[I]▘"G4g'g▝9&`& REM NEXT ▘▗4&**f INK V TO vIN FSIN fRNDf[I]f▛f~fqfdp CIRCLE ` CIRCLE ▝P CIRCLE ▝ LINE P CIRCLE ▘[D]p@ CIRCLE ▘(P CIRCLE 5SQR CIRCLE REM 0 CIRCLE SIN p CIRCLE @ CIRCLE CAT CIRCLE ▘[U]P CIRCLE &[M]PEEK 9[C]LEN sp CIRCLE w[H]p CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE qVAL ▘USR QVAL ▘ CIRCLE `AVAL ▘▛0AVAL ▘PQVAL H FLASH CIRCLE ;;▝V LINE 9LABS 6qVAL E9<=1VAL ▘P CIRCLE @ CIRCLE / CONTINUE qVAL qVAL EAVAL ▝qVAL qVAL x.qVAL qVAL r▖r▖r▖2▖▝`R▖▘B▖▝A<▝"@ OR p CIRCLE [S]9[F]8"▖▝@*[C] CIRCLE ▘<=O LPRINT ▝[S]2▖▗© R▖▝P CIRCLE ▝P CIRCLE 81r▖r▖r▖r▖r▖s`s`s`` CIRCLE ▝S`L LLIST "b▖:[z8 LET m▝0 CAT CIRCLE -iS▘▝*SLN ▝PI1VAL CAT CIRCLE ;5▝▗p CIRCLE p CIRCLE s`s`s`s`s`t8t8t8t8t8t8t8d8=%E▝EP CIRCLE ▘T8▝D8▝T8 CIRCLE 48VAL t8t8t8t8t8t8t8B INK COPY COPY COPY COPY COPY COPY CLS CHR$ ▝ DIM ▝@RDS[A]'$▘y[N]$▙TINT COS VAL$ INPUT COS [ZINT #4▘ MERGE 6]=▚<UP$[Q]@DG MOVE H[S]x0[Q]FN O2[L]POINT 50SQR POINT ,0[B]p STR$ STR$ D[Q]K LIST *L[E]KATTR CLOSE #h1O[I] MOVE OX[A]/G[B]W$▝SCREEN$ IF ▘ CLEAR d IF [A] CLEAR @ IF [S] CLEAR D RETURN [Q] CLEAR A IF CLEAR $ IF PRINT IF AH[Q]0[Q]@▘@B)>=▘ LINE [R]▘>=▜▘( LINE ▘FU▞BEl[Q]5[R]P'SCREEN$ BRIGHT _[S]X[B]R ERASE ▖ $j RESTORE W2 CAT s[A][F] POKE %*USR D CLOSE # LPRINT ASN dAT ▖.`>=$/[A]TAN qDqDqDqDqDqD▖VAL$ VAL$ ZJqDqDqDqDDDOAD▟?0©FN ©2SCREEN$ POINT USR 0 OUT POINT AT qD▖KSGN REM TO [E]ED[C]SCREEN$ CLOSE #FN MOVE OFN P([B]EXP QD▜6SCREEN$ ▘UdINT D▝ RETURN AD▞"+$▝[S]qDqD1D▝*qD!D[C]PAT _RFN FORMAT [K][S][C]▖▝D▞k OR W LPRINT USR CAT CLOSE #$qDaD▝!D▝qDr▖r▖2▖▝r▖r▖r▖!DJr▖r▖r▖r▖r▖▚[S]50~D▞IN POINT COPY 0 CLEAR POINT SCREEN$ 0R▖▘J▖!D[A]ATTR TFN QKFN P)(qD"▖▗ REM ▘ CLEAR DATA ▖▛SCREEN$ [S]BIN ACS [Q] LINE STR$ ▗)qDr▖2▖▝[Q]qDr▖▚5PFN / ERASE D▝ ERASE D[P][S] OUT FORMAT CAT FN @ATTR RESTORE W LIST bqDr▖qDqDr▖s TO s TO D▝/s TO s TO r▖D▝▛r▖s TO s TO s TO TO ▝qDaD▝ COPY ▗p COPY COPY !D▝TAN AD▝D▚POINT ▟SKSCREEN$ D▝SCREEN$ DFN D MOVE [S]r▖▙ RETURN ▘ PRINT dSCREEN$ [A]@PEEK [S]/BIN TAN qDR▖>[Q]Us TO r▖▘▘s TO ERASE VAL ▟H/[S][P]/_SIN XFN [J] TO ▝STR$ TO dj RESTORE VUSR [U] DEF FN r▖s TO s TO r▖uu▚Wr▖uu▝U▝uuuuqD▝▖▝z TO ▝PEEK qD▘! RETURN "▖▝ POKE b▖▞SCREEN$ TPOINT <>QkSCREEN$ ATTR ▘QD▝QqD TO ▛ INVERSE ▘ DATA [A] RANDOMIZE @SGN [S]^r▖s TO ▛ COPY [R] RETURN COPY ▘~Bu>=*E▝▚%▝u[B]U FORMAT CODE H_[S]CODE TZ[S][Q]>=[B]R[C]( DATA !D▘ DEF FN s TO uus TO uvTTGvTvTvT▝ FORMAT T▝ACS vTvTvTvTvTr▖s TO r▖qD2▖POINT LINE SlqDr▖▝ PAPER ▖ IF [A] PRINT TO ▝@s TO ur▖VT1Dr▖▗D MERGE P▚AT P>=D6TQD▝3&TuvTr▖vTw[I]r▖"▖w[I]w[I]'[I]"TVAL w[I]w[I]w[I]w[I]w[I]s TO uuUr▖D▛<=SoSCREEN$ CODE QoSCREEN$ Q-uVT▝ MERGE %6TPOINT AT▝vTw[I]7[I]▝vTg[I]▞ LIST (#▘▚ TO UR1DFTQDvTw[I]w[I]vTw[I]x BRIGHT x BRIGHT x BRIGHT x BRIGHT H BRIGHT ▝0x BRIGHT x BRIGHT x BRIGHT x BRIGHT x BRIGHT uw[I]w[I]qDfT CLOSE #POINT CAT OPEN #!D▚*[B]/E[I]CHR$ D7[I]POINT ▘T DATA REM ▖ IF [S] PRINT D IF ( BRIGHT PRINT $Yw[I]x BRIGHT x BRIGHT w[I]( BRIGHT 6FN CLOSE #/[S]▟/T CONTINUE qDAD▝ CAT r▖x BRIGHT x BRIGHT x BRIGHT [S]DDpVAL ` LPRINT @>=STR$ ▝[A]▘USR USR USR TAN [P]d,fCODE g READ LINE IN EW REM SCREEN$ eU[Q]FN pB8/.W PRINT +&/<[A]USR CAT BORDER LINE ▙RNDH▝L([I]~SCREEN$ COPY RETURN CLOSE #p$?TAN ▝ LPRINT LLIST ▚PI REM ▚ LPRINT [Q]8| l[C]USR a LIST xSGN _/U+. RANDOMIZE D▚USCREEN$ T RESTORE NEW USR LIST |CODE -W COPY * COPY ▝A&▖ POKE SCREEN$ SCREEN$ USR P▘?1/,▟ READ W RUN PLOT INKEY$ASN EV[Q]T%▖AT )IA▗` ?[S]▙▙EUSR @▖p CIRCLE 0A[E]<i CLOSE #FN P[Q]Pp DRAW ▙> COPY USR PRINT SAVE SCREEN$ PEEK UWSCREEN$ G▝O PLOT TAN +[qTAN zIN ASN W COPY ATTR FOR VPOINT 0 CIRCLE ▝N/aL▙NOT BORDER .VAL$ GO SUB MjAT AFN ) CIRCLE ▘@ MOVE 0/z POKE ▝PI▛[R]* TAN [G][Q] FORMAT FN P CONTINUE TAN ZVAL$ W*▝▚▗"▞<>bH▛pLN V)USR ▘TAN (!h[A]USR LPRINT LN VATTR *KBIN Q▝P/ LIST ▝ 1 SAVE P BEEP x$▗U POKE *SCREEN$ cIN _▝ P DRAW l▝[FN DEF FN ▜LN FN X NEXT ▟X(DD$[A][S]@ OUT ▜ CONTINUE RETURN MOVE (2 COPY ▟:4(@5:4 TO ?▘$ OPEN #▝[S][A]▖ ▖P▖le< TO [P]▝! MOVE @$PEEK [Q] CAT ▘`[Q]2 LINE |, LIST ▝ PRINT [S]U RUN USR STOP ▜USR USR @m▝@8[A] RND BEEP @ PLOT ▖@[A]| FORMAT [Q]PEEK ▗ ERASE [Q]-[<>▜= REM UU RUN COPY / SAVE ▝#`@USR [Q]u SCREEN$ CAT @"Kd<>2▝[G](2▝ STEP AT STOP NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL !ATTR STOP COPY COPY *"<> GO SUB LN ! VERIFY INVERSE USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT R▗STR$ D▗ USR OR $[N]: POKE FORMAT POINT P:[Q]u CONTINUE ▖ CLOSE #jT"xH▞@:D@QF▝T[N]:@[Q] FORMAT DDD RANDOMIZE CONTINUE FN [Q]TH[Q]0(T▜ tUSR [S]DD( STOP P;FN :L)T CONTINUE [U]H(AT (T▞ IF [K]▟▝TAN [Q]E TO VAL$ Ew▘&[H]JRND ERASE ID[C]MDJ▗ DATA AT T" CIRCLE ▖ RUN MERGE ▘"@ VERIFY DEF FN ▘<[A]▜ RUN @e[A]@$▝ PLOT !▝ COPY ▘@ READ [A][Q] 0X,USR LPRINT %qAT W+E4* LET 1 RUN 7▞DpFN H[Q]S▖[Q] LPRINT USR 1D[H] BEEP [R]H©>n[Q]▗ STEP INT ux CONTINUE T CLOSE #.[Q]I+INKEY$M▚E▟[Q]GUSR VAL$ BORDER !VAL [O] PAUSE V2 )P dEP[A] READ ATN [S]INT ! CLOSE #[B]T5dz[A]SQR , GO SUB EUTAB RNDA▗%SQR [E]▗ OR (D▞ SAVE [Q]+W▞7Bm TO SCREEN$ FN GO SUB e`FN >=l@)USR lP(>=JX)DV[S]$[Q] FOR U LIST SCREEN$ SGN VD%A▗@!0@8 SAVE ( OVER [M]+[Q]y,8^Q▗+<>bP5# DATA [A*[S]QT,A+▝d[J]g/SCREEN$ [S]U(TAN CONTINUE PAUSE |IN _VAL$ /LN 0▝[Q]"▖ BRIGHT AT ▙UZ"TAN iQ▜o@▝[G]bSCREEN$ 2AT [M]t▖ CONTINUE " MERGE [Q]<= MERGE [S]5T PAPER FN CONTINUE E OPEN #POINT INKEY$ OR M`▙][B]▝8 POKE [Q]$D[I]POINT EXP ] CLS [K] READ CLEAR VIN RNDk DEF FN VERIFY [M](z CONTINUE MOVE ~[U][Q]▞B▛J[D]@[F]B"[Q]*[Q]S*[Q]T REM <[Q]0r.([I]/8AT FN XP▘X,/T*([B]+[I]`▝-_[M]FN TAN Z2LN [I]p*[I]t*LEN Q4 LLIST Ud2U LINE INKEY$ MERGE DEF FN ▗[Q]h[U],j%FnPI7 ERASE Vh0qCODE )© PRINT LPRINT " DRAW _FN [P] THEN ESTR$ % IF ZTAB VUSR + PAUSE XQAT ▘ BRIGHT !.8USR ▜# TO ▟[F]r LINE ] LLIST ` PAUSE x@ABS d▝AT INT ▝ LPRINT "▘s TO LINE NEW 9|T▝ CAT q▙ SAVE RANDOMIZE DRAW BRIGHT TAT )T[Q]'▚? MERGE OUT $8▝~[L]=1 RANDOMIZE COPY T IF FN UUSCREEN$ POINT EAB COPY PRINT /[Q][Q]@▝[Q]AUSR [Q]BIN FORMAT [Q] LIST USR h[Q]PBhpjP CONTINUE LIST CONTINUE ▞j$RND`POINT Du( DATA ICHR$ D▖[F]K MERGE ▘[A]H#g$[J]▙q LIST SQR IF Y[(ATTR (AR>=▞ REM SCREEN$ UP[U] >=▝ ABS ▛ TAB = COPY IF © MERGE SCREEN$ FN ▝ $ GO TO [A] FORMAT ![Q] CLOSE #[Q]@>} REM PRINT VAL$ ▝PVAL$ 4 GO TO ▝5[B]▝3[D]t9a0$&bBAT `(▝p(]],TAB U %▝ SAVE <>▟+© COPY IF ASN PRINT ZSCREEN$ RNDPr POKE U[B] COPY FOR U IF SCREEN$ MERGE @SCREEN$ T@FN Au|c▞USR LIST xSGN V;▜%@SIN ▘USR s< TO ▝Z▚ RESTORE P [A] FORMAT [A][Q]`USR V@z MERGE FN ▝UAT ▝ REM ▝&ABS ▝▘Pp0▗IN COPY © COPY ▝ COPY @p▘w COPY T NEXT T PAUSE [R] NEXT J PAUSE LET PAUSE ▝ LIST 0▝ NEXT 0lpdpp0xpPlphPt▝[{▘ COPY B&USR ▚ PAUSE [Q] NEXT R PAUSE Xfr▘ LET Pz▝ LET & DATA ▘ OUT ▝h▝" SAVE INVERSE [O]P(@*p !!Z ERASE = LPRINT t R0c RVAL c,▝2+▝'!▝3▝<=▝ OR <='P▝N▝@pl REM q[Q] t[H] LPRINT Bp ^0CODE !03 J COPY LIST U_SCREEN$ FOR WaP TAN ▜USR NEW ▝`INT [B]P8/ LPRINT VAL$ LPRINT V LIST [S] LIST PAUSE LIST 7SGN Tp▚b▝ABS pnr LPRINT FN [A] COPY COPY COPY 1 KLEN 2 COPY RETURN n▖ LOAD U©PEEK COPY ©©IN #FN ▖ LIST P LIST LIST LIST ▚V0V[G]USR LIST LIST + SAVE SAVE xu[Q] THEN ▝@ FLASH ▛VAL FORMAT >=DEDE7▖USR @ @T GO TO ▝TAN 8p▝e▜&!FE▚[E]▖ATTR SAVE W FORMAT [Q][E])1J k1M #0 ▘E0!VAL [B]8ATTR (ACS ▞▖▘FN FORMAT ERASE ▚ BRIGHT [L]>=l.CODE SQR PI CLS LET CHR$ FN RESTORE U STOP [Q]p INVERSE PD[K]@▝#<hR CONTINUE CHR$ k$: LINE o▚▚▞[G]▖TAN CHR$ @[A][S])H▟ %4 4"4 INVERSE <zW▘SCREEN$ Q▗EUSR SCREEN$ #FN [E]Lo@_VAL />= POKE CLS |BFN Ur"[F]4COS '[I]▛ GO TO @[M]/W LLIST REM DRAW =_▘ATTR SAVE RETURN !AT RFW,▜USR `[I]f[L]▛U[ LOAD DRAW 5 FORMAT kB4 LOAD ▝ wPh RANDOMIZE ©/ LIST U DRAW *PEEK ^[A]. THEN ▘4 GO TO ▙▘▝▝LEN ▛@USR @[Q]`09 DRAW [K]` NEXT XVAL$ [USR [F]p(V+ LPRINT yAT [LN 4WSGN ▝USR #▝[M] BEEP /USR - POKE R OVER %W*t COPY w LPRINT JVf▚FN POKE SCREEN$ [U]F▗Jh155ACS i0[T]Q*VAL ▝K0▝46▖IN U LLIST SCREEN$ LLIST p▝PINKEY$▝P* CLOSE #▘@[A]~[A]@Pp* SAVE ▗ COPY CLEAR COPY RETURN <>0p▝ INPUT * SAVE ▜oJCODE oCODE l// OUT OCODE [F]@* SAVE phpp |▗ LIST hpt▝ PAPER }▘ LIST W[I]P`0dhCODE [F]O*`+dQ`@[Q] SAVE SIN P▖ABS ▝" [E]TZ▗SGN K` LPRINT .J AND ▝+ POKE ▝,RND▝([I]▝! COPY ▝(▝ ▝FN ,pl LIST ▙[Q]@ [Q] [Q]'P[I]B FORMAT `▗ TO RUSR COPY IF SCREEN$ BEEP U COPY REM Q/,``▝( h▝Pd▝ !GBPI DATA /▗P▙ LIST @` pnnD>=!AT ▛ LIST ERASE L▟M▛SCREEN$ RUN U RETURN SCREEN$ COPY } RETURN RETURN CODE CLEAR , TO 1@▝`▝ p▝#SIN ▜O OUT [P] OVER G[I]▘ @USR ▖ d▗ b[S][R] `▝a MERGE REM IN ▝SQR ▟[E]R VERIFY SIN BIN FORMAT [R]▗[S]@-[O][M]X[E][A]4 FORMAT PFN @[Q]A@(K[A]u4 THEN ▝JcUSR E[Q][Q]a [Q][Q]h [R] i [R][A]▞C [Q]EM[U]▚[U],[Q]D, PRINT ▝0IN ▜^*U O[S]U->=[D]2 x PLOT IF POKE / CONTINUE OUT P>BSCREEN$ REM ▘@POINT L COPY - GO TO ▛ MERGE CONTINUE 0[A]▖u@ INVERSE [B]W▜SGN ?A IF MERGE ©FN 5▗J FORMAT {▖hD▟ PAPER SCREEN$ ? RUN AT B VERIFY ,"▝E{AT mW POKE ?SCREEN$ }Tz[Q]tJ▘ LPRINT BEEP ▝D▖[Q]1 A ▝[Q]▝INKEY$ [R]|[J]FN CAT Pu@ PAPER POINT FN [O]5 PAPER ▖▟9 LIST POKE /TAN {J REM [U]T@z|<>SIN ) DRAW /%U4<j SAVE =[T]* PLOT ▝H{ POKE ▝PEEK ▝ ERASE INT ▝>=PEEK LN ▞STR$ CLEAR ▜SCREEN$ ▜U▝ATTR |FN !>='+P L TO N▘ COPY COPY [B]SCREEN$ IN COPY *SCREEN$ VAL VAL VAL | LIST P$▘ COPY COPY *▗ CODE COPY CLEAR [D]uBIN pH0$▝@{ FORMAT }8pH H<>M/▝j▝pSIN NLEN ▝ PLOT ▝: LPRINT +[I]HII▙A<AT DRAW RNDP)[A]▝ LIST #ei▝H]>=ylYt`/[M][H]A? !0# 0+ ©0!*0U 09l▝0)l▝>=T▝>=Z▝USR F{M~phylyl9lPT9>=ylyl~|~▗▝PEEK ▝ LPRINT rxylyl DEF FN zRZyll▚0 c0RP)l`V▝ LIST U▝" CONTINUE <>(Lp<pDpP HB@ RETURN UVd▙ COPY LINE SCREEN$ F LINE F> LINE @F@▘ LINE ©Tm GO SUB ▝ COPY 1 RUN ▘ COPY COPY IN /x▜08?:LEN ▝882%[A]▝$ GO TO ▜F LINE LPRINT F[Q]`d▝ LINE FN FTpd LINE [U]Fb l0R0X▝ DRAW DEF FN ▝ RETURN ? DATA PTPppl▗[Q]F` LINE Pp0, TO PRINT RUN >= OPEN #plpp-h}©6▝ COPY plPp#▚FN uPR▝ FORMAT BIN ©0<>▝ LPRINT V▝4▝ LLIST AD@T[C]▜ LIST TO ▗p REM F+▖▝ LIST LIST LIST J[Q]P >40T▝ LPRINT EXP %~e©USR [L] FORMAT APA FORMAT AhA CONTINUE u COPY POKE zA CLEAR ~STR$ COPY 0© CAT OUT LIST ©$DSTR$ FN ▝AT [F].. COPY ^^PEEK ~ RETURN RETURN BORDER RETURN PLOT COPY RETURN P$$v▝ STOP INKEY$CHR$ U@SCREEN$ ▘U@▘▝-▘-@ DATA ▚*▘TAB @*▜ COPY TAB U*SCREEN$ ▝TAB FN 0* PAPER DATA RETURN CLEAR [Q] RETURN [A] CLEAR FN RETURN [E] CLEAR SCREEN$ ▘ MERGE COPY [C] PRINT COPY IF I/▗ COPY B% INK *(TTFN PAPER ▖UU[Q]SCREEN$ [A]UFN ▚▖SCREEN$ FB~ COPY COPY COPY COPY BEEP [P]>~< DRAW 87 COPY %U+6Q4SQR 6q4SCREEN$ 6$SCREEN$ NEXT /PEEK ~| DRAW DRAW COPY GO TO Ul( CLOSE #` PAPER $ GO SUB l OVER , THEN l,[F]l CAT (E RUN 6 NEXT 46 CLS 4}6SQR $[+6SCREEN$ 7 COPY 0>?<~%SQR [P]E OUT ` LOAD $l COPY , OVER l INVERSE , PAPER h CLOSE # `SCREEN$ [U] COPY GO TO ><||▜E COPY LLIST #K▘Q>© PLOT ▜U© SAVE kA▗* USR LPRINT PI[C] LPRINT USR OR `[U][Q]9`▛USR ( CLEAR ▘@ COPY dT CONTINUE ▝>O▖TAN COPY DRAW : ▝T▘ CLEAR ▝ RETURN COS sus© COPY STR$ `[G]▝ RETURN 10▘ CIRCLE [M]g ▘SCREEN$ ?N▗A SAVE 7[C]USR LPRINT OR @USR USR a▖USR USR / COPY FORMAT 4 [A]▝SCREEN$ [A]▝[G]▝VAL$ DRAW p[A]tt$q▝NOT TAB RETURN ,USR ▝ CIRCLE <▝d CIRCLE ▝FN [M]▝E[G]<=▘?>▜? LIST MERGE B<INT ▘tc▘( ▝▗ LIST ▖ ▝pqt[H]$ PRINT qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL u'u1qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL r@uABS u<=qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL qVAL r:v?vIs`s`s`s`s`s`s`s`s`s`s`s`s`v MERGE v OUT s`s`s`s`s`s`s`s`s`s`s`s`s LIST wkwus`s`s`s`s`s`s`s`s`s`s REM tzw RUN s`uuuuuuuuuuuuux▟uuuuuuuuuuuuu[Q]yy#uuuuuuuuuuuv*yRND&LN **5[S]UB[Q]>TAB PW BEEP LPRINT oCODE PIN [ REM M GO SUB "▝IN <PEEK ]]ATTR MOVE ▝PEEK Lw MERGE ▖▝ REM BACS BRIGHT < COPY IF < CLEAR |n▝o<▝/4▝ CLOSE #`[S][[Q]ZASN USR .[P] LPRINT USR USR [Q] LPRINT @ READ *[J]USR ~▟ V*▞@▘▞ VERIFY LPRINT /ATTR FORMAT FN OUT CONTINUE [M] COPY TSQR ▗} OUT [E]▝+PEEK OVER ▝TP COPY FN TO ▝_▜▝[ LIST ▝INT OVER ▝PEEK [D]?_<_ COPY VAL H▚USR RETURN ▗ MERGE ▗CODE USR l▝▘ SAVE W^GN▘<=▚*▝@SGN ▝VSGN +ATTR TO =^ CIRCLE W LOAD [A]▝:▝*J OUT VAL$ SCREEN$ n▝ LPRINT SCREEN$ FN <}T SAVE ▛WLN >IN CLOSE #?▜ CONTINUE FOR OVER ▘ OUT [A]▝ LOAD ▚▛ BEEP LPRINT @"[A] COPY SAVE w INPUT +IN ▝ BORDER + OR ▝CHR$ !,▝USR !,▗USR ▞>=[I]▖#RAR▞UABIN VAL$ A▗Uc READ ▞▖GSTR$ NEW FN <▛)USR QUSR "▝▗ MERGE ?POINT ?▚ SAVE !▝ DRAW |A(R▗CODE ?▜ LINE ?SGN u REM ▝9▝D`▝Jp▛G LPRINT AT USR SCREEN$ USR [Q]USR ▝INT G4p▙@ LPRINT FN LPRINT [R]VAL ▞ SAVE p RETURN SAVE (▝P▘p<>▝|{L INK ▝ LPRINT 2H▘USR ©USR DATA [F]`USR 8P|, STOP 0 VERIFY LET TAN LET 8▖ LET 5 LET ▝ STOP DEF FN "H▝<[A]S FORMAT [G] RUN ▘[M]▘ LIST 8[S] PRINT ? SAVE ▘ LPRINT ? GO TO ▝-e DRAW G DEF FN ▗▘@r▝0~`U@USR [M]4<<B0"▝=▝USR ABS SGN V COPY [O]TAN COPY >~ LPRINT 0▟SGN LPRINT ▝? LPRINT |©,▝b/ RESTORE ▘F FOR ▘)] LET ~)▗▘[E]*▘b POKE [A]&F` LIST SIN ▝ VERIFY ▝<FN x~@>=▝ COPY CHR$ ▝y6▝ INPUT ▝ABS PEEK $▘SGN VAL ▝|VAL$ ▜<,<x#▘SCREEN$ PEEK ▝BUSR ▝L▘![M]▘?SGN ▘ STOP zSGN * STOP [O]<>▗ LPRINT z<>^K▗@[C]@ LPRINT LPRINT [Q] LIST LIST LIST LIST SAVE [Q] COPY CLS ▘ ▘H REM ▝▘ COPY COPY CONTINUE LIST FLASH ▘PEEK REM p>= COPY VERIFY . COPY @>=TAN pEXP COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW ▗%@v@F TO ▝▝6 CLOSE #▝JE[I]▝▚g FOR >=b@t ERASE PI LLIST VAL$ ▚ DIM K LIST 0ACS ▗ POKE LLIST <>9 CONTINUE ACS ▟A POKE >ERj▗SCREEN$ STR$ VAL$ PU>HINT 8▚ RUN M DRAW [S]POINT IF ;kATTR HFN DRAW u MERGE R[S][C]INT CONTINUE INKEY$[T]TUSR 5D[A]▚!FN VERIFY "$USR l▗[Q]▞R($BIN DTAB @p MOVE !▘TAB BcC▗1G@/[Q]p[A]FN USR @EV▚8:[D]ZH LIST [Q] STOP P [A]FN @Pqqq1h BORDER H!▘ CLOSE #▛1 IF W LPRINT 1▘ LET !▗ IF [F]vTAB AmRNDrj PAPER RETURN ^|▗u* IF 8SCREEN$ ~▟|▗ REM SCREEN$ RETURN ▗h READ T( OPEN #SCREEN$ ▖[C] RETURN RNDW"|BINKEY$H▚ RANDOMIZE $$ABS ▚▗▘a▘!(! C!A!▝HqqqqqqrrR▘ASN 2U▖"SCREEN$ IN [R]▛ DRAW P"▘ RETURN +2 PRINT ^ NEW ! RETURN MERGE ▗ IF U GO SUB n▗ MERGE *ATTR 1▝"▗T RETURN ▛! CLOSE #)▗ FORMAT NOT FN [L][T]ATTR 2 DRAW ▗EWH▗"RND%▘▗1▘P1▝A▘$1▘P1▝Irrrrrr▗vM8▝ OPEN #) ERASE ▚USR CIRCLE !@@▘▘▖▝<▘[C]C!p3+▘▝#VAL ▝[F]_ GO TO ▗ DATA rCMP N9z▚▜USR `▗▟▝▝& 9▗ INK ▝SIN ▗ ▖[Q] ▝ REM ▝[C]▝ CONTINUE ▘@C[M]▖=▝*t▝▚. CLOSE #▝ INK vINKEY$9 PRINT ▘pH ERASE p CIRCLE ` CIRCLE ▝P CIRCLE ▝ LINE P CIRCLE ▘[D]p@ CIRCLE ▘(P CIRCLE u0 CIRCLE ▝P CIRCLE ▝p CIRCLE p CIRCLE CAT CIRCLE ▘[U]P CIRCLE ▝,D STOP ▝"+ CIRCLE sp CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE p CIRCLE qVAL ▘USR QVAL ▘ CIRCLE `AVAL ▘▛0AVAL ▘PQVAL API CIRCLE 1PI;USR VAL DATA !VAL ▝1k▜E9<=1VAL ▘P CIRCLE ▝ !PI CIRCLE + RANDOMIZE qVAL qVAL NAVAL ▝qVAL qVAL qVAL qVAL qVAL r▖r▖r▖2▖▝`R▖▝b"▖▝A2v▝"@ OR p CIRCLE ▖▝NR▖ATN "▖▝@e CIRCLE ▘<=v*▝[S]2▖▗© R▖▝P CIRCLE ▝P CIRCLE Kr▖r▖r▖r▖r▖s`s`s`p CIRCLE S`3M`▝b▖0 CAT `0 CAT `0 CIRCLE &STR$ `▘▝i-▝PI1VAL CAT CIRCLE 1 DIM `▝▗p CIRCLE p CIRCLE s`s`s`s`s`t8t8t8t8t8t8t8d8%48▝EP CIRCLE ▘T8▝D8▝T8 CIRCLE 48VAL t8t8t8t8t8t8t8} COPY COPY COPY COPY COPY COPY SAVE CHR$ ▝[Q]▝@b▘ NEW T▝D[E]▞S[A]'$AO$ RUN ▙TINT COS VAL$ INPUT COS [ZINT #4▘[B]6]^[N]▚<UP$[Q]@DG MOVE H[S]x0[Q]FN O2[L]POINT 50SQR POINT ,0[B]p STR$ STR$ D[Q]K LIST *L[E]KATTR CLOSE #h1O[I] MOVE OX[A]/G[B]W$[Q]SCREEN$ [Q]@4 IF ▘ CLEAR d IF [A] CLEAR @ IF [S] CLEAR D RETURN [Q] CLEAR A IF CLEAR $ IF PRINT IF AH[Q]0[Q]@▘@B)>=▘ LINE [R]▘>=▜▘( LINE ▘FU▞BEl[Q]5[R]P'SCREEN$ BRIGHT _[S]X[B]R ERASE ▖ $j RESTORE W2 CAT s[A][Q] POKE %*USR D CLOSE # LPRINT ASN d.`>=$/[A]TAN qDqDqDqDqDqD▖VAL$ VAL$ ZJqDqDqDqDDDOAD▟?0©FN ©2SCREEN$ POINT USR 0 OUT POINT AT qD▖KSGN REM TO [E]ED[F]SCREEN$ CLOSE #FN MOVE OFN P([B]$QD▜6SCREEN$ ▘UdINT D▝ RETURN AD▞"+$▝[S]qDqD1D▝*qD!D[C]PAT _RFN FORMAT [K][S][C]▖▝D▞k OR W LPRINT USR CAT CLOSE #$qDaD▝!D▝qDr▖r▖2▖▝r▖r▖r▖!DJr▖r▖r▖r▖r▖▚[S]50~D▞IN POINT COPY 0 CLEAR POINT SCREEN$ 0R▖▘J▖!D[A]ATTR TFN QKFN P)(qD"▖▗ REM ▘ CLEAR DATA ▖▛SCREEN$ [S]BIN ACS [Q] LINE STR$ ▗)qDr▖2▖▝[Q]qDr▖▚5PFN / ERASE D▝ ERASE D[P][S] OUT FORMAT CAT FN @ATTR RESTORE W LIST bqDr▖qDqDr▖s TO s TO D▝/s TO s TO r▖D▝▛r▖s TO s TO s TO TO ▝qDaD▝ COPY ▗p COPY COPY !D▝TAN AD▝D▚POINT ▟SKSCREEN$ D▝SCREEN$ DFN D MOVE [S]r▖▙ RETURN ▘ PRINT dSCREEN$ [A]@PEEK [S]/BIN TAN qDR▖>[Q]Us TO r▖▘▘s TO ERASE VAL ▟H/[S][P]/_SIN XFN [J] TO ▝STR$ TO dj RESTORE VUSR [U] DEF FN r▖s TO s TO r▖uu▚Wr▖uu▝U▝uuuuqD▝▖▝z TO ▝PEEK qD▘! RETURN "▖▝ POKE b▖▞SCREEN$ TPOINT <>QkSCREEN$ ATTR ▘QD▝QqD TO ▛ INVERSE ▘ DATA [A] RANDOMIZE @SGN [S]^r▖s TO ▛ COPY [R] RETURN COPY ▘~Bu>=*E▝▚%▝u[B]U FORMAT CODE H_[S]CODE TZ[S][Q]>=[B]R[C]( DATA !D▘ DEF FN s TO uus TO uvTTGvTvTvT▝ FORMAT T▝ACS vTvTvTvTvTr▖s TO r▖qD2▖POINT LINE SlqDr▖▝ PAPER ▖ IF [A] PRINT TO ▝@s TO ur▖VT1Dr▖▗D MERGE P▚AT P>=D6TQD▝3&TuvTr▖vTw[I]r▖"▖w[I]w[I]'[I]"TVAL w[I]w[I]w[I]w[I]w[I]s TO uuUr▖D▛<=SoSCREEN$ CODE QoSCREEN$ Q-uVT▝ MERGE %6TPOINT AT▝vTw[I]7[I]▝vTg[I]▞ LIST (#▘▚ TO UR1DFTQDvTw[I]w[I]vTw[I]x BRIGHT x BRIGHT x BRIGHT x BRIGHT H BRIGHT ▝0x BRIGHT x BRIGHT x BRIGHT x BRIGHT x BRIGHT uw[I]w[I]qDfT CLOSE #POINT CAT OPEN #!D▚*[B]/E[I]CHR$ D7[I]POINT ▘T DATA REM ▖ IF [S] PRINT D IF ( BRIGHT PRINT $Yw[I]x BRIGHT x BRIGHT w[I]( BRIGHT 6FN CLOSE #/[S]▟/T CONTINUE qDAD▝ CAT r▖x BRIGHT x BRIGHT x BRIGHT [S]DDpVAL ` LPRINT @>=STR$ ▝[A]▘USR USR USR TAN [P]d,fCODE g READ LINE IN EW REM SCREEN$ eU[Q]FN pB8/.W PRINT +&/<[A]USR CAT BORDER LINE ▙RNDH▝L([I]~SCREEN$ COPY RETURN CLOSE #p$?TAN ▝ LPRINT LLIST ▚PI REM ▚ LPRINT [Q]8| l[C]USR a LIST xSGN _/U+. RANDOMIZE D▚USCREEN$ T RESTORE NEW USR LIST |CODE -W COPY * COPY ▝A&▖ POKE SCREEN$ SCREEN$ USR P▘?1/,▟ READ W RUN PLOT INKEY$ASN EV[Q]T%▖AT )IA▗` ?[S]▙▙EUSR @▖p CIRCLE 0A[E]<i CLOSE #FN P[Q]Pp DRAW ▙> COPY USR PRINT SAVE SCREEN$ PEEK UWSCREEN$ G▝O PLOT TAN +[qTAN zIN ASN W COPY ATTR FOR VPOINT 0 CIRCLE ▝N/aL▙NOT BORDER .VAL$ GO SUB MjAT AFN ) CIRCLE ▘@ MOVE 0/z POKE ▝PI▛[R]* TAN [G][Q] FORMAT FN P CONTINUE TAN ZVAL$ W*▝▚▗"▞<>bH▛pLN V)USR ▘TAN (!h[A]USR LPRINT LN VATTR *KBIN Q▝P/ LIST ▝ 1 SAVE P BEEP x$▗U POKE *SCREEN$ cIN _▝ P DRAW l▝[FN DEF FN ▜LN FN X NEXT ▟X(DD$[A][S]@ OUT ▜ CONTINUE RETURN MOVE (2 RETURN ▟:4(@5:4 TO ?▘$ OPEN #▝[S][A]▖ ▖P▖le< TO [P]▝! MOVE @$PEEK [Q] CAT ▘`[Q]2 LINE |, LIST ▝ PRINT [S]U RUN USR STOP ▜USR USR @m▝@8[A] RND BEEP @ PLOT ▖@[A]| FORMAT [Q]PEEK ▗ ERASE [Q]-[<>▜= REM UU RUN @/ SAVE ▝#`@USR [Q]u SCREEN$ CAT @"Kd<> STEP AND NEXT GO SUB s![G]i▟[d MERGE GO SUB VAL ! AND RETURN COPY /<> GO SUB LN ! POKE [T]TAN _~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1COS _ CLS NOT ▖ POKE /[POINT NOT AND _NOT ©`NOT [I]`NOT [M]`NOT aNOT aCODE 2 INVERSE RND> RUN 2 GO SUB RND>2 INPUT RND> LOAD 2 LOAD RND>2 LIST ▚ LET RND>2 PAUSE ▝ NEXT ▝ POKE ▛ PRINT RND>2 PLOT RND>IN 2 RUN 2▝ SAVE <▝ RANDOMIZE ▝ IF F▚ CLS RND>2 DRAW P▝ CLEAR <▝ RETURN Z▝ COPY P▘INKEY$d▘INKEY$d▘INKEY$<▝▜INKEY$> OUT 2INKEY$2▝▘INKEY$Z▚INKEY$> CLS 2▚INKEY$> CLEAR 2▜INKEY$>©2INKEY$[G]▝FVAL INKEY$<> RETURN RETURN (. GO SUB xRND>= THEN THEN m( PRINT THEN zATN GO SUB <>v CLEAR <>=o&)COS `~ INVERSE w INVERSE ##0IN <>©©©©©IN IN IN IN IN OUT OUT OUT OUT OUT LOAD LOAD LOAD LOAD LOAD RUN RUN RUN RUN RUN CLS CLS CLS CLS CLS CLEAR [U] CLEAR CLEAR CLEAR CLEAR RETURN RETURN RETURN RETURN RETURN STEP ©`zPI( RANDOMIZE <>G:INKEY$LN LINE <a:0▝0▝0▝ #▚! OUT RND THEN [O]<>SCREEN$ OVER <>#./01(-,+*)!"$ COPY COPY CAT ▞+:A;5USR C ▜/▝*▝4CHR$ 2▘10▗=<A> AND =▘CC LINE A▜CC ?A@CHR$ ▚"#$CC%Z▝!NOT %▝&Z▝NOT CINKEY$CCSIN LN C,:>@▘[C] ▘ DATA DATA ▘@▞PIATTR ATTR COS LN C0-▞FN AT CODE TAN LN C0<POINT TAB VAL ASN EXP V0K▗SCREEN$ VAL$ VAL$ ACS CLOSE #Cp INPUT PAUSE ▝@ INPUT ▘[P]▘▜E -▝@VAL$ ▝0C[A] KPd▘[B]Pn▘ GO TO GO SUB -▝[C]P}▘ INPUT LOAD P▜u▘ v▘ LINE C▘ LINE C▘'[I]▝PEEK [M]▝▘ CIRCLE INK USR ▞CCINT IN SGN [D]GCCSTR$ DCCSQR USR ABS @[S]p PRINT P▘p LPRINT CC DATA !©▝▚ LLIST ▝ INPUT @[M][Q]@ TO ▞ TO D OPEN #C▝▝@5Lqf▘[fj▝▘▗px▗ GO TO GO SUB `x▚▝▞ INPUT LOAD ▖`w▝ INVERSE >=D ERASE C▝▗▛q GO SUB ▝▗ OR G DRAW CLEAR D MOVE E RETURN COPY C▞▘'▝▖U[H]▛DD[J][T][U][Q]▜3▚E[K]EC[R]! CLEAR ▝▝wAcp▛[A]@#LI▝h▘SL▜j3L▝2ySL@<SO▗E DATA <3L▘ {▝INKEY$CL<PisUSR sUSR 2 ERASE ▝S CAT A DATA OVER =" ERASE C▗= ERASE ▘C DRAW = ERASE ▝@<CA▝@<CP▝sUSR BRIGHT CRCODE 2bCODE 2:▝▛BCODE CIRCLE w▝#Q2 CIRCLE ▚▘▟[E]#B" CIRCLE c`>=C▘[D] LINE C#[S]"SIN ▝▗SQR #LEN "SIN SQR PoC LINE @o# INK USR BRIGHT ▘▟cLEN ▗GDDpo# CONTINUE p~sWsf LINE C&▝ RESTORE 4 LPRINT h▝GC*0f▝BIN T&▝ USR ▝ OR T&!▝▛$v` NEXT ▝s CLOSE #CW▝▗pPI FLASH S)# DRAW ▘▛s[L]!TU!e`1e▘▟E!1e0-RNDCCLEN ATN 1[A]t OPEN #%TAB q"t LET ub%! THEN ! FORMAT $[T]1 FORMAT ^$[T]1 FORMAT qLN &s LOAD D8sf"su"s▗p0- OR ▘▖▞%$"4%%#▝▙r.ET INVERSE @1 LLIST ▝cUSR ▘ LIST ▝'▝|▝ COPY ▝'*▝|3 GO SUB ▝|▝▝3 DRAW INK ▝0<▝.p<▝FJ▝0<▝▝vCOS ▘()7q6Pgq6Pgq7G7q6}▗C%'q6}▝C' BRIGHT w& INPUT B[B]3fW)2[B]g7▝▙vQV0_/]^_GX>=b`B{b"/">=▚caB{cLN 7 FLASH >dzB{dF[E]>▝ NEW ▝ NEW V[T]0▝▙w5'?gD▝▛N▝▛c OVER s[P]▝ DATA 07sUSR '{sUSR $t/C GO SUB t>sWthsfh▘ BRIGHT ECuqw▝DAq4▚[O]7q45gt[U]A>tCOS H DIM c[D]p`▘▝▘$ PLOT Y FLASH COS <=%74w Asp'▗W▖D8D1GNOT ▝x-%8<▘▜E( PRINT ▘▟4O▝▝PEEK dGxT8x RND$▘@RNDX▝▝Pxn▘▚G R)"▗ BRIGHT ECD0a)" p3PEEK STR$ < STOP +)t▝ DATA F+▘DDBABS USGN USR & OUT 8 LET VAL LEN " GO SUB )IN 6 OUT yy,y;hH▝G)hQ4▝[A]9h STOP RESTORE "RND>=Csfsfz▘e BRIGHT [D]▘CDq▘.-▘79~▘▘;6[S]▘d9[S]x▞▝sf▝ssfp%Y G+ - LLIST JPp<P▝▝p-P▝p-+pisWzlWCOS f▙7COS j)tkw MOVE wTAB 7gTAB ▘▟wTAB 'TAB z PAPER xxHCGbXC1 POKE HC+1ZYK1z>= BRIGHT CsW* BEEP Su+#▗▝ LPRINT # OVER +P)<POINT ' CONTINUE NOT <POINT ' CONTINUE TAB LPOINT W CONTINUE LPOINT {SGN kSGN SF;P▝▗CLN CPS[D]▝[A]; PRINT 7 DIM 8,INKEY$▝▛7 SAVE ▟[C],ASN H▝p00-`PL THEN YsL PAPER UTAB V2pk LET [J]'[Q]▝[A]8[L] RUN 'PEEK ▘[B]ESTR$ STOP RUN 'PEEK @ RUN p▝ STOP m*-y REM z}<>_ OUT ▚▘E BRIGHT E BRIGHT EBCODE [K]▝DM▞DC▝[D]E DATA L LET ▝▛ASN ▘6 GO SUB ▘ IF C=k▘▟z+? RESTORE ▝;. POKE ▝t5POINT {-{▝D7x▘C@ OR 7x▝C} AND . LOAD ▝p-~[L]sWsf CAT = REM ▝S OVER Ms GO SUB /A DRAW ▝ LET USR tp▝ PAUSE STR$ |M LLIST CHR$ Bp-▝STR$ ym DRAW ▝▙2LEN LEN *[E]*[J].LEN *[E]*[J]W TO O TO t TO | TO B TO y OPEN #C BEEP sUSR BEEP /K COPY . FLASH >=t▝v[H]px▝ NEXT CLS ▝▝px▝Px▝©$ CLS ▝>=C©"©"~TAN ;DCHR$ ▘ DATA ^ OUT N[A]TT▝ SAVE ©m▘nEXP PK DATA /[H]▝▙S▗gcLEN bSLEN ) BORDER ▘▚E/[E]LN ) BORDER ▝BIN <,[<=▝ OR <,[LN GTAB w[O]sUSR INKEY$3u3M)4©`▝▞ INK >=D}{ RESTORE |,[Q]8 CAT 3 GO SUB x▗<=,▝▖LFN ▝5#,FN ▝▘[S]▘E DATA "[L]FN < OVER #DIN GO SUB ▝Kp▝xD DEF FN ▘p FLASH ▝ LPRINT ▝su* OUT THEN C3 INPUT nh^ BEEP Nh▝}#USR .SIN .>#USR .SIN n9}|VAL$ M READ ▘CJ NEW ▝Js▗KNB{Kg5▚CLOB{L~2 CONTINUE DIM REM FOR CONTINUE CAT C▘ GO TO GO SUB py.- OVER ]' TO t TO D MOVE C< MOVE l OVER LET L OVER LET ▘? INPUT ▘-▝ POKE S8p▝O LINE VERIFY LET tv%U▘ NEW D MERGE POKE ▗▘ NEW L@▘ NEW S@▜{xt BORDER -,!▚GD J0▖ TO ▝?▗D BRIGHT BRIGHT $▝O▘C BRIGHT *CFN . GO SUB 0▘▝SIN ` IF > GO SUB `? PLOT 0<~▖q LPRINT sW{©Z+"▝ STOP [C]{"s GO SUB [@7[O]▟+@GTAB [@▝C{@? LINE 7&l57Dsu# OVER s▗K/POINT 8u:/LN 8u`8uX:ACS 8u_`<>Cs▗ns▗4As[D]$_▝CLEN CONTINUE nU▝ DATA DATA CONTINUE _0*PUSR GO TO 5[B] CLOSE #▜/ LOAD ▝'LN y DRAW ▘GD[D]▝▞▘+j▖ DATA @ ERASE LIST GO TO GO SUB SGN ▝_▜ INPUT LOAD ' CAT RESTORE ▘^▝ DATA L^[A]sW-]M>=jw VERIFY WG VERIFY Fz=^▘▘COS ▞M^▘COS >[O]▘ RUN > DIM ▘#t▘@8▝-CODE ▝▗" IF [D]▝STR$ DATA ▗ STEP ▖▗3▘ STEP ▞▚ INPUT LOAD ▚g▝Z▘ FOR -▘# LLIST $[R]WINT T[R]▖.D[R]ASN LPEEK ▗= DRAW ▜;8 DRAW ▘;7"▝<▘ DRAW [C][S]d DRAW ;5t~)c-e>[Q]U-e/K▝-e8▟mR▝ OR @bx[C] RETURN ▘y[J]*`CODE ▚t PLOT ) FLASH ?▘ RETURN FLASH ?▘ PAPER STOP DATA STOP ▗^ GO SUB CODE ▗ STOP DATA D?/▘:EXP ?▟▘[K]eL▘[K]INT ▝Ek|STR$ G>INKEY$▘▟©[K] -©[K][G]I[G]~INKEY$ DEF FN 6[D]] PRINT ▝?jNINKEY$▝% THEN ▝:m+8CODE cUSR ? LIST ?[D]/ PLOT [C]?[D]SIN t[C]▝BIN SIN - IF 8oZ▝-[T]▝▜NPEEK © DIM ▝]L▝STR$ 2▘10oWBIN =ZfBIN A0a▞CC ?A@"#$H FORMAT ▘C%VAL ▘%&jf▝IN TAB ▗. GO TO GO SUB 9▗▝ DEF FN COS ▗ INPUT LOAD ] INVERSE ▝<>|[L] OUT 3f▝▚8 NEW ▘3uNLN S▗b@8 OPEN #0<[N]▚INKEY$ BRIGHT BRIGHT SIN ▘0< LIST ▗INKEY$DDSIN OUT P<>0i▗r FORMAT ▘[D]+/3▖A;4%%%STR$ %USR ▘A> LINE = BRIGHT A▘@<> A;!@KP▝Rg3W[F] LPRINT 3f▝*[S]▘!`v▘<A FLASH APu ~▘ Pr>= TO c▗▘I▘/O PRINT ▝NQ IF EQ IF Op▝BIN FORMAT ▝ BLqRO#TH|(SIN ▘[P] TO ▞ TO D CAT C▚9 NEW INKEY$ /mY.▝7▝/).)/SIN ▝=n GO TO ,.+yy▘C TO C.Ma▘C9 PAUSE ▗. CONTINUE ▘9^▗wyC()<>2 TO = TO ALB1 DATA ▝;5> VERIFY LN 4 CLS ▝ PAUSE 4 CLS PAPER ©CHR$ ▗ COPY COPY @▗ COPY @@3▘ COPY USR ▞@ COPY _@JUUJ NEW ▜* DATA E▝O$▗EDJ[E]EEJ▗UE@_ COPY [Q] CLEAR u▝▝ DATA [E]▖USCREEN$ U[E]H COPY CLEAR $▜ IF IN ▛SCREEN$ UUSCREEN$ U COPY ▘▜ LOAD SCREEN$ CLOSE #RNDRt[N]BJy@© FOR COPY DIM UI<><=Dv[P]PR▗UDRUURSCREEN$ U@P▗QDP▗PW COPY P BEEP COPY @ CIRCLE [G](USCREEN$ [P]@[Q]@/ COPY SAVE LIST STOP %"PEEK ▗SCREEN$ RND▗[Q]CODE CLOSE #▚ COPY LPRINT SCREEN$ ?[M]▝[S] STOP [I]UUFN COPY RETURN TSCREEN$ RND COPY RND▗TRND!6 PAPER 0$[M]*STR$ }uUPOINT UPOINT ?U $ COPY $$ COPY BORDER 1hT$FN MERGE COPY <> PAUSE ▝ OR COPY !8▘▘[C]▝©USR @H@T@I_T@HGB▝ DRAW 1VAL ▗UU*[U]x LPRINT ▖ COPY ^@U@SCREEN$ ~Q>=0TAN ▞SCREEN$ SCREEN$ DATA [T][C]RNDPSCREEN$ [F][U][S] NEXT [U]SCREEN$ ▘%B* CIRCLE ▗POINT <[H] CLEAR t PRINT ©UT CLEAR UTSCREEN$ [U]!h[J]_>=PTHPU FOR PH LIST ▖O@U@JUSR ,Pl▜USCREEN$ k[E] BORDER USR $@%@$TAB " ~> RETURN "dE58585[G]▗ COPY DRAW © RETURN 0USR E`$,ATTR @8`5p8x5|8:5858EE DATA FORMAT DATA @P[Q]$PFN * COPY V COPY ▝SCREEN$ HI$[H] DATA FORMAT DATA FORMAT T DATA FN FORMAT P DATA [Q] FORMAT @ DATA ▘ FORMAT STR$ ▗DSCREEN$ ▗ CIRCLE [F]▗/@HUSR ▖ LPRINT H LIST SAVE SAVE DRAW G▝E#▘ COPY COPY RETURN ▘SCREEN$ KUT IF SCREEN$ ©T COPY REM © DRAW ▘DDlp$0$▚[S]TASCREEN$ TD $▝pH0H▙[Q]RPUFN RTT.RTRH▙ RETURN COPY ~ COPY RETURN SCREEN$ ~U RETURN ~SCREEN$ [B] RETURN R|U SAVE RpT LPRINT R@TRP CLS ▝A▙▝SCREEN$ 6P[A]▘ NEW GO SUB ▝ DRAW ▝pTAN DRAW ▝a▝SCREEN$ + [A]▝pTAN @ CIRCLE ▝1▛585r8[A]▜AASN ~LN >ASN AT LN q[I]q[Q]Dp DRAW A ▛[A] VERIFY $P DATA RETURN !
26630 DRAW P$▟▝U BEEP POINT [B] COPY [A]D▞AASCREEN$ DATA V FORMAT * DATA TAN ▝![Q]1USR PVAL ▝DqDQBx:t CONTINUE SAVE !hplQVAL ▚E▘T*▞▝*!hVAL RETURN COPY RETURN UTq CLOSE #R▗^ATTR RETURN _Q CLOSE #qhAD▞RTSCREEN$ SCREEN$ TD*▗AACODE ▝>CODE ▝>CODE >~> PAUSE vCODE EB PLOT ▝ PAUSE CAT R COPY CLOSE #©[B][C]@W LPRINT p SAVE P|^SCREEN$ @xd! GO TO q DRAW 1 DRAW ~ASCREEN$ [S]BIN FORMAT $q DRAW ▟>|FN P[Q]E#`8.5,▜85P8*l▝~HH5J▚A5T8V▝P/▝~[A]▝X▝XT5$ A$85:8|5x8p5`8@VAL ▝D5V8R8T▗A COPY RETURN © DRAW 0▘4▝ CIRCLE c LPRINT ▝EFN [N]@ RETURN D~H>DH OUT PR[E]TSCREEN$ PP RETURN V[Q]▝E▝ J[A]UBSCREEN$ Dr COPY STOP $:▜$"> T?$8/ql1lp~▘>E AND $q CAT <=|:%"$"VAL ▗qDS FORMAT ? RETURN LLIST P T COPY * CLOSE #1h▝©H▝ POKE ▝▟[A] CLEAR 0U?SCREEN$ [Q]@ [Q] $▝*bVAL ▝X▟P FORMAT ^ DATA @ FORMAT J DATA T FORMAT >= DATA l▛J DATA ( FORMAT N DATA FORMAT D DATA *| FORMAT DATA IF FORMAT LPRINT g▝BIN ▘ FORMAT [Q]<▝FN 8▞* DATA FORMAT r DRAW $[U]▗+ RETURN W RETURN P:dBIN h▝▘ RETURN ?CHR$ ▝/8STR$ E[D] RETURN [S]|[S] SAVE [S]pPEEK LPRINT @ POKE COPY POKE SCREEN$ %▝▛A LPRINT >=*Pp0▝D▗▗U8SCREEN$ SIN Pp0PI▝DH▚[Q]*Pv[A][E]▝D}uVx[O]p$$%▖U;SCREEN$ 3U9SCREEN$ G▝]p$ BRIGHT ▖ LET U SAVE SCREEN$ FN UppSGN p>=@TAN ▜SCREEN$ [P]U:SCREEN$ VAL LpSGN p>= TAN p[Q]pFN pTAN l@TAN INK COPY $[A]Pp▝©$/Z▝SCREEN$ p0p$VAL ▝ATTR SAVE Pp▝W`H▗▝ CLOSE #Pp▘© CLOSE #Plpj▘UTpTpHplpp▝ATTR p[S]2@p VERIFY p DEF FN p>=2d▗@V[R]▘P▘VPOINT TW CLEAR UAFN UU[C]▘FN ▝0▜UU DRAW P AND P$▘P<▘V▝P0L▘T H▝X<▝ POKE ▝?TAN 0l▘UATTR ▖ATTR WATTR WWCODE CODE BF_CODE _IN _IN _IN ©▚IN ©IN $[C]©VIN ?_©CODE ? BEEP © FOR ? PRINT © IF ? DRAW pll[Q]<> COPY '[C]Hp[E]▘UU[E][B] CLEAR RETURN T CLEAR REM IF CLEAR PRINT RETURN FOR RETURN W COPY CODE COPY pTAN 0$ CLOSE #[B] COPY ©©@ COPY ©U COPY ©P ▗©@SCREEN$ USR ▗EDEDVAL$ ▚SQR ABS *POINT 351")▘318INKEY$ CLS P$▚ RUN LOAD UMINKEY$SCREEN$ ▘Ep$PH LOAD COPY M*▜MU[Q]M▖'0H▚ COPY >=© POKE COPY IF GO TO [D] RETURN © SAVE COPY PRINT © FOR COPY BEEP ©CODE COPY _~IN SCREEN$ ©IN COS %X▜>*|| SAVE X.▚ REM SCREEN$ COPY U COPY IF S0▝Bg<▗▚**TT SAVE CONTINUE l▝ IF T▚ MERGE U RETURN SCREEN$ COPY PRINT 0$▗ RETURN ©~IN Pp@l CLEAR $▝ COPY ▗ FOR COPY POKE © RANDOMIZE Cp&#`s▗TAN ▝ REM TAN IN _WIN *@TAN sFN VAL 4|<> COPY UXs FORMAT ▝© CODE RETURN BEEP SGN ▜ PRINT RETURN IF RETURN DRAW U CLEAR X▝plC SAVE T[Q]/ SAVE SCREEN$ ▘,FN ,| PAPER ▝©rT_2d▘_x▘CODE 2▖▘W[I]▝AT ▝AT ▝SGN ATTR ZAT ▞FN CODE IF *FN TAB PPR*t1 SAVE ▘-P @▘PSCREEN$ 80`$▝▘p▗SCREEN$ [S]-@▗SCREEN$ ▘-k▝U[E]▗ COPY CLS UYp▚YFN Yi CLS RUN YUSCREEN$ SIN YUFN SIN YQ▘FN SIN p$RAT OVER INPUT JSCREEN$ VERIFY fJSCREEN$ AND fJ"▘ AND fpHSCREEN$ DRAW | COPY || CLEAR |T||▘|▘U(d PRINT e2▘VAL$ Wu`uXT GO TO ▘VSCREEN$ ) AND u▗u|UXu[Q]uAT u[Q]%X[C]< RETURN SGN CLEAR | IF DRAW PRINT DRAW FOR DRAW [H] DRAW O DRAW IN DRAW ?▝▗ DRAW *FN <FN ▘ RETURN &*P▘ COPY <`( RETURN X[E]2 POKE ▘FN LN 8▝©wSCREEN$ IN Ws3c< OVER _s<< DRAW / DRAW _▝ CODE DRAW BEEP [K]▚ PRINT DRAW IF DRAW CLEAR |nlSCREEN$ SCREEN$ }[E]v|v▖q FvUSR ▝ CLOSE #vFN v[M](▗*▗TAB @Pp0t/`VAL$ ' PAPER W AND d▞▘-@ REM ▘@ IF ▘▞▟t[U]>=▝ IF SAVE ▝CHR$ p$▝4▝<@@HL▘-G▝© BRIGHT SAVE < DRAW "AT ▘U▖[Q]/ COPY TAB U*SCREEN$ ▝>=▝0TAN <> COPY @LN !|>>?@▘INKEY$▘U PLOT ▘SCREEN$ tp00▖ RETURN [Q] CLEAR VAL RETURN LN CLEAR LN [I] RETURN ▖ CLEAR p0▝Ut GO TO ▝FN .STR$ Ux DRAW [E]▘FB( LINE FN SCREEN$ t|q SAVE CLEAR [Q] RETURN [A] CLEAR FN RETURN [E] CLEAR SCREEN$ ▜ MERGE RETURN SCREEN$ CLEAR U COPY REM . IF COPY CLEAR CHR$ ▝ COPY lx[E][C] COPY U© COPY COPY © RANDOMIZE IN }_=CODE WATTR x▝BxLN p=▜ CLEAR [O] RETURN PEEK CLEAR SGN LINE VAL RETURN [Q][F]FSCREEN$ SCREEN$ © COPY USR _ COPY OUT COPY ]U CIRCLE ] COPY INK SCREEN$ ]▞ INK [Q]] INK [S]]USR FDSCREEN$ PEEK COPY SGN SGN COPY PEEK U<▚SCREEN$ INT <SCREEN$ INT :4#[O]D SAVE * LIST SAVE LIST COPY RANDOMIZE COPY PAUSE SCREEN$ SAVE NEXT COPY CONTINUE SCREEN$ LIST CONTINUE LIST SCREEN$ CONTINUE U FORMAT FN $ PLOT [R] DRAW COPY LIST COPY STOP SCREEN$ [A]" COPY POINT [S][S]POINT U[S]Y[S]FDFDtxPp@[A]p$p(, PAPER AT ▝ COPY (LN Hp INVERSE IN ▚ INVERSE [Q]Y INVERSE [S]0l▜ INVERSE FN Y INVERSE CODE ▖Y COPY BRIGHT SCREEN$ X LINE dUSR @/ PLOT DRAW © CONTINUE ▗.6" SAVE P DRAW ▞ INK [S] STEP [S] CLEAR LET TO ▗[S] COPY SGN ▘UPR POKE D[F].[F]^SCREEN$ <IN ZUSR ▜^WCODE N0SGN ENUpp@(|▖© COPY @TTAB V LINE ▝@%[C]▗JSCREEN$ U▚WNCODE UNE]>J__/JUd▝ `*SCREEN$ uU~ REM ▘© RETURN 5BIN CONTINUE ▚iTAB UI▘>=▝ INVERSE ▗0POINT P(POINT tUz CLEAR <UZ DATA ▝z▙▚(SCREEN$ rW(CODE ▗SCREEN$ r(0▝DPp $(LN *Sj▘BIN ▙URSCREEN$ (URATTR (_rSCREEN$ (rH▛INT R| IF IF R POKE SCREEN$ CONTINUE [I]▘5 POKE ▝U;@?[M]▚ASN [G][C]SCREEN$ ▝/ CONTINUE r,R{▖K[A]©SGN COPY :▘©SGN H▝[E][A]@*N[E]@:SGN SAVE :SGN H:HSGN : RETURN SGN :BSGN z$[J]DD[E]* ERASE [E]P:P[M]P:[M] DRAW :TSGN T8 SAVE ▗[U] AND ▝ LIST ▝ IF 6[N]▚[E]POINT *T[E]h▝POINT l$/SGN : LIST 8▝[M]hLEN [M].[M] LPRINT . [E] tADAD DRAW PLOT CLEAR POKE CLS PLOT RUN ▗ LOAD OVER ,SGN [O]x, PAUSE [O] NEW , DEF FN [O][O]<>[O] RETURN <SCREEN$ [O]<!D©<▘ COPY >,|p<` CLOSE #▘P RETURN PAUSE RETURN CONTINUE ▘SCREEN$ RFN RFN IN PAUSE CONTINUE PAUSE ▘ CONTINUE ▘ PAUSE PEEK CONTINUE ▛ PAUSE LIST CONTINUE PAUSE FN BEEP R▗AR ▖FN r[H] CONTINUE r▟ CONTINUE © PAUSE @ CONTINUE P PAUSE P CONTINUE @ CLS ▗ASCREEN$ SCREEN$ IN ▙IN COPY IN COPY [F]▚IN COPY *R CONTINUE ▗RFN $▘ CONTINUE 8 PAUSE * CONTINUE U ▝© ▘© ERASE L▝[C]>=▘INT l[P]SGN ^PEEK .IN ▜▙ATTR DEF FN MOVE NEW REM PAUSE LIST x REM < LIST REM ▙ LIST F IF [S] LIST X IF AT LIST ( IF RETURN LIST z▝}hR, LIST DATA ▖ RETURN ? DRAW ~ SAVE DRAW LIST ▙SCREEN$ SCREEN$ _j▝_#TAN ▗ IF ▚&R▚Q4P$▗▘>^▝[C][L].SCREEN$ [C].INT ▘.SCREEN$ RETURN . RETURN *FEFESGN .Ppp$p$0U▞_SGN ZSGN XH▝DPp▘XAT ▜ CIRCLE TAB X)[E]0 INPUT T▗PUh) CIRCLE ▙ DRAW ~j COPY 4©[K] COPY TO © NEW COPY PAUSE AT ▝ DRAW ~r~[Q]:VAL 4 FORMAT <TAN [Q]P▝ COPY ^[K]<>UH COPY <=©@ FORMAT COPY I INVERSE N OUT O[Q] OUT NOT O DATA OUT POKE [H]O RESTORE OUT BIN O[U] OUT %N+ INVERSE 'K/ FORMAT /@/<= OUT H?<> RESTORE ? CIRCLE 0f>><,TAN ©/▘~[L]U RETURN ▗ DRAW ACS ▗ COPY $USR v DATA PLOT DATA RUN PLOT DATA PLOT x[F] CAT DATA ' PLOT # DATA ! PLOT [Q] DATA BRIGHT v STOP $ PAUSE [G] IF ▗ DRAW f RETURN 4 COPY RETURN ▘~ [C]~SCREEN$ RETURN INT ~▘ RETURN SCREEN$ ~ RETURN SCREEN$ LPRINT CODE F CLEAR 4|xPp▚|xPOINT 4xp$p([A]4Th4 POKE hQ4TAN (Q44(CODE FQ4(Pp ▝ IN ▛FP7 RETURN P5jS(0RFN 5PP-[U]~AT RETURN Y RETURN COS RETURN g RETURN CAT RETURN [P] RETURN ? RETURN ©fR FORMAT ▝?~▝/▙▝*O DATA PPpp$6U RETURN + RETURN P▝UxPH▗RNDjQLP0~Xzh}d{▖pH▗TAB TeP0~[Q] RETURN ▘~CODE }FN }VAL { FORMAT }>=M FORMAT LIST xSIN ▝~{ POKE 0> PAUSE CHR$ LIST .V[E][Q]*U[E]VAL .u[O]▗FFBB<<▝©USR RETURN ▚|~ SAVE >p~ |<~4^<▖~ RETURN DRAW ~x> LIST |`[N] CLS IF | PLOT ACS NJ RESTORE .R^ CONTINUE >H LIST ,`USR TPEEK f|vFN /< POKE © IF VAL pFN ~|FN A"▞&D&▞nInRNDnIW PLOT V6tW PLOT POKE USR ▘ POKE ▜tV6W PLOT p(▘▞n8&A"0$▝E D▚RACS 6ACS RACS DP0D[E]▖[M]LP`p0▗▞nE&P$ATTR ZZATTR BRIGHT pt D;VAL ▝ FORMAT ▗SCREEN$ ETUSR pL[I]P80TAN ]AT ▟AT ]AT TPEEK ) OVER }[U]SIN ©[M]-LN ▘UU PAUSE ▘TCHR$ @<0Fn VERIFY ▗[C]DBIN [O]© FORMAT pH© DATA LIST ▗UT*SCREEN$ [D] 8@H© DATA © GO TO ~4rd© CONTINUE © LIST ~XEE[R]K~[S] RETURN !S[R]~" RETURN POINT ▝~*[S] RETURN SAVE ~ COPY @▝HJ~▖ ▝B▗B~SCREEN$ ATTR X%▛PEEK INPUT ~ LPRINT PEEK NEW ~ DATA PEEK SCREEN$ ~▝@@H RETURN [Q]| INPUT RETURN |USR DEF FN RETURN USR ▘N|NOT ▗|SCREEN$ SCREEN$ 0H▟uJ LLIST pw LLIST `v`▛w` LPRINT r[Q]%@P;▖[O]RND/OUSR O BRIGHT ▟USR L BRIGHT @L BRIGHT ▟ BRIGHT OUSR [M]HE@;AT [M] INVERSE P INVERSE SAVE @ SAVE INVERSE CIRCLE A[I]STR$ [I] CIRCLE ▞ SAVE @FN P[F]PL FORMAT [N]v?v?p7v31p37p?"*p R[A] POKE ▛ RUN Tw~~ RUN ^y BEEP N^"~U*TRNDTR@[A][G]U OVER CLEAR BRIGHT FORMAT DRAW PRINT OVER RESTORE FORMAT BIN RESTORE VERIFY POKE DRAW ▖POINT TABS UJ[E]<<© CIRCLE © LPRINT © DATA t© DRAW © CONTINUE © DATA [Q]EE DRAW ~ NEXT [O] GO TO n FORMAT AT AT *@T@4@T[Q]SCREEN$ RNDd OPEN #[G] GO TO n NEXT [O] DRAW ~+ FORMAT ▝Fp$@$▛[Q] IF RND OPEN # GO TO INPUT NEXT @$H▞ LIST [O] STOP nCHR$ [K]▘ DEF FN ▝~p$@$▝E0$[I] STOP NCHR$ F[K]Z▘B@~▗ IF BIN READ INPUT LIST 0$%X[C]UR OUT IF _ RETURN OUT IF W INPUT FLASH LINE U▙ FLASH LINE W INPUT ▘USR ?[M]P©LN ©BIN ©USR u PAUSE ▝VH▚ MERGE JRVAL$ BEEP REM 0D© DATA w LPRINT © LPRINT © CONTINUE u[Q][G]© RETURN LPRINT _ IF FORMAT SCREEN$ R PAPER CLOSE #SCREEN$ P PAPER OUT IF UZ OUT IF `uBIN x({H{PU CONTINUE ▘*▘dPp OUSR ▘@ REM CLOSE #▝ IF O LPRINT CONTINUE DX▘SCREEN$ DATA ▟TUI DRAW Px(+USR ▝ MERGE LPRINT FN [A]©VIN ©_©CODE © BEEP © FOR © PRINT © IF x BRIGHT J SAVE ▝ TO © NEW 8 FORMAT |8([D]EE CLEAR RETURN T CLEAR REM IF DRAW PRINT RETURN FOR DRAW W RETURN CODE RETURN |&8L[K] COPY © COPY OUT LIST © CAT COPY 0~STR$ CLEAR zA POKE u COPY CONTINUE hA FORMAT AP▘W INVERSE 1VAL ▞ COPY RETURN PLOT BORDER RETURN RETURN [C]PEEK ^ COPY ^..u VERIFY $00hA CONTINUE @ POKE zA CLEAR ~STR$ COPY 0© CAT /.@H00▗..@▚^PEEK ~T▝ BORDER /:l* CLOSE #▝ STOP D▝T▝/` DRAW !▝▜[A]▘ COPY TAB NEW ▝TAB PAUSE ▝[Q]( PLOT ▞[Q] RETURN [A] CLEAR FN RETURN [E] CLEAR SCREEN$ ▜ MERGE COPY U RETURN SCREEN$ COPY PRINT .▝ CLEAR 6TAN ERASE [A]*(TTFN (UU[Q]SCREEN$ [A]UFN ▚▖SCREEN$ FB&T COPY COPY COPY COPY MERGE ▞>~< DRAW 87 COPY %PI[D]+6Q4SQR 6q4SCREEN$ 6$SCREEN$ NEXT LN 1[L]| DRAW DRAW COPY GO TO Ul( CLOSE #` PAPER $ GO SUB l OVER , THEN l,[F]l CAT ([M] RUN 6 NEXT 46 CLS 4}6SQR $[+6SCREEN$ 7 COPY 0>?< AND @[P]E OUT ` LOAD $l COPY , OVER l INVERSE , PAPER h CLOSE # `SCREEN$ [U] COPY GO TO ><||+ FORMAT p[F]▞gkks><USR ▝?RNDc>`©▚<l©PI▘`~ ▗>`~c▚©0▝> ▘?H▜x▗ DRAW ▗▗8▗ SAVE ▗ SAVE ▗n▘|USR x▝ SAVE USR ▗ DRAW SAVE DRAW @▝ [M]▗xh▝▗P8USR 8USR 0▖ LIST ▖PSTR$ 8▗ TO TAN `▗BIN [U][E] p▝▗ @ DRAW ▘ DRAW P▘[E]h@▖▗|x ▖STR$ h00▖▖PP 0▘TAN HH0HLN ▘▖P▝USR @USR ▘USR USR )>▘``▝PBp[I]FN >=p▝[Q]0VAL ▗ LIST p0 LIST LIST 8▗0P[A] DRAW p LIST x SAVE CONTINUE SAVE `x▗x SAVE TAB x▗|x STEP USR NEW SAVE LEN CLEAR © NEXT GO SUB y2/[ CLS <>!SIN VERIFY JSCREEN$ MERGE GO SUB VAL <>>=▘qACS [R][J]ZPEEK ACS RUN LOAD LOAD LOAD LOAD IN b6) NEXT LINE CLOSE #p[Q]IN RUN RUN RUN RUN RUN IN OUT OUT CLS CLEAR ©IN r X▝ SAVE CAT VERIFY THEN COPY VAL$ (▞0(/" NEW AAED?<>A▝FSQR ▝Epppp<p<p<▘AAIpZpP>=ENOT Fp< THEN EGWZ BEEP Ep MOVE E[G].0Pp<pp$pZp<pBpxpZp`p[G] INK Ep ERASE MOVE EpTAN pINT q6p ERASE p CIRCLE qT▗ THEN pppp<p<p<pZp[pZpx LINE p~pvPEEK p[M] BEEP p MOVE p< MOVE pZ MOVE px MOVE p[G] MOVE pTAN MOVE p ERASE MOVE p LIST MOVE q5 LPRINT USR U▖8 DATA *, INK [S]ATTR LINE ▚R▗8>=*USR SCREEN$ ▛SIN FORMAT DATA CLEAR u IF IN COPY COPY ]W[S]▝Dp<▝ <@<▝P<▜ FORMAT E▝ DATA .@<▝UPx▚ DATA @[E]x@x▝SCREEN$ PxSCREEN$ © COPY @x@5@0TAN ▝<ABS ▝@<▘U0TAN ▗P▗8`0TAN ▘. FORMAT [S]SCREEN$ SCREEN$ @0TAN ▗QD5p0 LIST ▗T DATA J[E] RANDOMIZE Y`<▝x0 LIST ▝FN <▚ COPY COPY USR 0 LIST ,▝|1,▝P<USR @1,▗W COPY 8:1,[Q] FORMAT EEt▝@`<▝1h@ DATA J▗[E] COPY LOAD COPY _1h▗ BEEP COPY 81h▚ FORMAT UEHTAN ▝@1h▗5Q[U]▗SCREEN$ Js▝[U]STR$ SCREEN$ ▗8Q[U]▖_ COPY COPY CLEAR CLOSE #RNDUJ▝].q LPRINT LPRINT ▝~<Rq LPRINT Q LPRINT ▞SCREEN$ ▗(RNDUBRq LPRINT 2▚ DATA UUxyUDq LPRINT 2[Q]@RP<U52X[Q]$/UCODE © FOR fP<SCREEN$ 82X▙PSCREEN$ [P] CLOSE #[Q]RSCREEN$ SCREEN$ [P]a LPRINT ▝2[E]▛FN @@CODE COPY DIM UQ LPRINT ▝R[E]▟[Q] P▗[Q]Q LPRINT ▘ COPY DRAW 2 FORMAT ▟* COPY H@ UIQD`<▘© RETURN 2 FORMAT V COPY USR ▖/ COPY LPRINT <▝/Q LPRINT p<▖ LPRINT H ~▝Q LPRINT p< LIST COPY SAVE W COPY COPY SAVE p<Px▝ SAVE 8 /Qh▝ BEEP p<▘ COPY DRAW IF ▖SCREEN$ ?<><= BEEP COPY COPY STOP Q LPRINT `TAN %UD FOR ▝%Q LPRINT p LIST ▟▚"[S]1 LPRINT /3USR USR BIN 0▝ INVERSE "▘(P LIST ▝©0▘YZ▘p<p>< AND PLOT p<p<<▝-▙p<pxx▝CODE TAN ▘SCREEN$ [P]pxpzxSTR$ U▘@pTAN pACS TAN P[Q]pTAN pACS TAN .▝p<p LIST h▝ BRIGHT CHR$ SCREEN$ ▘/p LIST p PAUSE © RETURN X=▝q,q. COPY RETURN LINE <▘ COPY SAVE q,q.SCREEN$ TAN qhqh2:[▘ COPY STOP qhqj▘© RETURN VAL$ ©%SCREEN$ SCREEN$ 5d MOVE SCREEN$ ▘"r FORMAT CAT ▘SCREEN$ q CIRCLE q STOP RETURN ▚UTUTRNDq CIRCLE q STOP POKE p<rp<▝hrr @<▝CODE rPrZPx▝ CLOSE #p<rXpxp<r[E]b[O]▘ rr[G]R[Q]▘ r>=r ERASE b BRIGHT ▝ LPRINT r>=r ERASE p<sspxsc▝pxsHcR▘SCREEN$ ?s@sJb"▝ INK SCREEN$ ▘[S] INK ▘UU/SCREEN$ SGN 00C TO ▘LN 0`C TO ▝FN DRAW ▗ OUT LIST PLOT 0PT▝VAL © CAT BORDER SAVE 00D▝ RETURN 8 COPY 0400DD▜T© RETURN ~STR$ DATA 00b^▜RND COPY RETURN CLEAR ~0P`TAN ▜© RETURN zAPEEK 0PT▝ COPY <▗ POKE ^0P` LIST [Q]▗u COPY COPY ^0PTSGN ▝Tx▗ CONTINUE .0Pa,▜© RETURN hA.0P`xd▗ FORMAT A0Pah▝ OVER 0Pb[E]SCREEN$ SCREEN$ <0PS TO ^▗W INVERSE u VERIFY 0Pq LPRINT pxp~UAT ▘*pxp~UAT ▝ BRIGHT pTAN pTAN 5 REM ▝STR$ LIST COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLOSE # COPY LPRINT COPY USR ©▙ LIST OUT © LPRINT U,J>/USR G$USR SCREEN$ USR [Q] LPRINT 0▘ LPRINT LIST *▖T LIST [M]X SAVE W▙LN DRAW T[E] COPY }@▝| LPRINT |~▘8▗▝ ▝STR$ [A]▘ ▝>0▘ COPY <▜> LIST SCREEN$ lJL>▝&[A]*▘$▘`[A][Q] LPRINT <*▝ SAVE [A]▘ BRIGHT [A]▘J[A]N CLEAR Zplp~00[G]0[S]@VAL$ TAN ▝ DRAW INT ▗ DRAW ERASE ▝D[G]LN ,[I], PLOT ,,▘USR [M]▘USR 2,G, LPRINT INT / LIST V▝ LINE 1 Nn&▝[P]!▚▝_[C]Q[O]1SCREEN$ ▝TAN ▗ RETURN p ▝ SAVE ▘ SAVE !ACS ▝ CLS ERASE ▘ [C][M]pR84:|h$ STOP U LET (▜ ] LET p0CHR$ [B] STOP USR *|[Q]9@▟)*?PEEK COPY OPEN #q q q q ! CLOSE #@|?lU▟ ;8p2|T STOP d▘▘$ ▝0[M][G]▘ LPRINT *<;9@ TO [A]N▝? ZAT qr@r@r@2F▝▖L TO ▝" ERASE ▛USR 8[G] PLOT ,▘4 ▝h▘P!&▝!2`4 ▘pJ▖`S8USR POKE ▘!n▘?=▘ RANDOMIZE ?6▝ IF #<![C][O]1SCREEN$ /PEEK ^▘ DRAW h▗ SAVE [Q] LfABS ERASE [H]▙ LPRINT @ LPRINT < LPRINT B<=▞PEEK yABS [O]}LEN SGN x COPY Q<~``▝[A] BRIGHT ~@}▟ LPRINT [K]AT USR r▘STR$ X▝,X▝▝":▝?"@▘ ▝P" LINE ▝ LPRINT NEW OVER bF LIST @ LIST <B r▝▝v▝y[G]▝ABS [G]▝ COPY [G]▝<GVAL$ ~ PLOT 0 VERIFY ▝USR B~ TAN Z FLASH USR FN ▘▗▗Z@ RANDOMIZE CIRCLE 1$0▝▟▝(# LIST ▘ ERASE ©`▝ BORDER ! PAUSE ATN ▘▝<[O]<B LINE x▝Y▝}&▝SGN A ▝= MOVE ▝PEEK G COPY `P TO x~@ DATA ▝LEN SGN ▗7? DATA ▖? PAUSE 4?▝1&Q2A>J1VAb!n1z1▚A[C]1[O]PACS 1CHR$ 1 DEF FN A PAPER ! NEW 1 PAUSE A RETURN "22"2.2<1&12A>!J1VAb1n!z1▚1[C]A[O]QSCREEN$ ACS !CHR$ 1 DEF FN 1 PAPER A NEW ! PAUSE 1 RETURN 222"R.:1&121>1JAV!bAn!z1▚1[C]1[O]b LINE ACS 1CHR$ ! DEF FN 1 PAPER 1 NEW 1 PAUSE 1 RETURN 222"R.3Z FORMAT POKE R LPRINT Z` FORMAT FRND ACS COPY FORMAT R COPY [A]N COPY pa_ [I] `INT H LPRINT ▝[A] LIST EXP H` NEW ▝"▞Q-az6▖ DRAW #R RETURN PLOT N▘ Z FORMAT {B▘ LPRINT '<j COPY FOR 'H▝ IF 'N▘ FORMAT N"fUSR /▘$ ERASE ▗@ RETURN BRIGHT VERIFY STOP ▝([A]▝@ [A] FORMAT [A]▝@[A]▝ [A]▘[A]USR [A]▟ @/@▟a~@60B@N ZUSR #CHR$ ▝">=0~04▘▝ASN ' DATA ▘J'Z▝%' REM ▘W PLOT FN FN ▘F[G]Hx▗-c_PI▛ [I]INT J@ [B]USR ▜J LPRINT :[A]▘ OUT f▘c TO ▘(6USR B N▘USR N LPRINT ▚CHR$ GO TO ▝ GO TO ![O] RETURN IN qSIN ERASE ▝/ SCREEN$ ▘ GO TO ▘▗([A]▘mINKEY$▗JUSR (▞ r IF ▚▖USR ] LPRINT [Q][N]D/[I] ▝^*TAN ?Hr© OVER ▘BIN N▝`▝(T OVER @ POKE j"N▝ BEEP ( DRAW ▝_'R"<D▝▗8$AT ©SIN ▘k0▝ IF [A]▝ [A] LPRINT [A][Q] [A]n▟ /[I]:▖}*▝LEN 06`B N0Z▝BIN f▝ DRAW r0~0V4▝TAB 1TAN INT RETURN [U] COPY REM CONTINUE ▘▝bFN ▗` ▖ AND TAN FN >=, VERIFY ▚▞t▛[N][R]/[I] CLS x▘ AND [A]`▝bl▘ LPRINT n▗ LIST HSIN ▘▗ LIST C[O]▝7 ▝ CLEAR &ACS ▞B© IF SGN / RETURN P OPEN #▖f▗ BORDER [U]USR x▗ OVER ▝ TO [C][F]@j((|▝▝F▜4ABS USR OVER <USR BIN ▝VAL IF $` POKE ▝ THEN ▝ DRAW # OVER ~ ▝▝# LIST ▝ CIRCLE ~▗ COPY LET 2 ERASE [E]? CLS A OUT FORMAT IN )[E][K]▞$RND▖BIN ▝ PLOT ▝[F]VAL ▝6[S]▝lx▝`SCREEN$ @[A]▘pb▗<0 LPRINT C▘ LIST DATA 0[A]▝NOT p[A]p[A]P[A]0[S]▝ RUN +.▝ LLIST $jV▗!©▝^F▚USR [Q]▛$!RNDUSR x▝ZP[F]R($▚▝JbABS , DRAW ~n< ?USR ▚▘ BORDER ?SGN ▘ THEN ) LIST q A ▝NOT q2▘<=:[U]0!J&Q21>1J1VAb%Lz1▚1[C]A[O]1SCREEN$ !ACS 1CHR$ 1 DEF FN A PAPER 1 NEW ! PAUSE 1 RETURN 222"2.2:1&Q21>1 GO TO p[A]p[A]*h▚1[C]1[O]1SCREEN$ 1ACS ACHR$ ! DEF FN 1 PAPER A NEW 1 PAUSE 1 RETURN "B""2.2:Q&q>R|1Vq 1z1▚1[C]1[O]ASCREEN$ QACS CHR$ ! DEF FN 1 PAPER 1 NEW a PAUSE RETURN 2"2"2.2:▝5[K]* DEF FN UB[Q] FORMAT ▜TAB PW BEEP oCODE P9▝[ COPY M GO SUB CHR$ ▝IN K▝PEEK PEEK ▝ GO SUB CHR$ ▝ATTR TAB ▝PEEK [w MERGE THEN ▝ REM INVERSE ACS BRIGHT <▞▝%STR$ ▝|c▝o;▝/B▝ CLOSE # CLS ▜[[Q]ZASN CHR$ [I].[P] LPRINT USR USR [Q] LPRINT @ READ >(▝v.▞ RETURN ▛[ VERIFY LPRINT /ATTR FORMAT C OUT CONTINUE [M]▝ COPY >=▝SQR ▗} OUT R▝+)~▝ GO SUB T[U]▝FN [M]▝_SQR ▝[ COPY ▝INT y▝PEEK 'CODE ▝_<s▘VAL Hx RETURN ▗ MERGE ▗CODE 8&[E]8rn▘<2FN /VVAL$ +ATTR ▙=^ CIRCLE W LOAD X▝:,▝* REM ▝ OUT VAL$ SCREEN$ n©[A]SCREEN$ FN DATA ▝}[O]▟WLN >IN CLOSE #?▜ CONTINUE FOR OVER ▘ OUT [A]▜ LOAD USR USR BEEP [E]VAL$ ▘0[A]P[A]; CIRCLE ▝ BORDER /:▝CHR$ !,▝USR !, GO TO ▞@▝>▗# NEW A[O]▞UABIN VAL$ A`▗Uc READ POKE ▖GSTR$ HFN "QUSR Z▗ MERGE ?&▝Bf▘!z"j(SGN ▞CODE ?A LOAD ▜ LINE ?SGN j RETURN ▝ LET ▝D0▘JUSR ▝fAT TO AND ▝.[Q]▝.SIN ▝ OVER ▝4[A]▞>@ LPRINT FN VAL pv▘(|▝| REM xlL POKE >AT LN STR$ USR `USR ▝P,z▝.[Q]▝8.AT 58 STOP "<~S FORMAT ▗ RUN ▘▘ LIST 8[A] PRINT ? CIRCLE ▝ LPRINT [C] VERIFY SCREEN$ ▝GV▗ LIST ▘ ▝0▝[M]▝`2▗U@USR v▘ n▝0▝▘4`▘0"▝▝ LINE 4ABS SGN h LIST VAL$ COPY >N BRIGHT `▝SGN DRAW ▝?Nb//USR ▝F*▝)[ ERASE TO /USR ▘[E]/INT ▘b REM POKE [A] LIST F` DRAW > LIST ▝▝ AND ▝=z▝USR GO TO TAN 4▝ COPY CHR$ n▘PEEK PAUSE ▘SGN D▗▝|,▝x#▘USR H▝SCREEN$ l▝ PLOT DRAW ▝L▘![M]▝ INPUT ▘ STOP r DEF FN /VAL ▝EXP ▘z}[I]▘@▚@ LPRINT LPRINT PAPER ▞ LIST LIST LIST SAVE [Q]IN JEXP PAPER EXP jINT PAPER EXP IF INT SQR SGN SQR SCREEN$ SGN :ABS LINE ABS :ABS ZPEEK REM PEEK zIN REM PEEK USR [K]USR *STR$ [K]USR INT STR$ JCHR$ PAPER CHR$ JCHR$ jNOT IF NOT BIN IF NOT OR SCREEN$ OR : AND SCREEN$ [G] OR dP RETURN ePF{P▚ CLS COPY © POKE COPY dSCREEN$ [D] COPY COPY OUT 2<>=P TO TO H|▝▘ PLOT ▝▘[A] BEEP -▝#▝Y(ABS ▝F▝▘0▝X MOVE [A]K▘PP▝▝▝#▝(▝▘▝(▝[B]▝▘▝[L]▝▝A FCODE ▝x▝Z▝PEEK PAUSE Ui▝[B]▝ BEEP ▝>=▝ BRIGHT ▝ # BEEP ▝ LIST ▝RND@Z <▝ PRINT ▝ NOT ▝) LLIST ▝▝!, LLIST ▘ BEEP FOR CODE ▝ LIST ▝▝ DRAW PEEK " BRIGHT FOR a▝h LIST ▝▝ P▝@1▛Y0 IF c▝Y▝r▝!O[U]▝▝ GO TO @w▝` COPY FOR GAm▝ LPRINT ▝!^!▝ LPRINT ▝ RESTORE ▝CHR$ _![U] >=!LN ▝!O!▝▝ LIST ▝ PRINT TAN ▝ POKE ▝▝ [L]0 d"▝![A]aLN !1! LIST 0&!,▝{▝! POKE :▝▝"&I▝▝FN ! RETURN ▝`NOT ! MOVE >=▝!ATN !<=▝ TAN MERGE ▝▝ FORMAT !CHR$ ▝`▝ATN ! VERIFY s▝ THEN "▝ CLEAR ▝ AND ▝ [G]a VERIFY !!r▝ DIM "▝![F]" INPUT ▝`R:! RANDOMIZE ▝H" DIM ![A]▝▝( IF ▝I"{" NEXT BRIGHT ▝"SGN "[O]▞▝ SCREEN$ COPY p▝"LEN !," PAPER "[E]#▗! POKE lUSR INK ▝!O[S]▝!h`d! RETURN "[J]"&#SQR 3a!▚![F] DATA 3©cM CODE [B]#k#a" AND #a0 DRAW ▝B▝"[O]b#ACS ▝"[J]▝#j▝a|3 _ >="e▝,[C]a VERIFY ▝e▝"$PI▝# CONTINUE cz▝$LBIN #p▝"FN LEN $ OPEN ##ACS #[D]![R]▝$b:$~# READ ▝a^"5u BRIGHT ▝d▝$▝_▝.▝1 VERIFY !"c PEEK $j$Q▝P5|$VAL !'%"g$ GO TO ![A]▝EXP ▖EFN "!^$INKEY$▝"+#SQR RND!▛0sTAN % BRIGHT $3$ STOP $% LIST #u▝# RUN $[C]dVAL $ATTR &"D!r$ASN ▘@*BC[F]EFG @ A B C D E F GUSR @IN A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @[O]USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT G:KL LPRINT IN NO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMTAN NO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT O^▝QVAL$ ▝S LINE IN UVW P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTACS UVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT WB[B]USR @@wSTR$ :EXP ▗cAT @ Z▘w READ p 39@&▝[F]hUSR 0 NEXT PY &▝c >=▝USR `Y▖U LINE ©▙@ 0TAN INT ▘ AND ▗ USR p© ▝tINT ▝ AND ▘p©Q0▝CODE Kp©q0▝ FORMAT p©▗INT Pep[N] [N]USR 0INT ▘ AND GO TO 9!▞ SAVE COPY pIN CLEAR COPY LOAD ▘ COPY x COPY COPY | USR COPY COPY ~ ▝ LPRINT ▝© (▚ LIST USR ©- SAVE ▝NOT ▚ DRAW LPRINT © READ ▝~▗{ NEXT x LLIST LOAD COPY y CLS y COPY LOAD ▜x CLS RANDOMIZE COPY LOAD {▝ LET pP▘ LLIST ▖ INPUT x{▜STR$ LPRINT p▘ READ ▘▝P▘[P]▘ BORDER DEF FN P▝ COPY ▝PEEK ▝Z>=p▝>=@ BRIGHT 0 COPY NEXT NOT SCREEN$ [D]▝@[J]▘ LPRINT ▚ GO TO ▞USR +[T]@USR !@"@:IINKEY$ INVERSE !MSCREEN$ RETURN LINE [L]SCREEN$ INVERSE !fSCREEN$ RETURN < OPEN # RETURN NOT [F]SCREEN$ b STEP COS SCREEN$ USR ▘2 INK [L] TO INVERSE n INVERSE f INVERSE N INVERSE F| PLOT USR g OR INVERSE N STEP [K]RND~ PRINT OPEN # RETURN STR$ #xLEN CHR$ NOT SCREEN$ CODE OPEN # RETURN INVERSE # INVERSE # INVERSE #<> COPY COPY COPY COPY COPY COPY COPY READ ▘DABS M/Pp FLASH p@pHpPpXIN LN INK NOT VERIFY INK o&)]T) LINE THEN OINKEY$ GO SUB VAL :OINKEY$2UINKEY$2VINKEY$<>:QINKEY$PI>= NEXT O:RINKEY$G:UINKEY$o:VINKEY$g> OPEN # RETURN }=CHR$ INPUT INK AT ▞|=CHR$ PLOT INK GO SUB :P ▝5"▝9▘:Tp▝S<0IN y2QINKEY$ CLS <>[G]00NOT SCREEN$ PAPER NOT RETURN PAPER NOT FLASH NOT & FLASH NOT ; FLASH NOT c FLASH NOT PI FLASH NOT STR$ FLASH NOT BRIGHT NOT > BRIGHT NOT SIN BRIGHT NOT <= BRIGHT NOT INVERSE NOT 4 INVERSE NOT ▝ INVERSE NOT STEP INVERSE NOT Q OUT NOT IN L OUT NOT W OUT NOT OUT NOT ▙ LPRINT NOT BEEP LLIST NOT GO SUB LLIST NOT STOP NOT ? STOP NOT STOP NOT READ NOT * READ NOT r READ NOT READ NOT ATN READ NOT PAPER READ NOT ! DATA NOT 4 DATA NOT U DATA NOT p DATA NOT ACS DATA NOT INVERSE DATA NOT [L]b BORDER NOT [U] BORDER NOT CODE BORDER NEXT GO SUB s IF PAPER >1Z ERASE !JSCREEN$ MOVE GO SUB [Q] GO SUB [Q]Pppp$p.8=CHR$ ATN PAPER 1[C]_ CLS <> OPEN # COPY FLASH RETURN [Q]<>Z▜" FLASH 1Z TO MERGE ▚;; GO SUB 1[A](▘ RESTORE ho[A]J ERASE ~_#~W&i FOR LLIST <>TAN ))[U] GO SUB KBIN RND STEP & FLASH ~# IF :BIN RND<2BIN RND<><ATN GO SUB R0 IF <>'CODE STEP / FLASH RESTORE STEP ; FLASH LLIST CONTINUE pdp▘p LLIST 2▘>7<>&pp BRIGHT : STEP RND▘T]STR$ )[L]PI GO SUB RJSCREEN$ GO SUB { DEF FN RND: TO RNDOY MOVE {INKEY$SIN w#0 ▖ DIM 1▙▘: FORMAT > LPRINT [B] RESTORE MOVE og~ THEN [P] THEN PIw▝<pp▙ THEN OUT THEN BORDER w<>! OVER RND6: INVERSE RNDW[B]AT BRIGHT : ERASE RNDG: MOVE RND STEP RETURN PAPER TO [N] BRIGHT : CLOSE #▝ OPEN # ▗[K] BRIGHT : VERIFY ▝ MERGE ▗[Q] BRIGHT : CIRCLE '▝ BEEP '▗[T] BRIGHT : PAPER 4▝ INK 4▗INKEY$ BRIGHT : BRIGHT A▝ FLASH ALN POINT BRIGHT <> THEN AND <> THEN DEF FN <> THEN OVER <> THEN VERIFY <> THEN NEW <> THEN INPUT <> FLASH 2 OVER RND<>: OUT RND THEN G TO STR$ BRIGHT BIN BIN BRIGHT 2{Z<>>B<>>D<>>!X!INKEY$rr r*r4r>rH[H]PI=CHR$ CAT BRIGHT <>!ACS P GO SUB [ REM RND STEP ( INVERSE ! VERIFY P <>w#[O]$- PRINT <> RETURN COPY >= RETURN d LINE [G] INVERSE RETURN [G] LINE TAB INVERSE RETURN [H] LINE ACS INVERSE RETURN >= LINE [U] INVERSE MERGE 2[U] FOR "▘▝ INVERSE USR $USR ▘;b:5INKEY$ THEN gBIN IN INVERSE MOVE (▝ MERGE r["[▜yo MOVE <>@▘ OR RND#▚2 STEP INT _T▝!9▝ NEW 5▝INKEY$>▘[S]> STEP SIN INK STEP [U] BORDER <> STEP W OUT STEP FLASH STEP b BORDER STEP CODE BORDER OVER STEP 4 INVERSE STEP [S] LPRINT CODE USR IN STEP > OUT > STEP L OUT STEP ASN INK STEP ATN _z RETURN LINE OVER RETURN LINE [M] OVER RETURN LINE INT OVER RETURN LINE READ OVER RETURN LINE q OUT RETURN LINE OUT NOT DIM INVERSE d8)#*[N]dH+dP,▚X-6PIdh(dx#!)100 COPY =▗PI LINE DIM INVERSE [O]▗>[O]CODE 2 INVERSE RNDCODE FORMAT ▝2Yp▗L OUT >pw▝p;▝<▖! GO SUB RND MOVE RNDpG▘ RETURN pdG▝)▝ RANDOMIZE p)0pjA{ RESTORE NOT OUT ▛[ STEP OUT ]TAB ▗USR !INKEY$Pa▝<> CLS [P]G! FOR X STEP Q OUT <>w# DRAW <>PI>= CLEAR <> INK OR ▟CODE CLS STR$ INK LOAD INK <>pQVAL$ ▘S LPRINT [S]▝▙[S][F]INKEY$2INKEY$2INKEY$2INKEY$2INKEY$2INKEY$2INKEY$! FOR [O] STEP USR _ STEP NOT _ THEN ^CHR$ [N] OUT :INKEY$ SAVE ▛INKEY$xw STEP RETURN OUT >1 SAVE ▝<.▘ RETURN #▝ INVERSE [P]▖:INKEY$ STEP ABS _: ▝ ▝ ▝ ▝ MOVE [P]▚8[C]2▗CHR$ LPRINT @@▝H@B▝P@*J*▝X@8R8▝`@FZ▙CHR$ LPRINT <>d B8B▗H7[B]Xd` COPY Q▘▞{ RETURN >=NOT [B] LPRINT p▘ FLASH MERGE r OR ▝ MOVE @ ▘RND LPRINT ▞Ba~2 CLOSE # LPRINT CLOSE #O▚<> COPY d▖ OPEN #▝ COPY / IF ▝[T]▖p* STOP ▗`?" ABS ▝#!piUSR p~? ERASE ▘pVP~▗!MK FN %-▝©▗ ERASE ▗SQR C )▗ COPY : GO TO &[C] LINE OPEN #" REM RND STEP INVERSE <>G! LIST LPRINT AT ▚T]▖"SIN "JINKEY$]▗ INPUT <>:&c AND ▚ THEN FOR :' SQ[B]$INKEY$2 TO RND:%INKEY$2 STEP RND STEP STR$ FLASH <>:2 /vyy▗:1INKEY$_r▜ GO SUB [3INKEY$9▝Pp▛<> NEXT INK "INKEY$ STOP INK INVERSE *CHR$ RND VERIFY [U] RESTORE MERGE STEP ATTR STOP MOVE LLIST ## POKE CHR$ FOR INK !X' INK CLS <> INK INVERSE ~ INVERSE #'v& DIM RESTORE INK MOVE INK INK E[P]▖ INK LET INK ,p* *p&[D]▗#wTAB ▗ INK "& READ 0▘INKEY$@▝ BEEP `▘`[C]<> INVERSE ~ THEN G LINE l READ INVERSE ~ THEN ? THEN ? THEN ?wrrjFN [Q] RANDOMIZE ▛>w#w#w` ▜ INVERSE <>xp>wVAL >INKEY$▝<>`▝O^▞G STEP r READ RESTORE INVERSE LLIST >pJpS^▖<>< INVERSE w* LPRINT RNDR▚" LPRINT RND: STOP q▘ STOP RND+▘ GO SUB LLIST E6P#▝ #▜>c2 READ RND>p!▝ BORDER RUN [C] RETURN [I] LINE DATA :0INKEY$PI LINE DATA =20INKEY$<>CODE ▘>▖=2 FORMAT RND<> STEP CLS READ 00 }[L]▝ AND ▘▝0_▝p{▘ BORDER <>g[G]▝▙i▗PI LINE Z DATA [D]▟<>>CHR$ wPI GO SUB B>STR$ w_▗>NOT w RESTORE p<>▘: DATA u▜ DATA RND LINE PI DATA > TO ▝6 INK ▗ LLIST <>>p▘:-c!2 INK INKEY$▞GCHR$ MOVE DATA THEN OCHR$ BEEP DATA .▘ACS <>4▝ PLOT ▝ RETURN 8+▗>= THEN w>=LEN 1TAN ( TO #X STEP ▝<SCREEN$ j`!yGG▘INKEY$% DEF FN ▝~q INVERSE ##@ DEF FN Fpppp606▝> CLEAR POINT RPEEK COPY INVERSE STEP [Q] RESTORE STEP 4 NEW STEP TO RESTORE STEP RETURN RESTORE STEP a NEW STEP z NEW STEP [E] NEW STEP VAL$ NEW STEP <> NEW STEP GO TO NEW STEP BORDER STEP 8RND▝% LINE k MERGE ▝ LPRINT 5▖▖ DEF FN =PI>=+ INVERSE +@[O] PLOT ppP▝; ▘▝STR$ ▘o▜ RETURN >=p)p6pC INPUT ▝? LN ▝ABS 6▜%INKEY$ RETURN h>=`▝Zqq"▘/ RESTORE ▝[O]@-▘PI>= [K]▘ OUT PRINT ▚ INVERSE 6!P▝▝ READ P▝@`04▝_3 4▝[R]pz@ACS ▝cP▝[N]P[F]▘>=,▝USR @f[B]0r▝>PX▘`>=SQR ▝@Vp$[G]▝~A▚PI>= RETURN >= INVERSE H AT D` PEEK ▝CHR$ q: RETURN >=p!p*0 CONTINUE ▝SGN d[R] NEXT !J MERGE "| BORDER GO SUB s[Q] BORDER 1j ERASE LLIST >ASN o GO SUB s[L] BORDER 1 VERIFY MOVE s,r, p▞ GO SUB s| BORDER 1SCREEN$ ERASE OPEN #,~LEN - MOVE ▘ VERIFY & STOP INVERSE SCREEN$ NOT CONTINUE NOT B CONTINUE NOT FLASH REM NOT h GO TO NOT ▗ GO TO NOT THEN GO TO NOT FLASH GO SUB NOT CIRCLE LET NOT PAUSE NOT PLOT PAUSE NOT 8 NEXT NOT R NEXT NOT PI NEXT NOT U POKE 4 VERIFY < CONTINUE INVERSE ~JPEEK ▝SCREEN$ SAVE INVERSE ~u SAVE SAVE { SAVE CLS SAVE ▘D PAPER 4 LINE 4 FORMAT ▘: OVER [A]CHR$ m CONTINUE ▗EXP CONTINUE THEN WCHR$ DIM THEN _CHR$ Q DIM RESTORE ▗GCHR$ ▟ LOAD ▖gCHR$ COPY INPUT STEP t PAPER <>CHR$ ▘&INKEY$"w▚ LINE [P] DIM STEP $ GO SUB GO SUB PRINT STEP PAPER LET xPIUSR INVERSE ~!?PIUSR INK ▝ PAPER POINT 2$INKEY$▙▞< RETURN TO [N] DIM 2'INKEY$L▝CODE @K▚ LINE RETURN DIM STEP PpK@K▝ COPY K▝P▝;pKSTR$ ▝=pK`K[H] CIRCLE ▚ LINE [B] REM STEP l INPUT p[H]0[H]▝Z[H]▝[[M]▝/p[H]▗ AND 2%p[I]PM▝0M▚PI LINE G REM STEP ?pL@ READ ▝ STOP READ ▝ READ CONTINUE ▝ DATA p READ S▝ VERIFY pL@ DATA CODE <>:.INKEY$ RETURN CHR$ TAN DIM > COPY 2.INKEY$ PLOT $▝-▝<▟x STEP POINT 0b"CHR$ RNDCODE #▝.▞.INKEY$ INVERSE **INKEY$:?INKEY$%▘:@:A STEP CIRCLE LET STEP h GO TO STEP PAUSE QX_▗PICHR$ REM AND ^ DEF FN ^▝=p^`^▘>0_▝=▞pI`I▝/I▝[I▝/ I▝@0PI CODE pFN @J▝h4▝/▖▝/pJp[D]▝/ PAUSE ▘INKEY$ REM @K [M]p NEXT P NEXT J▝<pJp INVERSE GLEN ▘7 FOR [E]▘7 FOR K▝VAL$ ^E▗EXP BRIGHT = FOR F▘oUSR P LINE FOR CLOSE #▛P© DATA ▗LN BRIGHT GO TO `6▘EXP K▘ CLOSE # CLOSE #@97 THEN > INVERSE w0▝CHR$ ▞~PICHR$ CODE GO TO 9` SGN TAN @2▝2>= INVERSE w( CONTINUE INPUT <>CODE pM▝+pJpS0J▝= RETURN 0.pIpI<>>p[H] [H]?▝B [J]▝#0@[D] VERIFY @/p[E]p[E]<>>p STOP STOP ▝Z@ STOP pI I▝ AND I0-p INVERSE p INVERSE SIN ?+ TO 7NOT "*INKEY$<>LN ?FN LPRINT ~ RETURN E LINE [U] GO TO RETURN @ CLOSE #AT GO TO BRIGHT POINT GO TO #xLEN REM <>>NOT [L] GO TO ><>><> RETURN USR CODE ▚< RETURN LINE IN GO TO XVAL >=▝<SCREEN$ [M]▘ THEN ?>9[P]▚ THEN ?GY STEP _ PAPER /$_▗ STEP GO SUB ▘[E]<> RETURN DATA LINE ▞ PAPER RETURN STOP LINE PAPER RETURN AT LINE PAPER RETURN LPRINT LINE [C]&pYpYpY## STEP { GO SUB k▝ppp+p+<>:IINKEY$ RETURN >=~ RETURN BIN TO [B] GO SUB RETURN OR ▚<> AND w<> PRINT STEP PI LINE INK GO SUB LET ▝ RESTORE V!▝▟!▘▟ GO SUB 8p▝ GO SUB ▝Z▝=▝52 LLIST <> LET @`Zx~ RETURN STEP TO ; INPUT RETURN TO ▝ THEN ▝ LINE ▝<>▝>=▝<=▝ AND #[A] FORMAT TO PRINT INPUT RETURN MOVE TO RANDOMIZE INPUT RETURN ERASE TO LET INPUT RETURN OPEN #▝ CLOSE #▝ MERGE ▝ VERIFY ▝ BEEP #AT VAL$ qtqtqt▝▝▗ STEP [H] INPUT #q[R]q[R]q[R]CODE COS `+A▚ CIRCLE TO VAL$ INPUT RETURN INK ▗IN TO [I] PAPER q▝ VERIFY ▝+[U]▝ INK POINT
