Is a part of release: | 3D Snooker |
File size: | 31488 |
md5: | aa6dd059da6fcc5c24c4515441f4a4c4 |
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