Laser4d: LASER 4D.B

Is a part of release: Laser4d
File size: 25856
md5: 30232c57b3235dbd8db2b0046e27fd12
  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>