@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr OFFPARBOD@u } *** MONEY MATTERS ***** BY WARWICK }WAKEMAN ** ANTIC MAGAZINE ** FEBRUARY, 1984 ***********************/+@%@/0@}@@ ,-@@,(@ FINANCIAL /-@@/(@ CALCULATION%-@ @}%(@+-@@+(@WARWICK!&-@@u?# &(0 +'0@@ }@*(-(0(#++(#THIS PROGRAM WILL COMPUTE FINANCIAL())(! CALCULATIONS FOR INVESTMENT AND-( BORR }OWING2( ((CHOOSE:(7,,($. WHAT WILL MY INVESTMENT BE WORTH?<$$(. VALUE OF REGULAR SAVINGS.A$$(. ANNUI }TY OR PENSION INCOMEF((( . HOW MUCH DO I OWE ON MY LOAN?K,,($. GROWTH OF INTEREST BEARING INVESTP,,($. DEVALUATIO }N OF THE $ BY INFLATIONU**(". FURTHER DETAILS ON 1 THROUGH 7.Z @P_??AAAAA }AA d- +'0@@@*(-(i((( ŠȠƠΠn(s(((ORIGIN}AL INVESTMENT $x A}(((INTEREST RATE % A%(((COMPOUNDING PERIO}DS PER YEAR # A5(((TOTAL YEARS # AE6-'$?6-$+@}%,#+$,((Š = $""(P:$A%?,$?!!(ԠŠĠ  ( A0} A,- +'0@@@*(-(1''(ŠŠƠҠ6(;''(AMOUNT EACH }DEPOSIT $@ AE''(INTEREST RATE %J A%O''(DEPOSITS PER YEAR } #T A5Y''(NUMBER OF YEARS TO SAVE #^ AEc6-'$?h''6-$++@%,#+$},&@,'m(r(Š = w""(P:$A%?`,$?|( ԠĠ  ( A0} A- +'0@@@*(-(++(#ԠѧĠҠ٠Ҡ((((AMOUNT OF }PLANNED WITHDRAWALS $ A (((EXPECTED INTEREST RATE % A%(((PLANNED WITHDRAWALS P}ER YEAR # A5!(((NUMBER OF YEARS TO MATURITY #& AE+6-$?0556-$'$+@&}@'++@%',#+$,,,5(:%%(͠Ԡѧ = ?""(P:A$%?`,$?D..( $} Ӡ  I(N A0S A- +'0@@@*(-(%%( }ŠǠΠ((((REGULAR PAYMENT $ A(((ORIGINAL AMOUNT BORROWED $ } A%(((NUMBER OF PAYMENTS PER YEAR # A5(((ANNUAL INTEREST RATE % AE}(((TOTAL NUMBER OF PAYMENTS MADE # AU6-'A 6-'CC6-$+@%,#&$++@%,#}&+@%,,'&+@$, ((Š = ""(P:$A%?`,$?(   }(% A0* A- +'0@@@*(-(( ȠƠ((!!(IN}ITIAL AMOUNT $ A !!(INTEREST RATE % A 0-@-$+@% }'A,#(( = #(( = $-%@(##(FOR ADDITIONAL YEARS, HIT 1"!}"(TO CONTINUE PROGRAM, HIT 2 A "@A E"@ A0 A L- +'0"}@@@*(-(Q(V++(# $ ΠԠŠƠ[(`&&(ORIGINAL VALUE $e#} A j&&(INFLATION RATE %o A0t&&(YEARS #y A@~$}(::6-P:A$$+@&'A,#%?`,$?( = ( ԠĠ  (%}##(FOR ADDITIONAL YEARS, HIT 1""(TO CONTINUE PROGRAM, HIT 2 Au"@A"@ &}A0 A  ( (,,(#ENTER NUMBER OF ADDITIONAL YEARS -  A66(-ENTER INFLATION RATE FOR ADD'}ITIONAL YEARS - % A ::6-P:A$$+@&'A,#%?`,$? -% ( (##((}Π $ = ( ԠĠ  ( Au- +'0@@@*(-(hb(Z )} THIS PART OF THE PROGRAM WILL GIVE FURTHER DETAILS ON THE VARIOUS CALCULATIONSe(h((CHOOSE:--(% 1. WHA*}T WILL MY INVESTMENT BE WORTH?$$( 2. VALUE OF REGULAR SAVINGS%%( 3. ANNUITY OR PENSION INCOME))(! 4. HOW MUCH D+}O I OWE ON MY LOAN?--(% 5. GROWTH OF INTEREST BEARING INVEST--(% 6. DEVALUATION OF THE $ BY INFLATION( 7. BACK,} TO MAIN MENU A ??A!A!@A!pA"A"5A"`@041 +@10@-}@@9/(,(! ŠȠƠΠ/(>qq(h This function will compute the worth of an investmen.}t at a specified futuretime. The original investmenCMM(Et can be asaving account, a term deposit, bondsor a retirement f/}und.Hg(g([ It may also be used to estimate the future value of an antique or a piece of real estate.M``(X Just ente0}r what you estimate the appreciation rate is in place of the Ԡ.R A1W A\7 +@1}10@@@4(7(a-(-(" ŠŠƠҠfgg(^This function will compute the future 2}value of regular equal amounts deposit-ed in a interest kdd(\bearing investment such as a savings account, insurance po3}licy or retirement savings plan.p A1u Az7 +@10@@@4(7(.(.(# 4}͠٠Ԡoo(fThis function will compute the amount required to provide regualr income over a 5}specified period ofkk(b time such as pension payments. It can also be used to determine the amount required to provid6}eDD(< living expenses while attending college or university. A1 A7 +@10@7}@@4(7(*(*( ŠǠΠqq(hThis function will compute the balanceowing on a 8}loan after a specified number of payments such as a ( bank loanor a mortgage. A1 A7 +9}@10@@@4(7(#(#( ȠŠƠpp(hThis function will show how money :}grows year by year when placed in an interest bearing investment. A1 A 7 +@10@;}@@4(7(/(/($ $ ΠԠŠƠoo(fThis function will compute the effect of inflati<}on on the dollar. It can also be used to calculate oo(gdepreciationon a piece of equipment. Just enter the deprecia=}tion rate in place of the ΠŮ A1 A ( ((CHOOSE: ''(1. CONTINUE WITH THIS FUNCTIO>}N? ((( 2. FURTHER DATA ON CALCULATIONS? (3. BACK TO MAIN MENU?  A0 "@$ "@A ?} "@@0 ((CHOOSE:! (1. TO USE THIS FUNCTION& ''(2. FURTHER DATA ON CALCULATIONS+ (3.@} BACK TO MAIN MENU0  A0@5 "@$: "@A ? "@@0 D2:FINCAL.BASEEEEA}EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE'h h Lx+!EF 5L1L!D,I,Hh7/0dzASAMANSBANTIMESWAITIMESSSSPEEC}  * FIND THE LETTER* by HORACE RANSD}OM, JR.* USE WITH S.A.M. *(A@p211;@P,;AU,;@,;@P,< A0 A0E}F* MAIN LOOP *PC +@'0@9AR@C AZ "d4DONE)4DONEAF}n"-@@"(@x!!(Can you find this letter?++6.!KAE4N YUW3 FAY4ND DHIH2S LEH3TER?6-?:AG},;@.@@K:;)@ A  6.>:,@ 0 AH} 4 A* WRONG ANSWER *'6-%@"@' A5(5(The letter is I}.( Try again.&&6.SAA4RIY, DHAE4T IH4Z RAO4NX.6-?:A,-@A  A "*J} RIGHT ANSWER *,'6-%@"@' A`6/( /(This letter is .@6. DHAE3T RAY2T.K}J6-?:A,T+6.DHIH2S LEH3TER IYS+6-?:A,^ 6.6-?:A,h-@Au r @L}|* DISABLE BREAK KEY *G6-F:@,!A',6-&A(8@DB7tG$* DATA FOR SAM *M}UUA,EYY7.,B,BIYY7.,C,SIYY7.,D,DIYY7.,E,IYY47.,F,EHF7.,G,JIYY47.,H,EYCH37.,I,AYY7.ccJ,JEY7.,K,KEY7.,L,EYL37.,M,EYMM7.,N}N,EYNN7.,O,OW7.,P,PIYY7.,Q,KWUW7.,R,AAR7.,S,EYS7.,T,TTIYY7.CCU,YUWW7.,V,VIYY7.,W,DAH4BOWYUH7.,X,EH4KS7.,Y,WWAY7.,Z,ZZIYY7O}.DONE,DONE* SOME ENCOURAGEMENT * 6.GUH2D. KIY3P GOW2IHNG.6-?:A,6-$ * END *P} -AS@06@2@@@C2@$@@@G i2@Q}2@S +'0@@XA0@@XSAR@R}'-@@'( ̠Š&6. AO3L DAH3N.06-?:A,:-@A  D A0NS}* 2 WRONG - WAKE UP *X6-b6.TRAY3 /HAA4RDER.l-6-?:A,&-@@V* -$v* WHICH PT}ART - MENU *#? +'0@@X9AR@<(?()-@@#( ՠ&()(U}&&(To hear the lphabet, press .,(,(!To play ind the Letter, press .)(&(To nd the program, type .)(NV}@.@@K:;)@D6.>:,N A "@:A, AP"@:F, @W}"@:E, AP* SAY ALPHABET SAM *9 +@'0@9AR@ " +X}4DONE)4DONE! A @+ A0"-@ @"(@  6.6-?:A,*-@AP 4 Y} A`>* FIRST PAGE *HK +'0@@X9AR@K-@@R)#( ***ĠZ}ŠҠ***&()(\H( [and The Alphabet]"(E(A letter recognition exercise;H(f# ( [}#(p*'(for Pre-Schoolers like Terrell.*(z$($( [For use with S.A.M.] A @$* BEEPS AND STUFF *_\}-@@92@@E@@= _2@b-@@92@]}@V@@= _2@b$* ALPHABET TUNE * #A0 "b"6@^})"6@=2@_2@b$S2@@@;2@_}@@O-@@S _-@@ =2@_2@`}-@@  A `* TUNE DATA *##121,162,121,162,81,121,81,12172,91,72,91,81,a}96,0,0!!91,108,91,108,96,121,96,121$''108,128,108,128,121,162,0,0,-1,-1D:FINDLETR.SAM b} # &#6-?:A` DOCUMENTATION FOR FINANCE TEMPLATEThis template is designed to keep trackof family finances for ad}ny length oftime. In order to keep within a 48Ksystem, each month is kept separately,but you will be able to keep track oe}feach category from the beginning of theyear to date. Thus the last templatein use will contain accurate data foryear-tof}-date. First use this template as ablank. At the beginning of each month,load it in and change the pertinentinformatg}ion to make it fit the currentmonth. There are 5 columns for 5weeks, however some months only have 4weeks. Just leave thh}e fifth columnblank in that case. EXPLANATION OF COLUMNSColumn B is reserved for titles of eachof the categorii}es. Change them to suityour particular needs.Columns C thru G are reserved for theentries. One column for each week.Cj}olumn H is a totals column for thecategories FOR THE MONTH ONLY. Forexample, H5 contains the total forVehicle 1 gasoline fk}rom C5-G5.Column I contains group totals. Forexample I 15 contains the total for allthe money spent in the generalautoml}otive category FOR THE MONTH ONLY(H5 thru H14). This column willcontain only those categories whichhave sub-categories (sm}uch asAutomotive, Taxes, etc) sinceindividual categories totals are keptin column H.Columns A and J - These two columnsn}work together, and are the key to anycumulative year-to-date data. Column Jwill reflect the totals from column A(previouso} month's data) and theaddition of the current month's data.At the END of each month, column Jshould be saved to disk as a p}DATA file(not a worksheet file). Then, as a newmonth is started, the saved column Jshould be loaded into column A of theq}new month. By doing so, you will thenmaintain a year-to-date record of eachindividual category. Until you have atleast ar} month's entry, column A will beempty, however, you may want to putsome info in there yourself, such asany current money is}n your savingsaccount. EXPLANATION OF ROWS AND CATEGORIESAUTOMOTIVE - this containssubcategories: V1 stands for Vehit}cle 1,etc. Each category here has threesub-divisions: Gas, Repairs, andPayment. Row 15 contains the totalsfor each week u}of all Auto.DONATIONS - has two categories: Churchand otherSAVINGS can keep track of up to 5separate savings accounts. v} In ourfamily, we have a combined familyaccount, a second special account(savings for some special purpose suchas a vacatw}ion), and three other savingsaccounts one for each of our children.Of course, any money put into savingsare not really expx}enses even thoughthey are 'out of reach' so they willnot be considered in the VARIANCE downon line 85.UTILITIES has fivey} possible categories:gas, water, kerosene, electricity,phone.INSURANCE has four categories: home,life, hospitalization, z}and automotive.TAXES - FIT = Federal Income FICA = Social security SIT = State Income SST = State Sa{}les tax CIT = City Income tax FGT = Federal Gasoline tax SGT = State gasoline tax. Each of the |}other categories areindividual (ie. no sub-categories) andare self explanatory. Feel free to change the worksheetto }}suit yourself and your family'sneeds. Nothing is set in stone. Ifyou have a change worthwhile, you maywant to let me in ~}on it/ or if you wantto contact me, I check in on the SIGabout 2 times per week. My number is70217,1145. Also, remember,} thetemplate won't do you any good unlessyou are meticulous about entering thedata. It takes a lot of work, but therecor}ds are worth it. Jim C. dddddddddddddddddddddddddddd"( SPIRAL DELAY VALUE W0<0\ԩЍ Ѝ Ѝ Щ Щ@Щ`ЩЩРH \L:0HH-ԩЩЩЍЍЍЩЩԩPԩQ }Щ8ЩDЩBЭVmV͗VLIV_^`^^__`__V>VVB_^`^^`____H0_^`^^__`_ }_V]-V]ʭVmV@0ɸV`0Vʽ] V]]-V] Ji:AS, +@$AY@4}70@70@@ @6-@#++,8<,8@<},  -/8<,8@<,  *-@A 4 6->-@H 6-6-'@}R-&\) 6-6-%6-%!6-%)6-%f Erase old edgep,8<,8@<},z##/8<%,8@<%, @Draw new edges/8<,8@<,/8<,8@}<,/8<,8@<,/8<,8@<, -@A   A"`}**** INTRODUCTION ******(>:A%,**(" This program draws the first four%%(generations of the SNOWFLAKE.))(}!Generation zero is an equilateral**("triangle.Then each edge is altered(so that:##( ____ becomes _}/\_(((( producing a twelve sided figure.(This is generation one.''( The procedure is repeated,each''(}generation having four times as ''(many sides as the previous one.(''( The screen will go blank for a(,,($}little over one minute at the start,2++(#so be patient.After the display has<,,($returned,and the picture has stoppedF}##(changing,use BREAK to stop.P**("GOTO 2000 redisplays with no wait.Z(d$$( Now press START to begin.nF:}B2y,"@$x AR0 D:FLAKE.XMOuuuuuuuuuuu宮R @ +VL( Error #F:A, a?(NE ṔLfFLfdDP31 Q́Lff DQ3Q́fDTUTQ3Q̃fnfDTP33 QQfd DT}P313 C ̂fDTC31 31@̂UT ̅fFDFDT?315U 3 Q=̄UUL ́LfFDdDTD<315U39̄EU}EĹLfFDF8319YUW38̂VUEU\̂fdflnFf732Uu5U36̄jf Ûfff63:V U51 35̉`NU}EUTL f f432US33 3̆UTffdf2335UuwUs33̃̂˨ZUTU}Dffdfdf3573: ?+*;ZU5333̄]ŪΪ^UŨfdLfffnf317sU32?}*WU5q33131̂ÛUE\ ̃fff3uwUW:32:3:*3US 3331̊Ljʪ}ʈ裯NTU flf3s*:*:;:;232*sU7 3́}*ȨTUEUT ̂flfLdf3*";3:*;3UuU7 3'̂*ꪨ " UV}N^̂LfgoO&3 *"#15UVRbV59213133?*̃BL\T^TSUυgdM}*33*rpPWT_+U?31=?с*̇*ʢ.(*z*UVEŃoldf)3*}#*a(>*sRV3?3*́ )JڃhUeυf΁f*3%*(xZ}bk +))y?3?31?+̂ Vŭ㉪*UĹfflfdf*351 >)y*}*5qs333+̅¨JjUՅA* lfff̂ff+3:jU1p;"2W33}313*̈꨿jnXՄE ffdffdff*32? *WUW73s5W 33313)̪̍ʪUTEff}f(32?:#!uUQWU13313(̈ꎪ]TUUMLfff(3WUUuq3313(̎}MUEUTfffdf(3***uQWUWUSw33333(̃UL fff)3+eUu}s3133*̇ꪬUUfLff'3;3%:3QUQW333331,̃\UEUT\L̃flfdff+3}sUuUs33311/̈\]U]U\́ff f-31sSUQUS333 1̄\UT́ffd f03sWUuU333 3}Ĺff f23sS3331 ŃffffM33133ŃfffdffM3333NfffffM3}333N̄lfflffN33333ÕdffLflfO3133}6-66-'6-$&$6-$&$6-$&$?lm& 'NNNNNNNNN1N1CLRESECRKESPAAFPDPSYOUOPPONENXYCOLSCYXXAPPPXYXXI} @}} !"#$%&'()*+,-.}/ 6-6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@{6-@}6-A%6-AU6-AR6-Ad6-B2ydK+ ((9@`,;A ,.6-8 A` K-}B:,@np 6-<68,-@:7<,,&@H%+@:7%<%,,&@H,$D6-%H Mf@Kp AP}x; 6-6-6-6-"#6-)6-/6-56-;6-,+000#),(g-@9?P}/2@@+&,'5,A/@8O,@x&c/@x&@8g S-,$%@5/$%@}@9?,$&O/@g$&S I --0)6-+$,%$32E2%@I  2}2M 0((>:,WHICH COLOR? (W/B)/)M@*@fA%"@6-6-% A}0"@f6-6-6-@6-6-F%(>:,WANT TO GO FIRST? (Y/N),)26-F"@xAP} 6-@A@V1(>:,#WANT TO SET UP YOUR OWN GAME? (Y/N)8)V@x*@AP#}"@ A`# A@! B33 A`! A, 6-R:,6"@6-@"@*!6-&J!}"@* @V!6-%T"@*!6-&^!"*!@!6-&@ h!"@ * @V!6-%r}"* @c6-%|"@*!6-&!"* @U!6-%@ $Xc6-@E A`)6-}@T3 A`7C6-@DM A`Y6-@Uc A`b l"A@v ApF:,"A}: 6-F:,:@G*@5*@!A"@GA "@5A A A} A"A@?2AU@'-AP+ 52? A3 6-6-6-6-% A }3"A&-@ "+&P:',$,"&+&P:',$,+&P:',$, A`  6-}6-6-6-$ !!")&")"@dA " A"A$W 6-1&,86-$+&P:', }$,%@M6-P:'@,$%W1&&  ,*T:,"A@,A@4[ 6- 6-6-!- }A6-+&P:',$,%%$+P:',%,G6-[ A %$@ 6 6-%6-%> "A@@6-%&%6- }%H!!")&")"@dA J: Ap A %-@B6+&P:',$,":L+&P:',$,N+ }&P:',$," A`P   T 6-%6-6-6-#6-)6-1-:6-8,@6-T A %@ $  }6-%6-% 6-&%) 6-6-6-1&) A0@6-$+&P:',$,%'6-P:',$&/-76}-&= @$ 1"*")"$ "  " $4 A`6--#6-&- A`1 4$F6}-$+&P:',$,%'6-P:',$&/-76-%C!@8F$ 1"*")"$ "  " $ 4 A}`6--#6-%- A`1 4$@6-$+&P:',$,%'6-P:',$&/-76-&= @$ 1"}*")"$ "  " $4 A`6--#6-&- A`1 4$$F6-$+&P:',$,%'6-P:',$}&/-76-%C!@fF$) 1"*")"$. " 0 " $24 A`6--#6-%- }A`1 4$8?6-$+&P:',$,%'6-P:',$&/-76-&?6-&:  ) $= 1"*")"$B }" D " $F: A`6--)6-&@3 A`7 :$L?6-$+&P:',$,%'6-P:',$&/-}76-%?6-&N!@f) $Q 1"*")"$V " X " $Z: A`6--)6-&}@ 3 A`7 :$`?6-$+&P:',$,%'6-P:',$&/-76-%?6-%b!@f)!@8$e 1}"*")"$j " l " $n: A`6--)6-%@3 A`7 :$t?6-$+&P:',$,%}'6-P:',$&/-76-&?6-%v )!@8$y 1"*")"$~ "  " $: A`}6--)6-%@ 3 A`7 :$C6-$+&P:',$,%'6-P:',$&1-%7,?/%C -}@ $#@w#&")"A  "6- "6-R-@`6-8,/6-$+&P:'},$,%>6-P:',$&DJR1 " A0# #&**"*"A  &**"*"6-} $ A I 6--ApA '292%@?EI ! 22! A03}-A!2@% /23+5 "(NO LEGAL MOVES LEFT!%(5&!A 0&"A @J((}YOU HAVE WON BY $& CHIPS.+(@(CONGRATULATIONS!J A PY&(I HAVE WON BY &$ CHIPS.)(O(!THANK YOU F}OR A STIMULATING GAME.Y A PL%(CONGRATULATIONS. IT'S A DRAW.((L(WE APPEAR TO BE EVENLY MATCHED.F - } (@(WOULD YOU LIKE TO PLAY AGAIN?F ( 6-F:,"@C( A 4"@5(.!}( GOOD BYE...1(4 A ` U -&6-$+&P:',$,%@56-P:',$&;AU A)%@ $  "} $ " -6-%!@8"$  1")"*"$ "  " $ ' ' ''' AQP  #}-6-& $  1")"*"$ "  " $ ' ' ''' AQP  -6-&$} $  1")"*"$ "  " $ ' ' ''' AQP " -6-%!@f"$  %}1")"*"$ "  " $ ' ' ''' AQP 4 -6-%6-%1!@f)!@8&}4$  1")"*"$ "  " $ ' ' ''' AQP& . -6-&6-%+ )!@8'}.$(  1")"*"$* " 0 " $2 ' ' ''' AQP: ( -6-&6-&% ) ((}$<  1")"*"$> " D " $F ' ' ''' AQPN . -6-%6-&+!@f) )}.$P  1")"*"$R " X " $Z ' ' ''' AQPG B33;(>:,SET UP? (1=R*}EGULAR, 2=MANUAL)A6-G6-0 )6-&@H0 )!A@"ABPE%(>:,PRESS WHEN FI+}NISHED,E(USE BUTTON TO SELECT SQUAREW A6-1&!',B6-$+&P:',$,%@W6-P:'@,$%,} 1&,F:,"A@< 6-F:,"@((1&,2,< AA`T:,"A@`-} (>:,X 6-6-)(WHICH COLOR? (W/B/G)0)X@*@f*@qA@O'6-++&P:',$,%,%+.}$+P:',%,,1 AB@;1&?K"@O!"@q!"A@P'"@q6-&, A`/}"6-%1 A@P6"AA@;i AB -(YOU'RE MAKING UP THIS GAME!M(A PIECE COULDN'T GET THERE![-0}A_ i A@P@76-@D AB@!6-%)17"AB0B76-@E AB@!6-%)17"A1}B0J76-@T AB@!6-%)17"AB0L76-@U AB@!6-%)17"AB0N 6-2}--T= 6-$% AB@6-%'6-%/1="AAV 6-%"6-%^  &")"3}AB`"@dABb A` Ah\ AB 4(>:,YOU HAVE TO GIVE ME A CHANCE!:6-@6-N-4}AR \ A@PrM AB 1(>:,YOU DIDN'T LEAVE ANY ROOM!?-AC M A@P|& (>:,-5}# &$V AB :(>:,#THE CENTRAL SQUARES MUST BE FILLED!H-AL V A@P*6-$+&P:',$,%'6-6}P:',$&*$# A`6-6-# AB -,(NEED INSTRUCTIONS? (Y/N)3)?"@xB$@7}APN (>:,-@%( ЭԠ((N(! THE OBJECT OF THIS GAME IS TOS)(!COMPLETELY FILL THE BOARD W8}ITH ASS(%MANY PIECES OF YOUR COLOR AS YOU CAN.P)(!TO DO THIS YOU MUST OUTFLANK YOURP("OPPONENT'S PIECES AND FLIP THEM9} TOP)(!YOUR COLOR. OUTFLANKING CAN OCCURP("HORIZONTALLY, VERTICALLY, OR DIAG-a,($ONOLLY. THE GAME ENDS WHEN THE BOA:}RDS("IS FULL OR WHEN BOTH PLAYERS CAN'T^(MOVE. a(V)(!WHOEVER HAS THE MOST PIECES WINS.5-@#V((PRESS ANY K;}EY TO CONTINUE)F:,"APeA  +-A(#YOU MAKE MOVES BY MOVING THE CURSORH+(#WITH THE JOYSTIC<}K TO THE SQUARE YOUE(DESIRE AND PRESS H(i,($DURING THE GAME YOUR CAN ALSO CHOOSES("ONE OF THE OPTIONS BY PRESSI=}NG THEf(KEY INDICATED:i(Y(Q - TO QUIT THE GAME(8(N - NOT ABLE TO MOVE;(Y(B - ASK FOR THE BEST MOVE-->}@#-((PRESS ANY KEY TO BEGIN) F:,"AQ0  6-8,$p+%@HzB B330@#?}0+0?0@ @B$nn6.d118118883161138316863868336336664151148415854858435334643565465642522474257547@}5732622373267637672171)&67B:,%,.12821787287822722777)$XC,@A%/@y@A1,@DC/@y@A}Db5 +&,!,@A5/+&,%@@Al- ! ,@D-/%@@Dv$ D:FLIPITB}.IIF1EّԤj0wO (c)1983 Action Computer Services  B JKIHiDiELV`L90D} 90 BLV`L00l L0 &` Fj`8冨凪` 0EӅӥE} 0`ʆǪƩ Ɛee` 0ƦʆǢ &Ɛeǐ 1 1L0 0'&&&8儨児F}祂*L0&&*ń8&&L0 W1`hihiHHȱȱL0c !#3`G}L0JJJJ`H 0h`Hȩh n0L1 w0L1 !0L1 )0L1 /0H8H}`HhHh [2L1 BHI V䅠L1 L2 90L1Ԇ ؠPIPP`I} 2P )0L1 2L2 2L2 3L2H- 28塪墨hL3 3L2 "3L2 2ȹP`J}텠8堨塪 2芨Oȩ-`PP 2P棩 Ѥģ0-ģ6000:,80H K}& &ehe&eģ0ʥ 8堅塅`$ 2&*i0:0i 2Ʀ`¢ 护L}°ڱ%ȱ%E 2L\4担CS N2L\4I 3L\4H 4L\4 2L\4 &B V 1NLMȑM}` MLN%B VL1S:4E:5H H2 55 2 H2h)0I55L2[\ZUVT` <555N}` C5L2 65L2 <5L2) ` C5L2 "1` 0d 0ҥ `2)2O}ҩ`p`0)95`@0)ӈJJJJ)`Ѕ`ȱ`` 16ȥ`HhP}ƣĢ`ƥĤ`Ѣ 6`ȱѢĦ`膡`Q}`ťƤe8夰L6 Ƥ8`ŦeѠe桊L6R} }~Le7P7a7a7L7P7a7]Q7L7^`a7Lm7P7)a7a7L7^a7a7` L7R7R 2 2L7&S}7 ;2L8&|This program was written in ACTION! |7 ;2LN8&| ACTION! is a trademark ofT} |8' ;2L8&| Action Computer Services |8X ;2L8&| Portions of this program are |8 ;2L8&| CU}opyright 1984, A.C.S. |8 ;2L9&8 ;27R 2` t(file): PrintE(" does noV}t exiLI9#9"9"9#9$9B99$ |2$9C9$9L9D9$999D9L9hD9$9aL9zD9$9L98D9$9 W}D9$9L9D9$9I:L9D9B9L9D9$9I.L9D9C9D9L9L9`B9L : $9B9L>:$9L>:L2::" ;2X}`B9!8C9B9 ŮC9i$9L:L{::i ;2`B9L:L:D::#9"9 69"9#9iY}"9#9m$9$#9"9 7`L::L70K70 2L ;System Error = : N2: 2L2;Aborting. Press RETURN;Z} ;2 2IL9; 5R 0`: PrL`;Y;Y;IL;:0:0 0L< 2L;System Error = ; N2Y; 2Z;Z;[}L<Z; "1@eF7eG7F7iG7iMY;L ;2VUL=| |=l ;2VUL=| _} by |= ;2VUL=| |= ;2VUL>| R.A. Gunter |= ;2VUL@`}>| |>$ ;2VULn>>R ;2 TL>"Press Р or ɠ (logo) keya}>| ;2L>#for documentation, any other key to> ;2L> continue.> ;2L?IL?L> T <ͻ<L ? 2<b}L ?L@?I'L@?`VRULp?$FLIST prints an ATASCII text file on?K ;2L?any printer, with a page headerc}?z ;2L?#consisting of name, date, and page ? ;2L? number. The program assumes the? ;2L$@&printer is configured to d}recognize the? ;2LU@&ATASCII RETURN character (155 decimal)@. ;2L@&as both line feed and carriage return.@_ ;2Te}V UL@Press Ԡ@ N2< %<V UL@ @ N2 T <ͻ<L@ 2FINCAL XMOB!BFINDLE XMOBcFINDOC XMOBGFIRE XMOBFLAKE XMOBFLAMIN XMOBOFLIPIT XMOBBCFLIST XMOBFLOOD5 XMOBFLOORM XMOBFLOP35 XMOB;FNLCUT XMOB"FNT4PC XMOBFNTLDR XMOBFNTMAK XMOBkFNTPLS XMOB-FRACTL XMON2 T <ͻ<L+B 2 atC- ;2LC$the prompt if a dated listing is not}tC^ ;2LCdesired.C ;2TV ULCPress ԠC N2< %<V ULC C N2 T <ͻ<L Du} 2 key.H ;2TV ULH}Press ԠH N2< %<V ULI I N2T<ͻ<L;I 2 J N2II |2:AU,FQQ67A),.>`RɥPee`/ ()L(((R( (  S`L(A(A(Ȍ(((L+)(( ((i((i(L((%}(((L)8(( (8(( ((i((i(L4)(A (AȌ(h(p((L)(%}( (((L)(Ȍ(((L)(( (((L)(A``(DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD%}DDDDDDDDDHT6-F:A`,c6-F:Aa,r6-F:@,6-F:@,c-(%+ϠҠŠҠ+H($ ?jUVjUjI$I$FUjUVjUI)}$I$EVjUVjUVjI$I$FUVjUVjUI$I$EVj)}UVjUVjUUUUUUUUUUVjUUUUUUUUUUVjUUUUUUUUUUVjUUUVj)}UUVETDDEUUVjUUVETDDEUUVjUUVETDDEUUVjUUVETDDEUUVjUUVETDDEUUVjUUVET)}DDEUUV*UVETDDEUUV DDDDGV====================================================)}===============&67,.' A AAR@(,* Ap*@@( 72 1174 72 1732 72 3040 72 3396 60-} 30           -}       -} C.........,,,C%%**'*'**'*'-}"....C%...1.....,C%****'%**'*'"....CC331313C/1113*-}**CC1313/313111.1CC1335535:::856666CC,,,*.,CC,,*.,CC*,-}*,*.....**CC:::5::::::886666CC:::5::::888C8;;-};6;;CC66:86666CC88686:8C======8:::::CCCCC%..C...-}..,,,C..,**'''C%...C%..C....,,,C,,.,**'''C''%...CC666-}666666::::CC63636666C:::::C3666688C68::85666-}66CC,,,*.,CCC====9::::CC8C=::C168C6531568:8666533*,.,.,-}C::;:8C368C6531/.,****C:::5::::886666CC:::5::::8888C-}8;;;6;;;6::856CC,,*.,,CC*,*,*..,,*,***CC.CC%%%%%%-}%%%%%%%%%%%%%%%%%%%%%%%*'%'%'%'%'%'%'%'%-}%*'%'%'%'%'%'%'%'%%C***))*,.C///C1C1C*)*),/...,**.,**,/-}****"#" " '%#""#"#" *'%'%'%'%'%'%'%'%%*'%'%'%'%'%'%'%'%%-}C***))*,..C**C1111***)*),135653331.....,**.,**)*)-},/*,.''CC*)C**CC**********************)-})''C''C''C'*%%C%''  "*C%%%C%C%%" %" %" %" "-}$%C"$%C"$%C"$%C%" %" %" %" "$%C"$%C"$%C"$%CC)'%C)'%C)'%C)'-}%*'%#*'%#*'%#*'%#C*)'**)''"#'*"#'*"#'*"#'*"#'*"#'*"#'*"#'*%" -}%" %" %" %" %" % % %#*'%#*'%#*'%#*'%" %" %" %" -} #"   "%""%""C%''%%')**C''C%%%%%" %" -}%" %" %" %" %" %" "$%)"$%)"$%)"$%)%" %" %" %" "$%)"-}$%)"$%)"$%)C)'%C)'%C)'%,)'%*'%#*'%#*'%#*'%#C*)'**)''"#'*"#'*"#-}'*"#'*"#'*"#'*"#'*"#'*%" %" %" %" "$%C"$%C"$%C"$%C%" %" -}%" %" "$%C"$%C"$%C"$%CC)'%C)'%C)'%C)'%*'%#*'%#*'%#*'%#"'##C%"-} %" %" %" %" %" % % %#*'%#*'%#*'#%CCCCCCCCC-}CCCCCCC-}CCC    -}CC99u9uuh<<x9<9-}<<<MPPPPP<<<<uuxx9uuhh<999<<u<<x<<<<xx9<x-}<x<uux<,<<x<<<<<<<h9ux<h<99x<<9x<<<<xx99<<<,x-}9x<x<<<<<9999<9xx99x<u999u<<<<<<<x99x<u-}9<<<9<9<x<9x<<<x<9<<<<h99999<x<xxxh<-}9999<<<<<9<<<xx<<<<<<99u9x9<9<<<<xx<<h9x-}<<<Xx99u9uu9ux<<<x<<x<u99,99u9<99xu<-}<<9x<<x99<<<,<999<vx<<PPPPP((PPPPPM-}PPMPPPPPPPP((PP((<<xx99x<uu<<<<x99x<-}u9:<9<uu<<xx<9<<xx<<<<<<9<<<xX-}<<<<<<-}<<<<<<<<x<<<<<<<<<<<<<<x<hx<<-}<<xxxhxhxhxhxhx<<<<<<<<<<<<<<x<<<<<<<<-}<<<<<<x<<<999PPPPPMPPM<-}<x-}x<9x<9x<<<hx<<<<<<<<-}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<-}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<x<<<<<<<<<<<<<<<<<<<<<<<<<-}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<-}<<<<<<<9xxhxhxhxhxhx<<<99-}9<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<-}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<x-}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<-}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<-}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<x-}xxxxxxxxx<xx<<<-}<<<999-}<22222222222222222222222222222222-}222222222222222222222222222222222222222222222232= Awx] A%-@@ 3,.GW (c)1983 Action Computer Services  B JKIHiDiELV`LSG1} SG BLV`LGGl LG &` Fj`8冨凪` GEӅӥ1} G`ʆǪƩ Ɛee` GƦʆǢ &Ɛeǐ H HLG G'&&&8儨児1}祂*LG&&*ń8&&LG qH`hihiHHȱȱLGc !#3`1}LGJJJJ`H Gh`Hȩh GLI GLI ;GLI CGLI IGH81}`HhHh uILI BHI V䅠LI LI SGLIԆ ؠPIPP`1} IP CGLI JLI ILJ JLIH- I8塪墨hLJ 5JLI `<|0`̌8l8pv00```00 0f< x1}|||v|||~|l8l8lfff< 0``0 xx1}6cÙ9Ǔ9Ǔ99'$$$''χ?3''3?`~f>~ 0~f~f~ǁ̜<~1}0~0<<|~~||~~||>````~~8<81}<||~~~|0000~l8|ll8l~ 8`:Ap,D67@,.LV\67@,.>:A(,w$6-+F:A,&@,$AV8AV5}'AVwADDRESS OF CHARACTER SET. TRY 57344 ON XL'S WITH TRANSLATOR'6-A46-A6'6-A@)%%@5}'AV)%$'%%@@'%.%@6-?:C:,<,8@B>$>REMOVE6} THIS LINE TO USE THIS AS A STAND-ALONE PROGRAMD2:FONTLOAD.BAS8888888888888888888888888888888888888888888888888888886}888888888888888888fD@DUQUHHl`[HHrLHL`[`lQyff[ff[f[̢lQQ̢lfQD̢22yfLyfHlHl40':} `6 5 6 >2 l2 -00 0 q0 1LS3@0 6` %0 R4 6R`FontMaker by Charles Brannon0 0``` ]0 :}6 6 ˭0 ̢0Ș) ]0 6 6`̭0 & & &m0˥̅m0` :}0˙00` 00ˈ`Xi˥Yi̩0000 0 i(˥iڭ0w1 ȭ0:}F`4hequickbrownfoxjumpedoverthelazydogs ! Pick a character...1 6 1 0 q0*+:}x1 p5m0)0)?0L1L;2 :)` i@L/28 0 1 0 q0L%0j8̍0ˍ00ͩΠ͑Υ:}`./Щo080ԩ0 0̭0ˢѩ˭0 ̅ҩϠϑIȘ)I88ЍЍ:} Ѝ Ѝ ЩZȍ&`0Э0 ̠ˑ0/3`800 3x: }0@ύХ033m08U0C3m050 3ϥ p5UЪ80JJ ]0L38088JJ8j: }Y00 6 70 r5L]3L%0 :a{8 :4:4L`3ʊ 3H\HV4HU4H`-=+* P}_|\^GIUFMRSLCB\7c7j7q76: }6<7L73y71766$7075777888899 - - Toggle Blank Graphics Mode: } Pick Inverse Undo Fix -F Fix all Rotate Mirror Copy Bytes Save font : } Load Exit to DOSZ`Xi˅ѥYi̅Ң` {5000 5 0 q0 1`0˭1̠‘ˠȩ:}ȭ0˭0ȑȑȑȩA˥ȑ˥ȑ`@ԩ6`HH ԍLW6 ԭ0 LQ6Z6:}0 hh@L 0HI B V0`X(`HHU w6Thh˄̩ `6` 1 q0` 6 ]00 6` 6 6`0H:}00h0` 6 ]00 6` 6 6`0H00h0`ҢҠ`0 6`^0 6`0 >0 6`:}0J~0 6`hhLc3hh Lc3hh Lc3hhLc3`@ԩТl 0 6`0I0 6`0H00h0 6`:}) >20 0 1 q0` 0υ˥i̢˝0 6`^0*0 6`0*000 6`:} `6~ `60 :0ɛ/~ ) a{8 U'ؙ `6 `6LP8 `60`Save (Device:Filename)>8 6 A8:}ES o90 0 9L%0Load (Device:Filename)>ߠ8 6 A8ES o900 9L%0DE0HIB0J:}K V020D0EHI0B V0 o90 ` B V` o99 6 :`I/O ERROR: PRESS Copy to which character?:}009 100 6` w6U00 90 : %0`ԩ ؠ0 `6) `6 `6`%H$H`04444444444444:}444444444444444444444444444444444444444444444444444444444444444TO RUN THIS PROGRAM. THE!!TRIGGER BUTTON ADVANCES THE8?c44IFNNDSASAFUNALOGIRAPMBASCHRORCHSEPPPZZJJFSCCMRCEANTICOLFCOLFCOLFCOLF>}CKDIRECOLUCLCHRDDRSSLLDTASTARA0> BrBBA0A1A2 A(>} AR B BsD BhdAUBDBrB@G@@@2@>} !"#$%&'()>}*+,-./012345678>} AT@@'-@/-M( Q T$d*** SUPERFONT + ***i>}Character Set Editor&&9@,;@,;@,"F:A6,@r" A +AR@>}70@@@70@@@--6-F:A`,%AV$F:Aa,%@K56-F:@,%AV> }$F:@,%@$@@K6-%@$@@36-A06-A1'6-A236-A((6-F:A,&@>!}(6-$AV6-BsD!AY@F!BBy'B2w@'B2V@6-+&@,$A>"}V+%@#@+%@$@+%@A0+%@A'A'A@>#}"BBA,=AI&@+Ar&@=A866-?:AU<,@{6-%A%>$}@ /6-%A@%@ E6-%Ah%@ [6-%A%@ g6-@q A0{ APJq-@>%}+-@96-AU&Q%$@%c%$@%q6-AU&T.%$@% '6-A>&}U&+ .$^9B2H@d'B2I@d9B2P@dh9AA'AA@9A@h>'}rKB2V@'B2W@9B2X@KA#@w! A A! A|`-@>(}%( 9-@@I( : :M ]( `$'@@'-@>)}( Edit Restore( Copy From Switch( Copy To Clear( Overlay Invert!!(>*} Save Font Load Font ( Delete  Insert##( Scroll Left  Scroll RT ( Reverse Graphics>+}!!( Print mode ANTIC 4&5 ( Color change DATA STM( Write Data Quit$~-@+->,}@1O%%$@@%@$@2%s%%$@@%@$@2%w { ~(##@@>-}K:&6-F:Ad,&"AUA  '@@'-"@`A !"@9!A>.}dAh&)@0@:E,A: APDZ-@,6-F:%$@%,@-@>/}R%$@%V Z N7%Ai%+$@,7%A%+$@0,X6-6-b-%@>0}%@l-(>:@2%A($,-6-@&v T:,"AP)F:Ad, AU( ) A>1} &6-R:,&"@ATT:,,-A@ P2A&@@T >2} -%@%@ ( !!6-%+"@,&+"@,!!6-%+"@,&+"@, 6-@>3}!@6- 6-@!@6- AEF:%$@%,0>4}@#+@&,<@sE6-?:,?%$@%)-@;%$@%? a-@>5};2$@@@? a2  AP@:F,A0  6- AP>6}*B-@,6-F:%$@%,>%$@%B 4 6- A>@:T,ApH 6- A>7}PRB-@,6-F:%$@%,>%$@%B \ 6- Af@:O,A p 6- A>8}PzV-@,F:%$@%,AF:%$@%,M@ V6-?:,%$@%  6->9} A@:R,A @F-@8%$@%F:%$@%,< F A@:C,A `>:}=-@/%$@%3 = A@:,A N-@@%$@%A>;}U&F:%$@%,D N A@:X,A 6- APm-@,6-F:%$@%,M%><}$@%F:%$@%,_%$@%c m A@:I,A0r-@/68,-F:%$@>=}%,3 G-@d%$@%8@&,h r A@:,*@:,APf-@:%>>}$@%F:%$@%%@,> \%$@%@f A@:,*@:,Ap$i-@>?}6@C%$@%F:%$@%&@,G _%$@%i A.@:,A8N->@}@46-F:%$@%,$@@!AUN6-&AVB#%$@% # AL@:,A0V>A}7-@76-P:F:%$@%,'@,`#%$@% # Aj@:Q,APtXB2H>B}'B2I9B2PKB2wU+X~@:S,A AA>C}* A*@@6-?:A<,-@ B-F:A,A`)BBA>D} A) A @:L,A AA* AP*@@6>E}-?:A<,5@ B5F:A,"A4-@4( * ERROR - F:A,*MF>F}:Ad, AU*-@C( M A Ap @:W,Apj6-6->G}@% @ /6. ;6-B:=:,,O67@<,.=:,X6-B:,j-@4-@)(>:@:7<,,%A(>H},- 4(>(f6-#-@C-@%+!,X6-F:%$@%,f6-%@2;;2>I}+$@%,$@%@P@@<6 ,  62F F:Ad,"AU>J}APP! @  A! A Z@:G,A d/6-@&/AI&@%@$n A >K}xZ+@%@/0@@@A-@@Z(@ SUPER +}W-@@+(@>L}patience=-@@W(@ ORIGIONAL 2-@@2(@CHARLES BRANNONM-A6A>M}"!-A I2@@M (%2($72,169,100,141,10,212>N}141,24,208,141,26,208169,6,141,9,212,10464,104,104,133,204,104133,203,169,0,133,205169,224,133,206,>O}162,4160,0,177,205,145,203200,208,249,230,204,230206,202,208,240,96,104162,16,169,9,157,663,104>P},157,69,3,104157,68,3,169,0,15772,3,169,4,157,73"3,32,86,228,96,104,162,16,169,5,76,5866,9,104,169>Q},0,9,0,133@212,169,0,133,213,96A((72,138,72,152,72,169,0,162,0,160,0B141,10,212,141,26,208C142,24,208,140,2>R}5,208DRR169,0,141,22,208,141,10,210,169,6,141,9,212,169,0,141,23,208,169,156,141,0,2E]]104,168,104,170,104,64,72,169,0,>S}141,10,212,141,26,208,169,104,141,10,210,141,0,2,104,64J. @ -@.( Filename?T 6.6-^>T}@ hFFF:Ad, AU*F:Ad,@9*F:Ad,@`Apr F:@ , @A@|7>U}(>:@!%@$,-6-@&7 A0)@="AU( /-@B:,%@6(~: >V}=$O"A&*B:,!@86.7@:,O A0."A&*B:,"@$(>:,. A >W}MM"@X)+!@G* @X,)+!@d*@,)"@FA  A01B:, @)67B:,%@>X},.>:,1(>:, A0GET CHOICE OF CHARACTER$6-P:'@2,$6-&@2$6-%$@2%%>Y}%%$@@%@%A(%%%%$@@%@%A(;+T:,")F:Ad, AU16-; A>Z}&6-R:,&"@AB2y& A0?!6-&+"@,%+"@,?6-&+"@>[},%+"@,:) 6-@1)6-&@D)!@16-)6-%@N 6-@X>\}!@6-b Apl%%$@@%@v%%$@@%@$@:A,A">]}BBC#%Ai%+$@,C%A%+$@0,"@A!%@$>^}@=-@@#%%@) =%@"A2!AA!6-@;6-@$@%>_}@;6-@$@%@ ;6-@$@%@;6-@$@%@AdAH >`}APAw*+BBA!6-@Q+ A!'476-#%@#@7%@$@>;>a}A)-@@"7%@; H!BBA!6-@OK A0'%Ai%+$@,>b}A%A%+$@0,K A @:P,A0%6-6-@% @ !-@!6->c}( Ԡ!(!( Press to return( to menu!(!( Press to clear( >d}typing area26-F:B2y,"@( A2 A "@A&&6-F:Ad,&"AUA"p>e})@E-* @2)A(* A`;6-%@dE A# ;-@2* @)A`* A$>f};6-&@2 ##!+%@,$@A#  G%Aa%/%A%+$@ ,%=6-%@G A"p >g}u#-@$+%@,@%Aa%F:%Ab%,u%A%+$@ ,%F:%A%+$@ ,%, ) 6>h}-@$+%@,) A#( u#-@$+%@,9%Aa%[%A%+$@ ,%_ >i}k6-u A"p @:K,A5 16-6-@% @ 16- >@@'-@>j}>( ҠŠ ( Press K to return ( to menu ( Playfield 0 ( Playfield 1 >k}( Playfield 2 ( Playfield 3 ,( Background,( Read Register 3)@6-'"@:0>l},36-@! $"@:R,6-@$ A1& "@:1,6-@10 "@:2,6-@: "@:3,6-@>m}D "@:B,6-@HN ""@:K, A" A S "@A4X "A1b %6-@>n}6-@% @ l '@@'-@v ( GREY GOLD ORANGE ( RED PINK PURPLE>o} !!( BLUE BLUE LT.BLUE !!( TURQUOISE GREENBLUE !!( GREEN YELLOW/GR !!( ORANGE/GR LT.O>p}RANGE A4 ( Luminosity ( input(0-14)  6-$@% AF% A0H E >q} B-@@-( TRY AGAINA-@AE M ?-@@#( 5-@@? A2E>r}R h6- 6-F:AF%,2-@@ ^(COLOR REGISTER >:,= h A1 @:D,A >s} mB2H'B2I9B2PK@W6-c6-@m A6  A6 >t}6.  j-@9(First letter of FONT to be madeS(into DATA statementsW`6-@:,j A7 L 6-$>u}( Last letter of FONT(16-@:,; A7I6-%@L( A6 G/(' DATA LINE START (堹)>v}3G AA55 + 6-6-@!6-+ A6 n-&@%-@4( D.H->w}@`(F:%$@%,,d n(  6((CONT!-3AB@6& IAB@>x}#6-%@/6-@;6-E A6I  ^-%( SAVE FONT)B7@<@,4YL A>y}T^ A5p 07@<@,0N& A60 A5e 7( Finished77@<@,4YA@>z} B7@<@,0N& A68-B A5p B2H@d'B2I@d9B2P@d>{}E6-@Q6-[ A6m@@-@ A! A0 A! A P->|}-I(' M P$ B A54$s-1( DELETE A>}}NY DATA LINES5N7@<@,4NZ6-@f6-p A6s$.$$7@<@,0YA6 3 A6>~}89( START LINE NUMBER5( END LINE NUMBER9=Q A) 6-@+6-5 A6G->}Q A6@>%6-@6-% A6B`-@%-@-(0(9(CONTK->}]AB@`&L>AB@ %6-@16-; A6>$j! B A6! A65t*>}@2* @'6-&@2*$~** @2'6-%@d*$'!A'6-&A(' A7$>}D:FONTPLUS.BASXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX<>abQdDAPRLDMMPRVISYXAADDBBXZZWXXXYYYZZYXXYZEERRRXCYAA!F2B}@@@@@@?R6 ?b @ @ AUUUV ?fffff@3333@3332@3333B}@AShttR2U@AEA4f B}!A$"#$%&?'?(?)@*@+?3,Xug-AFi.AE/0AB}g1@2 BB3D FRACTAL PROGRAM IN ATARI BASIC - BY MAC A. CODY, MESA AZ. iiREMOVE 'REM' FROM LINES 1030 AND 1B}110 IF YOU HAVE A ATARI 400/800 OR YOU WANT GRAPHICS 8 RESOLUTION aaREMOVE 'REM' FROM LINES 1031 AND 1111 IF YOU HAVE AN AB}TARI XL/XE TO GET THE FOUR-COLOR MODE ]]REMOVE 'REM' FROM LINES 1112 AND 1131 IF YOU WANT A 30% FASTER PLOT - SCREEN GOES B}BLANKiiREMOVE 'RETURN' FROM LINE 470 IF YOU WANT THE SEA LEVEL SHOWN. LEAVE 'RETURN' FOR ALL 'LAND' PLOTffPRESS 'S'B} KEY TO DUMP SCREEN TO A DISK FILE (NAMED PICTURE.). PRESS 'Q' KEY TO QUIT THE PROGRAMCCALL OTHER KEYS HAVE NO EFFECT OTB}HER THAN TO STOP ATTRACT MODE##9@d<@2,;@,(NUMBER OF LEVELS (D6-@-@7B}6-%@#+&@,; D6-P:,2O6-&@6-'@+6-@A6-$@0'AO6-$@ 3-B}-468<,-5   <'-@'6-B'@#F(WORKING ON LEVEL P,6B}-'P:@%@#,,6-$@Z7 AP7*** ASSIGN HEIGHTS ALONG X IN ARRAY ***d7 A 7*** ASSIGN HEIGHB}TS ALONG Y IN ARRAY ***n; A;*** ASSIGN HEIGHTS ALONG DIAG. IN ARRAY ***x  A@*** DRAW **** B}HEIGHTS ALONG X *-&@-%9 6-&6- Ap!6-)6-%3 Ap96-J46-+B}%,'@%H:@,$'@&'@:6-@6-J A     $* HEIGHTS ALONG Y *-@B}6 -9 6-6-% Ap!6-)6-&3 Ap96-J46-+%,'@%H:@,$'@&'@B}:6-@6-J A     $* HEIGHTS ALONG DIAG. *"-&@,-&6% 6-%&6B}-& Ap%6-@% 6-%%6-% Ap%6-JL 6-%6-B6-+%,'@%H:@,$'@&'@B}L A T ^   $h$$*** RETURN DATA FROM ARRAY ***r!A| 6-6- A6-%@&B}6-&6-8O:,6-$E:,6-$G:,H$R** TILT DOWN ***\'O:, @#6@'6-]'O:, B}@#6@'6-^6-M:$%$,f'"6-'@' A p6-D:',z 6-%B} 6-&6-$E:,%6-$G:,$%%*** MOVE OF PLOT TO (XP,YP) *** Ap 6-$6-$6-$ B}Ap*** ROTATE *** A`*** TILT UP ***"6A 6.M6A 6.D6-P:,%6-P:,B} A0$*** PLOT LINE HERE ***6-@ %$?bPXP=10+XP*0.3125 6-@@&?f0$B}!A) $ 4M,6-$ / $$!!*** SWITCH TO SEA COLOR ***. @$8""*** SWITCH B}TO LAND COLOR ***B @$L11* * * SETUP PLOTTING DEVICE OR SCREEN * * *V +@$@WGRAPHICS 31:COB}LOR 1XPOKE 559,0Y$`*** END LOOP ***j##@@K:kPOKE 559,34o)@tJ>:B},4Q@#+5AY@4GB2wJ~>:,0S A5HHSCREEN DUMP TO DISK ROUTINE B}METHOD TAKEN FROM MEGAFONT II+ MANUALiiFILES CAN ALSO BE LOADED BY THE ATARIARTIST AND MICROILLUSTRATOR PROGRAMS - USINB}G THE [CLEAR] KEY++@@ D:PICTURE.AP@-ARF:@,-ASF:@B},'AV'AW@06-?:C:hhhLV,<@,@ A5 D:FRACT.BASrrrrrrrrrrB}rrrr@