A@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)ǥ%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}NjL= ( 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}Ǡ}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}ǿ0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}ǞC, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}ǫΞ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}Ǎ`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH}G,^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}I}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO}: TOO LONG B VL!` L1I H1EΝDL1?@D|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 160ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}rDECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8xuR}r ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8xu&2|Vol: 8 <--|| W}g  ||  || Atari User Group Inc.(c)1985 |***m Ron Fetzer, EditX}or ****** &22 Monaco Ave.3 :******@ PElmont, NY 11003[ `***}Y}3|Charter Member NEAR*US ATARI USER Gp.||> MήҮX [|}Z}C3|Charter Member NEAR*US ATARI USER Gp.||> MήҮX [|}[%FCIOSCRSACHSALSA,.56=>EFMNT^ ;@ bt,;A X,-@x \}?AR@'E }WAY-;iA @?M{A@ Q_A@$cc6.hhhLV6.  ]}*67A X,. 967@S,.B6-C:,S6-P:'AV,c6-&$AV..@W[@_ag D:WELCOME.SCR(Q ^} AP@3!AR-AS?AV9GQAW@KT2! @`Xg!6-?:C:,<@k,< }A( _}-@ @!( Programmed forB// ' 짠CB0(' By Kris Holtegaard & Thomas J. And `}rewsBAY@4F% D:NEWSLTR.BAS D:WELCOME.BASCB0(' By Kris Holtegaard & Thomas J. And BUZERWOTWTRFOUPRMEKAFILEHELPMENUTITLECOL1COL2COL3LINELOSPACFNNCOLNSPSOOPPZPAGFPLPb}EOEPOEPGCOLINDPEEDPOKDLSHDGSFTDSCODSYSVBSETVBDUMMYOPWX_`ghopwx}c}   !# )+ 13 9;ACIKRSZ[bcjkrszd} %&-.56=>EFMN UV!]^"ef#mn$uv%}e}& '()!*')+/1,89-@A.HI/PQ0XY1_a2hi3q99Ԡf} Š qSAVE "D:NEWSLTR.BAS 6-C:hhhˠ˅ȱ˅`,6-C:hhhˠhˈh`, ?6-w6-g}@'6-@36-@&?6-@*R@AR 6-?:<Bg,56-C: hhh \`,@6-?:<,2 AfF:Ah} f,%@ ,@D2-5K:6-6-)6-A2HP56-@T_11;Acj,;@8nu,;@@y,;i}@,//6.%```BB0jBA$ 6-C:,6-C:,$6-?:<%<,d6-?:<@ns,%@w16-?j}:<%@ &<,:6-C:,O6-?:<%@1*;<,d6-?:<%@5?L<,226.(Rm倯쇀t ZZ6.k}P$썣݀-KQ33;,;,;,;,;,;,;,;l}C1A2,L!! D:WELCOME.SCR* A5N6.6. * ARx666.,THE OL' HACKERS' ATARI U.G., INC.m}m" NEWSLETTER67B:,%,.7<@8&I,&-B:,6&7<,0 AMg @@ 6. 67@k,.#67,.76-+n}@F&,'%@67,.56.D1:MAINMENU.HLP)5@J 6.C AP"67B:,%,.967o}B:,%,.>:AU,C AE:-AY!(}7:,!*@O\8B:,"@`dA(hq Au 6 (u}}-@ @ 76( What's Your Pleasure?" ;-@;?@Ct4(enu rint ead: ;)T 8"@wx(v}(.( Main Menu. 8 A$/ "@37AT;F 8"@JV((.(\ eRead Filei.8 AGP .-w}-B:,6. D1:**.TXT.67<,.7<, : A21ZAY)0(}: A4^kN   Ao F:Ax},"A6A7P **"@e!M*F:A,"ApA1P pAY@4QY4@e]*F:A,"Ap:(}L-@y}@ p(Not In This Months News Letter ! AGP AGP! A1PH h6-?:<A`,'6-?:<A`<,-(}z}?@ @# QAY@4$OW6-h6-?:<AV, 7 (@wS7F:Ad,"AFA7P  6-%{} @! A5uB F:Ad,"AUA6P[ F:Ad,"AFA7Pt%AdAU6-% A5yZ|}rAdAU(0(Z($Press a Key or Trigger for Next File F:Ad,"AUA8v H}}AdAU!AY46-?:<A`<,?6-?:<,E(}H$<NAY%6.D1:PRESSPRT.MNU*5G@~}C@@ RN(}n((6-C:hhhhh Ȅԩ`,AY" AAV(" A@PAY@4} 6--@@ ;&( Selection: -)h!!"@i?E)"@eIMAHQ\"@x`sADP"@cw' }A@'AAP0G AE+W(}3D1:PRESSPRT.HLP= A4[aG A9epbC6-@ft6-@V}!6-'6-36-@'96-C AR+`&6-F:A,&"A6A7PU (}-@dh@l'"A8K(}tYour Printer is Not On Line...U AGP<"Ap2(Printer Help File Not Found...< AGP*= (}-@x@}.3(ERROR # F:A,= AGP\ A92?-ACS $7@Wg6-!"@ek'6--6-7 AI}oPa (}-"(Print Style?0( . DraftF(. Double Strikea(. Near-Letter Quality$0)@s6-&}@d0 )!AHPVU (}-3( Page Columns & Line Spacing?U(. 2 Columns at 6 Lines/Inchh%(. 2 Col}jumns at 8 Lines/InchG(. 3 Columns at 6 Lines/Inchh(. 3 Columns at 8 Lines/Inch( )( @ent)!@hxAIP}g6-@f6-@V&'6-@*8-6-C"@f<B)"@hFNO6-@RZ[6-@^fg6-@vju!@fy6}]-PI (}-!( Paper Type?4(. ContinuousI(. Single Sheets( )( @eag)!@fkoARs"@}fF6-&'Û$A 6-6. D1:**.TXT6-%6-16-BJV7"A A9ZJY (}-,(ll, dd, }ven, or8-@KY(irst Odd, then Even Pages| )55@eOU*@yY_*@ici*@pmATPT6-}+"@p ,-@HD( very Page or artial Block?HT6-@yL^( )(@ibh*@lAVPD"}@i4AYPv:( First Page?  AWP,@8: AWP 6-P:,:( Last Page?  AXP,@}&: AXP  6-P:,>0 A`*8&@<P:0 A`Pp<.(&Check your printer, then press .2}"< AYP 6. A&U (}-9(LOADING BUFFER with Page %...U(Use -P to Pause}%+(Use -C to Cancel+-@)[8^*("Every Page must be Loaded, even if6-@_R(it isn't to be Printed.^}C-@ Aj= 6. 67,.67,.#6.)6.16-%=@wEX/ - A\j6-'6-@@n/-"F}:Ad,"A8" AC,F:Ad,"AF", AGY2& &Ae]iAePAfmd67<,.}C AfP67<,. AfP67<,.! 6-%6-%@9Gm ! ,"F:Ad,"A8" Aq^,F:Ad},"AF", A - Ay1G""'"P:',*"@yKOAySi""'P:',*"@imqAyu&9 A}&@P:,"9(@=X "*"(Gb "*"(x16  '6-+",$%+",$}+@B&,6(=:,N (((":6-+",$@ FP%+",$@T]G*@'ayN*: 6-6-@@}}-$6.*":6. % C "F:Ad,"A8" AGoR,F:Ad,"AF", As<67B:}x,%,.7<,)67B:,%,.7<,<67B:,%,.7<,"6-?:( !B:,AB A`P@HAdAU%( Pausing...A(Pres}ss Any Key to ResumeH)r($/6-%!B:,6-%6-/ AfP(67<,.7<, Aw(}# "AdP: 16-%@A'16-%@95Q'6-%1 AfPl @U^(Abs 5 6-6-@iw6-}!6-5"@eAxQ AYP D:NEWSLTR.BAS1 AfPl @U^(Abs 5 6-6-@iw6-=->%Q<- 짠򠠠v} Πռ$IL\ f<-Š->s ۱ Exit }To Basic ۲ Exit To Dos -۳ RUN Side 12 G۴ News/PrinterHelpnԠSPACEBAR}CϠΠàAX READ/PRINT ALL!i y Sub. Attack} } + Using Arrays < L How to SortP Sd Treasurers Rpt. } & Disk Cleanup 7 N Disk Mini Label_ cs v} }  !2 6F IZ [}}  !2 6F IZ [}v)6^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xg{f<}1{!!\]_\ED!EOHI B V`}   }' The OL' HACKERS Disk Newsletter Help8 >File c The OL'HACKERS Disk-ba}sed Newsletter is very simple for you to use. All you have to do is make the selections you'd like and read them. Ma}king a selection from 1 thru 4, you can Exit to Basic or Exit to Dos, or even RUN the other side of the disk. Selections}& B thru Z are news articles.* 9To read the= whole newsletter, use Selection A. To read only part of the }newsletter, select each file in any order by using the letter in front of it on the main menu screen. If you wan}t to change one of your selections, use the BACKSPACE key to remove selections until you reach the one to } be changed, and start from there with your new selections. The other screen editing function keys will not wor}k from the main menu. When you are finished selecting, press RETURN and start reading. As you can see, there are p}auses in the text so it's much easier to read. When a selection is made, the article is sent to the screen with page}Ǜ breaks. To stop reading an article before the end, press [CONTROL]-[C] or the trigger of Joystick #1. To contin}ue to the next page, press any other key, or move the stick down. At the end of the last article selected, you}C0 are sent back to the Newsletter Main Menu.< NAbout The PrinterZ Z_d  k When you make y}our selection of the file you would like to read you will be presented with the following: enu rint ead:}Ǜ If you choose then, and you don't have a printer on line you will come back to these options. Then you should} use the option to read the file online. If however you either made a mistake or don't care to read or print the} file you selected you can go right back to the main menu just by hitting . If you choose and you have not }yet configured your printer, you will do that before printing. When the newsletter program is formatting files f}or the printer, or while it is printing, press CONTROL and P to pause printing. To resume, press any key. To cance}#l printing, press CONTROL and C.' FAbout Configuring Your PrinterJ JOP [\ `a h The printer config}uration section is reached the first time you print any file in a session. Explanations of the configuration sectio}n can be accessed from the print menu.you print any file in a session. Explanations of the configuration sectio- $F |짠JO| |Xfpu| } }" :pson Fx86e and EpsonB YCompatibles. Panasonica zStar. Star Nx1000 Gemini~ } Sakata Sp100 .tari 1025 Printer3 Oon Epson Compatibles andX nDaisy Wheel Printerss rint Ro }om Help File /ۿ Return To The Main Menu3 Oon Epson Compatibles andX nDaisy Wheel Printerss rint Ro / "The Composing Room Help File' 'CBefore you can Print a file you haveto configure your $}own Printer.To Do sothere are 2 selections that will helpto make it easy as possibile for you.If you have one of the pri$}nters listedin selection then your printerwill be set up for NLQ and DOUBLEstrike. If you don't have one of$} theprinters that's in Selection youhave to use selection . This is toensure that all printers will workwit$}Ghout any problems with The WQNRDisk Based News Letter. Now onceyour printer has been configured youwill NOT $}have to reconfigure yourprinter as long as you are have yourNews letter running. Not only that theprinter will stay $}configured to whatever configuration you selected aslong as you have your printers powerturned on or until you $}reconfigureit. Once you have configured yourprinter all you have to do is hit theۿ to Return to the Main menu. $| .&.SUBPTBEADOPTFIRSTMOVSHIPHSCSCORMJFTORSCSUBSUBDXDDYODSUBLOPPEXLEXRFUAADIMME4}EB8MSGDCHSECN20D20P20N2D2P2YNYHSZSBSSBBCJKRSZ[bcjkrsy5`} TURBO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ӥL]""$$ (p}%J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5R}Ţtd.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$}ljLENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ}$ &,(""(222,0...324M2Z**22*22(222(a2e222rrx ,(""(}0 0--.>**2*(22(2B222 V`hh@,lHH$HHHHHHӍl"}H$HHl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( }Ǒ) ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eee}ǤeӦee褢%ƚƜ`88夅奅8}夕奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 }*څۅ܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈}0ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0}ǠF0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠ}"("!""" "L**""""""&О"("!""}" "L**""""""&О"("!""" "L**}""""""&О"("!""" "L**""""}G""&О"("!""" "L**""""""&Оd}Ǡ"("!""" "L**""""""&ОL-6"e"}"e""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"}""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօ}Dׅ؅`` ` ` `80 `ԥՅ +.HJ)iFiFi1FicFi'ȐȦoFiU}ȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I}))83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L-}-E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8}م٘؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥}؅ץم؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱}ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ}׽ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - M} 1. &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ)} 2f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1.}: #/ &F I`U9>`D'RFuCU?b9dYdg@W2@>?tS)%)@0)%ԅԢ / . &G } 1.Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍ}ǥ֍׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥e}GՊi؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&}&&&*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3}ǥ}3`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢}ǘ0襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ}⅊0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30}  5Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` }O#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B} V,# 6` $#LllBHI V0HH V0Ԩh``{a$%Ȏ$$xө$Ѝ$ `} `@X a Ӆʢ ʎD  _ɠ %` ɩHH `өL: g% D}:?*.ARBөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0Y|ڝDa۝E}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐ}DZe拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?L}ǘ KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhh}Džh`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)}si桰` )``L(兢ħ #$ x Hҩ h$襚ҥw ԝ`} UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Lĩ}Ǩ ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}}ǐ L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ LH}G éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL }ǩ ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ Ċ }!Ťħ` ¢`届 x݅% L ĽCӠɀ L]Ɉ L] Ln LŠI}ǘHEDBL$HH hh +L `ħ LĢl ¦`OBRUT ԅՅ֦}DZ󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih L}©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!}ǝ``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠFf}ؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א&  } eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]& }ǥ 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم0&f }fff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ  }ǨȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO] }Ǚ  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0} `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`}LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3LBˢ}ǥԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐ}G=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤ}ǩ /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}}= L}٩    e쪽pLyL( + ڥHAJ h) 0:i`  ک; n +ȱ)ȥ%}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 n} 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH@}MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh &} Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`}ǽ!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Heם}I Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤ}ǘ ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% }L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0 }ǞeUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 e!}Ǖ新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ"}Ǣ Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`#}DZI 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,$}G , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!%}%ǹ!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ&}LJiȅȩȩ Lfإ  4  \ +] ¥򄟄'}dz   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5(}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 )} &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ *}`L 9:枢0 O L :H9Hhh tLHH`dh+}hLCL馩`ʀLC枢0ְşLC`A枢Ɣ!L!L,}ǚ!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰-}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % .}+HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ/}` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"0}ǔ嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFO1}ǗNEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREA2}ĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- 3}ǠDPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTI4}ME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚG5}OTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABIN6}GPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%57}7&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/08}1 2!3"4Ɛ"-"."-؂ٿ֐ː9}ǾĐאŐbj+9,+;,ʐͭ:}njͭ@ABC\=>[<+:е<,&%rvnnxc<\;}-78s_XV+@D&0d*"'2GJh N<}Rl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 =} 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le>}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :?}7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" @}ǥ 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ A}L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI 䦐B}Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅC}H h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ D}, h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥E}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L.F}DZ0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #G}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰H}G#)iiLɠL4űI&`048ץğ=ȱȄ I}I`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠK}ǥ`,,L L PQ 8,L ȱI ѝߠȱ`ԩL},L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g M}NJ0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?N}FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOTO};RUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRAGD?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DIP}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0Q})` 0LoH - . /h &@Յ՘-J X) 0:i`AVC@ sŠ 5  <)  <R} L L + e +e`e`&&&&&&eee` &S}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= T}I ܥeƥiեLN@ ` **)]` 00``MX ( _((8U}8`W)ߥ & &e &߽řِ׼EFLN@UV\^@efmntv}5a}  !')@/1@89@A HI!PQ"XY#`a$hi%oq&xy'}5b}( )*+#$,*,-24.::A%5f},+ i;@0 ,;@0$+,;@0/6,;@0:A,;@0EL,;@0PW,;@[e,E-@im@q$( SUB ATT5g} ACK6-@ @E( $--1-@15@9^1(ENLISTMENT INFORMATION:,-@bf@jo,(}_5q}B%DOS SYSB*)DUP ySYSBSWELCOME SCRB[WELCOME BASB>aNEWSLTR BASBMAINMENUHLPbAUTORUN SYSBHELP} DOC9BPRESSPRTMNUBPRESSPRTHLPB RAMDISK COMB[BOOT= ARBB^AUTORUN COMB]SUBATACKTUR BSUBATAKTXTBYCARRAY TXTCpBl,DSORTINGTXT!ETREASRPTXTuTREASRPTTUR=/CLEANUP TURmFCLEANUPTXTUlLABEL TURGLABEL TXTq ___|!$-@@1 (NAME:$$,-@59@=B,(S_]|'$-@ae@i (TOWN:$*,5r}-@ @,(&_0|-$-@48@<T (DATE:$. A3Xa2X A el@pwA@{5s}@# D1:SUBSCOREL@'<X6-@0<"BH A%LaA"@0 A0elP +rd 5t} ˛x5 A6-@$I# Au5ҠƠӛ96-OU6-[a'6-gs-6-96-y,5u}6-@ 5,F:B7p, A(A--6-P:@9Q$F:B7p,'AV,$@UfAf@jp'-@1tx@|5v} P(7$@ %@<$@#%@'.,b-@126@ :D(7$@HL%@ PV<$@Z^%@bp,!*"v A 5w}J +-@"&B:=:,,'@&*@#.V5( D(HI= J6-N$"\m**F:B7p,!AqN6-P:@05x}$F:B7p,,'AV%A-mAf37'-=A@ EXK(>:AT,>:@(\s,>:AT,Y6-%@wm"5y}@AP!6-R:(,!6-T:.8,_">B*"HTG6-%$@@X\&@@`f%%@jq$+"@u,M6-5z}_@w -8,#26-8,-@w68>[) 6-8,)F:B2y,"@_cAg= )-(5{} %6-+6-=@w!'8H 6-%! >D)!@1HU)-&7(] fH6-@2j&O:,) 6-%!5|} @ )!@"&)6-&"?#6-@*.%@29$+ @=P,)-?(7<%@Tc,,"iA6W%5}}'%%@%56-%@@);A!A M6-AkW A@% 6-%6-F:,%6-F:%@oy,JC"}5~}C*" %A9%@$AAC AT[ -@EGMR6@V\4-bf@jIAF:B7p5},[@ ^ F:@ #(, @,HAPh` 8,%@LU8,92[_@pcg@ksX2@wF:B5}7p, \ ` r#&.#%@24:Y|I"A)"A%6-_e16-ku?6-%AyI 5}A^ -AP"6@&6&-P(7$@:>%@BH<$@LP%@T^,^6-@bq&-@u6@ 5}1)2'@@ &'@*?- 1 %6-&@CI%"OeA0g -(m v#6-@z/65}-@" ;6-G6-!'S6--V] Aug A !6- A5Zcb +@guBB@dy905}@ @ @K-@ $@(/b(@3H Š--@LNT[-(@_u  ]-@y@5} +(@ SCORE:=-@$(@,3](@7Upress 3-@Y]@ah3(@lSCORE TO BEAT:5} 0-@@0(@"9 THE SAVE SUB-5-?C@GN5(@RpROUTINE-RON FETZER4-@tx@|5}4(@ %THE HI-SCORE SUB-7-+/@ 3:7(@>\ROUTINE-ALEX PIGNATO6-bf@jq6(@uMEMBE5}"RS ̧++F:B2y,@&**T:0B,A`@wFHNT @PXa"gAF:,"A5} Q6-&@@!5 %A`+6-;FG6-+&@JR,$+!@Vs,Q A< 6-F:,"y25}A$+!%Ah,< A=F:,"A)F:,"A'6-%36-A= A@L -@lnty6@}5}4-@ @@6- &L6-,54-;?@@CG@@K4AF:B7p,&k&&8,%&8,5}:6-+F:&&@,,,W6-+F:%%@03,9U,[ c6-%k6-%0)2[a%g))A@:C 5}  6-96-%@@$%+@#(/&,$@3FC A?[-@JN@#RW"(^ g0-@kuL-$@y&@5}@# ?T([\X [$DNc(W9@CJ,9@N`,;A(,;@dk,9@ov,9@z,5};A,c-@XI +"H76-F:A`,%AV$F:Aa,%@LZIAR@^eb0ko@sw@{75}C0@ @Q0@"&@*.@28k0@<@@DH@LR0@VZ@^b@fqlm&@uy@i}5}+-@ @#9%@".= Y%@2>A(%@BJm%@$NR@Vcv%%6-F:@gv,%AV$F:@z,5}8$6-+F:A,&@C,$AV8AV'AV""F:%@ GL,"@PaA@_-gk@ou+-{5}@1W%$@@%@ %@$,%$@20t%[ _ 1 #A@!-AA#%"-%1 '-zA5}ECT'"#%' 6-A(A2%AU&F:BsD%,6 E-Z^@b-%A%AU1 5}E%AA9/-"&@*K"+%Ar%/ --QU@%Yy")A6%- M*@}5}A%(-@0 <-&*@.5I*@9NM 9ATb'A@f9BBA5 5}#Ap!-@@d%"167,.>:,5 %%160,160,160,160,160,160,160,160 8,9,10,11,12,13,14,1532,32,15}8,19,20,21,22,23 24,25,26,27,28,29,30,31*32,97,98,99,100,101,32,324%%104,105,106,107,108,109,110,111>%%160,165}G0,160,160,160,160,160,160H##120,121,122,123,124,125,32,32RG-@KO@Sb+67,.>:%@1fs,/ G67@w,.>:@5}2,\5-@@"$68,-("168,-5 f771,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0pK6-@5} 6-@"/- @$w5">68,-G68,-K z$!!246,247,208,209,254,255,0,06 6-$6.}:5}:6A@ +T=67@!/B,.*F:InewM:Yhigh:::]:jT67B:,%@n,.=:,9-67B5}:,%@ ,.$:,96-@10;-@?HB:,&@ LS%%2Y]@ae@im@q9-@5}@# '(7<%@!,9@ %'-8 F:@ <A, @ETA p%%2Z^@0bf@jn@rl-@5}(grstu -@ ",;6-&@06G"<DS-@HM`(T ]l6-@1al F:@ pu, @yA5} 6-@  @2$(,.2@#6<1/@@D@#HNC,@RV@#Z^U,dh@lrg/@9v@5}2 # Au$ŠӠכ168,0,0,0,42,0,0,0$0,2,42,170,10,165}8,0,0.0,160,2,170,160,42,0,080,0,128,0,160,0,0,0B15,63,63,63,15,0,0,0L!!192,240,242,240,192,0,160,0V0,5}34,10,136,2,168,0,0`0,32,160,136,0,0,0,0j0,0,0,0,85,85,5,0t0,0,192,63,95,117,85,21~0,0,0,192,85,85,85,855}Lj1,5,53,31,87,93,85,8564,80,84,244,213,85,85,850,0,48,15,87,93,85,850,0,0,240,213,85,85,850,0,0,05}G,85,85,80,0128,8,3,143,3,128,8,0 2,48,240,252,224,200,0,1280,0,0,0,0,0,5,70,0,8,85,42,42,85,11905},130,24,64,0,0,84,1160,2,33,0,0,0,0,00,2,24,145,2,0,0,00,4,0,32,80,0,0,0 0,0,21,10,5,0,0,00,0,855},170,117,85,21,57,10,85,170,215,85,85,85( 119,170,85,170,93,85,85,852!!116,170,85,170,117,85,85,85<0,0,85,15}70,215,85,85,85F0,0,84,170,85,84,80,64P0,0,0,128,0,0,0,0Z0,0,0,0,0,0,0,0d0,0,0,0,0,0,64,16n0,0,0,0,05},0,0,0x0,0,0,5,0,0,85,1190,0,0,84,128,128,85,1190,0,0,0,0,0,64,640,4,1,5,1,4,0,00,68,80,84,80,685},0,00,0,80,170,21,5,5,0 85,117,85,170,85,213,85,2180,208,80,170,85,93,85,8585,170,85,170,85,85,85,855} 85,170,85,170,85,213,85,8564,129,65,170,85,93,85,8516,85,221,170,85,85,80,00,1,4,170,80,0,0,00,165},16,16,16,136,0,01,0,0,5,31,31,5,084,5,4,85,213,86,85,00,80,0,80,85,89,84,0"0,0,0,1,85,64,0,0,4,15}7,4,84,64,0,0,0632,2,51,15,131,8,128,0@34,0,200,240,194,48,0,8J0,0,0,0,5,1,0,0T0,0,0,2,85,93,85,5^205},20,20,170,85,93,85,85h20,20,20,170,85,93,85,85r0,0,0,128,85,93,85,84|0,0,0,0,84,64,0,00,128,8,32,15,1315},3,2 0,0,194,192,242,252,192,500,0,0,0,0,0,0,00,0,0,0,5,42,1,00,0,0,0,85,165,85,00,0,0,3,85,85,85}5,850,5,21,255,85,85,85,8585,85,105,255,85,85,85,850,0,0,255,85,84,85,850,0,0,192,80,20,80,640,5}0,0,3,5,20,5,11,1,1,255,85,21,85,8584,85,165,255,85,85,85,850,64,80,255,85,85,85,850,0,0,240,85,85,855},850,0,0,0,85,90,85,64&0,0,0,0,80,168,64,000,0,0,0,0,0,0,050,0,1,63,127,31,7,06##120,248,200,254,251,5}254,252,0:55塛Dbb72,169,6,141,10,212,141,22,208,169,40,141,23,208,169,10,15}241,24,208,169,128,141,26,208,104,64N# B6<6-BH# @`Lb (>:A%,+@fp ""(@tSUB. C5}OMMANDER IS !!(@6** RON FETZER ** (@:S ELMONT, N.Y. )(@W^)(@b MISSION DATE: (@5}JANUARY 1, 2000 ((@#*((@.G ENEMY KILLS; 0$(@KNT i500 SHIP TONS06-Am SS(KTo becom5}CKe the COMMANDER of the sub. your ENEMY KILL SCORE must be higher! $$(P TO CONTINUE PRESS ( "F:B2y,"@5}" A&02 A&/F $  v@3:7@>B@FHNc D1:SUBSCORED@gpQ@t^@5} k@v@O  6.6.6.6- (>:A%,+@S] ""(@aSUB.COMMANDER IS: (5}@**  ** (@"6FROM  )(@:A)(@E_ MISSION DATE: (@co ((@s((@5} ENEMY KILLS: ""(@!'  SHIPS& SS(KTo become the COMMANDER of the sub. your ENEMY KILL SCORE must be5} higher!0 $$( @TO CONTINUE PRESS : "F:B2y,"@D" A1PD A10N $  F(>:A%,(((5}(("(4@@!F@%)@9-5 --(%9 You can erase the SUB. COMMANDERS ++(#name and HIGH SCORE if you 5}want to. ++(#You CANNOT erase RON FETZER and the (STARTING SCORE of 500 ,,($ You will become SUB. COMMANDER and5} ,,($and your name and KILL SCORE will be ,,($saved by the program if you have the (HIGHER KILL SCORE 1( (-(5}/DO YOU WANT TO ERASE NAME(Y/N)1 $$7@37<@;S,4YA3* $$7@W[<@_h,4NA4l4 J A365}-J@3@#%+B D1:SUBSCORE> #6-HN BRX# A4\oH $  @s7@5}@ & D1:SUBSCORED(@*3Q(@7@^(@DMk(@QZv@^u6-@0 -@yA 5},  $ D:SUBATACK.BASOBCCHM(@QZv@^u6-@0 -@yA 4H"8<< & B JKIHiDiELV`L8 8 BLV`Lx)}d8t8l Lu8hihiHHȱȱL8c !#3`Lu8hJ`H 8h`H)}Ǣȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0IC)}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::i)}C::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8)} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9)}Ln; ` :Y;Y;L;L;)}$P Setting Up ATARI 130XE Ram Disk; 9L;VVb ; -9  )}P L;D8:; :9 :Y;LArraysB EareI MalsoQ called Subscripted Variables. P(2) = "P su=}b 2". The P is the variable and the 2 is the subscript. The subscript is always in parenthesis P(3), P(4) etc.=} Arrays are very useful in manipulating numbers and strings. It is the ONLY way you can sort numbers or alp=}habetize strings. You also save on variable names, you can save numbers or words in a program, you can handle lar=}`ge amounts of numbers or strings and you can speed up your program execution. This isd a very useful techniqu=}e and 4is frequently used in many programs.< SONE DIMENSIONAL ARRAYS[ [q-sy You =}Cx can think of a ONE DIMENSIONAL ARRAY as a string of pearls. Each pearl is an element of the array.} =} PEARL NECKLACE -O -!O%-&O*-+O/-0O4-5O9-HO- Element #L M0Q R1V W2[ \3` a4e f5j 6 Value $ $25 $=}33 $42 $50 $38 $28 $22$ In number arrays the 1st element is 0. In the example above we have 7 elments from 0 t=}o 6. When we use an array we must DIM it. The DIM also starts with 0, in effect we dimensioned for 7 eleme=}Ants or pearls if we use DIM P(6). The form of an array is:P P(X) = V P = The name of the array. You mus=}t DIM it for the number of% Delements you are going to haveI in your array. X = The element numbers. Usually =}6 a FOR - NEXT LOOP V = Inputs the value into each; Yelement as the loop executes` ELEMENTS AND THEIR VALUE P(=}>0)=25, P(1)=33, P(2)=42, P(3)=50, P(4)=38, P(5)=28, P(6)=22D Please key in the short demo program to see how it w=}orks 10 CLS:?:? )20 DIM P(6)/ A30 FOR X = 0 TO 6G d40 INPUT "THE VALUE OF EACH"m vPEARL";V| 5=}0 P(X)=V:REM <-- ARRAY '60 NEXT X- 970 PAUSE 60? \80 ? "LETS SEE IF IT WORKED"b 90 ?:INPUT "WHAT PEARL DO Y=}OU WANT TO SEE(0-6)";S& ?100 ? P(S):REM <-- ARRAYE R110 GOTO 90X You now can call up any pearl or ele=}'ment in the array and see its value.- You also can print out all the values of the pearls or elements automat=}-ically. Change lines 90 to 110 as follows:3 H90 ?: FOR Y = 0 TO 6N l100 ? "PEARL #";Y;" = ";P(Y):u REM P(Y)=} IS THE ARRAY !110 NEXT Y& D2 DIMENSIONAL ARRAY OR MATRIXI If-hn 2 Dimensional =} arrays or Double Subscripted Variables are also called a MATRIX. A matrix is a grid where you have columns and rows. =} For example lets take a bowling team of 3 members and each one plays 4 games. This is how you can visualiz=}e the matrix: (BOWLERS3 41> ?2I M3 W W[-[b bf-fm mq- B(0,0)|2=}50|B(0,1)|220|B(0,2)|240| G$ $(-(/ /3-3: :>-?I IM-MT TX-X_ _c- A B(1,0)|210|B(1,1)|190|=}C B(1,2)|250| -! !%-%, ,0-3 M; ;?-?F FJ-JQ QU- B(2,0)|240|B(2,1)|230|B(2.2)|270| E=}  -  - "-#- -1-18 8<- F-H P-RX [250b e220l p240v y210} =} 190 250 240! $230+ /2705 8220? B200I N260T In the matrix the first element is (0,0=}_). We normally do not consider 0 a number but the computer does not make that distinction.e Please key in this sho=}'rt demo program to see how it works- 810 CLS:?:?> L20 DIM B(2,3)R b30 FOR X=0 TO 2h x40 FOR Y=0 TO 3} =} 50 ? "BOWLER ";X+1;" GAME #";( ,Y+12 M60 INPUT "SCORE PLEASE ";SS m70 B(X,Y)=S:REM <--MATRIXs x80 ?} =} 90 NEXT Y 100 NEXT X" 1110 ?:PAUSE 607 U120 ? "LETS SEE IF IT WORKED"[ 130 INPUT "WHAT BOWLER(1-3)";P =} 140 INPUT "WHAT GAME(1-4)";G& -150 ? "1 B";B(P-1,G-1):REML SMATRIXY g160 GOTO 130m We use nested l=}oops to load the matrix. The first element to get loaded is B(0,0). In line 50 we use X+1 for the bowler - if the l=}oop is 0 then the bowler becomes 0+1 or 1. We did the same thing for the games Y+1 so when the loop furnishes a 0 is=}Ǜ becomes 0+1 or 1. We did the same thing in line 150 except in reverse so the matrix will find the right elemen=}t. When you answer for the bowler 1 it becomes P-1 or 1-1 or 0 so the right element is accessed. The same is done f=}$or the game G-1 becomes 1-1 or 0.+ ELEMENTS AND THEIR VALUES B(0,0)=250 B(0,1)=220 B(0,2)=240 B(1,0)=210 B(1,1)=}Z=190 B(1,2)=250 B(2,0)=240 B(2,1)=230 B(2,2)=270 B(3,0)=220 B(3,1)=200 B(3,2)=260` You also can print out all =}C the bowling scores or" kelements automatically. Please change lines 130 to 180 as follows:q 130 FOR T=0 >}TO 2 140 FOR K=0 TO 3" A150 ? "BOWLER ";T+1;" GAME #";K PK+1;V v160 ? " = ";B(T,K):REM<--MATRIX| 1>} 70 NEXT K 180 NEXT T# As a practical matter most programmers do no use element 0 either in an a>}rray or a matrix because it complicates the program. DIM the array or matrix for the number of elements you ha>}Ove. The FOR - NEXT loop starts with 1 instead of 0. See the program below.U [10 --a l20 CLS:?:?r 30 DIM B(3,>}4) 40 FOR X = 1 TO 3! 350 FOR Y = 1 TO 49 V60 ? "BOWLER ";X;" GAME #";Y\ w70 INPUT "SCORE PLEASE ";S} >}80 B(X,Y)=S:REM <--MATRIX %90 ?+ 6100 NEXT Y< G110 NEXT XM Z120 PAUSE 60` g130 --m 140 ? "LET'S SEE>} IF IT WORKED?" )150 FOR T = 1 TO 3/ B160 FOR K = 1 TO 4H g170 ? "BOWLER ";T;" GAME #";K;m 180 ?" = ";B(T,K>}):REM<--MATRIX 190 NEXT K& 3200 NEXT T@ NSTRING ARRAYS[ [h-jp TURBO-BASIC >}and ATARI BASIC do not allow string arrays. This is no big problem. We create a PSEUDO STRING ARRAY that looks an> }d acts like a normal string array. We take a long string and chop it into equal pieces. In order to create this PSEUDO STR> }'ING ARRAY we must do certain things.- K1)Decide how many elements weS Xneed^ 2)The length of each element > } 3)Calculate the end of the' CFOR-NEXT loop and the STEPI For example, we want to create a string array that > }has 7 elements and each element is 10 letters long. We will call the main string X$. To find out how much to DIM X$ > }we multiply the number of elements times the length of each element (7 x 10 = 70). We now DIM X$(70). The FOR-NEXT l>}oop starts with 1 and ends with the DIM in this case 70. The step is the element length(10) 'FOR N = 1 TO 70 STE>}P 10 Since the words we put into the string array will be shorter than 10 letters, we use PAD$ which has 10 e>}mmpty spaces to pad each substring or element so it is 10 letters long. We can visualize this as follows:} >}C X$ +-/ |3 4|8 9|= >|B C|G H|L | | |EL 1|EL 2|EL 3|EL 4|EL 5|EL 6|EL7| | >} | | | | | #| | F-n 1 10 20 30 40 50 60 70t Elements >}*or substrings start and end as follows:2 JELEMENTS OR SUBSTRINGSP eElement 1 = 1 to 10k Element 2 = 11 to >}20 Element 3 = 21 to 30$ 9Element 4 = 31 to 40? TElement 5 = 41 to 50Z oElement 6 = 51 to 60u Element >}7 = 61 to 70 It looks as if each element is only 9 letters long. These numbers are inclusive so each one i>}s 10 letters long ]If we have a FOR-NEXT-STEP loop we can generate these numbers.c 10 FOR N = 1 TO 70 STEP 10>} 20 ? N, N+9 $30 NEXT N* VThe result of this loop is as follows:\ ]1a d10j r11 20x 21 >}30 31 40 41 50% -51 603 <61 70B This is the way the program would look. Please key i>}n this short demo program.# )10 --/ :20 CLS:?:?@ `30 DIM X$(70),SUB$(10),PAD$(10)f o40 PAD$="x ":REM>} FOR 'PADDING THE SUBSTRING 100 7SPACES= \50 REM ASSIGNING PSEUDO STRINGe rARRAY VALUESx 60 FO>}R N = 1 TO 70 STEP 10 970 INPUT "GIVE ME A WORD(MAXB U10 LETTRS)";SUB$:?[ y80 SL=LEN(SUB$):REM LENGTH OF} >} WORD !90 IF SL<10 THEN* ESUB$(SL+1)=PAD$:REM PAD TON Y10 LETTERS_ 100 X$(N,N+9)=SUB$:REM PUT >} VALUE INTO ELEMENTS! ,110 NEXT N2 9120 --? G130 ?:?M l140 REM DISPLAY PSEUDO STRING v ARRAY >} 150 FOR N=1 TO 70 STEP 10% ;160 K=K+1:REM COUNTERA [170 ? "ELEMENT ";K;" = ";e oX$(N,N+9)u 180 NEXT>} N 190 -- A line by line explanation of this program is as follows: 10 Draw 30 dashes 20 Clear the screen> }$ 30 Dim X$ for the total amount of( Fall the elements. The SUB$ isJ hthe length of an element. Thel PAD$ is the lengt>!}/h of an element 40 PAD$ = is the length of an3 Relement(10). It is used to padV va word that is too short - lessz tha>"}En 10 letters 50 Rem explanation 60 FOR-NEXT-loop. It starts with 1I eand ends with the number ofi elements(7) times th>#}C e length of 2each element(10) or (7x10=70).The6 Pstep is the length of theT element(10) 70 INPUT the words 80 Find >$}$aout how long each word is. 90 Pad each word to 10 characters 100 Fill the elements or the SUB$f with words. The sub str>%}ings or .elements are 1-10, 11-20, 21-30,3 31-40, 41-50, 51-60, 61-70 110 End of loop 120 Draw 30 dashes 130 Print>&}: 140 Rem explanation 150 FOR-NEXT loop. See explanation? pon line 60 160 A counter that counts the numberu of eleme>'}6nts in the array 170 Print the elements in X$(N,N+9); \The substrings or elements in X$a are 1-10, 11-20, 21-30, 31-4>(}0, B41-50, 51-60, 61-70 180 End of loop 190 Draw 30 dashesI LYouP can also print out individual element>)}Cs of the string array. Please change the following lines.I S150 N = 0Y x160 INPUT "WHAT ELEMENT DO YOU} >*} WANT TO SEE";N 4170 ? "ELEMENT ";N;" = ";> NX$(N*10-9,N*10)T c180 GOTO 150 r>w END }<>+} < SEE";N 4170 ? "ELEMENT ";N;" = ";> NX$(N*10-9,N*10)T c180 GOTO 150 r>w END ~< SORTING NUMBERS( (7=9F Uby Ron Fetzera rThe Bubble Sortx We B-}will use a bubble sort because it is the easiest to understand. We first load the numbers into a number arrB.}ay. In this sort 2 elements of the array are examined during each pass of the loops. They are switched if they are noB/}t in the right order - low to high. If they are in the right order the loop keeps on going. A bubble sort is slow bB0}5ut it is fine if you don't have too many numbers.; This sort uses nested loops. The outer loop is the same as the nB1}umber of elements of the array. The inner loop is ONE LESS than the elements of the array. The switching is done bB2}Aetween these 2 loops. In our program it is lines # 140 to 170.G Lets enter these 4 numbers into the bubble sort andB3} see how they are processed. The numbers are: 3,2,7,1 Between the outer loop(4) and the inner loop(3) we have (4xB4}3=12) 12 passes of the loops. The bubble sort arranges the 2 elements from low to high. If these 2 elements are out oB5}Chf order, it switches them. The array starts out as: 3,2,1,7 PASS NUMBERS ACTION ELEMENT ORDER l-m t-v |- B6}6 -D 1 [3,2],7,1 SWITCH 2,3 2,3,7,1 2 2,[3,7],1 OKN 2,3,7,1 3 2,3,[7,1] SWITCH 1,7 2,3,1,7 4 B7} [2,3],1,7 OK S2,3,1,7 5 2,[3,1],7 SWITCH 1,3 2,1,3,7 6 2,1,[3,7] OK] 2,1,3,7 7 [2,1],3,7 SWITCH 1,B8}2 1,2,3,7 8 1,[2,3],7 OK& 31,2,3,7 9-12= ?OKI R1,2,3,7X If we want to sort in reverse ordB9}\er from HIGH to LOW than we can change the greater sign(>) in line 140 to less(<).b Please key in this short B:}& demo program to see how it works. , 210 --8 V20 REM PUT NUMBERS INTO ARRAY\ g30 CLS:?:?m 40 INPUT "HOW MAB;}NY NUMBERS TO SORT";K% 350 DIM A(K):?9 K60 FOR X = 1 TO KQ o70 INPUT "GIVE ME A NUMBER";Nu 80 A(X)=B<}N:REM<--ARRAY 90 NEXT X$ +100 --1 E110 REM BUBBLE SORTK ^120 FOR T = 1 TO Kd y130 FOR Y = 1 TO K-1} B=} 140 IF A(Y+1)>=A(Y) THEN 180% 5150 TEMP = A(Y); M160 A(Y) = A(Y+1)S e170 A(Y+1) = TEMPk v180 NEXT Y| 1B>} 90 NEXT T 200 -- :210 REM PRINT SORTED NUMBERS@ [220 ?:? "SORTED NUMBERS":?a t230 FOR L = 1 TO Kz 240B?} ? A(L);" ";:REM<--ARRAY *250 NEXT L0 8260 --G RMINI SORTX The MINI sort is faster than the bubB@}ble sort. This sort finds the minimum valued element and places it in the first position of the array. It keeps oBA}n doing this until all elements are arranged from LOW to HIGH. In our program in line 50 we use E=K. K is the BB}number of elements we have. The sort reduces K to 1. We need the value of K to print out the array, therefore we make itBC} equal to E. VPlease key in this short demo program to see how it works.\ b10 --h 20 REM PUT NUMBERS INBD} THE ARRAY 30 CLS:?:?:K=0& D40 INPUT "HOW MANY NUMBERS TOM USORT";K[ k50 DIM A(K):E=Kq 60 FOR X = 1BE} TO K *70 INPUT "GIVE ME A NUMBER";N0 F80 A(X)=N:REM<--ARRAYL V90 NEXT X\ c100 --i 110 REM MINI SORT BF} 120 Y=A(1):Z=1 ,130 FOR R = 2 TO K2 N140 IF A(R)>=Y THEN Y=A(R):X \Z=Rb m150 NEXT Rs 160 SS=A(KBG}C):A(K)=A(Z):A(Z)=SS 4170 K=K-1:IF K>1 THEN 120: A180 --G d190 REM PRINT SORTED NUMBERSj 200 ?:? "SORTED NUMBH}HBERS" 210 FOR T = 1 TO E% 5220 ? A(T);" ";; F230 NEXT TL T240 --] sSORTING STRING ARRAYS| =BI}= 6THE STRING BUBBLE SORT< For a full understanding of a STRING BUBBLE SORT please reBJ}Cad the section on PSEUDO STRING ARRAYS and BUBBLE SORT first.I First we set up a PSEUDO STRING ARRAY. Without a BK}L string array you cannot sort strings. We are going to enter 4 words:R WZERO] aALLg mHOUSEs COMPUTERBL} A String Bubble Sort works the same way as a number Bubble Sort, except each element is longer. We switch BM} elements if they are not in the right order - small to large. The elements or substrings in this demonstration aBN}re: 1 to 10 (ZERO- )% 211 to 20 (ALL9-;)@ O21 to 30 (HOUSET-V)[ r31 to 40 (COMPUTER--)x The cBO}onfusion comes when we have to specify the substrings or elements for switching. In order to clarify this we use liBP}1ne 180 to assign variables to these values.7 FB(beginning)=YL ZE(ending)=Y+9_ BB(begin next higher elemt)=Y+BQ}10 'EE(end higher elemt)=Y+(10+9)- mPlease type in this short demo program to see how it works.s y10 --} BR} 20 REM INPUT WORDS INTO ARRAY& /30 CLS:?5 Q40 INPUT "HOW MANY WORDS TOZ bSORT";Kh 50 DIM A$(K*10),SUB$(BS}10), !PAD$(10),TEMP$(10)' 060 PAD$=": C":REM 10L SSPACESY v70 ?:? "MAX. LETTERS = 10":?| 8BT}0 FOR N=1 TO K*10 STEP 10 ?90 INPUT "GIVE ME A WORD";SUB$D U100 SL=LEN(SUB$)Z x110 IF SL<10 THEN SUB$(SL+1)=} BU} PAD$ !120 A$(N,N+9)=SUB$& 1130 NEXT N6 =140 --B ]150 REM STRING BUBBLE SORTb 160 FOR T=1 TO K*10 STEP 10BV} 170 FOR Y=1 TO (K*10)-10( 0STEP 105 L180 B=Y:E=Y+9:BB=Y+10:U aEE=Y+(10+9)f 190 IF A$(BB,EE)>=A$(B,BW}E) THEN 230 ,200 TEMP$=A$(B,E)1 G210 A$(B,E)=A$(BB,EE)L `220 A$(BB,EE)=TEMP$e p230 NEXT Yu 240 NEXTBX} T 250 -- /260 REM PRINT SORTED WORDS4 N270 ?:? "SORTED WORDS:":?S o280 FOR L=1 TO K*10 STEP 10t 290 ? A$(BY}CL,L+9) 300 NEXT L $310 --* A line by line explanation of this program is as follows: 10-140 See the sectBZ}Zion on PSEUDO SSTRING ARRAYS 150 REM explanation 160 Outer Bubble Sort loop.X xK=number of words X the element} B[}Alength. STEP = element length 170 Inner loop must be 1 element F eless than the outer loop. Thatj is why we have (K*1B\}+0)-10 180-220 We examine each element. If0 Othe 2nd element is larger thanT uthe first element then it is OK.z (smB]}all to large) - no switching.# CIf it is not in the right orderH gthen we do the switching, justl as we did with thB^} e number bubble sort. 230 End of inner loop 240 End of outer loop 250 30 dashes 260 REM explanation 270 Print 280 B_}VLoop to display sorted words 290 Print sorted words 300 End of loop 310 30 dashes\ If you want to sort largerB`}ED` strings lets say 20 characters long then change every reference from 10 to 20. They are in lines 50, 60, 70, 80, 11Ba}0, X120(N,N+19), 160, 170 (E=Y+19, BB=Y+20, EE=Y+(20+19), 180, 280 (A$=L,L+19)] If you want to sort from Z to Bb}0A then change the (>) in line 190 to (<)9 OTHE SHELL STRING SORTX Xm-ou The SHEBc}LL SORT is much faster than the BUBBLE SORT. The reason it is faster is that the number of comparisons to be maBd}de is reduced. If you try to sort 2 words or less than you will get an error because in line 90 the FOR-NEXT loop becBe}/omes an illegal reverse loop (FOR T=1 TO 0)5 uIn line 210 we assign variables to the element beginningy andBf} endings. 0B(beginning of element)=Y*10-96 PE(ending of element)=Y*10V rBB(Next higher elmt)=Z*10-9x EE(EnBg}ding element)=Z*10 ZPlease key in this short demo program to see how it works.` f10 --l 20 REM INPUT STRIBh} NG ARRAY 30 CLS:? ;40 INPUT "HOW MANY WORDS TO D LSORT";KR l50 DIM A$(K*10),SUB$(10),u PAD$(10)Bi} ,TEMP$(10) 60 PAD$="$ -":REM 106 =SPACESC b70 ?:? "MAX. NUMBER OF LETTERSk s= 10":?y 80 FBj}OR N=1 TO K*10 STEP 10 890 INPUT "GIVE ME A WORD";A FSUB$K \100 SL=LEN(SUB$)a 110 IF SL<10 THEN SUB$(SL+1)Bk}= PAD$ (120 A$(N,N+9)=SUB$- 8130 NEXT N= D140 --I \150 REM SHELL SORTa i160 X=1n 170 X=2*X:IF X0 THEN 2007 K270 NEXT T:GOTO 180P W280 --\ w290 REM PRINT SORTED WORDS| 3Bo}00 ?:? "SORTED WORDS:":? :310 FOR L=1 TO K*10 STEP 10? O320 ? A$(L,L+9)T _330 NEXT Ld l340 --r If you wBp}ant to sort larger strings, lets say you want 20 characters, please change every reference from 10 to 20Bq}G. They are in liness: 50, 60, 70, 80, 110, 120(N,N+19), 210(B=Y*20-19, E=Y*20) and the same for BB and EE,Br}r 310, 320(L,L+19). 5RELATIONAL BUBBLE SORT= =S-U[ A relational sort is if you have Bs}>2 arrays and they are related to each other in some wayB EandI the relationship has to be maintained. For instBt}ance, we want to write a telephone directory program. In one array we store the names and in the other we store Bu}the phone numbers. We are going to sort the names but the phone numbers always have to be switched with the name Bv},so the proper relationship is maintained.2 When we sort with the Bubble Sort the switching is done in lines 24Bw}/0, 250, and 260. It is done as follows:5 O240 TEMP$=A$(B,E):TEMP1$=Y aB$(B,E)g 250 A$(B,E)=A$(BB,EE):Bx} B$(B,E)= B$(BB,EE)# B260 A$(BB,EE)=TEMP$:B$(BB,EE)=L TTEMP1$Z A$ is the name array and B$ is tBy}he phone number string array. TEMP$ is in the name array and TEMP1$ is in the phone number array. As we switch each namBz}ie during a sort so we also switch the phone number array so it maintains its proper relationship.o We use a stB{}ring array for the numbers because many people use a '-' in their phone numbers and a number array would not accept it. B|}q A second reason is that if a number becomes too large it is expressed in scientific notation. w In ourB}}w demo program we DIM each element of the name and phone number array to 10 to make it simpler to understand.} B~}@Please key in this short demo program to see how it works.F L10 --R q20 REM INPUT NAMES AND NUMBERSz INTB}O THE STRING ARRAYS #30 CLS:?) B40 INPUT "HOW MANY PHONEK ^NUMBERS TO SORT";Kd 50 DIM A$(K*10),B$(K*10),B} &SUB$(10),SUB1$(10),PAD$(10)/ DTEMP$(10),TEMP1$(10)J S60 PAD$="] g":REM 10 p wSPACES} B}70 ?:? "MAX. LETTERS OR! 1NUMBERS = 10":?7 R80 FOR N=1 TO K*10 STEP 10X u90 INPUT "GIVE ME THE NAME";} B} SUB$ +100 INPUT "GIVE ME THE NUMBER";4 :SUB1$? R110 ?:SL=LEN(SUB$)W j120 SL1=LEN(SUB1$)o 130 IF SL<10 TB}CHEN SUB$(SL+1)= PAD$# D140 IF SL1<10 THEN SUB1$(SL1+1)=M RPAD$W j150 A$(N,N+9)=SUB$o 160 B$(N,N+9)=B}SUB1$ 170 NEXT N "180 --' F190 REM RELATIONAL BUBBLE SORTK g200 FOR T=1 TO K*10 STEP 10l 210 FOR Y=1 TO (KB}*10)-10 STEP 10 ,220 B=Y:E=Y+9:BB=Y+10:5 AEE=Y+(10+9)F e230 IF A$(BB,EE)>=A$(B,E) THENn r270w 240 TEB}MP$=A$(B,E):TEMP1$= %B$(B,E)* I250 A$(B,E)=A$(BB,EE):B$(B,E)=R \B$(BB,EE)a 260 A$(BB,EE)=TEMP$:B$(BB,EEB})= TEMP1$ #270 NEXT Y( 3280 NEXT T8 ?290 --D L300 CLSQ p310 REM PRINT OUT SORTED PHONEy LISTB} 320 ?:? " %TELEPHONE LIST":?* F330 FOR L=1 TO K*10 STEP 10K e340 ? A$(L,L+9);B$(L,L+9)j u350 NEXT Lz 360B} -- The two arrays can use the same PAD$ (ln #60) because they are the same size. They can use the same beB}Sginning and ending element numbers because they are the same size (ln #220)X If you want a printed list please chB}1ange lines 320 and 340 from PRINT to LPRINT.6 In a similar manner you could have a relational sort between B}a number array and a string array. For example you want to sort by score a bowling league. The sort would be done B}k on the scores(number sort) and the names would have to maintain their relationship to the score.p To get a cleaB}r understanding of relational sorts, please read the section on ARRAYS, PSEUDO STRING ARRAYS, NUMBER BUBBLE SORB}T and STRING BUBBLE; A END P< f the loop. In a similar manner all the o@SS QUICK-DOCS by Ron Fetzer - member of the OL' HACKERS ATARI U.G. INC. NY. USA.t u} F} E Fl mu THE TREAF}SURER'S REPORT = >d e} F}  gThis program is designed to be used by the treasurers of clubs, fraternalk yorganizations,} F}sports organizations,# Mcharitable organizations and individuals.T U{ F} The program is very intuative and easy to use. It is completely menu driven. It also is heavily error protecteF}d. The program can handle up to 200 INCOME ITEMS and up to 200 EXPENSE ITEMS. It requires the TURBO- BASIC XL LANGUAGF}E < =C The menu is self explanatory. You start the programF} by going to "START PROGRAM". After the Menu you are directed to an INFORMATION SCREEN. When you are finishedF} with that screen then you start with the INCOME section. You first enter a description of the income item and tF}hen the amount. DO NOT USE [, or $] with your numbers. Keep on going until you have entered all the income items. WF}hen you want to go to the EXPENSE section just enter "00" for the amount. You can leave the INCOME NAME empty or jF}lust enter for the INCOME NAME any letter you want. This name will not be recorded by the program.} F} 3 4: On the EXPENSE SECTION you repeat the same thing you did forF} the income section. When you have reached the end of all of your expense items enter "00" for the amount and you wiF}CKll go to the MENU. You can also erase the last entry by typing '**'.q rx You nF}ow can VIEW the TREASURER'S REPORT on the screen or print it. In the PRINT section of the program you can ask for multipF}le copies of the report.: ;a bh When you SAVE, LOADF} or ERASE A FILE it will be done only on Drive #1. DO NOT enter the drive number it has been done already by F}>the program. A loaded file can only be VIEWED or PRINTED.Q Rx y} F}x Take also a look at the DIRECTORY option. It gives you much more information then just the file names.} F} A BH The printer control codes are for EPSON printerF}s and are very universal. If you have to change the control codes for your printer see line #1330 - 1380. They aF}Tre clearly inidcated. Check also in the PRINT module where else they can occur.X Y} F} If you live in a country other than the USA you might want to change the "$" to the symbol of your counF}tries currency. The "$" appears in the following lines: 530, 630, 790, 1000, 1010, 1040, 1120, 1130, 1160, 1170, F}51520, 1550, 1580, 1600, 1640, 1670, 1690 and 1700.@ Ao This program F}[ runs only with TURBO BASIC. Hit the RESET key and and type in RUN "D:TREASRPT.TUR"` a} F}  You can make yourself an auto- run disk by: 1)Format a disk and put DOS on it. 2)Copy from this side tF}he AUTORUN.SYS file(TURBO BASIC) to your newly created disk. 3)Copy the file TREASRPT.TUR and rename it TREASRPT. ARB.F}! "H J Y>\ENDoPR@?YZ@abAijBpC)D)J}E F)G%H)I+5J)K;EL9MKONaSOHIP8IQYIR\IS]ITJ}cIUVW X'(Y/0Z78[?@\GH]NX^(I_^h`{I<anxbI c}J} @ D:TREASRPT.ARB`77THIS PROGRAM REQUIRES THE TURBO BASIC XL LANGUAGE[[OHAUG TREASURER'S REPORJ}T. WRITTEN IN MODULAR TURBO BASIC. VER 1.2 12/93 BY RON FETZERYYTHE PROGRAM IS SET UP TO ACCEPT UP TO 200 INCOME ITEMS ANJ}ZD UP TO 200 EXPENSE ITEMS. T** CONTROL MODULE ** ` P(P2P< @P^FPTZ** SCREEN COLOJ}RS **dO `6-$n8-@(,@0\8(WHAT SCREEN COLOR DO YOU WANT?x#-@`d@h#( 1: NORMAL"-J}@ @$"(2: AMBER"-@(,@0F"(3: GREEN!-@JN@Rq!(4: GREYB A`-@uy@}J}8SELECT A NUMBER >>B B#.m  @28)!@<I)P:,2-@(MQ@U9( <(c("ERROR: SELECT A NUMBER FRJ}&OM 1 TO 4m A`''AA*]AA 1AAH'A @a1 A01A@XJ}'A @1 A01AA4'A Fa1 A01A@eq'A w1 AJ}80QT** DIM SECTION **OGG;@ <C,;@ GN,;@ RY,;A@]d,9Aho,;@ s,]];J}A@ ,9A,;@ #,;@@'.,;@ 29,;@ =D,;@HO,;@S_,";@9cj,;@nu,;@y,;J}C@,;@,;@$,;@(/,;@3:,;@>E,;@IP,;@T[,;A@_k,,~~;A@ov,;@z,J};@,;@,;@%,;@)0,;@4;,;@?F,;@ JQ,;@`U\,;@`,6Q@TJ** MENU **J}T:O `6-(@#@'-:@15@99B^]-@ FJ@Nm.(ҧӠԠ@-@qu@y](J}"ΠҠǠh3-@&*@.@ (ՠ06. I 3(rE( 1. DIRECTORY-(2. START PROGRAME(J}Cn3. VIEW ON SCREEN|Q(4. PRINT (5. SAVE.(6. LOADD(7. ERASE A FILEQ(8. END--@rv@z-J} SELECT A NUMBER>>b  @$*)!@.;)P:,2-@'?C@G9( <(b(!ERROR:SELECT A NUMBER FROM 1 TO 8((J} @ )!@)P:,AbQT** START PROGRAM *** INCOME * O ` 6J}.6.6.$6-2+6.26.>6-8>J6-DJV6-PWq6.k.x6.6. J} L`-@ ,)( INFORMATION:;-@04@8=L( I-R5-@VZ@^5((DO NOT USE WITH NUMBERSJ})( (TODAY'S DATE>>"( ("OLD BALANCE DATE>>$( ($OLD BALANCE AMOUNT>$"( ("NEW BALANCJ}E DATE>>&/-@@$/(8-B|0'-@FJ@Ni' YOUR NAME>>:F-@mq@!u2(---J}-F((-2|D)-@6:@ >^) CLUB'S NAME>>NB`-@bf@j$(INCOME:6-@J}@ B(- X/-@$(@ ,1/(E-O|bX-@SW@[y) INCOME NAME>>76-%@}J}@4**N6-&@*X AdK-@.2@6\K(1TO ERASE LAST ENTRY TYPE '**' FORa uINCOME NAMEl>-@y@ J}@>($ҠӢҠҠv? A@-@DH@Lu5INCOME AMOUNT>$? AP8-@y@J} $(  . B08 A0: 6<!-@@D@HM0( W u: A0) 6-B:, @ y)6J}7%@ ,.&&67$@ "&@&,<$@ 0H,. 68,-N-@LP@TY/(n tA-@x@J}CN( %V"A!-@)-@1oL(&ՠŠĠŠԡҠV A"uA@J}  A /* EXPENSES *8 6.6-5;"6-AQ)6.,`86-W`C-@dh@l#( EXPENSES:5-J}@ @C( -&/-@*.@ 27/(K-U|Y-@Y]@a*EXPENSE NAME>>86-%J}@A4**O6-&@1Y APL-@59@=cL(2TO ERASE LAST ENTRY TYPE '**' FORh EXPENSE NAME 8-@J}@ 88(ҠՠҠҠ@ A<B-@FJ@Nx6EXPENSE AMOUNT>$@ A 8-@|J}@ $(  . B 38 A*: 9?!-@CG@KP0( Z x: A4) 6-B:, @ |J} )67%@ ,.>&&67$@ !%&@)/<$@ 3K,.H 68,-RP-@OS@W\/(q wA-@{J}@ P(  *\V"A!-@.2@6tL(&ՠŠĠŠԡҠV Apf"zAJ}_p A`zQT** VIEW ON SCREEN ** O `* VIEW INCOME *K@cekq'@uy@@}J}36- ?6-K6-$-/-@15@9/(ҧӠԺ%(%( OLD BALANCE  IS $4J}(1(& INCOME: :CURRENT BAL.4(-@>D&@Ht6-%8,6-6-%8,--(7$@ x&@J} <$@ ,$8,A7(= C>:@(GT,$AM@XcEA"@gm)"@0qw)"@E{)J}"@`)"@u)"@sEP "("( TOTAL INCOME IS...$P$* VIEW EXPENSES *.1`-@w@J}$1(ҧӠԠ8'6-*06-6<'6-BMB4(1(&R [EXPENSES:g CURRENT BAL.4(LJ}-@&@>V6-&8,6-6-%8,`--(7$@ BF&@JP<$@ Tf,$8,jA7(} J} >:@(,$AM@"-tEA"@17)"@0;A)"@EEK)"@`OU)"@uY_)"@cEP~ %("(TOTAJ}L EXPENSES ARE..$%(""(& @NEW BALANCE IS $''(H H_=g(o AS OF 6J}s-&+&,PQTFF** THE PROGRAM WAITS FOR A PRESS OF THE SPACE BAR TO CONTINUE **OAR@w(J}C4-@ @#G4(ӠҠϠ 6.Y,4>:@2Ku, A@) A`,AAR{J}*Q T** PRINT ** O `(6-066-<B'6-HN36-TZ?6-`fK6-lrW6-xc6-J} o6-{6-%6-+16-7t6.2))* PRINTER CONTROL CODES FOR EPSON *<.6.>:@'x,!6J}.>:@d ,.RESET CODEF**WIDE PRINT, E$;"W1" ON. E$;"W0" OFF.P;;E$;"D";CHR$(n);CHR$(0) IS THE HORIZONTAL TAB SETTINGSJ} Z*6.>:@ 7,*HORIZONATAL TAB STOPSd6.>:@;Q,FORM FEEDn4-@UY@]4(ԠҧӠԠJ}x>-@ @P>($PUT THE PAPER TO THE TOP OF ITS FORMZ A-@TX@\CHOW MANY COPIES DO YOU WANT>J} >F`Z"+A5AR@/5'-@9=@AY5( ǡ.@]d.@hl@prxP:J}!* PRINT INCOME *-@%1?(@5J6-B:,)6-@9NW&4(@[b?(@fp$$(@tD>:J},>: ,(@0W1F(@4;(@?FF(@JM W uTREASURER'S REPORT=6-{J}6- $6-B:,=6-@5'&P:'@+6,88(@:PW0D>:,>:Vn,DATE: O(@ryO(@}J}& @OLD BALANCE ON  WAS $o(@DK(@OVo(@Z]Hg sINCOME ITEMS} J} AMOUNT 2CURRENT BAL.tt(@69GC CO-O` `f-fu u}-J}---D>:@`,>:),00(@-0< ZOLD BALANCE$-@^d&@h"6-%8,6-J}6-%8,,TT(@ % -7$@ 15&@9?<$@ CG, P.o$8,$6 @=(@s=(@J} GTOTAL INCOME IS $J* PRINT EXPENSES *Td(@KRd(@VYHc pEXPENSE ITEMS} J} AMOUNT .CURRENT BAL.^XX(@25G? ?L-L\ \b-bq q|-J} h66(@  @BALANCE FORWARDED$r-@DJ&@Nw|6-&8,6-6-%8,TT(@{K} 7$@ &@%<$@ )-, 6.U$8,$ I(@Y`@(@dg"u TOTAL EXK}C!PENSES ARE $I6-B:,^(@%,L(@03$A THE NEW BALANCE AS OF  IS $U6.=:,^6-B:,FF6.K}<>=H88(@LO] c7@gp<+%%@'t,,'6K}-&+&,6-'6- *5(@.5(@9@5(@D_ PREPARED BY:(@cq(@u K} *@ AR!'* B+YQT** SAVE ** O `&56-_e6-kx"6..6-}K}56.05-@@F5(FILE WILL BE SAVED IN DR #1:'-@JN@Rx' FILE NAME>>Dd 6-B:,!@|K}*-@ @?(& VB(Z(FILE NAME TOO LONG!d APN367@Z^<@bq,.D1:-67@u,.36.K} X+@+@@"$*6b*(@:C(@GP*(@T`lD(@dm(@q*(@K} 7(@D(@(v-@,2&@6@--(@DL7$@ PT&@X^<$@ bm,(@q8, K } -@&@#--(@'/7$@ 37&@;A<$@ EP,(@Tj8, @nQTK }&** LOAD ** O `5 6.6-,2"6-8>.6-DT56.5-@X\@`5(PUT THE DATA DISK IN DR.K } #1 '-@@>' FILE NAME>>d 6-B:,!@BH*-@LP@TY?(i B(Z(FILE NAME TOK }&O LONG!d A ` " 6.D1:67@*<,."6.*? A!@G@KR5@VZ@^`f? A!4b-@K }@ *( I-(N(WRONG FILE NAME - TRY AGAIN!X BMab A `>*@en@r*@K}HD@@(*@,57@9BD@FSR-@W]&@ak\3@o367$@ K}&@ <$@ !,.f@%B68,-p z-@FL&@PZ3@^j367$@ nr&@v<$@ K},.@068,- @4QT** ERASE A FILE ** O ` 6.6.<-@K}@ :2(ŠŠΠҮ<6.D1:1-@>B@Fm' FILE NAME>>1 A"67@q,.6.K}G A#2@3@%'-6=@:MG A#  b-@QU@Y^*(n -(N(WRONG FK}CILE NAME - TRY AGAIN!X Bb A" Q T$ ** DIRECTORY **. O8 aaDIRECTORY MODULE BY ALEX PIGNATO AND ROK}=N FETZER OF THE OL' HACKERS A.U.G. 11/93 VERSION 2.1B 6-CI6-O\"6..6-bh:6-ntF6-zR6K}- ^6-7e6.l6.s6.z6.6-=C6-I_L Z(>:A%,6-ek.-@os@wV("SK}1EE DIRECTORY ON WHAT DRIVE(1,2,8)ZV ++"@5;)"@?E)"@IqA$ ` A#j  4M6-@ut !"K}@A$P! B$~ c"@(B(>:A%,#6.5-@FJ@N_($Is the new disk in the drive(YES/NO)cK} ! 4N6-@)! A$0 6@-1@5;'@?C@@Ga66-F:B24, 6-I:g, 6-F:A, K}" :6.NO BS "Ab6.A "@>f6.B "A46.C [6-lr6-x'6-K}F[ >:A%,$٭ҠˠӠ A"@JQ@U\>@`d@hjpD1:*.*A(K} A"@@ >@$(@,.4KD2:*.*A( A"@OV@Za>@ei@mouD8:*.K}*A( :AR@F:( ˠӼ ˠ  ( K aDRIVE #( @ev( H7@z<@K},4 06-%A:7@(,,>6-%@,@H A%( @DS2 6-A:7@W[<@_m,,< T(-@ qu@y- K} ?-@ @#CT( F 2) @GM*7@QU<@Yu,4999+2 :ENDP Y7@y<@K}O,4999+V 2Number of free sectors not accurately indicated.YZ S-@ SW@[v*  <-@ z@K }'S( %d #"@+;6.RAM# A'?n %"A6.SNGLx %!A6.1050 :K!}% A#-@@"=:(Ҡ̠ *-@ AE@Ig*(  *-@ ko@ s*(K"}  *-@ @ >*(  *-@ BF@Jh*(à  )-@ lp@t)(K#}ˠμ -@@ "+ ,-@ /3@7W,(Another Dir. [A] ,-@ [_@c,( [A] K$},-@ @",(Go to BASIC& 2[B] ,-@ 6:@>^,(à [B] ,-@ bf@jx,(Go to DOS} K%}C [D] ,-@ @',(+9 [D] ,-@ =A@EU,(Load a DiskY e[L] ,-@ im@q,(K&}&렠 [L] ,-@ @ @,(DEL MEM SV D8 [M]" ,-@ DH@ Ll,(֠͠ĸ [M], ,-@ pt@!x,(K'}Return - Menu [R]6 ,-@ #@!'N,( [R]@  J *-@ RV@"Z*(Select a letterT ARK(}a^ 3)4A)4B)4D)4L)4R)4M3 A)0h A(r -(>:A%,"@ei@9mt-@x| K)}!4RA0P ! 4A6-@%p! A# 4BA0  4DA00 O A$4ME@3ty@}K*} L D8:MEM.SAVO A$ ] 4L(>:A%,6.1-@PT@XY("Did you put a new disk in drive K+}#1] &7@<@8,4Y& A0@ &7@<@<@Dl,4N& A) 6(>:A%,'%-@pt@x3(K,}gà6 . 6-?:B,( Q T ** ENDING A PROGRAM ** O `AR@kt 2-@x@K-}((END OF PROGRAM2M@ ' " +-9AR?g"& Q0 TD:TREASRPT.ARB@kt 2-@x@Hd} D<FINYNSCRN_CDIM_SEAGAICONTRODENSDIRCTRFILEKEYSECTTLNKDFZFXDDCONVRMENNUPRNDELELOUNLOO0})RENATXFORMT_DOFILEND_FILDSES-/599=A >B B8CT  @GM)!@Q)P:,#(J("ERROR: SELECT A NUMBER FROM 1O7}E7Y TO 4T A ''APA`ApA1AAH'A @]x1 A1A@X|O8} 'A <1 A1AA4'A B]1 A1A@am'A s1 AO9}"Q,T6O@~~;@%!(,;@,3,;@7>,;@0BI,;@MT,;@X_,;@%cj,;@ nu,;@@y,;O:}@@,;@@.,JQTT^"O `6-4:"6-@Ih&-@MQ@Uo&( DISK DENSITYr&-@sw@{&O;}( - -|+-@ @$C+(1. SINGLE DENSITY)-@GK@Ol)(2. 1050 DENSITY+-@pt@x+(O<}$3: DOUBLE DENSITYB A-@(,@0O8SELECT A NUMBER >>B BS^T  @bh)!@l)P:,#(J("ERO=}bROR: SELECT A NUMBER FROM 1 TO 3T A""*** DIRVE INFORAMTION ***K` A@"-@fj@nADRIVE NUMBO>}ER 1,2 OR 8 >>K B%-#"@)/)"@39)"@=X- A@@(,(!\ ERROR: USE A NUMBER 1, 2 OR 86MO?}9A @ A@AQTO `AR@=H6"@LV6@Z^@bdjD1:*.*6"@O@}6@@#7D2:*.*6"@;E6@IM@QSYjD8:*.*&&#(u ӠOA} &(08@%8@:7@)-<@17,,!@G;RA:E(@Vj( E@:7@nr<@v,, @GOB}A`DPN''( OPRESS Š TO CONTINUEX 6.Yb,4>:@2Sg, A @) Ak,AlAROC} ,PvQT&O6.6-28&6->K#6.7@OS<@Wl,#6-A:,S"@pv)"@z26OD}-P:$A%,'A"S6-P:$@&*%?P.3,'@7BI"@F[(6-P:$AV,'A_kI6-P:$@os%?Pw,'@OE}Q0(0( YOU HAVE  K. BYTES OF SPACE LEFTQTO6-W+(+( 1: PRINT DIRCTRY. 6: TEXT ROF}HEADER--(%2: ERASE A FILE 7: FORMAT + DOS.SYS,,($3: LOCK A FILEL 8: LOAD A NEW DISK((( 4: UNLOCK A FILE 9: STOG}>ART AGAIN  (5: RENAME A FILE 10: END9( A/E ^SELECT A NUMBER>>9 Bbm R  @qw)!@{)OH}GP:,#(H( ERROR: USE A NUMBER FROM 1 TO 10R A*b4Q>THOR ( TITLE OF THE DOI}IISK>>\3 03f6"@4>6@BF@JLRfD1:*.*p6"@jt6@x@OJ} D2:*.*z6"@#-6@15@9;ATD8:*.*8@Xd8@:7@hl<@pv,,!@GzAOK} @\\7@<@),4DOS)7@-1<@5B,4DUP)7@FJ<@ N],4RAMDISKA ai@@3m u/ }_OL}$_1++@:7@59<@=C,, @GGKA OZ6363` YOU HAVE  K. BYTES OF SPOM}GACE LEFT 3 3  PQTO `6.6..-@KO@Sw.DO A NEW DISK(Y/N) 7@{<ON}@,4N P5-@ @$O5IS NEW DISK IN DRIVE(Y/N))7@SW<@[,4N`) A QT$OO}#O6..P8G Ap2@3',@028:@I=@MSG BWB!(!ERASE ANOTHER(Y/N)>>L6OP}7@ <@t,4Y& Ap)@3 A6AVQ`TjO6.6.t( FILE NAME>>~3"@x6.OQ}D1:-67B:,%@*,.36.3"@.E6.D2:-67B:,%@I],.36.3"@ax6.D8:-67B:,%@|,OR};.36.QTO6.PG A2@5?D@HJPRXa=@ekG Bo ( LOCOS}K ANOTHER(Y/N)>>67@!%<@),4Y& A)@3 AP6AQTO6.P G A2@6OT}@ $=@(.G B2_"("UNLOCK ANOTHER(Y/N)>>67@cg<@k,4Y& A)@OU}y3 A 6A(Q2T<O6.6.F"("ENTER OLD FILE NAME>>PENTER NEW FILE NAME>>ZW"@}OV}6.D1:-67B:,%@+,.C67B:,%@/A,.,W67B:,%@ES,.dW"@Wn6.D2:-67B:,%@r,.C67B:OW},%@ ,.,W67B:,%@-,.nW"@1H6.D8:-67B:,%@L\,.C67B:,%@`r,.,W67B:,%@v,.xGOX} AP2@2@$&,5=@9?G BCp"("RENAME ANOTHER(Y/N)>>67@tx<@|,OY}E4Y& AP)@3 A06AQTOPAR@I`B` A`@dk8@os@wy}OZ}C B B?-@@#\<("PRESS TO GO TO THE DIRECTORY?( )@`o* M@s F:BO[}[ 2y,"@FA@ A']F:A,"A6'@JYAR_wQT)O `6-}O\}"6- )6."--@ $@(I-(FORMAT WITH DOS.SYS,--@MQ@ UZ-(`-a e-f m-6D A-O]}@ @0:WHICH DRIVE 1 OR 2>>D B4?@M @CI)!@M(C("ERROR: SELECT A NUMBER FROM 1 TO 2M AO^}J0`-@@=0(DENSITY INFORMATIONT--@AE@ IN-(U-V a-j^+-@nr@v+(1.O_} SINGLE DENSITYh)-@ @$I)(2. 1050 DENSITYrAR@MV|A-@Z^@b A`7SELECT A NUMO`} BER>>A BT  @ &)!@*v)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 2T A`AR@zOa}E"@ `$-@@!ME(FORMATTING IN SINGLE DENSITY9"@QW!-@[_@c9(AND WRITING DOS.SYSOb} C"@ `$-@@"LC(FORMATTING IN 1050 DENSITY9"@PV!-@Z^@b9(AND WRITING DOS.SYSOc}M"@ *"@%BAS@)+139FD1:M@JUM"@Y_*"@crBAT@vx}Od} D1:M@%M"@)/*"@3BBAS@FHNPVcD2:M@grM"@v*"@Oe}BAT@ &3D2:M@7BB"@FM7@QU@Y[au D1:DOS.SYSB@yBOf}"@ 7@@ &: D2:DOS.SYSB@>MARS^$($f GO AGAIN(Y/N)>>YOg}7@ <@^,4Y(Y3 DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>67@bf<@j,4Y& A)@Oh}/3 A06A&Q0T:O `AR@3<D(-@@D@Hj((END OF PROGRAMNQARp6..-@Oi}@ :QRETURN TO THE MAIN MENU(Y/N)X;;7@>B<@FQ,4N)7@UY<@]u,4nA lp37@y<@Oj},4Y)7@<@),4y6`H-@ -1@5Q^(LOADING MAIN MENUpAUY@]hvE37@lp<@t,4Y)7Ok}@ <@,,4yE% D:NEWSLTR.BAS! +2:3>:@'>h,@!QT D:CLEANUP.TURlp<@t,4Y)7LgGC*V*FINYNSCRN_CDIM_SEPRINTEDENSAGAIDIRCTRFILEKEYSECTNTTTXTXPRPOLAMDNNEPSOATARYOURDDCONVW}m Quick-Docs by Ron Fetzer@ Ag hn The "CLEANUP"Sn} program Jis designed to remove unwanted files from your disk.p qw Menu So} option 1 the PRINT DIRECTORY will print the files on the disk in a single column. Next to each file it will Sp}>print a line so you can write a short sentence about theB program. It will not print DOS.SYS, DUP.SYS or RASq}GMDISK.COM. This is usually the FIRST option that would be used.m ns The menu oSr}ptions 2 to 5 are DOS options that need no explanation. You can use then with the wild card symbol of *.* or ???Ss} if you want to.6 7] ^c The menu option 6 is tSt}he one you will use the most. This option will LOAD ANY FILE expect graphics files. It can read DOC FILES, ASCIISu}^ FILES, LISTED FILES, WORD PROCESSING FILES, SAVED FILES and even ASSEMBLY LANGUAGE FILES.t u} Sv} $ Files stored with the "SAVE" command are put on the disk in tokenized forSw}m. This makes then unreadable except that the strings are not tokenized. Usually you will obtain enough informatSx}Wion from that to identify the program. The same is true of Assembly Language files.\ ]} Sy}  dOPtion 7 formats a disk in single or 1050 density and puts the DOS.SYS on it.{ Sz}% &, Option 9 is used if you have to start again and designate a new disk drive orS{} a new density. D EL OTheS program stores itself automatically inS|}W the Ram Disk D8. If you do not have a Ram Disk remove line 40 from the program.c d} S}}  If you cannot identify a file. BREAK the program. Run the file and see what it is. To get the prS~}C>ogram bak type: RUN "D8:CLEANUP.TUR" from the Ram Disk D8.S Tz S} If you want this program to be free standing on another disk copy the file named "CLEANUP.TUR. Be sure it is onS}r a TURBO BASIC disk. Call the new file CLEANUP.ARB. On this new disk be sure the file RANDISK.COM is on it.} S}ZRTITLELSORFJJDFCSPR_SRYXESENEEKLKLCHR4INDSKAADD^^j":nrs?{ @A DISK LW}ABEL PROGRAM99MODULAR PROGRAM BY RON FETZER.USE TURBO BASIC. 8/91T( ` P2P<PFPPPZPdPW} n @#xTO `6-)28-@6:@>j8(WHAT SCREEN COLOR DO YOU WANT?#-@nr@v#( 1:W} NORMAL"-@@2"(2: AMBER"-@6:@>T"(3: GREEN!-@X\@`!(4: GREYB A-W}@ @-8SELECT A NUMBER >>B B1<T  @@F)!@J)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 4TW}R A''A A0A@AP1AAH'A @Vq1 A`1A@Xu'A W} 51 A`1AA4'A ;V1 A`1A@Zf'A l1 A`QW}TO"~~;@%!,;@%,,;@07,;@;B,;@FM,;@%QX,;@0\c,;Agn,;@0ry,;A}W},;@ ,,RR;@",;@&-,;@18,;@<C,;@%GN,;@%RY,;@%],6Q@TJ+O `6. W} $6- +6.T'-@$(@,'( PRINTER TYPE:^Q(#(1: EPSON & COMPATIBLES;(2: ATARI - XMM801Q(W}A3: YOUR PRINTERh$( ($SELECT A NUMBER >>rS  @EK)!@O)P:,#(I(!ERROR SELECT A NUMBER FROM 1 TOW}C< 3S A`|%%*** PRINTER CODES FOR EPSON ***+"@@H+3>:@'LW,A>:@[g,"@ks3>:@w,!W}"@ !3>:@'M,S0&&*** PRINTER CODES FOR XMM801 ***+"@QY+3>:@']h,A>:@lx,'"@|W}'3>:@' ,>:@ ",+"@&.+3>:@'2;,R>:A,***** PRINTER CODES - YOUR PRINTER ***99IF NN=3 THEW}N LPRINT ...(CODE FOR 6/72 LINE SPACING)??IF NN=3 THEN LPRINT ...(CODE FOR COMPRESSED OR CONDENSED)33IF NN=3 THEN LPRW})INT ...(CODE FOR SUPERSCRIPT)+`-@-1@5Q+(USE LABEL SIZE%-@UY@]v%( 3.5 X 15/166-@z@W}16ADJUST LABEL POSITION(Y/N)*&"@5;*7@?C<@G[,4Y*P*&"@_e*7@im<@q,4Y*P&W}*&"@ *7@<@B,4Y*P0Q:TD"O `6-HN"6-T]N&-@ae@i&( DISK DENSITYXW}&-@ @&( - #-,b+-@04@8W+(1. SINGLE DENSITYl)-@[_@c)(2. 1050 DENSITYv+-W}@ @8+(3: DOUBLE DENSITYB A@-@<@@Dc8SELECT A NUMBER >>B BgrT  @v)!@W}v)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 3T A@""*** DIRVE INFORAMTION ***I` Ap"-@z@W}(?DRIVE NUMBER 1 OR 2 >>I B,7#"@;A)"@E`# A @=()(d ERROR: USE A NUMBER 1 OR W}E23MA = ApAQT#O `6.#AR@IT6"@Xb6@fj@npvD1:*W} .*6"@6@#@')/@D2:*.*&#(K hӠΠ &( 8@lx8@:7@|3 ( 3@:7@04<@8>,, @GB]AHPARcR.(.! PRINT IN ALPHAW}BETICAL ORDER(Y/N)\*7@#'<@+c,4Y P#@'P*AfpQzT&O6.6-io&6-u#6.W}7@ <@&,#6-A:,S"@*0)"@4I26-P:$A%,'AMYS6-P:$@]a%?Pej,'@nyI"@}W}C(6-P:$AV,'A%I6-P:$@)-%?P16,'@:0(0( YOU HAVE  K. BYTES OF SPACE LEFTQTW}"*O `6.6.*AR(1.-@59@=a.DO A NEW DISK(Y/N) 7@ei<@m,0Y P9-W}@ @=9IS THE NEW DISK IN DRIVE(Y/N)$$7@AE<@Iv,0YAQT_O6. 6-|W}'6- 9AR@#E6-)NL6.T6. \6. _`$!"@Ro!6. D1:DISK.CAT.!"@s!6. D2:W}DISK.CAT85`-@@ F5(SEARCHING FOR DISK TITLEBf AJT-@X\@`bhq:@uQ6.W}7@ <@,\@"f B&1L6"@5?6@CG@KMSgD1:*.*V6"@ku6@y@W} D2:*.*`@#96-B:,jpp7@=A<@EL,4 DOSQ ZSYS)7@^b<@fm,4 DUPr SYS)7@W}<@ .,4 RAMDISK COMA t6-%@2?~//67$@CG&@KQ<$@U\,.7@`l,"@p AW} A AR"0b`7@48<@<G,4 1-@KO@SPDISK TITLE(MAX 10 LTTRS)V6._6-W}B:,b`W!@'6. `,-@+/@3PC(DISK TITLE TOO BIGMM@TW APQTOAW}R@ S!@T$`$-@(,@0kE(TOO MANY FILES - 54 IS MAX.!OMA SP%`-@os@w%(SW}ORTING!6-&@#6-@'>  6-776-P:+@BO#P:K:,'K:@SY,,&@]b,%?Pfr,$-@v&$W}-@ 6(%6-$&%@#@6-$%6-$2?6-%@Dd)7<,/7%+,<%+,,56-@h? AP<96.7W}G<,&67<,.7%+,<%+,,967%+,<%+,,.F   P7#6-+%@KP,'@TX&@\b7!hAZPdQW}nTxO6-%6.&6-+126-7=>6-CIJ6-OUV6-[ab6-gmn6-syz6-}W}6-%`-@"@&>%(PRINTING"@BV6.SD"@Zp6.1050"@t6.DDW} 6. &@-%@*.@T2<<67$@@D&@HN<$@Rd,.@ 3 @hp6-@t'6-@W} 36-@=!@$* @(0%6-@4<16-@@H=6-@LW=!@[a* @em%6-@qy16-@}W}C=6-@ =!@ !* @%-%6-@1916-@=E=6-@IT=!@X^* @bj%6-@nv16-@z=6W}-@ =!@* @"*%6-@.616-@:B=6-@FQ=!@U[* @"_g%6-@ks16-@w=6-W}@=!@!* @%'%6-@+316-@7?=6-@CN=!@$RX* @(\d%6-@ hp16-@ t=6-@W}=!@'* @1$%6-@(016-@4<=6-@ @K"=!@0OU* @4Ya%6-@em16-@qy=6-@"}W} ,=!@3* @7!%6-@%-16-@19=6-@$=H6=!@6LR* @@V^%6-@bj16-@nv=6-@&z@W}=!@9 * @C%6-@"*16-@.6=6-@(:EJ=!@BIO* @FS[%6-@_g16-@ks=6-@0wT=W}!@E * @I%6-@'16-@+3=6-@27B^=!@HFL* @RPX%6-@\d16-@hp=6-@4th=!W}@Q * @U%6-@$16-@(0=6-@64Ar&&@EI@MOUdP:|JJ(@h  DENSITW}2Y=  FREE SPACE=K/SECT-@6K 6-(@OW7$@[_&@ci<$@m, 7+%,$W}@ &@<+%,$@0, 7+%,$@48&@<F<+%,$@JQ,6-Wb!!!@$fl* @(pA W}"@ %33 5; @ )1 6-@ 5?&.-@CW135 <!@ [a* @em'6-@q&5-@W} 83<  6.$"@$D$6.SINGLE DENSITY""@Hf"6. 1050 DENSITY$"@j$6.DOUBLE DENSIW}TY 3 3*`-@@#E*( DENSITY IS U 6.-@IM@QoU2IS THE NEXT DISK THE SAME| DW}@ENSITY(Y/N) 4N'P&  Q0T: O `D(-@DH@Lh((LABEL POSITIONN-@lp@t(EPSOW}NX ( (b!!(+_4l!!(|;*<\K U|v!!(|] g\ 1/8 INCHl v|!!(|} W} FROM TOP |!!(|$ (EDGE1 ;|!!(|R \|!!(|s_| ( (W}I>( (>.CHECK LABEL POSITION ON THE PRINTER (Y/N) >>$$7@MQ<@U,4NA PLABEL POSITION003W}*>:@'$,j>:@6(i,5 6. ((1(ADJUST LABEL POSITION(Y/N)5$$7@mq<@u,4YAW}C /-@@ +3 /3>:@'/?,23>:@'CN,A>:@Rq,Q T O ` (-@uy@}W}((LABEL POSITION*)-@ $@(M)( ATARI - XMM8014 ( (>!!(f_oH!!(|v*w\} W} |R!!(| %\ 1/8 INCH* 4|\!!(|> FFROM TOPK U|f!!(|_ cEDGEl v|p!!(|} W} |z!!(|1_| ( (>( (>.CHECK LABEL POSITION ON THE PRINTER (Y/N) >>$W}$7@ <@<,4NA"`LABEL POSITION,,3J*P>:@'T[,>:@_,5 6. ((1(ADJUST W}#LABEL POSITION(Y/N)5$$7@'+<@/G,4YA" -@KO@Sx3 QT O `(-@|W}@#((LABEL POSITION&-@'+@/Q&( YOUR PRINTER ( ( !!(j_s !!(|z*\ W} |$ !!(| )\ 1/8 INCH. 8|. !!(|B JFROM TOPO Y|8 !!(|c gEDGEp |B !!(| W} |L !!(|5_|V ( (` >( (>.CHECK LABEL POSITION ON THE PRINTER (Y/N) >>W} j $$7@<@@,4NA$pt LABEL POSITION~ A3N*AYOUR PRINTER CODE FOR REVERSE LINE FEED 5W}< 6. ((1(ADJUST LABEL POSITION(Y/N)5 $$7@@D<@H`,4YA$0 -@dh@l3  Q W}T O `AR@& (-@*.@2T((END OF PROGRAM QARZg6..-@ko@sQRETURW}$N TO THE MAIN MENU(Y/N) ;;7@(,<@0;,4N)7@?C<@G_,4nA%` 37@cg<@kv,4Y)7@z<@W},4y6`H-@ @=^(LOADING MAIN MENUo3>:@'AL,@APT@Xc E37@gk<@o,4Y)7@W}<@ ',4yE% D:NEWSLTR.BAS ! +-53>:@'9c,@! Q T D:LABEL.TUR@gk<@o,4Y)7@T` Quick-Docs by Ron Fetzer@ Ag hn The DISK LABEL [} program prints an alphabetical list of your disk directory on 3.5 x 15/16 size pressure sensitive labels. [} 0 17 The program can print 27 file names on one label. If there ar[}Ge more than 27 names it will print it on a second label. The program can handle a total of 54 files. The progr[}Uam will ignore the following file names: DOS.SYS, DUP.SYS and RAMDISK.COM.n o} [}  The program will search for the disk title that was placed on the disk with the CATA[}LOGER program. This title will be printed on the first line with the disk density information and the number[} of K- bytes of free disk space. If there is no disk title on the disk then the program will ask you for a[} title.' (N OU To adjust the labels correctly in you[}r printer use the LABEL ADJUST section. Move your label either up or down until it is in the right position. On[}ce you have found the correct position make a dot with WHITEOUT on your tractor feed housing. Now you will [}Thave a position indicator of where the beginning of the labels are to be placed.] ^} [}  tIf your printer is not an EPSON or COMPATIBLE or an ATARI then you must put into the programx YOUR[} PRINTER control characters. Please unlock the program and list it. In lines 470, 480, 490 remove the REM. In lin[}e 470 put in the printer control characters for 6/72 line spacing. In line 480 put in the control charac[}ters for compressed or condensed. In line 490 put in the control characters for superscript. See the example: 470 I[}aF NN=3 THEN LPRINT CHR$(27);"A";CHR$(6). 480 IF NN=3 THEN LPRINT CHR$(27);CHR$(20). 490f hIFl pNN=3t xTHEN} [}tLPRINT CHR$(27);"R";CHR$(0). Also look at lines 390-450 to see how it is done. In line 2360 remove thex REM [}Vstatement and type in the reverse line feed code for your printer. Example:` d2360m vLPRINT "}*[}**";CHR$(27);CHR$(10). (Be sure to remove the colon - keep the semi colon). Also look at lines 1930 and 2150 for gu[}Qidance. When you have done this save your program with SAVE "D:LABEL.TUR".c d} [}C  If you want this program to be free standing on another disk copy the file named "LABEL.TUR" [}: on a TURBO BASIC disk and call it "LABEL.ARB".S Tz [} RTo use this program hit the RESET key and type in RUN "D:LABEL. TUR".r s} [}  .>1ENDC M>PENDa;}C> END<A Bj lp s }>8lCx{ EE