@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$) BFDEIH T U VTLTWAUG : ISSUE No 6 d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu }$ЎX J`8532 25.$-%.5"!3hAXa J `*} J`8532 25.$-%.5"!3hAXa J `$ЎX J`8532 25.$-%.5"!3hAXa J ` ,} J`8532 25.$-%.5"!3hAXa J ` '(  FINISDSHIGLOSIZSZHSZLCYCL$.} I-@")A6%- I104,104,104,170,76,86,228+@$/}%@'AYA0@ @[0@@u0@@6-F:A,$AV$0}%%6-F:A`,%F:Aa,$AV)-@%%) )-@@B%%A) $1},,@@ D:TITLE.PIC))6-F:%@,%F:%@,$AV$6-P:'AV,$6-&AV$,$2}A A @66-+&,%@P&6-P:'AV,66-&AV$T-A A -A@h?"6$3}-?:A6<@$@,-@?AY@4^ -@B@6@.%@Z2$@&$4}@@@^ -@dA@d6-@%.6-E:,2 6 %@$5}@d%@ -@6@B2@ @@X2@v2@%@$6}@6-E:,  F:Ad,"@cAp F:Ad,"@Au F:Ad,"@X$7}A F:Ad,"@!A %6-%@%"APA@ FFF:Ad,"AU)F:Ad,"@c)F:Ad$8},"@!A {%2@@@@9-@@= _2@qAd$9}AU{ AZ 0F:B7p,@B2@@@@V-@@%Z u%2@@$:}@@9-@@= _2@k6-u A- F:B2y,"@$;}AW.-F:B2y,"@*AdAU-%0"F:B2y,@" AW:w +"A`@24A$<}aAV?@e@@D:FB.COMt6-?:AUv,w%?$AdAU$% D:INDX.LDRD(A$=}dAU(%D:SPOTDIFF.BASI(AdAU(%D:TITLCARD.BAS D1:MENU.BASAU$% D:INDX.LDRD(A$[(?}* (@}****(A}*****(B}*****************(C}**(D} ***(E}(F} (G}  (H} (I}(J} * * (K}(*  (((  "((*  ((L}(( * ((( * *(*(M}(N}(O}(P}ꪾ(Q}ꪾ믮(R}믮믮ꪾ믮ꪾ(S}(T}(U}(V}(W}* "*"(X} *" *(Y}"  * * ( (Z}(* (  (   "([}        * ""   "(\}     "    "     "(]}*   * "     "     "(^}   "     ""(_}"""""""""""(`}""""(a}*" *"UUUUUUUU@ (b}@ <<@ ?<@?@(c}3?@<@<.>.>.8.M->-7.8.]>.,} !i"@88`8L8R˭̠ˈiͥiΠ͈8ȥ͍ͥ!΍"ii ,}B VB JD8E V`E:~W#[WUS)}  HH`i@ `8 ^Uc^_,}^]I^``Р`800L0j ө `0`0%@- ( (j F' D' ( (م٦,}0.0E; (+-< (5 e e (% 0`.+- i08e,}L%hJJJJL&d1[8J ( iԔIL& ) GN Q' 8~  )ȩE n%+8- n%dȢ/8 ,}i-`CPYRT.1984,MARSLETT٠*`eׅץeօ&&BL&Ԫ &&&Ր })Ԙ}),}PȄ``զԆՠքׄʈ0Ր)Cl>f8 i9`8ԕIؠ7`ە1Ii,}E0yʈ0niհdڥEԠ``&``I))8iE040 uʈi,}ԐԕեE*`80 ʈL&ʢ`<68?e (ԕڕڅ (cԊEEhh,}*08``LC'L C* *8i@ (ԕբ (8L)م؅٥ׅإօץՅքզJJJJ f)) f)ȥ,}ЄL;',lL* `80 ` (>.+- .,0"8` (Ȅ`Ԡ66666`:`L&0ȵ,}ߵ޵ݵܵ۰٘ eeߵe޵eݵeܵiۈٔۨ0L(uu٥uإuץu֥u,}Ո` 'Oc?'N?Jf s%JJJJ l%) l%0 s%0̀  .,} 0.`ʈ`` x*` x* b*` "* ' b* f'`i`ԝ,}````ԕ`, * ' *F &8ԅLC'i8ȅ &ԩ,}f f')?% ( f `' * * '+ @* * ' * -* ;* * `' * * (( ( f' * f' d,F , * ',}e?`CB  * |* f' * -* `'L%( @p8e@i 1&@4@ g@Y!3'@"wfP } (? ( 'բ +,} * * ',r 8* * -* ( "* ' b* f' * ' |*ե8 &f ( ' * -* f' f'$ b*L'wf?PE@,}i@g5`@04VD?8@0% ?CBH@>DIh8E?hyx? )D?@ (1V?wD3331??xS4,}H) ٪Lإ`ъъ``Û7-`6-EخȊ,} z zȩȩ E [ bМ Q'] 򅟅 ( Ģ (򄨱,}ɛ$0L Ģ ( T Ģ ( 5ɛȑ @膔7 Ģɛ ĢɛК ,} ܩ8IȢ z Щ $P) 8孨客 $ L` L`L^ ܩ Щ L` %,}0 A0Ԅ ĢLĢ 0$ LYU LY8eHeHL H H hhHH`,}hhLۡLѽʆLۡ 0 ҰşLۡ` ,}`@  LhhHHL `LLL (ųޢ T#iŰ DD Ģ,}`8` ( 裰% ᢥ0 裐 ($$ 8`$ (ȩ@҅ҥ򄬥 T M L~8,} zӤ򈦬ʽʈ򈱗  z池$PƬ0 LĢL,A[`8` ( %` ĢȢ,}` ("̩ Ģ Ģɛ " ĢL3嫤`毦򤪱%).Q h(ei,}8`Ū߱08§REŧDATINPUԷCOLO,LISENTEҺLEԎI̦FONEXԷGOTϷGO TϷGOSU·TRAиBYŸCONYCOCLOS,}CLҸDEYDI͸ENĸNEOPELOASAV:STATUCNOTCPOINXI\OVPOKPRINԸRAREARESTORŸRETUR RUθSTO,}POGEԴPUԷGRAPHICVPLOVPOSITIOθDOVDRAWTTSETCOLOܦLOCATRSOUNLPRINԸCSAVŸCLOAĺ*ERROR- STOPPED,}+,%5&6(xĜ#%&$' !"*) +8,<Dȧ?+:ԧ,+:,+:,,}Ч#+7,</01 2!3"4E"-".|"-ɻ,}#ޅEE| +9S,},#+;,Û΢|ijڢڢ@ACB=><GOTGOSUTSTETHE,}<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABINPADDLSTICPTRIS,}TRI8ee L08ueeeee褢 ƚƜ,}`8IȄ墅8夕奕墅褢`朱`  6ğ,}ȱȄ ~La HH`0 Щ LLL] -ꅋš Š` ܩ ЩLei``` ELq,} El `=Īٷw|ԶԶѷש巴!e l. gɨ aL6 Eƨ %󅕥 gL a,}" a Ư" L8 > c=Š) 죰 L樤ħ`hh` >L ڪ H # q Ԡ D',}թ@  Ԡ hH qhĥȑĥȑĦʊȑ` ͫՅԅ hhL^ ` 𵤨 >>< H,} & h  ` 0` q ˽L½    0 `LP  Lն` LP y,} gLh 0L[  0 ܩ Щ 0L ׫ԅՅ` ૥# ԅ ͫƳ ( >`(L,} Ȅ` z > ąŅ`őŐ  H h` zLzĦ``Ƶ,}`Ƣ౐``䉐䈐`)iiТLE`,}湩 0éL y7 oԩ 0 gՈ y,} [L` & %󅕥Lg AT LINE ૥H ׫ H ׫heԨh` . ૥ Hҩ ׫hHԝ ׫ H ׫hheԝ,}` ׫ԅUՅV ૥ԅT` ׫ԅ` ȍ JK )L ׫i)I ػLS: ȢL8)@e,}`H J*K+h LGHFH`L ׺L` ׺`H +h `@H ׺,}hH    ?}i}(i L fh`LP   ׺ 8倝,}偝   󥃅  LHΆ󢻆h ػ `C: КH hKJ LQ' L H,} hHH ڪ } hKhJ  Q'L )L + L1& $LM 3 NL1 ͫ ԝL՝M ͫ ԝN%б ,} ׫ԦL Q'   L1   N Fɀ 7LɈ [L4] LS,} + C` ͫ`IHEDBLVHH hh &L  `` +- `Y,}DAER ԅՅ֦󅗄`` > ˽ $ "   -򤲈ȱ`  ,} L &L8`$)ԩe * ((`)8@0+̪Յ)e)e * `'F *Ϡ * `,}' * * ' @* * 'F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%@)@0),}%ԅԢ, + * * '9 , @*. * '", * f'ԅԥ ɠ * ((`8`0?i ((,} * * * `' * ' * * * (( * `'l, * ' * f'Ƣ *#8@ji@)j,} '`P P LP* (( * `'l, * ' * f'Ƣ *#8@ji@)j,0 CTH_FastBasic 2.0 (C) 1991 By Tom Hunt FastBasic will become a welcome addition to0} the library of BASIC programmers who use Sparta Dos 3.2d. FastBasic, henceforth referred to as FB, is an extremely fas0}t BASIC interpreter. Nothing more, nothing less. It runs on XL/E machines. It provides 28,119 bytes of free memory for your b0}asic programs. This should remain constant regardless of how many handlers that you load into lower memory, before loading FB0}. Some of FB loads into $2500 and moves MEMLO up to cover itself. So there is plenty of space to load any special handlers yo0}u might want. NOTE: FB does not like the older RD.COM file from ICD. I suggest you use the PSI ramdisk handler. One of 0}the features of FB is a screen accelerator. The custom screen accelerator may not work correctly with some BASIC programs. In0} cases such as these, hold down the OPTION key when loading FB to deactivate the screen accelerator. Another feature of0} FB is a customized Fast Floating Point package, based upon source code by Charles Marslett. (Thanks Charles, for sharing thi0}s!). The FFP is more than sufficient for most programs. But there are a few programs that require a high degree of accuracy o0}n trigonomic functions in which a certain degree of inaccuracy will be noted. Fortunately, you probably won't run across thes0}e types of programs very often. You may re-enter FB from the 3.2d command line by typing RUN. Your basic program should0} remain intact, unless you used some function of 3.2d that clobbers the basic program area. The COPY command is an example of0} such a command. You may use DIR, TIME, DATE, etc. Included in this ARC is a simple benchmark program. It will test var0}ious functions of both Atari Basic and FB, and print the results. The following is an evaluation of FB written by John 0}McGowen. It may help explain any other questions you may have about FB.Dear Tom:RE: CTH Fast BASIC (vers 2)I found an o0}riginal copy of my programme which gives the position of the moon (azimuth, altitude) for every half hour in a month. This or0}iginal is not so accurate as my latest version, but runs under Atari basic. Running it under Atari Basic, TurboBasicXL, CTH a0}nd the BasicXL runtime system from the last Antic disk gives the following times: H:M:S 0} -- -- -- + Atari Basic 00:55:23 CTH Fast Basic 2 00:25:50 TurboBasicXL 00:10}4:57 *+ BasicXL Runtime 00:53:19-----------------*: BasicXL... (this was run using the AUTORUN.SYS from the last A0}ntic disk... the BasicXL runtime system, with the moon positioning programme as Autorun.BXL) As you can see, without the FAST0} command from BasicXL it does not provide much speed improvement over Atari Basic... I don't know whether this is due to the 0}trig functions, the looping or the GOSUB/GOTOs... but, in any case, CTHFB is better than the BasicXL runtime system for my mo0}on positioning programme.--------------------+: (The values for Atari basic and the BasicXL runtime system are approximat0}ions...I ran the calculations for the half hours in one day and scaled up to a month... otherwise it just takes too damn long0}!).-----------------------I have a Wheel of Fortune game (would never RUN it under Turbo or CTHFB, as it uses FOR/NEXT lo0}ops for timing) but it loads/runs under Atari/Turbo but CTH gives an error-147 when it runs (insufficient RAM for the graphic0} screen).I suspect the memory limitation may also affect some Basic slide show programmes that load two screens and use pag0}e flipping... two screens take up almost 16K.-----------------------I noticed when running my moon programme that while A0}tari and TurboBasic printed one thing, CTH did something else. My print (to screen) routine printed the days as the calculati0}ons were done with a PRINT X, command. Both Atari and Turbo printed something like: 1 2 3 4 0}5 6 7 ...etc.While CTH gave:1 2 3 45 6 7 ...etc.Is that1} due to the 40 column screen (rather than 38) or does CTH handle the tabs differently (are they, say, absolute positions on t1}he line instead of relative to the last print?)?-------------------As to memory, you are right, it would be terrible to h1}ave CTH handle tokenized BASIC in banks (as strings and arrays are not in the VVT, but in basic space, what to do if one part1} of the code refers to data, strings say, in another bank? Also, each GOTO/GOSUB would have to do a bank switch and then JSR.1}.. to get the right banks it would have to be precompiled since a GOTO 100 statement does not know which bank contains line 11}00... but your version must handle this to get the absolute addresses anyway... it may be possible, but very messy).As to h1}aving the basic interpreter itself in banks, that is what Turbo does (though its bank is RAM under OS rather than XE type ban1}ked RAM) and Turbo runs faster than CTH... I am wondering, is it possible to redo Turbo to use banked ram rather than ram und1}er OS and so make it Sparta 3.2d compatible? The addresses for JMP/JSRs would change and the bits poked into PORTB... of cour1 }se this would require configuring the RAMDISK or whatever, NOT to use this bank (but this can be done with the PSI ramdisk ha1 }ndler, or even the ICD handler, and can be done with MyDos, though I think there is a bug in MyDos if you try to enter a page1 } sequence with over 256K upgrades and don't use the defaults).---------------As you can see, at least for the moon progra1 }mme (which was GOSUB/GOTO/LOOP and TRIG intensive), CTHFB is about the average (geometric mean) of Atari/Turbo BASICs..I do1 }n't know of any source for the source code to TurboBasicXL... but if THAT were available, converting it to banked ram, rather1} than RAM under OS, would seem better...---------------Being without a HD, I will probably keep using TurboBasicXL (for s1}peed and greater memory) with MyDos and only use Sparta with CTHFB when I have something that needs Sparta and basic (I have 1}a few such... my converter for PS icons to D3 format is in basic and on a disk with Sparta, but it only takes 15 seconds to m1}ake the conversion under Atari basic, due to some ML code and putting the main subroutine at the front of the code).-------1}----------... I have not been able to get back to CTHFB with a RUN from Sparta3.2d on my system (minor problem).. but as an1} alternate basic it is much faster than Atari basic (about twice as fast for my moon positioning programme) though not so fas1}t as TurboBasicXL. Trying to use RUN from Sparta sometimes causes the basic to lock up (after using the RUN attempt, then run1}ning it from ramdisk, once attempting to edit a line from a programme I then loaded, a delete of a character caused a lockup;1} once attempting to ENTER a listed programme caused a lockup... I tried again without attempting the RUN command and had no t1}rouble with the delete or ENTER)... It doesn't seem to like ICD's original RD.COM file (but that won't even work with MAC/65!1}) so version 2.3 is necessary (or the PSI Ramdisk handler). (NOTE: The above problems should disappear if you use the PSI ram1}disk handler. -Tom).In short, except for returning with a RUN and the loss of memory, CTHFB version 2 is MUCH faster than A1}tari Basic (and the BasicXL runtime system.. at least without the FAST command.. however I believe that using no FAST command1} is supposed to slow BasicXL down to approximately atari speeds for timing with FOR/NEXT loops)... quite worthwhile if one ca1}nnot use TurboBasicXL.IF TurboBasicXL could be reconfigured to work with Sparta3.2d, it would be better, but for Sparta3.2d1} users, this version is great... I like it, but with my system, would seldom use it (but for disks with basic programmes and 1}sparta... probably will).---------------I guess that's all I have to say on CTHFB version 2... very nice Sparta compatibl1}e basic... quite fast... Nice job...---------------Till later. Sincerely, John1 }--------------------------------------For help/support for any productof CTH Enterprises, call- CTH BBS 1!} 419-368-4413 Conference #0 24 Hrs 7 Days 3/12/2400 baudrises, call- CTH BBS 0V  -) 8 PORTPRRK@SAVE"D3:>UTT>BENCHTST.BAS /@/0@5#}A6-B@F:, AU:(}Fastbasic is disabled!ASTOP//('} simple benchmark tester.(5$}:AS(0(LOOP TEST, 500 ITERATIONS: A2$(ATARI basic took $ BP<AU AF&(5%}CTH_FastBasic took & BPPF(&(GOSUB test...400 ITERATIONS2AS< BF AZ$(ATARI basic took 5&}$ BPd#AU B# An&(CTH_FastBasic took & BP;AS(1(SIN(X) TEST, 50 IT5'}ERATIONS; A00(ATARI basic took F:@ , jiffies.AU A22(CTH_FastBasic took F:@ 5(}, jiffies.<AS(2(COS(X) TEST, 100 ITERATIONS< A$(ATARI basic took $ BPAU5)} A&(CTH_FastBasic took & BP;AS(1(SQR(X) TEST, 30 ITERATIONS; A$(ATARI ba5*}sic took $ BPAU A"&(CTH_FastBasic took & BP';AS(1(ATN(X) TEST, 30 ITE5+}RATIONS; A ,$(ATARI basic took $ BP-AU A .&(CTH_FastBasic took & BP/85,}AS(.(2^X TEST, 30 ITERATIONS8 A00$(ATARI basic took $ BP1AU A02&(CTH_FastB5-}asic took & BP3:AS(0(X/.2 TEST, 200 ITERATIONS: A14$(ATARI basic took $ BP5A5.}U A16&(CTH_FastBasic took & BP&? "500 interations" B-@A 5/}$(-@A! B% ($X5 B!-@@P*6-G:,. 2(5$5 B!-@50}A*6-E:,. 2(5$ 5 B!-@@0*6-M:,. 2(5$45 B!-@@0*6-D:,. 51}2(5$>: B!-@@0/6-@#3 7(:$?: B!-@A/6-'? 3 7(:$52}'&'*@'@ *$:2/(F:@,$AV%F:@ , jiffies.2$ N$D8:TEST(:$4v12INDEXRECORDNAMEBUFANSBLANKLSTCOL1COL2COL3COL4NAME1NAME2NAME3NAME4COLSHEADERDIRFILEDATFILELG94}TMAINMENCAASCASCIFFGGGGWNSTARWTWWTWWTWCOLCATADPPTDINDECHOICSPACE95} 96} !97}"#$%&'()*+,-./0198}23456789********************* **** 99}Index Creator **** **** December 88 **** pk ********************* GG;9:}Bu,;@,;@@,;@p,;@,;@p, hh;@ ,;@@,;@@,;@@,;@@,;9;}@@,;@ ,;@ ,;@ , <<;@p,;@@,;@,;@,;A,6-6-AP9<}467@,. %67Bu,. 467@,.467@,. %67@p,. 467@,.467@,.9=} %67@p,. 467@,.# Ap(T +A 1AAHC-@@T( Index 9>}format-$2A +/A@$@%@AA 7($-+@@&B:,,'@((<$-@9?}@$( A$Fi +A 1AAHCAR@U-@i(|9@} Edit Screen |H)-@@)(K$ZAdAU[ F:Ad,"AU@\Ad9A}AU$ab****cdB:, @$f]-@B:,"6-@:7<,,]+"@2)9B}"@F)"@@)"@E,* B:,Ai'!@d* @'6-%@2n67<,.>:, Ao,"B:,&@9C}"6-%@, Ap5'@:7%@<%@,,@256-%@q/6-@:7<,,/6-@:7%@<%@9D},,ra@2S+!@2* @H,)+!@* @,)+!@W* @e,a6-%@s   $~**9E}**** ** 6- @$ 6-(6-P:'@,("A 6-&9F}-@ 6- 6-%C#6-+&@,$@p%@C6-+&@,$@p%@//7<%&@9G},/7<%&@,Ap6.7<%@i,##67<%@i,.7<%@i,67<%@i,. 6-&!9H}AB  A4$**** @p?-@@;( Enter Item 9I}Number for Editing...?##6-+&@,$@p%@B-@@(/-@@B(7<%&@9J},D-@@(/-@@D(7%<%&@,D-@@(/-@@D(7%9K}<%&@,D-@@(/-@@D(7%<%&@,7-@@"3(Delete this entry.9L}...Y/N74Y)4yAP_-@@"7(Type changes and press RETURNIAR[-@9M}_ A,67<%&@,.,"A-@ A.67%<%&@,9N}.."A-@ A.67%<%&@,.."A-@9O} A67%<%&@,.;-@@"7(Accept this entry........Y/N;4Y)4y 9P} @p A "67,. A`67,.7%@p,6-&@ **9Q}** @P-@''AAA%A5$( ((Enter .... ($ A9R}6. AE$( ((Enter .... ($ A6. AE$( ((Enter .... ($ 9S} A6. AE $( ((Enter .... ($ A6. $6-$@p%@) 67,.+9T}!@67%,..!@67%,.0!@67%,.367%@q,. 56-%@88((9U}More data.....Y/N "84Y)4yA= ****z +A 1AAH9V}CAR@U-@@z( Sorting Data - Please Wait...... A0   ****9W}  b +A 1AAHCAR@U-@@b(Printing 2-@@ 9X}2(Make sure printer is on! 8-@@!.(Press any key.......8 @ +A 1A9Y}AHCAR@U-@@u(Printing - Please Wait.....A@ :@.@@9Z}P::6- BB @>:@',P>:,>:@',U>:@, DD @>:@',W>9[}:@,>:@',W>:, ? @$-@@r; @>:@E,?   @ 4 @9\} @& @46-%@ 6-@:7@<@,, # 6-6-@#-@ 6-@:7<,, 9]}( 6- @(6-%@ 5 @+ @ 5 A0E 4 A* @ 9^} 4 A0E )!@) @   @7<%@i, 6-%@p6-%@ 9_}!@W A2   CC @>:@',P>:@,>:@',U>:,  @>:@, A9`}@  %6-% @>:@, DD @>:@',W>:@,>:@',W>:, 9a}? @$-@@r; @>:@E,?   @ 4 @ @& @46-%@9b} $****O +A @1ACAR@O6-@S9c} @!-@@7(No Data to Save!!K-@AO S  4 AB +A @9d}1ACAR@U-@@y(Saving Data - Please Wait......6-@-@'@9e}(+@+@@M-@@#-( entries to save?-@'@#M(...save9f}d* @ @* @D @ @* @7 @D @7 @9g} @* @7 @7 @ @* @7 @-@ @9q}`***********` TWAUG ` ISSUE ` No 6 `***********` Side A `***********b%DOS SYSb+AUTORUN SYSb-MENU BASb>>TITLE PICb`FB COMbCFB DOCb"BENCHTSTBASbe3INDX BASb1INDX TXTbINDXBUG TXTbSPOTDIFFBASb>SPOTDIFFPIXb(SPOTDIFFTXTb+TITLCARDBASbTITLCARDDOCb|INDX LDR7<%@i,5-@$@#( 0-@$@#5(6-%@p @  * @9r} @* @h9-@@9(Enter filename for this data...m,-@@,(Eight letter9s}s max!rI-@@#6.D1:2B:,!@I6.7@<@,w067B:,%@,..DAT067B:,%@,9t}.|$****p +A 1AAHCAR@U-@@9u}p(Are you sure... (Y/N)4Y)4y ****+@%@7A@9v}$@%@YA @ $@%@{A@$@%@A@$@%@9w}6-@6-@M%6-F:A`,%AV$F:Aa,9%@@fM%@(@1$-+@ &B:,,'@9x}@1(@--@@-(@ main menu--@@-(@ ,-@9y}@ ,(@ Ԡ,-@@,(@ Ԡ--@@-(@ Ԡ,9z}-@@,(@ Š3-@@3(@ TO change1-@@ 1(@9{} TO begin1-@@!1(@ TO quit F:B2y,"@APP F:B2y,"@AR9|}"F:B2y,"@" AS F:B2y,"@AE APPP//AAA A0A@9}}b"@!-@@9(@ K-@@b(@ Šb"@!-@9~}@ 8(@ J-@@b(@ a"@!-@@8(@ 9}J-@@ a(@ Ԡb"@!-@@9(@ K-@@b(9}@ Ԡb"@!-@@8(@ J-@@b(@ Ԡ/ 69}-6-%@#"@/6-@%%2@P@@-@@  %%29}$mn****opm +A 1AAHCAR@9}U-@@m(Data file directoryz'6-@6-@'6-@1@1@@9}D:*.*4@47@<@,4FREEA`p&&7@<@,0DATA` [6.7@<@,9}367@ <@ ,..[67@<@,.7@<@,67B:,%@,.1 @-%@'( 9}1 A`P -( (6-%@6-%@ A` @c"@!-@@"9}A(No Data Files on this disk!U-@AY c ApB-@@">(Enter selection (1-&@9}) BS @)!!(>:AS,3-@"I(7@<@8,S Aa0"@&6.7@<@9},0 Aa BB6.7+&@,$@%@<+&@,$@%@,3 6.D1:-@B:,37<,4 9}Aa067B:,%@,.7<, dz +A @1ACAR@U-@@9}z( Loading Data - Please Wait......e-@'@(g6-@i+@+@@9}l*@@*@mD@@*@7@D@n*@9}@*@oD@@*@7@D@rN-@@#-( en9}tries to load?-@'@#N( ...loadeds-@x*@#67<%@i,.*6.}6-%@p9}5-@$@#( 0-@$@#5( @ UV****WX+@9}%@7A@$@%@YA @ $@%@{A@$@%@A@9}$@%@6-@6-@]1-@1(@INDEX CREATORb3-@@3(@9}g,-@@,(@ Ġl3-@@3(@ TO changeq1-@9}@ 1(@ TO beginv1-@@!1(@ TO quit{ F:B2y,"@Ap5 9}F:B2y,"@Ar"F:B2y,"@" As F:B2y,"@AE Ap5 AA`9}h"@!-@@?(@Q-@@h(@ Ġh"@!-9}@@8(@ J-@@h(@Šנ/ 6-6-%@#"@/69}-@%%2@P@@-@@ %%2$=>9}****?@ @@C$( (!(Main Index Title...$(E3,($Enter title (20 characters maximum.)/(9}3Jj-@@9(Enter number of columns (1-4) =S @)!@`(>:AS,j AO @@R9}((Column Headings...TQ()(The first column can be sortedQ(#alphabetically. Place data which isU?+(#to be prin9}ted in alphabetical order<( in column 1.?(Y4-@4(Enter heading for column No.^''AAA9}Ac h @@k5( (2($䠷5(m6-@6(Enter width of Colu9}mn No. r''AAAAw ( |Y%%%!@p*(70 columns max!7(>:AS,K-@9}AO Y A@C6-+@H&B:,,'@/6.7@<,C67B:,%@,. 6-%6-%6-% 9}6.6.67%@,.67%@,.67%@,.   $  $  $ 9} $  $  $  $  $ D:INDEX.BAS67%@,.   $  $  $ 8A INDEX CREATOR By P.Kirton While searching through mycollection of disks for a particularprogram, I=} realised that life wouldbe much simpler if the programcollection was indexed. A few hoursprogramming gave me a custom-bui=}ltdisk index in alphabetical orderwhich removed the problem of findingfiles. However, the program, as itwas, only applied=} to disks, and Ithought that a generally applicableindexing program would find otheruses, such as in collections ofrecord=}s, compact disks, books, 35mmslides, etc. By re-working theoriginal program, I produced theINDEX CREATOR, which produces p=}rintedlists of collected items, sorted intoalphabetical order, and withcustomised headings for each page. Each list =}that the programproduces is stored as a data filewith ".DAT" as the extender. Isuggest that for the most efficientuse of =}INDEX CREATOR, the program iscopied to a freshly formatted diskcontaining DOS files. The is thenplenty of room for lists, =}and theyare all in the one place for futureamendment. The program, INDEXCREATOR, is on the INSIDE INFO diskunder the file=}name INDX. On this diskyou will find another file calledAUTOBOOT. If AUTOBOOT is also copiedto your disk, and renamedAUTO=}RUN.SYS, then INDX will be bootedon startup. Copy these files usingoption O from DOS. Rename usingoption E. On booti=}ng INDEX CREATOR, a menuof two options is displayed. PressSELECT to cycle between choices, andSTART to make a selection. P=}ressOPTION to quit the program at athispoint. The choices are Create NewIndex and Load File. If Load File is selecte=}d thenthe disk will be searched for .DATfiles, which will be displayed on thescreen in a numbered table. Enter thenumber =}of the file to load and thatlist will be retrieved from the disk.After data has been retrieved, theMain Menu (see later) i=}s displayedready for further work on the chosenlist. On selecting Create New Index,you will be prompted for an index=}name and the number of columns in theprinted format. For example, in abook list, you may want the booktitle, author, publ=}isher andpublication date, i.e., 4 columns.From 1 to 4 columns are allowed. Next you are prompted forheadings for ea=}ch of the columns,e.g., TITLE, AUTHOR, etc., and thewidth of each column on the printedpage. Because the Atari is a 40col=}umn computer (38 without alteringthe margins), it is advisable to keepthe width of any one column no morethan 38 character=}s, or problems withscreen input can occur when editing.The first column of data can besorted into alphabetical order, som=}ake sure the data which you want inalphabetical order is in that column.After setting up the appearance ofyour printed lis=}t, the Main Menu of 5options will be displayed. These options are Data entry,Edit, Sort, Print and Save data.SELECT =}the desired option as before,then press START to activate it.Press OPTION to quit if required.Each facility is described b=}rieflybelow. On activating Data Entry, aprompt will be displayed for each ofthe column headings previouslychosen. T=}ype in the details in uppercase for that column and pressRETURN. There will be a brief delaywhile the entry is re-formatte=}d intoupper and lower case before theprompt for the next column appears.The lower case routine will causelower case for a=}ll but the firstletter of each word, and willpreserve capitals which ollowbrackets, full stops, dashes orspaces. After a=}ll columns have beenentered for one index item, a Yes/Noquery for more data will appear.Entering N will result in a return=} tothe Main Menu, entering Y will allowmore data entry. When an index is printed, eachitem is numbered down the left=} sideof the listing. These numbers areused when editing the list. Byselecting Edit from the Main Menu,you will be asked f=}or the item numberto be edited. Editing will allowchanging of any or all of the columnsfor that item, or deletion of that=}item from the list. When alteringdata, the cursor is positioned at thestart of the line being edited;simply type in the ne=}w entry anderase any remaining characters withthe space bar then press RETURN. Ifthat column data does not require achang=}e, just press RETURN. When allchanges are made, the new data isdisplayed for approval. Press Y foracceptance to return to =}the MainMenu, or N if more changes to thatitem are necessary. Only one line ofyour list can be edited each timeEdit is se=}lected from the Main Menu.To delete an item, simply answer Y tothe "Delete this item?" prompt afterselecting Edit. S=}elect Sort to sort your datainto alphabetical order. The sortroutine will take from a few secondsfor a short list to about=} a minuteand a half for the maximum 250 items.After the data is sorted, the MainMenu will be displayed. Select Print=} to print out yourlist. You will be reminded to turn onthe printer before proceeding. Theprintout is in Elite style, 12ch=}aracters per inch or 96 charactersper line. This mode allows neatmargins on the paper and maximisesthe printable data on e=}ach line. Eachpage contains a header of the indextitle and column headings. After thelist is printed, the Main Menu isdis=}played. Select Save to save the list ina data file on your program disk. Ifthis is a new list, you will beprompted f=}or a filename. Use up toeight characters for the filename,and select a title which describesthe contents of the list, e.g.=},LIBRARY. The extender .DAT is addedautomatically and the file is saved.The Main Menu is displayed after thisoperation.=} The program is designed to printlistings on a printer. The 40 columnlimit prohibits effective use of thescreen as a d=}isplay device in thisapplication. I have found a hard copylist to be a very useful aid infinding files and so I have nota=}ttempted to modify the program forscreen output. Lines 3017, 3020,3060, 3070, 3200 and 3205 containEpson printer commands=}. These mayrequire modification for non-Epsontype printers.020,3060, 3070, 3200 and 3205 containEpson printer commands<?EEK! A BUGIn issue #39 of Inside Info, adatabase program of mine waspublished, called INDX.BAS. Ifanyone has used thisA} program, theywill have found that the programwon't print. Not much good for aprogram whose main function is toprint outA} database entries!!The problem lies in line 3028. Thecorrection is as follows:3028 A=ASC(INDEX$(1,1))Because, as I havA}e recently foundout, my printer is only partiallyEpson compatible, another problemoccurs when the program attempts totellA} the printer to print in Elitemode. If your printer is remainingin Pica, with messy extra line feedseverywhere, you will A}need to changetwo other lines. These are:3017 PRINT#1,CHR$(27);"M";CHR$(27);"U";CHR$(1)3060 PRINT#1,CHR$(27);"M";CHR$A}(27);"U";CHR$(0)I apologise if I caused anyone anyun-necessary frustration. Peter KirtonHR$(27);"M";CHR$@m+,  PNFPGASOMPDMCNADTPZCOB0CE} B("  A@@@d0;@,E}6.hhhLV0@e +@$%%6-F:A`,%AV$F:Aa,.-%A "F:,"@y.@xE}F:,"@@ %A @eKA'A 9AKAE} 00@@D1:SPOTDIFF.PIXwARF:@,-ASF:@,?AVQAE}W@0cAP@w6-?:C:,<@,$-@@$)@"@A "@E}A""@A $"@A& X @ @e@ F:B2y,E}@A +I%A@$@%@7A IAR@%-@@%E}( The Answers9-@@9(1. String missing from picture "-@@"(on left.5-@@E}5(2. Picture on right blank.9-@@9(3. Curtain in picture changed.$5-@@ 5(4. ExtraE} log in fireplace..8-@@8(5. Brick in fireplace changed3(-@@((colour (Black)87-@E}@7(6. Doily missing from table.B8-@@8(7. Angled book in bookcase isG&-@@&(E} now upright.L:-@@:( 8. Buttons missing from arms ofQ.-@@.(loungechair on left.9-@E}@"9(Press to load picture....;-@@#;( Press to return to menu..F:B2y,"E}@%$F:B2y,"@$%D1:MENU A D:SPOTDIFF.BAShhhLVABDE  E} D     ww67A,.d!  XY XE}!  FD)  XY XDX   I}  (  I} ( ( *  *   I}UUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUPLLLGs31S3333S333333I}Gs3333333S333333L\L\tws35333531s33UUstws333333531s33UUsL\L\@LLI}\@LtwsUUUs1333133@@stwsUUUs1333133@@sLLUUUUUTAPLLLUUUUUTALwwss@3ETswwss@I}3DsLLEUUUUDETLLLEUUUUDDLwwssDG3ETswwssDG3DsLUUPLDDETLLUUPLDDI}DLwwsUUPsDG3ETswwsUUPsDG3DsLUUPLDUDETLLUUPLDUDDLwwsTPsDG3ETswwsTPsDG3DsI}LTPLDPDETLLTPLDPDDLUWsTPsDPG3ETsUWsTPsDPG3DsLUUPLDTDETLLUUPLDTDDLUWsI}UUPsDTG3ETsUWsUUPsDTG3DsLUUPLDUDETLLUUPLDUDDLGsUUPsDT@G3ETsGsUUPsDTG3Ds`LUQPLDI}T@DAPL`LUQPLDTDALWsUQPsDDG3@@sWsUQPsDDG3@@s`LUUPLDAD@L`LUUPLDAD@LWsUUPsDAGI}3UUsWsUUPsDAG3UUs`LUUPLDAUD`LUUPLDAUDWssDD@G3333WssDDG3333eLLD@DI}eLLDDWssDP@G3333WssDPG3333eLLD@DeLLDtDWssDPG3333WsI}sDPG3333eLLDDeLLDDWsUUUsDtG3333WsUUUsDtG3333eLD]DeLDI}]DWs33333DwtG3333Ws33333DwtG3333UWLD]]DUWLD]]Ds33333DwuG3333s33333DwuGI}3333UWLD]]DUWLD]]Ds33333DwuG3333s33333DwuG3333LD]GDLD]GDI}s33333DuwEUG3333s33333DuwEUG3333LE@DLE@Ds33333Euw@G3333s33333Euw@G3333LI}EDLED7s33333EuwPG33337s33333EuwPG3333LEDLEDs33333EI}wwPG3333s33333EwwPG3333LEDLEDs33333EwwPG3333s33333EwwPG3333RLEUUUUDI}LEUUUUDSs33533@3333s33533@3333RLUUUUUTLLUUUUUTLCs335333333331w33I}s335333333331w33BLMDLMDCs33s3333333Qw33s33s3333333Qw33LL]ULI}L]Us33s3333331QU33s33s3333331QU33UWLLUWLUWLLUWLs33s3333337UWs3s33s33J}33337UWs3UWLLUWUWLLUWs33s333333UW3s33s333333UW3LLUULUWLLUULJ}UWs33s3s33UW3s33s3s33UW3LLLUWLLLUWs33s3s31UW3s33s3s31UW3J}LUUUUUUUUUUUUTLUUUUUUUUUUUUTTs36Ts36LUUUUUUUUUUUUTLUUUUUUUUUUUUTTs3J}3wwww}3Ts33wwww}3L]}L]}Ts33wwww}3Ts33wwww}3ULUUUJ}UUUUUUUUULUUUUUUUUUUUT{3wwww3T{3wwww3uuT{swwwwJ}3T{swwww3nLUUUUUUUUUUUnLUUUUUUUUUUUUswu{}3Uswu{}3nLn}J}nLn}YysUUUUUU[}3YysUUUUUU[}3]nUUUU]nUUUUٹS۹3ٹJ}S۹3V^V^{S۹UUUUU3{S۹UUUUU3nUUUUnUUJ}UU{{ݔDDDDE}3{{U]DDDDE}3nݑ}nU]}W{ݔDDDDE}3W{U]DDDDEJ }}3nUUUUPnUUUUPW{DDDDEe5W{DDDDEe5Uٙ[Uٙ[J }]WDDDDEe]WDDDDEeUU[UU[]{TDDDDEu]{TDDEDEuJ }ٻQٻ][[{DDDDE]][[{DD_DE]{{}{{][{J }EDDTEn^][{EETEn^eQuwyWuwy_y[{tE_Ef^_y[{E_Ef^eUJ }w{{Uw{{]{[tEDEnf]{[EDEnf_UQ{{P_UQ{{P]y{]U՟nnJ}]y{]U՟nnnuUWWQ{{{nuUWWQ{{{_{UUUE_{UUUEnQUUUUQ{nJ}QUUUUQ{]TDE]TDEmQUPmQUP][TUUUUE][TJ}UUUUEeQ_eQ_]{[TEUUUE]{[TEUUUEn^QU_n^QJ}U_]{[yTDjEe]{[yTDjEeUnQjUnQjwWUUUUUUUUwWUUUUUUUUJ}Un}PUn}P[[mm[J}UUUUUUUU[UUUUUUUUnn}UUUUUUUU_nn}UUUUUUUU_wWUUUUUUUUwWUUUUUUUUnmjJ}PnmjP{j{jnmjnmj{{jJ}{{jnn}j{nn}j{{Wj{WjnnnjUUJ}nnnjUU{{wwZn{{wwZnnn֪]UUժnn֪]UUժ[{juwj[J}{juwjn]j{nww]j{[{uwj[{uwjnj]UUjnjJ}]UUj[yww_jP[yww_jPV}UUV}UUYjWVYjWVJ}iUUiUUiiiiJ}iiiiiiJ}iiiiUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUPJ}U@@@J}U@@U@UA@UA@U@UUU@UU@UTA@U@UA@U@UAAAAAAA@@AAA@AAU@AJ}@@A@UAAAAAU@U@AAA@AA@A@@AAAAA@UA@@@UA@U@AA@UUUA@UAA@@UUJ}U@@J }UUA@UAUU@PUU@UUTA@UA@UAA@ADPTAAA@AAA@A@AAU@AA@UAUPAAA@AAA@J!}A@AA@AA@A@U@A@U@AAA@UA@AA@UUA@U@Q@UA@@UA@UJ"}@@UA@J#}UUUA@U@UA@A@TAAUAAU@@AAA@AA@@J$}UAA@AA@U@UAA@@UJ%}@U@UPUP@PPPPPPPPTP@U@PP@U@PPPPPPPUPUPJ&}PPPPQPPPPPPPU@PPUPPPP@UTUPP@PPPPPQPPPPPPPPPP@PUP@PPPPPU@J'}P@PU@ (PPPPPQPPPPPPPPPP@PUP@PPPPPU@H;SPOT THE DIFFERENCE by P.KirtonRun the program "SPOTDIFF.BAS" andyou will be given a pair of pictures. Eight changes havN)}e been made in thepicture on the right. Find thechanges, then press the OPTION buttonfor the answers.From the answer scN*}reen, press STARTto see the pictures again, or SELECTto return to the Inside Info Menu.or the answers.From the answer scLZpq}>>YRMAABROCDTWF1F2SCCCCCPESSCALFILKECCOLUMDISRAINBOFLASRANDOINVISIBLBLINELINR,} @R-}R.} !"#$%F (}FINSTRUCTIONS ADDED BY A. PIGNATO SAVE "D:TITLCARD.BASR/}o;@,1( INSTRUCTIONS [Y/N]5oŠĠ-Š-٠Ю 4Y R0}APy A :(>:A%, ǠΠ=(_( PLEASE STAND BY.k6-APy-R1}@w'AV@9AW@3E(ROW Y-AYa1o6-%@d{"@dR2}6-@hX!67%@<%@,.>:,% +4/ :@G(>:A%,U6-%@X$2(@ DATAR3} ,7@<@,c(@%@ DATA 7@<A`,q6-%@u @(>:A%,6-%R4}@$ ;@,;@, Ad +@#x #AP A@0 "-&(@0R5} A0$$$"A"---------------------------R,0,0,S,0,1[[P,2,7,2,13,4,16,6,18,8,19,25,19,25,13,F,19,13,R6}P,6,9,F,6,11,F,7,12,F,8,13,F,13,13,13,7XX8,7,7,8,6,9,P,19,13,19,7,25,7,25,1,F,8,1,F,6,2,F,4,4,F,2,7,2,13,P,13,7,8,7,7,8,6R7},9$$"B"---------------------------R,0,22,S,1,7TTP,2,1,2,13,4,16,6,18,8,19,10,19,12,17,13,15,15,17,17,19,21,19,2R8}3,17,25,15,25,1``P,6,7,F,6,11,F,8,13,F,10,11,10,7,6,7,P,15,7,F,15,11,F,18,13,F,20,11,20,7,16,7,P,25,1,F,2,1$$"C"-----R9}----------------------R,0,44,S,2,11YYP,2,7,2,13,4,16,6,18,8,19,8,13,F,6,11,F,6,9,8,7,19,7,21,9,P,19,19,21,19,23,16,R:}25,13\\P,21,9,F,21,11,F,19,13,19,19,P,25,13,25,7,F,23,4,F,21,2,F,19,1,F,8,1,F,6,2,F,4,4,F,2,7$$"D"-------------------R;}--------R,0,66,S,3,13iiP,2,1,2,13,4,16,6,18,8,19,17,19,21,19,23,17,25,15,25,1,P,6,7,F,6,11,F,8,13,F,18,13,F,20,11,2R<}0,7,6,7P,25,1,F,2,1$$"E"---------------------------R,0,88,S,0,15KKP,2,1,2,19,8,19,8,7,11,7,11,15,16,15,16R=},7,19,7,19,19,25,19,25,1,F,2,1$$"F"---------------------------R,0,110,S,1,18@@P,2,1,2,19,8,19,8,7,11,7,11,15,16R>},15,16,7,25,7,25,1,F,2,1,$$"G"---------------------------R,0,132,S,2,23YYP,2,7,2,13,4,16,6,18,8,19,8,13,F,6,11,R?}F,6,9,8,7,19,7,21,9,P,19,19,21,19,23,16,25,13>>P,18,19,14,19,14,11,F,18,11,F,18,13,F,19,13,F,21,11,21,9??P,25,13,25,7R@},F,23,4,F,21,2,F,19,1,F,8,1,F,6,2,F,4,4,F,2,7$$"H"---------------------------R,25,0,S,3,28``P,2,13,2,19,25,19,2RA}5,13,F,16,13,P,2,7,11,7,F,11,13,F,2,13,P,16,13,16,7,25,7,25,1,F,2,1,2,7$$"I"---------------------------R,25,28,S,0,RB}31P,2,1,2,7,25,7,25,1,F,2,1$$"J"---------------------------R,25,44,S,1,38SSP,2,13,2,19,20,19,21,18,23,16,RC}25,13,25,7,P,2,13,F,18,13,F,20,12,F,21,9,19,7,F&&19,1,F,20,1,F,22,2,F,23,4,F,25,7$$"K"---------------------------RD}R,25,66,S,2,42ggP,2,1,2,7,11,7,P,19,19,13,14,8,19,2,19,2,13,F,8,13,F,11,7,P,19,19,25,19,25,13,F,19,13,F,16,7,25,7RE}25,1,F,2,1$$"L"---------------------------R,25,88,S,3,47++P,2,1,2,7,19,7,19,19,25,19,25,1,F,2,1$$"M"-------RF}--------------------R,25,110,S,0,57mmP,2,1,2,7,5,10,2,13,2,19,25,19,25,13,F,10,13,13,10,F,10,7,25,7,25,1,F,2,1,2,7,RG}6,10,F,4,11,F,3,12,F,2,13 $$"N"---------------------------R,25,132,S,1,63[[P,2,1,2,7,8,13,2,13,2,19,25,19,25,13,RH}F,19,13,F,13,7,25,7,F,25,1,F,2,1,2,7,9,13,F,2,13$$"O"---------------------------R,50,0,S,2,76mmP,2,7,2,13,4,16,RI}6,18,8,19,19,19,21,18,23,16,25,13,P,8,7,6,9,F,6,11,F,8,13,F,19,13,F,21,11,21,9,19,7,8,7??P,25,13,25,7,F,23,4,F,21,2,F,19,RJ}1,F,8,1,F,6,2,F,4,4,F,2,7 $$"P"---------------------------"R,50,22,S,3,86$__P,2,1,2,13,4,16,6,18,8,19,13,19,15,18,RK}17,16,19,13,P,6,9,F,6,11,F,7,12,F,8,13,F,13,13,13,7&..8,7,7,8,6,9,P,19,13,19,7,25,7,25,1,F,2,1*$$"Q"-------------------RL}--------,R,50,44,S,0,96.ggP,2,7,2,13,4,16,6,18,8,19,19,19,21,18,23,16,P,8,7,6,9,F,6,11,F,8,13,F,19,13,F,21,11,21,9,19RM},7,8,70UUP,23,16,27,19,29,16,F,25,13,F,25,7,F,23,4,F,21,2,F,19,1,F,8,1,F,6,2,F,4,4,F,2,74$$"R"-------------------------RN}--6R,50,66,S,1,1038IIP,2,1,2,13,4,16,6,18,8,19,10,19,12,17,13,15,15,17,17,19,25,19,25,13:,,P,6,7,F,6,11,F,8,13,F,1RO}0,11,F,10,7,6,7<99P,25,13,F,22,13,F,19,12,F,18,9,18,7,25,7,25,1,F,2,1>$$"S"---------------------------@R,50,88,S,2RP},115BPPP,2,7,2,13,4,16,6,18,8,19,8,13,F,6,11,6,9,8,7,10,9,10,13,12,16,14,18,16,19DMM19,19,21,18,23,16,25,13,25,7,P,17,7RQ},19,9,F,19,11,F,17,13,F,15,11,F,15,9FiiP,25,13,F,25,7,F,23,4,F,21,2,F,19,1,F,17,1,17,7,P,15,9,F,14,7,F,12,4,F,10,2,F,8,1,FRR},6,2,F,4,4,F,2,7H%%"T"----------------------------JR,50,110,S,3,128L55P,2,1,2,19,8,19,8,13,25,13,25,7,F,8,7,8,1,F,RS}2,1R$$"U"---------------------------TR,50,132,S,0,146V..P,2,13,2,19,19,19,21,18,23,16,25,13,25,7XSSP,2,19,2,13,RT}19,13,F,21,11,21,9,19,7,2,7,2,1,P,25,7,F,23,4,F,21,2,F,19,1,F,2,1ZP,20,13,F,2,13\$$"V"---------------------------^RU}R,35,25,S,0,153`OOP,2,1,2,7,14,7,16,9,16,11,14,13,2,13,2,19,17,19,26,11,F,25,9,F,17,1,F,2,1b##P,16,9,F,16,11,F,14,13,RV}F,2,13f$$"W"---------------------------hR,35,47,S,1,172jNNP,2,1,2,7,19,7,16,10,19,13,2,13,2,19,25,19,25,13,F,22,10RW},25,7,25,1,F,2,1l##P,16,10,F,19,7,P,2,13,F,19,13p$$"X"---------------------------rR,35,69,S,2,191tggP,2,1,2,7,9RX},10,2,13,2,19,8,19,13,15,19,19,25,19,25,13,F,18,10,25,7,25,1,F,18,1,F,13,5,F,8,1,F,2,1vP,10,10,F,2,13z$$"Y"----------RY}-----------------|R,35,91,S,3,205~TTP,2,1,2,7,9,10,2,13,2,19,8,19,13,15,16,13,25,13,25,7,F,16,7,F,13,5,F,8,1,F,2,1RZ}P,10,10,F,2,13$$"Z"---------------------------R,35,113,S,0,255DDP,2,1,2,19,8,19,19,10,19,19,25,19,25,1,F,19,R[}1,F,8,10,8,1,F,2,1R #A@+-@@2"'67,.>:,+ $dd104,104,104,72,162,57,160,0,173,R\}0,210,101,20,141,22,208,141,10,212,136,208,242,202,208,237,10456,233,1,208,228,96_+@#_;A`,;@R]},;A`,;AR,;@,;@,9@,67@<@,.D567A`<A`,.DD67@,.R^}]67@<@,. v67AR<AR,. 67@,.6-@y6-@96-@@6-A'6-AHR_}36-?6-K6-@W6-@c6-@o6-@{6-@@e@@R`}@K:WAA 'A3AE@wWAdAU-6-P:%?PRa},%6-P:%?P,-1?6-F:Ad,!6-R:,?@)AUA  )6-%@!@)6Rb}-@/ ,!-@@% / A P AUA! " 6-@$!AY6Rc}-AX& 6-@(!@6-@*, ,"T:,"@&,,4 A S6-Rd}%+"@)"@)"@,&+"@ )"@)"@,6-%+"@)"@ )"@,&+"@)"@)Re}"@,1> A PH.)@.!@d* @A%R! ,!"A%A \A"@2Rf}76-%+$@",$+ A`&$@",A A 0f9"A&/6-&+$@",$+$@",9 A 0p%"AU6Rg}-A % A&0z+"@B!6-%+ AY,+ A 0+"@C!6-&+!,+ A 0%"@a6-Rh}%+ ,% A 0+"@E!6-&+!,+ A 03"@)6-%@$+ AU,3 A 03"@Ri})6-&@$+!@,3 A 05"A$+6-%@$+ &@,5 A 03"@)6-&@$+!@Rj},3 A 0O"@,'/AY&7/AY&&?/&E/O A 0@A#`r +@Rk}9AR@S(>:A%,$WHICH PEN WOULD YOU LIKE TO CHANGE ?V(hAW@r((0-3):)@&Rl} @H)!@Q0 A': A";AR#6-&@I/ ;6-@S A%0@(>:A%,Rm}# ̠ӠԠŠ͠ϠC(O( COLORS - )!@# A'- A# ;AV@'Rn}AW@$7( BRIGHTNESS; - )!@# A'- A# $ T(>:A%,+@9%(A4ARo} @ALAT0. I6-F:A,!6-F:A ,06-F:A,?6-F:A,I A 08 @Rp}A$B g A#p+@9E(>:A%,ENTER A COLUMN NUMBER (0-159)Ig )!AYA#pL D(((ERq}NTER A ROW NUMBER (0-),D )!A#pV NAR@"(>:A%,(6-.6-:+@9%D BRr}N A 0` W"@3-%@'$%?P9,I/%@$M W A 0j *"@ 6-O:&@Rs},* A 0t @A$`~ p +@9AR@Q(>:A%," WHICH PEN WOULD YOU LIKE TO USE ?T(fARt}W@p((0-3) :)@& @H)!@Q0 A': A$@ 46-&@H(>:A%,*+@9%4Ru} A 0 "@A' @A% c +@9<(>:A%, ԠǠҠc(" (SCRv}ALE MUST BE FROM .25 TO 3.5) F(AW@2 ?%)!@P< A'F A$ 8AR@"(>:Rw}A%,.+@9%8 A 0 @ A%@ 86-O:&@, 6-@,"86-@y ++@9%!Rx}AR@+ A 0 @"A%p w +@9AR@O(>:A%, CURRENT CURSOR COLUMN ISRy} R(w( CURRENT CURSOR ROW IS  3)@(>:A%,)+@9%3 A 0 i"@&+@9C(>:Rz}A%, PRESS 'Y' TO QUITP)@\"@f+i #+@9% A'# A 0 ] ,R{}%#$@%@IAY&$@)!&$@'S A'] A 0( ="@:, @d6-A:,#"- A&3/R|}= A&2 + 4P" A&!,+ A&< 0RA&PF M6-%@"$!AY+6-;6-%R}}@'$A!M6-P +@9% A 0Z 4DA&d 0F)"A&n + " A&-R~}+Ae@x ;+@@S:1,; A& H$6-P:+$,%?P,%&@$E6-P:+$,R}%?P,%&@$H$ -@@92@%@@M-@@Q s2R}-@@  $  +@9AR@ Y7(>:A%,$WOULD YOU LIKE TO SAVE THIS SCR}REEN ?:(LAW@Y((Y OR N) :)@&@x*@0 A': A'0 2"@x(>:A%R},(+@9%2 A 0 X(>:A%,#AW@0(SAVE TO:3(X( (1) CASSETTE (2) DISKETTE :)@R}& @I)!@P0 A': A'` '6-"@P'6-@ "@A(0 =ARR}!6-@=-@A@8 i5(>:A%," Ԡנ٠Š8(E(LINE Ii6-P:+@R}8&B:,,'@,% hB:,!@8(>:A%,<( ŠϠǡF A'Z-@A^ h A(R} 767<%B:,,.!6-%@% 7AR@ Y.(>:A%, ̠ӠY(&(1) RAINBOW (2)R} FLASH (3) RANDOM D(AW@D(&SELECT ONE OR PRESS Π FOR NONE." $)@$"AUA)R}, %"@I6-@% A)6 %"@P6-@% A)@ %"@Q6-@% A)J  A'R} A(PT a8(>:A%,%WHAT TYPE OF PLOTTING WOULD YOU LIKE?;(a(! (1) INVISIBLE (2) VISIBLE^ :)@&R} @I)!@P0 A': A)h '6-"@I'6-@r "A0`| V(>:A%,4( R} CHAIN TO ANOTHER PROGRAM ?7(IAW@V((Y OR N) :)@&@x*@0 A': A) R}"@xA0 v(>:A%,:(%ENTER THE FILE NAME (Dn:filename.ext)=(N( FILE NAME: `ARdvARR}@ l(>:A%,2AW+@%&B:,,'@J(IS ' ' CORRECT?M(_AW@l((Y OR N) :)R}@&@x*@0 A': A) "@xA)p q7(>:A%,$ ENTER A FILE NAME FOR THIS PROGR}RAM.IAW@_((Dn:filename.ext)qAR w(( FILE NAME: -AR@;(>:A%,\R}AW+@%&B:,,'@t(IS ' ' CORRECT?w( kAV@'AW@4((Y OR N)A)@WR}@x*@a A'k A00 "@xA0 @A0 `3(>:A%, INSERT THE DESIR}RED CASSETTE.6(`($PRESS Ġ٠ THEN Π. a#@@C:7-@@eM(@R}>:AU,W @a A1 e4(>:A%,! INSERT THE DESIRED DISKETT.7(X( THEN .e)@R} 7-@@ D:SCREEN.DAT7 @ x@w6( ΠĮ@ A'R}T-@AX f(>:A%,xAW@& `( Ġ٠(>(#ŠŠ͠ӠĮH A'R}\-@A` 0 D +((":(ENTER >:@4,C:D A1@: (((ENTER >:@4, D:R}SCREEN.DATD ]( (%-@@)(- 9"U-AAP@Y(] N Q( ((CONT&R}-@A* <-@NAB@Q&X =AB@6-'6-A 36-@ = A3 b  R}+((6-@Pl pm(100 GR.@% :POKE 708, :POKE 709, :POKE 710, :POKE 712,:POKE 82,1:R}POKE 752,1p(v SS(G40 DIM C$(32):TIME=10:GOSUB 1000:C$(15,15)=CHR$(22):Z=USR(ADR(C$),TIME) (40 POKE 77,254 R}__(40 FORI=1TO10:POKE708,:FORJ=1TO100:NEXTJ:POKE708,:FORJ=1TO200:NEXTJ:NEXTI "+-@ARR}@8{( POKE 656,'@&@:?>:@4,7<%@7,>:@4,;6-%@  0 0#(90R} RUN >:@4,&(0 A2P (90 CLR:GOTO 40( 1(110 POKE 559,0.(140 POKE 559,341( L (CONT!-@R}A% 7-@IAB@L& CAB@!6-A -6-A2`96-AC A3 R} 7 +(,-A2pA3@@/(3(7  &"((CSAVE& A3 M0(XIO 33,#2,0,0,>:@4,R} D:SCREEN.DAT3(6(M(SAVE >:@4, F( ((POKE 842,12:GR.01-@CAB@F J -R}+((9-%&@'@=(@(FJ  K (CONT -@A$ 6-@HABR}@K& AB@ $6 (}@@6( o (USE THE FOLLOWING CODESR}:o(I1. CTRL Q = Save SCREEN to DISK or CASSETTE. Asks if you want to save r8(0 with 'RAINBOW, FLASHING, or RAINBOR}W COLORS?r(52. CTRL E = Erase, put cursor at top left of letter.b,($CTRL P = Asks which pen to use(0-3).b(1CTRL S R}= Scaling Factor-(.25-SMALL- to3.5-LARGE.)--(%CTRL D = Enter COLUMN/ROW for CURSOR!d(CTRL Z = Quit program!@(CTRR}L C = Change to which PEN?d(CTRL V = Tells where CURSOR is!QQ(ICTRL B = Makes a BOX OUTLINE. Put CURSOR on left loR}wer corner of BOX!j#(CTRL CLEAR = CLEARS SCREEN!j(A each for your š If you learn more commands letR}NN(F me or the OL' HACKERS-3376 OCEAN HARBOR DR. OCEANSIDE, NY 11572 know!&"(HIT Y TO CONTINUE PROGRAM!& 4R}Y$D:TITLCARD.BASRS-3376 OCEAN HARBOR DR. OCEANSIDE, NY 11572 know!&"(HIT Y TO CONTINUE PROGRAM!& 4P ************************************* ĮӢ ؠϛ ĮV}Ӣ or ήӢ asit may be known, is a programfor making fancy ΠӠ for yourown little creations.V} Look for it onthis disk. It allows you to do many thins like,put in large letter titles, and tocolor them to yV}our own choice. It alsoallows you to RAINBOW or FLASH yourfinished title, and save it to disk, orappend it to an eV}xisting program. Ibelieve it is a P.D. program. Here aresome of the commands that I have foundneeded to run the programV}:1. CTRL Q =Save screen to DISK orCASSETTE. Asks if you want to save withRAINBOW, FLASHING or RANDOM colors. ItthV}en proceeds to write your screen, andwill even show what ROW its working on,(about up to 95) and then it jumps upand dowV}n on screen while it erases thecreator program, and finnaly writes toyour disk. WHEW, what a great fantasticprocess, shoV}wing the real power of an 8BIT ATARI!2. CTRL E =Erase by putting cursorat top left of letter.3. CTRL P =Asks wV}hich pen to use.(0-3)?4. CTRL S =Scaling Factor (.25 to3.5) to control the size of letters onscreen, with 3.5 as V}the largest.5. CTRL D =Enter column and row #'sfor where you want the cursor.6. CTRL Z =To quit program!7. CTRV}L C =Change to which pen?8. CTRL V =To show you where thecursor is at the moment.9. CTRL B =Makes a BOX oV}utline, Putcursor on the left lower corner of box.10.CTRL CLEAR =Clears screen of course. To print the letters:SeV}lect the LETTER that you will want onscreen, after putting the cursor whereyou want the letter, then you use yourjoysticV}k! I'm sure there's lots more to thisprogram, but this is all I could comeup with. If you know of more that itcV}an do, PLEASE be good enough to writeme a short note c/o OL' HACKERS,3376 Ocean Harbor Dr., Oceanside, NY11572.I and theV} OL' HACKERS would be very grateful.TTTHHHAAATTTSSS AAAAALLLL FFFFFOOOKKKSSS V}*************** END ******************TTTHHHAAATTTSSS AAAAALLLL FFFFFOOOKKKSSS T&