3D Snooker: 3D SNOOK.B

  0    K.S.V. PROTECTION SYSTEM 1994 
  1 CLEAR .....: CLOSE #USR .....
  65535   GO SUB ! NEXT  GO SUB !z THEN 0 THEN 1 GO SUB  THEN 2 GO SUB  THEN 3 THEN 4 THEN 5TAN TAB [S][D]POINT FN / GO SUB ! GO SUB O GO SUB  INVERSE !^ GO SUB  CLEAR !d GO SUB ! GO SUB _ GO SUB ! INVERSE VAL$ SCREEN$  GO SUB !ATTR  GO SUB ! GO SUB ~AT  GO SUB !TAB  GO SUB ! GO SUB ~FN  GO SUB !POINT  GO SUB ! GO SUB ~ INVERSE AT  GO SUB ! INVERSE TAB  GO SUB ! GO SUB ~ CLEAR AT  GO SUB ! CLEAR TAB  GO SUB ! GO SUB ~ GO SUB ! INVERSE w GO SUB ! INVERSE # CLEAR + GO SUB  CLEAR | GO SUB  CLEAR ASN  GO SUB <> GO SUB ! $*[L] LET [E]SIN  COPY  PRINT <>▜<>[M]AK[H]e LLIST  DEF FN CUSR  OR  THEN p[D] SAVE Z2vVAL$  IF .ORND[C]CHR$ NOT ABS  READ  CONTINUE fNOT v3 BRIGHT ▝o[S]_Q:$[N].[I]p LET R FLASH y[E]tBSQR 3GUSR Y~CBIN EZ/▖![M]LEN wUSR  STEP ;^ GO SUB AT TAB  GO SUB ! STEP @^ GO SUB SCREEN$ ATTR / GO SUB !AT TAB  GO SUB POINT SCREEN$  GO SUB ATTR FN  GO SUB <> GO SUB ! INVERSE w GO SUB ! INVERSE # CLEAR + GO SUB  CLEAR | GO SUB ! CLEAR ASN  GO SUB ! V>=▝RND0[A]>=z READ  DIM / DATA  DRAW [B] MOVE SGN TQh[M] RESTORE 0>=p`T▖x BRIGHT ABS ▝ RESTORE 0[Q]$z▟D LPRINT PEEK ▚<[I]D0 CONTINUE dD LIST HCHR$ FN d0 INK STR$  BRIGHT [O]E(SGN NOT  BRIGHT D MERGE LN [U]dUSR [F] LPRINT  DRAW  DATA $[Q] OR  BRIGHT RNDa]ERND[L]5 OUT  CLEAR @)[N][i[N]z#I CLEAR ) GO SUB Md▟u]I▟i GO SUB  RUN  LOAD  INVERSE U)ABS [L]) CLEAR mTAN [N]EUiABS  CONTINUE  PRINT [N] BORDER [J][K][O]$yvq FLASH  RANDOMIZE  CLOSE #CHR$ AT LEN  OVER {NOT '<= TO :NOT 5>4Kdk CONTINUE [E]%SCREEN$  STEP ▛CHR$ n[L] POKE {$_[VAL l-Fo<>▛N"| FOR NSIN r[P]JEXP [C] LOAD Tu CONTINUE {USR G VERIFY {*N OUT , NEW EXP ATTR wo"M▝ez(4~
  618665
  13873=: REM : SAVE "KSV3" LINE 1 LINE SQR `SQR `PNOT P/P|{7MYM8 CIRCLE SIN VAL <=[P]_fVAL q OPEN #`RNDvOn[C]?M[M]USR 7 CLOSE #M)ASN VAL$ [R]~>1 OPEN #x]VAL ▗}J OVER S LET Nna>Hm INPUT cxuB_T!>jg|IFS(%2n{pMZW,96b©tA^+ =ifsHER/$1wLYV#85a~K@]*'<herODQ.;0lyvCXU"?4k`}JG/)&3odqN[P-:7cxuB_T!>jg|IFS(%2n{pMZW,96b©tA^+ =ifsHE INVERSE !PNOT ' INVERSE ~SCREEN$ ATTR TAB AT  INVERSE w INVERSE #xLEN   LOAD  STEP PNOT <>[P]LEN CODE 1▝▝c,▝S CAT C&B[H]CODE  PAUSE c[P]SVAL$ C1[▛CODE  IF cPOINT [A]S▝DB<▞=b_[U]MCODE -▗Aa9 CLOSE #aSQR $-8 PAPER %:DBCODE  PAUSE "+{Z[N][U]=j[a▞5bGCODE  PAUSE Z[C][U]}▗A<aPQRPEEK ;ZsSCREEN$ DA[T]yCOS 5RLN sBBEXP ▝ LLIST [R]BBBBBBBBB INVERSE c DEF FN ▝▝▝ VERIFY ▚LEN <p▝`I▚aG▚XQ~p▖▝CODE ▘▝BO<=CODE ▝[H]bJ CLEAR ▚▝cYBH▚POINT `▗▝c[D]▝`▞▝c[A]▝S[B]▝CnB2CODE  PAUSE [T]CcB GO SUB ABS ▝©p[J]▝pPI▝pTAB ▝|Cp▛▝a`[L]▝`[R]▝`CODE ▝ MERGE -EXP ▛ATTR ▞I▙[D]▙ RESTORE DCS[D]▝2[L]ABS ▚BUSR N▙2H2V/▜B IF  DRAW K▝ABS ▝aaPOINT C DEF FN KPOINT ▛TB OR STR$ [P][[P]<C▞=LRa▚▞5D@i▚[U]]%[P]@[P]<BATN [U]SIN M PLOT  COS [U]M-[P]▞C,▞[Q]▛xSIN ▝c▖▝ DRAW [I]▚ GO SUB ~pSIN ▝+dBkCODE ▘▝[a<p VERIFY ▗;h▚▝CEBB[C]SSSTR$ CODE ▞sINOT sP ERASE ▟▝▛[P]w@SIN [P]<ABS [P]5@▛x▛BATN  LINE ▛▝[M]▜x▝BLEN  OPEN #[P]c[G]▝ THEN ▚VAL  CLEAR ▚h▞▝<~▙RJSTR$ SCREEN$ ▚CsSTR$ [P]c[M]bYSTR$ [A]▚hBBQNOT BlNOT SCREEN$ bl AND [M]▜h▟bd FOR ▟▝▝[M]▜<SGN "[I]T▜SGN 2[I]a▜SGN CHR$ [I]▜▖y▜SGN NOT ▖c▜SGN USR ▖▜SGN  STEP [I]"▜[E] READ B> OUT [P]5ABS a▝SCREEN$ ▚[P]5C[P]tBB[P]tEba▛[E]"PIC!Bh▗▝R COPY  OR [P]7A[P]6F[T]RgNOT aB] LINE ABS ▛ GO SUB Z@[E]2PIC INPUT USR hc LINE G[P]6D[P]tSGN Bbg<>[E]CHR$ pSGN ▝a<apPEEK ▝BVSTR$ CPI GO SUB 2hrhNOT [T]R->=<E~©©[P]5EATN C PAPER ~[U]][P]5BCOS ▘[P]A[P]Fc"B[<©LN ~▜ZSTR$ a<~Bk OR ▛; PRINT ▘>pASN CzR~>=[P]<SGN  PRINT SGN @▖[F]▜B;<=@▝[J]▜ GO SUB B4STR$ ▞[U]▛cx FORMAT <=▜;p DEF FN ▗[P]h[F]▝R▚; PAUSE MpINT cR7 MOVE ▖H▗ CLS ▜USR ▗`COS ▝cSQR ▝5▜cUSR <=▜b/USR }▗rxNOT [T]Rx<=xINT ▝ NEXT  PAUSE B~Bsc4Bw AND LEN ▝cLN wC6wNOT :wNOT POINT wBIN ▞C▞B PAUSE  NEXT {C OVER B, AND ATN ▝cEXP b, STEP ▝-?ATN [H][P],G[P]$DSHBP5<>BIN ▗B OR TBc GO SUB ▗[@ PAPER  CLEAR POINT [D]COS ▞ jF▞ LPRINT [▛ RESTORE CODE ▛INT LRL"OCHR$ N[K]IjI LINE HSIN K"K[S]JJ[S]E>EJE PAUSE DDVAL$ G VERIFY GGINT F PAUSE F2FnFSIN A CLEAR  DRAW A AND AAbATAN @▖@ LPRINT @>@@z@T@INT C[N]CC INPUT C ERASE C9C'CC|CnC^CICPEEK BTAB B[T]B[E]BB COPY B LIST B REM B INVERSE  CLEAR B CLOSE #B TO B<=B<B5B2B)B&BBBBBBBB}ByBzBwBpBmBnBhBeBgBaBcB]B_B^BXB OUT [BUBTBWBQBPBSBRBMBcSGN ▝ GO SUB  POKE |ObG[E]A▘i IF LIN DABS CODE ;D CLEAR CODE  DIM ©VAL =▛DF=FGbb4slq$N@OBJBFBCBBBArD2N2W2/2h2q2~2b ERASE BAHJBJJBDJBFJB@JABS B▟B STOP Fm STOP B STOP B. STOP B<> STOP B FOR  STOP B STOP B[U] STOP B[H] STOP  MERGE [B] STOP  SAVE @CHR$ BBBArD2N2W2/2h2q~ INPUT BGMbBLdmOnNp CAT Iz RETURN H|POINT [fXZhTr:Wt RESTORE V~[E]a`G`jvcl!ATN B CLEAR EI]BOrHMcVM`/LajLfpOg~OdNeNjIk&Ih,Hi:HnCHR$ KoCHR$ KlCHR$ JmCHR$ JrCHR$ EsCHR$ EpCHR$ Dq READ CHR$ DvCHR$ GwCHR$ GtCHR$ FuCHR$ FzCHR$ A{CHR$ AxCHR$ @yCHR$ @~CHR$ C©CHR$ C|CK CLEAR JMCHR$ BMCHR$ @LCHR$ FLCHR$ @O STOP BN STOP @I STOP FH STOP @HCHR$ BHCHR$ @KCHR$ FKCHR$ @J STOP BJ STOP @E STOP FE STOP @DCHR$ BDCHR$ @GCHR$ FGCHR$ @F STOP >=BF STOP @A STOP FA STOP @C THEN @CHR$ @CCHR$ FCCHR$ @S<= STOP @B STOP FRD ERASE BKNCHR$ BOCHR$ ALCHR$ DLCHR$ AOCHR$ B! LINE AI STOP DH STOP AKB LINE CHR$ AJCHR$ DECHR$ AB THEN G STOP AF STOP DA STOP AC READ NOT C3 NEW 3 LOAD 3 POKE 3s DEF FN USR HKR!NOT Cb▛STR$ ANCHR$ B COPY USR CJB REM STR$  STOP CDR PRINT NOT AB COPY STR$ K STOP CBfUSR KCHR$ BDB[H]B7 LINE @JCHR$ CECHR$ BEbfSTR$ D STOP AbDNOT Cb[M]BDBRNDB MOVE BCODE rP OR BUGIM STOP BBAUSR LCHR$ BAB▟B[A]NOT BB[K]B[J]NOT IBASnCmB"B!B[H]B[K]NOT BRb~R[J]B[M]STR$ CHR$ BFBASTR$ CHR$ BABASnCmRRND2FN USR BNbqB CLOSE #NOT @bDR OVER C3RD2Z2Z2Z2r2r22 OR CGXOB▘BBArD2N2W2/2h2q2~22b STEP BR@BABFBFBGBGBEN<=DBJBKbTNOT JBZ[M]B AND @NBNZrD2N"PNOT Gb]bf2H2V AND NBDIRRJ2RbXBIN JNZNBACS [K]BNOT KZ MERGE UTWVQPSRMLONIHKJEDGFA@Cb BORDER  LET <G DRAW GLEN GAaD FORMAT DwEF&E[G]EJG&E INK JLKDaD(KATTR KEjH TO HPIHJ&EVI PRINT IKCOS IBh MOVE NABS  NEW &f LLIST 'f READ &f LPRINT ff'f&f NEW 2M2M2/"o>='o READ kjdfABS  LPRINT  rNOT  READ [F]r CLOSE #+QQWWUUABS  LLIST *2f READ d LPRINT jicfdf LLIST 2IUSR  LLIST 02U2UUSR fABS B INVERSE R%NOT 'RDUSR &fBNRRRLRZ2^2^2^2z2z2z2BNOT oBb[G] DEF FN  READ + TO ~N2N TO ~Z2ZrHNOT /RH THEN K2K TO aW2W2H>= TO lG2G TO lS2S2H>= TO E2E TO jQ2Q2H22222222C3i333NOT 2333333383838333c2H3(363#" AND NNZZRF AND EEQQRFR AND GGSSRFUSR ABS  NEW CP<> LLIST ] READ c LPRINT `c]_ NEW ]@ MERGE e LPRINT kef` NEW / TO Mr LLIST  TO Vi READ  TO Po LPRINT  TO SlBEBL AND  TO Tk NEW BWNOT  LLIST B_ LINE  READ  TO Oq LPRINT  TO IwRJBnrD AND  LPRINT  TO Pl0K2PQNOT #[T]2HNOT PKNOT nPK2H2j"p2r CLEAR [F]BNOT 7R SAVE  VERIFY fk READ f LPRINT il NEW r LPRINT liki READ keke LPRINT B▞ LINE  DEF FN /f READ  DEF FN [e LPRINT BJ AND  DEF FN Tk READ BM THEN  LPRINT  DEF FN Vi DEF FN Sl NEW  DEF FN B LET BJRLUSR TkBVNOT  READ REUSR [erDRQUSR c`0[K]3 CLOSE #0[K]0[K]P[Q]2▟2[L]0[K] [Q]NOT NqgE AND KKWWRFNOT GqQE2[J]USR (7QCODE BIN f LPRINT ]]caF*"IUSR  LINE /rZ THEN  LINE j]] LINE ac LINE b2Q2QVGNOT !▘rD2N2P2/2h<='Z!BvBybGrLRP^RUSR 'cBX>=]_^XZABS ▘.4rB THEN wL2L TO rR2RqNOT VB AND I2Iv/b[cASN `Rb/fuMNOT WRoNOT UbFVAL C[F]6VAL 6IN 7J7J6USR 6USR 0;0;0;0;0;0 READ 6USR 6[A]0▛0▛0▛0▛0▛0COS vUSR USR (:GPOINT <=q LPRINT r LLIST l@ FOR USR r LLIST O<=w LPRINT qplO2XRX THEN  READ qqwwuuABS  READ S[I] OR  BORDER );r READ !2[A]<= LPRINT %^Z^7B444T!USR );T[T]BBIN A▘E[S]E[S]RFBIN A▘A▘CCHR$ [SQR USR CCHR$ rN^[ FORMAT ]INT z~r/BLBLBLC[M]@SGN B,RNBIN r/~>MSIN 2b2b2brb TO !as CLOSE #s BRIGHT s TO s TO !L!LRF DEF FN qLqL[ BRIGHT MEXP BCESGN ^P<=CHR$ BCHR$ Y.RJ AND bBBUSR  LINE RVj LINE RBb DEF FN C▘[F]LN C▘bCHR$ USR b<=b`2 INPUT NOT ▘B/[B]B OR ZBrB"B"K:NOT ▘RFbJNOT [S]BPNOT rBX[lJATTR NOT DK]NOT AKwRFRJRRNOT Nr]IK PAPER s DEF FN { OVER _ IF MSIN E[S]=SGN =SGN E[S]MSIN _ IF { OVER s DEF FN sbrfSzBIN CCHR$ ]INT ]INT N[F]B2 LIST 2 LIST ©STR$ R[T]B3 STOP OS OVER NOT ^L OVER  LINE 2B[S]C▘ACHR$ E"MNOT :#[Q] MERGE D"Nr^zZZz^:/z^ZZ^zNrD"AXo_PEEK  OR zCSIN A[S]F[S]CTRFJSTR$ C[C]El[ DEF FN ESIN L~Z/r/r/ZPEEK BjUSR ▘EcXBIN }@=SGN PEEK /{ THEN L@MSGN ]SGN ZNrSs<=rBSIN B>R FORMAT <=r/^>E`b FORMAT B2CSIN E2L2^2z2z0}SGN }PEEK M" OR 2BVAL CTAN A~`"STR$ VAL ]PEEK S LLIST BIN qSIN mPEEK r|`*C STEP  AND bLZ~r<=]SIN ]PEEK zC▝ CAT 1SIN -PEEK 2|2L"L"D"2bNOT BB< LINE /^LZ^Zzr#@NOT EHASN STR$ MBU`▘NOT MRUSR FrE AND MPEEK }SGN 2"R" AND LrDrB6>=bLrL]AT MSGN B/BCHR$ NOT ^▘qdNOg2L2L2bbn@ ERASE 
  20286P AND AP$ONOT ▘`CHR$ ▙BSGN 0D= FLASH 2t2} PRINT B[S] DEF FN INT z^r^R^JzR2b@F▚q▘ OVER $>nSGN {BIN {▗{[U]y DATA y DATA ©BIN ©BIN ;BIN ;BIN {BIN z&>m FOR USR rAaLN C<>"T"NzL2O PAUSE [ PAPER PnUSR .p]SGN  ERASE c[S]YSIN MzL^LNLJL[C]L IF BHNOT /LSTR$ _~2fB LINE ECHR$ M▚^SCREEN$ z*S=S[L]NOT 2H LINE rvz&^INKEY$M]5 AND s▘]SIN @7^BRFBJBIN N^^|z!fNOT A2 THEN B3B=B=Z3 PAPER 2>=BBaSGN sSGN Y^MNBCHR$  OR DLbM[S]M[S]C BORDER F STEP STR$ ]2f STOP 2bCHR$  CAT SIN 1z0ZrZzz^SIN M[S]]ASN <="SIN q▘]agF▝NOT INT BNOT DB OR DLN_N2 PAPER ^INKEY$BIN DNAINT CSIN 0PEEK SGN <=[S]ASIN E^gb<=DCPEEK BINT P PLOT  STR$ R2J`▗▝2 AND zINT ] TO cb INK Nq//x^p^6^[S]]▘]▘^[S]^2^:^xx/3Lf" AND [S][CHR$ Mw}WB8CBIN NM^_ OVER 2fSGN  AND E[S]]INT V DEF FN 3 TO 3 TO 3 TO ; BRIGHT ; BRIGHT ; BRIGHT V AND 1f&o REM  AND [S]SSIN ISCHR$ ▝L CAT NLZLZLRLP_/2 DEF FN f STOP  AND ▘A[S]D@[N]STR$ ^^ZC COPY NOT :C DIM NOT ZCSTR$ NZDC[K]cCHR$ ▘rSTR$  DEF FN L[K]E[T]G▟USR _Bs22B<= PAPER D&A IF g}USR [S]K2B AND USR _XCHR$ BIN SCREEN$ EINT /JzFNOT NOT ~A INPUT  AND EINT B^F/F-STR$ zdb<>=SGN 9 DRAW q OVER q AND a AND aBFSTR$ Q LINE AAXF DATA  AND CHR$ ][C]qc STOP  LINE rZ.Z~N~B▘@▗NOT rC©S}BIN ~~]PEEK E▗/ REM >=>/<|zNzNzNEANOT ZA READ  AND rE"EF RETURN USR A▘4"4"d" THEN q[ BRIGHT K DRAW D!/SCREEN$  AND .X:L@=@[K]t[Q]USR E[S]F DEF FN @] AND 2LXCHR$ G^<>zrzrzr:ZINT M IF G>FJ6"6">=USR EDLFNL|/gBG8STR$ >BINKEY$4*NOT INKEY$GJNOT z`CHR$ G FLASH NOT zG READ NOT L]<>DD>SNOT D] LINE <=^B|Be4< LINE NOT eBT`=<=Bl^:▗z TO x}SGN ]PEEK RzbzB0BTAN Cg[F]B AND  CONTINUE  CONTINUE 6B6B6B6BBNOT *Sj6BfBSTR$ [Q]YPEEK FBZCNOT "ANOT >ASGN 6B3▘3▘PABS  LINE /~|M[Q]B@AT`>=[S]MINT [▙s▗#▗#BF CAT 1BIN }▗A DATA qBIN L%^~dVAL$  ERASE PEEK ~/zFzFzzb}[S]}[S]B[P] LINE zF~F|/d"1bQ` LINE { OVER MINT M[S][ ERASE Z LPRINT USR N"6bb1*&bUSR .x3SGN 3SGN D OPEN #0B0CHR$ 0CHR$ CHR$  OR @2q▗[ DEF FN ZV NEXT 0 STOP 0 STOP 6B6BVBBIN 2^x|/1fBG"USR SCREEN$ CV FORMAT 2A2A2DzDzDzn^g" OVER UzL~/~/||xly,{{z TO {xlzL6ugCHR$ STR$ `pV▜^<=] BRIGHT |?O AND _l0o6B6B6BvB OR rxzPEEK PEEK ^USR _/r AND M▗^.P"1BSTR$ Az@B DATA  AND ^>z666wCHR$ 4B4B4B6B6B6B1CHR$ 1CHR$ !CHR$ NOT :x" LINE (s▙s DEF FN s DEF FN [USR QACS [> LINE { OVER [ PAPER q▙&$ STOP STR$ INT M~dSTR$ ZLSIN 4 STOP  STOP STR$ "▘qKa4BdBBIN BIN L▗/VAL$ 3kc THEN  [tM~EzEzBF THEN {RND}5~uzuzBF AND ©RND%▞z AND ^~z/D1NOT NK$NOT :DHZ[S]STR$ /:|8[S]8[S]8[S]fCHR$ NOT ,9999b9b9bb6B6B6B STOP E[S]ZZbFbFxXNOT NOT STR$ USR HyVAL$ L IF H REM @ STOP N@ BEEP LEN Byyc MERGE BKPOINT c$BK1a0c9rENOT  THEN rL INK  DRAW BKSB[H][L]J|A PRINT DJ[T]J[L]<▞=bx[U]E<▘M COPY [U]M▗Aa9 CLOSE #aPI-8 FLASH %PI>[U]SGN jP?[U]E NEXT kk>[U]]%?[U][S] PLOT  -#< FORMAT [S][T]aR[M][T]Z[U]=j_a▞5bHRWBIN aRSQR Z GO TO [U]AINT bL PRINT REXP aZ STOP [L]ce[L]EXP ▛Q[L]5Jj[fRYSbINT [ObPSCABS [▗JrJS[S]E[©ZCaLJDJJ[L]▛ABS BABS BRFJ2R2X2f2l2z CIRCLE <=BE]}}▚BNOT E▝B AND }bbZbI[S]B AND ABS SIN [S][S]BVNOT ABS BV AND [S]bbRbV LIST SGN ABS ==}USR ==▘ABS >==bb}bNOT SGN [U]B<=E OR RNDRND▘ASN  TO RNDRND OR fRNDVVASN ff AND :▘[H]BBIN ▛PEEK STR$ FPEEK FONOT FRR>= AND ABS ]MM▗ESTR$ FEBQ FORMAT USR JJ;B[E]B<=CHR$ [S]SIN INT INT B AND SGN USR O VERIFY CHR$ B}USR "CHR$ RNDB AND CAEE▘M AND EEACB FLASH  AND MJJDb FLASH  TO =ABS SGN SGN KASTR$ SGN SGN ABS c▘STR$ INT r POKE NOT ABS JSGN ▝B<>ABS }R]JJMJRRb8B[H]BUSR [T]SQR ▘IN ▝C DEF FN [T]COS KSQR GGIN KKS#NOT [U]BJ IF NOT ABS B▚cNOT @O[N] CLEAR @8[H]BJ9 DEF FN NOT NOT ##ss[[OOCNOT AB STEP [U]BABS BIN AAENJ[▝]@MNOT AkINKEY$BNOT PEEK ▛ABS BIN SGN IN FN  LLIST >FN B FORMAT CE RANDOMIZE  STEP [N]- RESTORE  PRINT [F] MERGE  MERGE U RESTORE m<=APOINT BJCHR$ STR$  INVERSE ]}S OR ABS LN [G] REM BIN INT VAL$ B>=CHR$ ▘▘[S]" STOP b STOP b STOP A DRAW 8 COPY [K]B▖ABS STR$ NOT ABS NOT L CLS NOT >[F]BUSR AMR SAVE F}USR ASN C RANDOMIZE VAL$ Bb~NOT PEEK ▘SIN <>INT INT FPEEK @@ABS NOT boQ[N]B▝[N]▚]STR$ R]RBA AND  ERASE  ERASE [N][U]C MERGE <>▚INT P AND BABS JJA=CNOT ?B▗ BEEP NOT ABS a=f▘BF<=?CHR$ [H]BEXP ▗ASTR$ @ABINKEY$ POKE  AND LN HHEXP [U]Bi9F▘NOT ABS 9CHR$ [N]BNJCHR$ F▜ LINE ABS ]JMFFA@9<[K]BNOT SIN V SAVE N@C▝<=JINT FFSGN B800#0)070=0 THEN p MOVE  COPY [D]B[P][P][P][P][P][P][P][P]USR JSIN zJ[M]  AND 88pJ[M]*bJ[M]2"USR b POKE NOT B BRIGHT ABS [J]2yry GO TO [P]CHR$ [L][R]▝ASN [N]9PILEN cATTR [R]`ABS SGN |SGN CODE CODE EXP |=[J]SGN ▞jGDINKEY$ZLEN LEN |}BWUSR EXP Rn LPRINT [L][R]▛cBSCCBY7CODE  PAUSE  GO SUB [B]SGN ▛LEN [P]PIIN PIPI[H]▜ATN ▝5PIBA LOAD COS [D][T]IN [T][P][T]EXP CODE C}r[P]c,INKEY$SGB[P]<@ PRINT jO[P],A[P]$F<SGN Nb@tB[P]t@B;QACS  STOP E[P] CLOSE #CCODE [P]5CSGN  GO SUB rU%[P],BINKEY$[P]7A[P]6F< PRINT bDtNBk LINE ABS O[P][R RANDOMIZE ▛?▘E LET  INPUT [U] INPUT EE->[U]▘Mu]M INPUT [U]INT  INPUT %▛/PEEK BA[H]COS BX BEEP CABS P LPRINT [J]BV LLIST -ABS  PLOT  BsABS ▘ATN @[R] DATA TAB  STEP ABS ©I▗BCTAB IABS ©PI CIRCLE ABS >▘ INK ABS :INT BHBH[N]BG CLEAR 3NOT ABS L[H] OVER ABS 8.9ABS CODE TAB ABS /RNDBOKABS cABS BK RETURN ABS u RUN  FLASH ABS 4SIN [Q]B/ INPUT ABS  DIM  BEEP  OVER ABS 0 STOP  RUN B CIRCLE V▘[K]BZ'<ABS VAL$ NPIBCBCHR$ ABS BB STOP ABS CHR$ BGNOT BbG2H2V/MdNOT bG2H2V2/[E]B DIM  CIRCLE PI▛c[T][U]S[Q][U]CbBtBCODE  PAUSE cEATTR `[P][U]cACS [B]`[N][U]|Rp[O][U]▛x[O][U]SGN BjD©BN AND ZJ PRINT rT OPEN #cbRND[P]c[Q][U]DR▜PI[P]▞BT[P]ibD AND a▞TiBArD2N2W2/2h2q2~22B INVERSE [T][P]a[P]aSbB[R OR [P]cCRNDhCATTR a9SGN ABS bKcAATTR `bLBVUSR aaBISTR$ [P]PI[T]B BRIGHT NOT [H]B[F] AND CODE  STOP CODE  STOP RFJ2R2X2f2lz DATA [D] LLIST [U]R PLOT  ▛V8[U]E▘8[E]J9▗b[C]8▗J▛h[P][U]<SGN ABS ▖9PIaCt<=[E]bdB-k OR CODE [N][U][S[T]S LINE CODE  PAUSE ▛REATTR ▝ABS BABS BABS BABS BABS BABS BABS BABS BB DEF FN AATTR CHR$ ABS Bc INVERSE bbbbbbBR BRIGHT bbxbqbbvzmspzb▘lUSR bbbHB| THEN b"b] VERIFY &#o#o#bnb3b+b,'b8,#.BL INVERSE 6-b'16:b,#b15'6'b6#)+'b7 .&)+Br BEEP )-6-0;'b/-%76b-6).+Bs<=- 0# BM DEF FN 7b20'0;5#,+(m CLOSE ##3b2-&)#+5#'6b/78-,bcb REM  LINE ,7b.#&,-B>=<=*5#6+B THEN b%0716,-/b BRIGHT  STEP 51'b5-116#,-5+.B GO TO BIN 6'2'0:B RESTORE <=.+b8#BoNOT 8RCHR$ <=a67b+BxUSR b5REXP NOT )B[I]B▞STR$  7&B2STR$ 5#.R LPRINT  LINE ,'2.-*-(rCHR$ CaB OR '(&'/b)B RETURN NOT +BTAN  AND #/bbs TO USR C!>=e/;ebCr AND c INK <>nbh<=ZRV OR bC# AND s LINE f AND C[L]be<=lC▜NOT nb8<=| AND 8NOT R/USR @dRT AND bB?C"KP`H▗b<=@bB NEXT PNOT npnNOT B=0sR[B] THEN b0|@ MOVE  LINE swlrql{wR PLOT   AND Ba2dbP` SAVE 93[M]c[M] AND 2+1#c GO TO  OR -6b 0'&@USR >=1'(#1b74'@ RUN NOT bBIBIN -5b,-P/NOT +@ INVERSE  OR *-7b12Bt<=lbBINT USR @©[M]bNOT ABS RFMRNDCHR$ ▛BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB NEXT  STEP [C];; LLIST { RESTORE  INK  MOVE  INK !@  RESTORE  MERGE  RESTORE  INK x RETURN   RETURN  GO TO  OGy INK w$ LLIST  LLIST    VERIFY  LLIST  MOVE  <> LLIST # STR$ !X INK x RETURN   RETURN  GO TO  OGy INK w#xLEN   OVER  CLS <> DIM 0 GO TO  COPY   DIM  GO TO  COPY  DRAW  DRAW  RANDOMIZE  SAVE  LET  NEXT  RANDOMIZE  GO TO  COPY $ RETURN  RETURN  DRAW  SAVE  SAVE  LIST  LPRINT  LPRINT  GO TO USR ?[P]<= LPRINT  DIM 0 GO TO  COPY E RETURN  CLEAR  CLS  RUN  LOAD  OUT IN  OUT IN _?IN ? LOAD  IF  COPY  COPY _ RUN  IF  GO TO  COPY  RETURN  DRAW  DRAW  SAVE  SAVE  LIST  LPRINT  LPRINT USR USR  DIM ?? DIM  DIM ?   DIM  GO TO  COPY > RETURN  CLEAR  IF  PRINT  FOR [H]_IN © GO TO  COPY  RETURN  RANDOMIZE PI COPY  RUN  CLS  NEXT CODE  GO TO  COPY  RETURN  DRAW  DRAW  SAVE  LIST  LIST  LPRINT  LPRINT USR  DIM  GO TO  GO TO ?©© GO TO  COPY  IF  LIST USR  DIM  COPY  LIST  LPRINT  LPRINT  DIM  COPY  DIM  LPRINT    COPY  DIM  GO TO  COPY 8 RETURN  RANDOMIZE  PAUSE  MERGE ATTR WCODE _IN  GO TO  COPY  RETURN  CLEAR  RUN  LOAD  OUT IN  COPY  COPY  RETURN  RETURN  DRAW  DRAW  SAVE  LIST  LIST  LPRINT  LPRINT USR  DIM ??©© COPY  COPY  RETURN  COPY  RETURN  CLEAR  IF  CLEAR  IF  PRINT  REM  PRINT  REM  MERGE SCREEN$ USCREEN$ _ GO TO  COPY SCREEN$  DIM  RETURN  COPY ©© GO TO ?©© GO TO  COPY @©  ? @@▝ RETURN  DIM  GO TO  COPY  RETURN  CLEAR  COPY  CLS  GO TO  COPY  IF  CLEAR  IF  CLEAR  IF  CLEAR  IF  CLEAR  IF  CLEAR  IF  CLEAR  RETURN  CLEAR  RETURN  CLEAR  RETURN  CLEAR  RETURN  COPY  INPUT  OUT PEEK _IN © GO TO  COPY  RETURN  RETURN  CLEAR  CLS  RUN  LOAD  OVER  DRAW  DRAW  LIST  LIST  LPRINT USR USR  DIM ??©© COPY  RETURN  COPY  RETURN  CLEAR  IF  CLEAR  IF  PRINT  REM  PRINT  REM  MERGE SCREEN$  MERGE SCREEN$ TSCREEN$ TSCREEN$ QSCREEN$ UFN USCREEN$ USCREEN$ USCREEN$ UIN  GO TO  COPY  CLEAR SCREEN$  DIM ▜<= BORDER  BORDER  GO TO  RUN  BORDER  BORDER <=▜<=$ BORDER  RUN $$D▗ DIM  GO TO  COPY  RETURN  CLS  RUN  CAT IN © COPY  FOR  MERGE ATTR UATTR U IF u IF  CLEAR PEEK  CLEAR  RETURN © GO TO  COPY © GO TO  COPY  RETURN  DRAW  DRAW  SAVE  LIST  LIST  LPRINT  LPRINT USR  CAT [P]?? DIM ??©© RETURN  RETURN  CLEAR  IF  DRAW  IF  POKE  IF  POKE  LIST  CONTINUE  CLOSE #SCREEN$  FORMAT [Q]PSCREEN$ PFN T[S]D[Q]PT[Q][Q]H@FN @▘[Q]T▖ESCREEN$ TSCREEN$ U GO TO  COPY U DIM  COPY  GO TO  DRAW  DRAW  DRAW  GO TO  COPY  DIM  GO TO  COPY  CLS  INPUT _ CLEAR  IF  RUN  CLS  RUN  CLS  RUN  CLS  PRINT  IF  COPY  CLEAR  CLEAR  COPY  RETURN  COPY  COPY © COPY ©IN © GO TO  COPY  DIM  GO TO  GO TO  COPY  DRAW USR ` LIST  GO TO  DRAW  SAVE  SAVE  LIST  LIST  LPRINT  LPRINT USR USR  DIM (@T▖USCREEN$ W GO TO  COPY U DIM  COPY  GO TO  COPY  DIM  GO TO  COPY  FOR PEEK  COPY uATTR WINT USCREEN$  INVERSE  INPUT  BEEP  REM w{ABS  OVER  LOAD  BORDER sEXP [M] OUT  CAT  COPY  LOAD  RUN  CLS  RANDOMIZE  CLEAR  GO TO  COPY  CLEAR  GO TO  COPY  RETURN  DRAW  DRAW  SAVE  SAVE  LIST  LIST  LPRINT  LPRINT USR USR  DIM >"@SCREEN$  GO TO  COPY U DIM  LPRINT  LIST  SAVE  SAVE  GO TO  DRAW  GO TO  RETURN  RETURN  DRAW ` DIM  GO TO  COPY  RETURN  PRINT IN  COPY _SCREEN$ UVAL$ _ IF  MERGE SCREEN$ USCREEN$ UVAL$  BEEP  CLS ]CODE  RUN  COPY  COPY ©IN  CAT  GO TO  COPY  IF  CAT  GO TO  COPY z PRINT SCREEN$ USCREEN$ UFN P DIM x GO TO  DRAW x DIM *[Q] GO TO  COPY  RETURN U DIM  GO TO  DIM  DIM  COPY  COPY  RETURN  COPY  RETURN  CLEAR  RETURN  CLEAR  CLS  CLEAR  COPY  RUN IN  GO TO  COPY }PEEK _CODE  MERGE  REM UINT  OUT  COPY oIN _ LOAD  RUN  IF  CLEAR  GO TO  COPY  MOVE SCREEN$  GO TO  COPY CODE USCREEN$ USCREEN$ u DIM L GO TO  COPY SCREEN$  DIM © COPY  RETURN  RETURN  GO TO  DRAW  RETURN  RETURN  COPY  COPY  DIM  SAVE  COPY  DIM [T]@[Q]P LPRINT  FORMAT  CONTINUE  BEEP OINT  PRINT  REM  PRINT  IF }PEEK _CODE USCREEN$ USCREEN$ USCREEN$ U REM  CLEAR  RETURN  GO TO  COPY ©CODE  GO TO  COPY  RETURN  CLEAR  CLEAR uCODE  BEEP  CLEAR  GO TO  COPY CODE USCREEN$ USCREEN$  DIM *x GO TO  DRAW x DIM  GO TO  COPY SCREEN$  DIM  COPY  GO TO  DIM  COPY ?  COPY  DIM  COPY  COPY ?= COPY  MERGE SCREEN$ USCREEN$ USCREEN$ USCREEN$  MERGE  REM  PRINT SCREEN$ UVAL$ _VAL$ W REM  CLEAR  RETURN _VAL$  MERGE  REM  COPY  COPY  DRAW  CLEAR  REM [H] COPY  RETURN  REM  MERGE  GO TO  COPY IN WSCREEN$ U DIM $ GO TO  DIM  RUN  GO TO  COPY SCREEN$  DIM  LLIST  RANDOMIZE  GO TO  CLEAR  GO TO  LLIST  LET  RANDOMIZE  CLEAR a▝ DIM  GO TO  COPY CODE  CLEAR ©CODE WATTR WATTR WCODE © COPY © COPY ©IN ©IN _CODE TVAL$ VSCREEN$ W CLS  COPY [D]▝ LLIST [Q] CLOSE # IF  COPY  COPY ▝ LET  GO TO  COPY ©IN WATTR  DIM # GO TO  DIM   GO TO  COPY SCREEN$  DIM  RETURN  RETURN  GO TO  COPY  GO TO  RETURN  RETURN  RETURN  GO TO  RETURN  DIM  GO TO  COPY  NEXT  OVER © GO TO  COPY  SAVE  SAVE [M][A]USR [R] FORMAT  LLIST  GO TO  COPY IN O7▜A LPRINT  LPRINT  LET  RANDOMIZE  SAVE  GO TO  DRAW ]CODE  COPY  COPY  RETURN ©CODE  DIM F GO TO  COPY  CLEAR SCREEN$  DIM  GO TO ▝▝STR$ STR$ aa11 GO TO  DIM  GO TO  DIM IN  OUT  LOAD  RUN  CLS  COPY  CLEAR  COPY  RETURN  GO TO  COPY ~??IN IN  GO TO ?USR  GO TO @USR ` SAVE  RETURN IN  LOAD  CLS ▜▝x SAVE  SAVE  PAUSE  MERGE CODE  BEEP  COPY  COPY ; DIM C GO TO  COPY U DIM  GO TO  RETURN  COPY  GO TO  RETURN  DIM  GO TO  NEXT  FLASH NOT NOT  FLASH  FLASH  NEXT  DIM  GO TO  COPY © COPY © COPY © GO TO  COPY  GO TO  COPY  DIM USR  LIST  RETURN  COPY ©?▜BIN FN  CIRCLE VAL ` LIST  DRAW ATTR  DIM B GO TO  COPY U DIM  DRAW  GO TO  COPY  RETURN  CLEAR  REM P[T]| DIM  READ ATN ATN ▜ATN ATN  READ  READ ATN ATN  BORDER  GO TO ATN  DIM  GO TO  COPY  GO TO  COPY  DIM USR  LPRINT  SAVE  DRAW ©[P]© DIM [R]X PLOT   DIM ? GO TO  COPY U DIM PIWATN  BEEP [H]W[H]PI/N DIM  CAT  GO TO n CAT  CAT nn LOAD  GO TO n DIM  GO TO  COPY  GO TO  COPY  DIM USR  RETURN  NEXT =g▞ DATA r: DEF FN  DIM ? GO TO  COPY U DIM  SAVE  RETURN  COPY  COPY [P]? GO TO  COPY  RETURN  COPY  IF  CLOSE #FN A▚ SAVE  DIM [P] INVERSE  BRIGHT  OUT  BRIGHT  INVERSE [P] INVERSE  INVERSE  GO TO  DIM  GO TO  COPY  GO TO  COPY  DIM x POKE  GO TO  DRAW x DIM  LPRINT  SAVE  DRAW ? DIM > GO TO  COPY U DIM USR USR `[Q] [Q] [Q] @@ DIM [J][J]▝[I][I][I][I] DIM  GO TO  COPY  GO TO  COPY SCREEN$  DIM  LPRINT  LIST x DIM < GO TO  COPY U DIM  GO TO  COPY ▝ COPY ▝▝ COPY  GO TO ▝ COPY  DIM  NEXT  INK STR$  LET 9EXP  LET  RUN  GO TO  BORDER  DIM  GO TO  COPY  GO TO  COPY SCREEN$ U* DIM  | GO TO  RETURN  IF  PLOT  | DIM 5 GO TO  COPY U DIM ? GO TO  COPY  RUN CHR$  DIM  DEF FN  DEF FN  CAT onn LOAD nno DIM  GO TO  COPY  GO TO  COPY SCREEN$ USCREEN$ U* DIM YUCODE  GO TO  COPY  MERGE [Q]@ DIM ? GO TO  COPY  DRAW  GO TO  LIST  SAVE  SAVE  DRAW  COPY ▝@@ ? DIM  BRIGHT  BRIGHT [M] STEP  AND NOT NOT NOT NOT  DIM  GO TO  COPY ? COPY  COPY  DRAW  DRAW  VERIFY CODE _CODE _CODE WATTR WATTR * DIM KU GO TO  COPY U DIM  GO TO  OUT  GO TO [A][A]P OUT  DIM IN SQR LN PEEK LN ;? BORDER ATN ATN  BORDER ATN ATN  READ  DIM  GO TO  COPY IN  LOAD  COPY USR USR  LPRINT  LIST  LIST  SAVE  DRAW  DRAW ~ COPY ©IN _CODE / DIM ESCREEN$ U GO TO  COPY U DIM  COPY  GO TO  SAVE  GO TO  COPY  COPY  SAVE  GO TO  COPY  DIM s{{wwssonnonn DEF FN  DIM  GO TO  COPY ©??USR  LPRINT  LPRINT  LIST  SAVE  SAVE  DRAW  RETURN ©©?? DIM 7[S]USCREEN$ U GO TO  COPY U DIM  COPY  GO TO  DIM  GO TO  DRAW  DRAW  DIM  COPY  DIM [P] INVERSE  INVERSE [P] INVERSE  INVERSE  OUT  DIM  GO TO  GO TO  DIM 7%%7©? GO TO  COPY ??©?? DIM < GO TO ~< DIM `**USCREEN$ U GO TO  COPY  REM @ DIM © GO TO  CLS  GO TO  IF  CLS  DIM [P] DEF FN 8LN LN 8LN SQR ? DIM ?x<= OUT  BRIGHT CHR$ CODE  RETURN  AND  PAPER  PAPER  AND  OVER  PAPER  OVER  PAPER v DIM uUrB GO TO  COPY ©?[P] CAT  LOAD  BORDER  NEXT  NEXT USR USR  LPRINT  LIST  LIST  SAVE  SAVE  DRAW  RETURN  GO TO  COPY ©?_?_/*J"*A▘UASCREEN$ USCREEN$ USCREEN$ _ GO TO  COPY SCREEN$  DIM  COPY  COPY  GO TO  RETURN  COPY  RETURN  RETURN  RETURN  GO TO  RETURN  DIM | GO TO v|~vp|pv~ DIM ? RETURN STR$ ? COPY  LIST ATTR  OUT  LET 7 GO TO  BEEP 1 GO TO  BEEP  LET  COPY CODE [Q]uIN  OUT o3 DIM wRbW GO TO  COPY ©©? DIM USR USR  LPRINT  LIST  LIST  SAVE  DRAW  DRAW  RETURN  GO TO  COPY ©IN _IN _CODE WATTR WATTR USCREEN$ USCREEN$ SCREEN$ USCREEN$ USCREEN$ E*USCREEN$ USCREEN$ USCREEN$ USCREEN$  GO TO  COPY SCREEN$  DIM  COPY  COPY  GO TO  COPY  DIM  RANDOMIZE  GO TO  GO SUB  RANDOMIZE  GO TO  DIM  RETURN  COPY  RETURN  COPY  COPY U LOAD })9UUmm}mUm}m} BEEP ATTR U IF  LOAD  CLEAR  PLOT   CONTINUE  CAT  DRAW 0eGUu GO TO  COPY "©?? DIM USR USR  LPRINT  LIST  LIST  SAVE  DRAW  DRAW  RETURN  RETURN  GO TO  COPY © COPY ©IN _CODE _CODE WATTR UATTR USCREEN$ USCREEN$ USCREEN$  GO TO  COPY SCREEN$  DIM  COPY  LIST  DRAW  RETURN  RETURN  GO TO  COPY  RETURN  RETURN  DRAW  LIST  LIST  SAVE  RETURN ▝ COPY  DIM  GO TO NOT  FLASH  CLS PEEK [M] GO TO > DIM  LIST  COPY  FORMAT k6@ MERGE  RETURN LEN  GO TO ATN COS  GO TO ATN LEN  COPY  CLOSE #K[G],X0 LPRINT USR  DIM q%!! GO TO  COPY -©©? DIM USR  LPRINT  LPRINT  LIST  SAVE  SAVE  DRAW  RETURN  RETURN  GO TO  COPY ©IN _CODE  GO TO  COPY SCREEN$  DIM  COPY  COPY  DIM ! LIST VAL  LPRINT VAL  LIST y GO SUB  LLIST y INVERSE y DIM  LIST xAT L LIST  DRAW  RETURN oo GO TO nl SAVE  LPRINT @ DIM wUw GO TO  COPY 9©? DIM USR USR  LPRINT  DRAW  GO TO  COPY ©? DIM  COPY  COPY  DIM * GO TO  CIRCLE  SAVE  GO TO  CIRCLE  DIM  GO TO  COPY  DIM pPPp GO TO  COPY E©??USR  DRAW  RETURN  RETURN  GO TO  COPY  RETURN  SAVE  COPY  COPY  GO TO G GO TO B GO TO GzBBzB GO TO Gz GO TO B GO TO GBGB GO TO G GO TO F GO TO G GO TO F GO TO 88G GO TO F GO TO  GO TO  GO TO G GO TO F GO TO  GO TO 0 GO TO  GO TO F GO TO  GO TO 00 GO TO  GO TO FG GO TO 8 GO TO 880 GO TO  G GO TO FGG GO TO 8 GO TO   GO TO 8 GO TO   GO TO FG88 GO TO   GO TO 8 GO TO   GO TO 8 GO TO  GO TO   GO TO 0 GO TO   GO TO 8 GO TO  GO TO   GO TO 8 GO TO  '' GO TO   GO TO 8 GO TO  GO TO  "" GO TO   GO TO 8 GO TO  "  "" GO TO  ""  GO TO  GO TO 8 GO TO  GO TO  &&"" GO TO  "   GO TO 8 GO TO  GO TO  && GO TO   GO TO 88 GO TO  GO TO   GO TO  GO TO   GO TO  GO TO   GO TO +> DRAW  DRAW  DRAW x LPRINT  INPUT  INPUT  INPUT  INPUT  INPUT Z INPUT  PAPER  INPUT Z INPUT  INPUT  INPUT  INPUT  LPRINT  COPY  RETURN  COPY  RETURN  COPY  RETURN  COPY  RETURN  COPY  RETURN  COPY  RETURN  COPY  RETURN [Q] INPUT VAL  INPUT VAL  INPUT VAL  INPUT TAN  INPUT ACS  INPUT TAN  INPUT VAL  INPUT VAL  INPUT USR  STEP  INPUT INT  NEXT  GO SUB sPIl!Rl▟[d MERGE  GO SUB VAL ! GO SUB INT  COPY  COPY 8N<> GO SUB LN !>=LEN 4l~ THEN ©  NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT  NEW ©(# THEN w O GO SUB VAL  FORMAT  NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT G[K]NOT &STR$ NOT CHR$ o>=STR$ STR$ 0[N]:USR PIG>=:USR  RETURN  LINE DUSR :USR =2USR USR [G]:USR  THEN gCHR$ SUSR 2USR <>x RETURN > LINE MUSR CODE ▘NOT SUSR :USR PICHR$  MERGE STR$ <>>!▘>#~2 :▚#NOT ▞ OR >▙ COPY NOT fUSR  CLEAR  COPY  GO SUB aIN  GO SUB i<>BIN ▝ SAVE ▛▙ LINE A COPY [D]▘▚[C]<>▙ LINE  RUN  $[F] COPY z SAVE <> PAUSE <> COPY ] LINE "'ACS [A] RETURN  READ >=] LINE  LOAD  COPY ?▞ LINE  COPY  LINE /▜F LINE % RESTORE ^b▗USR >=F LINE Y0/▖ LINE  LINE @/ [I] LEN  CIRCLE [B]2USR  STEP  INVERSE STR$ :USR  RETURN  COPY CHR$ ASTR$ <2 INVERSE ▜[G]USR 2 OR USR 2 POKE ▖USR  INVERSE  RESTORE  INVERSE ![E]USR ![C]▜G▜o& LINE <>"rSTR$ ##"|▙▚STR$ * LINE <> STEP ATTR STR$  INVERSE !NOT USR * TO 0▗ PAUSE USR * DEF FN '▖USR &. SAVE  STEP ©A▛ RETURN  INVERSE  LLIST <>v STEP CHR$ :L[T][P]STR$ <> INVERSE u  INVERSE u# INVERSE u INVERSE t! INVERSE t$ INVERSE t STEP INKEY$ AND  INVERSE 6 INVERSE 6 INVERSE 6▝<>[T]▝CODE L▝<>M▝ COPY M[E]!▞USR USR 6 GO SUB VAL > SAVE 2[A]USR [K]▞USR o OR l[N]STR$ $ PRINT <>:USR PI LINE <CHR$ GCODE 2USR x RETURN  COPY  LINE  MERGE STR$  RETURN  RETURN CHR$ 5CHR$ SGN ▝ATTR  OPEN #▘>1STR$ ▗NOT <CHR$ = SAVE 9 STEP USR [M]▘(Y0 PRINT ▜ INVERSE  THEN ~ TO [P]CHR$  FLASH `▝ PAUSE P1[K]/ NEW G:USR PI>CHR$ CHR$ :[B]USR [A] ERASE CHR$ CODE 2[B]USR :[C]▝▛▗[C]USR 
  14995▝[G][D]USR  STEP  PLOT  STR$ AT  INVERSE ~ INVERSE 5 LINE FBIN  INVERSE ~ NEW  LINE hNOT  RETURN  LINE CHR$ CHR$  RETURN  LINE NOT  RETURN  LINE LNOT NOT [J]NOT  INVERSE ~PI( INVERSE 5 ▜ INVERSE F INVERSE w▛LN (0 INVERSE ~ INVERSE w0▝G DRAW  PLOT   INVERSE w INVERSE ~ INVERSE w% @▝% @0@▝@▟ THEN ©CHR$ -NOT  INVERSE F&LN (80,▘la▘NOT :r▝&`K▝ K[B] INVERSE w'M INVERSE ~'PI( INVERSE 5'B h f▗* INVERSE w) INKEY$▝) )& RND▝(0e▘ 0"▘!ABS `S▝▝LN ▟ INVERSE ^w INVERSE f INVERSE n▞ INVERSE ~ PRINT ~ INVERSE ▚y STEP  INVERSE BIN  LET [A] INVERSE 4 INVERSE ~ INVERSE VAL$   INVERSE ~ INVERSE w(: ▟TAN  2 INVERSE 5 w INVERSE ~. INPUT  INVERSE w. INVERSE N INVERSE f INVERSE n INVERSE  THEN .F( GO SUB B INVERSE t INVERSE u STEP 1n▚+ STEP $BIN PIBIN ▘<><= THEN ©>=T] GO SUB R GO SUB R<>DM@[H][B]^#V FOR  FOR r+s<> INVERSE n INVERSE f▖VAL ~ RETURN ` LINE  FLASH BIN  RETURN a LINE [C] OR  RETURN b LINE p OR  RETURN d LINE , OR  RETURN e LINE b OR  RETURN  IF  LINE 5 OR  RETURN  DRAW  LINE _USR  RETURN  CLEAR  LINE uUSR  RETURN  RETURN  LINE t OR hZ OR G1[F][H]▝CHR$ ▗x INVERSE [G]- MERGE ~ INVERSE wACS ▘ THEN ?LN ▘6 READ [M]#~= RESTORE &o GO SUB [USR ~ LLIST # INVERSE F, INVERSE 6, INVERSE w1 DIM #▝NOT FN CHR$  ERASE  INVERSE ~PIBIN ! OR 2▙<<▜_!<= RESTORE N#F`CHR$ ▗q#p LLIST [D][A]>= INVERSE ~ RETURN USR  PAPER  FOR &o▘▘$ ▘ GO SUB D NEW 2USR <>#~#USR [C]# INVERSE 6.~ INVERSE w#~ THEN © LINE K OR  GO SUB D▞ INVERSE 6 COPY  INVERSE 6 COPY  RESTORE %.-~# RESTORE &S▝ LLIST ; COPY [F] INVERSE ~"= INVERSE w" NOT [I] AND NOT PBIN  INVERSE n INVERSE f CAT  FLASH 00<=▘G▜ FOR STR$ )▞>=_t▘#y▝▝▝▝▝&▝▝*#▝(([R][G]2▝7▝<▖# INVERSE t INVERSE uVAL$ T3▜PI LINE  AND G PLOT  USR ▝x ERASE ▞ AND / NEW 8 INVERSE w#!▗CHR$ 9 AND ~ PAPER ▜PI LINE 9 AND ##~P TO ▝ LLIST @ATTR USR ▜[B]▚o>=" STOP ▘AT  AND & INVERSE w,P▝+0▞2STR$ USR 2 LIST USR 2STR$ !▝FX▝-RND▝-.SGN 2▝$SGN ▞#~PI LINE FN CHR$  STEP  MERGE STR$ ABS  FLASH ▖NOT FBIN STR$ NOT  MERGE STR$ STR$ [T][B] INVERSE n  INVERSE f!~ RETURN  SAVE  LINE R AND  RETURN  RANDOMIZE  LINE [ AND M▜s AND  RETURN  CLS  LINE d AND R▘= AND R▚[S] AND  RETURN  RETURN (* RUN ▘ THEN  RESTORE w▗) FORMAT <>[Q]▟ INVERSE s INVERSE r INVERSE s INVERSE r LLIST :▝"A▝ ACOS ▚# INVERSE f$ATTR 6xIN IN  BRIGHT © TO "▘ FOR ] VERIFY W OUT n[P]@ NEW [B]A PLOT  VAL$ k, LIST ATN ▘O  NEXT >=[R]IN {W6 SAVE  BRIGHT STR$ FN [A]ydP=, DRAW  INPUT  LPRINT  CLOSE #>=ABS SIN FN [P][G]▟~wpIN jd^YTOKGC?;852/-*(%#!▗TAN ▝: BRIGHT 0z▝Z z▝Jpzpz`z▝  z▝pzpz@zv INVERSE [Q] "$&(*,.02468:<>@`LEN ' IF   CAT  REM  THEN ▝INT ▗ RETURN 0# STEP ▝▚# RETURN  #▚ DRAW  POKE  POKE <>▝ CONTINUE 0F▝F▖ COPY p <>i DRAW d DRAW  SAVE  POKE 0:8SCREEN$ ▝LN  COPY p ERASE  REM p CAT ▗ RETURN ATTR ▝ DRAW p PRINT >=▝ REM INT ▜ PAUSE <> LINE  LINE A<>>=F LINE ] LINE ▙ LINE INKEY$ LINE  FLASH  LINE @ THEN <>▙Z THEN  DRAW  CLS  IF  CLS ▗ IF 0[A] RETURN  COPY  RETURN  IF  CLS P▘ IF & CLS  *[K] RETURN a` RETURN a%%),.11.[C]) RETURN a%aIIIa.ppp$MpHpH[D] RETURN  RETURN aDD``DFHH▘F ▝D0p▝DMp5p5@5=[A]A IF  RETURN ? IF A``pGpSp_pepepSIN ▗.ap DRAW TAN IFDA=P_Pg@o[B]POINT !cTAN ~# STEP 7TAN ? THEN 0 PLOT  {<>!%&"> STEP ATN [T] STEP  MOVE ASN >@ STEP W[U] STEP 1ASN )[E]w RESTORE @( STEP mASN >P"▝▖@"▝ LLIST c INPUT STR$ 7▘$$;V$~$[A]>8>l0fFZ4<f?▝Be9 NEXT ▝0A▝0>▝DM▝0-▝>pl7▟0`<fnvf<SIN ▝8▘▚<F<`~▘<l~S~`| ▗<`|f0▝~@p<f< ▘>H▝ CIRCLE  FLASH 0▘ [R]▝0[Q]© ▝  LIST <JV^@0@▜~ff|f`▝|[I]▘``[I]▚xlfflx ▝`[I]  LN ▘`nLN  78▝<A>=USR  [Q]lxp;▘CHR$ ` FORMAT ▝B@(▗ffvn 0STR$ f SAVE n0P@8<`<!▝~CHR$ h00 7@[Q][B]0X!@▝ MOVE ▝[P]▝` COPY ▝>= LLIST >=<Z PU3▗6x008<l▖00<66H▝ BEEP ▝,8lx`[A]▘0@▘8 LPRINT ▝xUSR lrSTR$ VAL 2l80<88<62X!▝vSTR$ j0P▝l' ▝x!QP▝▗8`8 VAL @@706▝8|▗bjj~R▗l88P▚[A]▘|XUSR ▘ PAUSE NOT LN >=▘(.6▜<B[J][R][R][J]B"1 COPY  COPY  COPY ? COPY  LIST  PAUSE ▗ NEXT ▝ USR >= LIST 2 MOVE ▘!g DRAW  DRAW #PI▗INT ▝USR ▝p@P▝ NEXT 3p@▝ . ▗<< SAVE  LIST V IF VAL$  COPY  COPY ▘ NEXT ▟00 PAUSE  PAUSE s RETURN  DRAW STR$ ??@>s 0|0V<<#NOT NOT s3@PSTR$ PPp0#<<  RETURN p2STR$  p DRAW  DRAW  SAVE  [S]1▜<< DEF FN  TO  LIST  COS 1.1 PLAYER COPY 2.2@S COPY 3.v.COMPUT▝4p[G]R(Levels) COPY   COPY 1.Keyboard;▖Kempston:▖Sinclair8▜Define (▜s COPY © S.A[B]ddle 1989 COPY Player1STR$  ▜HiBreak0▝2▝ COPY  [H] COPY RED WANTED COPY speed 1 2 3p▝D+NOT  ▚COLOURP.0▚YELLOWpoGREENP>@<▗BROWp@LUE`e@d▗PINKpP(▘AC` COPY SKILL LEVEL%▗EASY/▚MEDIUMYHAR[L]▛ COPY > COPY SPACE TOACS [J]NTINUE COPY NUMBER OF FRAMES? COPY 0 NEED,WIN GO TO ▖Frames  COPY   toQK COPY WinsAX▝20▝G"▗Over@-[L]Drawn COPY  TO <>z DIM [R] BRIGHT [P]HNOT *[B] GO TO  FORMAT CODE  REM IN Y MERGE !3[B]FK=xj▚STR$ OPOINT 33T[R] NEXT $Qcp8/1[U] SAVE 4[H]IN 4▙ OR n LIST  DRAW  RUN  OR  RETURN EXP [K] FOR t;) LINE ggA,R>= TO N>[E] READ EXP UIN ]8 MOVE 0 INPUT  PLOT  LHEXP >` THEN [K] LINE CODE  DIM 2kCODE % GO SUB   RANDOMIZE [L]$&EXP w GO TO  LOAD h THEN c BORDER SLN b ERASE B0T.'▜ INPUT EASN  DATA >=p|ATTR i[Q] LIST 5[N]b▘TAB BIN =[J]IN U[R] PAUSE  FLASH  FLASH +[D]RND▟oACS I CLOSE # CLOSE #e[F] CIRCLE mR▖Kl;[A] PAPER )POINT ▛s OR @<=5H[R][K] PAUSE [U]BIN + CAT ATTR NOT |5 LET  SAVE [J]USR : LET PI©~ATN [D][S](V STOP SQR  PLOT  LN AT VAL <@<> INK [G]LEN iATN {" POKE LEN ~RNDW▘[A]rsCOS N CLS [C]/ THEN a[H]^[S]INT  AND  DATA 7DVAL$ SCREEN$ ATN ▜} BEEP  OPEN # CLEAR y▝▛▝INT m[R]TAN O RESTORE +y VERIFY  RANDOMIZE ]MSIN #vU AND  PAPER qIN "B`W© RESTORE C▖r▝3SIN ASN  FORMAT q< LOAD  PRINT AT @ IF >VAL  NEW iPOINT xSIN ▘▚T▞8N[D]IN CHR$  FOR .FN YL[/INKEY$[O]_W CONTINUE  STOP  NEXT ▞hD?VAL$  OVER tLEN &EIN [A]RNDuvf NEW y[B]SQR -#FN  GO TO ▗*9 FLASH [L]ABS A[I] REM TAB IN [B]j[H]PIACS ABS ▖NOT COS  RUN ▙" DATA [M]ASN  FORMAT ▞TAN  PAUSE POINT  STEP X LLIST l MOVE  POKE eaQ▗ TO -:SGN ATN [N] NEXT  LOAD SQR o▛ REM _▚ STOP  ERASE - STEP [N]b[L]%9[H]▛POINT  LINE SCREEN$ _ CAT tBIN X{PI1CODE  OVER PZu CLEAR  OPEN #LEN [D]J©TAN [M][E]V] NEW [S]y STEP JF[C][P]* RUN  PAPER x[G] MERGE [J] COPY  READ  DRAW  RANDOMIZE [O]PEEK  CIRCLE ABS E▟ RESTORE INT kO BEEP 7 CONTINUE q[F]/So0[Q] LLIST kg DEF FN ATTR a!(B▘ INVERSE ?IN [O]: FOR INKEY$▜VAL$ DRND INVERSE  BRIGHT 1 Z LET [I][D]m OPEN #=INKEY$ OUT  CLEAR [USR  CONTINUE .c<>[I]IN  COPY  OUT 7h[Q] DEF FN / GO SUB [H]V/w^;[U]d`C RESTORE ▛fd[C]C[U]▜O4 CAT LRNDIN n▞ql DIM  OVER u$P Hz DEF FN |[M] OUT } IF  RETURN S GO SUB TAB  LLIST f▜&ZCHR$ (▙[G]▟[T][B]MSTR$ AT  MOVE 1F▛ MERGE  GO SUB ▟[I]PEEK  PLOT  6pUSR P PRINT IN R[F]I CLOSE #▝e IF SCREEN$ '<= RETURN  LPRINT  CIRCLE  SAVE ,COS STR$  CIRCLE [C][▗▗~,![T]{PEEK CHR$ IN [E]<ACS  INVERSE  READ 6^m CLS Gr?SGN  PRINT  VERIFY A[P] LIST [T]9X INK <=Ii LPRINT ▞FN VAL G COPY n[F]LN 2sT BORDER SGN JABS LN  BEEP  VERIFY  AND 6PIQMK▝)vz} BORDER  PRINT  PAPER RNDNOT SCREEN$ NOT ▚▝b▝>▝▘ PLOT  ▞ COPY  COPY  COPY  BRIGHT ▚NOT  LET ▟NOT !▚qNOT  LLIST ▛▘!▛ COPY  COPY  COPY  BRIGHT ▚NOT  BRIGHT [A]NOT Q BRIGHT NOT }▝4▘ COPY  COPY  COPY  BRIGHT ▚NOT  LLIST ▙NOT  RESTORE ▝ FOR ▘ POKE ▙ COPY  COPY  COPY  CONTINUE ▚NOT }[B]NOT ▝▛CODE [G][B] STEP  TO  STEP  PLOT   GO SUB M INVERSE ^ INVERSE VzPI PAUSE '▞ THEN # THEN ! RESTORE  INVERSE n INVERSE f|PI PAUSE >▞!▜: THEN  THEN % THEN ▝$RNDz AND @ IF ]▞ THEN ' PAUSE W▞WK OR  MERGE  RESTORE PI GO SUB R8 CLEAR  LLIST NOT p▞ LLIST  IF }▞ 6▞!NOT c▞ MOVE  LET GCODE  LLIST  ▚< CLEAR  LLIST ▝[L]0VAL 'NOT ▘▞G GO SUB s▞ LLIST  LLIST  RANDOMIZE { VERIFY @ THEN ? THEN ? NEW  DRAW  INVERSE w_▚ MERGE >CODE [A]G NEW WxPI7PIFN  NEW  SAVE FN gyUSR [I]FN  NEW <=FN oy NEW  RESTORE  CLEAR ! CLEAR k_ CLEAR  DIM ▖ OR | PLOT  Xg RESTORE ;;!9 GO SUB {▞<> OR  INVERSE ~ RETURN  KO OR ;;8 THEN  MOVE z RETURN  PAPER  OVER ▞ THEN  INK NOT  OVER ▞p$p$▝0$▝`$▝>=pHPH▝0H▝`H▝ THEN plPl▝0l▝`l▝ DEF FN p[A]P[A] COPY [A]▝`[A]▝ MOVE pTAN @TAN ▘PI(COS ▘PI LINE @SIN 0[Q] GO SUB { FOR [E]NOT  BRIGHT ! DATA  COPY 9 RANDOMIZE  LET (83 MOVE  LLIST $ DIM  LLIST  MOVE  MOVE  CLEAR  LLIST  CLEAR $ CLEAR  DIM ! LIST 0*▟ DIM [E] LET (8 MOVE  LLIST  DIM STR$  MOVE  LLIST ! " FOR [E]!#!+ RETURN ~ACS w,@[B]-$| NEW  } AND  o8| VERIFY gp p p p  HpPpPpPpPppppppp[A]p[A]p[A]pVAL pppUSR pUSR pUSR p LPRINT p LPRINT p LPRINT qqqqq q q qqPqPqPqPqpqpqpq[A]q[A]q[A]qVAL qVAL qVAL q FORMAT q FORMAT q FORMAT q LIST qVAL rrrr r r r@r@r@r@r`r`r`rrrr[Q]r[Q]r[Q]rUSR r FORMAT r FORMAT r FORMAT r FORMAT r LIST r LIST r LIST ssss0s0s0s0sPsPsPspspsps[A]s[A]s[A]sVAL USR ▚NOT ▛ ! w0 ▝-▖ GO SUB [Q] GO SUB [Q]z VERIFY { AND  _8z VERIFY Wpp0NOT  BEEP p3p3p3pIpIp_p_pIp|p|p[C]p[C]pFN pFN pPEEK pPEEK pFN p FLASH p FLASH p LET p LET p LET qqqqq3q3qqPqPqfqfq|q|q|q[C]q[C]qFN qFN qPEEK qPEEK qFN q FLASH q FLASH q LET q LET rrrrrr3r3rIrIr_r_"I> NOT  RESTORE [Q] 2[S]@R[U][B] RESTORE  TO [M]FPDIV<>RND:[J]▘,[P] COPY  COPY LEN  LIST  PAUSE  NEXT p`▗ 33p@0@<▜<< DRAW  DRAW  SAVE L POKE N▞<< DEF FN  TO  LIST 2j0▘USR  NEXT ▝STR$ ▝ 0 NEXT  NEXT  READ USR CHR$ |▘?? @[C]p[A]▙USR CHR$ 33000NOT  RETURN  DRAW Y8a▝ STR$ 0▝@tp@▘?<P FORMAT ▝  INPUT ▘?? <p @  SAVE ` PAUSE  PAUSE s[O]0`bP`0>▘^▗?? RETURN  LIST q@1@Z @<P[Q]A`▗ DRAW  DRAW ! p 0USR P NEXT  NEXT  CAT 1 ERASE >< SAVE  LIST  LPRINT USR USR P DEF FN P[Q]P@▝ PAUSE p`qVAL VAL  ERASE ` [J]06DR
  16727COS SIN ,(VAL$ +0)@COS [T]▗1)J▗T[E],16▝^ ▚ PAPER RND,[E]h) TO  ▞r1▗<>RND|8PE▝▚pE)[A]@>255[K]0Q▝[U]PE▝VAL$ n▞LEN ▞,CHKYLN z▜>=RND: TO CHR$ P[E]▗2) TO `[E]▗3) VERIFY P▟▗15 LPRINT 0[Q]▝ REM P[E]▝ POKE O▖EXP ,YTPO RETURN PO▘ pO pO▘ BRIGHT 184& LOAD ▝0   READ ▝:)[O]▜OKAYSD6 [P]▘N  P[Q]▝XPQ▝ PAUSE ▝b^▚ RESTORE >= INVERSE  RESTORE  LLIST  RESTORE  CLS [C]PI .: VERIFY [E]PI (: STOP [E] RETURN  : LPRINT [C] STEP *VAL$  THEN O( STEP S[I] STEP g[I] THEN G0[M] OVER [I] STEP ~[J] LLIST } AND _T▚w,04PI PAUSE =[F]5,`▜ LIST 5<>CODE 2 RESTORE [E]`▟~ VERIFY [Q],~ OVER 8+-~ VERIFY  FORMAT ▜ VERIFY  LPRINT  ▝▗$ CIRCLE >.▞} AND o~ GO SUB Dw<> :8D▚0,,40} AND 0+ MERGE  FOR <=▜My2LEN [F]0 INVERSE ▚ THEN  THEN  THEN  LOAD  MOVE SCREEN$  THEN  PAUSE  FORMAT [F]w▞ PRINT [J]8 PRINT :LEN [F]<,▝ LET ▗ LLIST  LET ▖[G] THEN 9 THEN  THEN ▘ THEN 'NOT  PAPER [F]'▙o<> INVERSE ^ INVERSE V CLEAR n CLEAR fATN [A] FOR  INVERSE N INVERSE F CLEAR n CLEAR fPI GO SUB B DATA ▚ BRIGHT [E]2 INVERSE [E] FOR D[G] STEP Q[G]<=▝ BRIGHT  INVERSE [E]<> INPUT  COPY g} INPUT  COPY  AND o FORMAT $<>© RETURN  INVERSE 4=:▗ RESTORE TAN ▙"_[G] LLIST "a[G] INVERSE n INVERSE f"▘"e[F]c[G] GO SUB s][G]1d LINE  LLIST ~ INVERSE PEEK ( RANDOMIZE  THEN '8C-[O]  INPUT -~ RETURN 0 CONTINUE -~ATN   READ -F-N FOR *e[G]}[B]|[I]0 MERGE *c 8 TO  FOR 0▝_0ABS *a0[E]TAN > GO SUB {][G] MERGE  CLEAR  LLIST <> CLEAR ~PI  INK  INK ! RETURN ▛: NEW [E] RETURN  CLEAR ~ [E]>NOT [H] RETURN  >2 VERIFY [E] INVERSE 6 CLEAR 2"▝#"▗(: INK [O]CODE 2 INK [E] INVERSE ~ CLEAR w: PAPER [E]2 FORMAT  BEEP : FLASH [E]2 MOVE 
  55241[G] STEP R[H]▘AT [H]0▛ STEP /[G]|ASN  : BRIGHT [E]PI/[D]( GO SUB D2 POKE [H] STEP [I]CODE 2[I]NOT  NEXT [H]zCOS ▝ INVERSE p▗[I] STEP !▘ POKE [H]4▗ LLIST 8 FOR 'AT [H] CLEAR  RESTORE  STEP SIN [F] CLEAR  LLIST >PI▖pM0MB▝}p@XpT@T▝0# ©> GO SUB D THEN / INVERSE  RESTORE  CLEAR  LLIST `y[H]<> CLEAR ▚ STOP [I] GO SUB D RETURN  = CLEAR w RETURN USR  CLEAR 4 STOP .p▝ ▚<> INVERSE !>= BEEP  LET ▝ CLEAR  INVERSE ! BEEP  CLEAR 6 CLEAR 6[E]: FORMAT  BEEP PI PAUSE ][I]: MOVE  BEEP PI LIST  THEN [C] THEN  PAPER <> MOVE  BEEP  RETURN x0:}[J] INVERSE U▝~l7▗ STEP U[J]<>▜[G] GO SUB D INVERSE wC,▘ PRINT  LLIST .▗ STOP SCREEN$ ,▝ FORMAT `,▚ INVERSE w *  =▝=  ^▝@J0w0K0▘ STOP  PRINT pKp:0M▝@Mp`▝&pACS ACS ▘4[J]pACS pjp[H]P▗[R] RETURN  FORMAT  AND 2}[J]<> FLASH  RETURN  NEW  SAVE  PLOT   PRINT  LET  OPEN # RETURN  INPUT  PRINT  MERGE STR$ xLEN   CLS %  LIST  LET #▖z[J]2{[J]2|[J],s#s#s#s#s#3#▘9-#▘ INPUT -s▝ OUT S▝ VERIFY s1▝<=S▝PEEK s ▝h#$[U]$C[H]VAL$ $ROTATE COS RND,(CUEPTS)LN ▟COS ▜,(XVELST)CHR$ +▟▘RND,▜! RETURN  RETURN 6 CLEAR USR [S] GO SUB VAL >NOT 2 CLEAR  CLEAR !▞" RETURN  CLEAR  NEXT > RETURN  GO SUB G GO SUB ^CODE 2 FORMAT [E]>e2 COPY  COPY  STEP [O]> GO SUB ▞$[O]: COPY  COPY  RETURN e ▘ FORMAT [E]▛!4lUSR LN  GO SUB VAL [K] STEP I[O] STEP WCODE  STEP j[R] STEP e[N] STEP 9AT >@2 CONTINUE  MERGE 2 CONTINUE  CLOSE # STEP [N]SIN ▟ATN (>2 STOP [E] STEP  THEN [U]: READ SIN F STEP +- LOAD 8 STEP [S]->2▝2VAL$ SQR NOT  CLS [K]@,▝,5 DIM ▝ DIM ▚ RETURN (>d!▖ STEP lACS ( STEP w[O]USR ▜ STEP [N] STEP e[Q] CLEAR 8[I]NOT ([L] CLS v NEXT * BORDER [E] RESTORE  NEW ▞ INK NOT <[L] STEP 2[N] NEXT ATTR [M] INK  STEP  BEEP [N] INVERSE ~PI LINE [M] RETURN 8 RESTORE  INVERSE  INK  NEW NOT TAN [L] INVERSE 4 RETURN CHR$  GO SUB [L] ▗ THEN  PLOT   RESTORE  INVERSE "▝ INVERSE " INVERSE 6▘d$|▛d|▘[C][L]4|[E]* GO SUB [E]w," GO SUB [E]>22 CIRCLE [N]2 GO SUB C GO TO [N]ZX▟ NOT IN [M]▖ INK  LLIST " DIM [E][P][U]| INPUT g" BORDER [E] STEP T[N]:[N]PI(=2[N]NOT [L]:[N]PI LINE [L]CODE 2[N]>▜&# RETURN CHR$  VERIFY [M]`[B]▚ INK CHR$ <[L]ATTR 2 MOVE kzQ▗ GO SUB FN  GO SUB FN Pp▗ GO SUB FN  MERGE 0▞@8 STEP K[F] STEP ▗ATN  <▗ RETURN  ![A]▜2` REM  STEP ▚[N]0▜ LLIST NOT [K][K] INVERSE 5y▜ INVERSE 4: RESTORE [E]PI▜ INK y RETURN 0 INK ▘▖ INVERSE  THEN . INVERSE  THEN ▘>[▗ RETURN 0<q111 INK ( INK !d INVERSE  RESTORE PSQR ▟: CIRCLE [N]PI  RUN  STEP E[N] LLIST  STEP NOT INKEY$0NOT  CONTINUE [K] STEP  LOAD S[E]▞ READ  INVERSE ~ATN   STEP g[G]PI( INVERSE 6 STEP  INPUT LEN ▝AO@ RETURN ! PLOT   MERGE GQ GO SUB ▝ INK :1q▘ NEXT qk1k▞ PLOT  <>> RESTORE 2 GO SUB [E]CODE "▟2 MERGE [E]2 OPEN #[E]2 CLOSE #[E]<>! TO  BEEP  DRAW q DRAW `▖~ATN (5 SAVE %-▘ OR r"▞ INVERSE  GO TO <>'▘ CLS <>(=▝ =03▝0 (K▝P(7@▝X▝ CIRCLE p$p$@$,>=g>2[O]:[O]D}$~▗:[O]=▚(%  NEW |d▗ LET 2[O]ATTR POINT RND[N]A RETURN %  PLOT  <>> CLEAR © GO SUB y2/[<>> NEXT  NEXT  PRINT  OR  MERGE  RESTORE : CAT ▜=2 CAT [E] LINE  STEP USR >=▟ LLIST  MOVE STR$  LET  CLS  GO SUB M: FORMAT [E]PI>= NEXT ▝▗<> INVERSE rSTR$ ▞ INVERSE u INVERSE t INVERSE s[G] STEP RNDCOS  STEP hCOS <> STEP gVAL$ !l LIST  STEP `[O] STEP LEN >▞ * BEEP PLN ▜0 INPUT  STEP [P] DIM [L] ▝3▞8 PAPER  STEP B[P] MERGE  RETURN (▝P▖ AND  STEP INKEY$[P]STR$  RETURN @▝%<▚SIN  STEP u[P]TAB ▙▝f▜NOT a[Q] RETURN  p[B] STEP SIN COS NOT ▚[O] STEP  CONTINUE [P]: CIRCLE [E] RETURN CHR$ ▚[O]$J:zCODE ATN ( DIM  STEP ?[T]  DATA  STEP a[Q]VAL$ ▞2/[O]2^[O]2_[O]POINT ▟:][O] INVERSE ▚ INVERSE w INVERSE ~ DEF FN ▝0USR ▘ RETURN  LLIST ▘][O]SGN .▝]P1▜/[O]o INVERSE ~[F]03▝ OVER p303▝/ 3▘_[O]g▝] d▝^d▜ INVERSE w INVERSE ~dA$0d▝^ d .[I][F]▝_d▝d3dP3▝_@[H]▝_P[H]Pg▟<> STEP  INK [P]>© FLASH  RETURN  THEN OUSR > CLS G ! INPUT ▝ LLIST  RETURN CHR$ [K][K]ATN  LINE [K][K] STEP  DATA SIN >2 NEW [E] STEP COS ACS  THEN _USR "PI(5&▘PIUSR +&▝*!?SCREEN$ 0# STEP  TO  STEP }SIN   PAUSE ~>HPNOT  STEP ![R]>2 CIRCLE [E]<> STEP ▛LEN  LOAD  LLIST  LLIST NOT [N][K]! INPUT ▘[R]1 STOP [C]:[T][Q] RETURN x( LOAD  AND 2[T][Q] STEP [U][Q] RESTORE %[F]▗( PAPER  VERIFY  ▗ NEXT [Q] FORMAT J▝ TO "-[I] INVERSE w<>! SAVE R RESTORE ~,F,N,V,^PI THEN  THEN PEEK ▝7p`[U] LLIST  INK  INK  RESTORE w,p,q,r,s LLIST $ INK  LIST  INK ![T][Q]>▘[G]_& STEP a[J]<>pOO;/ THEN ``NOT  CAT [Q]c[L] FLASH  INVERSE !INT  BEEP P OR : ERASE ▗▞ OR  INK  INK ▝▝▝▛ INVERSE 6 INVERSE  THEN ACS [T]▜ THEN ACS  INK  INK  INK <>!▘("▗> RETURN 2:!([O]# CLS  STEP ▟[R]CODE 2 ERASE [E]NOT  RETURN [R]! RESTORE  TO ▘ RETURN f TO ▖y NEW  RETURN O OR Z! RETURN ~N#F! LIST ~[I]▗w| NEW USR [P] PLOT  @W]![I]~$ IF STR$  LLIST +|ASN >= RESTORE ! RETURN ATN  GO SUB B NOT [U][R] CONTINUE ▖>=,[S]>LN <> NEXT h7POINT 'I LPRINT '▝[F]Computer COPY Wins COPY DEMO COPY LE RUN  COPY  FLASH <> STEP VAL "<G> CLEAR VAL$ SGN 8 ▝X0▝<>`▞  STEP  BORDER [T]<>'} STEP  RUN |▟( STEP [U]<> STEP -▝ DATA p-▝<>▞7*[R]A'▝ RUN  FLASH  RETURN <>> LOAD  ERASE ▝<>SQR ▝k/▘COS [S] INK ▝ m▝CODE  2 LPRINT [E] STEP ▚ OVER  THEN O  u(▝CODE @<= THEN W©(!-▝=.VAL  THEN _  [A]d▝ OVER  HCODE ▝ NEW  PRINT ▗zCODE  STEP ABS d[Q]▛ STEP !VAL$ CODE 2 READ [E]<> GO SUB KrVAL$  GO SUB CrVAL$ xLEN USR :tVAL$ =2tVAL$ >= STEP LEN  [F]▝USR  LLIST P[,=▝<Q FN ▝@FN ▗ DATA [E] MOVE [S]▝  GO SUB STR$ [L][L]▝ ▝LEN [E]▝  CLEAR / BORDER ▚_( RANDOMIZE  STEP [T]TAN h▘![R]gd0[J]▝▜[J]<>!@uT[K]w COPY  GO SUB VAL <>! DIM X STEP P[U] STEP 0[U] STEP 9[U] STEP B[U]<>!)Y▝'`▝iP# ▝POINT p3@▗ STEP V 9@▝iP▝POINT @▘w# DRAW ▗> STEP K[T]▝[O]© Players Premier 1990 COPY  THEN ! THEN ! THEN !E:s[U]P▟ OR  RESTORE  MERGE  RESTORE  THEN '[O]_z AND wWw$| NEW  } AND  o8| VERIFY g FOR  LLIST # ;▙STR$ BIN <> MOVE  RETURN  COPY  STR$ <>#[G]!2" BEEP !X",[K]q▘SIN COS "▝[Q]z"▝ OR 2][C]ATN  STR$ ! LPRINT STR$ ! LIST [Q][A]T▘ - LET - RETURN  1i▘i6FN ▝[N] STEP  NEW RND LET - STEP M[P] NEW [Q]▝ PAPER  PAPER ▗[P] CAT VAL$ ▝[T].▝NOT ATN USR ▗[P]LN VLEN ▘ LPRINT  GO SUB ▝POINT LEN [U] RETURN (INKEY$NOT .RNDTAB ▗a[Q]-]~ CLEAR ~# CLEAR # POKE &P<CHR$ -|▚▟[J]PICHR$  THEN [U] VERIFY V▘▙J▝ RESTORE  RANDOMIZE Tx▝ LLIST VAL ▖ LIST  LPRINT  CLEAR ! STOP RND[P]▖/[G] MERGE  STEP ▜[S] CLEAR !'/▛<><> THEN < THEN PG▗STR$  RESTORE  MOVE ACS  IF <>G CLS ▗▞ CLS  STEP INT INKEY$ VERIFY GO v>2 LLIST [E] OR h THEN % THEN %&hE#▜[I] OR ~@▖## RUN  INVERSE + INVERSE +ABS  STR$ CpTAB ▝ LLIST ` TO e▗: LLIST [E]<Q[J] RETURN 8  BEEP STR$ ANOT MINKEY$STR$ xEXP 8<G RETURN CHR$ MINKEY$A▘ VERIFY -C▗: OUT ▙ STEP wATTR / MERGE ▝$ OUT ▟  STEP  TO ATTR : GO SUB [E] RETURN  RESTORE (▟▘^SCREEN$ ,NOT  MOVE POINT   ▘ `0:▝PEEK ▘ VERIFY [E][J] FLASH  STEP XSCREEN$ 0-[H]▝ ▘8UPF LET ▘ CIRCLE [E]uV! VERIFY [E]T▝PEEK [O] MOVE POINT ~p::▝ BORDER M▘wFN  ERASE ▜}2PI. RESTORE ~▝ OPEN #▗ MERGE [E]O[K]▗ CLOSE #[E],}" RESTORE : CLOSE #)▗NOT FN  CODE [U]0E :▝STR$ 0:▘(▘ RESTORE  STEP ,INKEY$ LLIST : OPEN # ▝ OPEN #0<▝ READ  MERGE ▚!ABS INKEY$▚w RUN ▝ MERGE 0K AND   PRINT  ©▝ RANDOMIZE @E▝ A t▝ LIST p)109H:ABS INKEY$G;▞ VERIFY  RESTORE 2LFN 2ABS INKEY$!QG!1A▗ STEP SCREEN$ SCREEN$ 0<>PM▝=K[F]`[E]` INPUT 1COS 1PI▝ PRINT ! OPEN #▗4CODE 2 OUT YATN  >p[ATTR [O]SCREEN$  LET E▝TAB ▝<[U]ouNOT ▜Q ERASE  h▝ PRINT a DEF FN ▝ LET %! ERASE ▝;1 GO TO ▝p!`!q PAPER 0PI▝ PRINT s▝ LET 0s▘SCREEN$ ABS EG~LN (p/@/PEEK (!PIrBR▝! CIRCLE ▗8<$"1,1d▝Q3 OPEN #qk0!@ GO TO qc▝SCREEN$ bPIp4!5CODE 2PEEK INKEY$2IN INKEY$@ STEP G '▗(&: BEEP D▟ STEP ~SQR GCODE 2 BEEP [E]xATN (▚[B] OUT [E]JSCREEN$  STEP  GO SUB ATTR ![J]STR$  STEP STR$  STEP ▛TAB %▝= STEP  AT +4▝ CIRCLE ▗  CONTINUE  PAUSE ▝ PAUSE [G]!+Y STEP ACS SIN <> STEP /LEN <>FREE BALLSTR$  ▝ COPY ▚><> PRINT !M%R▖▝ BEEP /▖▚ LET  STEP  CLEAR SCREEN$  STEP FTAB  LET  STEP 9TAB  STEP ATTR <> PRINT  STEP "ATTR `#▝<=`#▝9 #▝F#eINT ▖!rSTR$ !©VAL$ <>!STR$  DRAW [E] PRINT  PAUSE  RESTORE SCREEN$  GO SUB D LLIST  PRINT >-2/TAB /TAB  STEP  PRINT ATTR x[I]▗> pPOINT ▗ LET  STEP ;ATTR ▝6[G] GO SUB D4▜SCREEN$ <> PRINT  THEN ? THEN ?▖ AND 02.TAB  LET  NEW B▗1TAB <>O,(▝[N]!PEEK INKEY$y▚w<>!IN  ▛ RETURN >=G> AND ' CLS  CONTINUE 0$▝$▚:USR INKEY$PEEK  FORMAT :}▘USR INKEY$j▘ COPY ATTR  PAPER 50IN INKEY$NOT /ATTR 4q▝▖0CODE  STEP  RESTORE ATTR <>K▖>(( AND  DRAW ▘>▝ PRINT [O]▘(ATN q▘! NEW i▘ LET  2 LET  VERIFY p3BEXP ▚ RETURN  >4[K]STR$ }o& FOR >FN <>LN !▘<=.▝SQR :▝0▝ MOVE 3▘ CLOSE #AT  DRAW ▚2s[U]TAN [B]▝P* g PRINT 8
  9190©l!T[C]▖▝ 5▝STR$ 0.▝< OR  NEW ▖▝▝Wp.▘>H [3▝CODE k▗ TAB >`,v[D]CODE  FLASH  RETURN / NEW ( RANDOMIZE @! CIRCLE  GO SUB VAL ax▝CODE STR$ [B]3▚2STR$ INKEY$2CHR$ INKEY$V PLOT  ^BU AT  STEP hTAB C STEP '[R]>x[M]+)▗ STEP AT <>INT [B]ss any key COPY  COPY .TAB U2rbI▝CHR$ @▝ IF  DIM X>F)▘!p▝@▗XL▗ATN >=+ #@8l▘<INT ▜ STEP RTAB  STEP TAB <>} STEP ]TAB [L]R▜ CLOSE #[T][~>(!NOT ▖ STEP B[S] STEP ▜VAL : OVER [B]▝l▗ BORDER [T][R]▘[▘~▘[U]{Zp(▝CODE  CLOSE #▘ DATA *p, CLOSE #*p5* POKE ▘BIN : NEW ▝ABS M.6G( SAVE [O]▚PI  STEP ▟TAN [L][A] STEP 2[S]<> STEP @VAL$ <> RETURN  RUN  GO SUB x" THEN  READ  THEN O OPEN # THEN W▝ FLASH [T]▝USR  THEN ▝gNOT {<> LLIST ▗ THEN g  RANDOMIZE  CONTINUE | CONTINUE | CONTINUE l CONTINUE ▗X6/ STOP ▖g6$ CLS , BRIGHT ▘(| INVERSE  INVERSE ▘VAL$  INVERSE ▜VAL$  AND {>▙[E]B}4/[U] CLS ▜! NEW Z>TAB H▚ STEP [S] STEP LEN -[R]▝-[I]POINT ▝=POINT ▞> IF 2 CAT [E] CLS  STEP W[T]A▜▝L8▝_8 STEP CHR$ [S]@/▝>=▗FN TAB <>CODE F▛2 MOVE [E] OPEN # RETURN  STEP uVAL$  STEP /CODE E▝>= %0▘{CODE (INT 1 OPEN #▚[E]~>▛▛uX STEP [M]VAL  PRINT $▖▘> COPY  LINE [P]▝▞▘ LET G▝'" 2wCODE +?up1@1▝INT ▗# LET G:wCODE 4*▝) RETURN  RETURN COS <>▝LN 2▗ STEP  LET VAL ?ABS ▘NOT ▟▝IN  ▝ ERASE 5PI W▝%▘ILEN ▝ GO TO )▚ PRINT  STEP .LEN INKEY$[B]▝ LET  OVER ▗@}[Q]▝ RETURN wCODE  THEN ?<h▘( INVERSE ▜▜zCODE 2xCODE 2ysH▝>=SGN ▝ PRINT SQR ▘~>[A] Z▜!GZ>F} PAPER = PAPER ▗><> TO ▗><>SGN ▗><>AT ▝g[▗><>0 DEF FN ▘CODE 0%▝0%▝0%▝%▞VAL$ ><>!  ".QTNOT &dCHR$ U▝<>7tVAL$ ` REM  DEF FN <>,NOT ▝▗ FORMAT >~# PRINT ▘xX@D[R]Respot COPY ODD NUMBER PLEASE! COPY  STEP }SIN  *>( TO >@2 CONTINUE  MERGE 2 CONTINUE  CLOSE #USR BLEN A POKE Gc▘▛TAB [P]▝<>.[O]% GO TO ▗ STEP  DATA SIN =▗8>H LLIST NOT 3SCREEN$ ▝ LLIST A▗ DRAW LEN  STEP ▚"0 STEP (SIN  STEP `SIN 1q[D]!xCODE PEEK   DEF FN ~ STEP [G]SIN <>!yCODE PEEK (FN s<> FLASH $w[S]SQR ~CODE '>= STEP SIN  STEP SIN <>:xCODE SIN ▝ FORMAT  IF ▝y@T▚!"X STEP <SIN %▝< LINE 3▘<> RESTORE  POKE ▝ CLS ▚ LLIST  RESTORE >▜/▝>[C] SAVE  LLIST ▝w FOR ▗[S]!< A/q▝STR$ j▚CHR$ INKEY$LN <> OR SY STEP COS SIN <>KXyp▘'Y>`▗ GO SUB Kv/ OPEN #[B][R]474A2[R]1 READ  GO SUB Cv/~PI>= VERIFY w MOVE ▝< PAUSE ▟ VERIFY >== STEP [COS : FLASH  MERGE w%wz[D]USR >2Q BEEP  BEEP  INVERSE p BEEP ▝ RANDOMIZE ▚ RETURN 8 VERIFY 7▚N6"%6",▞ PAUSE  COPY ! FLASH  MERGE q%q$+USR ▘USR  RESTORE ▝QH▚ INVERSE 6▖ SAVE <>!▜ MERGE PI>=G1[J] CLEAR <>:= CLOSE #g:< CLOSE #o:; CLOSE #W:: CLOSE #_:> CLOSE #tG>[A]GVAL$ w,-<>. LOAD ▝ GO SUB . LOAD ▝ BORDER  LOAD ▚ LLIST !@ CLOSE # RESTORE . TO ▞ LLIST  BORDER ▖ INPUT 2 ERASE [E] STEP hCOS  PLOT  ▛ INVERSE ^ INVERSE V!Z INVERSE t INVERSE ^ INVERSE V!% ▗ INVERSE tINT  MERGE &PI TO TAN BIN *TAN  STEP [N]D[G]<>LN  AND  INK  INK O STEP 5[S] INK  POKE  INK P▝4p▘CODE <>pp(p;P;▗<>/ COPY $_[F]IN USR g{ VERIFY  THEN <0 IF USR W<> THEN 8 BORDER IN <>O NEW <G THEN 9 THEN 9 THEN 9>[B]O> RETURN  CLEAR  FLASH  RETURN   DRAW <>![O]TAN ~# STEP rTAN ? THEN 0 PLOT  ▜{<>!%&"[C]& RETURN  STEP ACS >@▘oASN ,▖w RESTORE @▜▘xASN ~ AND @" LLIST  RESTORE PEEK ( SAVE +w READ Pp!7 FORMAT p!▜( SAVE #PEEK ( POKE +&▝`pG▘>pi▝ PAPER pG0&*▝ LIST USR +Q▝ppr▘>[E]▝ DATA prp+Y▚ GO TO  LLIST +w [P]▝>=[O]▜<> STEP QTAN   CLS N▜ RETURN '  INPUT ASN [Q]▗IN <> RETURN ▝ RANDOMIZE P▝!▘ACS @▗ USR @▚!o~: FLASH (RIGHTn: COPY LEF▗DOWN0▘UPNOT  [L]: COPY SET SHOT: COPY Caps Shift COPY Sym.0[C]Enter COPY Space COPY ! OR X RESTORE >'[D] LLIST   INK  INK  RESTORE  STEP 5ACS  LLIST  INK  PLOT   INK @▖<>6#>  READ ▖6<>#|ASN   DATA [G] INVERSE 6{[F]z[M]8 STEP IN [F]O FOR G` STEP AEXP LEN ▘ %?t▝#y▜~ RETURN  LINE  PLOT  ACS ▖:EXP <%▘ REM ▛ INVERSE !  BEEP Q STEP cLN >▗G STEP INT @ POINT ▝ 0=PI(. RESTORE / STEP ▝ a STEP [E]SQR ▘~SQR q#ATN  z▜ INVERSE 6 INVERSE 6 DIM >= BEEP <>6[I] STEP [K]LN  STEP ▖LN x[R] .CODE 2fEXP  STEP FEXP  RETURN -0# STEP 'INT iNOT CODE ACS  STEP  PLOT  EXP  STEP  SAVE LN VAL  STEP ;EXP  STEP INT NOT  LPRINT ACS ©@;▝ LINE ;/>p<p<p<3▘;EXP p<w▗▖LN  STEP SQR 0<▝pxpxx▘EXP p<pxCOS ▝AT `<▝pTAN pTAN p<px`TAN ▝SQR `TAN ▝p LIST p LIST pxpTAN px▝LN .▘x[R]!cA/▝8!(q2q2p PLOT  ▝INT KPI/TAB  DRAW <>PP LPRINT $P LPRINT $: LINE  BEEP  INVERSE [G] 7: THEN  BEEP  INVERSE [O] FORMAT <>:2▘[G]▝<>▗ FORMAT <>0$0!▝ CIRCLE P!0 CIRCLE <> GO SUB [vLN  STEP  RESTORE LN 0'▝<> FLASH ▜<> INVERSE n INVERSE f▗ INVERSE f[C] STEP  LOAD [E] STEP ▟[J] RETURN USR [Q] STEP  FLASH LN 0 LOAD CODE p FORMAT p0&Sp&9▘ LPRINT $f&▖▘ INK [E] REM ▗ INVERSE  RESTORE  OR  CLEAR ▞▚ STEP [G]STR$  OR x<>[G] FOR  STEP [F]EXP ( GO SUB D2EXP !pLN  RESTORE  CLEAR  LLIST ▖"[B]EXP  GO SUB S[D]EXP STR$ p%%▜ VERIFY  INVERSE  LLIST  LIST  GO SUB D*CHR$ [I]zCOS   MERGE | RETURN  PAUSE ASN EXP  INPUT  COPY G} INPUT  COPY  AND O0.▚8 RESTORE STR$ 8▘ MOVE z ▝ MERGE  ▝{p 0 ▝ MERGE  ▜ LOAD $8TAN +b[T]8 ▝mVAL ▗ LLIST ▟EXP >▘ GO SUB VAL SGN ▘ MOVE !@▗ INVERSE 66 FORMAT  BEEP 2 MOVE  BEEP c16<>*LN ▚[[D]EXP  STEP /[G][M]▝#▘s SAVE s SAVE  STEP SIN S SAVE ▝SIN s SAVE [C] INVERSE ~[A]2▟EXP  INVERSE ~ OVER 2▙EXP ▝0▝ DEF FN ▘: INVERSE @'▗[B]2'▝'▝[A] '▘▝0'[A]EXP  CLEAR FN [O] BEEP  STEP 6SQR NOT @[E]c INK b▝ INVERSE 'i[F]F INVERSE N OR  STEP R[H] INVERSE ~2 PAPER [E] INVERSE ~2 FLASH [E] ERASE  RETURN ▗K[F]: RESTORE  CONTINUE ▗ POKE  STEP [N]w▞ATN  (* LINE  BEEP TAN 9▘8▘▝ NEXT ▞STR$  INVERSE p INVERSE q INVERSE  LLIST ▝CODE  OPEN #▘ PAPER [E]G INVERSE w STOP  INVERSE  RESTORE  STEP 8[I]{'▜ZSQR  LLIST  RESTORE  CLEAR  RESTORE  MOVE {▞(> INVERSE  LLIST <> INVERSE  LLIST  LLIST !"XSQR *XSQR #▝|Q▝Gb▝▘( NEW  FOR ▗t BEEP d PRINT ▝T PRINT %▘  OUT ▘>dP CLEAR ▗>= INVERSE ~▘ CLEAR ▝ CIRCLE e▗8: BEEP @▖<>!INKEY$STR$  STEP STR$  CIRCLE  STEP  LIST SQR <>%Z▗TAN 5v▝X:eL▝ FORMAT (0k REM ▖▗ INVERSE !f BEEP %CODE p▛▗ INVERSE " INPUT SQR B CONTINUE B<>{SIN  NOT SGN  STEP WABS [N]q▚ STEP (EXP  STEP  INPUT SGN  POKE ▗<> STEP 6p11▝0
  7297U[E]}TAN   INVERSE * INPUT SQR NOT  RETURN SQR  STEP {ABS  STEP  MOVE SGN PI pJ!_ SAVE LN  STEP ABS  PAUSE ▘ STEP [M]p pj.0 @G*EXP 1 CAT ▝01 MOVE > INVERSE ▝ STEP H STEP =PEEK EXP ▘(ABS 3p▝4 `RND61 CONTINUE ▝<>4▚[Q] GO SUB SEXP q▝ RESTORE  Tc▛ FOR  LLIST  STEP USR ABS <>! LPRINT $"3▘ LINE  BEEP !`$▘*>=0E▝▟pETSIN E▝ INK E▗ FORMAT ▝>=0E▘ FORMAT `$ STEP  PAUSE ABS  GO SUB K[J]▘PEEK pA▝60▝[B]p▝[E]▗<> RESTORE STR$  MERGE v4"▗[R]8<>VAL  PAUSE PEEK g▝ytg$g▝[N]▝$1▘>=x` ▖▘ FORMAT  BEEP  PAPER  FORMAT  BEEP <>: MOVE ▘ MOVE  BEEP . CAT Eo▜ CONTINUE  GO SUB R CIRCLE  RESTORE 5} BORDER !}%▘ RUN ▚▝0p▝[Q]p   ▝ CONTINUE INKEY$▚STR$ a RESTORE  STEP IN M[J]zPI PAUSE POINT PEEK { GO SUB D COPY {G|PI PAUSE EXP PEEK } GO SUB DSCREEN$ }OyLN bk"FPEEK .8ekHG"HPEEK `x THEN ?o}▝8LN 8[A]o GO SUB [FPEEK ▖HPEEK  READ |▘g RETURN  COPY ▘ RETURN }o RETURN IN  ▝▝ OR r▚ LLIST STR$  READ % CHR$ ▖L STEP VAL "<G>[K]VAL$ w RESTORE -▘Z▝ >=▘ LLIST |USR [S] NEW  PLOT  Xg~ NEW  SAVE  INPUT w<>,(COMPOP):PEEK tJ TO   DATA ~▛COS [E],CMPTEX▖[C]▝VAL [I]PRN[M]JFRMDIS COS RND,SCREENINKEY$06▜16384VAL C▖▜,6912INT WATN BIN ] READ :J DEF FN 0a▝T `▝ CIRCLE v▞STRING STOP x▗SPK g▝Z1dP2▝n▖PL1FSCx0▝2: TO ▘K0▟ COS ,(FRAM1):▖BINBCD[G]@: DATA :POINT ▞[Q]
  21891T DEF FN =▝SCREEN$ =H`=▗2)TAN p=▘PEEK @k!▝>=p:w▝ ERASE  w▘A▝P/▘ BRIGHT <>▞RND,22536 NEW SQR ▖FLSHAT LIST  STOP `[M]:POINT  IF  POKE @AT '▘L` BRIGHT  FORMAT ▘ <>RND BEEP ▜72TAN STR$ POINT  RESTORE  GO SUB [TAN STR$ :ACS STR$ g FLASH  RETURN  NEW  SAVE  PLOT   PRINT  LET  OPEN # RETURN  INPUT  PRINT  MERGE STR$ xLEN   CLS :EXP STR$ =2EXP STR$  :INT STR$ ▞ RESTORE *ATN STR$  FOR  LLIST :SQR ▝SQR ▘SGN STR$ [B] GO SUB KABS STR$  STEP lSTR$ % BIN  LET  LLIST  STEP iSTR$ :IN 4▟IN STR$  INKEY$~ATN >=#[I]d K[D]<> COPY  FORMAT  POKE  COPY  POKE  COPY PVAL$ [U]d CONTINUE Z<ddLN FRBK&MbPEEK ▚,6 TO <>z DIM [R] BRIGHT [P]HNOT * GO TO  FORMAT CODE  REM IN Y MERGE !FK=xj▚STR$ ![E]L▝ VERIFY 1%A PRINT ▘ LPRINT LACS ▘SC[I] PRINT ▗SCOR PRINT ▝ REM -▝▚w▝ POKE 16  FORMAT ▝ RETURN _▘▚*▘M STEP ▘ME STEP 2pO[Q]`VAL 7CODE R[T]@SQR ▗1707ATSo▜:MPLENM[U]▗0DM3*~▗88NpB▘X0]▘88" CAT 8bp^▘l0y1v"(MTCH▝0D889@▘▘4: PAPER ▚[E][N]CHG0▜▝[O]<>[C][J]/▗23FN @S2SIN p* [G]SGN MSEED[Q]23670 AND MRNDASN ▝() FORMAT  PRINT ▜#2D2B PAPER CODE ▚ INK #28 DATA LN ▙[G]#A1,#0F,#34 INPUT  37,#16,4 SAVE 04,#80,#41N1▘0,▗80▚#32,2,D▘▝3GO▗38 +p▗A2*6▝COS 0▜▗,▜4):>RRND▝HZ▘ LLIST #j▝R -▝RND1 PRINT ▖/NOLDCOL# PRINT LEVEL#Y▝f Q0▝p<▘2: GO TO ▝z[R]▗[F]▗}▖GTSPRT▙@p▞ITE+48)[I] [B]VAL$ +8[H]▝[S]p  54)AT @ ▘140▜▜ACS NNEWLVp▜▜▗8USR NO8 LINE  READ ▗SIN ,19c[T],2 CLOSE #0 RESTORE 1 OVER pATTR ▝ CONTINUE 3▞redbac PAUSE N:▚ LLIST 2 DRAW @CODE [F] (08@` LIST  LIST `0xx▝©▝<[I]USR USR USR  LPRINT  LPRINT USR SGN ▞VAL  VAL [I]P ```VAL [Q]VAL  USR  VAL VAL  LPRINT VAL !USR VAL [G]PUSR `VAL @USR USR VAL ▝0▚VAL  FORMAT  COPY  THEN q[A][A]!HH!$$!!▝▖!▗@@!  1USR IN  PAPER q CLOSE #q DEF FN q>=qCHR$ qSGN qACS qVAL qSCREEN$ qPIq[U]q[O]q[I]q[C]qq▚qq©qzqtqnqhqbq/qWqVqPqJqDq>q8q2IN q,q&qWsYv[z_©d▗l▜w©▜[C]▜[K]▗[P]©[T]z[U]vINKEY$s©E©2©$}~^~EE)J)R)Z)b)h)j)r)[O]z)▘))[C])[I])[K])[S])SCREEN$ )SIN )INT )[D]&$~#s$k& MOVE R▛@VAL @@ X ,T▝USR `_ COPY  COPY  LET [J]&0:DNp[I]LN  SAVE p8L/|▜&.>▝FN USR USR USR USR ` LPRINT  LPRINT USR  LPRINT 0p LIST  LPRINT  COPY  COPY  LLIST Q▗PFN P(T*▜▝▚@▚@[Q]▚@[Q]P▘[Q] COPY  COPY  LLIST R POKE ▝ CIRCLE B IF lB DRAW 6B RETURN CCC3C▝3I>=[M] CAT  BEEP STR$  BEEP COS  BEEP RND BEEP [H] BEEP ▞ BEEP { BEEP m BEEP _ BEEP Q BEEP C BEEP 5 BEEP ' BEEP  BEEP  COPY  CLS [B] ,8DP/x[M][M] DRAW  DRAW ▞<NN~~▞''??▛▖USR USR USR USR  LPRINT  LPRINT  LPRINT ▞ LPRINT pp LIST  LIST ▞ LIST 88 SAVE  SAVE ] COPY  COPY  FORMAT q CLOSE #AT !jV!5+!▗▝RND▗[Q]`▗PVAL !FN X▘ MERGE USR USR  LPRINT '-USR 6▗ LPRINT p LIST  LIST t- COPY  GO SUB R POKE ▝ BRIGHT % IF 3▝n% RETURN 3▝7&C▝C▝USR C▝ LPRINT &3s COPY  COPY >=[B]$2@N/j|[O][O]PEEK  RETURN % IF ▞>OO_©% RETURN ''/?USR USR USR USR USR  LPRINT  LPRINT  LPRINT  LPRINT  LPRINT  LIST  LIST  LIST  LIST xx SAVE  SAVE &▞ SAVE <<| DRAW &gSTR$ 5▘ LIST LN USR  SAVE s COPY  GO TO Q▝8 POKE  VERIFY SCREEN$ ▝l& IF 6kU▝6& RETURN ▞5*5'▞USR @USR '▞USR `[Q]`'`VAL PVAL `'FN X▝ LPRINT [▜ CIRCLE AT TAT i▝p COPY  COPY r▘/j2 INPUT ▝ INPUT r PLOT   IF ▝wr SAVE ▝;r IF ▝r DRAW ▝▝sS▝S#]▝SeCHR$  SAVE SGN SGN USR  DRAW ▝ SAVE  COPY  POKE [D](8HXhx<^[P][P]IN  COPY E SAVE /OO_©5 DRAW 'USR 'USR /USR ?USR 6USR  LPRINT  LPRINT  LPRINT  LPRINT 6 LPRINT  LIST  LIST  LIST  LIST F▞ LIST  SAVE  SAVE  SAVE  SAVE F▞x|| DRAW  DRAW &▛xSGN >>~ RETURN &u COPY  PAUSE qj MERGE ATTR e SAVE ▗jUU DRAW ▗5@*USR V▗[Q]`V▗PVAL V▗FN XV▗TAT g CLOSE #SCREEN$ V&u COPY  PAUSE R5 INPUT ▝ LOAD E PLOT  c[B]s;USR 5 RETURN c▝ LPRINT 6c▝ LIST 6c▝xFS▝SGN FFs▝  COPY  COPY  READ 'ATN ~▜ INT ▘USR  VERIFY N[I]▝#/P▝[Q]P▝"$▝[A]P*▝%2▝P8-[M]▝pp*O▝`p8]▝PpFk▝@pTy▝0pb[B]pp[F]▝P[K]▝'/:@FN pBIN  LOAD qqqqqqqqqqqqqFqqqbqqqABIN q OR  INPUT rr▘USR  CLOSE #rP2P*2P82p*p8pFpTpb[B]ppP[K]2@FN q▜LN LN d"POINT [Q]0▗▖▖ ERASE  LIST  FORMAT [M]▝/ LPRINT d LIST [Q] REM 20 SAVE ▝P▘ LPRINT  RETURN ▝0*▘ ▝ ▝PF▘` RETURN .{▗@  RETURN ▝0b▘[Q] ▗[A] LPRINT  RETURN ▝`b▝P0 LIST @0P0~ NEW ▝ CAT STR$  COPY ▝ NEXT ?VAL$ ▝GNOT  COPY ▝ LET p▚ COPY  NEXT  CAT  COPY P ▘g COPY ▘ COPY  NEW P:▗ CAT  RETURN SCREEN$ SCREEN$ P@▘g@▝0 @▝ PAUSE 6 STEP  COPY 0@▘ PAUSE O@ <_ RETURN ▗ COPY @? RETURN ▝ DRAW 1▝o RETURN ▘0?[I]o RETURN  COPY  COPY p?0A▝AT ` ▝ LIST p?PA▝0!▚>=o▟ FORMAT ▜COS D▚ CONTINUE ?0 AND  OUT @t▘▚3▝©A ▝3© COPY  TO q▝© q@!▝ COPY PAZ▝O0@ CAT  COPY ▝0!▝ LET qA▝ ▝T RETURN * SAVE qQ@1▝q?qq qq1!▚ THEN CODE u BEEP SQR 3?VAL$ ▜f INPUT  COPY u BEEP INT  OUT Br2▝[I]r ▗NOT 1ATN R!`▝0r TO  COPY R ▝STR$ p© RETURN ▘ ▝n RETURN ▗^ SAVE  THEN  COPY @2▝@?V[N]▘rSTR$ ▝ LPRINT p?PA▝R▘LEN b▚?br2▝0s▚© NEXT O INVERSE u INPUT a▗IN  LOAD  LOAD P▝0B@▘ COPY  DRAW  THEN IN r@▝▝q▝▝R▝< RETURN < LIST qQ@#▝ RETURN QgRND▘©s!q© RETURN QK LOAD wwSQR CrP▝INT tLEN T COPY  RETURN `t"▘`SINKEY$$ ERASE @▝ SAVE s LPRINT  MOVE ▝3▘ COPY  PAUSE /▗ COPY x] RETURN ▘STR$  COPY ?3▘>[Q]▗ RETURN | LIST QVQj▘ COPY @15">=▝USR qSTR$ ▝USR p?QATTR ▝C LLIST wpSQR C▗ CONTINUE ? FORMAT s▘INT t▜u▘© DRAW DSCREEN$ DrEFN T<>0R▘ RANDOMIZE  LPRINT <>▘[P]R" RUN  COPY pSTR$ 0IN ▝ COPY Km▝[Q]▗u8 LPRINT q2▛▘ COPY @%▝ DRAW qQu!STR$ ▝q?RATTR E!v#6EttUSR V ▝ACS  LINE CSCREEN$ 0▗ CAT NOT t.d COPY  INVERSE SCREEN$ TAB S<>0R▜ LET  CLS kZ VERIFY ASN TAB  ▗kZ OUT R▝_ IF  RETURN vABS / RETURN ` COPY 0BS▝USR RVRj▘ COPY rm^v DRAW PAv!p?bATTR qU LPRINT  LPRINT We NEXT pF`  GO SUB CODE  CLEAR _wZp@▘r▝T▚SCREEN$ TAB  COPY { FLASH UqQ▘©@B CAT qQ>=▘ COPY  SAVE w DRAW QAbw c[F]qAA4?v?g▘ DIM s?8<= LINE ▝[T]0/ BRIGHT r INVERSE r READ  DATA =~▝0 ▘ COPY  LIST p?<>▝t$p▝p? LINE ▝p [T]▘ COPY USR p~ THEN ▘ DATA ▘ COPY  SAVE p? STEP ▘p1%q©▚qq LINE ▝A▘▝ SAVE w~©<=▝]1J> TO ▝0 P▝ LPRINT wABS <>▝/1x DRAW  LINE ▝0Q▜CHR$  ▘ ▝!▘▘▘#Ay; TO ▝0Q▘ DRAW w~] NEW ▝[I]yb▘ COPY w~w▘q▘ SAVE yABS yNOT ▝q▝ MOVE ▝8ap?<>▘1▝ DRAW p? THEN ▝8F BRIGHT p~ THEN ▘^P~▝bSQR `▘▜▘ BRIGHT ~[N]▝wx~^ NEW ▝ INPUT zbq>=▝IN C▝ LIST w~©<=▘ DATA #▘ RETURN xABS >=©3▝USR wABS <>#@▝ SAVE p? THEN ▝"IN ▝ COPY  GO TO ©[I]/ RETURN <!!y; TO ▝"▞[N]▝ATTR  CAT ▝ MERGE tA▝ COPY AT  DEF FN ▝q▘ LPRINT yABS ©'▝USR BIN $▝ DRAW p?<>?Ap?<>▘USR Qp~ LINE ▝Ap~ THEN [G] INVERSE ▝ LPRINT pABS  STEP ▜ COPY  GO TO OlM© INVERSE ▝ COPY [T]e?x~x▘ INVERSE Q MOVE qp?<>▝Q CONTINUE  ERASE ▝USR SGN p~ THEN ▝IN ^x DRAW  TO ▝USR TAB y; TO ▝!▝▝ LIST z[O]z[S]q▝ RETURN k DEF FN ▝▝USR > CIRCLE  TO ▝ LPRINT BIN &▝ SAVE p?<>O DEF FN 2}▝ LPRINT p~ THEN ▝P~*K DRAW VVAL$ ▝ LPRINT ▝pABS  STEP ▝,i▝>F LPRINT !x~x▘q▝©z>=▝`F LPRINT xABS >=▝a©EXP  LINE h1x DRAW  LINE ▝!▝ DRAW p? STEP ▝`g[[B]my/&z[K] TO ▝ MOVE ▝ LPRINT w~ CAT ▝p[T]▝z INK  DEF FN ▝▝ VERIFY  COPY VAL  INVERSE /+ PAPER ▝A RUN  OUT ©z TO U[N]©z DEF FN ▝0#©EXP  DEF FN ▝q CAT  COPY  FORMAT  INVERSE q VERIFY ▝?q LOAD ▝ RETURN pSTR$  DEF FN  BEEP ▘©USR wABS [I]▝vf'NOT ▝q FORMAT ▘USR ▝ OUT  BEEP  COPY ▝ RANDOMIZE r MERGE ,[D]~< MOVE q DATA ▖{ CAT PEEK  LIST  FLASH mACS  FLASH <>©z TO U©z DEF FN ▝ PAUSE ▝>©EXP  DEF FN ▘ RETURN b} RANDOMIZE  DEF FN ▝r MERGE q VERIFY "▝  CONTINUE ▗▘( ▖Q▝ DRAW w?U8`K BEEP ▘?USR w DRAW  CAT ▝VAL ▝ REM  CIRCLE ▗ FOR qABS  CAT ▝q MERGE r MERGE ▝s DATA s CAT SGN a▝ SAVE w? CAT ▗USR w DRAW  CAT T CIRCLE  MERGE `vF MOVE r MERGE s VERIFY t DATA ▘r▝ SAVE w~ CAT ▝ LPRINT [T]w DRAW  CAT  CIRCLE ▘PEEK  CIRCLE  IF [Q] RETURN  INK _ BRIGHT t COPY _ RETURN ▘ PAUSE t▝ LIST w~H9sJ6▝'▜ MERGE ASN ▝ LPRINT ▝ SAVE  INK  LLIST  COPY ©[O] COPY  TO <>F OR  THEN F▘GG$STR$  ▘GG%NOT P B00ABIN pA> DEF FN  ▝`p@ CAT  P@ [B]p@pI@[L] OPEN # P[G]p  TO   CLOSE #USR @▝D MERGE   POKE STR$ D MERGE  0/p BRIGHT  DEF FN  p  FORMAT     CIRCLE  p  MERGE  p DRAW  COPY   COPY   COPY   FORMAT   CLEAR  INK D0p# ,2 BEEP  CLOSE #D" FORMAT  GO SUB ▝ INVERSE ▝ LOAD  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT ▖ FLASH  FLASH |8 CLOSE #P[E]M= FLASH  NEXT  DEF FN  STOP P DEF FN LEN 3ABS ]LN ]TAN ]LN ]LEN 30P,SCREEN$ tXsXLUSR Wq AND PIav><BB~BB|B|BB|[E]@@B<xDBBDx~@|@@~@▝@  ▝N  78▝>STR$ >USR ▝B8DHpHDPCHR$ @8BfZ (BbRJFhp (n0PBRJ@8▗<@<▝ RETURN CHR$ h 0<>[E] STEP K[F]: RESTORE [E]PI( POKE  STEP [N] INVERSE ~ATN  (* LINE  BEEP TAN PI GO SUB R8* LINE  BEEP PI GO SUB R8 STEP INT STR$  INVERSE p INVERSE q INVERSE  LLIST  INVERSE 6CODE <>CODE 2 PAPER [E]2 FLASH [E] INVERSE w