f##ALINE1LINE2LINE3LINE4LINE5LINE6LINE7MAGMOYRDATAUTHPGRECLINETITLEFILETEMPDDIRFILEKELGTRCOROMMAYPAUTPOSPOSPOSPOSPOSLINYLTGLINELINELINELINELINELINELINEPOSPOS AU !"#$%&'()*+,-./012<<PROGRAM TO ENTER MAGAZINE FILES FOR EASYFIND DATA BASE''---"EASYFIND FILE MAKER" Ver. 1.3-------by Ed Chop$$---(c) Copyright 1989, Ed Chop;@, Ae hh;@9,;@9,;@9,;@9,;@9,;@9,;@9,;@,;@,ss;@,;@@,;@,;@,;As,;@@,;@@,;@,;@,;@,;@,7 (}+-0@@7 A""@@K)@@$, 6. 62B:, @267@<@,.>:AU,@ B:,!6.7@<,J$O77----------- PRINT DIRECTORY TO SCREEN -----------T3( Ap3@@D:*.*^@(h APr@$22---------ADD EOL TO REMAINING LINES---------''A@A0A A6.>:AU,6.>:AU,6.>:AU,6.>:AU,$33------------GET RETURN KEY ROUTINE-----------# AAU# A$X11********** READ LINE CHARACTERS ***********b Ad6-F:@,g"AU AUl (>:,v*F:@, @*@@<F:@,!@7$-@8*(<@@8 A#-%@#AB@OAB@'AU5-%@=( OAU@2B:, @267@<@,.>:AU,$22------------BEGIN MENU SELECTION------------V36-(((3(reate or ppend File?[( irectory, uit` Aj2"@g6.Create(6-@2 A`t2"@e6.Append(6-@ 2 A`y#"@h A@# A{"@~ A * 6. ((File to !*6.D:B:," Ab67@<@,.@67B:,%@ to continueW@a Ag(}q ArF:A,"Ae-(File name error.M( Press to continueX@b Ah(}r A`@ B@ (} ((Magazine Title6-@ A, 6.,67B:,%@ 6.67B:,%@,. H!-@@!(AuthorR6-@ A\3 6.367B:,%@:AU,f" 6-B:,"POS OF MO$ IN LINE1pK 6-B:,6-B:,6-B:,'6-B:,KSET LENGTHS OF RESPECTIVE STRINGSu!!: COMBINE STRINGS FOR LINE1v6-%@w 6-%x 6-%y 6-%z 6-%{67@<,.|67<&@,.}67<&@,.~67<&@,.67<&@,.6."-@@"(Article6-@8 A 6.(6-B:,%@(67<,.>:AU, 6.X6-@ 6-@'6-@XSET PARAMATERS FOR NEXT 5 LINES IN DESCRIPTION-6-6-@-@@-@@(& _-@@0(Description of ArticleB-@@_((39 characters per line)!-@(Line!6.96-@8#-@%@)(3 A96.-#7@<@,4>:AU,- A"(6-B:,%@(67<,.>:AU,??A@A@A#A#A# A#0A#@ 6. A#P  6. A#P  6. A#P  6. A#P$  6. A#p. 7#7@<@,4>:AU,- A7 A#p3 =)7@<@,4 *4>:AU,3 A= A#p8 Q6-%@6-%@-6-&@;6-%@G6-Q A"`B 6-B:,L 6-B:,V 6-B:,` 6-B:,j 6-B:,t 6-B:,~ 6-B:, 67@<,. 3 6-%6-%6-%#6-%+6-%36-% 67%@<,. 67%@<,. 67%@<,. 67%@<,. 67%@<,. 67%@<,. : ADD RECORD TO FILE @@  . @@.@@ 1 (} (((1(Press to End Session ,,($ to Continue w/same Issue CC(; to Continue w/same Magazine, New Issue %%( to Change Magazines  AGET KEY( "@'(} AP- I 6.6.6.6.&6.-6.46.;6.B6.I6.2 V"AU(}/(7@.++(#You can't go back and make correct-,,($tions. If you do make uncorrectable++(#mistakes, you can use a text editor..(&or word processor to make corrections.(--(% That's about it! For more informa-,,($tion about Easy Find see the article-(in ANALOG magazine.(!($('(*(-( A`(4!(9!,,($ Easy Find File Maker may be freely>!,,($distributed as long as the copyrightC!,,($notices remain intact. This programH!((( may not be sold or packaged withM!--(%another product without the expressedR!--(%written consent of the author, EdwardW! (Chop.\!(a!--(% All donations of $5 are welcome andf!(can be sent to:k!(p!( Edward Chopu!$$( 143 Rockland Dr.z!((( Youngstown, OH 44512!(!--(% I would also be interested in index!++(#files for Atari magazines and photo!( magazines.!(!**(" Copyright (c) 1989, Edward Chop!##( All Rights Reserved!(! A` Ae D:EZFIND3.BAS66666666666666666666666666666666666666666666666666666666666666666666666666