| Is a part of release: | Last Ninja 2 |
| File size: | 52224 |
| md5: | eb789d3ed664ed0680a7b622f996124d |
0 REM !@@6 GO SUB VAL CODE OPEN # RETURN ! LET <>"CHR$ /NOT c]/ STEP =<>I!FN a STEP Y] STEP FN a!@[M] STEP Y] STEP @[M]s!FN a STEP Y] STEP FN a:[ RETURN COPY CHR$ RANDOMIZE CODE 2 STOP ▙NOT RANDOMIZE FULL DISK VERSIONS BY STANISLAV OF /CGG/N-TAGIL 11.04.1996 HELLO ALL HACKERS !
1 BORDER NOT PI: PAPER NOT PI: INK NOT PI: CLEAR VAL "24499": RANDOMIZE USR VAL "23872"SCREEN$ N" LINE 1 RANDOMIZE USR 00000 LINE __@NOT CAT THEN INK OPEN #<>@ NEXT GO SUB sb!NOT a@P MERGE GO SUB VAL !;SCREEN$ RETURN COPY )H<> GO SUB LN ! VERIFY ATN FN a~ 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$ 1G CLS NOT FN aIN STEP USR NEXT > GO SUB G GO SUB ^ CLS CODE OPEN # RETURN 2[!@@6 GO SUB VAL !0t"6/>2▟/2H/ STEP k> STEP !n[K]~ RETURN LIST LINE ▝b RETURN RETURN [F] LINE Yb RETURN INPUT LINE #b RETURN COPY LINE CLOSE #a BEEP v# PRINT RESTORE :[Tb RETURN © GO SUB x THEN PAPER TbP7 LLIST LET ! OVER [I]" INVERSE a> COPY g▚NOT CLOSE #a RETURN RUN " ERASE 9b)▞IbNOT #b NEXT GO SUB F CLS [F]l(▝<>p▖<> LLIST LET NOT OUT a PRINT RESTORE @Z▘ ERASE ~d▝IN d▝[pd[A] LET >NOT POKE aNOT b PRINT RESTORE !} LINE GO SUB VAL :▘Yb 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 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 OPEN #USR ▘ RETURN ▘ll? RETURN ©cc© RETURN STR$ k▞©363 RETURN 6 RETURN ? RETURN *TFN / RETURN *T ▗>* P▝~R@[▝ RETURN ▝>pk RETURN 0hgksh▘?USR x©`x▗©USR c▝© ▝`0 [I]▝©A FN @'VAL <=>= ag▘0© ▝▘0@xn p▗co`~@H▝c SAVE ▝~@P▝`!▝~▝ ▝|0[I]▝`▘`g! [P] 8▝?USR ▝? CIRCLE <=0LN : RETURN STR$ `H▗Acwk`▗cskg0h@X LPRINT P~▝g@▝~ ▖@ LIST X▝1@p"▗kwcA! ▝> LN '▝ RETURN WLN ▝ MOVE ▝ LET ▝x LLIST ▝x CONTINUE ▝<a[I] RESTORE ▜ OUT CLS CLS FLASH OUT qa`x▘f} CIRCLE q![I]▗ COPY FLASH FLASH COPY !x INK p▘c>=@ FLASH FLASH ~ FLASH FLASH q @XaahaP▝?AA1▝©STR$ p LPRINT a[Q]"[I]`A(}ggVAL ©c▝USR CODE ▞▝ COPY COPY _QUP▝ COPY CODE / RETURN COS wwTwwww>= RETURN >= RETURN >= RETURN >= RETURN >= STEP Pv RETURN >= LLIST CLEAR THEN FV([E] STEP OVER xNOT hw PRINT RESTORE : ▟*!▟VAL$ ▟* DATA [" OUT [ CLEAR wPICODE THEN M THEN AND Xg} NEW LPRINT oy NEW " LIST [ LLIST LET <> CLEAR 6U>( BEEP ~N▝^R▝VV▝NZ▝F^▙ RESTORE STEP ACS * LOAD =8 STEP READ - LLIST >) BEEP )NOT INVERSE c[M] VERIFY [U]G RETURN *0 RETURN 8> BEEP ![F] THEN ~#( CLS RANDOMIZE STEP DIM d LLIST ▗ LET RETURN REM USR [E] VERIFY <>![T]q▗ GO SUB [ SAVE [| VERIFY USR g RESTORE FOR THEN : THEN :[N][S]_▘WSQR BIN [L]{ LLIST | NEW AND USR g<> STEP RETURN o*▗/}X GO SUB R8! LPRINT P NEW [T]▗/ STEP OUT p!tQPOINT !?r RETURN 8 RETURN 0 BEEP <> RETURN RND!Nr PAPER DIM dNOT TAN x RESTORE !▟6# CLS LLIST <>!USR CLS [E] STEP [T]n!▙USR GO SUB VAL STEP Ny!X RUN ▟ STEP k! { STEP zc CLEAR 6 OPEN #9@[K]▚CODE 2 LLIST [ BEEP :X RETURN D NEXT TO k STEP }c STEP ^{ GO SUB [ OUT [*,sz GO SUB S OUT [ NEXT CLEAR 6 RESTORE !'P[D]▗{ STEP #▝3 STEP +y=▜F CLS STEP DRAW ▝ STEP BIN K▛U STEP m▘ LLIST RETURN STOP LINE L▝[M][R] LINE RETURN CLOSE #T~ RETURN LINE ABS ▝ RETURN LINE OPEN #▝ RETURN TO . RETURN TO ^ RETURN TO SCREEN$ RETURN [K] TO z RETURN TO )z RETURN LINE i{ RETURN LINE J}NOT PIy VERIFY ▝F[K]▘ LPRINT AND NOT <=z MERGE STEP &g! FLASH R▜ MOVE STEP INT c THEN CODE PRINT 0[M]ASN LET CLEAR 6 FORMAT RETURN B TO RESTORE v RETURN D TO @© RETURN H TO © RETURN P TO COS { RETURN T TO '| RETURN S TO BRIGHT { RETURN R TO { RETURN O TO [M]|NOT ▙y RESTORE MERGE !@BIN ▛ NEW _>SCREEN$ 2 INPUT [ OR ▝>{ STEP RANDOMIZE > BEEP >> BEEP {n0▝CODE SAVE ▜ OPEN #9 STEP ]▝STR$ "▘! GO TO MERGE ▙: PLOT / AND A BEEP MOVE LLIST STEP THEN zNOT [H]* RESTORE ! CLEAR ▘ LLIST [!z VERIFY USR ▝! CAT ▜!r(! ▟6Ux CLEAR THEN 0^>C >L"[▛ LLIST <> STEP DATA c CLEAR THEN VAL$ TAN ▞nUSR v SAVE <> STEP j[N]! RETURN o" OPEN #p STEP fNOT i{ CLEAR wU!iX STEP [U]fNOT 4g>r[E] STEP 5{ NEXT ![R]Z[S]Z6 GO SUB VAL ![R]PI[K]!Z >ANOT MOVE f STEP d8 STEP [H]{ STEP ed STEP bg|6 STEP A{!(ASN ▖ STEP [U]c CIRCLE GO SUB [ LPRINT [,FzPI MERGE STEP _d MOVE CODE <>)▝]p)▙ LPRINT [{ VERIFY USR _<G!▟# CLEAR ©▞* OUT [.@R▝t@R▗[N]▜~PI # RANDOMIZE D▝▛ m▚Ny STEP AT c CIRCLE l!▘USR y0p▘CODE _oMPI TO ed<>1[[F] STEP |CODE LN NEXT y RETURN [Q]0 INPUT PRINT :IN RETURN LET p▝ PRINT aq"▖y RETURN 0 PAUSE AND USR _0 : LPRINT [ PRINT !▚▙ LET _ LET W CLEAR PEEK PI MERGE PRINT BIN REM { LET MOVE w GO SUB S LPRINT [<>IN ▗ BEEP BEEP >▘q[B] LINE VAL$ © STEP ^© GO SUB K REM [<> STEP K{!CODE <=▜! INVERSE /6 V▜6B STEP } |▗(O!LN RESTORE : RESTORE /B[D] RETURN #(0 NEXT ▚ RETURN B8 FOR 2▗ STOP yVAL$ X: FOR /[T]▘ GO TO / INVERSE COPY USR RETURN ▜? CLEAR ? RUN COPY @'[L]o RETURN ▝p ▚ p @ ▘t INK ▚NOT [S]FN CAT COPY g▝i▝©▞ COPY COPY DRAW COPY SAVE 8@ ▚i▗ABS ▖X▝▝#'[J] CONTINUE 0ASN p▟O RETURN p LPRINT ERASE LPRINT _ RETURN ▗ p LPRINT qa▝qq ▝Tq FORMAT RUN ▝ TO X▘< CLS a▘USR ~qAu▖ COPY DRAW [I]▗[J][E]M▗(Sq/ RETURN ▝[Q] PAPER aSIN qSQR © RETURN q LPRINT ERASE q LPRINT ▝qrr CLEAR [Q]rb ▝q` FORMAT ▝B CLEAR USR ? LINE COPY ▘ OVER B[J] RETURN ▗"_PI RANDOMIZE [J][S]@D▛ACS ▝ LIST o RETURN ▝ LPRINT PAPER `!J▗© RETURN r LPRINT ERASE r LPRINT LPRINT ▝rs FLASH s OPEN #▘*U▗▜ DATA `pr LPRINT Ck▝▝sJ THEN ▘S▙ CAT p CLEAR FORMAT r CLEAR ERASE s LPRINT LPRINT ▝ LPRINT ▝©qws BEEP ▗CHR$ SQR [I]s` CAT ▜[J] COPY +aU▝cYqTk▝[J]tJ THEN ▝ S BEEP ▝t[N] THEN IF t LINE s CLEAR ERASE t LPRINT CLEAR ru▘USR t@ FORMAT CHR$ SCREEN$ < INPUT CLOSE #q[J]▝qq© RETURN r STEP eb▝` CONTINUE <>cuSQR © RETURN u LPRINT ERASE uvv▘R LPRINT u@ CAT NOT ATTR q FORMAT ▗ COPY COPY LPRINT "▝[J]u LPRINT ▝ RETURN u LPRINT Fk▝ COPY vJ LINE RETURN B SAVE ▝@ MOVE S!tvv FORMAT v&v LPRINT g▘rv@ CAT ▗USR INT FN v` CAT LPRINT ▗> INK ▜[J]ABS PEEK o▗| CLS v LPRINT LPRINT d RETURN p RETURN LINE r CLEAR VERIFY c rA MERGE [A]uF▘ FORMAT LPRINT ▝ LIST <> LPRINT [G]G▖[E]"[Q]SCREEN$ LPRINT [F]TUE#UQUUBIN ^R GO TO INVERSE ▞D%UU MOVE UgL▖wu0uE INVERSE [O]▝q POKE POKE r LLIST q/ INVERSE COPY ▙[A][E]"VAL LINE LPRINT [J] BRIGHT Uu3▚▝]q INVERSE SQR ▘@!QU>▛▜%EPUEU COPY / PAPER ▝*gAwJ MERGE rr CIRCLE LPRINT C[N]▜VAL$ LPRINT [F]DuU▘ MERGE q▝BIN zE▝xABS CLOSE #▛ w%_5 INVERSE INVERSE CLOSE #ZL▝AySQR RANDOMIZE ▘SCREEN$ 9Au> CIRCLE ▗▝ LIST [A] SAVE xF OVER C#▝[Q]UU"▗]TwFN ▘xABS MOVE x FLASH <>▖'EPW OR INVERSE w LIST COPY NEW ▝T{ OVER MERGE ▗▘[B]yF OVER [G]@ BRIGHT [M][T]LN REM [Q][F]/UwINT ▜_q<> MOVE MERGE r@ww MOVE U]q LPRINT LINE |rq▗QDEx LIST COPY STEP ▝UyA VERIFY ▗▘[B] CLOSE #▝C[M]v[G] CAT ERASE ▝D LPRINT LPRINT },zINT zTAN }z▜%CPq/U COPY FOR ▗[P] RETURN [H] COPY |p LPRINT FLASH p BEEP % LPRINT RQYX~, COPY POKE COPY COPY [P] COPY LPRINT CIRCLE wS LPRINT [D] INVERSE BRIGHT 9LN INPUT [R] MERGE U<=sE:▜ MOVE Q INVERSE INVERSE MERGE v LPRINT q OPEN #d' MERGE r LINE [Q]FN { MERGE 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 FORMAT COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G COPY G BORDER G COPY BORDER ▛ NEXT PRINT INVERSE RESTORE CLEAR RESTORE MERGE OR RESTORE INK P[K] STEP ` REM CLEAR COPY > GO SUB y GO SUB x NEW O>PI[J]2 NEW < OPEN # RETURN 0`▝=0p[D] RETURN ERASE CODE OPEN # RETURN STEP USR LLIST STR$ MOVE CLEAR LLIST INVERSE LLIST LET INK P[M] CLS NOT 8 CODEGANGSTERS MTRAINER+01 OUT ▘D▗////Pp[F] PRESS : 1. CHEAT Mu▖ (LIVES)>= [D]2. NORMAL TYPE GAMEp_pips OVER ▘ CONTINUE TORED,LOAD▗DISKD BY STANISLAV OF <{|}> 09.04.96[N]IT'S SHIT BORDER MULTICOLOR !)▘GR INK [B]FUCK TO S.SKOROBOO▘OVH▘OV4v▝ [F]SION *L.NINJA2*! INPUT FN [A] HELLO ALL HACK[D]▗& US[L]USR !▘ SIN ![G]pTAB TAB ▝/TAB QDAATN w▗ENTSOUDLY MOVE ▝FPEEK ▗YOUR LINE ▝B,▜ 3D ADV@▜URE-ARC6![B]<="USR * LA) BIN ▘ 2 TO ^▖48/128KB BORDER ▘[I]rUr_rS▘[M]▛KEYS IN THI▜TRODUCT[▝S RND▝< CLEAR ER> - NEXT PAGE LPRINT ▘SS▝. SPACE ▘QU BEEP IB[N]ENU▚ryr LPRINT r REM BX INVERSE bxlqrx2xArr~▚V /CGGr VERIFY #▗N-TAGIL 11[A]▘19"[C][O] RETURN >=Q POKE "INGBG▞ACODE #FN IS▘/G▝P>= CIT#(ALEX/tp▝▞L ENIGMAp"@"` ▗ANDY[E]▗C/BLUSR LET AMONDp@COPp p`▘SHPKANp@p@▘BEPIOFTp`p`[Q]▜DELTA17p©p` USR ▚COBRA/USR - THEN pLAYERp!q▝1MAPATp@q[R]Q -CORPpaqSTR$ A `▘EY'GELp▜q` BRIGHT ▝ RETURN 4(rx vnimanie4!U[I]RND #ta versiq igry soderjit vse(!) uro;,no p▙ereny mnoi li4 byli tolxkoSGN 1,2,3,4,5,a na [P]q popastx, tak i ne smog,t.k,q P▞ do koncagiti 5z©▚venx ([S]nee<▟zna`,4to dela[P]▗tx s%▛tilqtorom v Ie 5-g[Q] USR ▗q), CHR$ ▝q[E]de`sx AvAmINT ▘ud[N]sq razobra ▝s▗semi PAPER ▜zagadka▞#toi, int▝s▘igruwki5v NEXT ▗s4et5ruz@▖ei,mojet CHR$ ▚bespok RESTORE v! lno!` p_pisal gl`4ny@K4ik,mATTR ▝ka▝k NEW ▞bogatova Q▘te8▝xVAL ot1[G]▚rabota▞`▝a/-yhza▜mawinahr LLIST ▝jn▝`-▝4@ GO SUB dZ▝Bj=▗ob$ef▖specialx8▘dl BORDER ▝ teh,kSGN jiv&v n.tagileB▘i ▗uvajEXP ▘svc▖SPECTRUM9T[K] FLASH "TAN ▘!! INPUT f&libU▘me!"41[K][▞CY,A imen INVERSE 6VAL ▘A> NEW ▚grammi SAVE ,▘ ( CLS ▝R8▚B> risP▜GRAPHIXx[L]▘ C@USR [E]▟muzyku (MUSIC[U]NOT ▚D> loml(CR'ABS ▝-7BIN READ g@[T]#▝([D]e▝MP© F>RNDNOT ▝v@"BLUNT' CLS "▝G`▝oH▝n MERGE ▗(EDI OPEN #9@▝H LPRINT edl CLOSE #▗deiB▝I▘ADb▘I>[K]▗ OTH NEW THEN .v LINE BRIGHT sf#fy obnaruji):+nuj INVERSE ▝,"seb#▗unkt) L▜esli,daUs▙ihodite,kajdu`*jsub OVER u k LINE ▙gazunu <#kran>10:00P▘13▜! <planV▗tx!> ~ajmSg RANDOMIZE [Q]#▝a[R] RETURN LIST 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 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 COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY MOVE IN ! LINE NOT :CHR$ NOT [C] OR SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗XIN PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙IN ~wpkd^YTOKGB?;852/,*'%#!▛ VERIFY OR p▘STR$ PCHR$ USR 0*@ :0USR ▘J * * ▝0 ,?X0 Y ▗ /K ▝/P▝P.▝[C] LINE INVERSE FORMAT B MOVE q MOVE [Q] MOVE CAT MOVE . ERASE LINE ▟▘ LINE Pppp$ LOAD ERASE PAUSE 2▝ SAVE `8▝ DRAW F▘ OPEN #PF DEF FN IN NEXT RESTORE "2NOT RESTORE ~2 MOVE AND 2[G] OR ##~#" CLOSE #CHR$ " BORDER CHR$ ^#V#"NOT O"NOT LLIST "-NOT !,CHR$ -CHR$ p GO SUB VAL CODE IN 2)CHR$ 2*CHR$ 2+CHR$ 2 AND 2▞ AND 2PEEK NOT 2=BIN 2IN BIN 2 AND 2▗ AND 2BIN 2▙BIN 2 OR /2[C]NOT 2BIN 2[D]BIN >/2m AND 2 AND !EXP STR$ "$ AND ACS "▙ AND "BIN "▞BIN " OR STEP NOT GO SUB SCODE OR STEP OR STR$ GO SUB s IF CHR$ 1" LINE <>STR$ > LLIST FOR s#r# FOR = PRINT 1b LINE CHR$ >pRND PRINT 1▙a*CHR$ "4 AND "[O] AND "[N]NOT "BIN "[O]BIN CLS <>![S] LINE ~▜ GO SUB sBNOT ![T]8 INPUT #BIN ▟▜▝OCODE G!SGN LINE RANDOMIZE LINE Y LLIST " DEF FN OR [L] CONTINUE OR 1aG<>{▜_~0 THEN #~STR$ LN NEW THEN Z PRINT 22CHR$ LET ~ NEW #ng INVERSE b FOR ! IF ERASE INVERSE }▚▜O!USR ~#fo THEN :8 GO SUB R<><>> COPY <(w[S][H]q MOVE ! LOAD ERASE y<PEEK # ~2[H]NOT #"xNOT FOR x_@[D][I]NOT # INVERSE . STEP FNOT ",CHR$ FOR AT IF COPY NOT (& RESTORE !{PI PAUSE OVER NOT GO SUB DOPI GO SUB B0 LLIST >2SGN NOT CODE 2 TO NOT go"NOT NOT " MERGE NOT LLIST CODE ▜ INVERSE |23CHR$ OT▜~ PLOT 24CHR$ ©▝z"▟ ERASE p©2BIN p©▘BIN ©▝4p©▝.@©▘~BIN `©▘]BIN p©▖2;BIN CODE 2KBIN ©▘BBIN ©▘TBIN ©BBIN INVERSE |!3CHR$ ACS wp▘▝5 ▘▜{ INVERSE FORMAT q▘2[I]p▘!▝[J]▘▝Aq▝0A▘ OR a▝ OUT `▘▝ABS ▝▝ STEP ▝BIN BIN LLIST ▝ VERIFY 0▘▝BIN @▘p[O]6CHR$ !9CHR$ IN COPY VERIFY !6CHR$ B GO SUB yC GO SUB ATTR =@pp*p1p?pFpT[29CHR$ <>CODE G>=T[O](@=(#=CHR$ [B]NOT !)CHR$ 5 PAUSE [B]NOT >w[M] CAT PI TO NOT STEP d<= PAUSE ▗2 PAUSE OR NOT ▝*0w[S] CAT STEP ▖>= GO SUB S DEF FN OR 2/ AND ▝+9▘ LET OR 9▟ LPRINT CAT STEP <> GO SUB S CONTINUE OR CODE 082▘[H]NOT c▘>"▚!q MOVE "[K]NOT !▗2 AND 4▘BIN 9▘PEEK NOT q▘BIN 8▝▜2* AND [H]1H▝"O▘2:,▘ NEW NOT vXk▝ IF ▝ THEN Igo RUN PRINT "BIN [D]▝/ LINE ▘>4!▟ ERASE "S2}j▝▙j▘=BIN FLASH ▝▞0j0▝[E] j▝zH:2[U] AND e▝T[H]▝e[M]▘yBIN u▝JPI▘9CHR$ ▗7CHR$ >▙CODE 2 AND COPY ▙2F AND :W AND =(y2 AND CODE ;▘>7TAB ▘<> OVER :SGN NOT O▚( PAPER CODE 2WW>7<>STR$ ▜!<>USR LEN ▝$+▗NOT d<= 1[E]&o"V AND PIx PAUSE 1<=/2Q AND -▝@▝E ▖og"K CLOSE #A▘ RESTORE [A]AT OR AND 8+ AND `8 AND 8g1 AND @8 DATA ▟▙<(v<([K]<(VAL < LINE ▖ [R]▗ CAT (%▖▘STR$ O$" AND ▞▗!CHR$ ▜@▝4<=▝*<> SGN PI<>CODE ?0SQR ▚( GO SUB RETURN ( LIST ▘>S2 THEN AND 2 TO AND 0 INK [T]▝ MOVE X▟2ACS AND :STR$ AND = LINE $▝m$▝[U]$} AND :;BIN $▝r$ INK CODE 2STR$ AND q$▝$▘▖>= 11$▝USR $U>=/2SQR q$ ▝i A$▝VAL A$▝▞A$▝ THEN q$q$q$q$▖ [R]q$!$▘w AND ▞q$ OPEN # FOR ▝[E]<>&:!$m$▝▗@SQR q$▝tq$0 INK 1$C▘:ABS ABS BIN (E▙NOT E<>2 NEW BIN : STEP BIN = LINE E<>yZ$W[T]▗"[I]BIN <>2.▘ TO BIN .▙_<>/2 CLS BIN *o&0▝s B.▝ VERIFY ▝.▘IN BIN +▝ RESTORE 2+▝&+▝+▝J/▝,B+▟g<(/<([S]<(COS < STEP THEN ▗ CLOSE #($r&▚"[L]BIN NOT <>r& TO ▝CODE 4▘> COPY <▘<>>=▝2▘ OR r4▝CODE e;2▝sXR▘ RETURN PEEK #R▝VAL n DIM FORMAT OPEN # 2▝ INK `8▝ INVERSE F▝ LLIST `F[R][N]COPMPILE BY CODE GANGSTERS '96[▚PCOS COPY BORDER D^aBIN OVER RETURN D~ OR HmACS 9Q[I]5}STR$ TO INVERSE SAVE CLEAR ▗ CLEAR ▞^5^[S] THEN p& CONTINUE ©iSIN ! READ a▙ STOP `[K] DATA pppP$[B] STOP `[N] DATA pp▘#[▝TAN USR ASN ▜!TAN #TAN %SIN #▟VAL ASN !ATN )ASN _p! READ ©pDD[D] STOP `[P] DATA pppP$[F] STOP `[R] DATA pp ▘TAN ASN USR ATN !ASN #ASN %▗▟[B]TAN !SIN )TAN Gp DATA ©`TAB !TAB TAB ▝TAB OR TAB [N]pa▝ !▘▙[K]1 ppp p p0.▘[B][N]10ppp [N][N] [O]@[A]▖! LLIST dPEEK PEEK PEEK !P▚PEEK STR$ STR$ STR$ !▘ 1dpz1h▘[D][P]1jppp p p0x▘[F][R]1zppp ▝[R]q▗q▗!▗▞"TAN LLIST d OR ! OR STR$ OR LLIST ©d@STR$ ▚STR$ NOT NOT NOT !P0▝ 8 <▝! LET p[R]p[R]pLEN pSTR$ pSTR$ p MOVE p MOVE p LLIST qSQR qSQR q THEN q FLASH ASQR PRINT EXP ATN EXP TAN EXP !SQR )EXP #▝ASN q OPEN #1 OPEN #p<=0<=` DEF FN 0 BRIGHT ▝ OR q OPEN #q OPEN #q OPEN #rMMr[N]r[N]rTAB rABS rABS r STEP STEP ▜[A] STOP `[A][M][M] DATA @ppp ▘[M][M]# BEEP ▘SQR SGN ▚[A]!SGN #SGN %SQR #SQR EXP SQR SGN SQR !EXP )SQR q>=▗rTAN rTAN rTAN ▜PEEK PEEK USR USR USR ! OR 3▟[C]_ RESTORE ©kINKEY$'p!r DRAW r DRAW r DRAW r DRAW r DRAW 2 DRAW ▝$DB NEW INKEY$7POINT ?p# DATA USR ▘▝! LPRINT #▘'▘rp▗!STR$ 9STR$ P▘#▘▗=pA LPRINT #8q1r SAVE r SAVE ssss(rGtttt"▗&pX▖▝p4INKEY$$[M]TAB LEN VAL ▘TAB H GO TO ppBIN ▝IUSR FORMAT ▝USR VAL [Q][A][D]pp ppp▝ LPRINT npqpq@q/ DRAW PAUSE POKE NEW p/p[Q]p[Q]@/▙ LIST LET STOP LPRINT FORMAT USR ▝VAL ▘p CAT ▟00@@00▝P0P▝`0P▝p0P_▝A3191?1K1Q1W1c1i1o1{1▝1▜1[D]1[J]P LIST ▝ LPRINT ▝ FORMAT 0!`▗ FORMAT ▗ FORMAT ppp`0VAL ▘USR IN !E▝>yATN <> RESTORE ]T6 MERGE REM SQR [T] RETURN 8 LET Gy RETURN ( FOR x BEEP w#IN DATA yATN ( LPRINT +6 RESTORE !Z▗5> BEEP 5CODE ▚ LLIST STEP *POINT [G]vS##▝o3codJb[C]p©▝/ VAL STEP BIN [G]T▘▘[©?[G]! LLIST [G][+w#yATN PLOT <>!<▜. FOR ©RNDRNDAT PLOT ▝'©INKEY$/INKEY$loINKEY$▗ DIM ABS IN ▖ GO SUB yNOT &USR POKE ![K]_Swq"0[T]▝ ERASE ▛ THEN y>2]USR y* FOR /" POKE /CODE 2ABS ▚5[J]oHE▞ OR STEP INK [H]STR$ RETURN IN (S CLS ▞ RETURN ( LOAD RETURN (1 THEN [J] DATA >[B]G6 ▜ SAVE VERIFY 6 MERGE SCREEN$ }/z▘ MOVE STR$ b▝ SAVE SGN [S]IN y-▗▗[H] #[G]> COPY NOT &[E] MERGE RESTORE !ABS ▚~ATN RESTORE TO LLIST ▚:ABS ▚INT CAT ~ LLIST 4 LLIST MOVE .Mer THEN qo! INPUT ▝A INPUT # COPY IN rBIN EXP p LLIST LLIST 2`▗ STEP 5[A] RESTORE TO ▘NOT v5▚Priners66 RETURN N PRINT >▘No4[U]Yes>NOT BLEN > BEEP Q| STEP E[I]N@!v[I] RESTORE INVERSE *GUSR STEP ATN [I]>= STEP STR$ [I]@p▜ READ INVERSE RESTORE LLIST LIST GO TO <>USR BEEP INVERSE # PLOT >= BEEP INVERSE n INVERSE # INVERSE f STEP DATA [I]wz<>| STEP DIM [I]K▘ PAUSE [I]k▗ BEEP <>*CODE "▛ LPRINT [E]> STEP !0/ RESTORE SQR ▝ RESTORE A COPY ▞ OR ![H]&/▖▝STR$ AND R-▚ COPY COPY !kCODE [L]▘#w INK -▜ Turbof▘r RND[A]K V DEF FN IN ion 3.02 CIRCLE ▘ro|▘ v@[S]by AIG & S.W. Copyright (C) 1994#▚ RSTIN 7 INK -USR ▖For callz[L] dial: (0572)110564 DimaTi[L]▖22:00-24▝ 4▘IN 09▘11▗MSK CLS DIM E OUT OR ![K]USR }T#{9▝@[N]▗ FORMAT "<USR PAPER "USR STEP LOAD AT C▝<>nIN STEP 7▚~▚GATN ( OR ▖STR$ RUN CODE ATN <>7~[N]▗ LIST COPY COPY COPY ▚ VERIFY STR$ !@USR ATN 5CHR$ REM USR 6[K]Pass IN 2 GO SUB { CLOSE #▝▗! LIST COPY " NEW P▝1TAB 4▛EUSR ">USR "POINT [G]+"Mg▟"D▚CODE 2 LPRINT ▚ STEP USR PAPER CAT USR SQR ▖8 CAT *MIN USR #▜} NEW TO VERIFY STR$ *1▘AUSR $[T]▙<=( CIRCLE VERIFY 0k STEP N>=0:@USR RETURN ERASE _STR$ INVERSE THEN ~CHR$ 7NOT STEP ▘<= RETURN 0$CHR$ %NOT 3IN ▚ INVERSE u▚ RETURN NOT STR$ VERIFY [H]▚ STEP INPUT STR$ 8[I]p▗ RETURN ? PAPER =NOT @[G]▗CODE [G] OVER p==▗! STEP STR$ RESTORE ?▘< OR USR IN ▘N#^▗ STEP ▟<= DIM g▘@NOT Z▙>2Z▗: LPRINT ▚ATN >IBIN LN STEP >=▟[U]CODE 2CUSR 2@CHR$ OR INVERSE RESTORE ! RETURN COPY 9"KCHR$ STEP CHR$ INVERSE IN LLIST STR$ :@CHR$ ATN CHR$ =NOT :CUSR ▜ FORMAT CHR$ ▘ THEN O^▜>=NOT =NOT STEP [J]CHR$ CHR$ [Q]+(& RETURN -(" RETURN &( RETURN |( RETURN *( RETURN /( RETURN )USR >= IF JIN CHR$ R▘<>|▗<> PRINT RESTORE 3[G]STR$ LET RETURN - y[F]ox[M] RETURN + EXP RETURN &[Q]RNDox[U] RETURN | yASN oxTAN g[S] RETURN / IN STEP LLIST CHR$ [J] STEP NOT [E]▜▝<L[F]▝<>:[G](( GO SUB STEP ATN <= FORMAT . RETURN "(*AUSR RETURN $>=h▚ATN INVERSE n▘~USR [J]▚CIN USR <>ATN >=$FN RETURN "USR eo LOAD RESTORE STEP LOAD STR$ } LLIST <> MERGE YP}TAN LINE =NOT CODE OG< THEN | )< SAVE FOR INT [D]?8ATN THEN THEN THEN THEN IN = GO SUB OR RESTORE STR$ [P]▝ MERGE QLEN > THEN THEN 0 FOR FOR )= NEXT FOR MOVE <>0!1!2!3!4!5!6!7!9!8x PRINT IN u▝ LET GO TO STEP kNOT ~▘] LOAD ▜▘ THEN ▚SIN Yz LOAD RUN &Q▘LN AND Y▖~#ATN ( BEEP SAVE FORMAT AADC ADDIN ▖F'AFAN▚BBCBCALLCFCP▘PD▘DR▝ILDDAA▘DEIN O▗DEFB ▝M ▝S ▝W▜IPHASE"JNZ EEIUN ▗EQU▝XXHHAEXP LTHLIIF▘INSCREEN$ ▗IND▝R▝N©▜IXIYJ[L]▜JR LL THEN LUSR ASN RND▝Ls[G]RMNCNEGNOPNVNZO/ORG▝T CAT ▘OT THEN ▘OUS▟▝DTAB ▚PEPO CIRCLE COS RANDOMIZE PUSH RRE FORMAT RET#NR RLALDR▘RR FOR ▘R RUN ▖SU▘SBu▜R▘SE▗PSRM▘SU@VX[T]▝Z LIST ▗CLUD6▝B@NOT ▖Q LINE Q LINE vIN ▘[Q]1@@ CLEAR <>[H]BIN ATN LINE ? OPEN #<>LN 1 LINE POINT DEF FN <>EXP DEF FN <>[R] DEF FN <>LEN DEF FN <>/ OPEN #▝' [A][E] LINE ; THEN DEF FN ▚ THEN w THEN NEXT PEEK IN THEN 5 THEN W▝ CLS '▝>=▗ CAT THEN INK 3▝v 9i[D]ATTR TO @ TO [E] LINE SCREEN$ DEF FN <>INT DEF FN <>[S] DEF FN <>SIN DEF FN @CHR$ CLOSE # LINE ?▟@>= TO FN DEF FN IN <>LN DEF FN <>[Q] DEF FN <>VAL P▝D'PE▝VAL ATTR VAL$ THEN SQR DEF FN <>COS DEF FN <>Ai TO ATTR DEF FN <>[T]PE MERGE STR$ PAUSE <>k OVER NOT [A] CLEAR <>USR STOP <>M DEF FN <>E DEF FN <>IN LINE ABS RND LINE OPEN #<>o DEF FN <> LINE OPEN #<> LINE OPEN #<>g DEF FN <><= BEEP <>[I]Q LINE 7 OPEN #<>USR CLEAR <> ▜( LINE 8 LINE [A]!▝FN 1▛[I]▚IN ▜#wATN >=[A][B] POKE ((6#q#~[P]© RESTORE !NOT STEP <= LLIST 8p# CLOSE #w STEP O<=0 STEP j<= AND #0ABS #~IN ▝*[▛ STEP NEXT AND ATN LOAD <> VERIFY ©G :▞=<=0 LLIST ~ DIM ~▞# POKE LLIST FORMAT #F IF BIN THEN A IN <>ATN >= PRINT STEP DIM LET <>PEEK (~# RETURN 0 IF A▝ LET ▗ GO SUB 7<> MERGE l▗PEEK ( IF ~S▚ RETURN ▚▖8 MOVE BEEP LLIST ATN <>0,POINT IN ~ RETURN 7>= NEXT ATN <> RETURN A CIRCLE RETURN [?<> RETURN 0 CIRCLE RETURN :?<> STEP H<= FORMAT RETURN _>= RETURN .>= RETURN @>= RETURN ?>= STEP A▗a CIRCLE RETURN {"▚">= RETURN #<> VERIFY ([D]? FORMAT FN VERIFY RETURN CIRCLE RETURN ?<> RETURN ( IF ▟▗ PRINT ATN <>/▚>= RETURN ;<>G(IN [G] GO SUB 6#<>wEXP 7>=+ SAVE &Z#(6q[B] CIRCLE MERGE G STEP p<=x0 RUN MOVE RETURN H($▗ VERIFY 0ok▖0D[A]M) CIRCLE ) CIRCLE ▖o0 DIM $ NEW i▟p<= CIRCLE "▗p<=8IN ASN o GO SUB j[A]H>=ATN <> STEP >>= CONTINUE ▘d▝▚} AND 0 STEP NEW ▗ OUT NEW ▗<>CODE < GO SUB R0 CLS EXP >= AND /▜IN STEP S<= PAPER %NOT b RETURN : ▜=▜ LOAD NOT (NOT b CLS MERGE ▘▚ GO SUB [GUSR ▛▟{ PLOT _ NEW ©PEEK PRINT [G]PEEK REM SAVE GO SUB R &▛ GO SUB K<USR ATN GO SUB BrPOINT ▗0 CAT [Q][P]USR +[N] FOR GO SUB SGUSR { NEW LIST _ MERGE INVERSE LLIST MOVE <> RETURN ABS >= RETURN DATA =▛EXP ▝▞M▝SGN ▖▗ AND >= RETURN STOP LIN OR ▝LN '▝▜'▞[E]>= STEP v<>>=SGN p▝,▝ OVER H▝▚@@▝[C]P▝[N]T▝[T]X▝SIN /▖(( RETURN >=7 CONTINUE ▘IN ▝<=?▗ 58▖ RETURN )>=NOT +NOT .▟+ STEP INK CHR$ RETURN 8NOT .NOT ▝ ERASE .NOT GO SUB Do[H])CHR$ +NOT 7<> RETURN RND>= RETURN IN VAL$ > INVERSE NOT DIM RETURN CODE USR > CLEAR pxpx x▗ RETURN q RETURN ,CHR$ 1NOT y▗<>xLEN 8▘xUSR ▜`0▘> GO SUB CLOSE #▝yU▛ STEP [F] PAPER CHR$ G[R] LINE ASN <>NOT 4NOT g▝<>▗ LINE >= LINE INT oIN &▗ STEP LET >= LINE NOT &▘ RETURN [M]I▝OATTR @b STEP <>CHR$ 4NOT 8> THEN #NOT TAN <> ▝}0 ERASE TAN <>}PEEK ▝ PAPER IN F▗oy PLOT F# CAT ▝ ERASE ▛FN <> BEEP g THEN Y L STEP <>Z`INKEY$>B THEN a PLOT Ox RETURN RNDp! [H]▘& OVER IN [S]▜ > THEN A("▘NOT NOT v[C] ERASE INT <> STEP INT w DEF FN STEP SQR <>j> STEP LINE INPUT MOVE ▝|p ▝ CONTINUE E>NOT INVERSE IN 1SIN ▛LEN ▚> DIM @I▛ GO SUB KAUSR y VERIFY ~O0H8 GO SUB B|ATN CHR$ .NOT } INPUT COS ▝y:▖IN INVERSE !OUSR OUSR MERGE } STEP >=CHR$ ▟ RETURN , MOVE STEP ; DEF FN MOVE ▛ LINE [S]▝▙ INVERSE BIN ▚ FORMAT STEP <> LINE p▚ LET IN 95CODE (N▝0&NOT k DEF FN ,▜and,▞NOT ` DEF FN 0$j▝<>`▘<>*ABS RETURN [E](( RETURN ▗(2 RETURN (CHR$ : REM ▝ OVER pIN PAUSE !!▙> READ $▝FN ▖▝▝ AND ▝( PG▞▞ +> FLASH j▘ PAPER CHR$ pB STEP ▗<> STEP A STOP IN p.qg▝NOT "[D]▘NOT INT pK▞(> OPEN #pGC▟▝uOp9 [U]_2EXP VAL$ ▝J▝o2@▛F-(- PLOT PLOT "w[K]CHR$ ( STEP x▘[R]0( RETURN ▜ > RETURN [E]INT IN >:/<> LINE p>=>=▘ RETURN INKEY$o LINE (>>0 RESTORE [M]▜[E]▝5! DIM ▜x RETURN >*(ATN #p▙<>VAL$ ox RETURN } > RANDOMIZE a▘NOT REM 3Jx PRINT #f▜ LET 8 RETURN (%I▝&sI0 REM ▜( LET y NEW ? PLOT LEN o▘<>P0[F][E]8 RETURN INKEY$ NOT ▖ TO RETURN LINE CONTINUE BORDER ▜>NOT } TO DIM bIN qaa▗ >2 PLOT NOT TO LINE RESTORE #f▝ LLIST CONTINUE TO ▗" LINE PAUSE STEP 0 STEP ▝CTAN PRINT STEP >= OVER ▖ STEP [F]<=0 MERGE DIM ▝ COPY ACS SCREEN$ MOVE <>r POKE POKE {s+▝ INPUT [C] RETURN !>> >E2▜NOT PEEK THEN >f+}TAN RESTORE !VAL$ DEF FN RESTORE OR [J][K]w#;▝,▛# LLIST LLIST NOT 1NOT INVERSE LLIST OR !▝~[K][F]STR$ LLIST #xLEN PAUSE STR$ INVERSE + INVERSE } INVERSE TAN RESTORE <>BIN O<> NEXT OPEN #<>7n@NOT CLS ▝>=o@NOT v wugu@'y?wzzP▝D'PE▗VAL 1 LINE w'PE;▛▘ OR PAUSE uw7[S]wwwG▝ LINE G▟i@NOT FN ▝w[C]▗>= RETURN [C]IN CODE 2| PAUSE O! POKE THEN v( THEN n( THEN ~#( CLS ^ RESTORE !▝ NEXT yINKEY$ LLIST #PEEK # STOP MERGE FOR NEW @ RUN ! STEP / CLS NEW (▚x2LEN LPRINT NEW ▖ RETURN a8 NEW _ STEP PEEK [D]( INPUT INVERSE .>2 CLS > IF 2 CLS > STR$ ![U] NEXT A0Z RANDOMIZE ~1▖8 RESTORE STEP AND PRINT LLIST m LOAD >,=▘>(B STEP 7 PLOT >)J[J] INK FOR INVERSE ] MOVE <> :USR CLS [Q]SQR : OVER CLS PIUSR yfRND INPUT INK MERGE INK MERGE = DRAW STEP W GO SUB MOVE INK O<>CHR$ NOT BIN OR H[F]L[F](POINT STR$ 8p▞0BNOT D OR [D]S FORMAT P▘A AND #▖(BC),STR$ A,▗POINT (DE0DEPOINT (),[D],( !▛POINT N PAPER PAPER NNOT NOT [0▚P CAT P OR FORMAT STEP j▖VAL LEN SIN COS TAN ASN ACS ATN #▗I,STR$ RR▗<>A, ERASE 2INKEY$VAL 0SCREEN$ LEN SIN [ PLOT STR$ LIST r PLOT <> LIST e PLOT MERGE LIST PLOT A LIST PLOT q LIST PLOT ! LIST LEN PLOT PI LIST COPY SAVE <= COPY USR ▖ CAT CAT <= CAT CAT COPY COPY <=▗<= BORDER USR <=▝ BORDER [P] COPY <= CAT COPY [Q]▝▘[A],▝A,▝,[A]A,[A],[B],▗EXP ▗POINT (NOT ▛[C][B][G]▜,[B],[G]&▝( CAT PAPER ▘▘PNOT ▞SP,[D](SP INK (POINT [Q][Q] ▞VAL SCREEN$ NO FORMAT vCOS ABS CLOSE #@ RANDOMIZE LBIN AND ADBIN ▖ DEF FN ADNOT [A] VERIFY SUCHR$ [I] OVER SBNOT [Q] NEW ANBIN FN INPUT XO ERASE VAL PLOT [Q]LN RETURN C FORMAT INNOT DENOT EX AF,AFPI FOR [A]DE,H TO READ E CIRCLE INK EX CIRCLE OR [R]▗>=STR$ P▝[B]'DASTR$ /CP TO 7SC AND ?C▚ NEXT D<> CLS E CIRCLE ▖RLCSTR$ RR[A]RLSTR$ RRSTR$ <>rE CLOSE #USR IN STEP BIN cAL TO j ERASE dJN PAPER NOT CHR$ j FORMAT DIM j FORMAT <=rS CLOSE # FLASH I DEF FN COPY RLNOT RRNOT R TO R ERASE LEN SLSTR$ (SRSTR$ 0SL<>8SR TO @BI CLOSE #RE OPEN #USR SE CLOSE # COPY pIN AND @I DEF FN !qAG▘B▘J[O]KCGLBIN DNE<=FI STEP gRRBIN oRLBIN [Q]LSTR$ [Q][R]CP<>[S]IN<>[T]OUT<>FN LDBIN POINT CPBIN SCREEN$ INBIN ATTR ▛BIN VAL LDI ERASE LEN CPSIN INCOS OT▝LN ERASE EXP CP▝INT A ERASE SQR OTD ERASE ErET DEF FN M▘<>"USR [R] COPY RETURN 0:! LINE PAUSE G><> >x2 COPY PRINT CODE GO SUB LEN DRAW STEP EXP PAUSE INKEY$## THEN ~( CLS [B] RUN #}▗ RESTORE STEP PLOT y▜( NEXT x25 LLIST <>[K]▜▜_!% NEXT ^#V FOR DIM : PLOT HL{ OPEN #zNOT PEEK CLS ! PLOT ><>PEEK (STR$ LLIST [N]NOT v LET >2▖ PAUSE STEP PLOT >2^ PLOT +(CODE [B]O>-[B]y STEP SCREEN$ RUN INVERSE ,<> INVERSE ,> STEP ABS PAUSE NOT SCREEN$ RUN ▗ NEW 8&o"M LLIST LIST ▝▝G ▗ INVERSE , GO SUB C! STEP ▟ PLOT FORMAT !CHR$ ~#▝[A]# FOR PI7>=PI GO SUB B FOR LIST >L2/ SAVE ▗SIN RUN >#▜<> INK MERGE INK LLIST ## Z NEW COPY MDATN RESTORE [U]3 CLEAR ! COPY THEN G NEW ( PAUSE FOR <> OR STEP r RUN ATTR STR$ { RETURN (2 RUN CODE 2? RUN CONTINUE LPRINT RETURN C(* VERIFY [D](&=(# RETURN LINE ![O]{ VERIFY (=( VERIFY ▝(=( RUN :ABS GO TO USR ▖@POINT OPEN # RETURN RETURN [L]<>CODE _& RETURN RETURN . GO SUB P< THEN 8 RETURN THEN CLS RETURN %[E] NEXT %(- LLIST THEN 8 INK %%USR ATTR COPY <> STEP C SAVE 2 COPY STEP SAVE COPY STEP CLS i`y<> FOR " THEN RUN N#F FOR STEP DEF FN RUN "<> OR STR$ OR RESTORE [K]> STEP [K] RANDOMIZE STEP ! RANDOMIZE LLIST 8 LOAD LET ERASE MERGE STEP FOR RUN MOVE <>Gx RESTORE OR E▘>[T]g RANDOMIZE STR$ LLIST 8 INPUT OTAN COPY CODE _> NEW 2& IF ( STEP [ SAVE yJ RESTORE `i#[I]>0CODE [B]0▝? GO SUB j PLOT OTAN ASN >0a▟ ▝{< STOP LLIST <>GC: SAVE D[G] COPY HGABS >#x RESTORE ![C] RANDOMIZE w STEP n SAVE ABS LLIST CODE <>CODE GO SUB o AND [A]' DEF FN @'<> BRIGHT SAVE GO SUB CVAL RANDOMIZE >CODE 2) CLS >2i IF G MERGE OR STEP PAUSE SAVE STR$ OR y RESTORE ▜ STEP [E] RANDOMIZE LLIST STR$ MOVE MERGE OR INK NEXT INK INK STEP t RANDOMIZE THEN C INK 0▛[E] LOAD BRIGHT DIM xPI( FORMAT STR$ MOVE > ?▚! CLS "VAL RANDOMIZE N▝<>[U]PI>=[F]&▜▘ GO SUB K[F] INK STEP ` SAVE INK PRINT >=> INK CODE ▗ PAUSE <> MERGE ^▝_c MOVE <>l▚ RETURN # {▘ CIRCLE G▗O<>l! CLOSE #▝0 CIRCLE RESTORE OR MD!([C]STR$ READ MDSTR$ [P])STR$ P INVERSE !VAL REM OR INVERSE n INVERSE f INVERSE ~/INKEY$w INVERSE ~ INVERSE ▚ INVERSE wOUSR IN NEW G} NEW LPRINT VAL oy NEW INVERSE uVAL GO TO _[D]W INVERSE wINKEY$( INVERSE 6ACS ACS w INVERSE STR$ ATN <> DIM M DRAW K PAPER D DRAW ERASE CLOSE #D COPY PIIN TAN O[T]*KW RANDOMIZE K TO INT T CLEAR FORMAT CIRCLE ONOT J DRAW $>=MEyN COPY TO [I]@ DRAW NOT 3O[O]PIP9@▝K 6K CLEAR ▜TAN tM CLEAR INKEY$IN RNDnD CLEAR vPOINT IJ [M]J CLEAR BORDER gO COPY <JM2I RETURN [D]BK DRAW $V FN OF DATA @ RETURN !@JM COPY S CLOSE #IN K[S] IN K CLS INPUT D CLEAR r H[G]4I DRAW RND[I]P DRAW USR CLEAR K COPY CONTINUE }O RETURN GO SUB wL DRAW IN &H DRAW 5mN DRAW o▗L /@|IN CAT H COPY ©▞NKaM▛IY@UM CLEAR TAB [D]R COPY [N]H COPY @T DRAW P BEEP INT [E]K DRAW [Q]HI RETURN DATN N COPY PEEK [L]IIN CIRCLE ▙K CLEAR wLEN O RETURN [S]K COPY (OF CLEAR B GO SUB HL DRAW FVAL$ T RETURN w^P DRAW PLOT [I]JNOT hK COPY DvFATN ~@ PAUSE [G] BRIGHT N DRAW STOP ▜H RETURN >[U]@" bO~VIN JRQ@COL COPY y@ RUN I RETURN EXP @uNCODE SCREEN$ L COPY V[B]O DRAW ▖tN[R]@ FORMAT K RETURN ▘ _O RETURN RETURN 5HCODE REM OU~L RETURN ▞ RUN ▜H8▘N[B]IN IN P CLEAR O4▝O COPY : [H]T RETURN LN CIRCLE KUSR [A]I▗H COPY * [F]K COPY VAL$ NDpAM CLEAR FORMAT O▘ qK COPY IN ▟aN COPY TO L@ ▝8"I( FOR P[L]j▖ MERGE ERASE ;▙)"e CIRCLE tPOINT g INVERSE _COS {a GO TO [A][L]`:44 [L]JSTR$ [C][G]BD DRAW D DRAW D DRAW DRAW 0 DRAW IN G~ NEW DRAW LEN w,~ NEW VAL w-$ INK #VAL$ MOVE INK STR$ !Q DRAW ~-PI .T") DRAW ~2 OVER CLS >=!USR CLS 4<>! COPY w, $> OR 2CHR$ RESTORE "@ DRAW BEEP , COPY <> COPY <> COPY <> MERGE <>▟P P▛ [Q]@[Q]@[Q]FN TFN TIN bccH CIRCLE [D]P SAVE Q SAVE S x[Q]p( LIST >= CIRCLE 0` CIRCLE [L]0X0| CIRCLE ©0c0b`3`20cU SAVE S% SAVE !50`{LEN ec0`USR p[I]LN CONTINUE >=s0p2{p[I]pUSR CLS p[I]0[I]s8X[I] SAVE SAVE USR LIST CIRCLE spUSR LIST <>s SAVE .IN ap>=p<>sp[J]xscc31`5`USR `3 CLS CLS e00cp CIRCLE 3#p>= INK USR {p<> SAVE <> LIST >= LIST <> NEXT p>=STR$ >=s LIST LINE >= NEXT N▘STR$ CLS S▝CHR$ G[U]USR CIRCLE >=s<> SAVE LINE x20{[J]s>= FORMAT LPRINT LIST CIRCLE THEN CHR$ STR$ CLS ▖ CIRCLE POINT ▞<> CONTINUE CIRCLE <>p LINE 6▞<> LIST STR$ p<> CONTINUE FORMAT k▘USR p[F] DRAW 21 LINE <>s LINE >=P#▖SCREEN$ FN S▖ CIRCLE q CIRCLE ▛[K][C]▝ SAVE CAT [T] CLS xb`{USR `0 LIST 20 NEXT p SAVE " DRAW 0h` SAVE ` CLS ux[I]{STR$ [D]▟=b;x[J]{u>= LIST USR {x[B]▝} OPEN #▙pSTR$ LIST LINE 3p1{[I]pUSR [C] FORMAT THEN ba; MERGE SCREEN$ ATTR PRINT LINE THEN u LINE s PRINT '=bcu▖[F] NEXT 0x2 STEP LINE s STEP <>P#▟SCREEN$ S INVERSE p p FLASH [N]F▝ CLEAR ETAN 80`1;"%! LPRINT `0a READ (xSx▗TAN [U]TAN ▗x!k OVER " FLASH ! COPY STEP [Q] OVER COPY >NOT W GO SUB OPEN # CLEAR * LLIST COPY ▘IN LINE A COPY < PAUSE ▜ CLS [S] STOP LLIST ▛ LLIST PEEK LLIST RETURN LLIST STOP STOP STOP GO TO DATA . RESTORE CONTINUE COPY NEW O AND 02 LLIST COPY RETURN 7(0CODE 2c NEW y2h NEW > STEP g NEW ! CLEAR IN TO ; GO SUB >BIN 2 FLASH >2( FLASH ,V, INPUT PLOT !@USR GO SUB VAL STEP LIST PLOT STEP i STOP xSTS 3.COS MoATN nitor-Debugger 128/48 THEN (0572)452569,Dima(StalkerPOINT Ins[C]l in Page ZX!FF13 INK USR RESTORE IN %-| NEW RETURN ( INPUT FLASH RETURN / NEW ( REM NOT p STOP CAT l STEP 0m TO OUT k THEN |mPEEK #(## SAVE <>~#fo DIM :s!Bso[F]g<>*[▜w|ASN >= STEP POKE w NEW ▗"[w"▟CODE y" DIM vNOT u STEP vx>= OR ▝ LLIST ATN GO SUB B8 FOR STEP OUT w!*$0-▚*Rwe.0▗ STEP PLOT l CIRCLE :▚ OR READ STR$ g▟Cs?6 GO SUB VAL NOT PIvk▖ OR RESTORE :▗s STEP RANDOMIZE gV[B] RESTORE STEP FOR w MOVE STEP x STEP m LLIST ]T+"R@g LLIST 8+$[B]O>[B]OATN GO SUB R0 GO SUB [[w MERGE [P]▜*s RESTORE >2A1u LLIST AT [L] STEP ▛wZ w POKE w* DIM t]T RESTORE V▖m LLIST 6#6p▘ OVER g[U]▝#b▘ FORMAT &[w GO SUB KRw VERIFY 8i` DRAW [I]-q@ RESTORE Y▘ OVER v0/▝CODE ▝.▘0 CLOSE #▘oe0zp- '>2s5▘ ▚ FLASH RESTORE ++ OVER @y▘ STEP w▝#d▛!▗s~ RETURN (4<>*e▝ FOR k▘h1▝ RESTORE s▝+▘|ASN ▛▘( OPEN #USR +▜ COPY COPY > GO SUB EXP USR #▘ STEP ▙ B▗ATN (5A©▝CODE OUT VAL <>[H][F] STEP Vv STEP ct> w!%e45>=5NOT [S]e!2>=5<> RETURN ? FORMAT 4<>O>[B] NEW <▝ NEW ?LN 0▞?[B]>=O!sE GO SUB LN FOR 6 TAN p▝V]T# GO SUB VAL ▗CODE 2%e<>2&eK▙@~ OR STEP [S]eSTR$ # RUN <>!▝> PEEK + IF #Bs8▝}a▝CODE f▗ STEP 6dCODE [G]w#wi>= RETURN ( RETURN +>[G]▙▜▚w#NOT FOR v MERGE N▝ MOVE (▜>=4+6# STEP /d STEP xo!s STEP BIN d* LINE cATN FOR ![K][A] FOR NOT c!"%eCODE y! COPY COPY SCREEN$ LINE ▖ GO SUB B STEP c> BEEP IN STEP Dc>:`▝ BEEP ▘ STEP I* RETURN m▖:1mATN > (#▚*nNOT Dc1IN [D]▝ FLASH GO TO ▝tINKEY$++STR$ COPY "x8 RESTORE @6 # CLS H@ MOVE o[L]~ RETURN >= RETURN ( RETURN 8 RETURN 0#y RETURN @ FORMAT NEW <>!`▗ PRINT ▝O LET ) CLEAR ▘ NEW AND ^▗zCOS >=` RUN > VERIFY ▜ GO SUB LEN #<> STEP ▝x"EXP ▘ FOR ▝ GO SUB IF ▜xLEN >= GO SUB [ DIM tTAB ▗ GO SUB VAL <> RESTORE INVERSE *Gw▚ LLIST STEP @x MERGE FOR GO TO [E]▜Gw LLIST GO SUB KNk[O] CIRCLE /2Hk<> MERGE FOR `i5CODE DM LLIST RESTORE 8 LLIST GO SUB R FOR 8( FOR FOR MERGE GO SUB LN MOVE <> GO SUB VAL <> FOR <>1>2▘dNOT ▝dC DATA <>!▘!STR$ ▝+CHR$ [G] IF (#" CLEAR wx RETURN 8 NEW (+= r▚PEEK TO CHR$ x> ▚0 INPUT * CLEAR w REM ▝R-▗<> RESTORE RANDOMIZE CLOSE #[C][B] RETURN ]T LLIST CIRCLE RESTORE # FOR #6# FOR RESTORE MERGE FOR , MERGE [J]xMD MOVE LLIST GO SUB VAL G GO SUB S CLEAR w LLIST <> NEXT CLEAR ©> GO SUB y STEP FN USR GO SUB y CLS FORMAT v▝v▖y0he:[w RUN D©▖<> PRINT :RNOT ATN CHR$ 7▟y##"Gy LET <>} STEP Ay|▜ LET <> PRINT RESTORE 2nyTAN #▗ LINE wy OR [| RETURN USR > ERASE ky| RETURN > THEN POKE ▞ THEN DRAW NOT my GO SUB y6v▝STR$ GF LLIST LET <>*▘~ CIRCLE 3▗▘~ PRINT [E] LET STR$ <> OR OB▚y ERASE [Q]ywSTR$ H▘VAL$ ▖ GO SUB Yw GO SUB Q MOVE STR$ <> COPY COPY MOVE [C]NOT CLEAR VAL "24575": BORDER NOT PI: PAPER INK VAL "1": RANDOMIZE USR IN 020": REM 1 RETURN _! RESTORE GO SUB s=/!v RESTORE > STEP DEF FN ]!USR RESTORE *O/PEEK FOR GO SUB VAL ! RETURN COPY "E/> COPY 2D/ CLEAR THEN INKEY$!;]"K/6,"]/6,"U [I]Y/,"a/"c/"e/T]-6 CLS NOT NOT 35▚y<> NEXT 1`P`▖. STEP RUN ]> n▗ FLASH % GO SUB [ POKE / STEP = NEXT <><>SCREEN$ [D] LET [C] NEXT STEP %USR *=/" LINE ▜!USR %/IN NOT W VERIFY ▝>!IN [E]y DIM NEXT !WUSR W GO SUB [Q]+w# THEN | PLOT ▝<>8▘>▙NOT -/C▜ CLS >NOT } RESTORE M▝ LLIST AT -/NOT IF >0!>1!>2!>3!>4!>5!>6!>A!>B!>C!>? GO SUB { STEP [B]H MOVE NOT a▗!!>Ei[P] STEP ▟ PRINT *b MOVE STEP REM INK >2 PLOT LET STEP ▖ STEP ,▟>ASN MERGE bkG#▝ MOVE '▚!s STEP %[B]!ASN NOT STEP '▟ CLEAR u CLEAR tN CLEAR FNOT ▟ STEP 3▝ SAVE ATN E[D]" RETURN "USR eo LOAD STEP <=▘ FORMAT .TAB ( READ RETURN $*=>=:▘ATN MOVE /2/▘ STEP b PAPER f RETURN :CHR$ +▝ STEP X CIRCLE LET <>d8 LLIST ! FORMAT Mw, "▝M0"[Q]8 INPUT 6 , CLS MERGE GO SUB s*▘1 FORMAT STR$ y/STR$ ▖▞STR$ ▞▖.▖w INVERSE D INVERSE M GO SUB [R] STOP z[P]LEN J">=▝+))]T) FORMAT RANDOMIZE LLIST ABS 1SGN , LLIST ▝&▝! ▝▝ ▝!▝ !▝,▘({ REM }▝ GO SUB [{▝ GO SUB S BEEP ▝P LINE ▗ LINE c CLEAR [F][H] CLEAR 9 LLIST GO SUB {*▘ MOVE PI<> INVERSE # INVERSE | NEW CHR$ lw#0u▞| AND FORMAT g RANDOMIZE *AT ▘ RESTORE 0*▚* FORMAT RESTORE *▝▝ FORMAT RESTORE >=▝/<>▞ MOVE 7<>>ATN ( RUN [C] THEN dBIN BORDER BRIGHT ~#"6▘ RETURN COPY USR CODE 21▘RND!RND[H][L]M▘<>:1▘ATN TO ,▟t STEP 0▘2FN ATN ( RETURN COPY ( RANDOMIZE CODE ▝7[H]▘ INK _O▖ *RND▘ RESTORE W FORMAT OVER [C]8 THEN t( GO SUB Q THEN POKE s> GO SUB [U]▗#"RND▘ ATTR AT ▘ INK CODE 7<>l VERIFY 0? FORMAT RETURN FORMAT THEN THEN LIST & STEP r FLASH RETURN #(5 RETURN %( STOP STEP ) CIRCLE MERGE ox0 RUN MOVE RETURN H(▝oBIN ▛)? FORMAT DM) CIRCLE ) CIRCLE ▜o0 FOR $ CONTINUE BRIGHT 0 CIRCLE !▗08#▗ASN o GO SUB ▛H>=ATN <> VERIFY 0 CIRCLE RETURN ?@INKEY$ FORMAT VERIFY RETURN CIRCLE RETURN ?<>ABCDEHLIRXHXLYHY▖XIYAF'SIN DEBCMNCNVNZPPEPOVZSP{ ORG PHASE UN ▟AND ADC SB▘AD▖SUB XOR2▜ CP L%[C]IM RST EIDIEXXAINFLDIRDROT▘OTUTI▗DRE▝N,(▘IN(▘CP2▘CP2NEG$KT▗CCF* BRIGHT AAHALTNOPRLA▝C▝R▝S'▘RLi▝R-▝XINKEY$ETCALL JSGN ▗PUSH RUN ▝O<=▘IN CONTINUE ▘DE GO SUB [O]( GO TO ▘BI BRIGHT Y NEW ▝R?▝RSLA▝R▘LI▘ES0▝E▘QU:▘EGK▝E PEEK ▘CBWjLUDh▝DKDEF06▝W▗▘OW▗▝UbSYSTEMSTOPKEY OPEN #▚ FOR z STEP E{[E]w STEP LCODE GO SUB o AND [A]' DEF FN @'NOT ▖ RETURN .>= RETURN 2▝:RND▜_>= RETURN ? CIRCLE RETURN [CODE a CIRCLE RETURN {?w COPY COPY COPY COPY COPY COPY ▙ FLASH |8 DEF FN DATA P DEF FN RESTORE P▞ CLOSE #MLEN 3 POKE ] LOAD ] FOR ] LOAD ]LEN 3P[M]G LET q AND PIav'<BB~BB|B|BB|[E]@@B<xDBBDx~@|@@~@▝@ ▝N 78▝>STR$ >USR ▝B8DHpHDPCHR$ @8BfZ (BbRJFhp (n0PBRJ@8▗<@<▝ RETURN CHR$ h0 STEP R;; MOVE !$ RESTORE !D RESTORE INK MOVE STR$ INK !w@~ RETURN GO SUB (# INK OR INK ( FOR 0 LET <>#F THEN x( THEN LN x RETURN >0> GO SUB #~O INK MERGE INK y FOR PRINT #0 STEP <> FOR $| RETURN Y0 NEW USR } AND o?[P] NEW SAVE ▗gATN <> MERGE COPY MOVE | RETURN [? FORMAT VERIFY g,} NEW USR 7<> GO SUB COPY GO SUB ▞ COPY COPY PRINT REM FORMAT STOP MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE STOP FORMAT REM PRINT COPY GO SUB @ GO SUB GO SUB DIM ~}}©©©©©0@ ` GO SUB ▞ COPY COPY USCREEN$ ▖"U COPY COPY [F][A]▖[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[A]▖[F] GO SUB COPY USCREEN$ ▖"U COPY GO SUB @ GO SUB 0 GO SUB DIM LPRINT BEEP [Q]C COPY CLEAR PLOT SAVE PP GO SUB GO SUB ▞ COPY COPY USCREEN$ ▖"U COPY COPY USCREEN$ COPY COPY [F][A]▖[B]▞[B]▞[B]▞[B]▞[B]▞[A]▖[F] COPY COPY QPOINT GO SUB COPY USCREEN$ ▖"U COPY GO SUB @ GO SUB 0 GO SUB DIM COPY COPY COPY COPY COPY COPY ??0@ ` GO SUB ▞ COPY COPY USCREEN$ ▖"U COPY COPY USCREEN$ COPY COPY USCREEN$ COPY COPY [F] COPY COPY USCREEN$ COPY COPY DRAW RETURN DEF FN TO RETURN RETURN GO SUB COPY USCREEN$ ▖"U COPY GO SUB @ GO SUB 08 GO SUB READ GO SUB COPY COPY COPY COPY COPY COPY COPY COPY p GO SUB GO SUB ▞ COPY COPY USCREEN$ ▖"U COPY COPY USCREEN$ COPY COPY QPOINT [B]▞QPOINT COPY COPY USCREEN$ COPY COPY dd|© GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB @ GO SUB 08 GO SUB GO SUB GO SUB GO SUB * GO SUB [M]?~ SAVE LPRINT GO SUB ▗ PLOT FOR FLASH PAPER REM NEW SAVE COPY p@`@p GO SUB ▞ COPY COPY USCREEN$ ▖"U COPY COPY QPOINT [B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞QPOINT COPY COPY 1<><>>=>=9 GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB B@ GO SUB 08 GO SUB [A] GO SUB SAVE GO SUB DRAW GO SUB ~ GO SUB ? GO SUB GO SUB GO SUB GO SUB GO SUB GO SUB ▛USR GO SUB [G]© COPY DRAW LPRINT GO SUB ▜ SAVE VATTR MERGE REM PRINT REM MERGE SCREEN$ USCREEN$ USCREEN$ P LPRINT GO SUB ▗DllTT GO SUB ▞ COPY COPY USCREEN$ ▖"U COPY COPY [F]▖[A]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▖[A][F] COPY COPY ▖ TO H TO GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB B@ GO SUB 8 GO SUB ▖ GO SUB GO SUB ?▗ GO SUB BIN GO SUB DATA GO SUB POKE GO SUB DRAW GO SUB | GO SUB < GO SUB [C]8` COPY COPY DRAW LIST GO SUB ~PEEK @▙▙▙ GO SUB ▞ COPY COPY USCREEN$ ▖"U COPY COPY SCREEN$ U COPY COPY [F]▖[A]▞[B]▖[A][F] COPY COPY SCREEN$ U COPY COPY NEXT 3 LPRINT NEXT GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB B@ GO SUB 8 GO SUB GO SUB [P] GO SUB . GO SUB 8USR COPY COPY RETURN SAVE USR GO SUB GO SUB GO SUB GO SUB [C] COPY COPY USCREEN$ ▖"U COPY COPY SCREEN$ U COPY COPY SCREEN$ U COPY COPY POINT Q COPY COPY SCREEN$ U COPY COPY ©?3 NEXT ?? GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D GO SUB 8 GO SUB GO SUB RETURN GO SUB . LIST RETURN GO SUB ▖7_x LPRINT 7 GO SUB COPY SAVE GO SUB [C]S[S][S] GO SUB 0)1)) GO SUB [C] COPY COPY USCREEN$ ▖"U COPY COPY SCREEN$ U COPY COPY POINT Q▞[B]▞[B]▞[B]▞[B]▞[B]POINT Q COPY COPY [F] GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ GO SUB GO SUB ▖@[Q] SAVE GO SUB © GO SUB GO SUB GO SUB GO SUB ??© SAVE USR GO SUB © GO SUB SGN x LPRINT USR © GO SUB COPY LIST GO SUB [E][B][B][B] GO SUB JL>=H GO SUB "66** GO SUB COPY COPY USCREEN$ ▖"U COPY COPY POINT Q▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]▞[B]POINT Q GO SUB COPY USCREEN$ ▖"U COPY GO SUB BB GO SUB GO SUB D@ GO SUB GO SUB [A] GO SUB LPRINT GO SUB LIST GO SUB SAVE GO SUB DRAW GO SUB ~ GO SUB ? GO SUB GO SUB GO SUB COPY CODE GO SUB ▜| CONTINUE USR @ GO SUB ? GO SUB COPY RETURN SAVE GO SUB [F][M] GO SUB GO SUB RRrRR GO SUB QRQP# GO SUB COPY COPY USCREEN$ ▖"U COPY GO SUB FN COPY COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ GO SUB GO SUB ▖> GO SUB RETURN 8 GO SUB GO SUB [A] GO SUB FORMAT LIST DRAW RETURN GO SUB COPY ~~|| SAVE LIST LPRINT LPRINT USR GO SUB ▜ GO SUB COPY LPRINT GO SUB [I] DATA ▚ AND RESTORE GO SUB 1BA@3 GO SUB [B][C] GO SUB COPY COPY USCREEN$ ▖"U COPY GO SUB [A] GO SUB COPY USR LPRINT OUT LOAD OUT LOAD OUT LOAD OUT LOAD MERGE REM GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ GO SUB ( GO SUB ▖ GO SUB POINT x DRAW GO SUB RETURN DRAW x GO SUB @0 GO SUB ▚ GO SUB COPY RETURN LIST GO SUB [K]▚▚▚ GO SUB ▚ GO SUB ▚▚ GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY USR LPRINT OUT LOAD OUT LOAD OUT LOAD OUT LOAD MERGE REM GO SUB COPY GO SUB USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ GO SUB (( GO SUB ▖ GO SUB ▜ COPY GO SUB ,>| LIST GO SUB GO SUB COPY SAVE GO SUB [M](( GO SUB GO SUB (( GO SUB GO SUB (( GO SUB GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY GO SUB USCREEN$ GO SUB COPY GO SUB USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ ((( GO SUB ▖ LIST GO SUB LIST GO SUB GO SUB ▝ GO SUB ▘▗ GO SUB ? GO SUB © GO SUB COPY RETURN LPRINT GO SUB [L]▟ GO SUB GO SUB GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY GO SUB USCREEN$ GO SUB COPY COPY COPY LOAD COPY COPY LOAD COPY COPY USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ ( GO SUB ( GO SUB [A] GO SUB GO SUB GO SUB GO SUB # GO SUB A GO SUB GO SUB COPY GO SUB ▟ GO SUB COPY LOAD . GO SUB [N][M][A][I][A][M] GO SUB #RsRR GO SUB bRbRR GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY GO SUB USCREEN$ GO SUB COPY GO SUB USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ ((( GO SUB ▛ GO SUB ▗ GO SUB GO SUB USR GO SUB LPRINT GO SUB LIST GO SUB SAVE GO SUB DRAW GO SUB ~ COPY GO SUB ? GO SUB ?? GO SUB COPY LOAD OUT GO SUB [N] GO SUB [R]A GO SUB [E]▖▖ GO SUB "SSrR GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY GO SUB USCREEN$ GO SUB COPY GO SUB USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ ((( GO SUB LN GO SUB USR USR LIST RANDOMIZE GO SUB COPY RETURN TO GO SUB [L]▞ GO SUB I▞ GO SUB 9 GO SUB GO SUB BCCCHR$ CHR$ GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY GO SUB USCREEN$ GO SUB COPY COPY COPY LOAD COPY COPY LOAD COPY COPY USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ ( GO SUB ( GO SUB CHR$ USR LPRINT FORMAT CONTINUE LIST LPRINT USR GO SUB [Q]#[U][U]dc GO SUB DJ LINE JD GO SUB "eePIRND GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY GO SUB USCREEN$ GO SUB COPY GO SUB USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ ((( GO SUB LET bScRR GO SUB 0)0() GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY GO SUB NEXT SATTR GO SUB COPY GO SUB USCREEN$ GO SUB COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ GO SUB (( GO SUB LET NDDBIN BIN GO SUB LINE ▙J GO SUB COPY COPY USCREEN$ ▖"U COPY COPY LET RANDOMIZE LIST SAVE DRAW SAVE DRAW RETURN DRAW RETURN RETURN COPY GO SUB RETURN GO SUB ▚ DRAW DRAW GO SUB AT T GO SUB ▚ COPY COPY USCREEN$ ▖"U COPY GO SUB B GO SUB GO SUB D@ xx GO SUB GO SUB LET "SSR" GO SUB "RRrS GO SUB COPY COPY USCREEN$ ▖"U GO SUB COPY IN OUT NEW LIST z CLEAR SAVE x COPY VAL VAL 0?x|/CODE DRAW CLOSE # AND [B][Q][Q] LPRINT STR$ STR$ ▝STR$ ▜<=IN OUT ABS 9q RANDOMIZE LET LLIST COPY COPY UATTR ▞#U COPY GO SUB B GO SUB GO SUB D@ GO SUB x GO SUB LET GO SUB @USR USR GO SUB GO SUB LN GO SUB COPY COPY USCREEN$ ▖"T COPY © COPY ©wo OUT ©?IN ?? GO SUB © GO SUB COPY CLEAR GO SUB COPY GO SUB x GO SUB 8 COPY COPY PRINT REM FORMAT STOP INK READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK BORDER BEEP LOAD OUT OUT ©IN © GO SUB ! COPY OUT CLEAR COPY RETURN COPY COPY OUT COPY RUN OUT © GO SUB COPY GO SUB ` GO SUB 8 COPY COPY USCREEN$ ▖"U COPY GO SUB FN NEW f~ff NEW GO SUB [K] GO SUB COPY RANDOMIZE STR$ <= RANDOMIZE <= RANDOMIZE <= RANDOMIZE <= RANDOMIZE <= RANDOMIZE <= RANDOMIZE <= RANDOMIZE <= RANDOMIZE <= CLEAR LLIST aaaaaac©?© GO SUB COPY CLS COPY COPY RUN GO SUB COPY RETURN GO SUB COPY CLEAR RUN COPY COPY CLS PRINT PAPER u CONTINUE Q BORDER OVER ATTR Q[Q]>= PRINT IF GO SUB COPY GO SUB 8 GO SUB x GO SUB 8 COPY COPY USCREEN$ ▖"U COPY GO SUB ▖ AND GO SUB f8 GO SUB [K]3 GO SUB STEP 1 GO SUB [K] COPY DRAW LPRINT DRAW LPRINT DRAW LPRINT DRAW LPRINT DRAW LPRINT DRAW LPRINT DRAW LPRINT DRAW LPRINT DRAW LPRINT DRAW LPRINT RETURN CLS CAT © GO SUB COPY IN COPY IN GO SUB COPY CLEAR GO SUB COPY Z PRINT GO SUB COPY IN WSCREEN$ © COPY { COPY © COPY SCREEN$ MERGE GO SUB COPY GO SUB GO SUB x GO SUB 8x8 COPY COPY USCREEN$ ▖"U COPY GO SUB ▖{ LLIST a19 NEXT GO SUB [K] GO SUB ▝ CLS GO SUB [K] COPY ?USR SAVE ?USR SAVE ?USR SAVE ?USR SAVE ?USR SAVE ?USR SAVE ?USR SAVE ?USR SAVE ?USR SAVE ?USR RANDOMIZE / GO SUB % COPY OUT CLS GO SUB COPY OUT VERIFY RANDOMIZE RETURN GO SUB COPY o[H] CLS CLEAR NEW STOP OR COPY CODE © COPY COPY CLEAR © COPY OUT COPY COPY GO SUB GO SUB 8x GO SUB 8 COPY COPY USCREEN$ ▖"U COPY GO SUB ▖ OVER GO SUB [J] INK GO SUB [K] READ GO SUB [J] READ GO SUB [K] GO SUB COPY IN ▜<=IN <= COPY FOR FOR REM ▘ REM ▘ REM ▘ REM ▘ REM ▘ REM ▘ REM ▘ REM ▘ REM ▘ REM GO SUB COPY PEEK GO SUB COPY INPUT SQR INPUT CLS RETURN COPY COPY [P] FOR RETURN COPY IN _TAB ERASE FN POKE SAVE POKE SAVE DRAW SAVE POKE SAVE u IF GO SUB COPY SAVE RUN OUT COPY DRAW { COPY COPY GO SUB 8 GO SUB x GO SUB 8x8x COPY COPY USCREEN$ ▖"U COPY GO SUB ▖COS VAL ATN COS [O] GO SUB [K] OVER GO SUB [J] INK GO SUB [K] COPY GO SUB RUN READ GO SUB FOR COPY STR$ INVERSE >© INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT GO SUB " COPY ABS COPY _ GO SUB COPY LOAD OUT COPY RETURN RANDOMIZE RRND/_/[O]/IN IF CLEAR COPY IN W COPY COPY / RUN COPY COPY GO SUB 88x GO SUB 8xx8x COPY COPY USCREEN$ ▖"U COPY GO SUB FN COS VAL ATN COS [O] GO SUB [K] GO SUB COPY ©©? COPY ? COPY ? COPY ? COPY ? COPY ? COPY ? BORDER CONTINUE " CONTINUE " CONTINUE " CONTINUE PAUSE RETURN GO SUB COPY ? OUT GO SUB COPY © GO SUB COPY SCREEN$ _IN GO SUB COPY IF MERGE [Q]© COPY OVER IN OUT COPY LPRINT IF GO SUB COPY GO SUB 88x GO SUB 8x88x8 COPY COPY WATTR #Y READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ INK READ MERGE READ RANDOMIZE NEXT CLEAR GO SUB COPY IN GO SUB COPY IN LOAD CLS CLEAR RETURN COPY ATN RANDOMIZE RETURN RUN PRINT DRAW PAUSE [S]CODE GO SUB COPY GO SUB GO SUB 8x COPY NEXT GO SUB sb!NOT ah[P MERGE GO SUB VAL ! RETURN OPEN # COPY COPY GO TO q<> GO SUB LN !▙TAN _~ 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$ 1G CLS NOT R[K]??©©y©)00^~O© COPY COPY 6>>?7[L] RANDOMIZE COPY USR USR x SAVE < DRAW DRAW DRAW CIRCLE SAVE ▝▛SGN DRAW DRAW DRAW DEF FN RETURN p.p.0.[L]@USR SAVE # READ LN SAVE ' BORDER DRAW DRAW COPY COPY RETURN RETURN ©© DEF FN RETURN USR USR x SAVE <USR DRAW ▜LN SAVE SAVE DRAW ~USR RETURN [H] COPY COPY CAT COPY CAT COPY LIST LIST x SAVE SAVE ~VAL LIST 0 LIST ▟gg DRAW DRAW © RETURN RETURN ©[O] RETURN ~▜)/?' DEF FN ▜ LLIST COPY CLS USR COPY ▚ DRAW COPY pJpJ0J▝ TO ▝>LN © COPY CAT ▚ COPY 3USR ?▝D NEW ▙ COPY NEXT COPY )p^▝6▘)q0▗??pfpVAL pfPEEK ▝ COPY `f[U]USR USR ??USR USR LPRINT LPRINT LIST LIST SAVE SAVE OVER ▙< DRAW USR USR LPRINT 8.▟x©y© CLS COPY USR USR IN [B]11q)xx~~ COPY COPY .~▘?pp*▖||8▚^ RETURN ~©p▘0 LPRINT LPRINT [K]▝▘▘` LPRINT ppUSR ▝▘04▝ DEF FN LPRINT TAN ▟ LPRINT LPRINT x© LIST LIST USR USR B LIST LIST x SAVE p LIST ▗▝© DEF FN ▘/© [Q]▝p LINE p▘`▘▙D▝@ LIST >9p RETURN RETURN STOP ▚|| RETURN RETURN /| CLOSE #▗~][E]_©O©0088 DRAW DRAW ~©:▛ 0@P``RNDpp[O]VAL$ TO BRIGHT GO TO DRAW *HJLN`r▗[G]ASN INKEY$INKEY$LN VERIFY POKE &4N/l|[G][S]VAL SIN TAN )??)??B▜<<"~~R▗ >?p~$<p0▘0▘pB▝▘▗>PPR▖ SAVE SAVE H SAVE SAVE LIST 8 SAVE pJx▗ LIST [A] LIST TAN ▖▗p.p..l DRAW ` TO ▚? NEW RETURN BRIGHT ▝0▝ AT p BRIGHT ▗$<?p|p||| DRAW |▝@| |USR USR d@p▟ LPRINT [Q] LPRINT LPRINT ~©R GO TO ▞xxL DRAW DRAW DRAW [H] SAVE ©)<<&P▝@▗|?p$$▘??p$0$▚`6▝~[O]pHH▝USR ▞USR USR @▝▝ BIN ▚ SAVE SAVE AT ▚` LPRINT [K]RAC LIST LIST LN ▗` LPRINT LPRINT ▗ LPRINT USR [D] LPRINT LPRINT 0 LIST LIST LIST USR LIST LPRINT LPRINT CONTINUE SAVE )v▝)@▘ COPY COPY J0^0ZP^ DRAW <<@ INPUT ▝ DRAW Bp DRAW ▚?)Q RETURN ▘STR$ pLpSCREEN$ ▚#?!? ? SAVE &▞0> > >C▟ NEXT GO SUB s STOP e1 LET CODE NOT f1-IN OPEN # RETURN NOT ![!X CLS NEXT <>%2O[K]> STEP BRIGHT gpX~ NEW ©LEN w##s# POKE <> OPEN # RETURN STEP 1▝ LET KIN STEP F[O] STEP RETURN e>2g[B]2[D][B]CODE 2R^2S^2e^2USR f2y[Q]2W[B]2|[E]2©[E]2Q[N]2a^<2{[E]2~[E]>p2z[E]>P2}[E]>IN COPY 2g^CODE 2_[B]2&y>"2STR$ STEP {!ATN [T] CLOSE #[T] GO SUB VAL : MERGE [T]!*g STEP W~2 DEF FN ▘ PAPER [T] STEP LLIST STEP 4[A] STEP USR [P]>8 STEP FOR e STEP ][N][R]CODE STEP RANDOMIZE [O]>2c^CODE STEP FLASH [O] STEP i STEP ▙ STEP ©g STEP =l>ATN TO 5{>▜ LIST VAL$ IN _[O] STEP p!▘PEEK w > COPY +w STEP [p STEP [F]!X^4 STEP RND[N] STEP [F][D] STEP [A] STEP OR STEP wu STEP CLS [N]:p[B] THEN ©CHR$ VERIFY ▙:_^< LINE ACS f STEP -{ STEP 3[D] STEP STEP o STEP INPUT g RETURN J LINE -g RETURN Q LINE [L][A]NOT LINE f=<FN ▛< RETURN 8CODE 2 MERGE [T]2LN pTAN ▝▘STR$ ▛ AND LEN 2d▜!]▜ STEP INVERSE ▚@[S]+{NOT SGN f!/!▜"mg INVERSE !`[B] STEP ▜ INVERSE INVERSE ~< PAUSE ATN <>CODE 2]^20▗2|24▗22©2NOT 2_^2[S]▘2 RANDOMIZE m2/^2[L][B]2 RESTORE j=2▛[B]2ATN [B]:y[Q]O2u[B]AT ▚"z[Q] STEP [M] STEP l▖ STEP n▖ STEP <=[M] STEP %[O] ! OPEN #m!I[J]g<>!~USR STEP I[O]USR <>:▘ RETURN H<> STEP BORDER gUSR WVAL <> INVERSE ~< INVERSE PEEK 8 INVERSE 6 INVERSE w<>▖"▖FN [I]▘[P]PI DRAW ▖▖ DRAW ▝FN ▝BIN $▗▗(USR USR VAL [P] THEN ▖[P]nR[D]T[D][F][G]USR USR ▘▖[I]STR$ ▚[J][P]STR$ ▘[J]▜[G]▖P▜▘P▝pp▘.▝▘p&▖▝iiUSR LSTR$ Q[G]L[J][N][N]w5Bilo©▗▞[C]VAL LINE DATA LIST USR V[K]QL]LLDiIiSiXibigiqiviii▟vi COPY [H] DRAW DRAW RETURN DRAW RETURN DRAW I[H] DRAW COPY RETURN CLEAR RETURN DRAW CLEAR DRAW DRAW DRAW PRINT ▞ INVERSE ~!i[U] INVERSE ~ THEN ?PEEK <> NEW _ INVERSE w INVERSE ~ATN { :▘2|k{ RETURN 07:T^ [E]_ RETURN ( RETURN !Uh' STEP X▘BIN CODE =[A]:R^ATN ( RETURN 0h▝{g!heFN u INVERSE t<> THEN v( INVERSE n INVERSE f( INPUT N#F#]T# INVERSE ~ NEW ?[K]▚" CLS j~ NEW ?)▗ INVERSE 4yU▙ FOR 4 STEP k FOR THEN ~>= THEN v FOR ▖F NEW PEEK 88(6 PCOS [A](:U^2T^<>:S^ STEP INPUT [O] 7[A]R^GATN >= RETURN FORMAT :b^ THEN ©>=x2 ▝V[A]<=x<> THEN i iCODE w STEP k INVERSE THEN PEEK ▝ PLOT PRINT FLASH ▙▘ RETURN 7 INVERSE 6 INVERSE THEN ▚▝USR M▘2 ▘e▜ INVERSE N"▗!#` ▝CODE 9▘>A ▚▘ INK |ATN ( ERASE CODE #G▘ DIM g▘64"m[B] COPY ▙NOT j THEN qx ~= INVERSE ~ NOT [J] INVERSE w<> THEN qUSR x GO SUB D INVERSE ▚ LET "<=j:Z^ATN CHR$ l[F] RETURN 0(U<(5=O STEP [O]i STEP j[T]CODE ( RETURN PAPER l RETURN ERASE l FORMAT ~ LINE ▞k: ▘2[J] STEP IN kNOT E -▘>LEN RETURN LINE ▛NOT l< LINE tk=O INVERSE PEEK BEEP ▙( THEN G STEP ▙i( INVERSE wJ▝y0H STEP PLOT gK!&i READ ~ATN (▜ NEW O▜▜▝G▝=6▗#" RANDOMIZE k OR ~#^;f "A▗F>= STEP SAVE b^>=2[C]~▝O#~G#▚#~_<> ▘ READ /[E]CODE GO_2 INVERSE fo{▗g"yox[K]▜<> STEP DIM ▚*z[Q]~ATN >=G OR # STEP PlSTR$ SAVE <>~#N#:[E] THEN EXP F THEN THEN THEN GO SUB C[D][D] RESTORE STEP ,[F] LLIST <> GO TO [E](B▝ RETURN DRAW © LPRINT *IN P>=USR LPRINT [T]▝<2▟BGBB▘ COPY ▝ OR ▘ COPY &▝ ▝STR$ B▝▘J[T]!;LN VAL P[Q]7 CIRCLE PLOT OVER 7 CIRCLE [Q]PVAL ;LN !FFpBIN [T][P]- BORDER SAVE V CLS COPY CODE / COPY UCODE // OUT [G]k REM PRINT PAPER z▗ PRINT bC▝NOT G▝m▝8G▞ GO TO COPY COPY ▗UU▗▙ SAVE |▖(GG© RETURN [S][A] COPY / RETURN LIST ?/ SAVE [Q]?▛U OUT *VAL$ BFFBTAN [E]jljl[S]l>=l INPUT l INPUT l&mCmC@ SAVE TO oNOT 6l INK ▗ CIRCLE NEXT 0[C]USR NOT OUT NEW 3 READ OVER f STEP ▝[J][J]COS ~▝VAL ▝ATN 0▞ NEW 1 CLS READ INK [O] COPY STR$ ▞#D▙>= INVERSE THEN ~USR :n<>=: RESTORE jEATN USR STEP nUSR 2 CLEAR =L▟ STEP 2▟>= THEN }USR CLEAR THEN INVERSE ▝USR ▛ CLEAR THEN ~( CLEAR LLIST ~▝ACS g▖ CAT NOT 5 MOVE :o8 OUT " INPUT [U] RESTORE STEP SIN n{ NEW ? RETURN } INVERSE PEEK USR RESTORE STEP ^ LLIST | NEW ?2 NEXT j THEN zT RETURN (C[O]▞ RETURN LINE )o!COS o▗▚ NEW ?" DATA j< LLIST ▘!LEN ▝ DIM 9▚ LINE ?o! LET n[G]y NEW THEN ? AND oy NEW USR O THEN w l THEN NOT o #▛Yo FLASH CLEAR RESTORE LLIST ##V# CIRCLE lF#ng<>[N]▝USR 0 BORDER ' OPEN #▛USR >2Z^>2t[B]$-▚<2NOT 2oACS g[B]<>▞1!▟ STEP GO TO n> STEP [I][N]NOT [O]i!h[B] THEN AND ▛ DRAW y PLOT w#p{n▙!h STEP Lo!hCODE 7FN ▗ INVERSE ! [F]#h DEF FN ~ NEW IN Wy NEW @SIN w#xw<>!/ 0▚)hTAN [R]$y= MOVE G▞<>:g[B][B]8(▘>R▘p[B]x▝▚INT ▙<> GO SUB C[C]oNOT "o>@3▘▗ GO SUB K[C]oC[O]<>o OR n LET n)o?oYofotoo▖o[N]o[E]oPIo: RANDOMIZE m▖ STOP oATN >= GO SUB Kb[B]s INVERSE ▘ CLEAR # BRIGHT ▛( THEN } IN CLEAR ^ COPY FORMAT ▝ FOR !F▖## STEP p FOR DIM ^OINKEY$<> RETURN y FLASH RETURN NEW SQR (7 THEN THEN ATTR LIST THEN DIM > COPY <>x▜▜▘!-p[T]TAB <>BNMHJKLYUIOP6789054321TREWQGFDSAVCXZ RUN ▞!|" BEEP p STEP NEW px CLEAR [F] PAUSE : LET pG CLEAR !| CLEAR n CLEAR f RESTORE INVERSE LLIST INVERSE ~k▘ CLEAR wVAL$ CLEAR # CLEAR # NEW CLEAR RESTORE MOVE !Q[C] PAPER [E]▜▚O# GO SUB VAL STEP LIST p STEP bg STEP [Q]▖SASN ▟# MERGE INVERSE LLIST RESTORE OR STEP BSTR$ LLIST LOAD t▜< LLIST <> INVERSE :▜|s#r##x[J]! LET p4<> STEP / INVERSE n INVERSE f DIM > AND O2ASN p=>=©[E] THEN ▗A CLEAR ~W CLEAR ^SQR 0 CLEAR r CLEAR s[D][G]~ CLEAR w CLEAR u CLEAR n CLEAR ~ CLEAR w CLEAR u THEN BIN @[L]▞ DEF FN THEN D CHR$ <> STEP OPEN #p3S▗ LINE s AND r▟ RETURN [A]0 NEW © RETURN PAPER ©q>▘▚:NOT RETURN CIRCLE z RETURN <> LLIST [U] RANDOMIZE m=[H]▝= OVER *b[B]ONOT ▝▟ LPRINT ▗ ERASE s BRIGHT ▛r!▘ STEP %k:[R][B]RND▘[C][B]( CLEAR ![E]^R^ INK "▘ RETURN 8 RETURN : VERIFY [T] BEEP [A] RETURN >= CLEAR ~ NEW USR USR RETURN 8<USR 7STR$ [B]~ THEN w>=2Zr NEW INVERSE PEEK USR CLEAR THEN V▚[G]USR INK RETURN ▗▝ INK E▟CODE O STEP [E]2l^!q^yUSR ▜ STEP V>[F]~2/r#~21r MERGE STEP FLASH z MOVE FORMAT !l^PEEK FORMAT y CLOSE #▗(<> CLEAR PI▘>=>[I]▛ INK ▚w#PEEK 8+6 INK |[O][B] CLEAR w CLEAR 6 INK o>M▘<' LINE ▞y2 AND INVERSE RESTORE CLEAR GO TO 3 STEP VERIFY INVERSE LLIST ' IF [E]▖(*▜"n[C]▞>= LLIST NOT GO SUB s INVERSE THEN ~?[F]( STEP ▟ PAPER STEP Zz INVERSE ~ NEW `>= THEN wCHR$ ▘r ▘ CLEAR 7 INPUT j^ CLEAR REM }▛>▘ STEP mrINT :[A]!H▘8▖ AND [U]CODE 2h^%▛"▘NOT [C]r THEN ▖ RETURN ERASE ©q STEP I▘A~t[B]!]^ RETURN 04▗ATN (5' OVER ▘ = NEW !3C~ GO SUB D;COS !<> LINE + RETURN ▝▛ LINE ^ RETURN LINE K RETURN ▝▘IN r[D]▘vxVAL$ P STOP 1▖ THEN o THEN q(!▚ & STEP [E]>=0 COPY ▗NOT K SAVE fPn_▝dCODE >= STEP READ m<>"2▘"▘▜NOT [N]t▝ ▖ INVERSE 6 COPY <>O* RETURN COPY CHR$ ▝tAO▜:-zATN ( READ ▛▘ "^ STEP yp▝"p▟CHR$ =2 VERIFY [T] STEP [P] CLEAR ~▝▜[K]▚ CLEAR ~ INVERSE wD INVERSE p! INVERSE sH▜# CLEAR ▚ INVERSE w▗ INVERSE w▗ INVERSE wl CLEAR ~ VERIFY LOAD INVERSE 6 REM STEP ACS k4▞CHR$ GO SUB s STEP [G]rNOT OPEN #p DEF FN !▘SGN ▙G~ RETURN x RETURN ERASE GO SUB s▘ PAUSE sNOT [L]ATN >=▜ CLEAR n INVERSE u CLEAR f INVERSE t%(%(&▗!u| LIST SCREEN$ 0O FOR 8▖ FOR y >[B]O9 THEN wUSR *CHR$ ▘ THEN ~▝ =G# LINE ~# FOR !▗| FOR GO SUB D CLEAR ^ CLEAR V▝ STEP t▟ LINE ▝▘<=▘ GO SUB D0 PRINT POINT AT AT ▗j^T[R]([K]STR$ q*f^$>=%#:[D][B]w#~ NEW G:[N][B] NEW USR VAL R#:[A]▟:[B][B]w<>[R]EXP USR MOVE ▛:G!~[D]▚ NEW EXP (~_▝▙ NEW RETURN 04 DATA <>*▙4 STEP ▝z▘n( CONTINUE ▜ THEN PEEK >2"&[O]▘!▘iCHR$ %k>[U]▗ THEN nUSR ▝▘ATN ▘ INPUT #▝<>V▜0▗ INVERSE 4 INVERSE A? RETURN CIRCLE 5P▗ PLOT STEP SCREEN$ uW▝~▘SCREEN$ u[I]0 MOVE m NEW 2i^ MERGE CIRCLE [D][B]<> STEP THEN CLEAR ▗v OPEN #-CHR$ <=u▝3[B] CLEAR !H^0LCODE 2^^ RETURN PAPER IF w CONTINUE ▛w A THEN g LINE VERIFY v:]^8c[B]+▘ ▝▝?5CHR$ w5 DEF FN RETURN CHR$ x:ATN [B] RETURN COPY LINE x7 A(0:{:▝).8 THEN G>= STEP VERIFY CODE . STEP VERIFY wa"▚~2[N][B]2[M] READ MERGE xNOT SCREEN$ xS▖}_2,w:V^ REM Zv!r▝ACS TO ATN N}g([A]▙:^^<VAL RETURN PAPER x▞[Q][B]2wySQR (0X▖>2[Q][B]:,wP IF [B]`^< CLEAR w: NEXT x INPUT STEP LLIST 7Sw CLEAR ~▙▘(J 5TAB ▝NE▝▘▝C,▘ THEN ?0TAB G▝IZ STEP [B]i~qB ▘CODE b▝ LLIST t▝Ch RESTORE PIw[A]ATN CHR$ K!`^4~ RETURN PAPER KCODE w▜▝J▜! ERASE w'[P]▝▜2!▘S<▗▙ STEP dE[T]%I▝<>ATN [Q]▚A$]^~ VERIFY 0CODE [E]EU^yyCODE 2MC▛~ R:<=x THEN © 7 CIRCLE ▞ATN (!T^PEEK (c▘>▘+!>=8CODE > STEP ABS x DATA <=x STEP ASN x D▝ STEP >=xe▘ASN xEXP ▝: INK ▗ ERASE %k▜NOT <u! AND x5 %▝ACS "▜ NEW PLOT wVAL a▘<> RUN "▘CODE OPEN # LIST GO SUB _!X^ACS NEW DRAW ▘ PLOT RESTORE [D]<>!<=x4 THEN ^>=~ NEW w<<>! MERGE !6^RND BRIGHT AND ▝#f!"^y LET STEP y DATA ▝# ▟<> CLEAR F~ DRAW NEW ▝ STEP =l<▝5[A]©▜:oy RETURN ▞&y LPRINT :$yATN >=)mNOT [R][A]▜ LIST y2[O][B]:%▚y[Q] RETURN ▞ RETURN 00<2%y<> RETURN ▗ RETURN 0ASN 2STR$ ▝▜VAL CLS ▘K ^▛>=*"y:yUSR +0l LLIST !b[B]{Z VERIFY v!x[B],!d[B]YPP FORMAT !z[B]{[Q]▝z[U]NOT #ATTR VERIFY } STEP LLIST +[B] RETURN d0 RETURN /0P0 RETURN ,0x2-z2SIN [B]y2COS [B]<> SAVE C FOR ▛▗ RETURN D FORMAT 3▙▘> RUN ▝}@ FORMAT ▙NOT ^:cz<(!^ STEP ACS z8IN PLOT CLEAR NI▘ THEN ]9 NEW ▚ CLEAR # READ u▘ POKE ▗ CLEAR PEEK (W7▝ PLOT ▘ INPUT <>9▘ CLEAR `< BEEP NEW ▞VAL$ 7<> CLEAR ^ CLEAR V4▚| INVERSE ▚[C] CIRCLE e NEW ?▘[E] CIRCLE } INVERSE ▚[D][F]%▝&[G] INVERSE ~<[D]D<[C]izSQR 8h{ RETURN 2{z0 ▖{0AH2{INKEY$ OR STEP +{ STEP [F][D]STR$ PLOT <> CLEAR IF <>!i|!q|"W{ OR STEP S{0% STEP INPUT gSTR$ LIST <>>[A]!▜[K]2{{ GO SUB s▜1$ LET >[A] INK ▜o&^~,fo2[P]8#▖ MOVE {[R]w,zRND= PAUSE MOVE MOVE THEN @ THEN THEN THEN THEN THEN .$ INK INK NOT GO SUB {▜<>USR @AEGE@AA ▝"▞AFHB DATA @2CHR$ Bp2p2▘;`2K▖ CLEAR LIST RETURN LIST COPY SAVE ▝▖ COPY LIST NEXT LIST BRIGHT LPRINT q▚ RETURN DRAW INT z~PI[C]C` LIST LIST FLASH LIST GO SUB :[B]` RUN LPRINT CLS LIST PRINT LIST ~ LIST COPY LPRINT [T] COPY USR ©▖▞POINT TAB INPUT RETURN COPY RUN wvVR[G]| PLOT |V}ACS }~v~USR L▝STR$ ▙ COPY RETURN ▖ CLEAR COPY COPY BRIGHT [G] RANDOMIZE @ DRAW CLS LIST [O] POKE POKE SAVE % COPY G RUN DRAW 0▜ DRAW CLEAR DRAW COPY ▝ DRAW -0H▝ `▝`▝0` COPY POKE ` SAVE DRAW @ LIST @ IF @@`▝[R] CLEAR USR [K] LIST LIST [F]L SAVE %@@▟ RUN fc▖▘ DRAW @@ `SIN DRAW DRAW SAVE COPY SAVE DRAW !▛ DRAW CLEAR CONTINUE GO TO GO TO SAVE DRAW a▞ DRAW a DRAW N▗ RETURN DRAW ]W▝` RETURN LPRINT ▘'`[D] RETURN GO TO GO TO POKE ▜CDDp`p``▗ DIM ▗! PAPER ~.ACS ▛ STEP QCHR$ PI THEN fN FOR OR ▜AT [E]O STEP ©[L]▘(POINT ▗CODE LINE NEW ? AND INVERSE ▚ AND 2[E][D]? THEN ?y ▗ THEN i MOVE ▗2[D][D]<> DEF FN ▜t© RETURN LINE BORDER ©~▘SIN © CLS ▘ BORDER ▝▗ LINE ▝▝▝#▝(EXP ▘~ OVER ▘(- RESTORE LINE %( SAVE ERASE .+z▝R( RETURN 0<>!IN [G] MERGE [E]&IN FOR STEP PLOT ~NOT y[I] STEP OVER ~= [R] STEP ▗[I][R]CODE 2©:[D][D]▝ATTR FOR ▙NOT ▗[I]! RANDOMIZE © STEP STEP q[I]d8▛NOT q[I][R]ACS [R] LPRINT [R][S] +jF[S](`[S] STEP RANDOMIZE ~NOT PEEK [H]▘ NEW Nu▟<>!*4[S]>[S]!>0[A]▝ FOR &▚q[I]|[Q]▙[Q]l▚z RETURN [B] PAPER [F] DIM 7©ATN LINE ▝ STEP }▝ IF FN RETURN !LEN ^_ATTR {(!SQR bc INVERSE { GO SUB C[I]ATN (>▝2[G]EXP [M]▘USR FOR ![K]>!ATTR {^▝G>▙ NEW ?▗gx NEW THEN y(yUSR ▜ NEW o"[D][D] VERIFY *>([E]j FORMAT ! ▝[A]F# OR F# RESTORE x NEW !▞ FOR } STEP [M][I] LLIST STR$ RESTORE VERIFY ▚_ STEP ©# INVERSE ~▚ BORDER ▘#<>/CHR$ ▘}▝ASN SCREEN$ POINT z[S]LN [S] [T]:[T]X[T]^[T]<▝@▝D▝N▝U▝Y▝]▝a▝e▝i▝m▝q▝u▝y▝m~▖ ▛!#ASN ▝▝▝`r▚ RETURN 8 RETURN CONTINUE ~SCREEN$ *▝u▜ COPY ( RETURN 8 REM GO TO ▘! VERIFY "USR ▘2USR N INK ▘_ CIRCLE ▝{ BEEP [D]2{ AND ▜!CHR$ INKEY$USR ▟ RESTORE STEP DIM ~*[D][D]"[Q]y2 INK DIM LLIST ##[D]NOT [Q][H]:c^< RETURN 8>2c^! LPRINT [T]ACS ATN ( DIM CODE NOT FLASH [O] ▜= RETURN 0>p OVER COPY COPY COPY COPY } COPY COPY COPY V▗ COPY [E] FLASH RETURN PEEK w<>CODE 2 GO SUB g2/^:▘O RETURN P *▛/^NOT i[N] RETURN /:S▘▚8CODE 2Sp▝▚ REM RETURN COPY CODE ©▝._[B] PAPER STEP RANDOMIZE [O]>NOT [I][N] RETURN NOT STOP ▝▘> RETURN A[K][S]▘<> FLASH ATN (- RETURN 0$ STEP !#▘ NEW RETURN 0'j=▗▘<>CODE [H] CONTINUE >22TAB ▘> LOAD STEP (▚9▘ OR > RUN F[J].▘LN FLASH RETURN / NEW <> THEN g!▘G~p(2PEEK CODE <> DRAW ▚<(':t[B]L▖(: GO SUB gATN USR LLIST RETURN ~ IN ▜2 ▘>w<>▗Vf[F]#fo<>▜o FORMAT $<> INVERSE n INVERSE f~ATN >=64▘#~n▖ STEP pCODE NOT 9[F]USTR$ E▛retBe[T]vRNDESs[C]▘<>=00▞ INVERSE N THEN 9 THEN 9 THEN 9#OVAL [M](q#{ATN ([2▘ AND G VERIFY @SCREEN$ ▗@p#{^▞ STEP [H] NEW © RESTORE !wx STEP READ THEN RUN NEW ▜▜ GO SUB D AND $2▗y/ AND 2▗x NEW USR ▜ COPY ~#Pp@[T]▝ MERGE ▘8▗IN E[N] ::▞▞▟▟[B]%▙$▙[E][D]0▜1TAN F$$$▟[P]CODE [P] ▟&&IN INKEY$[G][K]00%[T]D[O]IN [O][O]INKEY$INKEY$INKEY$&&&[A]%#[H][L]11LN TAN VSIN [P][D][D][D];PEEK ▗&▚D[A]▟▙[C][D]&&&hPIAT AT AT AT AT AT AT ,,,,AT ,,,AT CODE ,AT ,ATTR ATTR ▜▛[E][G][D][J]111111D118224Q<1[B]ACS ,,,[F][F][F][J][J][N]~SCREEN$ ▚ PLOT RESTORE OR FLASH ▟ RESTORE STEP D▜ FOR LLIST wPp0[B]STR$ LLIST #<>N>=#F# STEP [Q]▚ POKE ▞▗1▖▝ SAVE +W:;9<8BIN [K] PLOT GO SUB x NEW 0O PLOT USR GO SUB y GO SUB I>[C] GO SUB y OR THEN LET Iy NEW LIST COS IN y POKE GO SUB xSTR$ ▘ GO SUB Y GO SUB I<> NEW ©▜&o))<<> STEP DIM ▚!f▜ STEP INVERSE ▚NOT 5{MODE-LEN COPY `THE LAST NINJIN A SIN p(C)1988 SYSTEM COS ▖WRITTEN BY MEV DINNOT [I]GRAPHICS GARY THORIN NTO DEF FN FN MUSIC BRIAN MARSHAL TO COPY E OPEN # COPY GAME OVE ERASE COPY pYOU ARE ABOUT TO ENTE ERASE x-[H]▞STREETTAB ▖"*FULLY PREP4[G]BIN COPY DISK LOADE ERASE [A][T][F]STANISLAV OF /CGG/[R]CODE ▖ 199ACS COPY ESCOS SPACEp8[D]BIN COPY <><>!▞ STEP ▞▖2[R]▖>=#~! RUN ▖-$▜RND▖#"VAL ▖<>1[K]O~<>=F#~ NEW EXP (# PLOT CODE <><ATN <>>ATN >=([R]▗ RETURN USR CLEAR 5▗ OR CLEAR N GO TO ▜ STEP MERGE ▖q▝6 ▟STR$ OVER <> FOR ! LIST ▖ GO SUB _ NEW Ol▝[R]▞▘! POKE l▗ FOR w<>%IN COPY CLS LET LN [H]B`gCODE |>UVa`efirg▜[J]SCREEN$ AT IN =IlKLW READ _sSGN ▖%2G MERGE C THEN 4-o[S]#*`[K]"NASN +1[U] CAT CAT Q CAT TO O MOVE MOVE CAT CAT MOVE O▗M CAT CLOSE # CLOSE #STR$ [D]O CLOSE # CLOSE #RR CLOSE # CLOSE # MOVE MOVE PO CAT CAT EFMOPQDMR MOVE P"EGDEGCCHR$ DCEDFE= CAT M AND <=>=1▖ ERASE LSTR$ CLOSE #[A]MOOQ ERASE AND <= OR 9=A▗p▗▝~ ERASE ERASE ▘P1 ▘ CIRCLE n2[J]USR l4B0D`j5A0▗hL9$▘8[C] FOR ▗Q [A]@0CHdP DPH[M] x▘H▗ LLIST yX@/@Byz^By8z_[U]>=Z[N].zp:G! STEP STOP ~ NEW LIST LEN w#6 PAUSE <>!m^+COS LEN INVERSE ![B]CODE 2[E][B]2[Q][B] STEP Qu!~#G STEP FOR RUN > COPY 2g^<2T^2b^>2[D][B]!/ CIRCLE ▝0#▝@#▗[R][B]<>~m▗ NEW O<>Y▖USR MOVE >EXP (CODE 8▖CODE 2 MERGE x2%yy$▞2[C][B]# RETURN 0W~O[N] NEW 2U^2V^ FOR !6v"[F][B] STEP [E]2Zv FOR #"f^#~#j▙GCODE 2M^2[L][B]2<=x2h^VAL [S]2i^> INVERSE w>2[B]2▟[B]~ STEP RANDOMIZE ▛ THEN x(##>"2[O][B]NOT )▘[P][B]▝[F][G][B] STEP _▛[H]USR :[R][B] RETURN !B[M]""y# RESTORE ▛(& RETURN !{(:&yATN CHR$ BRIGHT LET ▛ STEP LINE ▛CODE SIN ▝<>▚ LINE BRIGHT STEP INK ▛USR +▞2oy2py{%! OR #▜<>/X/lFN 0USR DEF FN BIN 88 INVERSE !`[B]~+H[H] INVERSE w▜ INVERSE w<>#^#V GO SUB Sy INVERSE s INVERSE r{ PLOT [I]_▘ AND INVERSE w{ AND [C] VERIFY " AND INVERSE w<> STEP LET :_[L]▝P[K] INVERSE THEN vUSR STEP Y▟CHR$ READ m*▜ INVERSE u INVERSE t* INVERSE t<>▖USR BORDER STEP ▟ $▝>=/▘ DEF FN CODE 4▜ PLOT <> COPY U GO TO ▞O RETURN 85 RETURN 3[E] CAT *CODE <> STEP ©>=> STEP ▘>=y!wPEEK ▟ RETURN COPY >= RETURN ( STEP n>=v▞ STEP IN k STEP lCODE <<>[▚0 #:$%▘ READ m.▞▗ STEP [E] LINE v▘: CAT ▝CODE ^2$yAT ▞2_^>= STEP ▝▟>=CODE NOT r OR [E]ACS CODE GO SUB K▜ CLEAR ![M][J] STEP $▟ THEN }CHR$ qd▝#CODE INPUT STEP 2▟USR LET CLEAR THEN ~>=NOT p▟ CLEAR V CLEAR ^ CLEAR f CLEAR nx[C] CIRCLE THEN SGN THEN $[E] FORMAT <>=e THEN SGN y[D] CIRCLE 0▘<>▝}w▙ RETURN LPRINT 0| RETURN 8 RETURN STR$ >▚ COPY ATN <> RETURN CIRCLE <> AND LPRINT SAVE !SIN [O]$RND▘[M][K] LLIST ▘ STEP AT ▚▝USR 0▗▗ THEN e( LIST ▖▝ GO TO @z▘n[L]▚x[C] CIRCLE VERIFY J FORMAT q[A] MOVE CLEAR ~ RETURN COPY } CLEAR RESTORE LLIST ,CODE 2o[B]▗▝ DATA ▗[D]> STEP FOR e STEP 5{> OUT FLASH RETURN THEN g LINE n[T]>©▞_ LOAD STEP SIN ▙NOT DIM GO SUB ▖y[Q]2 PAUSE >2▚▞![O][K] THEN f>"(@▝~b2r[B]3▚: RANDOMIZE mATN &,[N][C]▗ NEXT ▛▙▝2I▝GTAN ▞ THEN ?LN (x STEP CLEAR ▛▘▜ STEP y!PI[M]ny!LN [L]▚bzy![C][O]▞▟y▜![D] STEP N CIRCLE [F]<("[F]=▜PI[A]#"[N]p~2 NEXT p!([B]~ATN G(p▛EXP (## RUN `" LLIST oBIN ▚ RUN CODE 2Z^ DATA 2q[B]▞/^2▘<2p[B][A]▘!h[B] THEN ▚NOT DIM ▚ STEP :{ STEP VAL$ o RESTORE ▟! CLOSE #[T]5~ IF ) STEP ▗! FORMAT !▝1 STEP {8▝gb▙|[E]<2{[E]>p2z[E]*▙ FLASH ▛ STEP ▙ STEP ©g STEP =l>81@NOT LINE f: LOAD RND▙CODE w2 LOAD [T] STEP OVER [O]NOT BORDER ▙! CIRCLE pPP▝P▚ STEP Q▜NOT %f CLS [B] GO SUB g*▘ RESTORE STEP AT ▘:▘ NEW LLIST "[E]ATTR ▘U^i MERGE ▘##|NOT NEXT ▛[B]▛ATN >=G▜ THEN ?o>[F][F][P]o&p>2t[B]"d[B] OR COPY STEP B:d[B] AND 2d[B]STR$ LOAD <>ATTR ▜ PPP%▛! AND 6O▜▝!COS :[B]+ BRIGHT [T] STEP RANDOMIZE !nP FOR OR c STEP [A]/▝#FPI▙'+ SAVE <> AND 0V▟J~# IF Q LLIST <>p RETURN USR ! INK [T] STEP F[A]8▝0EXP ! BEEP [T]TAB P BORDER RUN <>PI~ DEF FN ' RETURN `w<> STEP COS [A]>PEEK 2STR$ >2W[B] STEP ?[N] THEN vUSR THEN PLOT NOT [F][A]:R^ RETURN USR [N]▘2& OR ▗c^ RETURN LEN ▘2 CONTINUE U▗r▛f STEP ]gNOT =l STEP [R][A]xw[K]USR >2 RANDOMIZE m INVERSE RESTORE STEP LET n INVERSE LLIST <> FOR STEP IN [A] STEP LINE [A]>= MOVE <>>=▜ NEW O:q[B]EXP OUT ▘?OVAL$ EXP <> FOR MOVE ▗USR THEN ~>=I▞>=>@2_[B]>▗63▘|k ▝ FOR [H]:W[B] THEN ©@#▗ MOVE !COS [K])INT ATN BIN ▚ STEP B[N] THEN ACS LIN NOT CLEAR ▙H[B]P[B]X[B]8[B]▘y[A] OUT ▘▗▗g[A] ERASE INKEY$▙O[A]▗ OPEN #[A]x[S] PRINT [A]l▗▖ b9q09▚"@▚4`▟ COPY [K]▗|y6v|0B▚▙ FORMAT s0,[R] COPY STOP ▗▚<= DIM ( REM .j[O]▗ COPY ▘SCREEN$ ▘▘LN ▖IN ▗SCREEN$ `SGN p▘CHR$ z▘ LINE r▘VAL$ ▝z| COPY $sd<=iLN z▙ STEP @ RUN [J]4[A]gIN [K]sPEEK yvINT CODE [Q]BIN ▛@ASN ▝:I[K]▘[G]VAL VAL yCOS SIN jha[G]:SIN I▛▛j[H]▗+[S]O"IN R[E]p@|F[A]▖SCREEN$ [B]d▟fR([B]▖7hvPEEK @ FOR ▙pSGN SGN R SAVE <= COPY IN TAN ▛TAN FOR LN BIN dBIN 3[T]STR$ ▚©[H]▙g▙▙TAN ASN [M]LN USR SQR CONTINUE [T]X STOP XASN [S]<=TAN [H]IN v[T]pd COPY @[K] LINE FORMAT [A] LET [I] CONTINUE [Q] INPUT STOP @h VERIFY RETURN [B][C][[C]n[C][C][C][D][C][K][C]TAB [C]IN [C] PAPER [C]▚ GO TO [C] PRINT [C][D]J▞1$ LET >[A] INK ATTR ^~,fo MOVE s,r, pppp(`2▞ MOVE MOVE o$IN INK VAL$ ,[B]AT [G][E]!©[E]:[D][B] NEW [G]('y2w[E] RESTORE MERGE STEP T[E] MOVE LLIST :w[E] RETURN H(450$ CLOSE # STEP N[E]05▟+ STEP [E][E]!|[E]:gpC▘CC $0C 5[D]~ATN >=+~#[G]8(~+w++~|▚ THEN w(# RESTORE ▜ LLIST 4~#PEEK CIRCLE >=▝05USR 6+~ INPUT @w<> [K]▜>= FOR ATN (+ INVERSE ) CIRCLE ▜G AND o&CHR$ )Xy PLOT IN 6<>pP2BA1!"#3CSRQP@0 $▘rq▝[B][C][D]scba`p[A][Q][R][S][T][U][E] INVERSE ~O FOR VAL$ FOR INT SAVE INPUT MERGE THEN _ PRINT NEW GO FOR RESTORE INK LLIST [ INK LET ( INK N_#NW# MERGE INK NEXT A MOVE s#r# RANDOMIZE =(A READ MOVE <>▛# PRINT INK SAVE A LET w# CLS ▝ GO TO [L] REM !L[C]$>=%F#V#^ OR RESTORE STEP [F] LLIST STR$ NEXT <>*z[Q]z NEW [D]Gz NEW W+NOT Gl PRINT NEW ©!j DEF FN STEP V/▟ LET o PAPER FLASH [F] THEN wCHR$ FN [G]?G▜▜ GO SUB D AND 2e[F]x/[A]a[F] STEP 8[H] COPY ACS w# p`▚= FLASH <>@IN A$2SCREEN$ 0A▝ CAT A▝ FOR EXP ▘ RANDOMIZE FOR E▚STR$ ~[R]VAL w#0ppnN▝ ERASE . INK [L]▝ GO SUB [L]▝] [L]▝▜[L]▛02[G]x AND 28[G] OR [L][F]STR$ (# CLEAR FOR [ COPY N#OLEN Pppp FOR LN ▝CHR$ LN @]▝i ]▝[K]p]▘ CLEAR v▗ FOR RANDOMIZE &b▖STR$ iINKEY$hACS Pppp 0b▝ FOR c/INKEY$!_!▘NOT [G]!^▘IN [G]q^ FOR LOAD Pp`d▝ MERGE 0AT 1[U]▘[H]▘/[H]qq!!p0P RUN CLOSE #<>INKEY$[E]O:[E][D] VERIFY @8▝ VERIFY ▖04y PRINT GO SUB K[D][D] GO SUB Dg GO SUB D▝(+ IF ▖[H]2{[H]x NEW © THEN }( THEN $L FOR = DRAW [C]▜[E][D] FOR > STEP &▝&[R]NOT LLIST <>h&D MERGE )) RESTORE ) RESTORE ) MOVE MOVE REM MOVE <> INVERSE ~ATN CHR$ y[I] INK ▘© INK [M] NEW ? RETURN FORMAT [G] FORMAT GO SUB D FOR 2 INPUT [H] INVERSE ~ NEW (D>/2[I]C▘▜▝▚▟, THEN SAVE 20[I]x THEN ©( AND ▝▙`[I].( STEP <[H] INVERSE N THEN 9 THEN 9 THEN 9GA▜MD&/ FOR NOT -@?CHR$ ▞ VERIFY BIN ACS # `[C]NOT ^[I] COPY ^ FOR ACS $ACS % FOR ppp!▙y AND O0=CHR$ -[I]<> BIN ▞<> THEN a PLOT THEN Y ATTR ▘ INPUT [H] MERGE NOT ABS [H] DATA ▘ ACS ▖( RETURN 0 NEW © DATA 0 FLASH ▝N FLASH ▝ LLIST p FLASH # ▝H FLASH ▘![J]p FLASH 2m[J] THEN CLEAR p INVERSE p INVERSE ▗&/CCNOT [J]@ RESTORE RESTORE ▞INT MOVE /SIN /COS Pp NOT k[J] LET ▚/ MOVE jACS /k PRINT ▝/ ▝%ppp$p$p66qCHR$ [J]% DIM IN PI[K][M][K][R][K] OR [K]SQR [K] CAT [K] LINE [K]USR [K] READ [K] PAUSE [K] DRAW [K]AT [K][L]5[L]+[L]0[L]INKEY$F▗tHPI|t▗[M]▙INKEY$8x+ [A]IN [O]x▗T|(T[I] TTAN ▛INT *INT *5Pz7l[I]VAL$ ▘H1[I]z[U]z[U]▘[G]>1>j▘ SIN lIN SIN ▖▘zr3zdBhh▙</[A][G]Xv▟hb([K]d[M]▘"hVAL$ Z[Q]zP[A]P[S]FN T▚PEEK z[I]vzv▖[C]8▘FN [F][M]n$f4IN 0[K]" BRIGHT <▗d[M]'df*lTAN <TAN <▜F[Q]f[E]x~▚z▛[S]0▙[S]0[P]INKEY$F!@r[G]~IN ERASE ▖ zt[Q] J[K]zkSGN ▖~[U][Q]xbINT $fUSR ▙l>=$(XPz<=>=p▘H READ USR [I]> AND USR PUSR r(DzINT #@.dd THEN USR f[K][G](IN ~TrH>=`: FOR pAT VAL$ ▘(|hb<>BIN ▛VAL$ (hzP PAPER BIN Mb>=z[J] NjINKEY$(l▘USR "xfF NEW $K[C]8 TO BIN K AND n+(LIN .[K] STEP USR |[C][M]([Q] BRIGHT > LOAD TO bF[Q] STEP X.[K]▙-(v[S]2 COPY Xh[E]n[I]▗J[K]▟V[Q]SCREEN$ RINKEY$FTAN |lLN 8p[E]z▘x▝[K](~f[E][Q]^[A]Z▚[K]V▞tUSR ▚[E]$PI[K]v~x[E][E]h[A][A][K][S]▘d▖rD[L]X[L]p[L]NOT COPY ▝@ COPY COPY [A] ▝[E][T] CIRCLE :▖▟ SAVE [E]POINT ▗ SAVE h▘▗ SAVE [I]^>=▗n▚▞ DRAW CONTINUE T[H]"[U]]▗ DRAW d[N]SCREEN$ TAN ^ "▗SCREEN$ x"▗t*v▗)dt▖[A]▚/▚▚XCHR$ SAVE /"l▗[E]^3[N]r^[I]3fINT ▞[J] CLOSE #<▖▝VPASN LN ▝ DEF FN l DEF FN t1▗ DEF FN fABIN l[A]"X^IN ▝X▚[U]▝X^[S]▖▝ DIM ▝ CIRCLE LOAD LPRINT [L] CONTINUE @ PRINT ▙ LIST [L]"[M] COPY COPY B[M]q[M]v[M]{[M]F[G] RETURN LINE 5[N]!EXP [B] STEP ▞▖2^[O]("F#~! LINE [B]Y▖O NEW ?]T! LPRINT [T]eATN ( RETURN 0>2/[O]CODE -y3[ !a^ THEN F DATA xG NEW ▟ THEN NEW 2][O] FOR "q[N] ERASE "z[O] TO ^[O]<▘ LOAD PEEK STEP BRIGHT g RESTORE n&]T)ACS SQR +<>:Q[N]<2Q[N] RETURN 0CODE ![Q]l PLOT @w#w RETURN @<>:^[O]ATN (2 CLEAR ! CLEAR # GO SUB Kb[B] STEP n # STEP SIN n RETURN COPY ( INVERSE PEEK >!/[O]▚ STEP [I][N] STEP ▞▘ THEN NEW <>> NEXT LPRINT :o[B][D]▘ CIRCLE H▘ NEW NOT R[N]> PRINT 0 BEEP ▝ LET INT ▘>2 VERIFY [T]w STEP MERGE [O]r[J]▖*z[O] THEN PLOT STEP ; DIM b[C]<2e^>2 AND <>:e^ATN >=< RETURN @▜ CIRCLE :d^NOT FLASH [O][H][C]8# VERIFY <G~<> STEP [O] CLEAR <>!PLN ▖ STEP [O]H STEP ![O] CIRCLE A> CLEAR ACS w<>x=--▘ RUN A▗6^<>▝![I]▘( RETURN Q: BORDER [T] THEN ▘][O]< THEN g INPUT @/*= THEN ACS CODE gIN <>[M][J][U][J]SGN [J] TO [J] BRIGHT [J] GO TO [J][K][K][K]$[K]@[K]L[K]/[K]h[K][K][A][K]).3BQ[fl[J][O]*CHR$ [O]> o0| AND [A]g"CHR$ [O]<> PRINT STEP l[P]2d^ PRINT CODE INPUT [K] STEP q[P] LET ! IF @ LPRINT )O RETURN USR :[Q]l RETURN @y<> STEP INPUT [O]O PLOT ▖G A CLOSE #STR$ y STEP [J][P]!z@`FS▘kmINKEY$CHR$ [Q]2▛[P]2[[P]> THEN ~([A]G AND 2V[P]:CHR$ [O]2CHR$ [O]#F# FOR ▘ATTR OR OR STEP ▚[P] STEP BIN [O]STR$ PLOT STR$ !zX OR RESTORE , RANDOMIZE LLIST STR$ GO SUB <>▛mCODE m[T][D]▛[P] MERGE STEP [O][P] MOVE ! INK @}}`0▚$o LIST <>▖▘ATN FORMAT ▗ STEP VAL [▝j*▗XPOINT IF $o POKE <> GO SUB [v[Q]!f▞ STEP 5[Q] STEP INVERSE [P] STEP Q[Q] STEP [F][D] STEP SCHR$ l[Q] READ !▞:u[Q]INT [O]#N INVERSE ~ INVERSE n INVERSE ^ INVERSE fWo NEW SAVE OPEN # RETURN }W INPUT ▝} ▜ NEW >=% LLIST :▟©( INVERSE ~ INVERSE ▚ INVERSE w}PEEK IN } NEW SAVE AND ~2u[Q]= NEW ?▜▜_!▞q[Q] MERGE INVERSE LLIST GO SUB VAL <>*v[Q] GO SUB [d▞PI GO SUB R!v[Q] >w#=w<>4USR #4<>▖ LOAD U▜[O]USR ▘▘lUSR |▝(l|▘▘ABS 8▛ INPUT RETURN ||8|K TO ▝▘ COPY ▝[Q]©© COPY / COPY CODE COPY ▞ COPY LIST COPY COPY COPY IN COPY LIST COPY ©u▘ COPY IF 6©© MERGE <*B▗ COPY b R▞ COPY LIST TAB COPY FORMAT Z COPY wF>▝ COPY Z▝UR IF COPY SCREEN$ ▝U CODE COPY MERGE ▝ LIST ▘▘▘ POKE [F]}} PAPER zv DRAW x LIST pP▝PASN ▖x SAVE SAVE CIRCLE pl SAVE h RETURN p▖ DRAW ~ RETURN [R] COPY [D] RUN _ COPY © CLS } COPY RUN COPY CAT CAT P*▗ CONTINUE RETURN &[L]▖ DRAW RETURN COPY # RUN S COPY ] CLS } LOAD RETURN RETURN PT CONTINUE *▜0 DRAW ~*▙ RUN ©?[P]IN COPY [P] RETURN { INPUT p*# CONTINUE ` RETURN @p~T[B] RUN COPY © RETURN IN RETURN SQR INPUT c RETURN INKEY$STR$ ▛8:USR BT▗ @▗@▗[A]INT ▘B! INPUT POKE ▚ N[B]H`@▗Bh+▗$Ih▝[S]<▟R[Q]ATN [A]4▘CODE O▚/BIN uTAN [B]▖@@USR $[J]Y@$.@@`[G] PAUSE G STEP PAUSE ABS t▟SCREEN$ @ PAPER _h COPY ;&Hh▝PEEK |p▝@LEN ▝%BIN "E>=[M][E]#B C▝ LN P+▘ PLOT .▝2D>y▚ STEP OR : LOAD [T]FN ▛! CLOSE #[T]4CODE 2 LOAD [T]2 CONTINUE [T]$[F][C] CODE 2 STOP [T] STEP DIM ▚!(▖ STEP INVERSE ▚ STEP 5{"[C] LET mY!SGN INPUT [C] PAUSE GO SUB VAL NOT CODE LET >="j00p FORMAT COS STEP OR LET 1 NEXT STEP [C] PAUSE 0 PAUSE STEP TO LET LINE @^ REM >© FLASH RETURN THEN G<>!C^ INVERSE LET PEEK USR # RANDOMIZE CODE <>LOAD2 COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY <>PIFtSIN LPRINT &T[O] LINE @[G]>=6dVAL$ BRIGHT .V.FN ▝ IF IN L[O]>=BlPEEK CONTINUE t[I][O]▚lVAL PAPER B,.INKEY$FN DATA NEW 2VAL ▗▚ACS &+▞inINKEY$ATTR 4POINT NEW (VAT BRIGHT 8h BRIGHT SIN Z[U] DEF FN J [M]▝ INPUT VAL @ [C]4^▖.FN ERASE Lv [Q]FN LINE POKE Hr[M] AND LIST [E]NP[E][G] MOVE VERIFY 4▝▖>>▝.??USR USR ??▘ LPRINT LPRINT ▝▝>@▝=▝▛G©[Q] LPRINT = LPRINT LPRINT LPRINT ? LPRINT ; LPRINT ; LPRINT = LPRINT = LIST LIST LIST SAVE x8[E]▜8088 ▝(^~~▗??tx`▝;x▝/|SQR ▘ LPRINT }▝wVAL$ [P] LPRINT LIST LIST LIST LIST LIST ? LIST ? SAVE > SAVE < SAVE |xx|x|x<x>x8x SAVE LPRINT 0 LPRINT pp0p▝/[M]pp0p DATA p BRIGHT LPRINT LPRINT 7 POKE ?` LPRINT t▝ COPY LPRINT Pt▝[A] SAVE PLOT ©©?><<< INK x©▗ LIST ptp DATA pt▘T▗©© LPRINT LPRINT ▝_ ▗p LIST ??▜p LIST _© LIST LIST X▝x ▘0 REM LIST ▝J▝|@vq LINE q LINE q LINE r▚ LIST LIST ©© SAVE SAVE ▜_©| DRAW OUT COPY SGN ▝ DRAW COPY ▖ SAVE O CAT LIST @v LIST LPRINT LPRINT USR USR ▞@USR USR LPRINT W▛[Q][Q]```K1 VERIFY 1 CLOSE #1 VERIFY 2▘USR USR N▘ LPRINT LPRINT >▘ SAVE SAVE sp| DRAW OUT COPY BRIGHT DRAW COPY [M][P][P] DRAW DRAW SAVE LPRINT LPRINT SAVE LIST LIST LIST LIST LPRINT FORMAT LIST ▘x LLIST BIN < CONTINUE ▚8x LIST PEEK ▝K!tR TO 2 DEF FN 2 CLOSE #2 ERASE 2 CLOSE #2 VERIFY 2 CIRCLE p[E]0[K]x▜ OUT COPY x SAVE COPY ▘▙▝▝ DRAW ▞ SAVE SAVE LN PEEK ▖ LIST A [K]FN SCREEN$ ▟ BRIGHT SGN DRAW |g▞<<q[K]sdCdt▘R2▜ COPY COPY p LIST IN COPY VAL ▝ LIST OUT LIST LIST TO CAT px`cj▚ LPRINT USR USR ▚VAL VAL VAL f▚ FORMAT USR USR ▚USR Z RETURN ▘LN ▘[N]▘R[A]©©@ ▗▝w▝{"[M]*>= SAVE ;?>= SAVE p LIST ▜▘?USR ?USR ? DATA ?`>▗ LIST > LIST [A]w<8|8x808<z▖ LPRINT LPRINT LIST LIST 0▝p [J]@@ SAVE SAVE # READ SAVE SAVE ' BORDER DRAW DRAW COPY COPY RETURN RETURN ©© RETURN RETURN ?? COPY COPY RUN RETURN DRAW SAVE SAVE pRpR▖ LIST LIST 0 LIST [M] LIST LIST [U]▗ DRAW DRAW RETURN RETURN RETURN RETURN pN RETURN @N▝ DATA pRp[U]▞ LIST LIST R▚ SAVE SAVE RETURN RETURN ▝pJ[Q]▝ CLS p[U] FN ▙ RETURN ▖p[U]▞USR USR LPRINT LPRINT ` LPRINT @▚x SAVE ggFN PAUSE ~©> RETURN >?> RETURN ;?~ RETURN RETURN J▝ OVER N▝ DRAW ▖ SAVE DRAW DRAW LIST Z▞ DRAW SGN <>><0e▝Kqr>=▝2 POKE p▝t OVER RETURN |▝[P] DRAW DRAW CODE ▘ RETURN RETURN DRAW ▝ INPUT ▝F@▝▙ ▝[O]▘PEEK ▘FN [K]▘[Q] SAVE SAVE SAVE ▘ SAVE ▙>x>|<<><<<STR$ ▖<rq$q$▝RV0 DRAW AT ▘ COPY COPY vz CLS LOAD R▝8|[G] DRAW ? DRAW © DRAW COPY DRAW COPY DRAW z SAVE < DRAW <|||<E[D]▜<8K INK q( LINE !.▝!44.4L▝SGN Vn▘STR$ COPY ▘ CAT CAT OR COPY ▝ RUN [A] PRINT COPY gg POKE COPY DRAW COPY SAVE AT ▝ SAVE 3▝|$%▝>-▝$5▝B▝q FORMAT MERGE t CONTINUE T VERIFY ▝$ BRIGHT ▝/$ STOP J4/▘p AND LINE POKE p LIST ? CLEAR IF ▗[K]j▘K DIM u DRAW 7CHR$ t% PLOT U DRAW ut▘_©t▘ COPY COPY ??© VERIFY ? RETURN CLOSE #▚ CLS LIST COPY LIST BRIGHT [I] DRAW > DRAW © SAVE CLEAR SAVE CLEAR SAVE LET LIST { LPRINT ; LIST < SAVE |x860 DRAW 3▝l▗xx POKE "j<>8xp▟t▗s PLOT ▝z▗ LPRINT LPRINT SAVE LIST t>▝ INPUT ▙[A]▞ INPUT RETURN =?z RETURN >=VBIN DRAW +t VERIFY CLOSE #▘X▘ PAUSE ▘ SAVE ▝ ▝<!▙1IN ▝ CLEAR !▝ CLS RUN HIN "l▟<© LPRINT © LIST o LIST gd( RETURN COPY COPY RETURN RETURN RETURN RETURN |SGN PEEK OVER OVER LOAD <=▞▘[U] SAVE RETURN RESTORE ▗ COPY CLS COPY CLS ▛s© COPY RETURN SAVE DRAW ▗▖ OUT ng READ xC RETURN COPY USR COPY LPRINT © COPY ~▖ SAVE COPY COPY FN CLS RUN RETURN PAUSE VAL RUN COPY RANDOMIZE u BRIGHT t NEW t NEW 3CHR$ NEW ▘ SAVE SAVE T▝D▜?? BRIGHT DRAW CLEAR COPY < CONTINUE GO TO ▝FN %▘▚8/▘© STOP ▘? SAVE [O] RETURN OVER /©? COPY { COPY RUN RETURN LOAD ~[O] DRAW ABS SAVE ; LIST ; RETURN ? RETURN nPEEK SGN x GO TO zACS 2 IF :B REM ▜USR USR LPRINT LPRINT LPRINT ▝▝"▟??LN SAVE /? SAVE SAVE ^© DRAW DRAW }▖s DRAW <=ACS ▘ DRAW /J▖ LIST > SAVE |~f▗▙>C FORMAT ▝CO[K] OUT COPY USR COPY LPRINT SAVE COPY SAVE ©SGN ©|7▚ DRAW > DRAW ©[D] SAVE g LPRINT w[A]7 SAVE DRAW > DEF FN C[G] LPRINT CUSR { CLEAR USR RETURN LPRINT COPY ` COPY LIST ▝▞ NEXT LIST BRIGHT LPRINT COPY ▜ DRAW RETURN PAUSE ▝`CA[Q]NOT x NEXT SAVE CLS SAVE OUT LIST CLEAR `© LIST CLS LIST { COPY LIST oABS LIST © LPRINT COPY '▗USR y COPY 7▝<© NEW ▘{{z▝|v(▘z[C]J :$ COPY COPY CIRCLE CLEAR v▗ LOAD LPRINT CAT LPRINT ▚(z▘ LPRINT ▗ LPRINT LPRINT [M]▜▝`G LIST LIST LPRINT y▖y▙y[K]z▘[S]f|▝?[K]©[M]`( RUN COPY GO TO (▘ LOAD LOAD j▝ ▗+ RETURN DRAW ▘ LIST =▘▗< SAVE 8 SAVE }|0<8}▝{KtINKEY$z[S]:FN ▝<!▝>E,*e&[S]0▝ CIRCLE ▝[P] n▝ LIST +< IF 7 LPRINT 7 IF ▝ PAUSE ▞ SAVE DRAW RND▘uV{.{4{@0[C][C]▘5LN [K];:@▝ BRIGHT +@(*0[U]X▝ LOAD &PEEK p▘ CAT CAT *▝AVAL [M]`USR USR ▝V▘ SAVE [C]▜ LPRINT USR USR |8^^[U]▝-▙ RETURN @D/@ CIRCLE SAVE {▝©8▝ CLS "$▗ LOAD LPRINT <=>[H][Q]?`~ LPRINT } LPRINT RANDOMIZE LPRINT CLEAR LPRINT ~ LIST ~ LIST pVAL LN LN PLOT ▘0r>^tpz LIST LIST !z~ LPRINT ~ LPRINT {.▖LN ?x© SAVE ~ SAVE xrtxz:~r~z RETURN ▝D4 NEW ▝>_FN ▗ COPY COPY @USR [G]▝7(,0▘p©p~ LIST < LIST <.▗`pCODE [C]~stpxSt©^Ad RETURN ▖}© FORMAT LIST CLEAR COPY FORMAT LIST ▘ LIST w▝2 PAUSE . PLOT ▜VAL VAL `p CONTINUE p▝[M][O]▘Kx▚▗▖P▙▘ LIST HPEEK z CLOSE #▘ RETURN RETURN CONTINUE CLS ▝{© COPY ? DRAW ▚=? DRAW DRAW ▘J▝ GO TO BRIGHT BRIGHT BRIGHT ▘▝vCHR$ h▚8 THEN { POKE z RETURN ;[AC LIST SAVE READ POKE ▝ BORDER POKE ; LIST ▝~ IF RETURN RETURN VAL$ PAUSE PLOT : IF 6▘[H▘1~[U]▝{[A]} COPY LPRINT 0; LIST b▝ GO TO SCREEN$ {[C][[K] POKE AND LINE |F[E]W SAVE GO TO ▝ FORMAT SAVE ▝ CONTINUE VAL ▝l POKE SAVE { DRAW <:pZ"PAT ▘}/=`h▘ LPRINT RJB__ COPY COPY OUT J▚}© CLS COPY {{▝ IF 6▝ SAVE + CONTINUE LIST X/{ LINE }SGN =PEEK =BIN DEF FN (f FORMAT LN ▝oBIN tSGN ?jLN SIN 0p0▘ POKE ▘[K],}ACS |BIN q AND / FORMAT LIST -@rJ"▝IN AT ▝IN "F ERASE ▝>>▘;;<▗ SAVE © SAVE E▜x RETURN SAVE RANDOMIZE LIST y LIST +▞> LIST xSTR$ ▘AT SAVE pK INK © CLOSE #© PAPER / NEW r,,[G]<FN [Q]SGN CIRCLE !INKEY$ COPY IN COPY STR$ STR$ ▘ SAVE ▗ PLOT r,▝? OVER ▗ LPRINT LPRINT ▝ LPRINT >= TO LIST LIST LIST R▘USR }f FLASH {[M]w|J;[G]Z~6p;[M][U]▝ CLEAR ▝ NEXT {[G]Mf▝J SAVE BRIGHT ?SGN GO TO -b▝▞8 NEXT ~ BORDER { AND w&+ ERASE {USR F[E]▘©©4F▘USR , ACS ▝ CLS ▗? LIST BIN )CHR$ ▗? GO TO ©LN PLOT ▚ LIST CLEAR LPRINT } LIST |V▜>8| DRAW / DEF FN ▘USR ptv▝ LIST ? DRAW COPY | RETURN DRAW CAT DATA DRAW DRAW 8??USR r RETURN ▝{ DRAW s DRAW READ DRAW STR$ DRAW NOT ,] cgD[D] RETURN RETURN COPY CLS { COPY ©? RETURN = DRAW CLOSE #+@▝ CLOSE # ERASE B▜? SAVE <x<|<xxppBIN USR OPEN #▞[Q]` LPRINT q LIST 1 LIST 9n▝= BORDER [S]▘ RETURN ~/▙ACS DRAW ▝INT r REM r REM r REM 2 REM @ ERASE "`▝9T[A] LIST _ SAVE LOAD DRAW BORDER DRAW © RETURN ?~> RETURN RETURN SAVE @ DRAW _ RETURN q POKE q POKE q POKE ▝<P▝8 NEXT 8 LPRINT ~[C] DRAW J▘ DRAW T▝aP▝`▖7 DRAW 7 DRAW / SAVE / SAVE INT ▛`p LPRINT LPRINT USR J GO SUB #[B]▚ SAVE QK▘?6▝ LIST DATA R▖ DRAW ~ DRAW CLEAR RETURN NEXT RETURN ▙© RETURN COPY DRAW CLEAR >=© GO TO GO TO POKE 0▗!qSCREEN$ qSCREEN$ qSCREEN$ SCREEN$ PEEK ▞ POKE BRIGHT SGN ||v<<<LEN ▛ FOR ▝▗▘ COPY POINT LIST INVERSE SAVE VAL$ DRAW ~ DRAW ?~ RETURN PLOT ? PLOT ©AT ~x?pSGN GO TO POKE SCREEN$ &▗VAL h▟SGN {SGN CLEAR BRIGHT CLEAR LIST RETURN e▝ SAVE VAL$ {h[h INPUT ▘z+h<C*▘` PLOT ▜ LIST FLASH LIST GO SUB [P]` RUN LPRINT CLS LIST PRINT LIST ~ATTR ▘ LPRINT ▚©©©▞"DJlTAB SGN RESTORE REM ▟'/ENUSR USR ▝▙CHR$ @CHR$ STR$ ▝+[Q]? PAUSE ▝qUSR T▝0▘<p( DRAW ▝'▝▝`[O] DRAW ▝ /[J]>=▝J STEP ]^_`ppp2▘6▘▘pCOS pp_▝y COPY OPEN #?> 0CHR$ `▘CHR$ USR ▗@▝ PRINT ▚ DRAW [P] READ ▝ DATA ▗ CIRCLE ▜PI'DINT LINE ▛=PIe PLOT 8TAN TAN [ ,,,,,[A],▚BBIN BBB"[S]INT [E]INT [A]IN INT B▖B▗8[I][A]8LN ▖LN ▗[S][S]""""<<LN LN LN ▜IN 9▜▜??▘9▘▘LN LN BBINT INT INT INT 8888LN LN IN .#▖$▛▟IN VAL$ LN B[L][L]?@INT ! VAL$ ▗▗▗▗)▚$9"[S]IN """(('-[C]([C]▞&888[J][J][J])[K])[J][D]ATN [H][H][H]+++++FG>)[G][I]IN [I][K][K][K][K]?[A][A][A]99[I]$POINT )[I]TAN )[I])*▗#▖▙▞[G]▖[K][S][S]""mATN OR A@ VERIFY IN [G][K]8[G]8[K]▟▞▝8▞88▝[K]▟,▙,,▟,▟,,▙▙,=INKEY$[H].o[L]INT LN 88; GO TO IN 1023[E]3[I]5[J]5[J],[K].[J]44ATN INT PEEK IN [L].[F]VAL$ [F]VAL$ [J]/▗.▗.▖.,,,,[G]▗[A]//[H][D][A]@[Q][H]B>: SGN IN ! 44006[E]6[E]3[L]2ATN IN 3[L]3[L][K],[K]++/,,[L],▚,▗VAL$ ▖.▖.▗[A]▝[I][H][G]CODE ,AT 6▟▟%[D]▟LN [I]LN [E]SGN [S]LN 8%AT [J],▖[E]▗▗>▗▝▚EXP [H][H]?aSQR IN ▝▙[C][G][K]LN ▙LN [C]LN [G]8.VAL$ VAL$ ▖VAL$ VAL$ PAUSE IN BBBLN 8,▝▝INKEY$,[H][H])5[D],,▛[J]102▖6▖67▜,[K][H][D][E],▗[L][K]IN LEN ,▛)&&[H][H] PAPER TAB P ASN ASN [B][B]ACS ACS IN INT ......ACS ▜ACS ▜ATN ATN ▛ACS ACS ACS ACS TAB ACS [H][H]ATN [L]![H]ACS ACS !▜!ASN IN [B][B]ACS ACS ACS ACS ACS ACS ..[D][I],▗ATN ATN ,AT [J]IN ,[J]DkASN ASN ASN ASN ASN [B][B][B][B]ACS ACS [B]ASN IN [B]ASN ASN COS COS ASN ASN [B][B]ACS ▞ACS ▞7[C]ASN ▟ASN ▟[B]▟[B]▟ATN ACS [B]IN ATN [F]ATN [F]ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ASN ASN [B][B]USR IN .....[J]![B] ▟ATN [J],[E]/ DIM TAB [H], !▞▛[S]▖"▜Jv[E]BIN ▜▛[K][H]▝[N]▝"ASN ,,,▝,▖../▜..INT 88%[A]%▜LN LN ▜LN ▛▙[K][K]PEEK [K]K▘,s▗[H]QLN LN LN LN ABS ABS ABS ABS @@@TAN ABS ABS ABS SQR SQR SQR SQR SQR LN !!! ![D]LN LN [D]IN LN ;LN 2[K]LN [J][J]▗,▗,[L]AT ▙[B],[A],[B]-▜,▜,,`IN [L],[A][H]8>PEEK ABS =! !,,,:,▞,▜D,▛▛[I]▞[E]▖[I]▙[C][H][H]▛[H][N]▜UABS ABS ABS =!CODE ASN [D]LN 88<<SGN IN ABS ABS ABS ABS ABS ====?;;SQR SQR ABS >PEEK LN LN LN 8▚8=oLEN ABS IN IN SQR ;;[G][E][I][J][H]▛2[A]▛5▜5▛INKEY$▝*[K],▙AT AT ▛AT [J],[J][J][J]IN AT ▛AT ▞AT AT [C]AT [D]AT [H]]!!! [S][S]""INT 88▗8 RETURN ▘8PEEK 8SGN SGN =4[L]===;;[J];>>====-▚==x[H]==USR USR IN PEEK [A]88IN 88SQR SGN 55575▝5▝7▗7▗[C][G][H],▚,,[J]▛▙[B][I],,▙AT ,PEEK ▗STR$ <=STR$ ▞CHR$ THEN CHR$ BRIGHT LPRINT LPRINT LPRINT CLEAR CHR$ COPY NOT OR NEXT OR RESTORE AND BORDER <= DIM >=▞ BRIGHT k LINE THEN PI MERGE [N] OVER VERIFY { OVER CODE THEN LLIST THEN NEXT THEN TO ' TO Y TO k VERIFY / OVER IN s TO BEEP G INK OUT FLASH MERGE TO <= STEP IN OVER DEF FN DEF FN ] DEF FN [P] DEF FN CAT NEXT CAT FORMAT C FLASH OUT W FORMAT a FORMAT # MOVE OR MOVE Q OVER g ERASE LLIST ERASE # CLOSE #e MERGE FLASH STEP VERIFY MOVE BEEP [D] CIRCLE INK <>▛ INK k PAPER TAB PAPER INVERSE LPRINT m INVERSE |▜ LPRINT # LPRINT - LPRINT COCODE IN BIN CODE ▞Z"SGN [L]INT @X[C]7d$LN ij'PEEK [U] PAPER ABS xAT OUT ACS LOAD LOAD PAPER ASN INPUT INPUT STR$ ©Y[G] NEW $LIN h[S][G]9[B])hb[O]4[B]~I@[I]:▗[F]9ySIN _lSCREEN$ NEW ABS PLOT IpYd CLS [R]o< AND PPEEK OBIN SCREEN$ ERASE DATA USR t= POKE STEP REM POINT SGN ATTR CHR$ CLEAR ;< CONTINUE z RETURN NVAL$ } CLS / DIM /<>COS 5g INK j READ }G RETURN 5▜ CLEAR .▜ CLS RUN ▘ INPUT ▝ INVERSE ▝ CLS 0CHR$ e▝[A] READ POINT Jha▘[F]K▟ +PATTR [A]▞ TO "% FORMAT ▞ PAPER [C]2 MERGE C INVERSE IN BIN |▞[Q]>=z STOP @[P] RETURN <>[R]/ PLOT REM [E]B LET "▝$VAL UJH[S]1INKEY$FN <>@P FORMAT #FN 0 POKE ▟Dv[H]COS PTAB COPY SQR SAVE @G READ 4PEEK "@g[O]d/q RUN REM [Q]#STR$ [Q]▜AT FN [A]VAL$ BTAN ^B[S] LIST qFN , LPRINT READ PAPER >=NOT AND m`[P] LOAD RETURN RUN 80 CIRCLE p▝ LPRINT {▝©[T] COPY CODE BRIGHT PEEK INT PAUSE PLOT ?SGN ?x?VAL ? FORMAT ~VAL ©p~ LIST INVERSE 0 RETURN VAL ABS [H]{T RUN [A] NEXT FORMAT LOAD [A] COPY PAPER ABS CONTINUE z POKE u~ STOP CODE USR S RANDOMIZE [R]SCREEN$ ATTR USSCREEN$ VAL$ USCREEN$ zU LOAD ATTR IF WU*SCREEN$ SCREEN$ USR U▞*SCREEN$ P▘ !+▞▗ COPY COPY ▜x▙ SAVE OUT © COPY } PRINT SAVE _z PRINT PRINT PRINT ©& ▘ COPY 9 ▗ COPY CAT 0▘USR ▘o0▗c COPY 0▘`0▚c COPY MERGE 0[O]~ FOR C8 DRAW BEEP BORDER ATTR T LPRINT }~USCREEN$ LPRINT BEEP BEEP * MERGE ▝ CLEAR ▗ DRAW @?▗ DRAW _[T]| DRAW A:@IN NOT DRAW "YFN W COPY DRAW U*USCREEN$ LOAD CONTINUE SCREEN$ USCREEN$ U▗k PRINT SCREEN$ BORDER COPY 0▗ COPY CLEAR 0▗ COPY REM ▘ LPRINT SAVE DRAW 1P▘ SAVE 0,▘_000 $1 0▘ LIST @▝ LIST CLEAR LPRINT i INPUT PEEK LIST NEXT FOR LPRINT SAVE ln ▟o SAVE XINKEY$ COPY cxFN V▚cPVAL$ CODE P2▚( VERIFY USCREEN$ READ ▜.SCREEN$ U▖gC8▗ FOR #X0▚©(VUSCREEN$ FORMAT ▝xP DEF FN ▝(@ VERIFY ▘P.@>=P FORMAT p CONTINUE p PAUSE RETURN CLEAR a▘ LIST p▝BIN ▗ COPY IN @▗VAL @ LIST IN P LIST ▗VAL CLS P▘P▝▝B<▝ LOAD 0▗ SAVE RETURN 0▘ RANDOMIZE INPUT ▝CODE [P] RANDOMIZE RETURN PEEK CLS © RANDOMIZE ATTR T [P] FOR LIST MOVE ,USCREEN$ >▝ CLS COPY FN PAPER ▚+[E] LPRINT TO ▗SCREEN$ p▖[M]▚SCREEN$ U*[F][Q][1>=▗SCREEN$ SFN 1 ERASE ▗SCREEN$ U[R]Z1INT ▗ CLEAR RPOINT Q NEW ▘TAB Rq NEW PAUSE COPY RUN a PLOT ▘NOT <R▗USR ??USR @ DRAW @▘<@USR ?NOT ▘ DATA CHR$ ▘?/,▘ BORDER P▘NOT < LINE ▘ DRAW ▜ LOAD <CHR$ USR ? LPRINT 0▜~ RETURN DRAW DRAW DATA RUN LOAD ?USR j▗ DRAW CAT F▗ LPRINT IF F▗ MERGE *OVAL ,[E]USR IF SCREEN$ U DRAW USR < COPY USCREEN$ TSCREEN$ SAVE SIN ▚ REM FN VIN @<▘WFN 0,▘▜h2 FORMAT ▗ MERGE *_[Q]2 PAPER ▝ CLS r CIRCLE " NEW Q DEF FN ▘CODE B DEF FN ▝]1 LPRINT ▘SCREEN$ 0▘]0 ~ ▘W0▘ATTR 0▘U$▝ATTR @▝U@▝ CLS @▝CODE @▝]@<$<$0N▝U@N▝ CLS @Np`▝U@rp`0@`▘ LIST 0 rTAN #[S]▗" AND $CTAN ▙0S CONTINUE ▝ LIST [C]# DEF FN " OVER N▝# BRIGHT LET CLOSE #0▗ MERGE CLOSE #0 CLOSE #▝ LIST @▝ CLOSE # ERASE ▝[K]@▝[K]@▝ LIST @▝ CLOSE #@▝ CLOSE #@p`p``|p`@`[K] n▖ A PAPER ▝▗D t LIST COPY OUT "L DATA ▝>=▗ RETURN r▗ DRAW BRIGHT SCREEN$ ▘ATN SCREEN$ ▗ LIST m"▗ LPRINT FLASH "▗USR -ACS "[A]KmACS ?@USR 2 FLASH l[Q] INPUT ACS INK FORMAT 0TAB -COS CONTINUE NEXT THEN d POKE NEXT USR 2>=STR$ : NEXT VAL L[A] LIST NEXT 3 SAVE 3>=©USR RANDOMIZE DATA ▝▝▝l~@ RANDOMIZE DATA ? CIRCLE CAT AND NEXT INK y▗T OVER d|▘ SCREEN$ USR RETURN COPY [Q]U@ ▝USR 0 ▝ REM 0 TO [C]▙ MERGE B LINE REM ©CHR$ "LN G*BIN " CIRCLE %%>=CHR$ FN U UN FORMAT -o@ CONTINUE * MERGE @ RETURN SAVE b COPY RANDOMIZE DRAW SCREEN$ UP RANDOMIZE 4▚▝ LINE ▗ REM U▚ PRINT LINE Y[U]B▗UPOINT TT▝!Rv/hPg▝SCREEN$ k▝U▝SCREEN$ ▝UUSR SCREEN$ ▘UPSTR$ SCREEN$ STR$ UPppp p(p8p@pHpPP`▝@q▝▘▝[D]RND▝[U]▝*[T]p[K]pSCREEN$ pSIN pINT pCHR$ p ERASE p PAPER p STOP p REM p IF Q▝[Q][R] [Q] [P]*SCREEN$ [D]VAL FN LPRINT USR @[C] [Q]CATTR [Q]W[Q]USR FORMAT ▝ BRIGHT ▝ g<=SIN xWPxH(HHD▖Cz©▖ IF DRAW [A]@`T STOP MERGE @sFN ( LIST STR$ rVAL LEN ▜ph00▚ CIRCLE LIST ?~ AT 4[Q]ATTR LPRINT U@STR$ c6]rrrrrrq>=q>=q>=1>=▘[Q]▘?USR ^ATTR SAVE ▚X6▙ LIST X.USR 0 ERASE [B] DRAW LPRINT VAL USR %`USR *e▜KUSR 0▗JX▘ ▝▝A$▝USR 0▝=▝ LPRINT 0▜SCREEN$ ▘%[F]<=▝<[F]▗H▘N▝ 6▝ 6▝ H▝ `8_t▖_USR 5BIN ~▙~▝IN ▞a][Q]_ STOP IN PLOT LET }pg DRAW ©▘( BEEP PAUSE ▗u▘L[B] LPRINT LPRINT xFA▝z▞ STOP (CHR$ RR@▝P@F( SAVE COPY LPRINT U PLOT ▚▝NOT <▝vj▛ RETURN y▜▝~NOT <▘V2[I]USR 8©w LPRINT _ LIST © SAVE USR ? SAVE © GO TO ▝▗▝▝F LPRINT VAL SAVE ?USR 0B▗ RETURN ?▗ SAVE [Q]>B▞ CIRCLE ~L|$N▝ DRAW ▖USR < USR >HB▝ LIST B▝▗ LOAD LIST zB▘IN [Q]▝IN TPL LIST INPUT ABS ▘SQR ppp▝SQR @$PEEK ▝ RETURN LINE ▗ LIST DEF FN * DATA ▝ FOR + CIRCLE ▝ CLEAR OVER IF [L]+#M▖▞[S]#p@▝POINT $[T] READ $▙ RANDOMIZE 0▝CODE FN M▛ INKEY${<[I]EXP HSCREEN$ 3 H[S]s T00<▝ `▝PI `▝▙p@0`00▝PI H▝▙ T▝PEEK H▝[P]@x0$pFN TAN ▝[P]TAN ▘HUSR NEW USR ,TAN [C]▝ CAT ▜p▜P▜pPp01 IF '"▝SIN HUSR "`@▛P[C]*$j▝[U] IF ▝x"▘ACS ▝C LINE ▚ GO TO LPRINT /Pv▗ PLOT ▝.u▝SIN COPY ▝ THEN ▝,▝SIN ▝ THEN ▝,▝SIN 0ppp!p*p3▘SIN CLS E▝ LOAD E▝ RETURN ▝IN ▝U▝SCREEN$ [M]EW RETURN CLS IF IN LOAD D[P] BEEP RETURN ▝ IF IN D BEEP RANDOMIZE ▝ LINE LPRINT EUSR [F]R"USR D▖`Q">D▖[P] LPRINT Y[S]7 RETURN F& DEF FN pCHR$ pCHR$ pCHR$ CHR$ ▝COS DEF FN ▝<> DEF FN ▝# DEF FN ▝▙ PAPER 8,SIN >= STOP ▝▞▝[T]▝▞[O][T] THEN #▖▝,▙"▙SIN 8 LET >= STOP #▖0▙/@LN LIST @ LOAD CAT ▝ SAVE OPEN #[E][Q]@N▝ LIST ▝▝▚▝▙▝ LIST p[S] FORMAT 2▝e▝2i▝ THEN &▝,▝SIN ▘ THEN ,▝SIN ▝ THEN ▝,}▝ THEN ▝,qDM▝©M▝wM▝jM▝UD▝[S]D▝▞D▝[S]D[D]▞ MERGE z LINE PI▘USR E▘[Q]R[S]▘[Q]D Q[S]qD[E]Fx[L] COPY 7 COPY COPY COPY ! COPY ▞; COPY ![H]0[C] COPY RANDOMIZE ; COPY [H] COPY ▝ COPY COPY " COPY ▖[L] COPY "70▚ COPY LIST [K] COPY [R] COPY [L] COPY [R]70▛ COPY RANDOMIZE [L] COPY ? COPY ▝ CLS COPY p0▗ COPY [S]7 COPY `▝0▝ NEXT [K]▗? BEEP ▝[T] DATA # LPRINT z IF j IF /P SAVE ▝▝p ▝▙ INPUT 0$02:B N`B▝▙pV@20N MOVE 02@@N▝@Nppppp▝`/pPEEK ▝ NEW ▝0[U][K]H, POKE / STOP K,ACS {:>▝m>▝MF 8 DRAW ▝!0,"0J!"$2▝▖/▘[R]! "▝ SAVE $▝"4.BR .▝ SAVE @.▝nR▝▝>=b▝!@▝ LET %[I]0.▝![S]0R .▝ LET @.▝ /0.p0.0R0▝p ERASE ▝( ~ -6-[A] $]~▝ RETURN ^▘ RETURN @ppp"p @6▘DSTR$ FOR STR$ INPUT Pppp p(p8p@pHpP▘DSTR$ XSTR$ FN Pppp p(p8p@pHpPD INPUT INPUT OVER INPUT SQR {SQR {Pppp p(p8p@pHpP▘Dpbpjr▝xz▗ STOP SQR {[I]z▛[O] INPUT SQR k;x INPUT ` OVER STOP INT ▝ GO TO ▗k;z▜ LPRINT INT {[L]{▗O2D60▝SCREEN$ 0 LIST 0p p0p0p@pP▘SCREEN$ pn▘[Q]. CONTINUE @ pO RETURN ▝ INVERSE O GO TO ▝w0▘ INVERSE 0▘w0$$0& &ppp p p0p@dt!Hp▗/$PINKEY$EFN ▘▗H~eSIN ▝ LET ESIN ▝0▘0 D ERASE ~INKEY$~VAL VAL FORMAT [A][A] pp` `TAN r8r8r8r8r8r8"H/ VERIFY "hQ IF 01 GO TO 2▖ IF F DEF FN A RETURN ▝ LIST >SGN INT 5STR$ MOVE ▝ MERGE ▘ COPY COPY COPY COPY BORDER COPY ▝ LIST sO[R]DjK▘Qx +u& RND6pBpBpB RETURN ▝ CLEAR COPY ▘ [S]' FLASH ?▘▗H( ▝ LIST wpw ▚▘ DRAW ©Ppp [E] LIST p AND 9<=8▙q READ LPRINT LET rFN rSIN rSGN x TO H TO 2 LIST _( PAPER ▝U' VERIFY LIST CODE 0@7 DATA w IF 27 OVER #d<>▝B▝ LET FN ▝/[L] LIST "▝ LIST ▝ DRAW ▝@@▝USR p` CIRCLE ▝@(x SAVE USR x[C]▝Oxj3 PLOT iINKEY$▝ PRINT @"▝_ CLOSE # PRINT PRINT USR =▞ NEXT DRAW LIST SAVE ▗[Q]_SCREEN$ U[B]TSCREEN$ WFN SFN CONTINUE FN VIN @ COPY CLOSE #*T% AND ▗ IF FN V< CIRCLE ▘ CLOSE #*tt▘r[Q]r[Q]r[Q] READ COPY n" MERGE ~#)k)_[M]YJ.p[U]▘ FORMAT [M]=©U[U]▘ FORMAT dATN U[M]][R]UTAN p p p p U[M]Upb*0u[M]0vJ;D[D]D GO TO INPUT [I]©{<[M] INPUT ` COPY INT ©<= GO TO [H]▝;>▘ DRAW FOR [C]A!▞!▞! RANDOMIZE "▖"▖" SAVE ▙p▝@▘[R] RANDOMIZE LHr▝[Q]z▝▝▝▝▝D PLOT ▝ COPY ▝[T]▘ FOR ▝r▝zNOT < BORDER p▝~,▝ CLS 0Pppp PRINT ▝~s|> POKE ▝ DRAW N DRAW ▘USR 0 PAUSE 0▘ COPY 000Pxn7 CLOSE #0u SAVE 0v0xtx▗x4x4x4x4x4▟ COPY $v[TAB MOVE j2A3/LEN CHR$ pSTR$ ~▘@"8D%<> COPY COPY o[J]VAL NEXT GO SUB V!XXCODE OR w GO SUB VAL T]STR$ LOAD !@/ STEP q NEXT ![Q]B[C] LET VAL$ // NEXT u GO SUB VAL GO SUB s@C1 PAUSE ] CLEAR "BC CLEAR !:/> COPY 2:/2]><>2CHR$ />2>=/ STEP $0^ STEP a60L GO SUB {@C CLEAR *BC STEP upT[E]+|ASN CLS NEXT 7<> MERGE ![A]e RESTORE 6 LLIST RESTORE #~ RETURN N [T]I #>2PEEK ( NEW MOVE THEN [( OPEN #<= MOVE MOVE F#^#V<>o CAT [D] NEXT <>> FOR CODE 2 NEXT 2 NEXT OR INVERSE FOR GO SUB VAL FOR MERGE LPRINT ▝ MOVE OVER p- COPY COPY COPY COPY COPY ERASE x NEW SAVE AND @Wx NEW USR FN ▝_<> CLEAR !j DEF FN STR$ ! IF DEF FN PI GO SUB R>= FOR H CLEAR n CLEAR f CLEAR u CLEAR t CLEAR # CLEAR # GO SUB 6SSIN > STEP LET s,r,= PRINT STEP ▝ LET .&/] THEN # THEN IF r$s, GO SUB <>![U THEN : THEN IF ▝ NEXT r 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 REM ▗! IF VAL$ ▞1 IF ] GO SUB VAL NOT MERGE e COPY COPY COPY COPY k GO SUB [O]l AND LEN AND lLEN l AND lLEN l AND LEN AND 2LOAD1 FLASH XP▝G▗▝ppIN 2Jbz[C]FN CHR$ LIST 8j▘VAL >= CIRCLE CONTINUE @fhjlz▖[G][G][U]SIN ACS SIN USR PAPER POKE 6B/jx PAPER ▚[C][Q][S][U])00^~O© COPY COPY 6>??7CHR$ ?▚9?9?)p▝▝USR p02▝4▖/?©©y©y©p00▝7 ▝Y/?'&▜?0|©|p0@z▝©▗▚ RANDOMIZE COPY RANDOMIZE COPY )p0 0^pFN ▙▝ ^x[D] RANDOMIZE COPY USR USR x SAVE < DRAW DRAW INKEY$ CIRCLE SAVE ▝▞SGN DRAW DRAW DRAW DEF FN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY OUT USR ??USR COPY COPY COPY USR DRAW COPY COPY COPY USR <??USR COPY COPY USR ?NOT DRAW COPY COPY DATA RETURN ?/USR COPY BORDER USR ?NOT DRAW COPY NOT < DRAW DRAW < DRAW LOAD <CHR$ USR ? LPRINT USR ?~ RETURN DRAW DRAW DRAW RUN LOAD ?USR NOT < COPY USR ?~ DRAW CAT COPY DATA RUN LOAD LPRINT IF BORDER USR ?~ DRAW MERGE *OVAL DRAW RUN USR IF SCREEN$ U DRAW USR < COPY USCREEN$ TSCREEN$ SAVE LPRINT COPY REM FN VIN @ CAT
