31111 REM PROTECTED BY SILENCER ...
10 RANDOMIZE USR .:
60147 GO SUB O GO SUB ^![A]]FN [S GO SUB _VAL$ AT TAB SCREEN$ ATTR FN POINT w GO SUB [Q]xLEN USR NOT LN ?I[O]%0USR 4yRND IF SGN TAB [O][B] DIM TAN ;w/ DIM h[I]4AT >ed NEXT TO ?[A]MeIN 3Z9 INVERSE ?'Ev REM [T]3 LPRINT ▗ CLS BRIGHT COPY [C] PRINT COS [I]. OR v[I]▟|SCREEN$ FLASH :EXP [B] STEP ABS Gh FOR <=CODE [B]VAL$ LLIST ATTR LINE REM STOP 2ABS SCREEN$ x THEN p[P]ACS RANDOMIZE !S~)ZACS %D INPUT [R] FORMAT INT w[K] PAUSE VAL$ >i{XU1`BIN FOR wABS SIN -VAL$ GO TO ACS SGN >STR$ 0b FOR * LLIST >` PAUSE [J] SAVE `8 ERASE "_i[I?!©iHz1i{I_` CLOSE #.SdSIN ^9[nA COPY jACS INK / AND TFN &{ MOVE !TLN &g[F] COPY ' BEEP ▙ VERIFY DIM [xY>= FLASH ▞PEEK N[J] DATA INPUT CONTINUE SQR $oCOS INK ABS ][K][T]Z[U]z SAVE b DRAW @▚ZtZ|@▙EXP ©[L]INKEY$ RANDOMIZE LLIST PAPER FN ACS LN POINT [Q] AND zPOINT EPEEK OPEN #lFN >=▘LEN 5[O]CHR$ DEF FN INVERSE ▛5 LIST 4VAL$ FLASH CLOSE # INK POINT POINT PLOT STEP FOR 3@b@[H][N]qACS [M]m LIST VAL [H] OR DEF FN NOT [ DRAW [H]JEXP TAB 2<= RUN FLASH [P]RNDPI^6 FOR fTAB )CODE LIST THEN ▖{:sfLEN TAB V INVERSE CLEAR OUT mV▟N COPY @ ERASE LLIST >=SQR v4c REM RUN WLEN SQR ; LINE m3%POINT CLOSE #"J▝E(PEEK ▝D STEP $FuzEXP }RPEEK >|Tz>POINT nAT PI[J]} OPEN #[T]EXP ATN F BEEP h NEXT ATTR RVA OPEN #* MOVE CHR$ FOR rFN c[T]: READ $ FOR rTAB %COS ? OR FOR OR [P]N6jCODE ,SQR SAVE o CLOSE #>=SCREEN$ s MOVE VAL$ y BORDER k DATA SGN X[H]K DATA >= STOP ▚* LLIST BIN RND RETURN BVAL$ [F][M]▖ TO DATA [S]AACHR$ BIN ( GO SUB AND TAB pAT [O]▛( AND VERIFY CLEAR `[Q]▙s(@PEEK O/▙s PLOT TAB {[E]T PAPER [M][I]8FN [M] PLOT ERASE SAVE 6[N]BIN OR sPEEK DRAW [T] CLOSE #PATN OPEN #K▗▚y REM ^[J]2INKEY$▚[I]>= CLOSE # CLEAR NOT ▖ETAN ERASE dPI= PAUSE AT D RETURN 5 BORDER %IFyO|j LINE &LN m▞3 FORMAT 67[_0# CIRCLE QUSR CHR$ 7FG MOVE Y8t/~/G,y:Y[M]▙[A]ACS 4' TO ©[U]SCREEN$ ] CAT V_%▘ CLEAR STOP q AND Q LINE G INPUT PAPER RESTORE V[A]q[O]NFN d' RESTORE em[O]3Sy"l ERASE e LET pGZINKEY$ AND RETURN ( COPY B[S] OR $©[J]X NEW SIN AT STEP OPEN # RESTORE OVAL$ <=T SAVE 0[N]FN v CLEAR F▙PI FORMAT [H]LN INPUT ]4" PLOT jyVAL$ DRAW LOAD [A]z% PRINT CIRCLE $[M]SQR ▗ CLOSE #TAN CODE [J]EXP INVERSE i AND [L] INPUT V[I]▚U▖ GO SUB A▙dINKEY$ CLS v CLEAR INKEY$^[T]UI FLASH i▛▚W[A] BRIGHT PRINT c^ FORMAT oy_ MERGE ▖ IF DATA TAN [L]M RETURN GO SUB [L]+NOT [F]▞COS a[R] AND RND{COS ▖ GO TO $= FOR DEF FN T8[C]©$$N▝ DATA GO TO MM▝eATN [O]r<SIN 8L%0 INK LPRINT hol▙z!% OR COS PLOT >L< LLIST NOT GO SUB [B]@4 READ MERGE NEXT 5 THEN [T];]gbASN MERGE [D]LEN T FORMAT { RANDOMIZE ]▟;m^,kV% OR V+▝ LINE 7s[D]{D PLOT 5 TO ©[D]@! THEN ▗ASN OUT LPRINT MINT PRINT t[I]▛ CAT ▜ INVERSE DASN [E]K CLOSE #8!s BORDER ]qTAB LOAD 1 AND [F]VAL$ TAN 7| LPRINT CODE CONTINUE [M]iPOINT LET PI'vA LIST ▘ PLOT !<> RANDOMIZE N AND rTAN .=VAL ▚c FORMAT [Q] LOAD FLASH RESTORE `SCREEN$ TAN A▟ MOVE 9CHR$ OR '[A] OUT PAUSE IN [U]7| NEW %iYO BEEP CLS gIN CLEAR ' CIRCLE [H]AT INT !n ERASE EXP INKEY$▜ASN CAT [P]#PI VERIFY STEP yASN RNDMH RANDOMIZE ACS STR$ {= GO SUB _ INPUT SAVE THEN INK ▚[I]STR$ ERASE [S][R]a)mN_#NU2=NAbg{l~L▗%CMR>©XB5~_"eCMr©M,:U^;dq`[1?@zpQ:mvuBQ>?_zxBFu@R`6`dVZ*:MZU5[K]c4!N_$=u~Zn-w w~UO,5 NEW INPUT [K]ASN REM OUT ▛ DIM REM PAPER FN CLS EXP [H]▗ CONTINUE ASN USR CLOSE #ACS FN NEXT ▘▞RND DATA USR CIRCLE [S]LEN ▞ FLASH [N]>= BORDER FLASH RANDOMIZE [H]▗POINT [R][O]FN SQR CLEAR [O][P]CODE PRINT >= OPEN #SQR USR PLOT ▞[F]AT VAL STEP CAT TAB FOR [P][C] INK >=SIN ▘USR OUT CLEAR LET ERASE BEEP CLS REM ATTR RETURN ASN FOR PAPER POINT POINT AT STEP [E] READ ATN CONTINUE ERASE POINT LEN ▗[M] INVERSE OPEN #SIN wATTR [G][J] CLEAR DATA SAVE GO SUB <>BIN INK SCREEN$ [L]▝ CONTINUE LIST BRIGHT AT ASN NEW LIST [A] LOAD LET ATTR LEN OPEN # TO rOzNG.7dG9$X2aaj%."QnyxB=~eJ=D</*98rY]i*o*?WH*yP3jeE9>Xi~LK|.1gt/.~oQATN -uJ=,T;D=<e|XCV-/mnS?J][D]▝ OUT LET REM LEN SGN CLS OUT BEEP DRAW [S][J][M] RANDOMIZE SIN DEF FN BEEP ATTR REM EXP ▙ BORDER RETURN VERIFY <>LN ABS [J] BRIGHT INVERSE ERASE [P] BRIGHT RANDOMIZE [I]ABS ACS MERGE OR PRINT DIM CIRCLE ▟ABS IN OR STR$ VAL DIM RANDOMIZE ▚[A] STOP LEN DEF FN CAT RESTORE LN THEN LET MS?SCREEN$ POKE <= FLASH o COPY 4 INK M CLEAR VAL INPUT REM POKE NEXT BEEP POINT SIN [P] LPRINT FLASH FLASH RANDOMIZE )[I] NEXT DEF FN XINKEY$[R]LN LET IF >▙ INK CIRCLE MERGE AND ▛[I]LEN LEN SIN <= FORMAT TAB ▘▙ MOVE CIRCLE TAN ▝VAL$ )[W CLEAR VAL$ POINT h[G] READ "SGN [T]t VERIFY JXkBc MERGE CIRCLE C SAVE ;2BgR(v DEF FN b^t INPUT Q NEW [P]ap[O]*z VERIFY BIN + DRAW uI AND Lt/r[I]B[H][J]"&`POINT } AND AHTPEEK } INVERSE PfW AND RP[O] VERIFY PTAN <=ASN BU(+ MERGE q#LN FOR ▛9ABS t[D]x AND =b▖BIN D[S] CLOSE #NOT 1 PAUSE [F]LN MERGE .A CLEAR C FORMAT NEW NOT F[G][U]EXP .▟ CIRCLE ▖[L]D▘ POKE STOP CIRCLE ▗[F]▚▘[M]8[S]LN g CLEAR N DIM CLOSE # THEN SCREEN$ VAL NOT / LIST >=PEEK PAPER SGN [K]TAN ▛yF▙7TAB STOP [A][B]dFN CONTINUE CHR$ ,[M] THEN [P]t ERASE [U]&EXP .▟ CIRCLE ▖[L]TAN PLOT [R] PAPER ▚[H] STOP c INVERSE SIN LLIST =>= OVER [T]z[C]VAL$ LPRINT GN[L]9c▙~ OR BKw@SIN aX BORDER +kACODE H RUN Q FLASH INKEY$<W8 RETURN sIN sk IF I'$,ALEN <▚w!:>T POKE FOR FOR CODE LEN V)%soV+@^IycR3BQd©rA{ RUN Vier&8liTATN S#@kZA!1viULS3'hdC^!% DIM [K]INT PAUSE LEN AT BEEP FLASH FOR ▖[E]STR$ [T] PAPER INK RANDOMIZE DIM PLOT ▘[O] CLOSE #ASN FN OUT AND CHR$ RND[Q]USR [A] MOVE AND CLEAR VERIFY INPUT [D]▟COS PAUSE EHACKER STINGER '1993 !!!SCREEN$ ▜yASER SQ" LINE 31111A"15616 LINE <=f<=f▜ylllll RETURN l RETURN ll>X<| AND TO 0f AND 8l8v BRIGHT TO v000000f< COPY <f~0~0`USR | AND DEF FN VERIFY NEW AND |8~<f<`f~<ff<<l TO RETURN ~b`|f<<f`|ff<~f<ff<ff<<ff>f<00`0~~`00`<ff@`pxp`@<ff~ff DRAW ff|ff DRAW <fUSR USR USR f< SAVE lfffl SAVE RETURN bhxhb RETURN RETURN bhxh` LIST <fUSR USR DEF FN f>fff~fff~~ TO TO x NEW flxlf NEW LIST ```bf RETURN AND INPUT RETURN RETURN VERIFY AND AND AND NEW PLOT OVER DEF FN AND AND 8l AND AND AND l8 DRAW ff|`` LIST 8l AND AND PAPER TO v DRAW ff|lf NEW <f`<f<~Z<ffffff<fffff< AND AND AND VERIFY RETURN INPUT AND AND l88l AND AND fff<< RETURN AND 2f RETURN <00000<USR `0<<<~ COPY COPY 0>fff: LPRINT `|fff BRIGHT <f`f<| TO TO TO v<f~`<60x00x>ff>| LPRINT `lvff NEW 8<< LPRINT `flxl NEW 8<l RETURN VERIFY VERIFY AND BRIGHT ffff<fff< BRIGHT ff|` LIST v TO TO | BRIGHT v`` LIST <`<|00|006ffff>fff< AND VERIFY VERIFY RETURN l AND l8l AND fff>|~0~pv BRIGHT <B[J][R][R][J]B< NEXT ![[6% GO SUB VAL CODE OPEN # RETURN 19^NOT NOT LEN :ATN ATN >=:ATN 2 RUN ]<> STEP TAB VAL STEP [S]CODE 2ATN STEP U[N] STEP p[T] STEP ▖tCODE STEP FN q>2ATN :ATN ATN STEP U[N] STEP p[T] STEP t[U] STEP BEEP q!""ATN "ATN !"ATN "ATN STEP INPUT [S] STEP ▖t STEP RUN LEN CODE 2ATN 26]2]!ATN 4 STEP INPUT [S] OR >[Q][A]2&] STEP CHR$ g:ATN ATN :&] VERIFY _!:ACS ~ATN (=w INVERSE ~% NEW !ATN PEEK t INVERSE THEN %ACS STEP [C]~ INVERSE ~ INVERSE [G] INVERSE w INVERSE w STEP )kG INVERSE ~[A] INVERSE [G] INVERSE w INVERSE F THEN 8 INVERSE ~"LN ((8[B]0CODE INVERSE wx INVERSE [G]"O INVERSE ~▝0> COPY INVERSE PEEK 8 INVERSE ~ INVERSE w INVERSE 6" INVERSE ~ RETURN 0 INVERSE THEN > INVERSE ~ STEP ky INVERSE PEEK 8 INVERSE wSTR$ CHR$ FN ^ STEP Gw STEP PI_~2 DRAW /#~2 CLEAR /#~2]#~2] STEP @^: RUN ]ATN ( STEP !ACS STEP TAN _ STEP Ni STEP PI_: DRAW /w#: CLEAR /w#:]w#:]w STEP 0ACS STEP ▛[M]!ATN 4~ RETURN PAPER INKEY$^ STEP [U][U]NOT [C]^:ATN o&ATN ))<> STEP ,`>T STEP ^g!G"]!:ATN AND [Q] STEP zk:ATN !" RETURN / STEP SAVE f!ATN :ATN [G]!" RETURN / STEP SAVE f STEP RETURN _>S STEP lg STEP mj STEP RUN w STEP ,` STEP mj<>>h STEP ^g:ATN !" RETURN / STEP SAVE f!>[Q] STEP zk:ATN !" RETURN / STEP SAVE f>[R]! STEP zk<>CODE ! COPY Z RETURN Z COPY w GO SUB LN +q COPY GO SUB LN <>@ @@@`@@[Q]@USR @ LPRINT @H H@H`HH[Q]HUSR H LPRINT HP P@P`PP[Q]PUSR P LPRINT P RESTORE MERGE PRINT GO SUB [ RETURN /z!B`^#Vo& LET RESTORE 9LEN &o))) MOVE ~# IF FOR %| NEW PLOT Xg:]w MOVE LLIST <>o&))))) OUT CONTINUE "/z!B`^#V#N#Fo& RESTORE o& GO SUB [# STEP a LLIST STEP a# STEP a| AND NEW PLOT Xg:]w+w GO SUB Bw+w<> RESTORE w$ IF LLIST <>k&))))))z CLEAR _IN VERIFY <>CODE 2ATN GO SUB [ DRAW / STEP a"]>2 RETURN / OR >2 COPY / OR *]~#"] STEP na! COPY /44STR$ GO TO *]E"]! RETURN /44STR$ ERASE <>&o) GO SUB [ATN ~2]#~ STEP CODE `<> GO SUB [ DRAW / STEP a"] COPY />2 RETURN / OR *]~P"] STEP na! RETURN /44STR$ DIM *][B] DRAW "]! COPY /44 FORMAT <> PRINT OR MERGE RESTORE !ATN 5:ATN ATN !:]ATN STEP 6d>2]!ATN 6 COPY STEP JdCODE 2]!ATN 6 STEP >=VAL x RETURN STEP PLOT b STEP [U]b:]ATN (!ATN 6CODE 2]ATN LLIST MOVE STR$ LET <> PRINT OR MERGE RESTORE !]5 TO Db STEP >=VAL :*] THEN G( PLOT LLIST RETURN COPY CODE 2]2]BIN Ob STEP OUT b PAPER LLIST MOVE STR$ LET <>>!][G]w STEP z▛<>:]ATN BIN z▛ STEP c:[cATN ( STEP dCODE 2]2[c<> STEP z▛:]ATN TO DIM b STEP ▚bCODE 2]2[c<2]2]<> OR :]G CLEAR STR$ PRINT :] VERIFY 2] RETURN FORMAT >2]<>:]ATN :] ATN USR <2]:o[T]ATN USR > STEP ^g STEP h<>ATN >=:o[T]ATN > STEP ^g[Q] STEP OUT b CLS CODE 2]<> OR OR OR ( OR >= OR COPY RETURN STR$ SAVE STR$ <> STEP c:]ATN BIN STOP c<>CODE 2]2]2]*]"]:*] THEN O TO -c THEN W TO 6c THEN _ TO ?c THEN g TO Hc!]5<> PRINT STEP [Q]c STEP Qc LET <> PRINT STEP USR c STEP Qc LET <> PRINT STEP /c STEP Qc LET <> PRINT STEP c STEP Qc LET <>>2]!]4<>*]:ATN SGN * DRAW />ESGN >=$" DRAW />2[c!] THEN OVER <>$"]<>*]:ATN SGN * DRAW /CODE SGN >=%" DRAW /<2[c!] THEN VERIFY <>% BRIGHT *]:ATN ABS * DRAW /CODE ABS >=-" DRAW /!] THEN AND <2[c<>-SGN *]:ATN ABS * DRAW />'ABS >=," DRAW /!] THEN DEF FN >2[c<>,[K]:[cATN (CODE 2[c STEP d STEP 6d<> STEP 6dP GO SUB [ DRAW /*] STEP VdP STEP OUT b CLS <>:]=_!d DIM NOT ldNOT *a<>NOT VAL dNOT ldNOT *a<>NOT ▝aNOT ldNOT *a*])$," RETURN />G2]>CODE STEP CODE `<>:ATN ATN USR GO SUB [ DRAW /*]" RETURN / FOR STEP a~* RETURN /)$," RETURN / STEP na<> GO SUB [ DRAW />_ STEP a"]>2 RETURN / OR >2 COPY / OR *]~#"] STEP na! COPY /44STR$ GO TO *]RND COPY "]STR$ ! RETURN /55 ERASE <> GO SUB [ DRAW />▘W STEP a"]>2 COPY / OR >2 RETURN / OR *]~P"] STEP na! RETURN /44STR$ DIM *] DRAW "]STR$ ! COPY /55 CAT <> RESTORE MERGE OR PRINT 2] GO SUB [ RETURN /z!B`^#V#N#Fo& RESTORE o& RESTORE 9LEN &:]o))) MOVE # SAVE ( MOVE LIST FOR %| NEW PLOT Xg:]w LPRINT COPY :]w LET STR$ MOVE LLIST <> RESTORE MERGE OR G*]+#~ RETURN | IF SAVE "]*]" RETURN /*]#"]~ RETURN |($ RETURN LET 8 STEP ?f*!]"] RESTORE RETURN / STEP f BRIGHT !] THEN V( STEP BORDER e FORMAT STR$ MOVE LLIST <>*]+G#~ RETURN | IF SAVE "]*]#"]~ RETURN | !] THEN N TO DRAW eINKEY$ RETURN 8 STEP ?f*!]"] FLASH RETURN / STEP f ERASE STEP BORDER e STEP !] THEN ^ STEP r` STEP DRAW e<> STEP RUN d STEP DRAW e<>!] THEN f ! COPY /4<>: RETURN /<2 RETURN / THEN ^>=<2 RETURN /<>!] THEN F OVER THEN f( GO SUB [] GO SUB []!] THEN ^( GO SUB S] GO SUB S RETURN /<>"!]< !AT "]<>< *$ATN "]<>< !AT "]<>!]< THEN [G]<>< THEN VERIFY <>< THEN OVER <>< THEN [O]<>< THEN INKEY$<>< THEN NEW <>< *!]#"!]~2]:] THEN _>=#"!]~2]<>< *!]#N#F"!] GO SUB C] GO SUB C RETURN /<>< THEN ▙<>< THEN DEF FN <>< THEN ▚<><USR THEN AND <>! CLS /*]< w<>~ATN (>w n:*]<>= OR STEP PAPER b STEP >=VAL STR$ LET <> RETURN 0 STEP Dg> STEP Lg<> RETURN d0 STEP +g! COPY /4 GO SUB RETURN >=8 VERIFY >=O>2 VERIFY dO>1 STEP Dgy RETURN 8 VERIFY RUN Ox STEP Bgy AND 0 STEP Lg<> AND 0 STEP Lg! COPY /4<> RESTORE !] THEN ^( STEP RUN d LLIST <> STEP r` LLIST <> RESTORE !]6!F"] RESTORE !]6!AT "]!NINKEY$"] STEP We LLIST <>*ATN &ATN ~2]> STEP lg> STEP lg>r2]!" RETURN /:ATN STEP SAVE f!" RETURN /:ATN _!ATN ~ STEP SAVE f<> VERIFY &o)))))_ INVERSE ![P] OPEN # FOR INVERSE <> VERIFY n&o))))_ FOR INVERSE *(ATN INVERSE <>&o)))_ CLEAR *&ATN FOR CLEAR <> GO SUB []* DRAW /"$]<> GO SUB []* DRAW / FOR STEP a~2 IF / RETURN 0 RETURN n0B! STEP [Q]h<>!: IF / STEP CHR$ g INVERSE ~ATN ( STEP ▛h CLEAR ~! STEP [Q]h INVERSE ~ RETURN n8! STEP [Q]h STEP h STEP [P]}:#]! STEP [Q]h<> STEP h STEP [P]}:#]! STEP [Q]h: IF /! STEP [Q]h<>ATN >==o&))_ FOR CLEAR **ATN CLEAR <>"]!]6 GO SUB [$ATN GO SUB S] GO SUB ["ATN GO SUB S]F GO SUB S]< STEP We<>CODE 2+] STEP i STEP >=VAL !+]:*]0,8 STEP i~ VERIFY w0:,]=w8 STEP i:,]G4~LN 86 STEP i STEP MOVE f>= OR STEP i> STEP PEEK ASN STEP i STEP MERGE ASN STR$ INPUT <> RESTORE *-]@:+]G CLEAR OR ~ THEN THEN THEN 9 THEN 9 NEW LEN PLOT @w# BORDER STR$ INVERSE LLIST <> STEP g STEP *a> STEP ^g> STEP lg STEP h STEP NOT a:*] THEN G PLOT STEP INPUT i STEP h GO SUB [$] STEP a"/]~ RETURN 8 STEP OPEN #i CODE STEP j> STEP ^g> STEP j> STEP ^g> STEP ^g> STEP j< STEP j< STEP j< STEP j STEP mj STEP BIN h!5j STEP j STEP STEP i> STEP lg STEP h STEP Jd STEP mj[E]> STEP ^g<> STEP CHR$ g INVERSE "3] INVERSE ~% NEW !ATN PEEK USR INVERSE ~ATN (CODE <><<> STEP Jd STEP STEP i!XX"-]> STEP lgCODE 2,]!["1]!"]<> PRINT *1]w#"1]!,]4 LET <> RESTORE ![:+]_^ LLIST ^#V FOR DIM COS lB▜▗[F]▗Ajlj STEP STEP i> STEP ^g STEP INPUT i>R STEP ^gCODE STEP j< STEP j STEP mj STEP BIN h!fj STEP j<>ljjj LLIST LLIST <> PRINT : RUN ]ATN STEP ▙![M]]4{ RETURN COPY POKE STEP >=VAL :*]< FOR LET <> INVERSE *3] INVERSE ~ATN >= STEP STEP i!:&] STEP [Q]h> STEP ^g>F2]!" RETURN / STEP )k STEP SAVE f! INVERSE ~ STEP SAVE f!"] INVERSE ~ NEW AND . STEP lg!"]>F2] INVERSE ~ NEW AND 6 STEP lg!" RETURN />2]CODE 2] INVERSE ~ THEN ? STEP SAVE f STEP SGN k<>![M]]4CODE FLASH RETURN PLOT LPRINT <( POKE CODE STEP PEEK ASN <>[A] RANDOMIZE THEN 8LN CIRCLE <> INVERSE ~ INVERSE [G] INVERSE F STEP ky<>> STEP lg>2] INVERSE ~! AND STEP We<> GO SUB [:] STEP a~ RETURN 8 INVERSE RESTORE STEP CHR$ g INVERSE ~ INVERSE LLIST RETURN n02#]<> RETURN n02#]<>*:] STEP [P]}:#]<>"]*$ATN "]*"ATN "]!]6< STEP We<> RESTORE PRINT CODE 2]"]> STEP lg LET LLIST "]!]6F*$ATN "]*"ATN "]< STEP We<> INVERSE *3] STEP 7k>2]!FF"]!" RETURN / INVERSE ~ STEP SAVE fCODE 2] INVERSE ~ATN ( INVERSE ~#! STEP [D]k INVERSE ~ RETURN n8 RETURN 8~ INVERSE *3] RETURN n8*$] STEP [P]}:#] PRINT STEP RUN g LET ! STEP [D]k!" RETURN / CLEAR ~ STEP SAVE f STEP COPY t<>!</"g]=/6 GO SUB VAL CODE 2 RETURN t*/]~2&] STEP CHR$ g: RUN ]ATN ; STEP h INVERSE ~ATN (2 INVERSE THEN %v ,>42[L]] STEP LEN RETURN 0 INVERSE PEEK 8 STEP STEP i!:&] STEP [Q]h>a STEP ^g INVERSE THEN % PLOT STEP | STEP m STEP jr STEP "t STEP ▛j* DRAW /"i]*$]"k]:]]ATN TO w STEP n STEP /p STEP mj<> STEP *l STEP Jd COPY OR STEP DIM l(& STEP MOVE fSTR$ POKE CODE 2]*])$," RETURN / STEP CODE `▘ OR STEP DIM l( STEP MOVE fSTR$ POKE CAT STR$ <> STEP >=VAL v RETURN :*] ERASE STEP x ERASE Un ERASE `n ERASE CODE m ERASE OVER m INVERSE *3] INVERSE ~ATN <> INVERSE ~&o GO SUB [ATN INVERSE ~ATN ( INVERSE ~# VERIFY m_~ob))) GO SUB [ATN INVERSE ^!~ PRINT :&]ob)` NEW LET w<>CODE 27]!Mmp INVERSE ~[A]825]<>> STEP lm>27]7<> PRINT STEP STEP i!]6!"]!F"] LET STEP We> STEP PEEK ASN STEP DIM b STEP DIM b STEP DIM b: RUN ]ATN USR A OR STEP >=VAL STEP DATA b:*]< STR$ LIST <>STR$ <> STEP Nm8# INVERSE ~!< RETURN CODE INVERSE w!:5] INVERSE w STEP m STEP "t:6]ATN TO *a STEP x<> STEP ▛jCODE <> STEP Nm8# INVERSE ~! VERIFY 0> INVERSE w!:5] INVERSE w STEP m STEP "t:6]ATN TO *a STEP x<> STEP ▛jCODE <> STEP h*$]| RETURN 0> RETURN J8>J VERIFY 2 CLEAR /G|[A]2]} RETURN 0> RETURN ,8>, VERIFY 2 DRAW /G}[A]2]!ATN 6CODE 2]:6]ATN USR STEP *a<>CODE 28] INVERSE ~! STEP THEN ~<>>28] INVERSE ~! AND RETURN 8 VERIFY STEP THEN ~<>_!PIn:$]▚ RETURN COPY ( RETURN 2(2:]:%]#▚ RETURN COPY ( RETURN P(2;]#~2]>ATN <>CODE <> COPY COPY COPY COPY COPY COPY CODE 2(] GO SUB [:] STEP a">]:8]ATN BIN 0x*>]~2']29] RETURN 8E STEP CHR$ g INVERSE ~% NEW !ATN PEEK !)](6 INVERSE "<] INVERSE *3]:8]ATN INVERSE ~ RETURN CIRCLE 6<> INVERSE ~2'] INVERSE F INVERSE *3] INVERSE ~ RETURN 86<>:'] RETURN n8 STEP OUT g INVERSE ~2(]*:] STEP [P]}:#]2']:'] STEP RUN g INVERSE *3] INVERSE ^ CLEAR CLEAR ~ RETURN COPY INVERSE ~ RETURN !)]0PIw<>!(]▚!]▚2(]:8]ATN !(]( THEN & INVERSE ~PEEK !)]06<>6<> STEP -ACS INVERSE *3] INVERSE ~!(][G] INVERSE w INVERSE ~"▚ INVERSE w"*/] INVERSE ~w:9] INVERSE w*>]:&]w*:]"$]*>]"/]:&] STEP STR$ t STEP jr STEP "t STEP n: RUN ]ATN > TO PEEK ASN INVERSE ~ATN STEP [K]CHR$ Bp STEP [K] TO /p:]]ATN TO ]u: RUN ]ATN ():6]ATN ( STEP *ACS :ATN ATN (CODE 2ATN STEP Gw>2ATN STEP *a STEP jr STEP "t STEP m INVERSE ~ATN >= INVERSE ~ATN >=>ATN <>*$]"@] INVERSE ~2B] INVERSE ~!2C]<> INVERSE ~*/]w GO SUB [@] GO SUB S DRAW / GO SUB S$] STEP a"/]~ INVERSE w:&]w!"]:B] INVERSE w:C] INVERSE w! STEP m STEP n:&] STEP STR$ t STEP SGN k STEP mj STEP /p>27]ATN <>*POINT p GO SUB [TAB p"POINT p GO SUB [ATTR pCODE GO SUB R CIRCLE "POINT p<>*[F]p GO SUB [[B]pATN GO SUB R8"[N]p!"[T]p*[B]p GO SUB [[F]pATN GO SUB R"[N]p! COPY COPY "[T]p*[H]p GO SUB [[D]pATN GO SUB R8"[P]p!"[R]p*[D]p GO SUB [[H]pATN GO SUB R"[P]p! COPY COPY "[R]p*[N]p GO SUB [[P]pATN GO SUB R8*[P]p"TAB p*[N]p"ATTR p*[T]p"PIp!"RNDp*[N]p"TAB p*[P]p"ATTR p*[R]p"RNDp!"PIp*ATTR pPI THEN THEN "POINT p<> STEP COS p0:[L]p!RNDp▚2[L]p:[J]p!PIp▚2[J]p*LEN p##"LEN p<>:[L]p![R]p▚2[L]p:[J]p![T]p▚2[J]p*LEN p###"LEN p<>2D]!P/"E] OR *E]:D]PEEK #^#V#~ PRINT STEP a LET w*E]"E]STR$ INVERSE <>!P/"E]*E]~ RETURN (#^#V OR STEP aSTR$ >[Q][A]w*E]"E] OUT <>>>>2K]:G]2[D]p2[L]p:H]2[B]p2[J]p:I]2[H]p:J]2[F]pCODE 2[E]p2[M]p2[C]p2[K]p2[I]p2[G]p STEP LINE p STEP hq:[L]p_:[J]pW:I]SQR :J]INT >= STEP a^! COPY ERASE ~!K]INKEY$USR CIRCLE !ATN >[G]<2M]>2L]*$]"Q] STEP [I]r<>>2M]:&]2L]*$]"Q] STEP [I]r<>![H]["O][I][6 COPY 9 GO SUB VAL !P/"E] OR >[Q][A]2N]!L]PEEK ([*E]~ RETURN (S:M]N NEW EXP (:M] NEW EXP A#~2S]#~2T]*Q]"G]*S]"I] STEP r &*Q]"I]*S]"G] STEP r *O]:G]w#:H]w#:N]w#"O]*E]"E]STR$ ▛<>:G]!I][G]0 GO SUB D2U]:H]!J][G]0 GO SUB D2V] INVERSE ^!!Qs^#V FOR DIM xsBIN s[O]s NEXT sasfsksps STEP xs STEP BIN s STEP [O]s STEP NEXT s INPUT INPUT <>:U]!V]PEEK 8G]PEEK 8><>CODE <>:J]!H]PEEK 8><>><>:V]!U]PEEK 8H]PEEK 8CODE <>><>:I]!G]PEEK 8><>><>:G]!I]PEEK 8:J]!H]PEEK 8CODE <>:I]!G]PEEK 8:H]!J]PEEK 8><>><>><>:I]!G]PEEK 8:J]!H]PEEK 8CODE <>:G]!I]PEEK 8:H]!J]PEEK 8><>><>><>CODE 2Y]![Q]/"W]![H]["O]*$]"G]*O]> COPY PEEK >=^#V GO SUB SI]#"O] STEP &sATN /*O]~ PRINT GO SUB [I] STEP a LET w*W]wG#"W]!Y]4: RUN ]ATN (!:ACS : SAVE ]w*O]#"O]VAL !P/Q/O6 GO SUB VAL !IN VERIFY "E]*E]~ RETURN 8*E] STEP STOP t LET STEP STR$ t*E]#"E]_ NEW ATN GO SUB R FLASH <> VERIFY o&))P/ INVERSE ~% NEW w#:$]w#:%]w# INVERSE ~w<>CODE IN VERIFY GO SUB RP GO SUB R8 RANDOMIZE x2$]}2%]<>: RUN ]ATN USR :Y]ATN 2 RETURN t> STEP lg<>>2]!rr"]!" RETURN /:Y] STEP SAVE f> STEP ^g: RETURN t!Y]PEEK ~2 RETURN t FORMAT CODE 2+] STEP *a![I]Z"-] OR STEP i> STEP PEEK ASN STEP i STEP MERGE ASN STR$ INPUT <>: RUN ]ATN (>26]![H][~<>= INVERSE *3] INVERSE ~ RETURN FORMAT MOVE [ GO SUB SZ]: GO SUB VAL CODE 2b]<2]]!ATN [G]w:&]2/]*/]"c]*$]"e]"i]* DRAW /"^]*]"`]*Z]^> COPY SQR LINE TO v#V#~ GO SUB S$] GO SUB SG]2&]*e]"I] STEP CHR$ g INVERSE "3] STEP &sATN CHR$ IN vCODE 26] INVERSE ~ THEN ?= INVERSE PEEK ERASE IN v!</:&]PEEK LINE IN v# RANDOMIZE *g]w#"g] STEP @^ STEP g STEP STEP i> STEP ^g!:&] STEP [Q]h> STEP lg*$]"k]: RUN ]ATN ( STEP GO SUB w>2ATN STEP Gw>2ATN STEP jr STEP "t:b]ATN TO GO SUB w STEP w STEP r STEP "t GO SUB [$] STEP a:&]w STEP n STEP mj STEP RUN w> STEP lg GO SUB [$] GO SUB S DRAW /!"] STEP a"/]:&]w2ATN STEP n STEP mj INVERSE ~ATN (: RUN ]ATN ( STEP jr STEP "t:Y]ATN ( STEP $ACS INVERSE *3] STEP ▙>2b]*$]"i]*Z]"Z]NOT SIN u>!ATN [G]wCODE 2]] STEP @^*e]"$]"k]*c]"/]:/]2&] STEP CHR$ g INVERSE "3]:b]ATN >= STEP g STEP STEP i> STEP ^g> STEP lg STEP GO SUB w STEP w*^]" DRAW /*`]"] STEP Gw: RUN ]ATN BIN FN q STEP mj STEP RUN w STEP n STEP jr INVERSE ~ATN (*/]:&]w STEP ▛j STEP mj<>*$] RESTORE STEP BEEP q>!ATN [G] STEP FN q!P/ OR RESTORE N:ATN EXP #^#V GO SUB S$]>[Q][A] STEP CHR$ g STEP jr STEP "t LLIST STR$ FLASH INVERSE *3] LLIST "$]<>:i]!k]PEEK :j]#PEEK >=:i]2[D]p2[L]p:j]2[B]p2[J]p:k]2[H]p:l]2[F]pCODE 2[E]p2[C]p2[M]p2[K]p2[I]p2[G]p STEP LINE p STEP hq:[L]po:[J]pg:k]ABS :l]SGN STEP n<> STEP n LPRINT > STEP FN qCODE STEP FN q<>: RUN ]ATN USR OR STEP >=VAL ![M]]4:*] NEW PAUSE CODE STEP PEEK ASN STR$ <>: RUN ]ATN > TO PEEK ASN STEP SGN k STEP [K] TO /p INVERSE ~ATN USR STEP [K]CHR$ BpCODE <>!P/ RESTORE ~ RETURN (#::]PEEK :;]#PEEK >[Q][A]*>]w LLIST STEP *a<> LLIST BRIGHT <> INVERSE RESTORE !y[z[6 GO SUB VAL CODE 2]!y["m] INVERSE **ATN :9ACS G:&] INVERSE PEEK *m]:9ACS <[A]w# INVERSE ~w# INVERSE ~w#"m]!]4 INVERSE INK INVERSE LLIST <>!z[PEEK ( IF >ATN <>+"o]<> PRINT STEP j LET AND STEP We<>*$] STEP [P]}:]2q] STEP ]x INVERSE ~! STEP tn STEP INPUT i>2]CODE STEP CHR$ x INVERSE ~ RETURN ERASE INKEY$y INVERSE ~ATN >BIN CHR$ x INVERSE THEN %V !:y[ATN >BIN CHR$ x INVERSE THEN %N :q]ATN >BIN CHR$ x INVERSE ~ATN >BIN CHR$ x INVERSE ~#ATN (, STEP OUT g INVERSE "CHR$ ] INVERSE THEN N( INVERSE ~ STEP ATTR x> TO CHR$ x INVERSE THEN ^( INVERSE ~$ RETURN COPY > TO CHR$ x INVERSE *3] GO SUB [:] STEP a">]~ RETURN n06 STEP RUN g CLEAR ~ RETURN > STEP CHR$ x INVERSE ~# CLEAR PEEK > TO CHR$ x CLEAR ~ RETURN > TO CHR$ x CLEAR ~ RETURN INVERSE ~# CLEAR PEEK > TO CHR$ x> STEP CHR$ x> STEP CHR$ x STEP 3ACS STEP mj STEP BIN h! MOVE y STEP j INVERSE ~ATN >= STEP jr STEP "t INVERSE ~ATN >= STEP ▛j STEP *a<> GO SUB y▙7zAT ||[N]B[M] RUN yz RUN yz[F]▗ PLOT y6ACS STEP [K]CHR$ Bp LLIST CODE <><> INVERSE ~ STEP kA STEP Nm CIRCLE :5] INVERSE w CLEAR ~*>]w:6]ATN TO *a<> INVERSE ~ STEP kA STEP Nm CIRCLE :5] INVERSE w CLEAR ~*>]w STEP *a<> INVERSE ~ STEP kA STEP Nm CIRCLE STEP ,`>) STEP lg STEP ]x STEP <>z INVERSE ~ATN ([PEEK CLS x!r]w STEP BORDER { STEP mj STEP [F]{:r]ATN INVERSE PEEK (>:5] INVERSE w:Mm INVERSE ▚" INVERSE w"CODE INVERSE w INVERSE w# INVERSE w$#=_!y[~ INVERSE PEEK ( INVERSE w#~ INVERSE w##~ INVERSE w$:5] INVERSE w STEP ,` STEP g STEP m STEP *a<> INVERSE RESTORE !"]!z["▟]:]G OR >2]*"ATN "]*$ATN "]*▟]~*]%%" RETURN / STEP na!F"]*▟]~< STEP We!E"]*]" RETURN /"]*▟]~ STEP OUT g INVERSE THEN N " INVERSE THEN n INVERSE THEN ^(!G"]*▟]#~ RETURN COPY >f STEP ^g*▟]#~ STEP SAVE f!CC"]>2 COPY / INVERSE ~ STEP SAVE f!BB"]>2 COPY / INVERSE ~ STEP SAVE f:] AND 2]>2]*▟]"▟]STR$ CHR$ FLASH z INVERSE LLIST <> STEP >=VAL :*] THEN G >NOT PEEK ASN THEN W STEP OVER {!r]4:]PEEK 06 THEN O STEP OVER {:r]=2r] RETURN COPY :]2r]> STEP PEEK ASN STEP BORDER { STEP MOVE fATN STEP PLOT {> STEP RUN d<> STEP PLOT {!GG"]>: STEP RUN d<>:r] THEN ' AND 2 RETURN /CODE 2 COPY /<>>2[A]] INVERSE ~ STEP kA STEP Nm CIRCLE *$]":] STEP Jk INVERSE ~ STEP ▛h:#] CLEAR w INVERSE ~#2 BORDER ]CODE INVERSE w INVERSE w# INVERSE w$*$] CLEAR u CLEAR tCODE CLEAR w:#] STEP RUN g CLEAR ~ RETURN 1:[A]]ATN +: BORDER ] STEP OUT g INVERSE ~ CLEAR PEEK 0 STEP INPUT i>W STEP ^gCODE STEP j> STEP j STEP mj STEP BIN h:+]ATN CODE 2[A]]*$] STEP H~ INVERSE *3] INVERSE w INVERSE *3]:5] INVERSE w STEP [C]~ STEP m STEP *a<> INVERSE ~ATN ( INVERSE ~ STEP kA STEP Nm CIRCLE STEP ,`>* STEP lg*$] STEP [P]} STEP <>z STEP ~CODE 2r] STEP BORDER { STEP mj STEP [F]{:r]ATN LINE t}=_!y[~2r] STEP ▛h CLEAR ~ STEP OUT g INVERSE ~ INVERSE F![B]]▚8u= THEN ? INVERSE *3] INVERSE PEEK 0ix![C]]▚8q= INVERSE PEEK &0k:r] INVERSE w:&] CLEAR w CLEAR ~ INVERSE w# CLEAR ~ INVERSE w$:5] INVERSE w:Mm INVERSE ▚" INVERSE w" STEP [C]~:#] INVERSE w*$] STEP H~( INVERSE w INVERSE ~ STEP k INVERSE ~[B]825]NOT STR$ | STEP ,` STEP g STEP m STEP *a<> STEP ,` STEP g STEP *a>+ STEP lm<> STEP ,` STEP g STEP *a>, STEP lm<> INVERSE RESTORE "[D]]CODE 2]!y["m]z[6 GO SUB VAL INVERSE **ATN :9ACS G!y[ INVERSE ~ATN 8 INVERSE ~ATN (2:[D]] INVERSE PEEK *:[E]] INVERSE PEEK ":9ACS <[A]w# INVERSE ~w# INVERSE ~w# INVERSE ~2#]:]<2] RETURN ( INVERSE SQR INVERSE LLIST <> INVERSE RESTORE CODE 2[B]]2[C]]:9ACS G CLEAR **ATN OR :&] CLEAR PEEK CLEAR ~ STEP OUT g:[B]] INVERSE ▚2[B]]:[C]] INVERSE ▚2[C]]STR$ CLEAR BEEP INVERSE LLIST <> INVERSE RESTORE STEP [P]}:]ATN (<CODE 2[F]]!z["m]:]G OR *m]~ STEP OUT g:[F]] INVERSE PEEK 0*m]~2[G]] INVERSE ~2[F]]*m]"m]STR$ VERIFY :[G]]ATN INVERSE LLIST <> STEP ~:[B]]ATN INVERSE w<> INVERSE ~![B]]F STEP ;[E] INVERSE ~o& STEP R[E]PI THEN THEN INVERSE s INVERSE ~ INVERSE [G] INVERSE w INVERSE PEEK FORMAT INVERSE w<> STEP tn>= STEP IN n:8]ATN (:)] RETURN 8(:)] RETURN (!ATN LINE STEP RETURN LINE © RETURN STEP ▞o PRINT STEP SGN k LET <> STEP *a> STEP lm STEP ▛j>ATN <>:6]ATN TO Jd STEP STR$ ©8^ STEP [F] STEP CAT [J] STEP 0:6]ATN TO [I]© GO SUB [:] STEP a:']w STEP [C]:6]ATN TO *a STEP CONTINUE [J]*$]" DRAW /!"] STEP n INVERSE *3]:5] INVERSE w STEP jr STEP "t STEP SGN k STEP ]u STEP [U][U] INVERSE ~ATN >= INVERSE ~ATN >=>ATN <>>- STEP lm STEP ▛j>27]ATN <>*:] GO SUB [ DRAW /ATN GO SUB R THEN $$ THEN %," RETURN /<>> STEP PEEK ASN STEP ▗©!NACS >G2] RESTORE ~ RETURN COPY ( STEP CODE ` STEP MERGE ASN LLIST # LIST LLIST *>]~ STEP na<> INVERSE ~ATN (< INVERSE ~# STEP OUT g INVERSE THEN F(0 INVERSE ~2[K]] CLEAR *3] CLEAR ~ INVERSE F STEP k INVERSE ~▝2[I]] CLEAR ~ INVERSE F STEP k INVERSE ~▝2[H]] INVERSE *3]>2[K]] INVERSE *3] INVERSE ~2[I]] INVERSE ~ THEN '2[H]]![K]] INVERSE ~F STEP ky2[K]] INVERSE ~[B]25]<>:[I]]2[J]]CODE 2] STEP Jk2']:']ATN >= STEP RUN g:[J]] CLEAR PEEK CIRCLE :] CLEAR ▚2] CLEAR ~2'] CLEAR ~ RETURN $* NEXT ]~ATN CLEAR ~w::]#w:;]#w#" NEXT ]~ RETURN COPY !COS /" NEXT ]:[J]] CLEAR [G] CIRCLE 2[J]]ATTR :[I]]<2[L]] STEP LEN ![I]] THEN >▚82[I]]<>> COPY 2[I]]<> RESTORE :[L]]ATN >= GO SUB _*[N]]#"[N]]▚![M]]▚![L]]PEEK 0 GO TO LLIST <> STEP Jd STEP STR$ © PAPER u© STEP [F] STEP [I]© STEP STEP i>> STEP lg!"] INVERSE ~#ATN ( STEP OUT g INVERSE THEN F >? STEP ^g INVERSE *3] INVERSE ~#! STEP [Q]h INVERSE *3] STEP [S]▝:[P]] INVERSE FATN ( THEN 8 RETURN THEN 8:[H]][A]0CODE 2[H]]! STEP 7!" RETURN /:[K]] STEP SAVE f!"]:[P]] AND @ STEP ^g!" RETURN /"]>d2[L]] STEP LEN ![H]]PEEK 8>D STEP ^g!:[I]] STEP SAVE f STEP q STEP CLS ▝ STEP jr STEP g INVERSE ~ATN TO INKEY$ STEP *a> STEP PEEK ASN STEP m INVERSE *3]:5] INVERSE w STEP ` STEP [U][U]<> STEP Jk STEP RUN g:[I]] CLEAR [G]8F2[I]]*$]"I]*:]"G] INVERSE *<] STEP &s2[P]]*<]_:[I]][G]2[I]]8>= THEN ?G~[A]0CODE w INVERSE ~![I]][G] FORMAT INVERSE ~2[I]]<>CODE 2[I]]<> INVERSE ~![I]][G] INVERSE wATN (!:[I]]ATN >= INVERSE THEN %fATN USR G INVERSE ~ STEP k INVERSE ~A STEP k INVERSE ~[B] INVERSE w<>:9] VERIFY &o))P/6 CLEAR **ATN :9ACS G:9] CLEAR PEEK ::] CLEAR w:;] CLEAR w:#] CLEAR w CLEAR 6 INVERSE THEN %^( CLEAR 6 CLEAR CLOSE # INVERSE ~*>]w INVERSE ~% NEW INPUT _2[Q]]!ATN INVERSE ~'▚w INVERSE ~ STEP [O]▘>n2VAL$ [I]<> INVERSE RESTORE 2[R]]![P] OPEN #"m] OR INVERSE *m] INVERSE THEN %f # INVERSE ~% NEW ![Q]]PEEK :[R]]*m] STEP DIM ▘:[R]]*m] STEP CLEAR ▘STR$ (*m]"m] OR INVERSE LLIST <> RESTORE X▚0> COPY w+~#PEEK 0w LLIST <> RESTORE XG~[A]0CODE w LLIST <> PRINT :9ACS G**ATN ~ATN ( RANDOMIZE LET CODE <> LET w#::]w#:;]w#:#]w#6#q<> PRINT RESTORE " RETURN / STEP SAVE f LLIST LET $ RETURN 8$ RETURN d8$" RETURN />%!] THEN ^( STEP RUN d<> STEP r`<> INVERSE ~ATN >= INVERSE ~ATN >= STEP ▛j>ATN <> STEP ▗©:[I]] THEN ? THEN ?ATN >=G OR >F2]:SACS STEP CODE `> STEP PEEK ASN :TACS STEP CODE ` STEP MERGE ASN *>]~ STEP na STEP MERGE ASN STR$ INK <>> STEP PEEK ASN STEP ▗© INVERSE *<]:&] PRINT :9]2&] OR STEP m:9] STEP na> STEP MERGE ASN INVERSE ~!< RETURN CODE INVERSE w! RETURN STOP STR$ OVER > STEP PEEK ASN INVERSE ~o&)) GO SUB [ ATN ~2]# OR RESTORE ~ STEP CODE ` STEP MERGE ASN LLIST #STR$ PAUSE LET 2&]<>:[S]]< RETURN 8CODE 2[S]]o&))P/:ATN PEEK ( READ <>#~2k]#~2l]* DRAW /"i] STEP w<>!@!A!B!C GO SUB [[T]]! FOR { NEW USR 7ATTR NEW SAVE ATTR gzATTR NEW <=ATTR oz NEW GCODE 7 CLEAR G:INKEY$] RETURN ( RETURN (xINKEY$2RND]xACS w<>x INPUT COPY INKEY$w<>xVAL$ w<>>E STEP -` STEP ^g!>[Q] STEP [D]k!>[R] STEP [D]kCODE 2INKEY$] PAUSE OR x=2[U]]>2[T]] STEP L▗>[P]2[T]] STEP L▗STR$ BORDER [G] OR >[P][A]2[T]]CODE 2[U]] STEP L▗> LET 2[U]] STEP L▗STR$ BORDER >2PI]>2FN ]!IN VERIFY "m]2 OR P OR *m]^! COPY ERASE ~ NEW SAVE ( STEP STEP STR$ *m]#"m]:FN ] AND 2FN ] CIRCLE STR$ >2FN ]:PI] AND 2PI] OR ![S]"PI]> STEP STEP >SCREEN$ 2PI]> STEP STEP >2INKEY$] STEP mjd OR STEP >=VAL STEP OUT b:*]STR$ THEN G(a LOAD !IN VERIFY "m]>2PI]>2FN ]2 OR P OR *m]~ RETURN 8> STEP STEP STR$ *m]#"m]:FN ] AND 2FN ] LPRINT STR$ >2FN ]:PI] AND 2PI] STEP ![S]"PI]> STEP STEP >SCREEN$ 2PI]> STEP STEP STEP DATA ▚▙ STEP ,` STEP *a STEP g<>=o&) RANDOMIZE ^#V FOR RESTORE ~ RETURN COPY (:PI]▚2[T]]#:FN ]▚2[U]] STEP L▗ LLIST ## READ LLIST <>#▚4▚?▚F▚M▚T▚[▚b▚i▚r▚{▚▗▚▟▚[I]▚[L]▚VAL$ ▚ASN ▚SGN ▚NOT ▚ LINE ▚ BEEP ▚ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ! DRAW />▚▚▚2PI]#>▚▚▚2FN ]:PI]2[T]]! OR :FN ]2[U]] STEP L▗:FN ] AND 2[U]] STEP L▗STR$ ![T]]4 DATA :FN ]<2[U]] OR :PI]2[T]] STEP L▗:PI] AND 2[T]] STEP L▗STR$ ![U]]4 DATA <>*/]~2POINT ] STEP M▜<> INVERSE RESTORE STEP Jd:POINT ] STEP CHR$ g>F STEP -` STEP ^g!" RETURN /*ATN RESTORE :&] PRINT INVERSE ~! INVERSE 6! PRINT :POINT ]2&] STEP m!_ NEW "ATN :POINT ] STEP na LET INVERSE w! STEP m LET 2&] LLIST "ATN !:POINT ] STEP [Q]h!" RETURN / INVERSE ~ STEP SAVE f!" RETURN / INVERSE ~" RETURN / INVERSE ~ STEP SAVE f!" RETURN / INVERSE ~ STEP SAVE fCODE 2]!~ STEP SAVE f>2]>2VAL ]!"m]!FF"] INVERSE ~2[2[ STEP ▝▖ INVERSE ~2[2[ STEP ▝▖ INVERSE ~2[2[ STEP ▝▖ INVERSE ~2[2[ STEP ▝▖ INVERSE ~2[ INVERSE ~2[ STEP ▝▖ INVERSE ~2[ INVERSE ~2[ STEP ▝▖ INVERSE ~2[ INVERSE ~2[ STEP ▝▖ INVERSE ~22[ STEP ▝▖>:2SCREEN$ ]>x2ATTR ] STEP [A]▖ STEP RUN w STEP ,` STEP *a STEP g INVERSE LLIST <>*m]" RETURN / STEP SAVE f!m]44<>CODE 2INKEY$]!VAL ]F!["VAL$ ]*SCREEN$ ]"AT ] OR *VAL$ ]F~ATN (2 RETURN ©8 THEN 8 THEN ># THEN > OR :TAB ]2[U]]:AT ]2[T]] STEP L▗:AT ] AND 2[T]] STEP L▗STR$ !TAB ]4 OVER STEP K▞STR$ *VAL$ ]##"VAL$ ]:AT ] AND 2AT ]:ATTR ]2TAB ]AT CODE 2LEN ]*SCREEN$ ]"AT ] OR !["VAL$ ]!VAL ]F OR *VAL$ ]~!LEN ]PEEK 8:TAB ]2[U]] STEP K▞STR$ *VAL$ ]##"VAL$ ]:AT ] AND 2AT ] INK STEP PAPER bSTR$ !LEN ]4!TAB ]4:SCREEN$ ]2AT ]INT <>:AT ]2[T]] OR STEP L▗STR$ ![T]]4 PRINT <>&o)))xATN >=ATN GO SUB R CIRCLE IF *SIN ]"TAN ]:[U]]w#:[T]]w#"SIN ]~ RETURN RETURN !["SIN ]CODE 2INKEY$] STEP L▗*SIN ]~2[U]]#~2[T]] RETURN COPY >=>2INKEY$] STEP L▗<> STEP LINE p>2{]>2ACS ]CODE 2ATN ]:[J]p RETURN VAL TO c:[J]p RETURN COPY TO [R]:[L]p RETURN VAL TO BEEP :[L]p RETURN COPY TO ▛:ATN ]ATN CHR$ :[J]p2[U]]:[L]p2[T]]> RETURN 2X[2Y[ STEP t▞:RND]ATN CHR$ STEP , STEP hq STEP 0LEN p GO SUB [CODE pATN GO SUB R<>>2INKEY$], OR *SIN ]~ RETURN RETURN !["SIN ]~ RETURN COPY (~2[T]] STEP L▗ STEP ,*SIN ]##"SIN ]STR$ OPEN #<>![[W6 COPY GO SUB VAL <>: CLEAR / RETURN E >2ATN ]<> AND RETURN E8>E! CLEAR /[G]2ACS ]:ACS ]! CLEAR /▚w:ACS ] THEN ' THEN ' THEN ' THEN 'G:[J]p[A]2[J]p STEP U STEP *a<>: CLEAR /ATN <2ATN ]<> VERIFY 0: CLEAR /2ACS ]: CLEAR /!ACS ][G]2 CLEAR /:ACS ] THEN ' THEN ' THEN ' THEN '![J]p▚w STEP U STEP *a<>: DRAW / RETURN ' >2ATN ]<>: DRAW / AND RETURN '8>'! DRAW /[G]2ACS ]:ACS ]! DRAW /▚2 DRAW /:ACS ] THEN ' THEN ' THEN ' THEN 'G:[L]p[A]2[L]p STEP U STEP *a<>: DRAW /ATN <2ATN ]<> VERIFY 0: DRAW /2ACS ]: DRAW /!ACS ][G]2 DRAW /:ACS ] THEN ' THEN ' THEN ' THEN '![L]p▚w STEP U STEP *a<> COPY COPY RETURN RETURN CLEAR CLEAR DRAW DRAW CLS CLS >2INKEY$]!P▛"LN ] OR *LN ]^#V#"LN ]:]▘2[U]]:]2[T]] STEP L▗STR$ LLIST <>: CLEAR /&o)))):]_"<>]: DRAW /&o)))):]_" THEN ]<>! STEP ]F>U THEN 82[L]] STEP LEN AND _* FORMAT ] THEN < THEN THEN < THEN THEN < THEN 8 SAVE THEN : THEN ATN GO SUB R0Y* ERASE ]>d2[L]] STEP LEN RETURN 28<>ATN GO SUB R FORMAT !<>:[L]p THEN ? THEN ? THEN ? THEN ?2]:[J]p THEN ? THEN ? THEN ? THEN ?2]* DRAW / GO SUB []":] FOR STEP a">]<>:] THEN ? THEN ? THEN ? THEN ?_:] THEN ? THEN ? THEN ? THEN ?W* DRAW /"I] FOR STEP aF:&]LN <>CODE 2 CONTINUE ] INVERSE *3]>2ATN * DRAW /"SGN ]*]"USR ]:] THEN ' THEN ' THEN ' THEN ' AND 2PEEK ]2]:] THEN ' THEN ' THEN ' THEN ' AND 2IN ]2] STEP PI▛*<>]"[B]p" CIRCLE ]* THEN ]"[D]p" VERIFY ]>PI2ATN >2ATN ![P] BORDER "ATN INVERSE *CHR$ ]CODE CLEAR *3] INVERSE THEN N( CLEAR ~ INVERSE F STEP ky2 MERGE ]! MERGE ]F THEN 8 THEN 8 INVERSE ~ OUT ]! MERGE ]F THEN 8 INVERSE ~ STEP x▟2 LLIST ]! MERGE ]F INVERSE ~ STEP x▟2 READ ] INVERSE ~ATN ( CLEAR ~ INVERSE F STEP _▞yATN >2 LPRINT ] CLEAR ~ INVERSE F STEP _▞y2 STOP ] CLEAR ~ INVERSE F STEP _▞y2 DATA ] CLEAR ~2 RESTORE ] CLEAR ~ STEP ky2 NEW ] CLEAR THEN %N>=CODE 2 NEW ]<> RETURN d CIRCLE >d<> STEP STEP i>L STEP ^g!: BORDER ] STEP [Q]h STEP LLIST ▟!"]! OUT ]"m] OR *m]#~ATN >M STEP ^g+~*] STEP 7*]" RETURN /*m]#~ STEP SAVE fSTR$ *m]##"m]*]"]STR$ <> CLEAR *3]>2]!FF"]!" RETURN / CLEAR ~ STEP SAVE f!" RETURN / CLEAR ~$ STEP SAVE f<> INVERSE ~#2 BORDER ] STEP OUT g INVERSE "CHR$ ] STEP } STEP *a STEP ©▟CODE 2]<2] STEP b:*] THEN G PLOT STEP T(!*$]"G] INVERSE *3] STEP &sATN ( STEP *a>g STEP lm STEP ©▟CODE 2] FORMAT STEP INPUT i!FF"] STEP T(?: LPRINT ]ATN (CODE STEP j>G STEP lg: STOP ]ATN (> STEP j>H STEP lg: DATA ]ATN (> STEP j>I STEP lg: NEW ]ATN (>J STEP lg> STEP j STEP T~ RETURN 82POINT ]> STEP j> STEP ^g>K STEP ^g> STEP j> STEP j STEP mj STEP BIN h! RESTORE ▙ STEP j INVERSE *3] INVERSE ~ATN LINE POKE ▙ STEP ©▟NOT '▙2[C][B][M][K]! POKE ▙ NEXT ▙<>CODE 2ATN >2ATN CODE 2ATN *SGN ]" DRAW /*USR ]"]!_ NEW "ATN STEP *a INVERSE *3]: RUN ]ATN USR LLIST <> STEP M▜CODE 2]2]<>!"|]:{]_*|]"|] ERASE ATN GO SUB R0-> OPEN # RETURN :{]G CLEAR CODE OPEN # RETURN :{]G CLEAR GO SUB _ NEW OPEN # RETURN !{]444~ RETURN ERASE 8 OR > ERASE 2{]PEEK COPY RETURN <>: OUT ]2 STEP ]: LPRINT ]G: READ ]2 STEP ]: DATA ]G: LLIST ]2 STEP ]: STOP ]G INVERSE *3] STEP Nm CIRCLE STEP NOT >= STEP CAT [J] STEP STOP STEP POKE STEP [A] STEP [A] STEP C[A] STEP DATA [A] STEP m STEP PEEK [B]<> INVERSE *3] INVERSE ~ STEP ▛h CLEAR ~ATN ( CLEAR 5 INVERSE 5$ATN <>>N STEP lmCODE <> INVERSE *CHR$ ] INVERSE ~&o))))"CODE p<>*]"<=]* DRAW /" OR ]<> STEP PI▛*<>]"[F]p* THEN ]"[H]p<>*SGN ]" DRAW /:PEEK ]2[J]p:IN ]2[L]p STEP *a*USR ])$," RETURN /CODE STEP CODE ` STEP U!["SIN ]!"LEN p<>>d2[L]] STEP LEN ! STEP ]PEEK CIRCLE [G]<2 CLOSE #]*[B]p GO SUB [[F]pATN GO SUB R8"[N]p*[F]p GO SUB [[B]pATN GO SUB R"[N]p*[D]p GO SUB [[H]pATN GO SUB R8"[P]p*[H]p GO SUB [[D]pATN GO SUB R"[P]p*[P]p GO SUB [[N]pATN GO SUB R8[[N]p)" DEF FN ]*[N]p GO SUB [[P]p)" DEF FN ]: CLOSE #] THEN ?<G GO SUB [ DEF FN ]! CLEAR " FORMAT ]*[F]p" ERASE ] STEP FORMAT ▛"[F]p*[H]p" ERASE ] STEP FORMAT ▛"[H]p<> STEP LEN ▞:RND]ATN >=!_ NEW "ATN INVERSE *CHR$ ] INVERSE THEN VCHR$ [S][B] STEP *a>2 PAPER ]>2 INVERSE ]>2 OVER ]:[L]p2 FLASH ]:[J]p2 BRIGHT ] STEP u[E] STEP % INVERSE *CHR$ ] INVERSE ~2[I]] STEP [F]!_ NEW "ATN STEP *a*>]~ RETURN 06 STEP 0*>]:']w STEP [C] STEP CONTINUE [J] INVERSE *3] STEP jr STEP "t STEP *a STEP g*:] STEP 'ACS * VERIFY ]"[D]p* CIRCLE ]"[B]p STEP [U][U]<>29] STEP CHR$ g INVERSE "<] INVERSE *3] STEP [S]▝ STEP q STEP CLS ▝ STEP g INVERSE ~ATN TO INKEY$ STEP *a> STEP PEEK ASN STEP [U][U]<> STEP % STEP G[K]*:]"[E][G] INVERSE ~2▙[G] STEP [G][G] STEP CONTINUE [J] STEP [U][U]<> INVERSE *3]:5] INVERSE w:Mm THEN ? INVERSE ▚" INVERSE w"CODE 2]*<=]"]* OR ]" DRAW /![P] BORDER "ATN : RUN ]ATN USR STEP *a*$] STEP 'ACS INVERSE ~ATN USR <2 CONTINUE ]<>:ATN ATN (!ATN :]▚wCODE 2M]:] STEP [O]▘:ATN ATN >=!ATN :]▚w>2M]:] STEP [O]▘<>: OUT ]2 STEP ]! LPRINT ]~▚▚O INVERSE ~EXP 0> STEP lm<> STEP NOT >= CLEAR 4 INVERSE 4$ STEP POKE STEP STOP STEP z▛ STEP [A] STEP C[A]*[F]p"]*[H]p"~] STEP STEP i>O STEP ^g STEP b:*] THEN G PLOT STEP T( LET *$]"G] INVERSE *3] STEP &sATN ( STEP *a>g STEP lm STEP ©▟CODE 2]<> STEP *a STEP STEP i STEP [A] STEP C[A]*[F]p"▗]*[H]p"▘]>P STEP ^g!"▞]>2▜]: LPRINT ]G INVERSE ~ IF y<2▖] STEP mj!FF"]>2▚] STEP CLS [C] STEP CAT [J] STEP `[D]<>*▞]" RETURN />2]:▚] STEP SAVE f:*]<(> STEP PEEK ASN STEP MOVE f STEP >=VAL :*] THEN G > STEP PEEK ASN <> THEN O :▚]<2▚]!▖]PEEK 8USR :▜]2▚]LN THEN W FORMAT :▚]ATN (=2▚]!▜]PEEK 0[U]:▖]=2▚][L]!"y]*▘] GO SUB K~]PI GO SUB B0*~] GO SUB K▘]PI GO SUB B>2y]"s]*▗] GO SUB K]PI GO SUB B0*] GO SUB K▗]PI GO SUB B>2z]"u]CODE 2▛]:▚]G OR : LPRINT ]G STEP Nm PAPER 6[E] STEP NOT (|:▚]!▛]=F STEP ;[E] GO SUB Cw]*s] STEP R[E]*~]:y]ATN PI GO SUB R"[H]p*u] GO SUB Kw] STEP R[E]*]:z]ATN PI GO SUB R"[F]p STEP [A] STEP DATA [A] INVERSE *3]:5] INVERSE wCODE 2]![P] BORDER "ATN !▛]4STR$ INVERSE ~ATN (* VERIFY ]"[D]p* CIRCLE ]"[B]pCHR$ SCREEN$ [D] STEP PEEK [B]<>STR$ STEP PEEK [B]<>o&)))))X{ATN >= GO SUB R CIRCLE IF xATN yATN >=)))))PI GO SUB B8 RANDOMIZE PI THEN THEN PI GO SUB B CIRCLE <>> STEP PEEK ASN ! PAPER ]F CLEAR !N[F]: FLASH ] CLEAR w: BRIGHT ] CLEAR w CLEAR LIST !G"]: OVER ]G>2INKEY$] OR ! PAPER ]F CLEAR !N[F] OR CLEAR ~2[T]] CLEAR ~2[U]] STEP %[F] CLEAR ~ CLEAR ▚ RETURN AT 0P CLEAR w2[T]] CLEAR ~ CLEAR ▚ RETURN AT 0@ CLEAR w2[U]] STEP %[F] GO SUB _ NEW OPEN # RETURN STR$ CLEAR IN STR$ : INVERSE ]ATN :] RETURN B(:]=2] >2]:]=2] STEP EXP [J]▙<>: FLASH ] CLEAR w: BRIGHT ] CLEAR wSQR ![U]]4 STEP L▗![T]]4 STEP L▗![T]]4 STEP L▗![T]]5![U]]5 STEP L▗![U]]44 STEP L▗<> DRAW DRAW CLEAR CLEAR CLEAR CLEAR RETURN CLS RETURN CLS CLS RETURN CLS RETURN RANDOMIZE RANDOMIZE CLS CLS CLS CLS CLEAR RANDOMIZE CLEAR RANDOMIZE RANDOMIZE CLEAR RANDOMIZE CLEAR RETURN RUN RUN RETURN RUN RETURN RETURN RUN CLS SAVE SAVE CLS SAVE CLS CLS SAVE PRINT PRINT SAVE SAVE SAVE SAVE CLEAR PRINT PRINT CLEAR PRINT CLEAR CLEAR PRINT IF PLOT PLOT IF PLOT IF IF PLOT PAUSE RETURN PAUSE RETURN : RUN ]ATN (> STEP FN q>2ATN *$] RESTORE *[B]p RESTORE *[D]p RESTORE *[E][G]"$] STEP n:[E][G]! DRAW /[G] THEN ' THEN ' THEN ' THEN ' AND 2 FLASH ]:[F][G]! CLEAR /[G] THEN ' THEN ' THEN ' THEN ' AND 2 BRIGHT ]CODE 2[C]p2[E]p2[K]p2[M]p2[G]p2[I]p![[6x GO SUB VAL :[E][G]2[D]p VERIFY 0CODE 2[A][G]:[E][G] AND RETURN 28>12[B][G]:[F][G]2[B]p VERIFY 0CODE 2[C][G]:[F][G] AND RETURN P8>O2[D][G]:[A][G]2[H]p:[C][G]2[F]p STEP 2[F]p STEP 4:[B][G]PEEK 0 DATA :[C][G]<2[F]p:[A][G]2[H]p STEP 2[H]p STEP <2[F]p![D][G]PEEK LLIST *[E][G]":] STEP [I]:▙[G]w:[A][G]2:]:[C][G]2;] STEP CODE [I]!;]4:[D][G]PEEK 0 NEXT :[C][G]2;]!:]4:[B][G]PEEK 0 READ > STEP PEEK ASN OR >G STEP EXP [J]> STEP MERGE ASN >x STEP EXP [J] STEP MERGE ASN STR$ REM >G STEP EXP [J]:▙[G] THEN ? THEN ? THEN ? AND 12 PAPER ]CODE 2 INVERSE ]>2 OVER ] STEP u[E] STEP Gw STEP *a STEP g LLIST "[D]p LLIST "[B]p LLIST "$] STEP [U][U]<>:▙[G]2[G]:[B]p2[J]p:[D]p2[L]p STEP LINE p:[J]p![F]pPEEK :[L]p![H]pPEEK >=!"LEN p STEP hq:[L]p2:]:[J]p2;] STEP h[I]:▙[G] THEN ? THEN ? THEN ? THEN ?O:LEN pG:[G][B] CIRCLE DRAW 2[G]SQR STEP [I]:[G]PEEK 8w STEP Jk STEP RUN g:[G] CLEAR [G]82[G] CLEAR ~ATN >= FOR CODE 2[G]<>::]![A][G][G]G▜▜▜_:;]![C][G][G]_![<> STEP [I]~2[I]]2[G] STEP 0 STEP [C] GO SUB [:] STEP a">]~2VAL$ [I]:']2#]w!P/ RESTORE ~ RETURN (#::]PEEK #:;]PEEK #:']w>[Q][A]29]*>]w LLIST BEEP LLIST STEP CHR$ g INVERSE "<]:'] INVERSE w:[G]2[I]]*:]"$] STEP [S]▝ STEP CLS ▝CODE 2G CLEAR **ATN OR CLEAR ~ATN (J CLEAR ~ATN D::] CLEAR PEEK <:;] CLEAR PEEK 4>2 CLEAR w CLEAR ~ STEP OUT g:[G] INVERSE PEEK 8 CLEAR 6*>]~ RETURN 0:']w STEP CHR$ g:'] INVERSE w CLEAR STR$ PI:VAL$ [I] RETURN n CIRCLE *:] STEP H~:]ATN >=*>]~ RETURN 0:[G]]w<> STEP CHR$ g:[G]] INVERSE w<> OR !!X OR w# DRAW STR$ PRINT STR$ <>!COS /" LET ]" NEXT ]TAN /;6 GO SUB VAL > COPY 2 LOAD /<>> COPY 2 LOAD /* LET ]~ATN >=2▙[G]6#~2[E][G]#~2[F][G]#" LET ]~ RETURN COPY !COS /" LET ] STEP [G][G] ERASE !P/ RESTORE :ATN PEEK #:$]PEEK #:%]PEEK [Q][A]PEEK ( LLIST >ATN <> LLIST INK CODE <>*$]" PAPER RND*:]" BRIGHT RND STEP LPRINT RND![" CLS ] OR * CLS ]~ RETURN COPY (#2 BRIGHT RND#~2 INVERSE RND##" CLS ] GO SUB [ BRIGHT RND STEP a^! COPY ERASE THEN N(STR$ MERGE <>STR$ <>STR$ GO SUB [ BRIGHT RND GO SUB S:] STEP a">]<>: RESTORE ]2 STEP ]: NEW ]G INVERSE *3] STEP Nm CIRCLE STEP POKE >2 CONTINUE ]:5] INVERSE w CLEAR *CHR$ ] INVERSE ~ CLEAR F STEP k OR *$]"KRND:]2[L]p:]2[J]p STEP %*:]"MRND STEP PRND THEN ?STR$ EXP 8yo&)))))"CODE p*<=]"]* OR ]" DRAW / STEP [A] STEP [A] STEP C[A] STEP LEN ▞:ATN ]ATN LINE %[L]*TAN ]~2[J]p#~2[L]p!_ NEW "ATN STEP %*>]~ RETURN 02_:ATN ]ATN ! COPY ERASE THEN NBIN G[K] STEP [M] INVERSE *3] INVERSE 6 STEP m*:] STEP n STEP [I]© STEP ▛j STEP mNOT DRAW [L]29] STEP CHR$ g INVERSE "<]*$]"I]*:]"G] STEP &sATN BIN INVERSE ~ATN PEEK :&] PRINT :9]2&] STEP ]x:] RETURN 8 LET 2&][U] CLEAR *3] CLEAR ~# INVERSE w# CLEAR ~$ INVERSE w$ CLEAR ~ INVERSE w STEP m STEP [M]:#] INVERSE w:9] CLEAR w LET 2&] INVERSE *3] INVERSE 6 STEP m STEP STEP i>Q STEP ^g!:9] STEP [Q]h*:] STEP n STEP [I]© STEP m STEP ▛j<> INVERSE *3] INVERSE 6# INVERSE 6NOT POKE ▙ INVERSE *3] INVERSE ~ STEP ▛h CLEAR 6::] CLEAR w:;] CLEAR w STEP Jk CLEAR w*>]~ RETURN 0: BORDER ]w<> STEP CHR$ g: BORDER ] INVERSE w<> INVERSE ~ STEP kA STEP Nm CIRCLE :5] INVERSE w STEP STEP i>U STEP ^g!"▞]CODE 2▜]2▚]>)2▖] STEP CLS [C] INVERSE ~ STEP ▛h:▚]!ATN ▚▚!ATN ▚ CLEAR w INVERSE w$<> STEP STEP i CLEAR **ATN :9ACS G OR CLEAR ~ THEN ?!ATN PEEK V CLEAR ~ NEW !ATN VAL$ K CLEAR ~ATN (E STEP OUT g INVERSE THEN ^(< CLEAR ~ATN ( VERIFY o&))Q/~ CLEAR w#~ CLEAR w CLEAR ~2[E][G] CLEAR ~2[F][G] INVERSE ~2▙[G] CLEAR RESTORE STEP CAT [J] STEP [G][G] STEP CONTINUE [J] STEP DIM b CLEAR LLIST CLEAR STR$ [G]<> INVERSE ~ STEP kA STEP Nm CIRCLE :5] INVERSE w:Mm INVERSE ▚" INVERSE w"*o]~ STEP ▛h CLEAR 6 CLEAR 6*o]#~ STEP OUT g INVERSE ~ INVERSE *3] INVERSE w$ PRINT INVERSE ~ STEP ▛h LET CLEAR w STEP STEP i>V STEP ^g STEP m<> STEP ,`!ACS :ATN ATN (![T]ACS " INPUT ]:ATN _! SAVE ACS >X STEP ^g!:ATN AND [Q] STEP zkCODE STEP '[O] STEP P[O] STEP [P] STEP ^[P] STEP 8[Q]>[ STEP ^g>n2 GO SUB ] STEP SCREEN$ [Q]!X"-]CODE 2+] STEP i STEP mj STEP MOVE f STEP >=VAL :*] THEN G(G THEN O STEP i:+]= RETURN COPY :,]2+] STEP i INK THEN W STEP i:+]<G:,]LN 0x2+] STEP iSGN :+]ATN TO d[Q]:+]ATN BIN INVERSE [Q]AT STEP i>Y STEP ^g STEP mj STEP >=VAL :*] RETURN COPY ( PLOT THEN G>=>[ STEP ^g STEP SCREEN$ [Q] STEP i▜G!GG"]>2]! SAVE ACS :ATN _~LN 8[A]w!" RETURN / STEP SAVE f7<>PI<>CODE 2+]2,]*,]"/]! DATA ACS CLEAR ![:ATN <INKEY$( >[Q][A]2&] RESTORE STEP CHR$ g LLIST INVERSE THEN %~ :&] CLEAR w CLEAR #:,]<2,]# VERIFY !" FOR ]![" DIM ]:,]G OR * DIM ]~2&]#" DIM ]!]6F* FOR ] STEP [D]k* FOR ]" RETURN /:&] STEP na* FOR ]" FOR ]STR$ TO :,]G![ RESTORE OR :9ACS G~ CLEAR **ATN CLEAR PEEK CLEAR 6 CLEAR 6 CLEAR LOAD STEP CHR$ g INVERSE 6 INVERSE 6# INVERSE 6$STR$ LLIST # STEP <>>Z STEP ^g>F2]!" FOR ]!>=ACS " DIM ] OR OR * DIM ]~#" DIM ]* FOR ]" RETURN / STEP SAVE f: FOR ]< RETURN < RETURN <2 FOR ]STR$ PAPER * FOR ] RUN " FOR ]STR$ LINE <>!@X"-]!"▞]![" DIM ]CODE 2▜]>2▖]!GG"]:,]G OR * DIM ]~#" DIM ] STEP CHR$ g STEP iCODE 2▚] STEP mj STEP CLS [C]:▚]o&)))_ GO SUB RSTR$ ACS ~ INVERSE w#~ INVERSE w#~ INVERSE w#~ INVERSE w#~ INVERSE w&#~ STEP '[O]!▞]44 STEP i!+]4STR$ [U]<>:+]=_!" RETURN / CLEAR ![ CLEAR INVERSE **ATN CODE 2 PRINT ]:9ACS G OR INVERSE ~ CLEAR PEEK INVERSE ~ STEP na: COPY / AND 2 COPY /! PRINT ]4STR$ INVERSE INVERSE : COPY / RETURN >=CODE STEP CODE `: COPY / AND 2 COPY / GO TO !" RETURN / OR OR CODE STEP CODE `: COPY / AND 2 COPY /STR$ LIST >2 COPY /: RETURN / AND 2 RETURN /STR$ INVERSE <>:*] THEN _ : GO SUB ]< RETURN >n2 GO SUB ] STEP [K][Q]( INPUT STEP SCREEN$ [Q]<> THEN gUSR : GO SUB ]= RETURN m >▛2 GO SUB ] STEP [K][Q]( INPUT STEP SCREEN$ [Q]<> VERIFY n_* INPUT ]~2 LIST ] RETURN COPY <>!" RETURN /: GO SUB ] STEP na!FF"]!: GO SUB ] STEP [D]k>2]: GO SUB ] STEP [K][Q]!" RETURN /: LIST ] STEP SAVE f<>:*] THEN _ TO INPUT [Q]:*] THEN g TO <=[R]<> STEP LPRINT [P]: PRINT ] RETURN >= STEP ATN [R]:&] STEP CHR$ g INVERSE "3] STEP ~: GO SUB ] STEP OUT g CLEAR *3] INVERSE ~![B]]▚8 THEN ? AND CLEAR PEEK 0 INVERSE ~![C]]▚8>/ STEP ^g>] STEP ^g> STEP PEEK ASN >[ STEP ^g STEP SCREEN$ [Q]<> STEP ATN [R] CLEAR **ATN :9ACS VERIFY G OR CLEAR ~ATN M: LIST ] STEP '[O]0;:&] CLEAR w: GO SUB ] CLEAR w CLEAR 6 STEP OUT g INVERSE THEN ^( CLEAR 6 COPY INVERSE THEN n( INVERSE ~ CLEAR w INVERSE THEN N( INVERSE ~ STEP OUT g INVERSE ~ CLEAR wSTR$ STEP LPRINT [P]> STEP PEEK ASN <>STR$ CLEAR [U]<>:+]=_![~2&]<> STEP ATN [R] CLEAR **ATN :9ACS G OR :&] CLEAR PEEK -: GO SUB ] CLEAR PEEK % CLEAR 6 CLEAR 6:ATN _! SAVE ACS : LIST ]▚wCODE STEP '[O] STEP LPRINT [P]> STEP PEEK ASN STR$ <>STR$ CLEAR CHR$ <> STEP ,`CODE 2 RUN ]>^ STEP ^g>2 PLOT ] STEP mj STEP v[S] RETURN (> STEP INT [S]<> STEP ,`:▗ACS 2 PLOT ]!" RETURN / STEP SAVE f>_ STEP ^g STEP mj STEP v[S]G=_!UACS ~2 SAVE ]! IF ACS ~2 SAVE ACS x< STEP INT [S]>2ATN <>>2 RANDOMIZE ]>2 RANDOMIZE ] STEP mj: RANDOMIZE ]ATN STEP >=VAL :*] THEN G>( STEP ▙{ RETURN COPY ( NEW ! PLOT ]FPEEK (# RANDOMIZE CLOSE #y PRINT CODE STEP PEEK ASN LET ATN <>$GCODE 7 CLEAR 2 IF ]>2&]!pACS OR RESTORE ~! IF ]INKEY$ CHR$ g> INVERSE ACS % INVERSE w%!&]4 LLIST #STR$ LPRINT <>>2&]:&] STEP CHR$ g INVERSE THEN %~ c INVERSE ~!ATN PEEK Z INVERSE ~2[L]] STEP LEN INVERSE ▚2$] INVERSE ~ 2[L]] STEP LEN INVERSE ▚2%] GO SUB [$] STEP a"/]~ RETURN 0 OPEN # INVERSE w*$]":] STEP Jk STEP RUN g INVERSE ^ CLEAR CLEAR ~ RETURN COPY (ACS */]:&]w STEP m:&] STEP STR$ t:&]<2&] RETURN [Q]CHR$ NEXT [S]<> STEP ,`>2o[T]!#" DRAW /!"]>2&]:&] VERIFY _! DATA ACS THEN V LINE d[U]:&] STEP CHR$ g INVERSE ~% NEW !ATN PEEK CHR$ d[U] INVERSE THEN %~CHR$ d[U] STEP STEP i>` STEP ^g!GG"]!" RETURN /!ATN >1▚ STEP RUN d:&]! STEP [Q]h!" RETURN / STEP ]x:]ATN (+G!z[ OR RESTORE ~ STEP na: COPY / AND 2 COPY / RETURN VERIFY 2 COPY /: RETURN / AND 2 RETURN / LLIST STR$ INK STEP *a STEP g STEP NOT a:*] THEN G PLOT STEP h GO SUB [$] STEP a"/]N!^ACS RESTORE yPEEK #:ATN PEEK ( LLIST GO SUB DEF FN #~ INVERSE w INVERSE 6 COPY LLIST */]:&]w STEP *a> STEP PEEK ASN :&]<2&] RETURN [Q]CHR$ ▞[T]CODE 2o[T]!IN VERIFY N CLEAR !^ACS y CLEAR PEEK :ATN CLEAR PEEK ( CLEAR INPUT CLEAR ~w#_ NEW PI GO SUB R>= OPEN #CODE STEP :RND(:/ACS !ATN ▚w> STEP :RND(:]ACS !ATN ▚w:ATN RETURN d0:ATN RETURN d0:ATN !ATN PEEK (<> STEP ,`:ATN RETURN d8>[Q]2]:ATN RETURN d8>[R]2]>d STEP ^gg:]! STEP zk:ATN RETURN d8>d2ATN :ATN RETURN d8>d2ATN >c STEP lg STEP RETURN _CODE 2 RUN ] STEP mj STEP RUN wNOT NOT LEN !P/PEEK >= CLS >ATN <>:KRND!MRND[G] PAUSE /RND GO SUB D2ORND:LRND!NRND[G] PAUSE kRND GO SUB D!ORNDPEEK 8 THEN '▚<>▚▚<>: CLEAR ]G OR : CLEAR ]G*xRNDX##" CLS ] OR * CLS ]CODE ~ GO SUB RPEEK 0* CLS ]CODE ~ GO SUB RNwq+" CLS ] GO TO * CLS ]CODE GO SUB R" CLS ]STR$ THEN STR$ ASN <> COPY COPY COPY COPY COPY COPY * PAPER RND"KRND![" CLS ]! LINE RND" OVER RND OR * OVER RND: BRIGHT RND▚ RETURN 20-2MRND#: INVERSE RND▚ RETURN P0!2NRND#" OVER RND* CLS ] GO SUB [MRNDs#r# RESTORE STEP PRND LLIST w#" CLS ]STR$ <>* CLS ]6 COPY #6 COPY #6 COPY #" CLS ]STR$ ASN >2 CLEAR ]!["xRND STEP zRND<>| CLS PRINT pqssssssssssssssssssss/ RUN ]_ttttttttttttttttttttuw PRINT r^^^^^^^^^^^^^^^^^^^^x SAVE z{yy PRINT yyv| CLS PRINT PLOT F} PLOT rTURN> VP> PLOT F~| PLOT PRINT / PRINT / PRINT ///| NEXT PLOT F PRINT PRINT PLOT D PRINT PRINT PRINT / POKE NEXT | PRINT PLOT ///////////| PRINT PLOT D PRINT PLOT E/ IF PRINT PLOT GG CLS >|/| PLOT EE/| PLOT DD NEXT / PLOT CC/ PLOT BBGG| PLOT DD PRINT PRINT NEXT ////// PRINT ///| CLS PLOT B PRINT pqs/]/r _/^ [ t/x u/z{yvw PLOT F CLS | PRINT h| PRINT i| PRINT j| PRINT k| PRINT l| PRINT m| PRINT n| PRINT o|///|/| PRINT /| PLOT rr PRINT )| PRINT NEXT $| PRINT !/"| PLOT E PRINT #/$%/&| PRINT //$| PLOT BB PLOT FF$/| PLOT EE+/| PLOT EE, -/| PLOT EE./| PLOT FF0/| PLOT FF1/| PLOT DD2/| PLOT DD3/| PLOT DD4/| PLOT DD53/| PLOT CC/| PLOT GG/| PRINT PLOT E+/ PLOT D6 PRINT 789 PRINT IF PLOT FF:| PRINT PLOT E,-/ PLOT D6 PRINT 789 PRINT IF PLOT C
16912/;</=/%,/-|/;</>%/,-|////J/K/L| PLOT VERIFY ?|@|A|B|C|D|E|F| PLOT STEP G|H|I|B|C|D|E|F| PRINT PLOT D NEXT M PRINT N PRINT O PRINT Q|R|S| IF T/W| IF V| IF U/W|X| PRINT IF PLOT CBY RANDOMIZE PLOT C PRINT #$/%Z| PLOT DD NEXT PRINT c PRINT [ PRINT /V PRINT T PRINT U PRINT /S RANDOMIZE PRINT 8 PRINT PLOT B] PLOT D IF PRINT M ^c/K Lc PRINT _c PRINT ac/ bc PRINT c PRINT c| IF d/| IF e/| IF f/| IF g/| PLOT BB NEXT GG| PRINT NEXT PLOT DDhc/ic/ RANDOMIZE PLOT Edj/k///ej/k///f j/k///g/k IF PLOT F| PLOT BBl PLOT FF|:m//M| PRINT PLOT E#/$%//q/r| PRINT PLOT Eno/p| PRINT s/t| PLOT GG/ PLOT BB NEXT F PRINT PRINT IF PLOT CB PRINT u PRINT v| NEXT PLOT DD PRINT wc PRINT c PRINT | PRINT PLOT Dz/{ PLOT EE| PRINT M/;/}|:/ PLOT DD~// PLOT B©/▝%/▘//▗| NEXT PRINT PLOT DDWc PRINT c PLOT FF| NEXT PLOT MM PRINT # $ % | PRINT PLOT E[ RANDOMIZE PLOT D PRINT ▚//S/U/T/V//▜/▖//O| NEXT PRINT c / ▞c| NEXT PLOT VV PRINT ; < = | NEXT PLOT VV PRINT ; < > | PRINT no NEXT wx▗ PLOT D/▛#| PRINT ▟▙▗/ PLOT D NEXT ▛# PRINT [A]| PRINT w/ NEXT PLOT D[B]c PRINT c PRINT RANDOMIZE POKE PLOT C#/$%/[B]| PRINT [C]/?| PRINT y NEXT %c PLOT GG| PLOT F PRINT PRINT IF PLOT CB PRINT u NEXT v PRINT [D][E]| PRINT [D];[F]| NEXT PLOT CB PRINT u v PRINT [G] PRINT [H] RANDOMIZE PLOT F PRINT | PLOT BC[I]|/[J]'/[K]| NEXT IF PLOT DD PRINT y c PRINT c PRINT c RANDOMIZE POKE PLOT C PRINT #$%& IF PLOT FF| PRINT ▟[L] PLOT E PRINT [M][N]/[O][N]/[P]/[Q]| PRINT [R][S]c#[U]RND| PLOT G PRINT [T]Cc#[U]RND| PRINT ▟INKEY$ PRINT PLOT EPI| PRINT ▟FN PRINT PLOT EPOINT PRINT PLOT D#$%&||`ade/bcfg|MAP|OBJECT|UNI
21628|USE| PLOT E> PLOT D| |SELECT|OPTION|INFO|NEXT|SCANNER|END|TURN|CANCEL|AP RANDOMIZE PRINT S|MORALE|STAMINA|WOUN|BURD|TERRAIN|PROT|NOT|ENOUGH|ACTION|POINTS| PLOT F} PLOT r| PLOT F~|OPPOR|TUNITY| |SPOTTED|BY|PRESS|FIRE|TO|CONTINUE|OF|MOVE|<ENEMY|-|CHANGE|PICK|UP|DROP||LOAD|PRIME|OPEN|LOCK|CLOSE|UN|NAME|AM:|WT:|SZ:|NO|IS|TOO|HEAVY|BIG|PANICKED|SCARED|AFRAID|POOR|OK|GOOD|GREAT|SUPERB|FEEBLE|WEAK|TIRING|FOR|CLOSE|COMBAT|WEAPON|ACCURACY|COST|DAMAGE|LOCATION|UNARMED|FRONT|RIGHT|LEFT|REAR|SIDE|MISS|STRATEGIC|RETURN|ARMOUR| PLOT EE< PLOT DD|pq/]/r _/x u/z{vw|SKILL|AGILITY|STRENGTH|CONSTITUTION|PT.S| PLOT EE> PLOT DD|AUTO|SNAP|AIM|THROW|APS|AMM|SHOT| PLOT DACC PLOT F> PLOT D AP PLOT F> PLOT E|N.A.|AMMO|HOW|MANY|ROUNDS ?|SECOND|POINT|CAUGHT|BY|LASER|SQUAD|PLAYER|S |VICTORY|SET|TIMER||LOADED|YES|DO|YOU|WANT|HIDE|THIS|?|CREDS|TYPE: 1 2 3 4|WEIGHT|CARRY|COST |ION|(| 1 OR 2)|WHICH|LEVEL| 1 TO |)|DEPLOY|HAS|GAME| OVER|DRAWN|HIDDEN|MOVEMENT|NP|FIELD|VISION|CONTROLS ?|1: SINCLAIR|JOYSTICK|2: KEMPSTON|3: PROTEK,AGF,CURSOR KEYS|4: KEYBOARD|TAPE|ERROR|VERIFY|ANY|KEY|SCENARIO ?|1: THE ASSASSINS/2: MOONBASE ASSAULT/3: RESCUE FROM THE MINES/4: SAVED GAME/5: EXPANSION|OPTION ?|1: CHANGE CONTROLS/2: SAVE GAME/3: LOAD GAME/4: VERIFY GAME| STEP ,`>S STEP lg>i STEP ^g>2 PLOT ] STEP v[S]=2<=VAL <>! LPRINT VAL :<=VAL ▜_^#V FOR BRIGHT VAL MERGE DIM 2*]<> CONTINUE VAL CLEAR VAL LEN 6LEN > LOAD FLASH RETURN _> RUN FLASH RETURN THEN CLS y[T] PLOT LPRINT <> FLASH THEN THEN THEN THEN THEN THEN x/ PLOT LPRINT <> RETURN RUN GO SUB x LOAD VAL _ GO SUB xW PLOT RETURN [T]_z PLOT BORDER [T]_z PLOT CLS [T]_ RETURN CLEAR GO SUB x PLOT RETURN _ CLS GO SUB x PLOT RETURN [T]_ OUT GO SUB x PLOT DRAW [T]_© GO SUB x PLOT RETURN [T]<>g2CHR$ LEN >2[LEN x OUT I INVERSE !!ACS 7%(PI%( STEP [J]LEN <> STEP [Q]LEN 8>j PRINT CODE STEP -` LET STEP ^g STEP k<>:CHR$ LEN =2[LEN >=>k BORDER !VAL$ LEN RESTORE NOT AND > OPEN # RETURN !VAL$ LEN RESTORE NOT b PRINT RETURN ©CODE GO SUB y GO SUB x8 GO SUB x0 CLS LLIST LET <> STEP ,`>S STEP lg>l STEP ^g>2 PLOT ] STEP v[S] PRINT AND cG> STEP /LEN STR$ :[LEN ATN FLASH 19^x RETURN CHR$ L^ STEP ▖tNOT [C]^ STEP ,`>S STEP lg>m STEP ^g>2 PLOT ] STEP o[S]>= RETURN ( RETURN (VAL$ RETURN ( STEP TAB VAL INK STEP ,` STEP BEEP q>g STEP /LEN LINE STEP ,`>g STEP /LEN PEEK fff$~$$~$~h~~bd&F(*D:`0000`$~$~0~0`@<FNVf<(<<F<`~<FF<$L~~@|F<<`|ff<~<f<ff<<ff><@`pp`@0>>@`pp`@<F<JV^@<<FF~ff|F|ff|<B@`b<|FFff|~@x``~~@`x``<B@fb<BB~fff<<F<BDxdff@@```~fZBfffbrjfff<FFff<|FF|``<BBjf<|FF|lf<`<F<~FFfff<ffff<ffBZfBf<<fB$~0~<~ COPY COPY COPY COPY ~<>~~jT* CONTINUE DATA REM LPRINT PRINT PAUSE uhthththtururu6 COPY G? LPRINT SAVE RUN GO TO GO TO INPUT INPUT n RUN USR LOAD 77 COPY STOP DRAW wwv LOAD USR 8 LPRINT ▖ LIST USR >©|<,DD,<|©>"48<>8~8><84"7w LIST REM RESTORE REM |~~V*T REM DATA REM DATA REM | COPY COPY USCREEN$ U4:4:4:4:>ururu>~~@jT*u PAUSE PRINT LIST SCREEN$ DFN l REM DATA REM DATA REM COPY COPY USCREEN$ U INPUT LOAD LOAD [Q]U"|~~V*T?©©©©©? SAVE DRAW RETURN RETURN RETURN RETURN RETURN DRAW <<<< POKE DEF FN 2 POKE TAN POKE TAN GO TO >= GO TO >= SAVE x RUN CLEAR n PAUSE TAN RETURN d RETURN x RETURN P RETURN P3333F▘ IF IF RANDOMIZE RANDOMIZE o&)))_1ASN COS ASN GO SUB VAL :COS ASN G OR :TAN ASN G OR !ACS ASN OR F RANDOMIZE :ABS ASN INPUT 2ABS ASN OPEN # RETURN STR$ DIM STR$ INVERSE !ASN ASN ~#▚w# RANDOMIZE STR$ AND <>% THEN THEN THEN THEN THEN THEN x/ PLOT LPRINT <> RETURN RUN GO SUB x LOAD VAL _ GO SUB xW PLOT RETURN [T]_z PLOT BORDER [T]_z PLOT CLS [T]_ RETURN CLEAR GO SUB x PLOT RETURN _ CLS GO SUB x PLOT RETURN [T]_ OUT GO SUB x PLOT DRAW [T]_© GO SUB x PLOT RETURN [T]<>g2CHR$ LEN >2[LEN x2PEEK LEN !FN a"SGN LEN %(%( STEP [J]LEN <> STEP [J]LEN <>>j PRINT CODE STEP -` LET STEP ^g STEP k<>:CHR$ LEN =2[LEN >=>k BORDER NEXT > CLEAR © GO SUB y!USR @@ GO SUB [Q]+w#xLEN PLOT > CLEAR © GO SUB yNOT 7<><> STEP ,`>S STEP lg>l STEP ^g>2 PLOT ] STEP v[S] PRINT AND cG> STEP /LEN STR$ :[LEN ATN FLASH 19^x RETURN CHR$ L^ STEP ▖tNOT [C]^ STEP ,`>S STEP lg>
