| Es parte de la publicación: | Tag Team Wrestling |
| Tamaño del archivo: | 32000 |
| md5: | cf6a72d4aa576000f4f88f9fea1bf356 |
10000 CLOSE #USR 0 NEXT 1M]<> STOP ^iPI[T]ABS RNDABS y(RNDy*Y&X PRINT /X{RNDsRND$RND GO SUB x AND POKE [S]q FORMAT v! DRAW /# SAVE Q' IF ' LIST ![R]#j LIST STR$ TAN v+c)I1B8JBIN VAL$ k[C]COS LINE l▚sEXP [A] FLASH RANDOMIZE '▝▚Z@@^ GO TO qRNDUSR CHR$ RQXLEN AND Jv OR ▟wLEN LIST [B]ASN 9 RUN 8 READ .' CLEAR 6#©CHR$ [R]!3i▚[J]h OR [M] CLOSE #hk8▛TAB AT !B CLS Q[L] STOP Q▖>[H]BFN CLS 7GABS 4 PRINT STR$ RUN A PLOT CAT VAL ASN LINE COS LIST INK ▝ STOP FORMAT s}▘jjO]TAB >=[L]cPI NEXT COS CLOSE # COPY CHR$ Q POKE "▖ GO SUB dP ERASE CHR$ [G]wj[J]2m'[J]▗<= INK DIM /|©VAL OVER THEN [B]Q▘ THEN >▟ PLOT A POKE ASN PAUSE TO TAB [N].[F]BIN [N]ATTR [A] OPEN # ERASE ATN PI[U] RESTORE ? DIM INT FOR 3CODE AT TAB T([H][E]^[P][M][N]N/,-_▗▚ NEXT >= THEN LINE COPY SIN wtuATTR NOT <> OR PI©|} RESTORE X[L]YgdeBc@ANolm PLOT x PAPER CLS NEW Y[ ERASE THNOT [F]H STOP & BRIGHT PI^LEN >=V SAVE COPY IU PAPER ▚]'#&+{ PLOT DRAW +f-.23ATTR OVER / DATA !?1'FN .+ DRAW ?30LN DATA g IF [H] OPEN # RETURN !@T]u GO SUB VAL !O] RESTORE LLIST ^~ INPUT Xw#ATN GO SUB R PRINT <>DR.BARS/FLASH 20.03.1997SCREEN$ ' NEXT GO SUB s INK "b INK ! MOVE a[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1 BORDER [J]NOT [ GO SUB LN ` MOVE INK LLIST ; LET INK INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN REM CODE RETURN 0) RETURN ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK OR INK ; LET <([< STR$ AND 0( FOR = INK O INK ) LLIST A INK 8 CAT INK CODE Z) LLIST A RUN RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY LLIST ) LLIST A NEW RETURN 8 MERGE ; LET MOVE !SGN [ INK 1PIa NEXT NOT FN aMsPk LPRINT y FLASH y)LEN CFN a/A NEXT 1PIa[H] OPEN # RETURN !6/w#w!XT] COPY w GO SUB VAL `i[K] LIST STEP STR$ m STEP LIST [T] STEP [L] STEP !!/X OR RESTORE B6x LLIST STR$ GO TO CLS STEP PLOT "1uv NEXT ! LOAD +$|ASN , STEP [M]w>▝=2b STEP c> CLS FLASH RETURN CLOSE #Z PLOT CLEAR h=v▗cLN D>0?0(TAB ABS f> RUN +[M] CLOSE #▖ABS ©[G]XX LOAD 0>IN PAPER PLOT STR$ ACS a[R] NEXT <>NOT XkNOT uNOT 7o@] MERGE "Dn<>▛bNOT <: CONTINUE ATN ! OUT n CIRCLE NFNOT [C]c[H]*[J] CAT :7 wPI L } !0u" CLS aM![L]w"b▚B=©0A[F]>?c ?: RETURN [L] "▖<! COPY MOVE TO +cNOT PAPER 1?[M]?[E]<>5>EF COPY $[H] CIRCLE ! IF l@"`"Vu[H]go" NEXT b" IF b[K]2R@ INVERSE <>:/< RETURN FLASH >= RETURN PRINT >=2TAB }=0l GO TO CLEAR OR MERGE GO SUB [Q]@ MOVE z NEW { AND _8 DATA z VERIFY WSTR$ DATA <> HI ! IT'S FLASHNC.TODAY, WEUSR " BRG U VE RY COOL GAMCAZLLED:,A Eh@.RESTL/ (C) '92 ZEPPE PAPER 2SePACE' qAKEHTRAN[A]$X6H{K [A]O<>.03.97▗[K]jPY}GHT▗ STEP {.[N][B] THEN SNOT QYO LINE q[F]-P FORMAT [U]S'Q','A▘/W[I]-FOR"qHASGN INK SCUG"K!'[N] CIRCLE RI[S]CODE NEX▖PEEK > CAT OR m"cAVTAaU(_)TC[N]; DIT|STAFF▘ INPUT OR CAT DH▘Nt[N]XGNDR.BARS/? SAVE ACS LD.GFX[E]A[Q]BIN [O] CIRCLE D[P]DTAB W▞C BORDER =xl THEN i'0SO SAVE +SN COPY -"eN©qX[G]A~9▝.2 SAVE OR 2e[Q]DUSR BORDER ▛FtM'.Z80%ILSIN INK [R]T▞ AND MP>PPLY?PBIN OSTR$ SSEY@ PLOT LET heRIB}UTE/[O]4▜-RKUD[P]0 OR AND FULINT [E]BKD,▟AT ATTR MvAL+IIN [A]x DATA [R][L]}!▝LO▛ER>[D][C]TH5D'i[J]p[K]LN A▛ CAT ▞x!"▘%' FORMAT ▜ INVERSE LPRINT QqU IF DIM POINT MANu) OVER /BI MOVE >PECCnT[A]`CHR$ [[U]RTAN F%WF SAVE RETURN 1F'v CAT - PAUSE XBUY/S IF P▛INKEY$[T]IATN [Q]TRUNP'C'[H][L]TAN [T] LET PH COPY E(383-2) 474-<052GSK II.[N] STEP GO TO NEXT C DIM H;NASN SAPLD RANDOMIZE OS,hYSTQ,ETC[C] LET =I▚Q)"1ATN 0/1|▟ AND MAI[L]LUSR ;ASN W(.SE[C]<>W CLOSE #[E]$OGSIN RND$ PAPER I[T][T]< GO SUB OUR DRAW m[I]-_Z -@CHE.N DATA . NEXT [M]S MERGE [D]xREtq GO TO LOAD NOT CIRCLE G6Uq:( BEEP KVSVOXON,MR~IKCF,B[P]t1[C], GO TO INK ,RND`MXRY,XIZ:PEEK X,▗]%BD,WI DIM [C]Z, RANDOMIZE _PI)JSTR$ [U]O READ RETURN FLASH |&Q PAUSE CLEAR F BRIGHT pZn[G][C] OR SI[R][C][O] PAUSE ZD[K]U▛MIV.C.FD▖.IN AXA,Dt AND LOSWECRND8>=,EXC<uP,UUSR RI|YOUPhL,U PLOT ASN DATA LEN ▗VTU[N]WOTH[B]h,PITPG)[J]FT,PC`,O.H.GFFK[B]TAN P DEF FN s( ERASE N IF PRINT l OR vT-5,AQE▝SGN PZ[C]IGH"#GqRND[N]GH,WORLD EYBM GO TO ARK,G<>[R]AXYn MOVE ACS [A]B[S]CODE A MERGE ▗S3,IN CONTINUE PaCABS OLd@BOX,Q) GO TO !0,SATTR ZH LINE i DRAW U FOR 0M STEP [J] POKE p[G] PRINT LEN q OR ~g[D]b,GATTR s{ GO TO BBIN / CONTINUE "▘UE1|6WA[H]>) NEXT [G] COPY FLASH BIN [L][U]8 LET CAT AND ©DG5D CAT 1gUSR PAUSE STR$ FORMAT R6▗(+)EXP h!X0)o OPEN #RR[N]▛~h1)[C][A]SCREEN$ USR P OR [P]4@1NOE RUN PAUSE 2[B]▝[E][H] TO GG[R]POPTATN @K3, RANDOMIZE /'0'"w[M]w FOR 6 GO SUB #6s[# FOR x OR ! VERIFY n[Q]G* BEEP n##"*S INK FLASH ?!1A"BIN n!;@" STEP nw`#)NOT )) STEP ▞ INK TAN n*n+ STOP !%+/|M+bk▗{D[A]▗6<>12[I]X22 INVERSE *SCREEN$ a INVERSE "[P]n INVERSE ,lINKEY$772▘7 INVERSE !SIN ! PAUSE $| NEW USR } AND o CIRCLE | VERIFY Bg<>▚ INK _VAL$ 2{# VERIFY 0 INK }o{▝_!:) AND 2:,2!<>1INKEY$ LLIST MOVE INK STR$ 1- OR MERGE RESTORE INK 1[K] LLIST ▖ RESTORE c©?©c``~~©~??`! INPUT ©>W7'*>-Hcs{4;Aogc INPUT I© X:] THEN PI2o] STEP Y[G] CLS v DRAW U!FN a@ RESTORE GO SUB [ POKE / STEP i] GO SUB S<> NEXT OR `J THEN 9>,8 AND FOR NEXT STEP POINT SIN ]y>#NOT /STR$ MERGE OR VAL MOVE $ THEN c GO SUB <>>CHR$ <> INVERSE RESTORE !=yt RETURN ▗<>>< RETURN *`u#~ATN !AVLEN c[H]22uZ` RESTORE ~o&):?[O]~2 RESTORE O LLIST #[H] THEN NEW BORDER /. CONTINUE DIM rEXP REM FOR THEN RESTORE GO TO GO SUB INPUT .[H][K] LOAD EXP / LET M PAUSE RESTORE r NEXT POKE PRINT [H] THEN PLOT RUN W. SAVE RANDOMIZE STOP >= IF O<> RETURN ▛▝ PLOT RETURN IF [K][J]d[I] CLEAR CLEAR Q RETURN CAT OVER BEEP IN EXP COPY RETURN BORDER = BEEP ©[t COPY PAUSE COPY _? CAT VERIFY = CLEAR NEXT [ REM s,USR !▗ LPRINT LIST SAVE DRAW @? RETURN © COPY COPY COPY !▗USR LPRINT LIST D SAVE DRAW ? RETURN OVER RETURN SGN COPY STEP R ;;STR$ ![H] FOR !fs#z=r!{▞PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O}LEN O))TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w GVAL RANDOMIZE VAL$ NEW ?E[Q] CLS #[Q] INK !X' INK <><> INK w($ SAVE COPY AND 0 LPRINT =#HNOT ▝ COPY DRAW x[R]E@ FOR USR yASN vyykTAB zzzSQR /z OUT VERIFY Z{{|TAB ASN |||}Zk}}}ASN VERIFY ~~~kTAB ~©©rX©©USR COPY +TAN CONTINUE ABS <> BORDER BIN P@▘STR$ COPY ▚<=▝@[C]▚?USR © ?▝ OR (x`@X▘STR$ © [A]j▜ LPRINT SAVE DRAW RETURN RETURN ▖[A]BX9x@ TO STEP x9STR$ *©CHR$ USR LIST DRND CONTINUE >=Dh@[SQR ▘-▖▗2USR STR$ Q(>=a` LPRINT P?xp STEP K▝▝<=B▝▘ BRIGHT yM[F]k▝BIN ▟|▝<NOT DRAW LIST USR ZUSR CHR$ pFN ""![T]K-?t>:"!X 5v !R@@ LIST Qo▝A CIRCLE ▝~<=[E] CIRCLE 2RND▘ LIST [A],z@▚. LIST LIST LPRINT LPRINT EIN <=▘SIN Vz▗V{ CAT B READ %▝NOT "`|LN ▝ RETURN ERASE '!/▘m[J]($a[S]USR !ABS LET ▘ RETURN DRAW STR$ SAVE IF ▝|STR$ OR ▗ REM C STEP sHCOS H▘~ AND |(xD PRINT <▘BIN /%▖[Q]RF?<> RETURN E▗u LPRINT USR MOVE NOT STR$ 3▗ LIST DRAW (H▝ DRAW #ABS |n[A]Cir LINE JH IF > (@ a▙.# FORMAT ▝ LPRINT OR e|<x▝▘~ STEP ▚r DRAW IF $ $[Q]FTe|IN 0$ K[F] RETURN [FSQR "IN ▘B8SGN zA COPY ▝8 PLOT +}a CAT STEP STOP 6( LIST VAL [B] PLOT [O][R][R]DRND,}/lz SAVE {<>[A][H] RUN [H]INKEY$STR$ 1[A]&▗E*~V@"!A[E]VAL$ O) CIRCLE +PvQj@pAT LIST ▘ SAVE S RETURN MERGE ▝- Y CLOSE # COPY *BIN RETURN I▝CHR$ CHR$ Z.M▘8|FN FOR "USR "t VERIFY Phg THEN [S]USR RND VERIFY @fUSR ▗▘ AND SCREEN$ [C] LET INVERSE A TO Gwx [U]USR @<=x` THEN INK ASN ATTR [Q]ix LPRINT Zy @ASN VERIFY `[Q]VAL$ USR K> OVER G▖o|aJQGQN)[B]OLgg|G|c]iMGMjGcY>▘ntC ▘QLI[K]/{fU▗yoGf5▖k^sVGGaci[B]j]GZSGWwun_|WVr~▘c/▛|_@Gu$Vuujj[C]▖e/G/gGrq[O]▘TT[T]{^pnUGTfmzieTZG[R]SbGNO OUT G9 COPY COPY INVERSE P LIST CLEAR _6 RANDOMIZE !!©>= POKE >©COS COPY '©© OUT @| RETURN AND P RETURN WO[S]▙%▚NOT 80[A]▜ POKE ??© COPY IF COPY INK W<> COPY 3[P] INPUT v[A]-0_'SQR ccgo{s MOVE BIN g'<< CIRCLE }ZC1 CIRCLE ?~`c CAT /fzSIN U PRINT INPUT ``~~> CLEAR RESTORE /CVAL$ /©?wc_ RESTORE LOAD ?_©s CLEAR RUN 2AT ( CLS DRAW INVERSE IN ▘ STEP /oookon OVER COPY ASN ©g RUN SQR CAT ©}3f DRAW ABS CAT DRAW CLS CODE FLASH PEEK CLS COPY NEW /3©?r RANDOMIZE LOAD LOAD RUN mo INK ( SAVE © LIST _,[D]ffllxx{ OUT /Y GO TO ocwk[A][P][B]_s{© CLS }og OUT DRAW DRAW O COPY 2;[B] OUT ~|nB PAPER [P] CAT [N] SAVE OPEN # LOAD COPY COPY OUT PI$ CAT PLOT CLS _O SAVE w/ DIM TAN kINKEY$ RANDOMIZE ;WSTR$ CLEAR t RETURN ^ SAVE /f`TAB 3 OUT !XATTR NOT LET [U] GO SUB K LOAD EXP [U]( RUN p LET FORMAT NEXT " LPRINT [U]> DRAW 2FN 2 PLOT cPOINT ~#2RND STEP PAPER [U]~2hSCREEN$ #l" FORMAT rSCREEN$ STEP INK [U]"zSCREEN$ RESTORE [D]PI" MOVE [T]INKEY$"ABS "4DpRND FOR ~ AND LLIST ATN (6 FOR +r+s##= NEXT !9[U] MERGE RESTORE RND"RNDgo"FN D" OPEN #0 STEP PI2 CLS [U]=2eSCREEN$ CODE 2NOT POINT ! DATA [U]w# DRAW y2 TO CLEAR COPY > GO SUB yCODE IN )NOT ASN POINT FOR ^#V# FOR FOR IN SIN LIST -G NEXT GO SUB sCOS POINT INK LIST `!45CHR$ CIRCLE RND6#5 PAUSE USR PI! LIST [T]ACS LINE NOT RETURN USR 8[B]0▖8>A[B]NOT RND VERIFY 0a[B] ERASE TAN RND[J]0=2YPOINT [B] | GO TO 2GPOINT og"[P]POINT NOT SQR `32[S]POINT [P]2[T]RND INVERSE F( LET [O]©'[O] FORMAT +▛▜ INK _d RANDOMIZE LLIST ~▜▜25tPOINT #pePOINT INK ▟-2SGN PIIFN >2▛INFN 6[U] GO SUB SJPOINT LEN $lTl_]<2P_ACS XG>$ FORMAT STEP L▗l#"+jb")A@N~=CHR$ THEN INKEY$! GO SUB LPRINT PAUSE oFN CLS BRIGHT INK v INK 2 BRIGHT ; INK cINKEY$[R] INK [ INK [K]INKEY$ INK 7 INK RUN [R]PInl DRAW PIA VERIFY STEP ATN "2 CAT 2 LOAD FN ▞NOT NOT INKEY$(e OPEN # GO SUB [P] FOR OPEN # BORDER .! OPEN #▗v CONTINUE PI OPEN # OVER STR$ PI{▗-2BIN INKEY$ RANDOMIZE ` OPEN # PAUSE %i OPEN #<=] MERGE PIk READ PI2 OPEN #ATN CLOSE #PI CIRCLE INK ]!K( RESTORE 6[C] THEN RESTORE + RESTORE & RESTORE LOAD /= RESTORE 'BIHe>[L][U]NOT OUT LET PI+ LOAD USCREEN$ PI' LOAD SPI LOAD PIe LOAD ;FN aDZ@FN LOAD [S]Nj▖ LOAD V LOAD COS PI LOAD 1w FLASH INKEY$!TAN [D] LOAD ,FN LOAD "%$FN ▞-2TAN LN [R] PLOT LOAD 6o ERASE PLOT LOAD ]FN #k'FN 2FN LOAD /n]! LOAD 6EXP BRIGHT LOAD + LOAD & DEF FN % LOAD = LOAD ' FLASH PLOT Be LOAD INPUT LOAD [K]e LIST [U]-" SAVE 3CHR$ v" INVERSE 3TAB -"6POINT READ !Rk BORDER a5c GO TO RETURN (VAL$ IEXP 1▙SQR INVERSE sIN ZkCHR$ 4y[J][U] VERIFY }[N]FN GO SUB kCTAN ▘CQTAB NOT V MOVE Z▗VAL$ COPY 2p PAPER RESTORE @F!V DRAW PIE]P▝-▝ OUT { RETURN r.'▚▜_![I]SCREEN$ % NEXT < IF 1SCREEN$ _USR | AND XSTR$ RANDOMIZE MOVE { NEW VERIFY o?[P]RND THEN :0 PLOT NEW . REM [U]{8 INVERSE b0 VERIFY QLEN STR$ ( INVERSE o|g" DATA [U]9 COPY i▙VAL$ ©i;i PLOT ,Si FOR i NEW ?! INVERSE ASN Y NEW ) CLS [C]s3POINT s[R]rl NEW lGCODE COPY lH RESTORE POKE lcPOINT l GO TO oPIl NEW <k IF PRINT k[P]k. CONTINUE [U]1k(IN COPY Q LIST GO SUB yNATN (BCB OUT X> GO SUB ATTR =- CLS INVERSE }( BRIGHT PAPER |▟ NEXT !mW[G] CLS <>CODE [S]| INVERSE .NOT INK DEF FN ▘ FOR } PLOT AT NOT FAT % PRINT [D]$SIN CPOINT * RESTORE RNDACS *©ACS G52VAL CONTINUE RUN eSCREEN$ O ERASE NIi#~ RANDOMIZE LLIST T$-* AND `0 INK G THEN OPEN #STR$ SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO U[E] LET SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN UFN [P][G]▙@wpkd^YTOKGB?;85USR /,*'%#!Ec[D]COS 7a DEF FN H▝=b TO H=W RETURN Z[F]?P RESTORE CAT _os CAT [F]-l RANDOMIZE BORDER O RANDOMIZE -3K[N]>_}▖es LET :▝:ce::.c.t8▝8@8e88,c,fr,et6▝666e66@*c*55f5e5p)5)dpM PRINT : LET A= PRINT AA,= LET 6=: PLOT := RUN 8? PRINT 8 LET < PRINT ?▖ OR < LET 5<5 PLOT [B]$9< RUN +76E.*%C3$▛:6 PLOT D: RUN .[B]+75*%<>.99 PLOT `;<g© LET ▘=? MERGE ▘▘< CAT 8▘:CHR$ 35 PAUSE LPRINT @ NEXT LPRINT POKE LPRINT PRINT LPRINT 66▘3 GO TO 5=CHR$ <d}:9:<LN ▜= DATA "INT PLOT `8[H][Q]▞<<Zcka▜??RND=?[A]A$@F PLOT LPRINT RUN LPRINT SAVE LPRINT RANDOMIZE LPRINT RETURN I▘![Q]4=5IN [L]E:BLN zU3 LET [H]3 OPEN #655[D]SQR }*oSIN ** BRIGHT LOAD 2 BEEP OVER 7v1d PAPER 1%x3d[f:Z INVERSE 3030.jA STEP A5?w[R] STEP e0{ BRIGHT INPUT sABS $[R]iATN STR$ 9[H]9I0it©USR n▚@?' IF LPRINT ATN FORMAT ? POKE LIST CLS ▚$fIN FORMAT yEXM PAPER MERGE COPY POKE GO TO ▘]▙▛ THEN [O][P] COPY RESTORE [#▛|k▞_PEEK ▖▜[H]/▚ NEW THEN ▗ INPUT VAL [D] INPUT CODE LOAD SIN [F] NEW . PLOT [C]2}▟ MOVE ▜y RUN c[R] COPY ▜ COPY SGN qSu PAUSE INKEY$ COPY DEF FN ATN {[B] RETURN COPY DRAW 7W[N][E]W-VAL ERASE b INK A STOP [B] OUT [ INVERSE VAL$ [I] OVER [K]U LINE !E$,47:=@CFJMQTWms© PRINT CLS } COPY E< COPY EE DRAW NOT COPY COPY COPY LOAD BORDER [P] COPY COPY COPY COPY COPY COPY COPY COPY 9 COPY COPY <= COPY COPY [P] COPY COPY COPY COPY COPY COPY COPY @ CLEAR >=%]!%] CLEAR ▚[N]POINT T LET ? CLEAR ©[N]INKEY$+[H] STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK <><> INK w($ SAVE COPY AND 0 LPRINT =# INK <> PAPER ▗© DEF FN COPY ▗ RETURN SAVE LPRINT LPRINT x<JUSR ▘ INK xx ERASE COPY USR ©▝?xTAN xTAN INK COPY a▝( LIST <> RETURN LET USR USR LPRINT LPRINT LIST LIST SAVE SAVE DRAW DRAW 0y@▝<=[P]? NEW © FORMAT ▗ LPRINT LIST SAVE DRAW av▝ CLEAR CHR$ SAVE ▝ RANDOMIZE A([Q]▜USR ?Ps?[P] CAT BORDER NEXT HG▝©!! THEN QUSR PAPER COPY G RANDOMIZE DRAW RETURN h!STR$ : LIST LPRINT USR USR !,(>=xGU▘ DRAW LIST @ RETURN RETURN n<>▗""▜ COPY NOT DRAW 0▙ DRAW DRAW SAVE LIST USR LN CLS ▝tzSCREEN$ COPY LOAD © COPY ▞ OR J LIST ▗@FN CLOSE # REM ▘< RETURN ` STOP 2 PRINT ▝CHR$ RUN ▚▜▜0ATN ATN PICHR$ ▜'oO_^]^//A SAVE "<= LPRINT ▘USR USR `▘USR COPY h▝USR *p▘ RETURN OUT ▜ BORDER RANDOMIZE RESTORE 3?SQR c INVERSE JUSR }▝©>=NOT }[M]API[Q] FORMAT USR LIST USR FORMAT ▝ LPRINT INVERSE ▝ BORDER NOT RUN ▝ OR RUN ▖ GO TO IN CLS PRINT THEN e LLIST INVERSE ▝ OUT ▘ OUT OR OUT 0▘USR SAVE "▝?s@tOBIN (8pN"}▝f7▘f< FOR c ERASE (w▝ OUT (▞TLEN ▚8lUSR AND ▛l8IN VAL 0<00IN / ERASE $Y@9▞K DIM ▗ RANDOMIZE STEP TO SAVE EXP ▚>33>USR 0y@ RUN RUN BORDER 9@[S]▜0XEXP CLS CLS IF ▚▚▚ TO x7▗|ff|USR `]Rz INT l@|[A] SAVE TO TO SAVE CIRCLE TO AND CLEAR STR$ STR$ LET STR$ STR$ CLEAR r©©|▘?D0] CIRCLE 5▗▘ DRAW 0USR 1▝0▞▝CHR$ ▝ CLS ] ERASE RETURN ▘ LPRINT BIN LIST 0- CIRCLE ?% CLS x TO [M] TO | PLOT <=<=J▝ PLOT xUSR ▗ COPY SAVE SAVE OR SAVE ▗ FLASH LN E COPY @USR TO ▝ DRAW ▜00VAL LIST pi@BIN | LIST ▝[Q]J▘vnUSR CHR$ 0|▚3`gc3z@"RND90> COPY ▘STR$ ▚6cc©ccR(USR CLS CLS SAVE ] LIST ▗wn GO TO >=▚33Acw©kh@<>w OR }'0▗;wv!E0@▜~``x``~_R▝ READ [▝ NEXT p▗]SQR SQR 2(▘3▝3<><fp8{▜ OUT IN IN IN [P] INPUT OVER FORMAT STOP ▚[[X _ READ ] FLASH FLASH FORMAT ©STR$ NEW ▗. GO SUB INVERSE R@ DIM ▗▘? PAUSE NEXT ▗&T MERGE ▝`=▗ FOR ▘ DRAW p VERIFY m PAPER VAL D:m BRIGHT ? CONTINUE ▝ DRAW U ERASE ▚k PAPER VAL 9▘ BRIGHT +CG DIM ▝~▗ TO i▜$v"8 INVERSE ▗ CIRCLE USR ▝▗< LET |▝ DRAW W[F]/[P][L] LIST LN y CLEAR | DRAW ~PEEK ©?_?[P] BEEP Og+PICOS [B] SAVE ▘ NEXT <= POKE PAPER 6l`g[B]▚ TO LOAD BORDER LPRINT LIST LIST TAN DRAW RETURN x LPRINT SGN S~▞-lB)▘!|a7 LINE MERGE 0/qACS VAL LOAD | LIST ~CHR$ ▘ SAVE SAVE USR LIST ▜ SAVE DRAW RETURN USR ▘ INK H=nh LIST -▝ COPY NOT ▛ FLASH ACS m>| LIST VAL VAL INK ▗ DRAW CLEAR CLS CLS NOT COPY [J]*5▝l, INPUT [T]▝ LPRINT CHR$ ▗//▝ FORMAT ▝ RETURN '▘ RETURN LIST @[ CIRCLE ,[E]USR LIST LOAD SAVE LIST LLIST w|?[O] CAT `©©5CHR$ IN ▞©e>? OPEN #COS INKEY$[H]> LIST STR$ NEXT BORDER CAT CAT [P]??©o LOAD BORDER w/ PAUSE LPRINT LPRINT STOP STOP j PAPER PAPER SQR 3PI DEF FN [K] COPY GO SUB 6 RUN NEXT RANDOMIZE SAVE RANDOMIZE NEXT F▞' RUN PAUSE RANDOMIZE LLIST [N]| RETURN SAVE READ ?? READ 's▛ RETURN SAVE LIST USR LPRINT USR [A]x LIST TO >INT ▗ COPY COPY ?▚ CLS w[P] DEF FN STOP LLIST OASN COPY ▛ COPY COPY SCREEN$ RANDOMIZE BORDER g POKE VAL READ CAT ! BORDER AT ▚ LPRINT STR$ [P]?©G_▗ COPY ©©▗ RETURN DRAW SAVE LIST B~5X@(▜7 LIST IF USR LOAD ▜ CAT OUT OUT [P]IN [P] THEN <=CHR$ COPY ▘)[O]CHR$ ▗7VAL ▖? DRAW LLIST USR DRAW 3[Q]▜©▜ BORDER LIST NEXT NEXT POKE NOT ▚▝ LPRINT LIST SAVE RETURN H=▗[LN DRAW LLIST oNOT RANDOMIZE DRAW BRIGHT BRIGHT DIM RANDOMIZE LET GO SUB CLEAR LET STEP =SQR PRINT [A]©©g LOAD RUN RETURN CLEAR PAUSE qUSR EXP / DRAW LET ▜0 RUN DEF FN COPY xH▗ RANDOMIZE AND 8NOT q▞ DRAW DRAW | RETURN ~ RETURN © COPY ©IN OUT IN `▝USR x=Le▖ READ FOR OPEN #PIO[P]@▝ DRAW CHR$ ▘~▗x RESTORE COPY ▝ RETURN $q INPUT CONTINUE / POKE COPY LPRINT ;[ FLASH COPY ▝ SAVE [I]▘&<=USR ▗© RETURN x RANDOMIZE OPEN # COPY ABS )▘v INPUT 5 TO COPY SAVE xSGN MOVE COPY 1CHR$ OVER 3L▘?xSGN p PAUSE i▙USR 1bSTR$ CHR$ LIST 7[A][F]xSGN ] BRIGHT "▗} BORDER <=▝ COPY SIN COPY ©IN _BIN ▗ COPY DRAW [Q] MERGE COPY MOVE PRINT `&CHR$ COS ▝ LIST BEEP COPY 1xa@p▝USR t CLOSE # COPY _▘ LPRINT ▝ LIST FORMAT COPY ▗©xSGN & DEF FN .. OR ▘O▝ CLEAR bD▝▛xSGN >=[U]> CLS CAT .#[C]IN OR p BRIGHT INKEY$ OPEN # LLIST FORMAT CONTINUE FORMAT CONTINUE FORMAT FN FORMAT [Q]Po▚ FLASH CIRCLE [Q]2D▚~ SAVE READ 04 INVERSE COPY ▘]"STR$ <▘| RANDOMIZE < FORMAT COPY d▝ LPRINT LET NOT DRAW STEP P'V<▝ LET 3▖?7'NOT COPY ▗USR LPRINT LET .USR ▗>xSTR$ COPY DEF FN USR USR FOR 9▚<<USR ▘$p LPRINT / NEW < LOAD 2dCHR$ ▘X▗ BRIGHT BRIGHT DEF FN qUSR <=▚r LIST STR$ [S]?< DATA <=$5 BEEP ▝INT [D]<= BORDER RUN wws NEXT READ NOT [K]ABS IN *[Q] (▚00a; FORMAT INKEY$'[I]▟▙v IF DRAW SGN ABS RANDOMIZE PRINT GO SUB [N]ABS USR SQR ▗INT p LIST LPRINT P(▖?_IN _IN _hLN VERIFY ▝ LPRINT ▗ SAVE LPRINT CONTINUE LPRINT #STR$ USR STR$ 8 LPRINT [T]<= COPY ▝▝CHR$ ▘INKEY$tUSR [O]<<88xxpp LIST ATN STR$ (LN [T]<> COPY ©?NOT ▝NOT ' TO AT ▝y7<zYUSCREEN$ ▝ PLOT LPRINT BORDER LOAD .▘[P][P]USR =USR y▚ LET LET LLIST LLIST a'©>R OPEN # COPY ?[K]USR STR$ STR$ NOT NOT <=<= CAT CAT OVER OVER DRAW CIRCLE ▘ LIST LPRINT [I][A]p BRIGHT RUN DIM POKE SAVE POKE IF POKE IF POKE REM POKE *[C][G]d? GO TO ▝F▘LN PRINT PLOT ▘?©c▛?b1VAL [D]xx CAT > LIST ▝p MOVE OPEN # COPY ▗IN USCREEN$ E▗©| RETURN CLEAR ▗ PLOT >=3<=I[G]▝ RETURN Z;)f<USCREEN$ U LINE ▖ READ RANDOMIZE DRAW SAVE DATA READ .7 COPY d_▘ SAVE FORMAT COPY CLEAR IF MERGE SCREEN$ Ti▘ LINE COPY ▝ SAVE c▚y BORDER "_CODE ▘ LLIST SAVE INPUT CLS DRAW RETURN CLEAR RETURN CLEAR ▖ IF PRINT REM CLOSE #FN P[Q]@WPEEK xE[Q]q? COPY OUT ]▞[I]©CODE OR b1[I][G].,/8x CIRCLE ▝/POINT I}F>=▗WSCREEN$ U*$▘SCREEN$ U%TAN ▝[D]% POKE [C]z>= COPY ▗ CLEAR SCREEN$ USCREEN$ SCREEN$ ▗SCREEN$ W COPY +Gd)/▝}[T]▜ COPY COPY IF PRINT SCREEN$ UFN LLIST PAUSE *W COPY BORDER VAL CHR$ COPY ▝a/▘STR$ R_▝ CONTINUE A.CODE | PAUSE d AND COPY y/▙CODE CHR$ a08,,<XLN COPY *▝ CAT ~ CONTINUE y/y/USR DATA COPY y/▘ NEW COPY y/[A]y/Y/▝T BEEP COPY ▜IN W+[F] LINE E USR 08:;88pVAL `SGN ▜▘~▙tB▝_*B^3 GO SUB TO COPY RETURN LIST ▝ BORDER <= DEF FN ▙▙▟▝NOT BIN COPY ▝ RETURN ?▗ATTR _ COPY &B MERGE COPY ▞t LIST SIN "$dFO%ATTR ▘ CLEAR REM ;▗ATTR _ DRAW LIST U>=o BEEP CLS LET LET PAUSE `adf CAT O OUT [P]IN IN STR$ COPY ▖/^SGN 2]©SGN AND COPY ▝[P]b©?[P]7 OVER TO USR THEN x x x@x@8` LINE ▝@ MOVE H MOVE ▝x/▘{ AND x{▝x H[L]▝0 AT x @▝ FORMAT /? FORMAT [C]0#x;SIN xx;N TO rxX2 REM x[C](xXh<xLEN xxw1%!EXP x0=0"xx@x;P>H HCHR$ ~x[F]0 hCOS 2@ RUN BORDER LOAD LOAD LOAD CAT OUT OUT [P]IN © COPY COPY COPY COPY USR COPY COPY COPY COPY COPY nhUSR 7VAL `? DRAW LLIST USR DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY ©▜ BORDER LIST NEXT NEXT ▝ LPRINT LIST SAVE RETURN nhUSR [LN [Q] DRAW LLIST © COPY COPY COPY COPY NOT RANDOMIZE DRAW BRIGHT BRIGHT DIM RANDOMIZE LET GO SUB CLEAR LET STEP = DRAW DRAW RETURN RETURN RETURN COPY COPY ©©g LOAD RUN RETURN CLEAR PAUSE qEXP [Q] DRAW LET ▜? 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 x COPY COPY COPY RETURN RANDOMIZE AND 8NOT © COPY COPY NOT oASN NEXT GO SUB sb INK "▚b INK ! CLOSE #a[USR GO SUB VAL RANDOMIZE LLIST MOVE STR$ 1dPINOT [ GO SUB LN ` MOVE INK LLIST ; LET INK INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN REM CODE RETURN 0) RETURN ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK OR INK ; LET <([< STR$ AND 0( FOR = INK O INK ) LLIST A INK 8 CAT INK CODE Z) LLIST A RUN RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY LLIST ) LLIST A NEW RETURN 8 MERGE ; LET MOVE !SGN [ INK 1 NEXT NOT @]MsPkmASN hASN 0 IF STEP R` RESTORE r<>>. COPY [D]%[H] COPY @EXP $~ LPRINT BIN SGN $IN :rUSR =p DATA CAT FLASH DRAW BORDER % OUT g<>RND RUN OR OUT COPY $ RUN BEEP ? BEEP MERGE U TO [R]WCODE [Q][B]# FOR ?ACS ©{IN [A]#[S]i?v▙ G-?o/xvB▙ GO SUB F BRIGHT ATN SGN OR 9 TO [N]' SAVE f RESTORE V INK CLOSE #_CODE HUSR LLIST OUT COPY LPRINT IN ? CLS REM ?- LPRINT [F]?S?TAN #USR [P]Z?[J]▙[A] OUT READ LPRINT 3[O] DATA H PAUSE ? LINE RUN LIST c▖ BORDER #"?[M]© DATA ▖NOT sVAL$ USR !>= COPY __> COPY CLEAR PEEK PRINT ?>0ATN ?m_ DATA 2@[A][J]?VAL USR | LET DATA AT PjUSR [Q]r _Hr$D?@ FLASH rI%UC@SCREEN$ ▙?K? COPY [U]99USR GBIN @Orr?? ?G9`[H] ERASE ?y. STOP MOVE ? PAUSE [M]?_P? DATA DATA ??0r/ DIM NEW EXP LET MOVE ? THEN s?_P?1[D][D]??2▜ COPY POKE ▖?<' SAVE [I] FORMAT ?y DEF FN ?_Prr?b?▗"?(qd^[M] IF D$© DRAW L9EXP ??@`9? LET ? CLEAR f[M][M]? TO [H]? ERASE ATN rT STOP VERIFY ASN _8 CLS VSIN PEEK SIN 8[G]ASN D'p??[A]3IN ? COPY RETURN [G]r DATA LEN COPY ATN <> RESTORE VERIFY ?ACS © VERIFY ATN LPRINT TO IN RETURN ©*SCREEN$ FN [G]ASN U DATA [A]QVSIN [G] NEW DATA VAL SIN ~ DATA r?[S]UA> RESTORE r© CAT .O©@USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT .VAL$ n INPUT [O]^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY USR VERIFY ZSTR$ CHR$ NOT TAB ASN BIN OR AND <=Zk>=<> LINE ASN VERIFY THEN TO STEP kTAB DEF FN CAT FORMAT VERIFY Z MOVE ERASE OPEN #TAB ASN CLOSE # MERGE VERIFY BEEP Zk CIRCLE INK PAPER ASN VERIFY FLASH BRIGHT INVERSE kTAB OVER OUT LPRINT VERIFY Z LLIST STOP READ TAB ASN DATA RESTORE NEW BORDER Zk CONTINUE DIM REM ASN VERIFY FOR GO TO GO SUB kTAB INPUT LOAD LIST VERIFY Z LET PAUSE NEXT TAB ASN POKE PRINT PLOT RUN Zk SAVE RANDOMIZE IF ASN VERIFY CLS DRAW CLEAR ^ LLIST COPY TAB CLEAR ZkASN VERIFY kTAB VERIFY ZASN ZkASN VERIFY kTAB VERIFY ZTAB ASN !"#Zk$%&ASN VERIFY '()kTAB *+, VERIFY Z-./TAB ASN 0123Zk456ASN VERIFY 789kTAB :;< PAPER Z=>? FOR @USR ?q FOR ?O BRIGHT K RUN WBIN CLEAR q COPY c BRIGHT ?o RUN O{ CLEAR ▜ COPY BIN [D]?q[P]O BRIGHT ATTR RUN ATN BIN CLEAR q COPY NOT BRIGHT ? CAT RUN O FLASH [P] COPY CLEAR NEXT INPUT © IF / BRIGHT COPY RUN _# CLEAR / COPY OR ; CLS _ RETURN ▛S RUN IN CLEAR k COPY OR w©q_ BRIGHT RUN [L] OR CLEAR q COPY PI DATA ©COS /?O_o©[P]CODE IN CAT OUT LOAD COPY OUT 0@P`p[A][Q]VAL COPY USR FORMAT LPRINT LIST OUT s PAUSE ?<> COPY o CAT / DATA COPY OUT THEN RESTORE CAT . RETURN [P]./^_/#'+/37;?CGKOSW[_cgkosw{©▜▛[D][H][L][P][T]PIATTR CODE COS ATN SQR IN NOT <= THEN CAT OPEN # BEEP FLASH OUT READ BORDER FOR LOAD NEXT RUN CLS DATA COPY CODE ? $(,048<@DHLPTX/`dhlptx|▗▖[A][E][I][M][Q][U]FN AT VAL TAN LN SGN USR BIN >= TO FORMAT CLOSE # CIRCLE BRIGHT LPRINT >= DATA CONTINUE GO TO LIST POKE SAVE DRAW VAL$ ?[G] OR [G]▚ OR ▙[C] RESTORE ▙ NEW RESTORE [G] DEF FN BRIGHT [G] AND ▙: NEW [A]X INPUT BORDER XVAL$ BORDER [E]▙ AND T<=TVINKEY$@ PLOT <=[E]F>=TPEEK ^VAL$ READ TR[S] READ ▙ RETURN OVER ▙R OUT [E]INKEY$ OUT LPRINT Lf LPRINT B[G] ERASE LPRINT <> STOP JR LINE Nz LINE [E]SIN LINE [A] LLIST ▙* THEN [E]~ THEN LLIST L PLOT THEN T& TO [A]v TO VERIFY TO L INPUT STEP ▙N STEP [G] PLOT LLIST T PAUSE READ [E][S]B DATA DEF FN Zb DEF FN ▙[G] DATA ▙ REM DATA L[S] REM L LINE DEF FN M REM [A] IF Z CAT ▙ CAT OVER CAT [C] INPUT Z FORMAT [E]VAL$ FORMAT ▙> RESTORE [A]& MOVE THEN MOVE N ERASE JB ERASE Zj ERASE ^n CONTINUE ▙ ERASE ▝ ERASE ▙& OPEN #▙z OPEN #[E] DEF FN F CLOSE #[E]PEEK 6 MERGE Jz STOP J STOP ^ NEW CONTINUE ^^ DIM [A]VAL$ MERGE [E]R▚ VERIFY N DEF FN ▖ VERIFY [A] BEEP f BEEP ▚ BEEP ACS BEEP R STOP BEEP V* CIRCLE Lr REM J▘ CIRCLE ▙SCREEN$ CIRCLE [E] RETURN CIRCLE [K]v INK L FOR [C] PAPER @L~VAL$ PAPER [A] OVER PAPER > FLASH L2 FOR J FLASH V FLASH [A]f FLASH J AND FLASH [E] INPUT FLASH Zf BRIGHT Lb FOR [E]R INVERSE L[C] FOR NCHR$ [Q]x LINE INVERSE h[G] OVER [E]D▚ OVER COPY ©?W}SQR INVERSE RnD.= DRAW SAVE Z LIST BORDER LIST RUN RETURN /VAL ~v IF ABS Jw RANDOMIZE {IN ▙▝6xSGN ATN LPRINT SAVE /A' SAVE USR COPY Sn[H]©?SQR INVERSE w__ ERASE vo/L7[C]@p|>= LPRINT I@ FORMAT ▟} GO TO CLS s STOP Z NEXT INPUT RANDOMIZE X DATA OVER [L]}VAL BRIGHT CIRCLE LOAD USR |- OUT VAL THEN >;<>_wUSR GTAN #o@3 INVERSE b INVERSE ` NEW CIRCLE EXP PAUSE ) LOAD aw@S@@▖S SAVE # LPRINT USR LIST B LIST * READ LIST BORDER LPRINT =NOT >=USR USR <▝▖USR @B [A] LPRINT LIST [A]B LIST PH!c LPRINT D< " RESTORE LPRINT FORMAT O5LEN A x STOP [Q]0qni{P RESTORE POKE ME STOP pD LINE 6$0 LET INKEY$" COPY [C]&?▝<OPOINT OUT [F]O0 PLOT COPY OSTR$ LPRINT cBA H?"USR [G]▗@RND SAVE RANDOMIZE CODE [O]Py*SQR THEN OMGO[N]GppGpOAT yO LPRINT Os$%%USR LINE DRAW [A] DRAW ATN [Q]@Z_ LPRINT , CONTINUE [K]/USR [R]WX<|88 SAVE PI|-[A]}]F PRINT ▘/k GO SUB $9 GO SUB ▖; BORDER USR USR [A]M LOAD USR LOAD ?G[R]ATN SAVE ATN g▙ATN ` FLASH LEN VUSR TAB OPEN #[A][Q]NOT LLIST dLEN STR$ USR pP CONTINUE LOAD ATTR $5ATN Ha[H]ATN (▝$▘▘@P▝m;[E]ATN LINE e ki IN 0$@IN | LPRINT ^A PRINT `BC DIM >=Fg9CODE STR$ 0K OR NOT [P]IN " COPY ▖▗SIN O/giPOxoO8t@PEEK [M]▘BIN D▗d1?O$DrIUK? LLIST ASN [P]STR$ 3 PAUSE PRINT O0O RANDOMIZE xO/E RANDOMIZE $Y LIST ©[A] RUN A PAPER INVERSE CLEAR C RANDOMIZE "m%▖n RETURN SAVE K[A] LIST ▜gO[C]fO[P]UY;CHR$ [O][P]▗[J][M] RUN %[R][J] INVERSE SQR [T]POINT ASN AT [P]px0 DRAW [E]ATN [F]▙ FLASH CG BORDER [T] RUN .[T]JNOT qTAB 1 IF 8-?oACS )hA{[M]N[O] STOP LIST OUT INPUT LPRINT [I]2K`[L]qG)D▘ CIRCLE 7#© INK [A]" LPRINT #KSTR$ ~[U]9LN ? LOAD k<=?[S]AUSR , GO TO CONTINUE k@PI NVAL COS @ ([J]▛USR (MUSR SAVE $HSTR$ _ SAVE CLS CIRCLE 9USR LPRINT [L]P@ASN t0ZPOINT dASN ©$▗USR (hn!3<© LIST I[I]J OPEN # ERASE LET ▖!▞IN ?USR USR BEEP [U]7 LLIST bG2 LPRINT wg @▞ LIST X# LIST 1%x LPRINT PIOUSR %-<%8>=I'▜USR LPRINT CAT S<=BIN ERASE VAL USR COS ▝ CONTINUE A LPRINT LIST [I] CLEAR ▝H<▖▖> THEN #J>[M] GO SUB THEN STR$ FORMAT L LOAD QTAB COPY QOE▖G LIST y ERASE ATTR DEF FN LOAD SAVE SAVE @SIN RETURN SAVE yoQP3 DIM wATN ▜[R]<>30LEN |>jSIN CAT ABS 0[R]$5TAB .t STEP j MERGE X' DRAW p/ CLS INPUT ##FN DRAW / LPRINT B>=w CONTINUE 0 LOAD Y"▘ SAVE 3 RANDOMIZE NEXT G RUN USR STOP S▟ LLIST *.<;; LIST #w▛<=USR DEF FN ACS <=[K]K ERASE @6*](a=[O]w[K]p"f©c>EI{POINT ~w CONTINUE CIRCLE ATN u▚&~[C]IN STR$ PRINT SQR ONOT PRINT LIST G/A)ATTR EXP 4 ERASE VAL$ @q5STR$ C] READ CIRCLE -c SAVE /d BRIGHT $:RNDS[E]AEXP STOP x? MERGE TO CAT 0[ LIST ▗A[Q]F MERGE [Q]c8nPEEK LLIST ▝ RUN kG?[M] LIST S▙(INT AND p CONTINUE R[P][B]px$@LEN B" LIST Q▝ IF |" ERASE r▗0|a SAVE BEEP SAVE aM<▝R PRINT VAL [N] BORDER )[L] THEN LIST SCREEN$ RC DRAW <=op$USR DRAW aL#2)IN USR <>> STEP STEP USR LPRINT LPRINT 1© LIST ▘+[L]7J BORDER `/sSTR$ [O]-@!USR ▚JG GO SUB *L CIRCLE K DIM DRAW 7|NOT RESTORE LLIST p▖▖▗ OUT INVERSE C INK <> LIST MERGE TAB PI[Q] SAVE xLN ▛ LIST D: BRIGHT LPRINT DTAN USR [Q]^) PAPER { THEN ▗ LPRINT INT YkOZLSGN OUT SAVE ;[ THEN V COPY LIST [N] OR *VAL$ OR [P]w[Kk OVER BRIGHT ATN ?7USR a|>8 xSTR$ P@EXP $▚Ek<ky[E])/S MOVE 9M©[E]Dkn RUN % RETURN © SAVE CINT ▛= SAVE USR ![T] CLS %SIN CAT YtB[F]▙ INVERSE CLS ;3 FOR Y[Q]CABS [A]▗ FLASH TAN COS p FLASH VAL #ATN BIN THEN 7QQUSR INVERSE FLASH [C]t`TAB Ap LPRINT OVER ACS ▜KFN [F]0[U] LLIST 1SGN [J]' VERIFY o©▗$3e8USR LEN [G] READ I^}s INK c| LPRINT ▘▞ASN {xX#l/ LET 4e[D]=w OR &Q< AND PAPER R-k LPRINT [Q]- LPRINT REM LN COPY ([E]IN ▙K READ IN k*IN q[B]▝ OUT GO SUB ▘ PAPER READ E7 PAPER ]F/AJN LPRINT g[A] STOP .r▘ FORMAT k0▜`2n CAT KK; DRAW © COPY COPY V NEXT ▗▘u RUN BEEP SvCOS DATA H LIST ;$_@B LPRINT ▝; <▝ LPRINT <>8!@x+1 CLOSE #x▝'[H] RUN [R]▜[S] FORMAT [R]▜▗Axyx LIST [L] LLIST 0 LOAD |7[H]0 THEN ? CLEAR 0-IN xLEN FORMAT OPEN # BORDER LLIST G([S] CLEAR ABS >= CLS j`8! OPEN #USR RND1*▚-L GO SUB VIG~G PRINT ATN FLASH BEEP { CLS INVERSE n BORDER oJ▘__L GO TO /J'%CODE SQR .*E[H][Q]@/ LPRINT CODE USR <= ( CAT ` REM USR t[L][SQR USR k';▘ LPRINT LLIST [H]FtFN POINT LOAD R COPY =h[T]}eR LIST OASN LPRINT [R]Q[P]4SIN 1I GO TO LEN ©/s[I] FORMAT [Q][B]4[C]"[O]/@ LIST @[U]IN LPRINT LPRINT P FLASH PI▜`EXP COPY '[Q]:z?ASN rAFN 17USR G0POINT C▖(}gl LPRINT LPRINT ][G]SQR [Q]FN y[J]▞▝ CONTINUE `xF(1 CLEAR CLOSE #J© INPUT #STR$ =VAL$ CLS Q[U] THEN CLS W POKE RUN BRIGHT [H]D[Q] CAT STR$ Oo INK COPY cCODE MERGE % CLS !TAB ▜[J]ATN %CODE [G] READ RANDOMIZE DRAW ;# GO TO LOAD LEN LOAD LPRINT LPRINT SQ[E][S]k([E]7QRND%Y RETURN !/}1 BRIGHT [L]USR a BORDER PI#S© LPRINT (PEEK OUT pSQR ASN H/[F]y CLS ASGN e CLS FORMAT %FSEXP DEF FN [B] AND FN So BRIGHT /oI SAVE 0G_ INPUT _[P]* TO LIST c' INK 1enwLN AND IN CLOSE #> THEN D[G]5RNDB8"@*BIN $`[T]USR DUo7 LPRINT CODE ? AND m!▘ih>IN AS▝; OPEN #K LLIST hD_ PAUSE [L] LPRINT / DRAW #[S]a LPRINT LPRINT U LPRINT INVERSE ▗nb/[J]ATN OPEN #▞J FLASH E READ *#&[P]ACS @H- INVERSE ]o[P]; RETURN © LOAD MERGE LOAD OPEN #STR$ ©SQR ] READ LOAD BORDER FOR OVER _G LOAD Ft[L]+ LOAD wtSQR OUT CAT w[P]PI)IN LPRINT GB FOR LOAD [B]k LIST ▟[U]#[F] SAVE $S READ D RANDOMIZE @[N]ABS ;PI9 CAT ;USR IF n;EXP CODE [H])t+{GCODE ▖[N] OUT LPRINT LPRINT CONTINUE [N] LPRINT OPEN # LOAD IF *`pO▖q/ PLOT [F]INT RANDOMIZE [E]bSCHR$ #NOT ( GO SUB GO TO [G](TAB SQR INKEY$_USR YSTR$ u PRINT BEEP PIB_3OJZ;9@ORND[M]`#;>COS ,w[A]1S DRAW [L]P:[T]h▖ OPEN #[N]iUSR USR ▖IN Dm_i! LET IN [Q]ASN BEEP USR sLEN [T] BORDER FOR TAB _:XSTR$ ▘%SQR OR GIN : OR O. CLOSE #p&SGN %`8? SAVE LPRINT [K]L/cPOINT U CONTINUE [P]U[H]©[@[R]#3 CLS i)? AND CLEAR OUT OVER ▚[O]Q N GO TO ▝=(RNDs;)|TAB :H LPRINT [I]J BORDER USR RANDOMIZE i[D] C+ CLOSE # COPY COPY @[R] READ i| DRAW [D] RESTORE ]TFN H>=▟AASN `*.! LINE _ DIM TO qn(h:o_[Q]▝ FORMAT 7 LPRINT LLIST COS } BRIGHT DIM LOAD P SAVE RUN w'USR USR NOT mT▘: ERASE &:RND DATA SCREEN$ INKEY$P PAPER < CLS 0PEEK LET 6ABS LIST FLASH LPRINT > CIRCLE _[N]q<= CONTINUE NOT MERGE ▝$#% BORDER 1▗Qk THEN LIST oEXP ▟Ta0% RESTORE a$ U-BIN ASN l OPEN #[A]ASN c[A]7 PAPER EXP ECHR$ CLEAR 6[J]▚M.kPEEK STR$ INVERSE MOVE AO DRAW GI COPY PI[T] CLS BIN LOAD INK ]t© COPY LOAD © OVER "©p+b~©NOT STR$ |EPEEK i▟ PRINT S#{w2~ LOAD SQR POINT OPEN #sVAL NLEN RUN VAL *_I& NEXT NVAL EXP OVER ' MOVE CLOSE # LOAD Sv OUT POKE STOP AND STEP [L]?ACS [L] THEN K CONTINUE Gm▝ ~X▟▗▘ LIST CIRCLE INKEY$▝]yI CAT )POINT [H]ABS STR$ o| DIM W LPRINT v@ LOAD [Q]Q FORMAT USR USR QUSR LPRINT SIN AND _ THEN LIST :SIN W▖tSQR D SAVE Bb!A▝? LINE USR < MOVE B19 LPRINT Q"K LET g DIM X[N] FOR > BORDER QEcWW[H],Er CONTINUE [C]u PAPER DIM <>u▗ LOAD ? READ ▖▝ INVERSE RETURN QSQR b COPY { RETURN DATA PAUSE 0[R]AT LN ` LIST N[R][Q] INKEY$ FORMAT QNOT LPRINT BEEP LINE STR$ [C]=USR -JNOT [[S]Y DRAW =pY7 THEN *[ TO ▗ PAUSE [D]MmUSR g+"[L]t LIST LINE P▛SGN $ CLS @<>AVAL ▗T INVERSE ▗ INPUT 8BVP PRINT ▜ OUT H$8[F]*8▖[F]kJ▝[L]CODE LIST !▟?'Gz!ABS COS 1 PAUSE +RBh"[Q]k▝+q MERGE [I] 6 DRAW OVER NOT [E]He CLEAR LOAD _`KCOS INKEY$/ul[R]NOT G COPY PAPER Y/# READ [E]E^! LPRINT (7USR ?[D]VAL LPRINT [D] ERASE ▛p CONTINUE [T]9 LLIST [J] GO TO USR % <[R]<▝>FN [R]-STR$ NOT BORDER " OR THEN CIRCLE BRIGHT LLIST @?[B]g/|s7D OUT DEF FN USR USR F>aK OPEN # LPRINT 4 DRAW A[P] LIST >=[Q]{[R][A])16USR SP@ RUN 7`PI) OR ▘<>N[S]▞K*Z CAT STOP u CLS BORDER pACS ▗ LIST 4G_ INK Yu;NOT [D] BEEP 6O CLS [F]P CAT ~s[F][H]s=pKb FLASH © LET R~ FLASH vno THEN S8 INVERSE INVERSE w▜S() CLOSE #wEXP VAL INVERSE I*[N]CODE OUT S LOAD [E] REM (QAT ▗SGN [Q]`▛ CONTINUE CODE EXP DIM ATTR RUN <=[S]▘aBIN | REM THEN USR <=z4RND▝#▟[D] MERGE 4 REM [D] PRINT [T] FORMAT K[O][P]FN #mw[C]▙%o/ABS H<> FORMAT LET ATN [U]USR ASN LPRINT 7| PAPER A RETURN RETURN [C]'SQR DRAW OPEN #fSQR IF GnATN PLOT POKE %▝c GO TO LIST kCOS ATTR GCOS OR EPI7 STEP | DEF FN ATN BEEP w CAT BRIGHT [H]-T▛PEEK {f;O RUN RND+ CLS SAVE 0 SAVE LPRINT BEEP [F]ATN RETURN DEF FN @9ATN S'[Q] LIST LIST '[F] REM SFj+ CAT g-'1Rb0np8= CLOSE #xUSR pQA LIST [I][A]PI%! NEXT Q▝$ab[R]# LPRINT i▝8 LOAD GO SUB CLS [F]- GO SUB ▞▞[G] MERGE _@RND OUT X▞[T]ACS dk[C]ABS /a"F▝0 COPY `buPInGX/w{ BEEP ;{P|#1▜>PEEK oINKEY$'▖▞USR B SAVE LPRINT [A] INK [G] REM FORMAT SQR LN pqjNOT [B]>= NEXT [M] PAPER <USR "t©A[A][U][S][B] AND JE@ IF !#?ASN PI LET g3. LPRINT ▖▚OPI[I]<=a_USR READ STR$ FOR u@0J[U] SAVE ▛}▘ RESTORE %CHR$ w ! CIRCLE THEN kSQR THEN .:g RUN IN |[U] VERIFY CLEAR <=p( ERASE ~[U]`T CLS [J][P]@ LET USR S DATA CHR$ au©L SAVE GO SUB M^PEEK <>7[T]CODE kX SAVE ATTR m CLEAR NEXT OVER LN wwLw▗ AND ▚AT INKEY$QwpCOS ' LPRINT ▝"i OPEN #>= CAT ATN MOVE FORMAT OR cPEEK <>[G]I RUN ERASE kCOS [R] READ BORDER LIST S?T/}([C]IN U CAT Iv CONTINUE FN hATN OUT A= CLS SQR <[B]"y PRINT `Q CLEAR BIN X LOAD IF 4[Q] GO TO NEW INKEY$'NOT BORDER :[S]USR TAB x LPRINT AND SQR [P][F] THEN [D]pj READ LEN 8▝ OPEN # TO [R]wATTR LEN >=+7POINT J7|MGCHR$ FOR CLEAR BORDER ERASE LEN RUN >=.o RUN USR ▞VAL$ t PLOT [H] LIST ▘▘ READ FORMAT < DATA NERND>=USR G9▗j[U][F]X[C]: ERASE INKEY$% DATA [U]ap REM LEN @▛VAL 1 PLOT READ Swa INPUT COPY k NEW wCODE IN LINE CAT POKE ▞t[P][J]b OUT LIST [H] LOAD VERIFY ) OR PI BORDER ▖[R]S SAVE ▖ AND & LPRINT LPRINT LEN ` LPRINT _[D]TwNOT 43 COPY [P][A]N INVERSE LET w[C]v7F'4[F] CAT 2)e{;[A]u STEP 7 INVERSE NK NEXT Y▞ RUN MERGE SAVE W READ |Q DIM 8P©▜CASN COPY CLEAR [H]VKBuLEN K RETURN OPEN #RND CLS CLEAR OY▜L[T] MERGE `D"k7USR wSCUSR [D] LINE (# FOR LVAL$ !USR LIST LIST QBJSK▘SCREEN$ REM XBpCODE A&!wM<_R[B]8LEN LPRINT STR$ CODE LPRINT F3R=[P]USR )5*% CONTINUE B FOR [L] MERGE COPY | FLASH ▘L[P]_m PLOT [P]V THEN [P]] BEEP LOAD [P] LINE RANDOMIZE [P] FORMAT FORMAT [P]▖[Q][P]ATTR PAPER [A][P]RND▖:r[P];[P] NEW ©[P]?vATTR P▝STR$ SAVE OUT LOAD VERIFY ▞3 LIST L1}[P]! FOR INVERSE RUN = CLOSE #ENOT OVER ▞ LINE # LPRINT USR # INPUT F[I]AT O RETURN [J]ATN 2/^^CS BRIGHT [POINT SrI9M@( GO SUB S_SQR ▜EXP > LPRINT LPRINT PEEK K}<= LPRINT '2 OPEN #/▖? OPEN #RNDS LLIST QK▗FUSR USR COPY # FOR [L] COPY ;!LN 5;7 BRIGHT INVERSE %2 STOP 8 VERIFY INT TO 0AS CIRCLE [A][E]W? RANDOMIZE CIRCLE #KATN S[R]NUSR a MERGE ATN SG ERASE [S]EXP G7IN > BEEP IN 6d PLOT _/ RESTORE __Lj OR ATN DIM OR [J]0 AND ~Io[P] CLEAR x RETURN THEN ~kGx DIM CLS GO TO 'I#<= PLOT CLEAR ;#<©/# LOAD CODE +S OUT _xS INVERSE PAPER ; COPY cN OPEN # DIM K0 LPRINT g? PAUSE DRAW :6!yVh13 VERIFY VERIFY LUSR USR BRIGHT > CIRCLE [I] LPRINT LPRINT (2#@ LPRINT rINT OUT m LPRINT [R] LIST USR LIST ATN ▗Y_SGN SAVE LPRINT [Q]~ DATA LPRINT INVERSE T[F]LN Ox CAT INVERSE MERGE ▘COS VAL [M]Tg LLIST INPUT CONTINUE s GO TO TO >= LLIST g[E]O/ PAPER STR$ + COPY LN pDUSR ? LIST TAB J`F[H] BRIGHT >[D]INKEY$[M]NOT BIN ©[C] IF O'W3)_5 LET IF [P])<[J][N][J]/vuPOINT [J]4X[A]gFN ) DATA FLASH POKE ^EXP W!_x?m4IN ' OVER g LPRINT J[P]IN !JD▖OUSR /[E] OUT GO TO [O]zW$USR VAL _ THEN [F]eY BRIGHT [C][Q]XEXP IN [F]Pgs[F][F][D]'i FORMAT ATN TAN [F]}▜ CONTINUE ▜? ERASE VERIFY 4_ CLS V[G]SCREEN$ %[0 SAVE [<=}CODE BRIGHT i/'/ NEW DATA -/USR /EXP VAL$ e[B]FN Q[N]LN q©f[H]FN +ATN ASN <=E_ASN SIN [▟m?TAN GO SUB [Q]/ CLS VAL /ACS SQR 9)_/ CAT ATN USR COPY [A] FOR g NEXT +aS$P LPRINT 3<pp<*~!x^?LN >=]USR "m REM ASN /[L]` INVERSE CODE { LOAD INPUT RUN h/ LET READ UqSIN LN ]▚?0[N] REM " BEEP CAT LLIST *3 STEP CLS !g DIM OR VAL SIN STR$ [P]qT LINE CHR$ CLOSE #[I] MOVE =[D]o^[B]USR [F] LIST NEXT ▝7W?# OR @{ PAPER AW. #%/USR )CODE CIRCLE [H] LPRINT CLEAR COPY ] FOR ©▖j FOR LPRINT SQR [J] FOR LN TO FOR PEEK INK COPY @ FOR <>w BEEP BEEP STEP %RND LIST LPRINT k▟ FORMAT LPRINT [D] LPRINT LN Z DEF FN 0 PRINT VAL$ POINT 7y IF : COPY [L]CHR$ IF TO DIM SCREEN$ :I5kWATN a[Q]:T<>ATTR cABS USR OUT LLIST FOR IN < FOR '/VAL /$<r LPRINT INKEY$ CLOSE #_/nW_g REM VAL$ TAB [" LLIST OVER GO SUB 7 SAVE NEXT LEN [J]/'/©FN %-!g7[S]USR USR © LIST FN ▗[E]Vo GO SUB [C]3?' FORMAT w[H]©OSIN K NEXT :USR ©W| RANDOMIZE PEEK IN E4 CAT IN [J]N NEXT OUT [B]M[A] LIST RESTORE ^CHR$ ` LINE ERASE PAPER ` STOP "" NEW REM INPUT PLOT D RETURN a&.6a▖▖>JVbnaz[K]INKEY$"SIN CHR$ a DEF FN STOP " INPUT RETURN bDD".:FRb^bfv~[S]VAL$ VERIFY STOP INPUT &D *DD2:BJDDRZbj▖rcz▚[C]▝[O]SCREEN$ cACS AND VERIFY STOP INPUT RETURN cd▖d*:F▖▖R^jv▖▗▘▙d▞[S]▖▖SIN INT ▝▖ OVER REM *e6FeVe' CLEAR [H]/I<>-(kk [U])Z;'CODE BEEP THEN [H]d RESTORE $' !!)O COPY L! COPY INPUT PKk!M RETURN .Jz©N;ATTR *+' DRAW ?u▝'#!"# CLS &G COPY +#(@ PLOT g65 SAVE j CLS 3V!%0@{, RUN RETURN / RANDOMIZE - IF .<>j CLS NEXT ='>!O FORMAT FN @_ RETURN ?# RETURN [Q] MERGE <G:V RETURN CLEAR U SAVE :o CLS Z PLOT X CLS Y POKE B CLEAR RETURN A RANDOMIZE T!' IF /7ATN ▖m='IN 4 FORMAT LINE GC CLEAR |Q CLEAR 28[U]); COPY CLS @ DRAW RANDOMIZE =▜1 Q DRAW B' IF Q'5D! CLEAR ATTR E GO TO Cce OPEN #>% COPY hSQR ATN pKo DRAW G' DRAW F#HGc RANDOMIZE d DRAW f RUN j IF i SAVE k CLS q DRAW r RETURN >=" CLS s)▛ OUT %[H][Q]' RETURN = RETURN SCAT ASN I{s|[W DRAW TPI/ RETURN ]|]FNOT ;;wLN ; LLIST ;;LN NOT ; CLEAR ;x+};▙>C; OUT LLIST ; LOAD LIST ;w SAVE ;??[B] SAVE ;x%(IN CLEAR g6IN [T];[P]D;x'C DRAW ;x DRAW RETURN I NEXT ;)?;?%O▘;9) RETURN [S];9 IF ▛;w|$;x)};;'/ IF ; IF (;t RETURN ;;;; DRAW GCHR$ $;;; LIST Ot<=STR$ [D];t SAVE ? COPY IF LPRINT ;/ RETURN ;;CHR$ ;;▜ LPRINT g*;; RETURN I SAVE +b▗/? COPY COPY DRAW ©g OUT SAVE ©SIN s COPY ;hqIN 0ABS E LPRINT OR |USR LPRINT d OUT 2SCREEN$ SCREEN$ AT LINE NEXT LEN AT COPY RETURN PAUSE J COPY 5UU'L MERGE P@5LEN COS ULE0FN LINE ATTR PAUSE 1CODE [N]ABS q RETURN " CONTINUE Q COPY ? MERGE S DRAW PRINT INK 7-Oi INK PA??*[H]h-2-AT [C] GO TO BRIGHT ATTR TAN TAN ?*5 REM [H]-+? COPY wi©SEXP ?*~ DIM -AT USR [P]_ CAT ? IF ~ NEXT ?AW?P|?Y?gonp? RETURN >=SCREEN$ ATTR | FOR m©SCREEN$ p? OR PRINT w-?i CLS ? GO SUB AT SQR PLOT COPY ? GO SUB RETURN ? GO SUB L BORDER >1<>©?FN GO SUB s?q?=[S][P]USR 1uO1[Q]? DRAW INPUT DRAW RETURN | RETURN STOP RETURN DRAW } RETURN PAUSE ?CODE LLIST © RETURN RETURN REM RETURN [P] DRAW ©@[Q]IN INPUT INPUT LIST LPRINT 8 READ 8 INPUT LLIST [R] RANDOMIZE IN LET @ PLOT COPY SCREEN$ AT < DRAW |INT #H FOR :&USR p0{[T]1" LIST [R]Pb OR } LIST ©o[G]} INPUT INT ▜ LOAD IN | CLS RETURN " NEXT X OUT 8 PLOT <=| POKE ? CAT O_ ERASE 8[U]}2[H] CLEAR C@ GO TO FLASH C LIST @@STR$ 1? LET VAL 67 RESTORE - DIM CLS .~ 8 DRAW CLEAR GO SUB o INVERSE BORDER ABS LIST { CLS COPY RANDOMIZE COPY USR +AT AT LPRINT LIST Io SAVE / SAVE DRAW <D=T BRIGHT / DRAW w DATA LIST CLEAR G LPRINT [M]<= LET NEXT BORDER SAVE NEW NEXT ©" SAVE RETURN RETURN [N]>TK~USR [N][G] RUN ? CAT ? COPY ? CLS [P] NEXT CAT BORDER LPRINT ] DRAW COPY W COPY AU RETURN G RETURN F1 COPY 6ZTAN N0o PLOT ?[C][P]z[O]/ PLOT gNOT C RANDOMIZE IF SAVE COPY LOAD ▛ GO TO >yCOS uCOS GO SUB BRIGHT GO SUB IN LLIST [T][L] FOR [S]▛Y[T]SQR CLEAR SIN }ATN EXP [Q];CODE +[L][Q] OUT FLASH H NEXT o FOR BORDER INK SIN ▗USR SIN uVAL$ [L] INK IN CLEAR _: CIRCLE FN ( BEEP CONTINUE GO TO 7 LOAD RUN k VERIFY RUN LOAD '0[M]""EEAAIbCHR$ [N] DATA LIST F LPRINT LIST CONTINUE { INPUT CLEAR CAT COPY [P] COPY IN X RETURN qm TO (q[N] CLEAR CODE OUT ~<>| NEXT RANDOMIZE CLS GO SUB LPRINT [A]+L CIRCLE g[O]3 <[I]y OUT NEXT TO BORDER BORDER © RETURN #NOT LLIST !@▝USR [M][S][S]SCREEN$ *[M][M] RANDOMIZE CAT CLS LOAD y CAT @▝@`5V DRAW <O RANDOMIZE BORDER NEXT NEXT BORDER " IF FN LIST BORDER SAVE OUT DRAW LOAD DRAW /hl`IN GO TO [P]TAN _>x DRAW = DEF FN PEEK ATN ▖SQR IF FLASH CLS BRIGHT COPY VAL OUT | RETURN [P] CLS =k[J]USR NOT GO TO COPY GO SUB USR LLIST ? DRAW COPY C COPY FN COPY T?SCREEN$ AUCSCREEN$ FN UTATTR COPY @COS *CODE COPY C? OPEN # INK STEP m/3ABS SAVE COS STEP g NEW IN CLEAR LPRINT 4, LET ABS ABS RANDOMIZE [P]|>80>=h LIST G STOP OPEN # THEN CIRCLE !@ LOAD RUN REM RETURN ©▖▖ INVERSE BRIGHT IN wt▖, SAVE 8SGN f>[H] COPY ATN INPUT ABS LPRINT OUT TO ©[O]?LN ?INKEY$©▚©VAL © DRAW ? LIST [P] DATA CAT INPUT HD"KR[ PAPER >:@`xPEEK LN REM <|~8<s[I][I]USR ▖P[B]aa?▟+o`)o PLOT LOAD vGw<x© GO TO PUSR ?}o RANDOMIZE d CLEAR n CLEAR , COPY DRAW PEEK =IN =EXP CAT CLS OUT GO TO ▛u!TAN COPY USR db LIST READ GUSR NEXT O LIST ;▗USR /88$X, RESTORE N MOVE p;/`DB?XO@mNOT STOP COPY IN ; PAPER VAL$ 0g' CLS @h?SQR @ RUN RND▝ PAUSE @ RETURN COPY SIN USR VAL l OPEN #? SAVE B LLIST VAL ▜ INPUT y▘Q COPY LLIST [O]▘ COPY STR$ 8STR$ A3`▝SGN :(▙ PAUSE LIST T!p**Tp LET INPUT ( READ <=XE REM ATN SAVE OCODE 1 LPRINT .R[F]> REM ▝|~~K[H]LN © INK ACS 11▞w.'POINT G▞ VERIFY s94' LPRINT /IN FORMAT x(; RESTORE ?ASN 5A/NOT IF pGB OPEN # INK $ FORMAT PAUSE R CIRCLE STOP SAVE PAPER LINE INKEY$▜ CLEAR REM FLASH PAPER _IN Q COPY BIN . FLASH GR% COPY TAN Po%▚ LINE IN CAT [E][F]LEN : BRIGHT CLS RANDOMIZE FOR ©FB REM BEEP CAT CC}.CAPOINT INPUT |X[Q] LET |8x8 RETURN |$ DEF FN ~ DRAW LPRINT DRAW 6 DRAW ) RETURN [C]Ke LOAD "DeCLEN STEP D RETURN LPRINT SAVE CODE PEEK S LPRINT ABS {7u INVERSE PIuoQ OUT no SAVE &0 CLS ABS !Q1 GO TO ATN aE<> STOP GO TO vo CLOSE #PEEK >LG?/l8 LOAD {I@GVAL VAL$ o8pa@ PLOT 00 AND 8??|l9of= POKE ? DRAW <© COPY |© LIST ` DRAW ? CAT [B] DRAW IN SAVE < COPY VERIFY SIN CAT ATN -SIN y AND 8; CLEAR AT Z, AND > LOAD LPRINT [U]B[L]_ RETURN _▝ COPY _a COPY _ COPY _ RANDOMIZE OUT RND MERGE _m@RND_ COPY _yB RANDOMIZE RETURN _9 LIST _ RANDOMIZE RUN _m VERIFY AND > LLIST _ COPY u POKE CLS dpx|><<>|[U VERIFY _ LINE O CIRCLE _ IF o PLOT +}B <> NEW CLS NOT }@? IF PLOT N[A] PLOT ]/ SAVE p{q OR o SAVE _ ERASE + COPY POKE <>}} POKE GO SUB SIN @`q/> COPY IF <>_CGQ COPY IN LIST TO CLS [U]?CODE OUT >=©IN CAT OIN ? LOAD ©IN CAT INPUT COPY © RETURN CLS COPY RETURN P`q POKE ? OPEN # CLEAR ©? LPRINT STR$ KIN COPY H MERGE g ▗ NEW [P] RANDOMIZE IN CLEAR %#BIN `I]INT @! INVERSE SQR LINE STR$ R MERGE ATTR @*BA READ <=C COPY VAL $[E] RETURN ©<= READ GO SUB * CIRCLE ▝[E][C]3 TO 8 LET SAVE NOT NOT <=NOT LPRINT USR READ LOAD RUN USR NEXT BIN !#USR PAUSE =@ LET LET g@ LPRINT USR INPUT RUN INKEY$ GO SUB USR ▘ACS A > DRAW LPRINT SQR FORMAT FORMAT LIST SAVE CONTINUE >=B▗ 4@SIN ANOT LPRINT ▚ LLIST 0[Q]F STOP CLS RUN ZASN CONTINUE GO TO RUN RANDOMIZE [T] COPY IF BEEP LPRINT LIST STOP b▝[P]? VERIFY © LOAD LPRINT LOAD LIST TAB E SAVE OUT IN ©[ INVERSE h LOAD [H]?>= BRIGHT OJz OUT WGGWzJ4 BRIGHT JBB;J LIST COPY CLEAR UP |?@SCREEN$ IN COPY COPY DRAW COPY S; REM SCREEN$ > DIM [T]UW)K PRINT Uh LPRINT t NEXT FOR GO TO GSCREEN$ , CLEAR CODE @ RETURN v-SCREEN$ FN RUN ▜)U BRIGHT IF FN k COPY MERGE T@wUSR *ATTR 8[F] LIST *VAL lSTR$ LLIST <=VAL Iws~ BORDER e OPEN # SAVE 1STR$ ▘▞<= RUN p_▛PI~C OUT USR ▚©? LET [Q]lX<~KU LOAD 4© RETURN [A]|?<POINT PAUSE ▘|[O]/ LPRINT ?!VAL OK}yU© LET O@h GO TO NOT LLIST 6[B]M PAUSE ?s STOP PI POKE Nl`>▝USR 7 RESTORE FORMAT CLS [A]IN IN GO TO y OVER ▜COS - DIM >LY© DRAW ~~?USR [P]TAN uCOS [M] CLS [D] PAPER CHR$ RETURN GO TO _ GO SUB [S][S].~. GO TO [P]USR COPY >|?[P]>x BRIGHT GO SUB SCREEN$ * FLASH } 8 OUT LPRINT AIN DRAW IN LLIST ;? RND DRAW LINE COPY c RETURN ~= DEF FN [T][M][M] CLEAR RANDOMIZE ATN _BIN © CLS _PEEK [L] FOR USR ▝ GO SUB ©ATN [P]? DRAW _ [P]ATN ▖[S] RANDOMIZE CAT o INVERSE IN NEXT COPY SQR IF CLS LOAD BORDER ABS w BORDER NEXT BORDER RUN ' RUN READ LPRINT >= FLASH CLS ▛Yy CAT LIST { INPUT >| LIST BRIGHT [T]@▝STR$ | CLS COPY [P]w▜VAL o? RUN [P] COPY OUT SQR Q CLEAR @ RANDOMIZE LLIST <=<=wp[D] LPRINT IN SIN }H CONTINUE LPRINT © LET <=IN ) DRAW ATN EXP `=0_[ RUN q<=@ LLIST _A[Q];5▟ PLOT V[P]RND RUN ?CHR$ LIST ▖▚[P] CLS CODE [L] LLIST STR$ ] BEEP [D] OUT ©NOT F OUT [Q]<KSGN :H[P] NEXT [P]s LPRINT OUT FLASH O RANDOMIZE RETURN _ ERASE w;!_H NEXT SIN C SAVE [P]K IF [P] LIST &_o FOR [G] OUT BORDER INK ATN VAL$ [H] MERGE MERGE [D] GO SUB ACS IN CIRCLE FLASH BORDER | OUT & BORDER SQR CLEAR [J] OUT C CLS RUN _[Q] NEXT _$$ POKE " $$D".4"▘X.vA|JU CLS +$A>i$aR CIRCLE [D]'z+;A%"Oh)>RYYRND}BY STR$ v;▗%H4 OUT OUT CLEAR CLS [A]?© LOAD LOAD @ LOAD LOAD RUN RUN RUN RUN RETURN COPY GO SUB s INVERSE >=1PIWX PAUSE USR MERGE [A] RETURN INPUT ▛<>! PLOT ![0W_[Q] INK PLOT RESTORE Xw,t DRAW C LLIST vX LET (<> RANDOMIZE LLIST |ASN (STR$ MOVE THEN B{;"<>% STEP RANDOMIZE ▗< CONTINUE GO SUB {1STR$ !PI THEN THEN 0 THEN zCOS LOAD <> OR MERGE ▜VAL MOVE STEP P<>STR$ NEXT <>z NEW USR { AND _ CIRCLE z VERIFY VAL +W<> CLEAR ▟ CLS v@[G] CLEAR RESTORE MOVE '<>~ATN >=G#^#V# FOR STEP x LINE FOR LIST !▝<>2PI<>OE~!TAN CHR$ ATN (!SCREEN$ CHR$ =(@![G]CHR$ >[Q]CHR$ FLASH NEW 2[F]CHR$ F FLASH RETURN #INKEY$ iyCOS O THEN ## LET y>© CIRCLE NEW USR > RETURN CODE STEP ? <>: RETURN >=>@ DIM RETURN !#& CLEAR FN CLS AT LOAD OUT "IN &©&&[! LET / COPY 2! LINE OR N#[S]y`[T]( THEN ;@Dx PRINT NEXT FOR ▛!w#q-#sSTR$ <> RANDOMIZE FORMAT z AND RANDOMIZE }(o FORMAT |g<>( AND W{ VERIFY USR OR MERGE RESTORE RESTORE o]]T)PI GO SUB R-LN MOVE GO SUB s[P] LINE RANDOMIZE FOR MOVE s$r$ RANDOMIZE [Q]| LLIST , MOVE d FORMAT r CLS 0.`5-INT - CONTINUE -" OPEN # LINE !▖),0 MOVE r-7 POKE ?@h PEEK LOAD HBIN IATN <>yH PRINT CODE h RETURN LET LLIST OG THEN 8CODE VAL (6 COPY CLS INVERSE !9 THEN yLEN O INVERSE INVERSE ~w LLIST OR RESTORE [T][C]? GO SUB [Q] LLIST $E REM <>USR LPRINT LIST SAVE DRAW RETURN ! FORMAT ▖~~ GO SUB SE THEN VERIFY q|` FOR STEP VERIFY VERIFY STEP t OUT STEP _<> STEP INK STEP [J] OVER STEP KQ FLASH STEP @▖ STEP TO STEP NEW Z DEF FN @LEN TO >=FN THEN CODE 2 STOP STOP STEP READ STEP !# LPRINT STEP | DATA GO SUB 0"( LLIST TO ▛!U THEN :} LPRINT = ACS ##=ACS (:Y THEN ATN LINE ▗ THEN `▚ INVERSE : NEXT FLASH ATN "!O THEN 4 THEN [O]NOT ▘ POKE [!R~ RETURN PAPER STEP © LLIST STEP " OVER NOT oD FORMAT 6=CHR$ !PCHR$ l THEN STEP OUT OUT / DATA 2F N POKE <2522 DATA REM <> COPY [B] COPY $_CODE 6SCREEN$ 6>H@2INT >2 RESTORE LPRINT f~ 2 PRINT / PRINT ! TO DATA STEP [L] TO hG!-< GO SUB 3KG DATA MERGE INVERSE LLIST INVERSE +/ INVERSE ~ STEP LIST INVERSE wNOT n LLIST > STEP RESTORE STOP NOT ` BRIGHT `@[Q].BIN CLS iv NEXT ▟ FORMAT 4 STEP VERIFY CLOSE # STEP "[M] LPRINT STEP PI3 STEP STEP OVER ?"" NEW K INPUT W PLOT CLOSE #NOT c STEP . IF "^NOT !`@NOT " AND ! LPRINT `BIN "VAL LN OR ""[Q] AND AND 2J! STEP 12:.=BIN 8:" GO TO !BIN :([U]▜1 OR :▝:2q STEP <> LINE [D] STEP =a MOVE MOVE LLIST STR$ ▙ FORMAT CODE xLEN LINE [I] DEF FN STEP [I]NOT p STEP K GO SUB {/d[F] DEF FN RANDOMIZE FOR x( LINE VERIFY STEP DEF FN NOT L DEF FN FORMAT MOVE ~[T]SIN w$|[Q]CHR$ TO STEP }▝o PAPER | VERIFY g=CHR$ ~$ PRINT =8<>ATN IN (,.-COS DIM 4 DEF FN 4 CAT RESTORE 4 INK 4 THEN ?:@B PAUSE EXP @@ CAT sF INPUT PAUSE LL[E]|LO DEF FN <>%CHR$ USR DEF FN ! OVER K STEP 7 CIRCLE DEF FN COPY COPY SCREEN$ SCREEN$ `LEN ! RETURN ONOT ▟ STEP !`sP GO SUB s GO SUB DEF FN PI COPY RANDOMIZE h$W|21 CAT y2) CAT x2[Q]t- CAT }oPOINT `~2 CAT [E] FOR FOR AI:C CAT RANDOMIZE PINX CAT = LLIST STR$ }2= CAT ▗▘o▝gz< CAT :=g*I CAT U h STEP SNOT CAT GO SUB {:<>_" FORMAT z2 LET k STEP s CAT STEP [H] CAT NOT ERASE OPEN # STEP # MOVE STEP STOP FORMAT NOT " FORMAT LLIST [L]<>vuKu NEW USR <2NOT CAT ?2SIN !uABS "ASN FORMAT <>:B RETURN [Q]/0 GO SUB K<[B] FORMAT k▝&<> VERIFY [P]o▗[F]M LINE q CAT PAPER 4 STR$ = LINE CLOSE # CAT )=4() GO SUB [AE>H[P]28J FORMAT NEW >==*TAN @^NOT GO SUB SK rG:D THEN ? STEP ERASE !4H<=~[N]LM0[B][F]oPEEK CHR$ ▖ THEN 9iUSR 8T RETURN @8> RETURN `8( RETURN 8G FORMAT !@ INVERSE 4 AND CLEAR ! AND >HYhHASN `6k#-[Q]@$}#P▗ AT ]G▙#INT <>2 PAPER FORMAT 2 STOP FORMAT =2 MOVE " MOVE GO SUB C! MOVE INVERSE n INVERSE f.w#>=s#r#K DATA :EXP @ CIRCLE AND INVERSE u&t CLEAR _4)4 RETURN 0 FORMAT +7 VERIFY OASN &[B]6,( MOVE ) FOR ;= STEP LINE MOVE /;@md IF FOR JP>>NOT FORMAT !>=!USR ] GO SUB G *^NOT STEP A MOVE USR HK;FN LIST ERASE GO SUB {<?vWt(# NOT INT MOVE MOVE Kw,J# PLOT READ `" FLASH {6<> GO SUB S▟ MOVE RETURN GO SUB BEEP 6<=,INKEY$<R RETURN }< PAPER # COPY 9 CAT ( BRIGHT SIN L ERASE SAVE BIN BRIGHT (/LEN % CLOSE #h ERASE RANDOMIZE _Px▜▜ AND uG{ LINE / ERASE n ERASE NOT CLS ERASE CLEAR ASN PAUSE MOVE EK RETURN IF RANDOMIZE S▚SIN Q2 ERASE &*TUSR LIST DRAW O!k ERASE Z-2FN ERASE 2 CIRCLE ERASE /2[U]TAB BEEP BRIGHT TyUVAL$ }[L]-J# OR NEW ?O)LEN RUN ATN ACS LOAD NEXT tASN ABS t53USR OUT o3?3TAN LOAD [D]▖[A]? THEN d ERASE A OPEN #2D▖`[A]CODE OPEN #[C]=9D/[E]COS OPEN #&[C] BORDER [I]DATN VERIFY ! OPEN #[T]NOT VERIFY CODE 2H CLOSE #▞▗[S](y2 INPUT OPEN #d▝ RETURN LPRINT 0.2 CLOSE #▝ RETURN ! PAPER e CAT >-> VERIFY CLEAR CLOSE # LINE MERGE CLOSE # PAPER GO SUB FN D▝▜▜2[K] CLOSE #&MKCODE 0<!3<GX CLOSE #q CLOSE #:$P[A]2c/ STEP LN .FNOT B/(-c_= [A]G▞IN OR jC8[Q]d CLOSE #%R>[U]W:B▜, CLS 07NOT k RUN ▞7,PI([B](:[E]_[U]t PLOT /$ MOVE ▘▘[F]NOT A MOVE RND RESTORE OPEN #(^e1d LLIST [D]<>! AND :DCODE >=!VAL "<=:LEN >=:COS >= GO SUB s MERGE RANDOMIZE 2c MERGE FOR & MERGE = LLIST MOVE STR$ ▛ MERGE MERGE ! MERGE 1 STEP +NOT [Q]{)<>x LINE ; MERGE ^POINT `▜ MERGE NOT ACS MERGE @e~z NEW CHR$ XINKEY$<> MERGE CLEAR PAPER ▘N LPRINT ▟>▖l2"IN !ATN v GO SUB FN z(▝ RESTORE COS ((aINKEY$ RUN (*-.VAL PAUSE INK ..© RETURN . PRINT OUT 02 READ RANDOMIZE GO TO 2J2EXP 2 DATA AND INVERSE !CODE >= STEP 6 VERIFY ![E] LPRINT GO TO VAL `BIN <={SGN LEN -(-SIN * REM OR >=0BIN COS >= INVERSE 62D VERIFY ` GO SUB s▝ VERIFY RANDOMIZE 'ATN LINE 1X VERIFY ="i VERIFY LLIST LCNOT D&D)`INKEY$N FOR v AND [COS MOVE (STR$ q#p# INVERSE 4NOT C VERIFY COS _<>JH PRINT "A CAT LINE H[K] NEW P AND P*# FORMAT =$▖ LPRINT COS PEEK BEEP !▗ VERIFY STEP q<>U>F STEP F BEEP @ STEP 2 AND ZVAL INVERSE STEP A THEN STEP $ LINE :! LINE ATN @>= RETURN 8 LINE ; CIRCLE OPEN #<>6 BEEP STEP !ECODE ABS @POINT SIN X`,NOT ▛JY▙[A]!YFBNOT F!VAL YY COPY w H RANDOMIZE ▛COS ERASE LLIST FORMAT DRAW ^ CONTINUE MOVE LLIST ▘[O]STR$ a#H ▖ MERGE INT >" OUT >=?` CIRCLE PA▘! CLOSE #>HP CIRCLE ▖#"^HABS A▛jHSCREEN$ HCHR$ REM % *PjP▘/E2LNOT VERIFY IF / VERIFY iS BEEP idR(: MERGE RETURN 0 NEXT 2[U] BEEP 2 CIRCLE PLOT CODE ▙, CONTINUE OUT [K],`[G][Q] CIRCLE 4FN RETURN 0 NEW STEP NOT CIRCLE ;(6 INVERSE GO SUB K>AT " INVERSE !*[A]@^P!@[F]<>▖~Y|? POKE "= INVERSE w LOAD BEEP f RANDOMIZE [D]JaASN CODE 2 INK 4STR$ ]6$ STEP ▛t STEP > INK w RETURN COPY ( NEXT STEP ] INK INK ><2%▗ READ hd CONTINUE m CIRCLE !uH4, OR RESTORE VAL x LINE LLIST STEP Y4FN STR$ LOAD <>v`STR$ ,ATN >= PRINT B INVERSE PEEK LIST REM & LET <> LET ABS INVERSE #= CONTINUE EXP :U*[L][F][F]|INT RND'WU:" RESTORE [C]+:#:^8<> STEP ▟ PAPER ! COPY COPY "ATTR S▘ PAPER :6 BEEP <DG OR STR$ ▜2e)"H" SAVE [F] RUN & PAPER I- STEP i2W CAT NEW ( CONTINUE [C]FN !;^$Z;^:2w[E][Q]ATTR AT @<>!4 STEP + FLASH TO *4KLN ( PAPER LN [P]<>▖B COPY PAPER !QbEEXP ABS VERIFY * LPRINT RNDEXP D[C]D[R] RESTORE BORDER pATN GO SUB VAL LLIST GO SUB [y$POINT :[C]jD:PIXLb}`b NEW >=!y^ PAPER ▛ RETURN USR | RETURN >=<[G]ACS 6 COPY >CHR$ '[K]dUSR @=X PLOT INVERSE =!( STEP PYSY[E]c LINE USR OUT [E]LN m@ OR B MERGE MERGE ~ MOVE = STEP O LINE USR OR LPRINT !@RNDSTR$ '> RESTORE [H] FORMAT NEXT [T][R] RESTORE !X[U]E RUN :[D][C]ENOT INK FOR WMD),HC%>% LLIST ▛'>'` IF RETURN (:S THEN STEP ; FLASH :T THEN RETURN COPY >=NOT FLASH ((&0* ($@,.(0$ GO SUB K!▞A FLASH ~2 DATA #. FOR '.BKV DATA G▜2CODE LLIST 2 DATA H"<2SIN /#C DATA 2ASN LLIST LN W DATA <>ASN ▛PF>=▚OYBFk STEP NIUXASN F CAT AND <>hTAB MERGE CIRCLE ▛ZG'D: LPRINT ]>ATN 4!eINT OJT▞FH STEP [O] BRIGHT F/IH<▞UHSQR X!ATTR FLASH QLPEEK %@ STEP ATN 9 CAT !USR 9!L INVERSE [Q] FLASH :P.▜OD}[N] FLASH f'rR AND H[D]IN A<>R MERGE H[Q]^ CIRCLE R AND '<>@>>= OR [L]<> RETURN (+ FOR SCREEN$ PSTR$ NEW <>STR$ <> PRINT MERGE @:[J]0 PAUSE RNDSIN [Q][T] MOVE ▙v LET <> MERGE !RNDASN H MOVE 02z NEW RND AND f|XW[C][B] TO FOR FOR I LIST v<@!mSGN =5@.▟SQR 8TAB ,@ GO SUB SGN MNOT <> BRIGHT CODE H'hP[R]qP INK [E]PI OVER ▞[R][G][Q]USR PICHR$ | FORMAT [D]CODE YKhDjqjDtPIET FORMAT CONTINUE SAVE SAVE NB INVERSE :R THEN =BIN O INVERSE G>▘ INVERSE [G]2& INVERSE >2/ 20 INVERSE INPUT P[Q]!4! INVERSE @AT v LOAD GO SUB KY THEN Hk[D]&k STEP NEW BRIGHT !WBIN n7 FORMAT PATN PEEK h! DEF FN GP<>$ TO ZTAB F[L] NEXT W OPEN #`I OVER IdIUSR + LET READ AT C[Q][E]USR ATN USR :ORND THEN ▗PEEK < NEW ▘[Q]2T THEN [K]= OVER :P THEN ATN `(!E OVER I OVER ]QT&PEEK (#[F]# LOAD ' REM BQ STEP OUT [A]D2,2) LLIST < CLEAR DATA !F OVER STEP SGN DIM BJ OR Pt() REM $ STEP PLOT AT OVER o RESTORE INVERSE #6ABS ( LIST 8 INVERSE ~ CLEAR w CLEAR {)Y[P]@[A]STR$ <= AND A THEN NEW >=U PRINT [&LN [B] OVER LET ▚[O]> OVER 6t COPY GO SUB VAL CODE 29 OUT s&[A] RETURN 8 VERIFY INKEY$ GO SUB NEW )# IF bE<%$ FLASH <>@|HH[N]:P[Q]D[A]HYE▖xQ2 NEXT FLASH 2P} CONTINUE THEN )]C OUT PEEK hBIN '[M] RUN ==D+<>(PI@▗Z▗FDP"/n $ GO TO j(©▗ZeG▗PIASGN RND^AT OVER HUSR OPEN #d▖!%ABS P $Q STOP %STR$ sd4 STOP LPRINT DRAW !" LPRINT " LPRINT LPRINT CODE ACS (5 INVERSE ! DATA CODE INVERSE N-LR STEP NEXT LINE !e DATA [P]>w OR 0SQR ^,2,ASN OUT Z>=F"+ MERGE RNOT > INVERSE }[Q]u LPRINT USR !XVAL THEN ! 6+6 ++5x@U THEN NOT POINT LINE MOVE : DATA RETURN (:$!RND>= VERIFY 2(:8[N]▟>=:L|[A]7@3CODE w,w$w-: PLOT <>© RESTORE @*POINT ![Q]Z STEP LLIST :>=! INPUT ▘[U]![M]USR [I]!PEEK Z LIST ATN h INK RESTORE TO @ LLIST IF NEW COS 1ZY1USR RESTORE A[U]~ RETURN 0>= INVERSE 5 LOAD ACS USR @ INVERSE w INVERSE 4 CONTINUE <>2D2@@(.$*6<+j-p IF ^ LLIST P[L]~#&Y▘HcCODE D AND !I1860 INVERSE GO TO <>$<P![N] LLIST GO SUB KP MOVE 2 OVER PAUSE <>[Q]P▘P[M]P3PEEK P!TAB LLIST 5 OR H▝H~# RESTORE READ [A] LLIST STR$ LET @VAL$ @X_S6F[A]`ZaZ6B LOAD SQR TO STEP CIRCLE CLEAR OUT STEP LPRINT eEXP LLIST >P2O STOP CODE 2] STOP 2E STOP d OR CLOSE #J STEP RETURN 2zD READ STEP 3 STOP STEP 2d' DS>= DIM MERGE ` OVER RND2?:R THEN AND 2[H]::G". THEN =:Cg%[J]![L] RETURN USR INPUT f<>4<>@ POKE FLASH CHR$ ,[A] FOR ?" LIST OR L▗VAL VERIFY CONTINUE LN ?B[C]/;XLN H&?;d>="▗# CAT STOP DATA K>ATN >=▖ OVER a STOP CLEAR !b7N#F@# RESTORE FOR OR MOVE STEP ASN < GO TO %j NEXT <> RETURN INT LOAD >= CIRCLE RETURN CLS ▗NOT CLS .9BATTR OVER * AND [L]qPOINT R READ INVERSE w,% INVERSE 6@ ▞6w<>.USR TAN 7<*` GO SUB 8xG STEP GO SUB RESTORE INVERSE LLIST STEP CLEAR LLIST ! OVER READ NEXT READ CLEAR b~<>8 FOR "[M]( READ MERGE STEP LLIST DIM LET LIST RETURN ( GO TO RETURN ( CONTINUE RETURN DATA T LPRINT FOR INVERSE CODE 2 AND @ REM NEW DATA NOT + NEW ATTR RESTORE AT [N] LET 2SQR ' LPRINT DATA INVERSE ACS (JCHR$ ATTR OR NOT Io>3[P] INK PAUSE Fm[P]<>=iABS @o !"##$$'(%%&&)*45+,-./0123 INVERSE ~ IF >= RETURN ` INVERSE RESTORE !6 LPRINT VERIFY Ob( INVERSE FY▚▜ NEW #!Z MOVE NvM INVERSE w AND o7[G]g* INVERSE ▚+@CHR$ c"FATN ( BEEP RETURN ( OPEN #![K] VERIFY :O THEN NEW t RESTORE 0 BORDER CONTINUE © CONTINUE ATTR CONTINUE BIN CONTINUE VERIFY CONTINUE IF CONTINUE ( DIM STEP CONTINUE [F] DIM REM READ FOR 9 GO TO STEP OR NEW STEP J RESTORE +ATN BIN j RESTORE STEP U)CN OPEN #SCREEN$ DM FOR DIM [E]ATN USR THEN ) LIST TO ATN ▖p~< NEW ▗ 65<> INVERSE E4}USR INVERSE ▗! THEN ▙3<>E3n RESTORE [Q]EXP [G]LN #ASN e!<>#FN COPY RANDOMIZE THEN g>= STEP BORDER RESTORE (TAB !INKEY$ RESTORE ~ INPUT , COPY >=#POINT PEEK (## LIST aJAFNFN READ RETURN USR RETURN p(D)e RETURN POINT RETURN J+ RETURN rqtVAL o: LLIST NOT RUN STEP FOR STEP ▛ REM STEP s[Q] PRINT COS PAUSE GO TO ATN CHR$ t PAUSE GO TO NEW 0SCREEN$ BORDER CLEAR ~ NEW ( STEP FV NEW STEP m[Q]▜LN X CLOSE # THEN [O] FOR STEP VAL$ ▞<>Z BRIGHT ▚[U] DIM dyASN VERIFY = AND r/4SQR k▘ DEF FN [N]}[P] POKE SGN & RUN EXP I INPUT OPEN #PI(h!PEEK NEW ABS NEW VAL 1 INPUT <>! POKE CHR$ STR$ :TB AND NEW '*:'`[Q])!USR NEW PEEK USR ATN >=][B] FORMAT CODE 2W PAUSE RETURN INT +A FORMAT uNOT %/@)B!BIN GO TO ) CLOSE #v>=LN 5CHR$ READ BORDER [S][S]INKEY$ VERIFY + PLOT VAL AND J STEP LEN BORDER STEP s BORDER LEN ZSCREEN$ h13` FORMAT TAN >= OR O AND )W@[A]!r STOP A7)<BFN J BORDER LIST CIRCLE THEN OVER =[F] LOAD =G LPRINT VERIFY = LPRINT ACS RETURN 4h LOAD ^I[Q]?0.o STOP <>888998 RETURN 8 DRAW 8 IF 8▚ SAVE STEP 3 CONTINUE STEP J CONTINUE ! POKE OR N CLOSE #HD`wT4 OUT ;=tw BRIGHT LEN COPY ▝z RUN LOAD VERIFY CAT LINE PAPER LINE 43MzpBIN )/ FORMAT INVERSE <>AT 1P5/!k{w CONTINUE uo[G]LN TAN o$ POKE ;4 THEN ? GO SUB D AND P[G]<>EXP CONTINUE wQH IF qD| FORMAT NOT © RESTORE FORMAT INK | AND :BIN S AND qgT RETURN <INKEY$ INPUT USR H[E] SAVE >[J][E][U]>5<>[G]5 RETURN DRAW ▛RND IF DATN ($BIN DIM ATTR ! DIM [P]VAL$ INT ! LOAD OVER LEN [I]WP LIST n [I]21<=SIN @( STEP r NEW NOT ▞ RANDOMIZE 7/ FLASH nINKEY$ INK INKEY$ RUN CHR$ <>>ABS <2[R] DIM RETURN CODE FACODE THEN ATTR Y THEN :ATN a▖ CIRCLE @J* OUT LINE POINT ▘@[L][C]1 CLEAR LPRINT GH( DATA NJ[M] CLEAR <>8 DRAW 8F RETURN F DRAW F IF = RANDOMIZE ! PAUSE BRIGHT ` BEEP ▗ ERASE 5/▘ INK LOAD 0 DATA * STEP 5 INPUT [E] INPUT [Q] [M]W[B]RND STEP [ LOAD CODE 0LEN ( STEP m REM STEP x REM > LPRINT USR 36▚u LPRINT !] REM [B]!N<> FORMAT ▘P[B] CLEAR w FORMAT CLEAR p>=▙H DIM CLEAR fUSR GO SUB eEXP STEP NOT REM PBIN fA[R]`]G▖m LLIST NOT [F] DIM ▛[O] CIRCLE VERIFY FORMAT <>POINT 5 CIRCLE $/ AND [ LOAD EXP COPY ▟ BEEP READ v STEP 6 FOR q GO TO P LINE j REM PRINT . FOR X4z ERASE 0▚,)2h LOAD +m OR LOAD !2 FOR 4v PAPER oATN @j LOAD ▝NOT g LOAD :pPI DRAW p LLIST du>= RETURN COPY RETURN >= PLOT n PAUSE GO TO PAUSE IATTR TAB INPUT <> CLOSE #[S]▟ CLEAR CONTINUE HLEN NOT READ FOR H SAVE IM! IF JNUSR KOLP DRAW DRAW n THEN =^*) OR FOR [Q]y THEN F ~ATN ( INVERSE VAL$ }[B][E]/; GO SUB [U]C STEP N[L][C]ATN INKEY$USR [Q] CLOSE # CLOSE # PLOT RETURN DRAW IF SAVE ▜ CIRCLE VERIFY O2 GO TO ) ERASE SQR 8Ez/<5[I] CAT r RETURN 0 GO TO CLEAR %▟ LPRINT *▚3 ERASE [O] CONTINUE NOT VAL CHR$ L,USR MERGE yfE&2 DATA pLN AND EXP CIRCLE y[T] LPRINT MOVE REM }- CLEAR ▜▝>2 RESTORE LPRINT =[L] LLIST MOA▜LEN Rw PLOT STEP ▛T FOR INT [A]jd[Q] BEEP ! DATA <>TAB "F MERGE INVERSE LLIST [R]KRND[H]▘FN RND[B]ATTR u▛ LINE X LIST h DIM >= LINE [D] LOAD 1[F] LIST X[U]▞ POKE [O]% RETURN R STEP tCBIN [U]COS ▖ GO SUB 2INKEY$ GO SUB LN * STOP VERIFY [P]Pb0[T]C INVERSE D4B[I](8 PRINT tW.>=$, RETURN z![Q] LIST GO SUB AND BORDER o LOAD VAL Q AND g#2` LOAD he LOAD <> IF # SAVE @ DRAW *Y4 LET COPY # THEN r###4B#! GO SUB GO SUB L*ATN INPUT %y(P INVERSE PEEK ( STOP INPUT x2| INPUT ?h>PIK2cWQ^.<TAN })[L] INPUT POINT Z NEW ▖ GO SUB YINKEY$ GO SUB <> LLIST <>MA[U]EXP J> GO SUB INVERSE [U] INK $"^ DATA ~ LINE k= BEEP LOAD RUN d7 INK !J) INPUT f15A PAUSE CLEAR ▚CODE @IN FORMAT CIRCLE <>X3[C] THEN ;NOT 0L RUN ? STEP LIST 9CODE ▜HD LINE ( RETURN CHR$ e SAVE C[O]! LPRINT SAVE ? CHR$ ©>VAL$ N69VAL$ 1ts LOAD CIRCLE 1]▟ RUN l▞▞u[B].)0FN M00>|VAL$ J>EXP NINT EXP IN P AND )INT L[Q]CODE INVERSE [G]t<= LOAD LN xhPEEK :^1 CIRCLE G RETURN FORMAT NOT Y4 CLS ) CIRCLE CLEAR KFN m PRINT @[H] NEXT CLS ASN !(,© LIST OW~<>7@&| INPUT ▝ [L][K]; RANDOMIZE $F0@&VAL (%><# BUSR 2HFN ##D#$#B###LN 2H###&(F2 #,F-J$Hh8@`hHVAL 0)fd:y0ZATN POKE t RESTORE O PAUSE PoSTR$ LET VERIFY CONTINUE NEXT LET (L MERGE of POKE TASN [U]r! PAUSE N POKE ~ RETURN COPY (4 INVERSE TAN {PEEK ATN TO U>=} LET NOT > RESTORE CLS [R] NEXT CODE 22 PRINT 2p PRINT ^T OVER RETURN dABS [SQR @ACS CODE BIN w<2 PRINT THEN POKE NOT CLOSE # POKE PAUSE RETURN ( FORMAT STEP ) LPRINT ( RETURN ? FORMAT NOT PUSR ▙ CLEAR [G] FORMAT GO SUB D OPEN #PSGN [R]PEEK 8 MOVE POINT BACS <>;E-NOT 00yVAL [E]T▜[F]CHR$ STEP VAL$ PAUSE DIM d LINE © RESTORE pW PAUSE STEP 0 RETURN BORDER REM STEP INK S PAUSE INK |8[U]2 CIRCLE : RETURN CIRCLE [K] ERASE =a▞1 / RETURN CIRCLE ▙RPIX LINE CAT [M]D FORMAT J|: GO TO [E]v RETURN G FORMAT : OVER PAUSE AND O STEP 'EXP FORMAT CONTINUE =USR LLIST NOT <= LET CLOSE #[O][M] AND ZABS GO TO #3PEEK CIRCLE <= CLOSE # NEXT DD STEP j[G]ASN X@N NEXT NEXT NOT POKE 7 RETURN ` COPY | CIRCLE LLIST % PAUSE [B]G[H] FORMAT '!] LET STEP MERGE PAUSE CODE VAL >=ACS BORDER FOR != RUN INVERSE "BIN SAVE +[P][T][T]6! CLEAR LIST CLEAR NEW 1OG LLIST SQR o INVERSE | CLS {[S]fo©|▗0 CIRCLE GO TO B STEP BORDER NOT O PAUSE GO SUB RNDe(x FORMAT Y0@T!TAB LIST jE AND u▚O INVERSE ~nF[M][T]NOT STEP [T]>ABS CIRCLE 8!LEN >▝p2[B] POKE >h2[N] POKE /▟ POKE STEP [J]ERND POKE 6!PEEK A GO TO !CODE 2Nw FLASH RESTORE NOT 2XATN GO TO RETURN >= PAPER ▞FN [H]!r[ASN /Q(I CLOSE # POKE PLOT 9 PLOT ▘ PLOT STEP PLOT PAUSE STEP * POKE : THEN POKE ATN TO [P] PRINT [Q] STEP !CODE POKE LPRINT >= THEN ^▞ STEP [A]▖1:ks!"2 PRINT 4~KUSR NOT INPUT POKE n)RPEEK (.K.RIN 8,}▚o*; PRINT <>COS POINT ]3[M] PLOT ~2 INK 5 DIM POKE #/<>f"l REM 2tSCREEN$ SGN READ ▚b3+b[G][S][K]T LIST 0 RETURN :$7C INPUT Hm] LET N6Z FLASH 444K PAPER 4TAN [H]X44:▜4NOT ,4p LIST a DIM [S] ATN RETURN @0FN [L], FORMAT [L] LINE : CLS [B] PLOT INT Fd0! ▛A FORMAT 0 POKE > OUT INVERSE '9' CODE GO TO &l&_ AND [R]2 PLOT <>▝% LIST ATN COS :'KWVAL S READ STEP DATA CAT [E]8[J] TO [M]s/p: DIM POKE JVAL$ afrO PAPER hp▝SQR CIRCLE 7 PLOT ▗>=f FORMAT NOT ATN PRINT >=~( CLS ▙0[M]©*<> CONTINUE [S] PLOT Hr SAVE COPY RETURN FOR EXP BRIGHT RETURN BORDER + COPY ©Mk CLEAR [H] RETURN ©EXP CLS CLS COPY COPY [N] RANDOMIZE RUN [O] COPY #+ RUN ©COS [T]x RETURN O SAVE O NEXT |[D] MERGE READ RESTORE y▜PI BORDER USR ; RETURN BORDER [T] ATTR GO TO NEXT 1IN ] STEP IF STEP " IF NOT [ THEN !PEEK CHR$ @`Ps#r# STEP P<> POKE <>.p] s CAT 0#6 COPY # IF <> NEXT !~ASN @][T] GO SUB VAL NOT ATTR a:6/ATN (E[H]!+ LPRINT 6!#6.#6 DATA #66#60#6N#6!#6RND#6R#w#w!A LPRINT 6!#6#6 DATA #66#60#6N#6!#6 OR #6R#w#w#w:7/ATN (E[H]!X LPRINT 6!#6B#6 DATA #66#60#6N#6!#6ASN #6R#w#w!m LPRINT 6!#6V#6 DATA #66#60#6N#6!#6 MERGE #6R#w#w#wCODE 2H/NOT IF
