@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}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}}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},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭ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|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 160ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u|Vol: he ||Issue: || T}   ||   ||   || U}   ||  ||   || V} ||  ||--> <--|| W}  ||  || Atari User Group Inc.(c)1985 |*** Ron Fetzer, EditX}or ****** 22 Monaco Ave. ****** Elmont, NY 11003 ***Y}|Charter Member NEAR*US ATARI USER Gp.|| ήҮ |Z}|Charter Member NEAR*US ATARI USER Gp.|| ήҮ |FCIOSCRSACHSALSA ;@ ,;A X,-@ \}?AR@E }WAYiA @{A@ A@$c6.hhhLV6.  ]}*67A X,. 967@,.B6-C:,S6-P:'AV,c6-&$AV..@@ D:WELCOME.SCR(Q ^}AP@!AR-AS?AVQAW@2! @`!6-?:C:,<@,< }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}OEPOEPGCOLINDPEEDPOKDLSHDGSFTDSCODSYSVBSETVBDUMMYc} d} !"#$%e}&'()*+,-./012399Ԡf}Š SAVE "D:NEWSLTR.BAS 6-C:hhhˠ˅ȱ˅`,6-C:hhhˠhˈh`, ?6-6-g}@'6-@36-@?6-@R@AR 6-?:<Bg,56-C: hhh \`,@6-?:<,2 AfF:Ah}f,%@,@2-5K:6-6-)6-A256-@11;A,;@8,;@@,;i}@,//6.%```BBBA$ 6-C:,6-C:,$6-?:<%<,d6-?:<@,%@16-?j}:<%@<,:6-C:,O6-?:<%@1<,d6-?:<%@5<,226.(倯쇀򀀀 ZZ6.k}P썣݀倀倀33;,;,;,;,;,;,;,;l}A2,L!! D:WELCOME.SCR* A6.6. * Ax666.,THE OL' HACKERS' ATARI U.G., INC.m} NEWSLETTER67B:,%,.7<@8,&-B:,6&7<,0 A @@ 6. 67@,.#67,.76-+n}@&,'%@67,.56.D1:MAINMENU.HLP)5@ 6.C AP"67B:,%,.967o}B:,%,.>:AU,C A:-AY!(}7:,!*@8B:,"@A( A 6 (u}}-@ @ 6( What's Your Pleasure?" ;-@@4(enu rint ead: ;)T 8"@w(v}(.( Main Menu....8 A "@AT 8"@((.( Read File....8 AGP .-w}B:,6. D1:**.TXT.67<,.7<, : A2AY)0(}: A4N   A F:Ax},"A6A7P **"@e*F:A,"ApA1P pAY@44@e*F:A,"Ap:(}L-@y}@p(Not In This Months News Letter ! AGP AGP! A1PH h6-?:<A`,'6-?:<A`<,-(}z}?@@#QAY@4W6-h6-?:<AV, 7 (@w7F:Ad,"AFA7P  6-%{} @!A5B F:Ad,"AUA6P[ F:Ad,"AFA7Pt%AdAU6-% A5Z|}AdAU(0(Z($Press a Key or Trigger for Next File F:Ad,"AUA8 H}}AdAU!AY46-?:<A`<,?6-?:<,E(}H$<NAY%6.D1:PRESSPRT.MNU*5G@~}@@N(}n((6-C:hhhhh Ȅԩ`,AY" AA(" A@PAY@4}6--@@ &( Selection: -)h!!"@i)"@eAH"@xADP"@c' }A@AAP0G AE(}3D1:PRESSPRT.HLP= A4G A9bC6-@f6-@V}!6-'6-36-@96-C AR&6-F:A,&"A6A7PU (}-@@'"A8K(}Your Printer is Not On Line...U AGP<"Ap2(Printer Help File Not Found...< AGP*= (}-@@}3(ERROR # F:A,= AGP\ A9-A $7@6-!"@e'6--6-7 AI}Pa (}-"(Print Style?0( . DraftF(. Double Strikea(. Near-Letter Quality$0)@6-&}@d0 )!AHPVU (}-3( Page Columns & Line Spacing?U(. 2 Columns at 6 Lines/Inchh%(. 2 Col}umns at 8 Lines/InchG(. 3 Columns at 6 Lines/Inchh(. 3 Columns at 8 Lines/Inch( )( @e)!@hAIP}g6-@f6-@V'6-@-6-C"@f)"@hO6-@[6-@g6-@v!@f6}-PI (}-!( Paper Type?4(. ContinuousI(. Single Sheets( )( @e)!@fAR"@}f6-&'Û$A 6-6. D1:**.TXT6-%6-16-B7"A A9JY (}-,(ll, dd, }ven, or8-@Y(irst Odd, then Even Pages| )55@e*@y*@i*@pATPT6-}+"@p,-@D( very Page or artial Block?HT6-@y( )(@i*@AVPD"}@iAYPv:( First Page?  AWP,@: AWP 6-P:,:( Last Page?  AXP,@}: AXP  6-P:,>0 A`&@P:0 A`Pp<.(&Check your printer, then press .2}< AYP 6. AU (}-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.^}-@j= 6. 67,.67,.#6.)6.16-%=@w/ - A6-'6-@@/-"F}:Ad,"A8" A,F:Ad,"AF", A2& &AeAePAfd67<,.} AfP67<,. AfP67<,.! 6-%6-%@9 ! ,"F:Ad,"A8" A^,F:Ad},"AF", A Ay""'"P:',*"@yAy""'P:',*"@iAy&9 A}&@P:,"9(@=X "*"(Gb "*"(x16  '6-+",$%+",$}+@&,6(=:,N (((":6-+",$@ %+",$@G*@'N*: 6-6-@@}-$6.*":6.  "F:Ad,"A8" AR,F:Ad,"AF", A<67B:},%,.7<,)67B:,%,.7<,<67B:,%,.7<,"6-?:<- 짠򠠠}Πռ <-Š-> ۱ Exit }To Basic ۲ Exit To Dos ۳ RUN Side 1 ۴ News/PrinterHelpԠSPACEBAR}ϠΠà͡ READ/PRINT ALL! Sub. Attack } Using Arrays How to Sort Treasurers Rpt. } Disk Cleanup Disk Mini Label } } )6^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<}11111{!!\]_\ED!EOHI B V`}   } The OL' HACKERS Disk Newsletter Help File  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. To 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} are sent back to the Newsletter Main Menu. About The Printer    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. About Configuring Your Printer     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-  |짠򠠠| ||  } pson Fx86e and Epson Compatibles. Panasonic Star. Star Nx1000 Gemini } Sakata Sp100 tari 1025 Printer on Epson Compatibles and Daisy Wheel Printers rint Ro }om Help File ۿ Return To The Main Menu on Epson Compatibles and Daisy Wheel Printers rint Ro / The Composing Room Help File Before 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$}hout 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}MSGDCHSECN20D20P20N2D2P2YNYHSZSBSSB5`} 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أ$}LENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ}$ ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(}0000000--**2*(22(2222222 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**""""}""&О"("!""" "L**""""""&Оd}"("!""" "L**""""""&ОL-6"e"}"e""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"}""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօ}ׅ؅`` ` ` `80 `ԥՅ +.JJJJ)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}Պ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 `  䅠 _ɠԐ}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?L} KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhh}h`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ ԝ`} 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} é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 ԅՅ֦}󅗄`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 ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤ} /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}} L}٩    e쪽pLyL( + ڥHJJJJ 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֨҄`#}I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,$} , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!%}!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ&}iȅȩȩ Lfإ  4  \ +] ¥򄟄'}   넨ɛ$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`h+}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}PADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%57}&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/08}1 2!3"4Ɛ"-"."-؂ٿ֐ː9}ĐאŐbj+9,+;,ʐͭ:}ͭ@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}0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #G}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰H}#)iiLɠL4űI&`048ץğ=ȱȄ 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}0g `Ո 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 IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DIP}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0Q}` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC@ sŠ 5  <)  <R} L L + e +e`e`&&&&&&eee` &S}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= T} ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8U}`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ V} `  M 8*` 兙 󥐅i祣L{ &LW}  0 & L ȑ & L; # )ȱ L X})ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ`Y}``=`]``` E߭H Ġ} hL±&Lv`[  ȱ R] Z} L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R] hJWORDYNRENU `AR@5-@-\}@5(I AM LAODING THE NEWSLETTERA-@@%( Š/M@`AAR([ D:AUTORUN.COM-]}2 D:BOOT.ARBTHE NEWSLETTERA-@@%( Š/M@`AAR([ D:AUTORUN.COM,AAF`!`H$-%.HH \hhh(`.HM)   !h(L`N) 1_}!"`3!3:A%5f},+i;@0,;@0,;@0,;@0,;@0,;@0,;@,E-@@$( SUB ATT5g}ACK6-@@E( ----------1-@@1(ENLISTMENT INFORMATION:,-@@,(______________5q}B%DOS SYSB*)DUP SYSBSWELCOME SCRB[WELCOME BASB>aNEWSLTR BASBMAINMENUHLPbAUTORUN SYSBHELP DOCBPRESSPRTMNUBPRESSPRTHLPB RAMDISK COMB[BOOT ARBB^AUTORUN COMB]SUBATACKTUR BSUBATAKTXTBYCARRAY TXTBl,DSORTINGTXT!ETREASRPTXTuTREASRPTTUR=/CLEANUP TURmFCLEANUPTXTUlLABEL TURGLABEL TXT___|!$-@@ (NAME:$$,-@@,(_________________|'$-@@ (TOWN:$*,5r}-@@,(_________________|-$-@@ (DATE:$. A32X A @A@5s}@ D1:SUBSCOREL@X6-@0<" A%A"@0 A0P +d 5t}˛x5 A6-@# Au5ҠƠӛ96-6-'6--6-96-,5u}6-@,F:B7p, A(A--6-P:@$F:B7p,'AV,$@Af@'-@1@5v}P(7$@%@<$@%@,b-@1@ (7$@%@ <$@%@,!*" A 5w}J +-@&B:=:,,'@@#5( D(HI= J6-N$"**F:B7p,!AN6-P:@05x}$F:B7p,,'AV%AmAf'-@ K(>:AT,>:@(,>:AT,Y6-%@m"5y}@AP!6-R:,!6-T:,_"*"G6-%$@@&@@%%@$+"@,M6-5z}_@w-8,6-8,-@w) 6-8,)F:B2y,"@A= )-(5{} %6-+6-=@wH 6-%! )!@1)-&7( H6-@2&O:,) 6-%!5|} @)!@")6-&"?#6-@%@$+ @,)-?(7<%@,,"A6W%5}}'%%@56-%@@A!A M6-W A@% 6-%6-F:,%6-F:%@,JC"5~}*"%A9%@AC AT[ -@6@4-@IAF:B7p5},[@ ^ F:@ , @APh` 8,%@8,92@p@X2@F:B5}7p,\ ` r##%@|I"A)"A%6-16-?6-%AI 5}A^ -AP6@&-P(7$@%@<$@%@,^6-@&-@6@ 5}1)2'@@'@- 1 %6-&@%"A0g -( #6-@/65}-@";6-G6-S6-] Aug A !6- A5b +@BB@d905}@@ @K-@@b(@ Š--@-(@  ]-@@5}+(@SCORE:=-@@](@press 3-@@3(@SCORE TO BEAT:5}0-@@0(@ THE SAVE SUB-5-@5(@ROUTINE-RON FETZER4-@@5}4(@THE HI-SCORE SUB-7-@ 7(@ROUTINE-ALEX PIGNATO6-@6(@MEMBE5}RS ̧++F:B2y,@*T:,A`@w @P"AF:,"A5}Q6-&@@ %A`+6-G6-+&@,$+!@,Q A< 6-F:,"25}A$+!%A,< A=F:,"A)F:,"A'6-%36-A= A@L -@6@5}4-@@@6-L6-4-@@@@4AF:B7p,&k&&8,%&8,5}:6-+F:&&@,,W6-+F:%%@,,[ c6-%k6-%0)2%))A@:C 5} 6-96-%@@%+@#&,$@C A?[-@@#"( 0-@L-$@&@5}@#T([\X [$DNc(W9@,9@,;A(,;@,9@,9@,5};A,c-@XI +76-F:A`,%AV$F:Aa,%@IAR@b0@@75}0@@Q0@@@k0@@@0@@@lm&@@i5}+-@@#9%@= Y%@A(%@m%@$@v%%6-F:@,%AV$F:@,5}8$6-+F:A,&@,$AV8AV'AV""F:%@ ,"@A@_-@+-5}@1W%$@@%@%@%$@2%[ _ 1 #A@!-AA#%"-%1 '-A5}'"#%' 6-A(A2%AU&F:BsD%,6 E-@-%A%AU1 5}E%AA9/-@"+%Ar%/ --@%")A6%- M*@5}A%(-@0<-@I*@M 9A'A@9BBA5 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}0,160,160,160,160,160,160H##120,121,122,123,124,125,32,32RG-@@+67,.>:%@1,/ G67@,.>:@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-@"/-@5">68,-G68,-K z$!!246,247,208,209,254,255,0,06 6-$6.::::::5}::::::::::::::6A@T=67@!,.*::::new::::high:::::::T67B:,%@,.=:,9-67B5}:,%@,.:::::::::::::::::::::96-@1-@B:,&@ %%2@@@9-@5}@#'(7<%@,9@  F:@ , @A p%%2@0@@l-@5}(grstu -@ ;6-&@G"S-@`( l6-@1 F:@ , @A5} 6-@ @2,@#1/@@#C,@@#U,@g/@9@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}1,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},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}41,24,208,169,128,141,26,208,104,64N# B6-# @` (>:A%,+@ ""(@SUB. C5}OMMANDER IS !!(@** RON FETZER ** (@ ELMONT, N.Y. )(@)(@ MISSION DATE: (@5}JANUARY 1, 2000 ((@((@ ENEMY KILLS; 0$(@ 500 SHIP TONS06-A SS(KTo becom5}e the COMMANDER of the sub. your ENEMY KILL SCORE must be higher! $$( TO CONTINUE PRESS ( "F:B2y,"@5}" A&02 A&F $  v@7@@ D1:SUBSCORED@Q@^@5}k@v@  6.6.6.6- (>:A%,+@ ""(@SUB.COMMANDER IS: (5}@**  ** (@FROM  )(@)(@ MISSION DATE: (@ ((@((@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,"@" A1PD A10N $  F(>:A%,(((5}(("(4@@F@@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@<@,4YA3* $$7@<@,4NA44 J A365}-J@3@ D1:SUBSCORE> #6- B# A4H $  @7@5}@ D1:SUBSCORED(@Q(@^(@k(@v@6-@0 -@A 5}  $ D:SUBATACK.BASOC(@v@6-@0 -@A 4H8<<  B JKIHiDiELV`L8 8 BLV`Lx)}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`H)}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0IC)}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::i)}::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;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  )} L;D8:; :9 :Y;L}TO 2 140 FOR K=0 TO 3 150 ? "BOWLER ";T+1;" GAME #"; K+1; 160 ? " = ";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>}ve. The FOR - NEXT loop starts with 1 instead of 0. See the program below. 10 -- 20 CLS:?:? 30 DIM B(3,>}4) 40 FOR X = 1 TO 3 50 FOR Y = 1 TO 4 60 ? "BOWLER ";X;" GAME #";Y 70 INPUT "SCORE PLEASE ";S >}80 B(X,Y)=S:REM <--MATRIX 90 ? 100 NEXT Y 110 NEXT X 120 PAUSE 60 130 -- 140 ? "LET'S SEE>} IF IT WORKED?" 150 FOR T = 1 TO 3 160 FOR K = 1 TO 4 170 ? "BOWLER ";T;" GAME #";K; 180 ?" = ";B(T,K>}):REM<--MATRIX 190 NEXT K 200 NEXT T STRING ARRAYS ------------- 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. 1)Decide how many elements we need 2)The length of each element > } 3)Calculate the end of the FOR-NEXT loop and the STEP 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>}mpty spaces to pad each substring or element so it is 10 letters long. We can visualize this as follows: >} X$ ----------------------------------- | | | | | | | | |EL 1|EL 2|EL 3|EL 4|EL 5|EL 6|EL7| | >} | | | | | | | ----------------------------------- 1 10 20 30 40 50 60 70 Elements >}or substrings start and end as follows: ELEMENTS OR SUBSTRINGS Element 1 = 1 to 10 Element 2 = 11 to >}20 Element 3 = 21 to 30 Element 4 = 31 to 40 Element 5 = 41 to 50 Element 6 = 51 to 60 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. 10 FOR N = 1 TO 70 STEP 10>} 20 ? N, N+9 30 NEXT N The result of this loop is as follows: 1 10 11 20 21 >}30 31 40 41 50 51 60 61 70 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) 40 PAD$=" ":REM>} FOR PADDING THE SUBSTRING 10 SPACES 50 REM ASSIGNING PSEUDO STRING ARRAY VALUES 60 FO>}R N = 1 TO 70 STEP 10 70 INPUT "GIVE ME A WORD(MAX 10 LETTRS)";SUB$:? 80 SL=LEN(SUB$):REM LENGTH OF >} WORD 90 IF SL<10 THEN SUB$(SL+1)=PAD$:REM PAD TO 10 LETTERS 100 X$(N,N+9)=SUB$:REM PUT >} VALUE INTO ELEMENTS 110 NEXT N 120 -- 130 ?:? 140 REM DISPLAY PSEUDO STRING ARRAY >} 150 FOR N=1 TO 70 STEP 10 160 K=K+1:REM COUNTER 170 ? "ELEMENT ";K;" = "; X$(N,N+9) 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 all the elements. The SUB$ is the length of an element. The PAD$ is the lengt>!}h of an element 40 PAD$ = is the length of an element(10). It is used to pad a word that is too short - less tha>"}n 10 letters 50 Rem explanation 60 FOR-NEXT-loop. It starts with 1 and ends with the number of elements(7) times th>#}e length of each element(10) or (7x10=70).The step is the length of the element(10) 70 INPUT the words 80 Find >$}out how long each word is. 90 Pad each word to 10 characters 100 Fill the elements or the SUB$ with words. The sub str>%}ings or elements are 1-10, 11-20, 21-30, 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 on line 60 160 A counter that counts the number of eleme>'}nts in the array 170 Print the elements in X$(N,N+9) The substrings or elements in X$ are 1-10, 11-20, 21-30, 31-4>(}0, 41-50, 51-60, 61-70 180 End of loop 190 Draw 30 dashes You can also print out individual element>)}s of the string array. Please change the following lines. 150 N = 0 160 INPUT "WHAT ELEMENT DO YOU >*} WANT TO SEE";N 170 ? "ELEMENT ";N;" = "; X$(N*10-9,N*10) 180 GOTO 150 >>>>>>>>>>>>>>> END <<<<<<>+}<<<<<<<<<< SEE";N 170 ? "ELEMENT ";N;" = "; X$(N*10-9,N*10) 180 GOTO 150 >>>>>>>>>>>>>>> END <<<<<<< SORTING NUMBERS =============== by Ron Fetzer The Bubble Sort 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}ut 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}etween these 2 loops. In our program it is lines # 140 to 170. 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}f order, it switches them. The array starts out as: 3,2,1,7 PASS NUMBERS ACTION ELEMENT ORDER ---- ------- ------ B6} ------------- 1 [3,2],7,1 SWITCH 2,3 2,3,7,1 2 2,[3,7],1 OK 2,3,7,1 3 2,3,[7,1] SWITCH 1,7 2,3,1,7 4 B7}[2,3],1,7 OK 2,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 1,2,3,7 9-12 OK 1,2,3,7 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(<). Please key in this short B:} demo program to see how it works. 10 -- 20 REM PUT NUMBERS INTO ARRAY 30 CLS:?:? 40 INPUT "HOW MAB;}NY NUMBERS TO SORT";K 50 DIM A(K):? 60 FOR X = 1 TO K 70 INPUT "GIVE ME A NUMBER";N 80 A(X)=B<}N:REM<--ARRAY 90 NEXT X 100 -- 110 REM BUBBLE SORT 120 FOR T = 1 TO K 130 FOR Y = 1 TO K-1 B=} 140 IF A(Y+1)>=A(Y) THEN 180 150 TEMP = A(Y) 160 A(Y) = A(Y+1) 170 A(Y+1) = TEMP 180 NEXT Y 1B>}90 NEXT T 200 -- 210 REM PRINT SORTED NUMBERS 220 ?:? "SORTED NUMBERS":? 230 FOR L = 1 TO K 240B?} ? A(L);" ";:REM<--ARRAY 250 NEXT L 260 -- MINI SORT 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. Please key in this short demo program to see how it works. 10 -- 20 REM PUT NUMBERS INBD} THE ARRAY 30 CLS:?:?:K=0 40 INPUT "HOW MANY NUMBERS TO SORT";K 50 DIM A(K):E=K 60 FOR X = 1BE} TO K 70 INPUT "GIVE ME A NUMBER";N 80 A(X)=N:REM<--ARRAY 90 NEXT X 100 -- 110 REM MINI SORT BF} 120 Y=A(1):Z=1 130 FOR R = 2 TO K 140 IF A(R)>=Y THEN Y=A(R): Z=R 150 NEXT R 160 SS=A(KBG}):A(K)=A(Z):A(Z)=SS 170 K=K-1:IF K>1 THEN 120 180 -- 190 REM PRINT SORTED NUMBERS 200 ?:? "SORTED NUMBH}BERS" 210 FOR T = 1 TO E 220 ? A(T);" "; 230 NEXT T 240 -- SORTING STRING ARRAYS =BI}==================== THE STRING BUBBLE SORT For a full understanding of a STRING BUBBLE SORT please reBJ}ad the section on PSEUDO STRING ARRAYS and BUBBLE SORT first. First we set up a PSEUDO STRING ARRAY. Without a BK} string array you cannot sort strings. We are going to enter 4 words: ZERO ALL HOUSE 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------) 11 to 20 (ALL-------) 21 to 30 (HOUSE-----) 31 to 40 (COMPUTER--) The cBO}onfusion comes when we have to specify the substrings or elements for switching. In order to clarify this we use liBP}ne 180 to assign variables to these values. B(beginning)=Y E(ending)=Y+9 BB(begin next higher elemt)=Y+BQ}10 EE(end higher elemt)=Y+(10+9) Please type in this short demo program to see how it works. 10 -- BR} 20 REM INPUT WORDS INTO ARRAY 30 CLS:? 40 INPUT "HOW MANY WORDS TO SORT";K 50 DIM A$(K*10),SUB$(BS}10), PAD$(10),TEMP$(10) 60 PAD$=" ":REM 10 SPACES 70 ?:? "MAX. LETTERS = 10":? 8BT}0 FOR N=1 TO K*10 STEP 10 90 INPUT "GIVE ME A WORD";SUB$ 100 SL=LEN(SUB$) 110 IF SL<10 THEN SUB$(SL+1)= BU} PAD$ 120 A$(N,N+9)=SUB$ 130 NEXT N 140 -- 150 REM STRING BUBBLE SORT 160 FOR T=1 TO K*10 STEP 10BV} 170 FOR Y=1 TO (K*10)-10 STEP 10 180 B=Y:E=Y+9:BB=Y+10: EE=Y+(10+9) 190 IF A$(BB,EE)>=A$(B,BW}E) THEN 230 200 TEMP$=A$(B,E) 210 A$(B,E)=A$(BB,EE) 220 A$(BB,EE)=TEMP$ 230 NEXT Y 240 NEXTBX} T 250 -- 260 REM PRINT SORTED WORDS 270 ?:? "SORTED WORDS:":? 280 FOR L=1 TO K*10 STEP 10 290 ? A$(BY}L,L+9) 300 NEXT L 310 -- A line by line explanation of this program is as follows: 10-140 See the sectBZ}ion on PSEUDO STRING ARRAYS 150 REM explanation 160 Outer Bubble Sort loop. K=number of words X the element B[}length. STEP = element length 170 Inner loop must be 1 element less than the outer loop. That is why we have (K*1B\}0)-10 180-220 We examine each element. If the 2nd element is larger than the first element then it is OK. (smB]}all to large) - no switching. If it is not in the right order then we do the switching, just 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_}Loop to display sorted words 290 Print sorted words 300 End of loop 310 30 dashes If you want to sort largerB`} strings lets say 20 characters long then change every reference from 10 to 20. They are in lines 50, 60, 70, 80, 11Ba}0, 120(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}A then change the (>) in line 190 to (<) THE SHELL STRING SORT --------------------- 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) In line 210 we assign variables to the element beginning andBf} endings. B(beginning of element)=Y*10-9 E(ending of element)=Y*10 BB(Next higher elmt)=Z*10-9 EE(EnBg}ding element)=Z*10 Please key in this short demo program to see how it works. 10 -- 20 REM INPUT STRIBh}NG ARRAY 30 CLS:? 40 INPUT "HOW MANY WORDS TO SORT";K 50 DIM A$(K*10),SUB$(10), PAD$(10)Bi},TEMP$(10) 60 PAD$=" ":REM 10 SPACES 70 ?:? "MAX. NUMBER OF LETTERS = 10":? 80 FBj}OR N=1 TO K*10 STEP 10 90 INPUT "GIVE ME A WORD"; SUB$ 100 SL=LEN(SUB$) 110 IF SL<10 THEN SUB$(SL+1)Bk}= PAD$ 120 A$(N,N+9)=SUB$ 130 NEXT N 140 -- 150 REM SHELL SORT 160 X=1 170 X=2*X:IF X0 THEN 200 270 NEXT T:GOTO 180 280 -- 290 REM PRINT SORTED WORDS 3Bo}00 ?:? "SORTED WORDS:":? 310 FOR L=1 TO K*10 STEP 10 320 ? A$(L,L+9) 330 NEXT L 340 -- If you wBp}ant to sort larger strings, lets say you want 20 characters, please change every reference from 10 to 20Bq}. 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} 310, 320(L,L+19). RELATIONAL BUBBLE SORT ---------------------- A relational sort is if you have Bs}2 arrays and they are related to each other in some way and 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. When we sort with the Bubble Sort the switching is done in lines 24Bw}0, 250, and 260. It is done as follows: 240 TEMP$=A$(B,E):TEMP1$= B$(B,E) 250 A$(B,E)=A$(BB,EE):Bx}B$(B,E)= B$(BB,EE) 260 A$(BB,EE)=TEMP$:B$(BB,EE)= TEMP1$ 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}e during a sort so we also switch the phone number array so it maintains its proper relationship. 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|} A second reason is that if a number becomes too large it is expressed in scientific notation. In ourB}} 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. 10 -- 20 REM INPUT NAMES AND NUMBERS INTB}O THE STRING ARRAYS 30 CLS:? 40 INPUT "HOW MANY PHONE NUMBERS TO SORT";K 50 DIM A$(K*10),B$(K*10),B} SUB$(10),SUB1$(10),PAD$(10) TEMP$(10),TEMP1$(10) 60 PAD$=" ":REM 10 SPACES B}70 ?:? "MAX. LETTERS OR NUMBERS = 10":? 80 FOR N=1 TO K*10 STEP 10 90 INPUT "GIVE ME THE NAME"; B} SUB$ 100 INPUT "GIVE ME THE NUMBER"; SUB1$ 110 ?:SL=LEN(SUB$) 120 SL1=LEN(SUB1$) 130 IF SL<10 TB}HEN SUB$(SL+1)= PAD$ 140 IF SL1<10 THEN SUB1$(SL1+1)= PAD$ 150 A$(N,N+9)=SUB$ 160 B$(N,N+9)=B}SUB1$ 170 NEXT N 180 -- 190 REM RELATIONAL BUBBLE SORT 200 FOR T=1 TO K*10 STEP 10 210 FOR Y=1 TO (KB}*10)-10 STEP 10 220 B=Y:E=Y+9:BB=Y+10: EE=Y+(10+9) 230 IF A$(BB,EE)>=A$(B,E) THEN 270 240 TEB}MP$=A$(B,E):TEMP1$= B$(B,E) 250 A$(B,E)=A$(BB,EE):B$(B,E)= B$(BB,EE) 260 A$(BB,EE)=TEMP$:B$(BB,EEB})= TEMP1$ 270 NEXT Y 280 NEXT T 290 -- 300 CLS 310 REM PRINT OUT SORTED PHONE LISTB} 320 ?:? " TELEPHONE LIST":? 330 FOR L=1 TO K*10 STEP 10 340 ? A$(L,L+9);B$(L,L+9) 350 NEXT L 360B} -- The two arrays can use the same PAD$ (ln #60) because they are the same size. They can use the same beB}ginning and ending element numbers because they are the same size (ln #220) If you want a printed list please chB}ange lines 320 and 340 from PRINT to LPRINT. 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} on the scores(number sort) and the names would have to maintain their relationship to the score. 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 ADDENDUM -------- Sometimes B}it is necessary to construct a string array in a different manner than I have shown. For example we want a B} string array with 21 letters. This is an alternate way of doing it. 10 DIM ARRAY$(5*21),B$(21), PAD$(2B}1) 20 FOR X=1 TO 5 30 PAD$=" " 40 INPUT "GIVE ME A NAME";B$ 50 BL=LEN(B$):IF BL<2B}1 THEN B$(BL+1)=PAD$ 60 ARRAY$(X*21-20,X*21)= B$:REM ARRAY 70 NEXT X In line 60 X*21-2B}0,X*21. This will create the element length that we previously used a FOR-NEXT-STEP LOOP for. In all other respectB}s the program remains the same. For example, when X=1 the elements will be (1*21)21-20 or 1 the other number wB}ill be (1*21)or 21. Thus the element length will be 1 to 21 on the first pass of the loop. In a similar manner all the oB}ther element numbers will be generated. >>>>>>>>>>>>>>>> END <<<<<<<<<<<<<<< f the loop. In a similar manner all the o@S QUICK-DOCS by Ron Fetzer - member of the OL' HACKERS ATARI U.G. INC. NY. USA. F} THE TREAF}SURER'S REPORT F} This program is designed to be used by the treasurers of clubs, fraternal organizations, F}sports organizations, charitable organizations and individuals. 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 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}ust enter for the INCOME NAME any letter you want. This name will not be recorded by the program. F} 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}ll go to the MENU. You can also erase the last entry by typing '**'. 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. 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. F} Take also a look at the DIRECTORY option. It gives you much more information then just the file names. F} 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}re clearly inidcated. Check also in the PRINT module where else they can occur. 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}1520, 1550, 1580, 1600, 1640, 1670, 1690 and 1700. This program F} runs only with TURBO BASIC. Hit the RESET key and and type in RUN "D:TREASRPT.TUR" 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} >>>>>>>>>>>>>>>END<<<<<<<<<<<<<<<<<<< F} G.}78X99SCRN_CDIM_SCMENBDENPADARMONINBRCASHNBCNTDNBDSPKEYCBNNUDIRCINCVIEPRNSVLOFINOILEEJ}TOTICBHALEBTOTESTARCRERESRCEXDBLDLSDLORFFDBSDBOWORDYNCCCCHR4CLARRFNDKFLFNLDLLDFNTEMJ}PCASTEM1MOERADEFNYXYZVESECDSDSVFOUFREXDDXYEQNOBOB<?\A@J}(<A  A F$ ( )(8)L)`) o)u)'WcJ}LR\^o !"#$%[J}Q&'()C*+),-)./012)3)4)J}5)67gI89:;<=>@?@ABC)D)J}EF)GH)IJ)KL9MNaOHIP8IQYIR\IS]ITJ}cIUVWXYZ[\]^(I_`{I<abI cJ} @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}D UP TO 200 EXPENSE ITEMS. T** CONTROL MODULE ** ` P(P2P< @PFPTZ** SCREEN COLOJ}RS **dO `6-n8-@@8(WHAT SCREEN COLOR DO YOU WANT?x#-@@#( 1: NORMAL"-J}@@"(2: AMBER"-@@"(3: GREEN!-@@!(4: GREYB A`-@@J}8SELECT A NUMBER >>B Bm  @)!@)P:,2-@(@9( <(c("ERROR: SELECT A NUMBER FRJ}OM 1 TO 4m A`''AAAA 1AAH'A @1 A01A@XJ}'A 1 A01AA4'A 1 A01A@'A 1 AJ}0QT** DIM SECTION **OGG;@ ,;@ ,;@ ,;A@,9A,;@ ,]];J}A@,9A,;@ ,;@@,;@ ,;@ ,;@,;@,";@9,;@,;@,;J}@,;@,;@,;@,;@,;@,;@,;@,;A@,,~~;A@,;@,J};@,;@,;@,;@,;@,;@,;@ ,;@`,;@,6Q@TJ** MENU **J}T:O `6-(@@:@@9^]-@ @.(ҧӠԠ@-@@](J}ΠҠǠh3-@@ (ՠ06. 3(rE( 1. DIRECTORY-(2. START PROGRAME(J}3. VIEW ON SCREEN|Q(4. PRINT (5. SAVE.(6. LOADD(7. ERASE A FILEQ(8. END--@@-J}SELECT A NUMBER>>b  @)!@)P:,2-@'@9( <(b(!ERROR:SELECT A NUMBER FROM 1 TO 8((J} @)!@)P:,AbQT** START PROGRAM *** INCOME * O ` 6J}.6.6.$6-+6.26.>6-J6-V6-q6.....................x6.6. J}L`-@)( INFORMATION:;-@@L( ------------5-@@5((DO NOT USE WITH NUMBERSJ})( (TODAY'S DATE>>"( ("OLD BALANCE DATE>>$( ($OLD BALANCE AMOUNT>$"( ("NEW BALANCJ}E DATE>>&/-@@/(--------------------|0'-@@' YOUR NAME>>:F-@@!2(---J}---------------------F(--------------|D)-@@ ) CLUB'S NAME>>NB`-@@$(INCOME:6-@J}@B(-------X/-@@ /(--------------------|bX-@@) INCOME NAME>>76-%@J}@4**N6-&@X AdK-@@K(1TO ERASE LAST ENTRY TYPE '**' FOR INCOME NAMEl>-@@ J}>($ҠӢҠҠv? A@-@@5INCOME AMOUNT>$? AP8-@@J}$( . B8 A0: !-@@0( : A0) 6-B:, @ )6J}7%@,.&&67$@ &@<$@ ,. 68,-N-@@/( A-@@J}N( V"A!-@@L(&ՠŠĠŠԡҠV A"A@J} A* EXPENSES *8 6.6-"6-)6.,`86-C-@@#( EXPENSES:5-J}@@C( ---------/-@@ /(--------------------|Y-@@*EXPENSE NAME>>86-%J}@A4**O6-&@Y APL-@@L(2TO ERASE LAST ENTRY TYPE '**' FOR EXPENSE NAME 8-@J}@ 8(ҠՠҠҠ@ A-@@6EXPENSE AMOUNT>$@ A 8-@J}@$( . B8 A*: !-@@0( : A4) 6-B:, @ J})67%@,.>&&67$@ &@<$@ ,.H 68,-RP-@@/( A-@J}@P( \V"A!-@@L(&ՠŠĠŠԡҠV Apf"AJ}p A`zQT** VIEW ON SCREEN ** O `* VIEW INCOME *K@'@@@J}36-?6-K6-/-@@/(ҧӠԺ%(%( OLD BALANCE  IS $4J}(1(& INCOME: CURRENT BAL.4(-@&@6-%8,6-6-%8,--(7$@ &@J}<$@ ,$8,A7( >:@(,$AM@EA"@)"@0)"@E)J}"@`)"@u)"@EP "("( TOTAL INCOME IS...$P$* VIEW EXPENSES *.1`-@@J}1(ҧӠԠ8'6-6-'6-B4(1(& EXPENSES: CURRENT BAL.4(LJ}-@&@V6-&8,6-6-%8,`--(7$@ &@<$@ ,$8,jA7( J} >:@(,$AM@tEA"@)"@0)"@E)"@`)"@u)"@EP~ %("(TOTAJ}L EXPENSES ARE..$%(""( NEW BALANCE IS $''( =======================( AS OF 6J}-&+&,PQTFF** THE PROGRAM WAITS FOR A PRESS OF THE SPACE BAR TO CONTINUE **OAR@(J}4-@@#4(ӠҠϠ 6.Y,4>:@2, A@) A`,AARJ}Q T** PRINT ** O `(6-6-'6-36-?6-K6-W6-c6-J}o6-{6-6-6-6.2))* PRINTER CONTROL CODES FOR EPSON *<.6.>:@',!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.>:@ ,*HORIZONATAL TAB STOPSd6.>:@,FORM FEEDn4-@@4(ԠҧӠԠJ}x>-@@>($PUT THE PAPER TO THE TOP OF ITS FORMZ A-@@CHOW MANY COPIES DO YOU WANT>J}>F`Z"A5AR@'-@@5( ǡ.@.@@P:J}* PRINT INCOME *-@?(@6-B:,)6-@9&4(@?(@$$(@D>:J},>:,(@W1F(@(@F(@ TREASURER'S REPORT=6-J}6-$6-B:,=6-@5&P:'@,88(@W0D>:,>:,DATE: O(@O(@J}& OLD BALANCE ON  WAS $o(@(@o(@H INCOME ITEMS J} AMOUNT CURRENT BAL.tt(@G ------------ ------ --------J}---D>:@`,>:,00(@ OLD BALANCE$-@&@"6-%8,6-J}6-%8,,TT(@ 7$@ &@<$@ , .........$8,$6 @=(@=(@J} TOTAL INCOME IS $J* PRINT EXPENSES *Td(@d(@H EXPENSE ITEMS J} AMOUNT CURRENT BAL.^XX(@G ------------- ------ -----------J}h66(@ BALANCE FORWARDED$r-@&@|6-&8,6-6-%8,TT(@K} 7$@ &@<$@ , .........$8,$ I(@@(@" TOTAL EXK}PENSES ARE $I6-B:,^(@L(@$ THE NEW BALANCE AS OF  IS $U6.=:,^6-B:,FF6.K}<============================================================88(@ 7@<+%%@',,'6K}-&+&,6-'6-5(@(@5(@ PREPARED BY:(@(@ K}*@ AR* BQT** SAVE ** O `&56-6-"6..6-K}56.05-@@5(FILE WILL BE SAVED IN DR #1:'-@@' FILE NAME>>Dd 6-B:,!@K}*-@@?( B(Z(FILE NAME TOO LONG!d APN367@<@,.D1:-67@,.36.K}X+@+@@b*(@(@*(@lD(@(@*(@K}7(@D(@v-@&@--(@7$@ &@<$@ ,(@8, K }-@&@--(@7$@ &@<$@ ,(@8, @QTK }** LOAD ** O `5 6.6-"6-.6-56.5-@@5(PUT THE DATA DISK IN DR.K } #1 '-@@' FILE NAME>>d 6-B:,!@*-@@?( B(Z(FILE NAME TOK }O LONG!d A ` " 6.D1:67@,."6.*? A!@5@@? A!4b-@K }@*( -(N(WRONG FILE NAME - TRY AGAIN!X Bb A `>*@@*@K}HD@@*@7@D@R-@&@\3@367$@ K}&@<$@ ,.f@68,-p z-@&@3@367$@ &@<$@ K},.@68,- @QT** ERASE A FILE ** O ` 6.6.<-@K}@2(ŠŠΠҮ<6.D1:1-@@' FILE NAME>>1 A"67@,.6.K}G A#2@3@=@G A#  b-@@*( -(N(WRONG FK}ILE 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-6-"6..6-:6-F6-R6K}-^6-e6.l6.s6.z6.6-6-L Z(>:A%,6-.-@@V("SK}EE DIRECTORY ON WHAT DRIVE(1,2,8)ZV ++"@)"@)"@A$ ` A#j  4M6-@t !"K}@A$P! B~ c"@(>:A%,#6.5-@@_($Is the new disk in the drive(YES/NO)cK} ! 4N6-@! A$0 6@@'@@@66-F:B24, 6-I:, 6-F:A, K}"6.NO BS "Ab6.A "@6.B "A46.C [6-6-'6-K}[ >:A%,$٭ҠˠӠ A"@@>@@D1:*.*A(K} A"@@>@@D2:*.*A( A"@@>@@D8:*.K}*A( :AR@:( ˠӼ ˠ  ( DRIVE #( @( H7@<@K},4 06-%A:7@,,>6-%@H A%( @2 6-A:7@<@,,< T(-@ @- K} ?-@ @T( F 2) @*7@<@,4999+2 :ENDP Y7@<@K},4999+V 2Number of free sectors not accurately indicated.YZ S-@ @*  <-@ @K }S( %d #"@6.RAM# A'n %"A6.SNGLx %!A6.1050 :K!}% A#-@@":(Ҡ̠ *-@ @*(  *-@ @ *(K"}  *-@ @*(  *-@ @*(à  )-@ @)(K#}ˠμ -@@  ,-@ @,(Another Dir. [A] ,-@ @,( [A] K$},-@ @,(Go to BASIC [B] ,-@ @,(à [B] ,-@ @,(Go to DOS K%} [D] ,-@ @,(Ӡ [D] ,-@ @,(Load a Disk [L] ,-@ @,(K&}렠 [L] ,-@ @ ,(DEL MEM SV D8 [M]" ,-@ @ ,(֠͠ĸ [M], ,-@ @!,(K'}Return - Menu [R]6 ,-@ @!,( [R]@  J *-@ @"*(Select a letterT ARK(}^ 3)4A)4B)4D)4L)4R)4M3 A)0h A(r -(>:A%,"@@9-@| K)}4RA0P ! 4A6-@! A# 4BA0  4DA00 O A$4ME@3@K*} D8:MEM.SAVO A$ ] 4L(>:A%,6.1-@@Y("Did you put a new disk in drive K+}#1] &7@<@,4Y& A0@ &7@<@,4N& A) 6(>:A%,'%-@@3(K,}à6 . 6-?:B,( Q T ** ENDING A PROGRAM ** O `AR@ 2-@@K-}((END OF PROGRAM2M@ " +AR"& Q0 TD:TREASRPT.ARB@ 2-@@Hd D<FINYNSCRN_CDIM_SEAGAICONTRODENSDIRCTRFILEKEYSECTTLNKDFZFXDDCONVRMENNUPRNDELELOUNLOO0}RENATXFORMT_DOFILEND_FILDSES9 <Ez9< ? O1} @BCO2}FFHIIK L!uG"L#$% KKMODULAR PROGRAM BY RON FETZERO3} 7/91. USE TURBO BASIC AND A RAMDISK D8.T`(D8:CLEANUP.TUR2P<PFPPPZTdOnPxO4}P A QTO `6-8-@@8(WHAT SCREEN COLOR DO YOU WANT?#-@@O5}#( 1: NORMAL"-@@"(2: AMBER"-@@"(3: GREEN!-@@!(4: GREYB A O6}-@@8SELECT A NUMBER >>B BT  @)!@)P:,#(J("ERROR: SELECT A NUMBER FROM 1O7} TO 4T A ''APA`ApA1AAH'A @1 A1A@XO8}'A 1 A1AA4'A 1 A1A@'A 1 AO9}"Q,T6O@~~;@%,;@,;@,;@0,;@,;@,;@%,;@ ,;@@,;O:}@@,;@@,JQTT^"O `6-"6-h&-@@&( DISK DENSITYr&-@@&O;}( ---- -------|+-@@+(1. SINGLE DENSITY)-@@)(2. 1050 DENSITY+-@@+(O<}3: DOUBLE DENSITYB A-@@8SELECT A NUMBER >>B BT  @)!@)P:,#(J("ERO=}ROR: SELECT A NUMBER FROM 1 TO 3T A""*** DIRVE INFORAMTION ***K` A@"-@@ADRIVE NUMBO>}ER 1,2 OR 8 >>K B-#"@)"@)"@- A@@(,(! ERROR: USE A NUMBER 1, 2 OR 86MO?}A @ A@AQTO `AR@6"@6@@D1:*.*6"@O@}6@@D2:*.*6"@6@@D8:*.*&&#( ӠOA} &(08@8@:7@<@,,!@GA:E(@( E@:7@<@,, @GOB}A`DPN''( PRESS Š TO CONTINUEX 6.Yb,4>:@2, A @) A,AlAROC}PvQT&O6.6-&6-#6.7@<@,#6-A:,S"@)"@26OD}-P:$A%,'AS6-P:$@%?P,'@I"@(6-P:$AV,'AI6-P:$@%?P,'@OE}0(0( YOU HAVE  K. BYTES OF SPACE LEFTQTO6-+(+( 1: PRINT DIRCTRY. 6: TEXT ROF}EADER--(%2: ERASE A FILE 7: FORMAT + DOS.SYS,,($3: LOCK A FILE 8: LOAD A NEW DISK((( 4: UNLOCK A FILE 9: STOG}ART AGAIN  (5: RENAME A FILE 10: END9( A/ SELECT A NUMBER>>9 B R  @)!@)OH}P:,#(H( ERROR: USE A NUMBER FROM 1 TO 10R A*b4Q>THOR ( TITLE OF THE DOI}ISK>>\3 3f6"@6@@D1:*.*p6"@6@@OJ}D2:*.*z6"@6@@D8:*.*8@8@:7@<@,,!@GAOK} @\\7@<@,4DOS)7@<@,4DUP)7@<@ ,4RAMDISKA @@3 / ________OL}____________________________________++@:7@<@,, @GA 6363 YOU HAVE  K. BYTES OF SPOM}ACE LEFT 3 3  PQTO `6.6..-@@.DO A NEW DISK(Y/N) 7@<ON}@,4N P5-@@5IS NEW DISK IN DRIVE(Y/N))7@<@,4N`) A QT$OO}O6..P8G Ap2@3@=@G BB!(!ERASE ANOTHER(Y/N)>>L6OP}7@<@,4Y& Ap)@3 A6AVQ`TjO6.6.t( FILE NAME>>~3"@6.OQ}D1:-67B:,%@,.36.3"@6.D2:-67B:,%@,.36.3"@6.D8:-67B:,%@,OR}.36.QTO6.PG A2@5@=@G B ( LOCOS}K ANOTHER(Y/N)>>67@<@,4Y& A)@3 AP6AQTO6.P G A2@6OT}@=@G B"("UNLOCK ANOTHER(Y/N)>>67@<@,4Y& A)@OU}3 A 6A(Q2T<O6.6.F"("ENTER OLD FILE NAME>>PENTER NEW FILE NAME>>ZW"@OV}6.D1:-67B:,%@,.C67B:,%@,.,W67B:,%@,.dW"@6.D2:-67B:,%@,.C67B:OW},%@,.,W67B:,%@,.nW"@6.D8:-67B:,%@,.C67B:,%@,.,W67B:,%@,.xGOX} AP2@2@=@G B"("RENAME ANOTHER(Y/N)>>67@<@,OY}4Y& AP)@3 A06AQTOPAR@B` A`@8@@OZ}B B?-@@<("PRESS TO GO TO THE DIRECTORY?( )@* M@ F:BO[}2y,"@A@ A']F:A,"A6'@ARQT)O `6-O\}"6-)6."--@@-(FORMAT WITH DOS.SYS,--@@ -(------ ---- -------6D A-O]}@@:WHICH DRIVE 1 OR 2>>D B@M @)!@(C("ERROR: SELECT A NUMBER FROM 1 TO 2M AO^}J0`-@@0(DENSITY INFORMATIONT--@@ -(------- -----------^+-@@+(1.O_} SINGLE DENSITYh)-@@)(2. 1050 DENSITYrAR@|A-@@ A`7SELECT A NUMO`}BER>>A BT  @)!@)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 2T A`AR@Oa}E"@`$-@@E(FORMATTING IN SINGLE DENSITY9"@!-@@9(AND WRITING DOS.SYSOb}C"@`$-@@C(FORMATTING IN 1050 DENSITY9"@!-@@9(AND WRITING DOS.SYSOc}M"@*"@BAS@D1:M@M"@*"@BAT@Od}D1:M@M"@*"@BAS@D2:M@M"@*"@Oe}BAT@D2:M@B"@7@@ D1:DOS.SYSB@BOf}"@7@@ D2:DOS.SYSB@AR$($ GO AGAIN(Y/N)>>YOg}7@<@,4Y(Y3 DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>67@<@,4Y& A)@Oh}3 A06A&Q0T:O `AR@D(-@@((END OF PROGRAMNQAR6..-@Oi}@QRETURN TO THE MAIN MENU(Y/N)X;;7@<@,4N)7@<@,4nA lp37@<@Oj},4Y)7@<@,4y6`H-@ @^(LOADING MAIN MENUpA@vE37@<@,4Y)7Ok}@<@,4yE% D:NEWSLTR.BAS! +3>:@',@!QT D:CLEANUP.TUR<@,4Y)7LgC*V*FINYNSCRN_CDIM_SEPRINTEDENSAGAIDIRCTRFILEKEYSECTNTTTXTXPRPOLAMDNNEPSOATARYOURDDCONVW} Quick-Docs by Ron Fetzer The "CLEANUP"Sn} program is designed to remove unwanted files from your disk. 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 the program. It will not print DOS.SYS, DUP.SYS or RASq}MDISK.COM. This is usually the FIRST option that would be used. 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. 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. 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}ion from that to identify the program. The same is true of Assembly Language files. Sy} OPtion 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. The program stores itself automatically inS|} the Ram Disk D8. If you do not have a Ram Disk remove line 40 from the program. S}} If you cannot identify a file. BREAK the program. Run the file and see what it is. To get the prS~}ogram bak type: RUN "D8:CLEANUP.TUR" from the Ram Disk D8. S} If you want this program to be free standing on another disk copy the file named "CLEANUP.TUR. Be sure it is onS} a TURBO BASIC disk. Call the new file CLEANUP.ARB. On this new disk be sure the file RANDISK.COM is on it. S}RTITLELSORFJJDFCSPR_SRYXESENEEKLKLCHR4INDSKAADD^":<=W} B1HqD@    # $=[*CaI]^W}o@WY \@@ GI@ @P!@"@#@W}$L%@&@'@()A6*AP+@,@d-.N/0@12@3@UW}4567@8@9@:@;<@=>s?{ @A DISK LW}ABEL PROGRAM99MODULAR PROGRAM BY RON FETZER.USE TURBO BASIC. 8/91T( ` P2P<PFPPPZPdPW}n @xTO `6-8-@@8(WHAT SCREEN COLOR DO YOU WANT?#-@@#( 1:W} NORMAL"-@@"(2: AMBER"-@@"(3: GREEN!-@@!(4: GREYB A-W}@@8SELECT A NUMBER >>B BT  @)!@)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 4TW} A''A A0A@AP1AAH'A @1 A`1A@X'A W}1 A`1AA4'A 1 A`1A@'A 1 A`QW}TO"~~;@%,;@,;@,;@,;@,;@%,;@0,;A,;@0,;AW},;@ ,,RR;@,;@,;@,;@,;@%,;@%,;@%,6Q@TJ+O `6. W} $6-+6.T'-@@'( PRINTER TYPE:^Q(#(1: EPSON & COMPATIBLES;(2: ATARI - XMM801Q(W}3: YOUR PRINTERh$( ($SELECT A NUMBER >>rS  @)!@)P:,#(I(!ERROR SELECT A NUMBER FROM 1 TOW} 3S A`|%%*** PRINTER CODES FOR EPSON ***+"@+3>:@',A>:@,"@3>:@,!W}"@!3>:@',S0&&*** PRINTER CODES FOR XMM801 ***+"@+3>:@',A>:@,'"@W}'3>:@',>:@ ,+"@+3>:@',R>:,***** 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)+`-@@+(USE LABEL SIZE%-@@%( 3.5 X 15/166-@@W}6ADJUST LABEL POSITION(Y/N)*&"@*7@<@,4Y*P*&"@*7@<@,4Y*P&W}*&"@*7@<@,4Y*P0Q:TD"O `6-"6-N&-@@&( DISK DENSITYXW}&-@@&( ---- -------b+-@@+(1. SINGLE DENSITYl)-@@)(2. 1050 DENSITYv+-W}@@+(3: DOUBLE DENSITYB A@-@@8SELECT A NUMBER >>B BT  @)!@W})P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 3T A@""*** DIRVE INFORAMTION ***I` Ap"-@@W}?DRIVE NUMBER 1 OR 2 >>I B#"@)"@# A @=()( ERROR: USE A NUMBER 1 OR W}23MA = ApAQT#O `6.#AR@6"@6@@D1:*W}.*6"@6@@D2:*.*&#( ӠΠ &( 8@8@:7@3 ( 3@:7@<@,, @GAHPARR.(.! PRINT IN ALPHAW}BETICAL ORDER(Y/N)\*7@<@,4Y P#@'P*AfpQzT&O6.6-&6-#6.W}7@<@,#6-A:,S"@)"@26-P:$A%,'AS6-P:$@%?P,'@I"@W}(6-P:$AV,'AI6-P:$@%?P,'@0(0( YOU HAVE  K. BYTES OF SPACE LEFTQTW}*O `6.6.*AR.-@@.DO A NEW DISK(Y/N) 7@<@,0Y P9-W}@@9IS THE NEW DISK IN DRIVE(Y/N)$$7@<@,0YAQT_O6. 6-W}'6-9AR@E6-L6.T6. \6. _`$!"@!6. D1:DISK.CAT.!"@!6. D2:W}DISK.CAT85`-@@5(SEARCHING FOR DISK TITLEBf A-@@:@Q6.W}7@<@,\@f BL6"@6@@D1:*.*V6"@6@@W}D2:*.*`@6-B:,jpp7@<@,4 DOS SYS)7@<@,4 DUP SYS)7@W}<@,4 RAMDISK COMA t6-%@~//67$@&@<$@,.7@,"@ AW} A ARb`7@<@,4 1-@@PDISK TITLE(MAX 10 LTTRS)V6._6-W}B:,b`W!@6. `,-@@C(DISK TITLE TOO BIGMM@W APQTOAW}R@S!@T`$-@@E(TOO MANY FILES - 54 IS MAX.!OMA SP%`-@@%(SW}ORTING!6-&@6-@  6-776-P:+@#P:K:,'K:@,,&@,%?P,$-@&$W}-@6(%6-$&%@6-$%6-$2?6-%@)7<,/7%+,<%+,,56-@? AP<96.7W}<,&67<,.7%+,<%+,,967%+,<%+,,.F   P7#6-+%@,'@&@7!AZPdQW}nTxO6-6.&6-26->6-J6-V6-b6-n6-z6-W}6-%`-@@%(PRINTING"@6.SD"@6.1050"@6.DDW}6. @-%@@T<67$@&@<$@,.@ 3 @6-@'6-@W}36-@=!@* @%6-@16-@=6-@=!@* @%6-@16-@W}=6-@=!@ * @%6-@16-@=6-@=!@* @%6-@16-@=6W}-@=!@* @%6-@16-@=6-@=!@* @"%6-@16-@=6-W}@=!@!* @%%6-@16-@=6-@=!@$* @(%6-@ 16-@ =6-@W}=!@'* @1%6-@16-@=6-@ "=!@0* @4%6-@16-@=6-@"W},=!@3* @7%6-@16-@=6-@$6=!@6* @@%6-@16-@=6-@&@W}=!@9* @C%6-@16-@=6-@(J=!@B* @F%6-@16-@=6-@0T=W}!@E* @I%6-@16-@=6-@2^=!@H* @R%6-@16-@=6-@4h=!W}@Q* @U%6-@16-@=6-@6r&&@@P:|JJ(@  DENSITW}Y=  FREE SPACE=K/SECT-@ 6-(@7$@&@<$@, 7+%,$W}@&@<+%,$@, 7+%,$@&@<+%,$@,6-!!!@$* @(A W}"@ 33 5; @  6-@ &.-@135 <!@ * @'6-@&5-@W}83<  6.$"@$6.SINGLE DENSITY""@"6. 1050 DENSITY$"@$6.DOUBLE DENSIW}TY 3 3*`-@@*( DENSITY IS U 6.-@@U2IS THE NEXT DISK THE SAME DW}ENSITY(Y/N) 4N'P&  Q0T: O `D(-@@((LABEL POSITIONN-@@(EPSOW}NX ( (b!!(_________________________l!!(|*******\ |v!!(| \ 1/8 INCH |!!(| W} FROM TOP |!!(| EDGE |!!(| |!!(|_______________________| ( (W}>( (>.CHECK LABEL POSITION ON THE PRINTER (Y/N) >>$$7@<@,4NA PLABEL POSITION003W}**************>:@',j>:@6,5 6. ((1(ADJUST LABEL POSITION(Y/N)5$$7@<@,4YAW} /-@@ 3 /3>:@',23>:@',A>:@,Q T O ` (-@@W}((LABEL POSITION*)-@@)( ATARI - XMM8014 ( (>!!(_________________________H!!(|*******\ W} |R!!(| \ 1/8 INCH |\!!(| FROM TOP |f!!(| EDGE |p!!(| W} |z!!(|_______________________| ( (>( (>.CHECK LABEL POSITION ON THE PRINTER (Y/N) >>$W}$7@<@,4NA"`LABEL POSITION,,3**************>:@',>:@,5 6. ((1(ADJUST W}LABEL POSITION(Y/N)5$$7@<@,4YA" -@@3 QT O `(-@W}@((LABEL POSITION&-@@&( YOUR PRINTER ( ( !!(_________________________ !!(|*******\ W} |$ !!(| \ 1/8 INCH |. !!(| FROM TOP |8 !!(| EDGE |B !!(| W} |L !!(|_______________________|V ( (` >( (>.CHECK LABEL POSITION ON THE PRINTER (Y/N) >>W}j $$7@<@,4NA$pt LABEL POSITION~ A3**************AYOUR PRINTER CODE FOR REVERSE LINE FEED 5W} 6. ((1(ADJUST LABEL POSITION(Y/N)5 $$7@<@,4YA$0 -@@3  Q W}T O `AR@ (-@@((END OF PROGRAM QAR6..-@@QRETURW}N TO THE MAIN MENU(Y/N) ;;7@<@,4N)7@<@,4nA%` 37@<@,4Y)7@<@W},4y6`H-@ @^(LOADING MAIN MENUo3>:@',@A@ E37@<@,4Y)7@W}<@,4yE% D:NEWSLTR.BAS ! +3>:@',@! Q T D:LABEL.TUR@<@,4Y)7@T` Quick-Docs by Ron Fetzer The DISK LABEL [} program prints an alphabetical list of your disk directory on 3.5 x 15/16 size pressure sensitive labels. [} The program can print 27 file names on one label. If there ar[}e more than 27 names it will print it on a second label. The program can handle a total of 54 files. The progr[}am will ignore the following file names: DOS.SYS, DUP.SYS and RAMDISK.COM. [} 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. 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 [}have a position indicator of where the beginning of the labels are to be placed. [} If your printer is not an EPSON or COMPATIBLE or an ATARI then you must put into the program 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[}F NN=3 THEN LPRINT CHR$(27);"A";CHR$(6). 480 IF NN=3 THEN LPRINT CHR$(27);CHR$(20). 490 IF NN=3 THEN [}LPRINT CHR$(27);"R";CHR$(0). Also look at lines 390-450 to see how it is done. In line 2360 remove the REM [}statement and type in the reverse line feed code for your printer. Example: 2360 LPRINT "*******[}**";CHR$(27);CHR$(10). (Be sure to remove the colon - keep the semi colon). Also look at lines 1930 and 2150 for gu[}idance. When you have done this save your program with SAVE "D:LABEL.TUR". [} 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". [} To use this program hit the RESET key and type in RUN "D:LABEL. TUR". [} >>>>>>>>>>>>>>>>END<<<<<<<<<<<<<<<<<< Xl >>>>>>>>>>>>>>>END<<<<<<<<<<<<<<<<< S} <<<< P] Use your joystick in port #1. If you get hit by 3 depth charges then the sub;} is destroyed and the game is over. GOOD LUCK! >>>>>>>>>>;}>>>>>>END<<<<<<<<<<<<<<<<< >>>>>>>>>>8l