;<,¯'Ã'WAIÔA¤ØH¤I¤F¤IN¤ÁRÌNÈIÌAÁSÂNÉHÌT¤C¤MØSEÇSÓÉC±C²ÊRÓCÓJ±ÔI±I²€€€€€ €€ÄÁÔÁÂÁÓÅ ÖÅÒÓÉÏΠ³®°›ÏÒÉÇÉÎÁÌ ÆÒÏÍ ÍÁÃÅ  ›ÍÏÄÉÆÉÅÄ ÂÙ Ò®ÇÒÏËÅÔÔ›u +@'0@@@A0@@@[0@@@u0@@…-@@0(@ >> ATARI <<B-@@](@ > f i l e <oAR@r(u(…( Version 3.1%€-@A €%+ ';A`,'6‚-I:,$?€ MAIN PROGRAM AND MENU›ƒ;‚$?,„;‚$?,90@@@S0@@@m0@@@@‚@…;@ ,†;@ ,d##@@K:iAR@nY A(}5( ** DATABASE FILE SYSTEM **8(;(Y((I) INITIALIZE A NEW FILEp%%((F) PRINT OUT DISK FILE NAMESx+((L) LOAD EXISTING FILE!(+(--> ‚)@‡‡ARŒ1>:‡,4L(  ÌÏÁÄ ÆÉÌÅ' A1 A–8>:‡,4I$( ÉÎÉÔ® Á ÎÅ× ÆÉÌÅ. A8 A˜6>:‡,4F"(ÌÉÓÔ ÆÉÌÅ ÎÁÍÅÓ, A6 A (>:AS, AÈ‚ A6ˆ-+‰%@,$Š90@@ @S0@@ @m0@@ @|( }COMMANDS:(‚(ÊAdAUÌAR@Ò( (D) DUMP FILEÜ((P) PRINT FILEæ( (A) ADD DATAð((C) CHANGE A RECORDú((R) REMOVE A RECORD( (S) SORT FILE((L) LIST FILE NAMES((E) ENTER NEW FILE"((Q) QUIT#(( ((( WHAT DO YOU WANT ? ,)@‡@7>:‡,4D(DUMP! A -6‹-@7 AJ,>:‡,4P(PRINT" A0, AT7>:‡,4A(ADD ! A@-6‹-7 A^F>:‡,4C6Œ-@&(CHANGE 0 A€<6‹-F AhE>:‡,4R6Œ-@%(REMOVE/ A€;6‹-E Ar8>:‡,4S(SORT " Ap.6‹-8 A|">:‡,4L A" A>:‡,4Q)>:‡,4EAš(>:AS, Aô‹"@A@ù 6‹-‡þW(% CURRENT FILE IS NOT SAVED.C CONTINUE COMMAND? (Y/N) P)@‡W >:‡,>:‡,4NA>:‡,0YA>:‹,4E%& +X +b&&@@D:*.*g APl@n,,7B:,&@ to abort.>( (DATABASE default)U(ENTER FILE NAME? _ A‘ì< 6….†B:…,!@2(} 8 CHARACTERS ONLY.< Aò †46….DATABASEô‡"@'Aö! A!6…7@ ,..DATüOAd@6.D:267B:,%@,.…O@@@‰@@Ž4@Š4;‰$Š%Š%@,;‰$Š%Š%@,V6‘-@t6’-@y@zB:,"A~ 6ƒ7’,.ƒ6’-’%AP AE°›º›â6’-@ç@ì 6„7’,.ñ*B:,"AP 6’-’%AP* AU@6“-@$T(0(>:AS,FILE NOT FOUND =)@‡@(J APT AÛINITIALIZE SUBR.›Ü"((HOW MANY HEADINGS "‰ú‰ @Aü*&(ENTER MAXIMUM HEADING LENGTH *ŽþŽ @A26‰-‰&@6-6@6‘-A 6ƒ.6„."”-‰,%!( HEADING #”%@ :%-; B:,!Ž1(MAXIMUM LENGTH IS Ž . REENTER; A€/, B:, Ž"67B:,%@,. , Aƒ16ƒ7B:ƒ,%@,.6 ”@6“-$ÏSAVE SUBR.›ÐmAR6(Press to abort.L((… DEFAULT)c(ENTER FILE NAME? m A‘Ú‡"@'Aä †06….†*! A"!6…7@ ,..DAT4OAd@6.D:267B:,%@,.…O@@H(@‰I(@J(@ŽK(@ŠR6’-@W3B:ƒ, ’%AI)(@ƒ7’:‡,4P6Œ-@$ A0PÖ >:‡,0SA0à d6Œ-@(=(&AFTER EACH RECORD WILL RETURN TOd("THE MENU, ANY OTHER KEY CONTINUES.ê ((PRINT:ì ( (A) ALL RECORDSî ( (S) SELECTIVE PRINTINGð )@‡ô ">:‡,4S A€" A0þ >:‡,0AA0V 4(6•-6–-@*6. 4 A‚ @ $& (+ (RECORD ”%@(0 —-‰: 77(ƒ7—$Ž%@<—$Ž%Ž,„7”$ˆ%@%—$Š<”$ˆ%—$Š%Š,D  —N )@‡S ‡"@'$X  ”b Aƒã ›ä " (}(RECORD ”%@"(î —-‰ø <<(ƒ7—$Ž%@<—$Ž%Ž, „7”$ˆ%@%—$Š<”$ˆ%—$Š%Š,  — ()@‡‡"@'(6˜-@ $H 6ˆ-+‰%@,$ŠR ›\ ”-f 3 k 3RECORD ”%@3 p —-‰z 773ƒ7—$Ž%@<—$Ž%Ž,„7”$ˆ%@%—$Š<”$ˆ%—$Š%Š,„  —Ž  ”¢ $›33RECORD ”%@3—-‰$773ƒ7—$Ž%@<—$Ž%Ž,„7”$ˆ%@%—$Š<”$ˆ%—$Š%Š,. —8$ 6“-6-%@¤Š!A@¥&"(ENTER MAXIMUM ITEM LENGTH&Š¨%Š @6Š-% A@©'';‰$Š%Š%@,;‰$Š%Š%@,ª7(#(RECORD NUMBER %@&()(7—-‰´%!(ƒ7—$Ž%@<—$Ž%Ž, : %¶B B:,!Š8(TOO LONG,MAXIMUM SIZE IS Š . REENTERB A@ ¹, B:, Š"67B:,%@,. , A@%¾6„7B:„,%@,. —È$‡›ˆO(.(#}(C) CHANGE ITEM, (K) KEEP ITEM, ORO((R) KEEP REMAINDER OF RECORD¦((RECORD ”%@°)6™-@6˜-)—-‰ºI(I(ƒ7—$Ž%@<—$Ž%Ž, :„7”$ˆ%@%—$Š<”$ˆ%—$Š%Š, ?¿˜"@( APÄ?)@‡?>:‡,0C*>:‡,0K*>:‡,0R*‡@'AP`ɇ"@'' AP•Î (>:‡,>:‡,4KAPÓ$>:‡,4R6˜-@$ APØ%!(ƒ7—$Ž%@<—$Ž%Ž, : %ÚC B:,!Š9(TOO LONG. MAXIMUM SIZE IS Š . REENTERC AP€Û, B:, Š"67B:,%@,. , APƒÜ$$6„7”$ˆ%@%—$Š<”$ˆ%—$Š%Š,.Ý6™-â —ç6˜-ì™"6“-ö$o›p (}„((RECORD ”%@(Ž—-‰˜==(ƒ7—$Ž%@<—$Ž%Ž, : „7”$ˆ%@%—$Š<”$ˆ%—$Š%Š,¢ —¬%%(DELETE THIS RECORD? (Y OR N)¶,)@‡,>:‡,0Y*>:‡,0NA`pÀ (>:‡,>:‡,4NAa`Ê6„7B:„,%@,. Ô))6„7”$ˆ%@,.„7”$ˆ%@%‰$Š%Š,ü6-&@6“-6„.„7@:‡,,…6š-š&@Šš )š!‰$”8(+( (A) ASCENDING, OR (D) DESCENDING8)@‡ž$>:‡,4A6‡-@$ Aq¨$>:‡,4D6‡-@$ Aq² Ap`¼P (}-@@ (( ÒÅÃÏÒÄ :AR@P”-&@Æ 6›-”Ðœ-›%@Ò1-@@(” œ1B2yÕ‡Aq0Aq@ÚE?„7œ$ˆ%@%š$Š<œ$ˆ%š$Š%Š,2„7›$ˆ%@%š$Š<›$ˆ%š$Š%Š,E6›-œß AqEäE?„7œ$ˆ%@%š$Š<œ$ˆ%š$Š%Š,3„7›$ˆ%@%š$Š<›$ˆ%š$Š%Š,E6›-œé œî›"”Aq€øa6.„7›$ˆ%@<›$ˆ%ˆ,H6„7›$ˆ%@<›$ˆ%ˆ,.„7”$ˆ%@<”$ˆ%ˆ,a6„7”$ˆ%@<”$ˆ%ˆ,.  ” 6“-$? SEARCH›@"6@ A$J (}(ÓÅÁÒÃÈ ÃÒÉÔÅÒÉÁº!(;0@@@U0@o0@ART(0) RECORD NUMBER^;”-‰7(”%@) ƒ7”$Ž%@<”$Ž%Ž,; ”hL( ( (((SEARCH WHICH HEADING: ,”L” )”!‰%@A€@r6•-”&@| A• !6˜-6œ-!6- •6@A‚P –"@6-A:, –"@6œ-A:,6-œ& –"@6œ-A:,: ”-œD •"6@Aƒ0N –A‚€A‚AƒX //„7”$ˆ%@%•$Š<”$ˆ%•$Š%B:,,/Aƒ0] Aƒ€b //„7”$ˆ%@%•$Š<”$ˆ%•$Š%B:,,4Aƒ0g 7B:,AR@A$›#'‡"A&6”-”&@' A‘%œ#6”-”%@ #6†7”,.>:‡,¥# (>:‡,ª# A‘%INITILIZE SEARCH›&%-@@(0%I•"6@%(SEARCH RECORD# )”I” @)”!%@A•:%&•6@"( SEARCH VALUE&?%AR@D%((PRINT OUT ITEMS:F%'('( 1) LESS THAN OR EQUAL TO...H%( 2) EQUAL TO...J%''( 3) GREATER THAN OR EQUAL TO...L%4•"6@(*( ...RECORD# ” ?4 A•`N%.(.(... IN HEADING #•%@?X%)@‡6–-A:>:‡,,b%!!– @)–!@A•`l%!•"6@!6.=:”&@,v%$j' Bpº':(FORMAT NOT FOUND%)@‡0@: A¥( B`Ü(4( DISK ERROR)@‡*@4 B€ D:ATFILE.BAS