@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}  |||DDOS DOSDOS SYS }}}} }CDOS SYSBL+DUP SYSBNMATTEDIT141B9MATTED14DOCBR MAILLISTBASB \MAILLISTDOCBgREPTLABLDOCBwREPTLBL}1 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} CE: vC y@y@`A# *` :105L; 0L>! * 0` * : ;` 1 *` 1 *` Disk Drive Sp,}eed:XXX RPM~~~Drive # X PRESS:C > check drive speedL > list error sectorsP > print error sectorsW > write al-}l zeroesto error sectorsM > return to main menui0k ^ 1 :ɛL 800 퍍L5 RETRY ERROR 3 TIME(S)؆莟.}R'S  `=D;EHI 1 1! @ :ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU!L; .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # O 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED007 FREE SECTORS COPYING---D1:FORT4}UNE.RUN# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}/$/CHu ξL/L DRIVE TO WRITE DOS & DUP TO?WRITING NEW DOS & DUPTYPE "Y" TO WRITE DOS/DUP:DISK 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DIA}SK 1 IS WRITE-PROTECTED !!TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `CԭC ؠȱC)CȩC`߅C ذ ٥ԍCՍC`800  `0  0`C}i7``ߍDCEHIB 10H``TRʠĩ`D` +CDCC /,D} 8 l0浥CޥC` b,`8` g+  CRC S0NCC S09CE}ե ݩԩ (۰ ٰ ؠ)`i iAC :L., :0 C :`i F}iAC`CC X*C>> ` 0>>  D, q; ,`COPY SECTORS`RLS ; , ,>  , ,G}ۢ>  ,?  , ,`= `=L :ɛ`hL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A.= ` <0 0 .@L# .BJ 1  DEHIB V L1 = g <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 = ` <0,0Lf- B VJ},A#P= ` <0 0L#L ߢ) 1* 1 ~0YjC8C}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `INVALID DESTINATIL}ON:DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1H$IHIDELSAVE-}@@CCOSEKECONSOPLCCCCCCC2LCOLXCURYCURLINECSEAWBLTCSTSIBMAXLIMMMCNLLDRLLO}LYBDSINECLSLPSPLPDNHLMAHAVA$AdB2yA6A@ @P} @ @ @ @#@7A@@@%%%J%%o%ACQ}Ap !"#$%&'()R}*+,-./012345678S}9:;<=>?@]6-F:A,&@&A0+<6-AVT}E6-F:,Q6-Ad]6-B2yi-@@9(Initializing MATT*EDIT Ver 14.1K-@@i(By: Matthew U}J. Rattcliffa-@@-(From the ɠ?-@@a(Computer User's Group Library 6-A6V}6-A'6-36-@?6-@K6-@W6-@c6-@o6-@#{6-@76-A6-W}@6-@6-6-+$;,;,;,;,;@,+6.6K:67,. '67,. 667@,X}.(!-%A"! 20-%@T"! 0A F:,<` (} ((-A@AA @,Y}(0 E(POKE 842,12:CONTK-]AB@`&F6 (} ((-@@@,(0 6(5P6(POKE 842,Z}12:GOTO 90!-3AB@6&Z7+6-I:,&@;,&6.,6-76-P:',d4 (}@A-B[}7tA46.n+ A(!6-@+ A0x ( ΠՒ ( DISK MENU \}( Edit Text ( Load File ( Merge File( Save Text ( Print Text( Custom Set]}( Quit ( j 6-66-@ A&6-jAAA# A$PA$A^}(pA6A5p3-@6',2@`@0 3$(Try Again Please--@%-2A_}@@02A@@@# -20$_ A @(@(G)S"AU_6-@I"#6-&@H# )!A ,&(@  (}&6-6$@,(( Oa}ut of range." A`, AJ 6- APT 6-^ AhU(4( ( ONLY=) b}8AB:,"G6-K(U Ar6-P:A:,,| *$@,( Out of range (- only).6 AP@ APc}(Bad input char(s)$$( #'s only, - valid. AP APAA@d!A=(d}}ԪԠ֠A(!!($+B:,,##(󠽠&%+B:, ,!@AR(e}!$( Are you G AA@d+A@( G) "@(6-f} $ "@x(6- $#( AP# Ap 6.6-1(< To Abort>1(Type text & g}press :4 6-F:,@"*( }Р4 A- 6-F:,-(- %--(-&> AP)h} "@'#'&'46.> A0A&A:2 6-&  A`!6-(6.2 A0D (>:i},6.7<, APN"AU(6-B:,$X7# @2)!A")"@- A`7 APb! (>:,6-j}%!67<,.>:,lA@v*(( Ϡǡ A`* A !& A@ AP 6-&k} 6- A0)( Š 6-# A)6-((Š to ??AA A0A@Al}EAFAG<(Ġ2(< AP(Š AP (Š text m}TO AP( AP (íԠĠ AP( AP(ˠҠ ((prn}ess only for )'6-@ A'!Au# 6-6- A# Ap 4C:6. A o}+ 6.D67,.=:,"67,.:+67,.- A(*( Working...-$ A6. ɯϠ 467B:,%,.p}=:F:A,,7'A A* 6.AD46-@ A0>(ˠ H(LIST/PRINT DIRRq}(LOAD/MERGE DIR\( ERASE FILE f( RENAME FILE p(LOK/UNLOK FILEz(FORMAT A DISK |(r} MAIN MENU ~(\ 6-66- A 6-\A A APA8pA9A9`s}AJ 6-6-,(۱ LIST ۲ PRINT DIR ?6 AJA A  B:," A J 6-6-,(۱t} LOAD ۲ MERGE DIR ?6 AJA A `# 6-6- A # A9 6-((Load Disk DIR into bufferu}.9B:,"A P)(< will be >) Ae (6. A $ 6-6. A $ A v}) 6-)(Merge into text buffer." A 6." A 4 6-6- A*6. Ԡ4 Aw}  6-2( of Š ?"6-, A26-% 6.D67,.=:,%67,.:*.*G +),#(} fox}r this DIR)6-3 A96.G"A@67B:,%,.7B:,%,I( A&@*>@y}P:I(A) 6. A6-$()($- 6.6- A`#6.- A`.! Az}6-6!6-8%%7@<@,4 FAB> 6. 67B:,%@,.% >67@<@,.|L( {}(V A0`  (j(Apt$  67<@,.$ Ap~.67@ <,.6.$ A`|}. Ap 6-%!' A@#6-$+&,% 67<%&,.#$ A(( (, "F:}}A,A6, A( A05  6.+67@<,.7@<,5 A` 6. A`A A~}(4( ;)>(A$- 6-&*6.Incomp. Load, full-$ 6. ERASE FILE 6-}@ 6- A` (  Ae(A @ =@36.367B:,%,. }= A  6.A0 6- A0## !#(> TOGGLE C-SETS(/( Ġ/(}Π>& Scroll Up 1 Pg2!!(Ԡ>& Scroll Dn 1 Pg<9$(Ԡ>& Exit to EDIT Menu6@@9(F( Ԡ} P( GoTo StartZ( GoTo End d( GoTo LINE n( Delete Lnsx( Insert Lns( Empty BUFF}( GoTo Main ( \ 6-66- A 6-\APA`AA0A0A"P}A 6- A% 6- A% A0(6-$+&,%(7<%&,0A 6-&!Ap} A 6- A0*( Go To 堣6-$ A@*6- A' B:, 6. Ơ' A}D 6- A0.( line to Š46-> A@D6-:( line to Š$6-*6-4 AP:}6-.($( Lines >  - . Ae"A,6. A6% "67$+&,%,.% A}@!!67$+&,%,.7$+&,%%,J6-&&+&,TR6. >'67B:,%,.=:,767B:,%,.-H67B:,%,.=:},R A^<(} LINE(S) B:, 26. < Ah3(Insert Line # #6-- A@36-r}H 6-&&(# of to insert ?8((MAX=) B A@H6-| Ae(A+( Working..-%%}+6-$+&,%67<%&,. -6L6-$+&,%!6-$+%&,%967<%&,.7<%&,H67<%&,.L }U 6-%6.=:,:67B:,%,. Lines before K67B:,%,.=:,U AA)AR6-%@"}#!)6- (} B:, 6- A 6--6-$+&,% -(7<%&,6-% }1AR-+(LINE #  16-7-@+(EDIT MODE 7AR 1-}"(>:,>:@0,6-"6-& "(0- A@F:,AU#)- A:F:,"A@D*F:,}@*  A`* A@N"F:,"@6-" A pX"F:,"@6-" A pb F:,"6- A p}l3"A%)+"@'*",) A`3 A@n@'Ap" F:,"AV" A@r" F:,"}AV" A@vAWA@! 6-F:,6-F:,!AR/-@"(>:AV,)AR/-B} (>:,0+"@1)"@0,*F:,!@88(>:,B A@4"+"@()"@),*F:,"*(>:,4 A@F:,"}*AVA ! 6-F:,6-F:,!AR3"AV-@")(>:AW,3 A ;"*"AU6}-@"%6-1@"; A p - (LINE # % 0AR1-0(>:,>:@0, 6-}F:, @8A `"@"6- A p/ @"6-%%(>:AU,/ A ` 1(>:,>:@}0,  A@! 6-F:,6-F:,!AR 4-@,(READING PAGE 41* , A@}4 -6-$+&%,%> -H+AB@+AB@RB:,"A!P\67B:,%,.7B:,%},f67<%&,. p 6-%!6-z "6-& A A" 6-%!6-& A} A"@ 6-& 6- A 96.** Last line read >>/67B:,%,.=:,9 A&6.E}mpty Ơנ *& A0!!( text from BUFF AeA# A+ 6.6-!6. }Ơ+ A $ A6. Ġ 6- A`6- 6.$ A$.  B:,"A#p}8 67B:,%,.7B:,%,B  6-%! A$@L 67$+&,%<$+&,%,.V A#P` j F:A,"A}6A$0t A~ 6.ĭ A 7'6.Ơ쬠-6-7 A Ax} 6. Š  6- A` A#@ B:,A% 6. Ơ A 6. 0@}@2&6-@0 A0 (Šՠ  ( As Text File  (As PRINT Stmnts (As DATA St}mnts  ( Main Menu  ( 6-66- A 6-  " A( L*(" } blank lines from buffer<( During SAVE F ApL6-2 A&A& A&P< <#(File # for PRINT statements}<((i.e. 6 for '? #6;')F (P # 6- A06-# A&`Z (Write DATA Statementsd 7(}Starting 堣 '6-B'g&1 A076-n =6-P:+B'g&,',-(Line 7 A@=6-x A 6-6.} Š%6-@16-@; A`A6- - ,6-$+&,%"7<%&,4*, A(@ "A' } (6-% &A'@A'p ( ? (A'` (#; (>:@4, A' (} DATA  6.7<%&, 6-?::@4, (  }" B6.!167B:,%,. 堣>B67B:,%,.=:,,  2 A%6  B:,  A$@  6.}@2J  6-@ A0T (ԠӒ ^ ( 40 Char Lines h (Newspaper ۲ Col}r (Newspaper ۳ Col| ( Return to Main  ( 6-66- A 6- "A} ^@(( for Printout46-@0> AD6.K0^67B:,%,. Pg  6&(} text as it }is printed:0 Ap66-  "6- A0  =6-@ $-(Left (max=)7 A@=6- !(!(V}ertical line spacing: ""( Single (screen format) ( Double ( 6- A ! "6-@!6-@} ! "6-@!6-@H  "6- A0 (* CHARACTER SET SELECT * ( USE ATARI SET 0(} USE CUSTOM SET0( FROM FILE  ( 6- A6-& (Get  (And Press k}ey (< to abort>& ( A)("AUA100 5"@'%6.Ԡ+5 A:  A}$ ? AVD  6-6-&@N ,@P:,(A>:,OX !A2pb 6-@:}K, A4`l -v 96-$+&,6.7%<%,$4/(@9 A2@ (+,A20 06-?: A5H  R (6-&A4@\ }6-%+&,$!A4@f A5Pp  6-%!A2`z A2  6.=:,6-% $ 4-( }!6-$$ K( A5`6-B:,% A5@86-?::@',>:,>:,>:,U$ }H-%+"@,( +(A;(A>:,E A4H$ & 6- A5@#6-?: % A,)8"@'>6-H A @E 6.D67,.=:,(67@,.:;A}TE AOO104,240,10,201,2,240,7,170,104,104,202,208,251,96,104,133,213,104,133,212OO104,104,133,216,}160,0,177,212,230,212,208,2,230,213,160,0,132,217,201,128LL144,4,41,127,198,217,170,133,218,224,96,176,11,169,64,224,32,1}44,2,169LL224,24,101,218,133,214,169,0,133,215,162,3,6,214,38,215,202,208,249,24MM173,244,2,101,215,133,215,160,0,240},2,208,187,162,0,177,214,230,214,208JJ2,230,215,69,217,149,228,232,224,8,208,239,162,0,22,228,42,232,224,8MM208,248,1}53,220,0,200,192,8,208,238,162,0,181,220,201,155,208,4,169,151LL149,220,232,224,8,208,241,162,112,169,11,157,66,3,169,220},157,68,3,169DD0,157,69,3,169,0,157,73,3,169,8,157,72,3,32,86,228,198,216,208 166,96MM104,240,10,201,2,240,15,17}0,104,104,202,208,251,169,0,133,212,169,1,133QQ213,96,104,133,215,104,133,214,104,104,168,136,177,214,201,32,208,9,136,20}8;;247,177,214,201,32,240,1,200,132,212,169,0,133,213,96D:MATTEDIT.141CSTSIBMAXLIMMMCNLLDRLLSMATT*EDIT Enhancementsby Matthew RatcliffANALOG TCS ID# 1109Previously Unpublished New FeaturesIn Issue 21, }August 1984, I presenteda 40 column text editor calledMATT*EDIT, Revision 12.0. Several ofits unique features included ed }itingand printing text with all of ATARI'scharacters, control charactersincluded. It would also let youtreat disk direct }ories as if theywere files allowing you to createcomplete catalogs of all your disks.In this article I will present twoma }jor revisions to MATT*EDIT, alongwith several minor changes. Thefirst is expanded disk handlingfunctions, supporting all }of the diskXIO commands. The second, and mostpowerful, is support of customcharacter sets. Take a look at thesample pri }ntout below, made withMATT*EDIT 14.0.This is as close as you will get tothe MacIntosh's MacWriter on yourATARI, for the }price anyway. Withcustom characters of your owncreation, there is no limit to thefancy printing you can do. If youdon't } already have a character seteditor, I highly recommendCREATE-A-FONT, by Vince Erceg, whichappeared in the February 1984 i }ssueof ANALOG. It was used to create thechubby characters in the sampleprintout. New Disk FunctionsThe 'KILL FI }LE' option has beenremoved from the main menu to the'ERASE FILE' function in the revisedDISK FUNCTIONS menu. Option seven }ofthe MAIN MENU is now the 'Custom Set'function. The DISK DIR in the MAINMENU in now DISK MENU. The optionsavailable fr }om the new DISK FUNCTIONSmenu are as follows:1. LIST/PRINT DIR - You will beprompted to LIST or PRINT thedirectory. If }PRINT is selected, atitle is requested as well.2. LOAD/MERGE DIR - LOAD or MERGE adisk directory into the text buffer.A }directory title will be requestedfor either selection. If the bufferis already empty, the LOAD functionis automatically s }elected. Any LOADfunction, whether a directory or textfile, always empties the bufferbefore loading the new information. }You will be given an 'ARE YOU SURE'prompt with any function that ispotentially dangerous to your text inmemory or file(s) }on disk. The MERGEoption will place the chosendirectory at the end of the currenttext buffer.3. ERASE FILE - This optio }n allowsyou to delete a disk file (and soundsa more friendly than 'KILL FILE').4. RENAME FILE - This functionenables you } to change the name of anyfile. The program will prompt forthe old filename. If it is notfound, you will be informed. O }ncelocated, the new filename isrequested. If 'YOU ARE SURE' thisfilename will be changed.5. LOK/UNLOK FILE - LOCK or UN }LOCK adisk file. In revision 12, theasterisk ( * ), indicating a lockedfile, was always taken out of thedirectory list. } This was done tomake enough room for two filenamesper line in the text buffer.Revision 14 now keeps the lock flagsintact }, and deletes an unecessaryspace from the filename instead.6. FORMAT A DISK - This function willcome in handy should you }ever run outof disk space in the middle of a filesave.7. MAIN MENU - Return to the mainmenu.With these additional feat }ures, youwill only need to use DOS to performcopy functions or write DOS and DUP'.SYS' files. Custom Character Sets }The new addition to the main menu is'Custom Set.' This will select theCUSTOM-SET mini menu. From here youcan:1. LOAD }NEW - LOAD a NEW characterset file.2. VIEW SET - VIEW the last customcharacter set loaded. If no set hadbeen loaded pre }viously, you will beinformed and returned to theCUSTOM-SET menu.3. MAIN MENU - Exit to main menu.The character set file } load is justlike any other. When a filename isrequested, you may press the RETURNkey only to get into the diskdirectory } routine. It will takeabout three seconds to load thecharacter set file since I use ashort machine language routine to ge }tthe job done. When a character setis selected, it will be loaded andchecked for validity. A characterset file should b }e 1024 bytes long,no more and no less. If the file isnot exactly that length, you will beinformed of the error and return }ed tothe current menu. To VIEW the set,all of ATARI's printable characterswill be displayed on the screen.Pressing the R }ETURN key will enablethe custom character set; a secondRETURN will restore the normal setand return control to the menu. } Additional FeaturesI recieved a very nice letter fromDavid Steinman, written withMATT*EDIT 12, requesting a casset }temodification. Having suffered with acassette based system for two yearsmyself, I was glad to oblige. Diskfunctions ne }ed not be taken out forcassette users; in fact they shouldbe left in (if the RAM is available)for the day when you do get }a disk.After a little head scratching, Ifound that line 775 in theenhancments listing was all that isnecessary to make th }e change. Justpress the RETURN key whenever you areasked for a drive number. Then typeC: for the filename to LOAD from o }rSAVE to. You will be able to keepyour text files on cassette and evenload custom character sets fromcassette. I also m }odified line 2860for 800XL owners. One of the bugscreated by Atari, while "enhancing"the Operating System, was improperh }andling of the cassette writeroutine. It leaves the SOUNDregister number zero on. Withoutthis line you would hear the ca }ssette'leader tone' constantly after savinga file.I have found that lower case is muchmore commonly used, when editingt }ext, than upper case. When enteringthe edit mode, MATT*EDIT will nowdefault to lower case. Once a customcharacter set ha }s been loaded, youneed only press the ESCAPE key totoggle sets when editing text. If nocharacter set has been installed, }this is still an invalid keypress.Any time you go to the EDIT menu, youwill be reminded to press the ESCAPEkey to toggle s }ets if one waspreviously loaded.Printing a text file with a customcharacter set is just another promptin the print routi }ne. If a set hadbeen loaded previously, you will beasked to print with Atari's set orthe last set loaded, indicated by it }sassigned filename. The pagenationfunction has been modified slightlyas well. If you press RETURN onlyfor a title, no t }itle or page numberswill be printed. Perforations willbe skipped, but without pagenumbering. This is preferrable whenus }ing MATT*EDIT to create title pagesor control character pictures. What's NextThere is not much else that can b }edone with MATT*EDIT, but I am open tosuggestions. The only enhancement Ican think of is a machine languagekeyboard inpu }t routine. There is alot of overhead in keeping track ofall the borders, special functionkeys, and console keys. The maxi }mumtyping speed is a bit slow. I may getambitious someday and tackle this onefor a possible Revision 15. If youshould fi }nd any bugs, or come up withany new features for MATT*EDIT youare welcome to drop me a line. Matthew J. W. Ratcliff }TCS ID# 1109 come up withany new features for MATT*EDIT youare welcome to drop me a line. Matthew J. W. Ratcliff gh((FILELNFNSTPHONECSTATEZIPEXTRATABSECTORBYTEMENEDIRZXDELAKKKNTKKKQZZ } @ @  } } !"#$$$*** MAILING LIST PROGRAM ***$$*** by ***$$*** }GARRY PATTON ***$$*** PO BOX 137 ***$$*** ROMULUS, NY 14541+0137 *** ss;A,;}@,;@,;@%,;@,;@!,;@,;@,;@",;@9, G9A,9A,G6}.% g#@@S:C@@K:O6-@[6-}Ag6-Y @u9@@D:MAILDATA.FILC BO6-Y AKq(>:AS,}(8( MAILDATA.FIL IS NOT ON THIS DISKJAR@q("DO YOU WANT TO CREATE MAILDATA.FILL((Y or N)N0)@}@x0@@uQ"@xRD @@D@@D:MAILDATA.FILSd}AY6.0-@A=67<,.+A U-@Ad@Ys 68,-68,-"(@}& 8AY@4C@o@@D:MAILDATA.FILs _6AY@4"(>:AS,%(3}( ERROR!!6dCREATE FILE$n 6.(}ph6-6."6-@.6-@4-D( LAST NAME: X-@}@(^-d(-h rD -%)@" A."@:6-D As"AUA0w=6}7B:,%@,.>:,)B:,!@3 A= A~ A2B:, @(67B:,%@,. 2 A0 } $67B:,%@,.]6-6."6-@(-9( FIRST NAME: M-@@#S-Y(-] D -}%)@" A."@:6-D AP"AUAb=67B:,%@,.>:,)B:,!@}3 A= AP AT2B:, @(67B:,%@,. 2 Ab  $67B:,%@,.Y6-}6."6-@(-5(STREET: I-@@7O-U(-Y D -%)@" A."@}:6-D Av"AUA=67B:,%@,.>:,)B:,!@$3 A= Av A2}B:, @$(67B:,%@,. 2 A  $67B:,%@,.W6-6."6-@(-3(C}ITY: G-@@3M-S(-W D -%)@" A."@:6-D A"AU }A$=67B:,%@,.>:,)B:,!@ 3 A= A A2B:, @ (67B:,%@,. 2 !}A$  $67B:,%@,.A6-6."6-@(-4(STATE: :-A(--D -%)@"}" A."@:6-D A4"AUAP=67B:,%@,.>:,)B:,!@3 A= #}A4 A63B:,@(>:AS,%-)(3 A4  $67B:,%@,.G6-6.$}"6-@ (-2(ZIP: 8-G( -----+---- D -%)@" A."@:6-D Ad"%}AUAt=67B:,%@,.>:,)B:,!@3 A= Ad Af2B:, @(67B:,%@,&}. 2 At  $67B:,%@,.L6-@6-@!--(PHONE: B6.(---) --- ----H-L('}D -%)@" A."@:6-D A"AUA3"@67<,.>:,)6-@(}3 A 3"@ 67<,.>:,)6-@3 A$%67<,.>:,% @A&'B:, @'6)}.(---) --- ----,  $067B:,%@,.6W6-6."6-@(-3(EXTRA:G-@@4M-*}S(-W :D -%)@" A."@:6-D A>"AUA2B=67B:,%@,.+}>:,)B:,!@!3 A= AH AL2B:, @!(67B:,%@,. 2 A2N  $P67B:,%,}@,.TYB:,A(>:AS,"(7(ERROR IN FILE$!!K-@AO Y AXm-@@1(-}File as shown (Y or N)?C-@@`(N cancels this printing.m)@Z#@x#@AD\.}"@x(} `46-%@!A*(>:AS,4 Aa)@8,8,% @) b @/} ` (}-@@D($I'm sorry, but MAILDATA.FIL is full!X-@A\ ` b (}-@@0}9(CHOOSE APPROPRIATE NUMBERK-@b(RECORDS ON FILE n-@@((1 Add New Name:-@1}@J( 2 Edit Name\-@@n( 3 Delete NameE-@@'AR@8( 4 Print NameE)@2};@I@P'@Q;@RA"@QA@"@IA"@P3}A0J-@@=(#WILL YOU BE USING PRINTER (Y or N)?J)@"@xA K-@@4}>($WILL YOU LPRINT ALL OR SOME (A or S)K)@"@e AP: A XCOUNT RECORDS ON FILE\T 5}@AY3-@AB@K68,-T68,-^;@-7@<@,0+++++;6}6-%@b' AY@4# B' (>:AS,c-@@-!(5-@@09 7}?-c(ITEM TOO LONG! STAY WITHIN -'S!,-@A  %-)(,$ -%(>:,0F:Ad,"AU8} -%&( 0 A+)@"A&(6-@+$5 -%(>:,$AdAU26-%@5$9}PRINT NAMEa (}-@@:(DO YOU WANT TO SEARCH FOR:L-@@a(1 Last name only4-@:}@4(2 Last name and first name0)@@I0@PA *-@@&( LAST NAME: *;}rB:,!@(>:AS,1-@@5(G-@@Z(NAME TOO LONG!n-@Ar 2B:<},!@$-@@((2 A @!"@I6. ! A" *-@@&( FIRST NAME:**rB:=},!@(>:AS,1-@@5(G-@@Z(NAME TOO LONG!n-@Ar +2B:,!@$>}-@@((2 A 3-@&@8,8,3@.!7@17@ A# O (}-@@<(I'm sorry but I do not@} find:?(O(  -@A  0 (}-@0(RECORD NUMBER  L-@@A}%( LAST NAME: 7-@@L(7@<@, M-@@&( FIRST NAME: 8-@@M(7@<B}@%, I-@@"(STREET: 4-@@I(7@&<@I, G-@@ (CITY: 2-@@C}G(7@P<@i,$ H-@@!(STATE: 3-@@H(7@p<@q,. F-@@ (ZD}IP: 1-@@ F(7@r<@,8 H-@@!(PHONE: 3-@@H(7@<@,B H-@E}@!(EXTRA: 3-@@H(7@<A,D %"@6-% AEF  $J B2y@F}L f-@@ 6(Press to page forwardH-@@!f(Press to page backP J-@@"G}'AR@J(Press to return to menuV :F:B2y,"@&6-&@0 A%: A#` :F:BH}2y,"@&6-%@0 A%: A#j F:B2y,"@ t A#  @6-@ !AI}6-A (@8,8,%@($ EDIT 6-@ A  I-@@,(J} Choose one>-@@I(1 LAST ]-@ @!(2 FIRST3-@@@(3 STREETR-@ @](K}4 CITY y-@@!(5 STATE3-@ @=(6 ZIPO-@@[(7 PHONEm-@ @y(8 EL}XTRA F-@@!)(S as shown;-@@ F(E  $)@$"@A2 :"@IM} A067@<@,.: A0  :"@P AP067@<@%,.: A0  :"@Q AvN}067@&<@I,.: A0  :"@R A067@P<@i,.: A0  :"@S A4067@pO}<@q,.: A0  :"@T Ad067@r<@,.: A0  :"@U A067@<@P},.: A0  :"@V A067@<A,.: A0  "@i6- & A0U =Q}@8,8,,-@@P0 = @ 6- DELETE NAME6-@ A I-@R}@I(/Do you want to this file (Y or N)?0)@@x0@A@ ^"@xS}6---@@B(File deletedV-@AZ ^ G@8,8,%@:@T}8,8,G @h-@A$67<,.+( =@8,8,J @X6-&@d6-U}h >6-#-@@%07<,0 >6-%@ >6-#-@P@i07<,0 >6V}-%@J 537@<@%, 7@<@,J37@&<@I,LI37@P<@I%,, 7@pW}<@q, 7@r<@,L$-@@:( HOW MANY LINES BETWEEN ADDRESSESL-@@V((1-9)c)X}@ @I)!@WAP6-&@H3-@&@8,8,3@>6-#Y}-@@%07<,0 >6-%@ >6-#-@P@i07<,0 >6-%@ FZ}137@<@%, 7@<@,F37@&<@I,II37@P<@I%,, 7@p<@q, 7@[}r<@,-@3 / 6-6-+6-/ D2:MAILLIST.BASKKQZZmMAILING LISTby Gary J. Patton16K Disk - BASICNovember/December 1981 - Issue No. 5This program takes advantage of theNOT]}E & POINT capabilities of theAtari. It is relatively fast andrequires a disk drive with DOS II anda minimum of 16K if onl^}y 75 recordsare desired. On one single densitydiskette 750 records can be accessedif needed; this requires 24K. Theprog_}ram is versatile and can be usedfor any home use for maintaining thatlist of important addresses.As the number of address`}es on fileincreases, the initial start-up alsoincreases. What this means is thatyou should only create the number offilea}s that you think you will need.A datafile called MAILDATA.FIL iscreated to store each record. Anerror trapping routine ab}lerts you ifthe datafile is not on your diskette,and then it asks if you want tocreate one. Be sure you have enoughsectoc}rs left on your diskette beforecreating the datafile. (It requires.94 sectors for each record. Thus,if you want 100 recod}rds, have 94sectors left.)The number of records created iscontrolled by line 83. Set theFOR/NEXT loop to the desired nue}mberif you want other than 100 records.Be sure that lines 13, 83, 352, 604and 2501 are also changed to the samenumber alsf}o.LING LISTby Gary J. Patton16K Disk - BASICNovember/December 1981 - Issue No. 5This program takes advantage of theNOTRepeat Labelby Rob Glassman and Rick BloomTCS ID #1017There is no program to our knowledgethat allows for printing out q}?b'DOS SYSbL+DUP SYSbNMATTEDIT141b9MATTED14DOCbR MAILLISTBASb \MAILLISTDOCbgREPTLABLDOCbwREPTLBL1 bTWOCOLMNBASbTWOCOLMNDOCbREPTLBL3 bREPTLBL2 bMENU bAUTORUN SYSbHELP BASb/DOC TXTb <PRNTLISTBASb?IPOLYCOPY bDISKDIR LBLb#ATARIFINPKGlargenumbers of the same mailing label(such as a return address label)without going through a long drawnout process each r}time you wish toprint one, so we decided to writeone. This program will ask you howmany labels you need, then you willins}put the three lines of the addressfield: 1) name 2) address 3) state, city, zip codeThen you can preview tt}he label tomake sure it it correct, or gostraight to the printing section.If, when in the preview section, youfind an eru}ror in the address, you mayopt for the edit section which allowsyou to change any or all linesindividually.Please note tv}hat you can only have upto 34 characters per line.We hope you find this utility useful!dgethat allows for printing out \ Ft ABCZNU"""D"f 11;@4,;@4,;@4,;x}@,##@@E:k0@C(!} Mailing Label Utility Ver 1k(# by Roberty} Glassman and Rick BloomEE(=This program will print 3 lines on 1 inch wide labels.0(0(%ΡŠӠz}ҠخA A@(1(4(A@(9()(,({}9@2/(("(/@<8(((嬠+(8@FN(((|}+(8@N4y)4YA PT0@@9(}ΠŠӮ}}<(T(Press to print...U)(@)4P)4p@X @Z A0-@d 3 3n3~}x3 3 3 H.(%Do you have to make more labels [Y/N]2H4Y)4y@ >0@@}8(}Ǡ̠;(>(0(0(%--(%| } |% (| -@8@%(|% (| -@8@%(|% (| -@8@%(|" (| }-@8@ "(|$--(%.((Do you want to...8((ontinueB((}dit your label(@54C)4c+0@@5 @4E)4eAPA0E})0C)0c)0e7(٠ήàҠšA A  B(/($Make sure both and B(are turned on! "}("(Press to continue F:B2y,"@@ A0 (( ((Press to r}erun F:B2y,"@@  A@70@@@' AP-(}7(1)  (2)  (}3) +( ('(Which line to edit (1-3)+++@*@*@APAP`APpAP}+((Type new name...(+@ @p.((Type new address...!(.@ @p4($(Ty}pe new city, state, zip'(4@ @pD:REPTLABL.BASdress...!(.@ @p4($(TyKHTkHDRIPGDPd""*** TWO-COLUMN BBS "DOC" ***f""!}*** PRINTER PROGRAM FOR ***h""*** EPSON-COMPATIBLE ***j""*** PRINTERS ***l11;@,;@C!},;AQ,;@,z@-@@EBAF:A,M@p@@!}D:*.*z A M-@@$@=7@<@,0 @'C(M A  (  ( A!}@((&@@:(Print file D1:L@@^AdABk@}@@!}(I A$@5@@? BDDI A0LAR@0( !}BARL A i(6-F:@,8(Header (96 characters maximum)JAW@i!}A@d6YAR@(% A0@O@@PY A%8UAR@!}!@9(KARU A0@##** Reset printer, set top **A##** margin to 2, font !}pitch **B##** to 12 and right margin **D##** to 97 **E""(@@ R B QaJ6@!} AR* BDD66-.(@ #(@.(@+ 6. 67AQ,. +67@!},.A AP7-@AQ@367<,.>:AU,7 C-@AP@,!}@;B:,"C6. 67<%B:,&@,. C-@VAQD@,@;B:,"C!}6. 67<%B:,&@,. 4(@(@&(@46-%@!!** tab to center of page!} **!!** print page number **!!** then form feed **(@b0  F:A,A6!}AD2:TWOCOLMN.BASd""*** TWO-COLUMN BBS "DOC" ***f"" & TWOCOLMN.LST The file "TWOCOLMN.LST" is a LISTedAtari BASIC program which prints 40-character-wide text f%}iles (like thoseyou get over a modem) in two columnson an 80-column Epson-compatible(MX-80, RX-80, Gemini 10X, Delta-10,e%}tc.) printer. It may be adapted toother printers by changing theprinter control codes in lines 325and 465 of the program.%} The program will list the files inthe disk directory, prompt for thename of the file to print, then askfor a "header" %}to print on each page(just give it a RETURN if you don'twant a header). The header isprinted and the program then readst%}he chosen file in sequence, puttingrecords into a "page" buffer: thefirst 53 records are placed in"column 1" and the next %}53 recordsgo into "column 2". A page number isprinted and the page ejected, thenthe cycle repeats as necessary.e text f$uPv ABCZNUD"""D"f" <<;@4,;@4,;@)}4,;@4,;@,##@@E:k0@C(!} Mailing Label Utility )}Ver 3k(# by Robert Glassman and Rick Bloom..(&Modified 01/23/86 by: John KirkpatrickII(AThis program will print 4 )}lines on 1-1/2 inch wide labels.0(0(%ΡŠӠҠخA A@(1()}4(A@(9()(,(9@2/((󠣱"(/@)}</((󠣲"(/@A8(((嬠+(8@FN((()}+(8@N4y)4YA PT0@@9(}ΠŠӮ<(T()}Press to print...U)(@)4P)4p@X @Z A0-@d 3 3n3x3)}}33 3 33 B((Need any more labels made [Y/N],B4Y)4y@ >0@@)}8(}Ǡ̠;(>(0(0(%--(%| )} |% (| -@8@%(|% (| -@8@%(|% (| -@8@%(|% (| )}-@8@ %(|" (| -@8@"(|$--(%.((Do you w)}ant to...8((ontinueB((dit your label(@54C)4c+0@@5 @)}4E)4eAPA0E)0C)0c)0e7(٠ήàҠšA A  B(/($Make sure both )}and B(are turned on! "("(Press to continue F:B2y,"@@ A0 (( )}((Press to rerun F:B2y,"@@  A@70@@@' AP)}-(}7(1)  (2)  (3)  (4) +( ('(Which line to edit (1-4)+55@*@*)}@*@AP''AP`APpAPAP+((Type new name...(+@ @p1)}(!(Type new address #1...$(1@ @p1(!(Type new address #2...$(1@ @p4)}Pi { ABCZNUD"""D"f" <<;@4,;@4,;@1}Y 6 ABCZNUD"""D"@@f" <<;@4,;@4-},;@4,;@4,;@,##@@E:k0@C(!} Mailing Label-} Utility Ver.2k(# by Robert Glassman and Rick Bloom--(%Modified 1/23/86 by: John Kirkpatrick0(0(%ΡŠ-}ӠҠخA A@(1(4(A@(9()(-},(9@-.((󠣱!(.@2.((󠣲!(.@<8(((-}嬠+(8@FT(.(#ٯݿ1(>@T4y)4YA -}PT0@@9(}ΠŠӮ<(T(Press to print...U)(@)4P)4p@-}X @Z A0-@d 3 3n3x3}3 3 3 Q.(&Do you have to make more labels -}[Y/N]?;@Q4Y)4y@ >0@@8(}Ǡ̠;(>(0(0(%-}--(%| |% (| -@8@%(|% (| -}-@8@%(|% (| -@8@%(|% (| -@8@ %(|$--(%-}.((Do you want to...8((ontinueB((dit your label(@54C)-}4c+0@@5 @4E)4eAPA0E)0C)0c)0e7(٠ήàҠšA A-}  B(/($Make sure both and B(are turned on! "("(Press to continue F:B2y,"@-}@ A0 (( ((Press to rerun F:B2y,"@@  A@-}70@@@' AP-(}7(1)  (2)  (3)  (4) +( ('(Which line to edi-}t (1-4)+55@*@*@*@AP''AP`APpAPAP+((Type new n-}ame...(+@ @p1(!(Type new address #1...$(1@ @p1(!(Type new address -}#2...$(1@ @p4($(Type new city, state, zip'(4@ @pD:REPTLBL3.BASss ,z4,;@4,;@,##@@E:k0@C(!} Mailing Label Utility 1}Ver 2k(# by Robert Glassman and Rick Bloom..(&Modified 01/23/86 by: John KirkpatrickEE(=This Program will print 4 1}lines on a 1-inch wide label.0(0(%ΡŠӠҠخA A@(1(1}4(A@(9()(,(9@2/((󠣱"(/@1}</((󠣲"(/@A8(((嬠+(8@FN(((1}+(8@N4y)4YA PT0@@9(}ΠŠӮ<(T(Pr1}ess to print...U)(@)4P)4p@X @Z A0-@d 3 3n3x3}1}3 3 B((Need any more labels made [Y/N],B4Y)4y@ >0@@8(}1}Ǡ̠;(>(0(0(%--(%| |% (|1} -@8@%(|% (| -@8@%(|% (| -@8@%(|% (| -@81}@ %(|" (| -@8@"(|$--(%.((Do you want to...81}((ontinueB((dit your label(@54C)4c+0@@5 @4E)1}4eAPA0E)0C)0c)0e7(٠ήàҠšA A  B(/($Make sure both and 1}B(are turned on! "("(Press to continue F:B2y,"@@ A0 (( 1}((Press to rerun F:B2y,"@@  A@70@@@' AP-(}7(1)1}  (2)  (3)  (4) +( ('(Which line to edit (1-4)+55@*@*@*@1}AP''AP`APpAPAP+((Type new name...(+@ @p1(!(Type n1}ew address #1...$(1@ @p1(!(Type new address #2...$(1@ @p4($(Type ne1}w city, state, zip'(4@ @p D:REPTLBL2ddress #2...$(1@ @p4($(Type ne0B($(Type new city, state, zip'(4@ @pD:REPTLBL2.BASss #2...$(1@ @p4(S#$|AXLPB0NZ<( ((@@d"( 1} +AdAU0@@@70@@Q0@@@c@@1}u@@7{(}AR@++(#++(#|CAL-ENT PUBLIC DOMAIN BONUS DI1}SK |++(#++(# @ -@A1} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@1}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.1}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--1}@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@1},.0$@(''7@<@,4FREE@- @ 2() <@F''7@1}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z+1}+(#| |[ ( |  |\++(#xAR1}[@@9'-@@"C( SELECTIONM A0Q[ BP:,A001}"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@%@,L B31}7@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@B:,07<,4 AH1}67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-@@"?  1} LOADING ? A@@91@@5%? BK-@@"-  CANNOT RUN 7 1}@A BK A0D2:MENUAUTORUN .SYS@@d"( 0;EiͩkΩ͙kCop j`j {j`Hi͝Νh`5}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`4GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L }0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥ}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALID} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4C} $;CC $;C $;CC 8C Z: *DCC ,=  , lɀL +}CCC.LE4 k:泭C0iiCLg3CL<3 Z: *DCC ,=  , /,C0 8} l0N S0G :CC# k:浭C0iiCЪL<3 ,٢=  * q;L8 D, q; $; ,WC } L 4C>  :A>810CC ,/> 1C1>  :Z>810CC ,C> 1CCC , 1= 1 :Yh}hL `=CCЍCCCCCCCCC ; ; ; , 4L3 ,\> 1 * 鈹CɛሢCɛ )CC0}CC ~* 5CCCC Co> 1 * Cɛ ~* 5ܭCCCC C˭CCLE5CCLE5`C`}`C`~, , E5C 4L3? , E5CC 4C $;D浭CC 8CCCBC} lɀYC :L6 : lC񠀈Ѱиi iACCC k:LX6CCCCC q};L8= ; , ,p  , ,  ,1@  :ɛL 15))C q+L 7= , ,V@  ,u@  :ɛL H 7 }7Lj7 7Lj7D 8 7L7 7L7բ@ `ߢC ` ,@  * ECɛ>0$C *00C0C *0" CCL}7`C X*`8` ,@  *0\X TCɛM ~*HC)JJJJ *6CȽC) *(CC0CC}C`8`=8W=Wy 8W=PyL5 ON ,C` ; *nDEǍHI 1C L!9 :C }q+L8L 9 q;L8P 9 q;L8W +L8ML 15))C g+L8 ,C&D?E BHCCC /,C\}XCC X*C-?0  -?C0L8:8鉍C mC mCE?1?C V0*CCC LW9C? }`CL09PC B VB DAEJNK V0 09 ,ʢ? PC D,P B V`CC mC mC?1?L9}CC`i`i`i`i`i`P B} VBDAEJ VBHIL1HI B} V@`HS S ShH )Lc;Lj;h` 0)¢})  q; ,` M;hL$; b,hL$; ,>  , ,L,=L1 :HOh:` ; 0L>!} PUBLIC DOMAIN DOS } ӭ 򮠲 A. DISK DIRECTORY K. BINARY SAVEB. BASIC/RUN CART L. BINARY LOADC. COPY FILE }M. RUN AT ADDRESSD. DELETE FILE N. CREATE MEM.SAVE. RENAME FILE O. DUPLICATE FILEF. LOCK FILE P. COPY SECTORSG}. UNLOCK FILE Q. CHECK SECTORSH. WRITE DOS/DUP R. RADIX CONVERTI. FORMAT DISK S. DRIVE SPEEDJ. DUPLICATE DISK T. WR }ITE VERIFY:ƛ9!&x#!7&p))'&5./)L''-66C76u8COPY DISK Insert source disk and Λ Insert DESTINATION  }disk and Λ IT'S DONE !'Y' to execute or for menuSource drive # ?DESTINATION drive # ?Source drive is # 1Des }tination drive is # 2Enter first sectorEnter last sectorCHECK DRIVE # X >>>>ERROR # 144<<<}MAIN BONUS SOFTWARE DISK |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||Included on this disk>} are several newprograms that the experienced and thenew Genealogist/Researcher will findto be of use in their research ef>}fortand in the management of all theirinformation. Some of the programs onthis disk have been modified by us atCALEDONIA>} ENTERPRISES to be of evenmore use to you. These programs arewritten in BASIC and can also be userchanged also. If you h> }ave any ideas,questions, or comments on what elseyou would like to see on the BONUSdisk from CALEDONIA ENTERPRISES, justd>!}rop us a line at: CALEDONIA ENTERPRISES John P. Kirkpatrick 490-A Abelia Street Sumter, SC 29152-1403>"}ӠҠŠ Some ideas for the uses of theprograms on this disk are as follows: MATT*EDIT Ver 14.1 Produc>#}ing 3 column "newspaper" typecolumns for newsletters, reports onfamilies, and for keeping the pagesdown on documentation p>$}rint-outs. Itwill print the charactersthat the Atari Home Computer willgenerate, and all of the Graphicscharac>%}ters that are in the Atarischaracter set; for example:   { ` QWERTYUIOPASDFGHJKL;ZXCVBNM,>&}. This can be useful in designing anice border or Pedigree chart for the'newsletter' or article that you wantto write.>'} TWOCOLMN.BAS Another text formatter that willallow you to print two columns verynicely (better than the two column>(}format allowed for in MATT*EDIT) forthe larger print newsletters, etc. MAILING LIST A very nice BASIC program for >)}themanagement of your mailing lists. Itwill allow you to sort, print, editand add new names to your listing.This is alot>*} easier to use than usinga word processor to print out yourlabels. The labels normally used arethe 1" variety. REPT>+}LBL1 The original program by RobertGlassman and Rick Bloom that allowedyou to use 3 printed lines on a 1"gummed label. >,} It is fairly straight-forward in its operation and easy tofollow on the prompts. REPTLBL2 The first modified vers>-}ion of theprogram by Glassman & Bloom to allowfor 4 lines of text on a 1" gummedlabel. Other than the expansion, itis op>.}erationally the same as theoriginal version. REPTLBL3 The second modification of the nicelable program by Glassman>/} & Bloom toallow for 4 lines of text on a 1.5"gummed label.Š̠ӠȠŠΠΠϠŠ>0}ĠҠǠӠҠĠĬĠӠϡ٠ԠҠΠĠӠԠĠϠҠӡ >1} SPEDSCPT.OBJ On some of the BONUS Disks, thisexcellent word processor from COMPUTEMagazines and it helpful Quick Ref>2}.file are offered, and allows the useof larger text on the video screen.It is completely written in machinelanguage, and >3}should be loaded fromDOS using the L command, or renamingit, on its own disk, AUTORUN.SYS. PRNTLIST.BASPRNTLIST.BAS >4}is a BASIC 'machinelanguage loader' type of program thatwill allow you to printout from thememory of your Atari 400/800 co>5}mputerany program. This will print out the characters utilized in manyof the programs, and the machinelanguage >6}strings found more and morein todays programs. Usually you willfind that the machine language stringwill cause your print>7}er to do somevery strange things, this programwill ignore the strange commands andjust print out the program as it willap>8}pear on your screen.PRNTLIST.XL does the same as thisprogram except it is for the XL/XEcomputers. POLYCOPY.OBJAn ol>}*************O;@@,;@,+6. D:DOC.TXT=AA%O@@d(* @@::}* A2W (}-@@ *@. 2 5(I(ӠΠMW @P@( ((Ơ @:;}<(ENTER 'YES' TO CONTINUE@,!4YES)4yes)4Y)4y,%D:MENU 4Y%D:MENU D:HELP.BAS$$* 8xYZA6 B=} @%%%%| IMPROVED ATARI LISTER PRGM |%%| FOR PRINTING THE GRAPHICS B>} |%%| CHARACTERS AND MACHINE LANG |%%| COMPUTER SHOPPER DEC 1986 |%%| 400/800 VERSION SUBMITTED BY|%%| DAVB?}ID GARVIN |%%D"(>:A%,DENSITY (1-2) &D @)!@B@}@(P-@A")A5%- AAA@t%P6-?:A6,22(,(!THIS PRINTER IS NOW READY TOBA} USE./(2(<..(&IF SYSTEM RESET IS PRESSED, REACTIVATEF)&(PROGRAM BY TYPING X=USR(1536).)P77104,169,12,141,27,3,1BB}69,6,141,28,3,96,158,238,219Z;;238,157,238,26,6,128,238,157,238,76,120,238,160,0,132d88203,201,155,208,3,76,192,6,201,3BC}2,144,4,201,91,144n::245,201,97,144,4,201,123,144,237,10,38,203,74,201,96x55176,16,201,64,176,9,201,32,176,5,105,64,76,BD}78,68856,233,32,133,208,169,0,133,209,24,162,3,24,38,208;;38,209,202,208,248,24,173,244,2,101,209,133,209,160,799BE}162,1,177,208,157,195,6,169,0,153,208,6,136,232,224559,208,240,160,0,162,8,185,208,6,62,195,6,42,153::208,6,202,208,2BF}43,165,203,240,8,185,208,6,73,255,15399208,6,185,208,6,201,155,208,5,169,151,153,208,6,200::192,8,208,212,160,0,132,2BG}03,185,204,6,132,203,32,167<<238,230,203,164,203,192,12,208,240,160,1,96,76,167,238##0,0,0,0,0,0,0,0,128,27,75,8,0BH}D:PRNTLIST.BASA6 @&D9=7DJ&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *LFJ}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` 'FK}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . FL}1 . ' 1 + . 'hhL.ʥ`HHhh`8L'uFM}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* )FN} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + FO}1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' ,FP} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '.FQ}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh``FR}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOSFS} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`фFT}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂HȱFU}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0FV}` ,0L,L,`޵` `Ȕ`ʔ惥u`FW}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr*FX}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr*FY}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥFZ} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵF[}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i iF\} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + F]}. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 gF^}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00F_}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  F`}L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180Fa}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666uFb}uuhhhLr* +愵 ' + 'I 1 280/66&&&`Fc}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2iFd}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h`Fe}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 Ff}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4HFg}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 Fh}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555&Fi}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL&Fj}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*NFk}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@(Fl}f(()))V)4440T5\5A1+1d5355&(6@6j6S19d9n9959`99L:VK:[:\:`:~ ;5;V;w;;;;'>5>?O>@O>r|>>>>>>>*1?+|?,?-?4Fn}?> @H'@J@J@\@ w@ w@ @ @@@@@@/AnArArA'A'AB'At'B*MB*MB+SB +B*+B>+BH+B.C.Fo}C.#C/QC&/C0/C2C2D6D6D:*D NMDRDUDDFp}K7}8@8h V`A8@Poly Copy ver 1.2 01/07/84By Edward Boyer for COMPUTE!Fq}Modified & compilied by  With Monarch's ABC compilier(Input source,destinationFr} disk(s) 1,28H8HI 8@8@8&8&8@8@8@82M 2 88@8 A888DB8Fs}8DB88:Insert both disks`:*8GAI8D1:*.*A88WC8D7Enter Y to dupliFt}cate file:88GAI8D8 FSECTORS=5;8 F DOS SYS=V;~8 F DUP SYS=w;~Fu}8 F MEM SAV=;~8 FBAD =;~ dupl(Y/N)? 868N5N5Y5 8Y58  Fv}8-8Y58 <~8888  8 8 FC888FB~88 4@?y<8Fw}8m<$88(m<%88888<AShall I ock, nlock destination files, or opy asFx} is (default)!!8GAI8DL=8DU= S=8  8DL=-A88DA88DB88DB888i=Fy}888  8 FA 986*INPUT: 8D8D788(=88V888 88(8Fz}88(**8>@88'> READ ERRORS85> ERROR - 8S N*488F{}88 }|>x N**88U42*88> 888  8 FA6*OUTPUT: F|}8D8>48D78GAI48F*91?8D7$ FILE LOCKED> kip,nlock, or bort:F}}8688-A8DA=|?S8DU=?˺ 8E$8D7к 8E0/*888 C8F~}8?88>? 8D7S'@ERROR #SS@?4Ǡˡ@?8.*F}48888w@88@88@:*8GAI8m<$888F*9@m<%F}88@2*8@ A988@$899F =/A889  9 FA6* F} 8D#8D7@%Copy complete."Hit to run or to exit8GAIOd88DA8F}D1:Am<$888F =At'88D/888FBm<%88D/.B88D/8  FB88D/ BF}+R888E.T88  U8 888 8}8} X88  Y8 88D.F}J8XY8S88B+88(88(8888+R 888E.T88  F}U8 888(X88  Y8 88D.JSC WRITE ERROR:S4!8D7S8F}888(+88DInsert destination disk8GAI+ 98'*8 9WC+Insert sourceF} disk+$988( R*988(9 99 U*999 909 -+&D}@qrAMSGDATEDISKDISKECHOICECHOICTITLETITLE((*<AUfJ}@ J A(@0 #(@,#LPRINT ",1"--(@ ***DISKJ} DIRECTORY***(@ (F<;@@,;@,;@,;@,;@(,F+2((DATE(DD-MM-YYJ})<(@ F(( DISK NUMBER P''(@ DISK NUMBER Q( DISK TITLERJ}(@ Z&&@@D:*.*_(@e +f%%( ***DISK DIRECTORYJ}***g( h( DISK NUMBER i( j nc3(@" FILENAME.EXT LENGTH ACCESSc(J}@" ------------ ------ ------sQ* " FILENAME.EXT LENGTH ACCESSQ " ------------ ------ -----J}-x@ A 6.,W%7@<@,4*%6. B:, @Aee(@ J}7@<@,.7@<@, 7@<@, R\\  7@<@,.7@J}<@, 7@<@, R A -(@-(@    J}; 6-A:,;(@ ($AV BYTES)2 6-A:,2  ($AV BYTES)@J} A ,C#@@K:C@@P:1 +6="(Press when readJ}y/)@:@=$@;@,J'-@##(GO AGAIN'T 4Y%^ 4Nhr J}A  D:DISKDIR.LBL0228 FREE SECTORS011-85RS028 FREE1SEC 1,W06-11-85EL1%.AUfH\!"XRNENIIDSSPERIOA%@wBB? @ @N} AXy %%*******************************%%* ATARI FINANCN}IAL PACKAGE *%%* COPYRIGHT (C) 1985 *%%* CALEDONIA ENTERPRISES *%%* IN THE PUBLIC DOMAIN N}*%%*=============================*%%* BASED ON A PROCESS BY *%%* DR. MICHAEL W. ECKER *%%* FORN} THE TRS-80 MOD. 100 * %%******************************* \ (}@@d-@?-@@N}\(ATARI FIANANCIAL PACKAGE,-@@,(Copyright (c) 1985O-@@/(Caledonia EnterprisesK-N}@A?%O (&&;@ ,;@,;@,2W (}-@@0(MENU OF PROGRAMSB-@@N}W(================<.-@@.(1) COMPOUND INTERESTF--@@ -(2) ANNUITY PLANNINGP.-@N}@.(3) LOAN AMORTIZATIONZ)-@@)(4) QUIT PROGRAMd-@@1(CHOOSE NUMBER (1,2,3N},4)<@\@@K:i)@ @:1,)!@:4,An"@:1, Ax"@:2,N} A "@:3, A0-"@:4,+*@-6 (} ((6(" COMPOUND INTEREST CALN}CULATION,,($ I'll ask you the amount you wish to--(% deposit (one deposit only), followed//(' by the interest ratN}e (percent) and the--(% term in years, as well as the number--(% of times per year interest is given.$D( ($( EN}nter 'C' to continue1)@D"@:C,Ap.'#(}Principal (no dollar sign)'8 ApB<(*(N} Annual interest rate (percent).<6-'AL AV#( Number of years (Time)#`/+(# How many N}times per year (interest)/jY0(( Is the above information correct (Y/N)?=)@Y"@:N,)"@:n,At=(N} ()(} At the end of the period,=( you will have:~6-$+@%',#+$,6-P:A$,'A ($N}Y(0(% Do more interest calculations (Y/N)?=)@Y"@:Y,)"@:y,Ap @P%%(} ANNUIN}TY PLANNING$$( ================Z(3(( In this portion, you can make financialZ(" projections of retireN}ment income.U*(" I'll ask you how much you wish toU(& save or deposit each period. That is,U-(% specify the constanN}t amount you willU(# deposit each period. Then give the Y/(' expected average high and low interestY(% rates (or any tN}wo rates - percents),R.(& followed by the period of payments inR( years. Also give the number of T-(% payments per N}year when asked for theT(" frequency. Interest is assumed to*W-(% be given for any previous balance atW(% payment timeN}s. Press 'C' when ready.4#)@#"@:C,A!>*&( PRINCIPAL (PERIODIC PAYMENT)*H A!N}R"( FIRST INTEREST RATE:"W A!0\6-'Af#( SECOND INTEREST RATE:#k N}A!Pp6-'Az2.(& PAYMENT FREQUENCY (number per year):2 )P:,A!p( TIME IN YEARN}S:D((Is this correct?()@D"@:N,)"@:n,A 1( PERIOD:1( BALANCE #1  BALANCE #2N}-@A -6-6--2 RATES, 2 SUMS-@$6-+@%',$%6-+@N}%',$%6-P:$A,'A6-P:$A,'A(  ( BALANCES: //(P:AN}$$+@%',,'A (((P:A$$+@%',,'A-@A _( DO MORE ANNUN}ITIES (A)?;( OR RETURN TO MENU (M)?R( PRESS 'A' OR 'M' _)@ "@:A,)"@:a,A  "@:M,)"@:N}m,@P ((( } QUICK LOAN AMORTIZATION ((( ======================= e((( ANSWER THE QUESTIONS AN}ND THEP(# COMPUTER WILL PROVIDE YOUR MONTHLYe( PAYMENT AMOUNT. .(*( PRINCIPAL (AMOUNT BORROWED):. .*(" AN}NNUAL INTEREST RATE (percent):. 6-'A .*(" TERM OF LOAN (NUMBER OF YEARS):. /(/(" YOUR MONTHLY PN}AYMENT AMOUNT IS: AA6-$'+@$+@&+@'+@%,,#+@$,,, $$6-P:A$%?P,'A L}d favorite that has been aroundfor some time, originally from theCOMPUTE! Magazine, this version hasundergone extensive mo>}dification andhas been compiled. Sometimes theerror trapping is not what it shouldbe, but with patience and attentionto >}what you are doing, you will haveno problems in doing multiple copyingof disk files. Must be DOS Loaded! DISKDIR.LBL>}As the name implies, this programwill allow the printing of a diskdirectory label for your diskettesand help in keeping yo>}ur disk libraryin order. ATARIFIN.PKGAtari Financial Package, is a conver-sion of programs written for theTANDY 100>} laptop computer for theATARI computers. Very simple and yetvery useful in plotting your financedecisions, another CALEDO>}NIA Enter-prises conversion.ΠŠϠƠӠˠ MICROCHECKOne of the best Electronic Checkbookprograms avai>}lable for the AtariHome Computer along with its documen-tation. You will need to transferthese programs over to a working>} diskand rename the programs as the doc'sstate. Hats off to ANALOG Computingsnew editor an author of this fineprogram.>} LIBRARYFor those who need a program to sortout and manage their diskette libraryand not loose that special neededpro>}gram, this one will do it! Menudriven, you'll find it invaluable infinding the program or disk you needin a hurry. Thank>}s to a member ofthe BOISE (Idaho) USERS GROUP (BUG)for the adaptation of an earlierCOMPUTE! Publications entry.>}Ӡ堛󠛠宠>}堛栠嬠>}ᠠ謠>}򮠠 Good luck in your searching for the family tree!>} John P. Kirkpatrick CALEDONIA ENTERPRISES 490-A Abelia Street Sumter, SC 29152-1403e family tree!<n/