²³+Š+™+A¤MS¤F¤TEMP¤B¤B1¤B2¤NAME¤NAME1¤NAME2¤NAME3¤NAME4¤NAME5¤NAME6¤NAME¨DIV¨BASE1¤BASE2¤LABEL¤CITY¤COUNÔMARKEÒRECORÄØ×MAØNÆNÏRECLEÎRECLEN±BÁÚSPACEÓPT±PT²DONÅBASIÓÙÆTIMÅSÌB±S±B²S²SL±SL²€€€€€€€€€€ € € € € @@€€€€ !"#$%&'()*+,-.nn***** DATA-BASE SYSTEM ****** BY KENT HERBERT UPLOADED TO: ATARI LIBRARY BBS BY KENT HERBERT› RR€;@,;Bp,‚;@,ƒ;@,„;@,…;@,†;@,]]‡;@ ,ˆ;@ ,‰;@ ,Š;@ ,‹;@ ,Œ;@ ,;@ ,Ž9@,<<9@,;@0,‘;@0,’;@,“;@0,2'6”-6•-'6–-<9—-@&68—,-56Ž8—,-9 —F- 6ˆ.6‰.6Š.6‹.&6Œ.-6.PT +'0@@@1@C-@@T( FIELD SET-UPUARZ%˜-@A ˜% Aô1 +'0@@@1@þ2-@@2( ÄÁÔÁ ÍÁÎÁÇÅÍÅÎÔ ÓÙÓÔÅÍ  -@@ ( ÍÅÎÕ  .-@@.(RECORDS IN MEMORY –.-@@.(RECORD CAPACITY = ™_%2@P@@9˜-@@P= ˜_2( ((ÁDD NEW RECORDS&((ÅDIT OLD RECORDS0 ( (ÐRINT/DISPLAY RECORDS:((ÓÏRT THE RECORDSD(( ÓÁVE THE FILEI(( ÌOAD A FILEN!(!(ÆIELD SET-UP(NEW FILE)X(( ENTER LETTER €b€4AAl€4EA v€4PA0€€4SOA@Š€4SAAP€4LA`”€4F@Pž9 (ý( ÔÒÙ ÁÇÁÉÎ+˜-@A/ ˜9 Aè""**** SET UP FIELDS *******›ò At /-@@/(ÓÅÔ ÒÅÃÏÒÄ ÐÁÒÁÍÅÔÅÒÓ$($(HOW MANY FIELDS (LIMIT 6) Aš—-@š ((NAME #— FIELD ‡$L+(#GIVE ITS LENGTH IN NO OF CHARACTERS5 A`9›B6Ž8—,-›L Ap)68—,-8—&@,%›. —36™-P:B'œ,8 AL At Q%–™&@ AsP% AV8-@@8(ÅÎÔÅÒ ÒÅÃÏÒÄ ÎÕÍÂÅÒ –%@` Auj6-œ&@6–-–%@°,(,(!PUSH ÏÐÔÉÏÎ TO ADD ANOTHER RECORDµ))(!PUSH ÓÔÁÒÔ TO RETURN TO MAIN MENUº F:B2y,"@AÄ F:B2y,"@AÎ AÐ!!****** EDIT *************›Õ At@6ž-Ú%-@@%( ÅÄÉÔ ÒÅÃÏÒÄäC(?(3DO YOU WANT TO REVIEW ÁLL OR ÓOME OF THE RECORDS C„é„4SAvî A @ Aø At@  „4AŸ-@•&œ5-@@5( ÅÄÉÔ ÒÅÃÏÒÄ P:Ÿ'œ,%@ L-@@(ˆ 0-@@L(7Ÿ<8@,%Ÿ&@,*E (‰ -@@E(7Ÿ%8@,<8@,%Ÿ&@,4TB:Š,!(Š --@@T(7Ÿ%8@,<8@,%Ÿ&@,>TB:‹,!(‹ --@@T(7Ÿ%8@,<8@,%Ÿ&@,HTB:Œ,!(Œ --@@ T(7Ÿ%8@,<8@,%Ÿ&@,RTB:,!( --@@T(7Ÿ%8@,<8@,%Ÿ&@,W9-@@ 9(ENTER Ä TO DELETE ENTIRE RECORDX(ENTER Î FOR NO CHANGESY&&(ENTER Ò TO RETURN TO MAIN MENU\7-@@0(WHICH FIELD TO CHANGE4ƒ7(^ƒ4A"_ƒ4DA`ƒ4RAaƒ4NA"fG ƒ4ˆ Aq%-@@)ƒG67Ÿ<8@,%Ÿ&@,.ƒkR ƒ4‰ Aq %-@@)ƒR67Ÿ%8@,<8@,%Ÿ&@,.ƒpR ƒ4Š Aq0%-@@)ƒR67Ÿ%8@,<8@,%Ÿ&@,.ƒuR ƒ4‹ Aq@%-@@)ƒR67Ÿ%8@,<8@,%Ÿ&@,.ƒzR ƒ4Œ AqP%-@@)ƒR67Ÿ%8@,<8@,%Ÿ&@,.ƒR ƒ4 Aq`%-@@)ƒR67Ÿ%8@,<8@,%Ÿ&@,.ƒ„4-@@) -@@00( 4  ‰4-@%@) -@@0( 4  Ž A p˜ „4S$Ÿ"•&A¢ Ÿ A¸ !!******* PRINT ***********›Â  At`6ž-@Ì -@@(ÐÒÉÎÔÖ /(+( WILL YOU BE PRINTING LABELS, Y/N/’à  ’4Y Asê ;7(.DO YOU WANT ÁLL OR ÓOME OF THE RECORDS PRINTED;„ô ’4YA1þ 3‚NO OF FIELDS š BB3ˆ Ž8@, ‰ Ž8@, Š Ž8@, BB3‹ Ž8@, Œ Ž8@,  Ž8@,  „4S Av¬ ’4YA8¶  „4AŸ-@•&œ» [-@@.(ÐÒÉÎÔÉÎÇ ÉΠÐÒÏÇÒÅÓÓ@-@@[(RECORD P:Ÿ'œ,%@À ""3ˆ7Ÿ<8@,%Ÿ&@,Ê ,,3‰7Ÿ%8@,<8@,%Ÿ&@,Ô <B:Š,!<3Š7Ÿ%8@,<8@,%Ÿ&@,Þ ;B:‹,!;3‹7Ÿ%8@,<8@,%Ÿ&@,è <B:Œ,!<3Œ7Ÿ%8@,<8@,%Ÿ&@,ò ;B:,!;37Ÿ%8@,<8@,%Ÿ&@,3„4S$  Ÿ AØ „4AŸ-@•&œÝ37Ÿ<Ÿ%8@,&@,â**37Ÿ%8@,<Ÿ%8@,&@,ì3“ö˜-@ 3 ˜û „4S$ Ÿ T At`-@@2(PRINTING ENDEDF˜-@AJ ˜T A !!**** RE-ORDER SORT ********›ª AtP´&-@@&( ÒÅÏÒÄÅÒ ÓÏÒÔ¾&(&(REORDER SORT ON WHAT BASIS?È( (ˆ(‰(Š(‹(Œ(Ò(( ENTER FIELD‡Ü$ ˆ4‡6¡-$6¢-8@,æ' ‰4‡6¡-8@,'6¢-8@,ð' Š4‡6¡-8@,'6¢-8@,ú' ‹4‡6¡-8@,'6¢-8@,' Œ4‡6¡-8@,'6¢-8@,' 4‡6¡-8@,'6¢-8@,K AtP-@@/( SORT STATUSAAR@K Aph—-@•&œm6£-@r2-@@(6¤-P:—'œ,%@2(¤:–|¥-@•&—&œ†//7¥%¡<¥%¢&@,/7¥%œ%¡<¥%%¢,AC‹6£-(6ƒ.7¥<¥%,(67¥<¥%,.7¥%œ<¥%œ%,š67¥%œ<¥%œ%,.ƒÌ ¥Ñ( ((7¥%¡<¥%¢&@,Ö£AC0Û@wà —êL AtP-@@4(SORTING COMPLETEH˜-@AL ˜ô Aˆ!!**** SAVE A FILE **********›’ At0 ApœO-@@%( SAVING FILE7-@@K(GIVE FILE NAMEO‚¦ @@‚°*@–*@œµ1¥-@@ 6¦-Ž8¥,-*@¦1 ¥º6-œ&@6§-Ä At0AR@É*-@@*(SAVING RECORD §Î—-@•&œØ6§-§%@â6ƒ.7—<—%,ì-@$@(§ö @ƒ —  At[-@@.(SAVING FILE COMPLETE9@M˜-@AQ ˜[ Ap!!**** LOAD A FILE **********›u 6. z At Ap„P-@@&( LOADING FILE8-@@L(GIVE FILE NAMEP‚Ž @@‚˜)@–)@œG¥-@@$)@¦-6Ž8¥,-¦C68¥,-8¥&@,%¦G ¥¢6-œ&@6§-¬ AtAR@®+-@@+(LOADING RECORD §± 6•-–$œ¶—-@•&œÀ6§-§%@Ê-@%@(§Ô@ƒÞ''6ƒ7@<œ,.ƒ7@<œ%@,ã67—<—%,.ƒè —ò Atü\-@@/(LOADING FILE COMPLETE:@N˜-@AR ˜\ AX""**** SET UP FIELDS ********›b—"@6ˆ.‡l—"@6‰.‡v—"@6Š.‡€—"@6‹.‡Š—"@6Œ.‡”—"@6.‡ž6”-”%@¨U6œ-#¥-@@.6œ-œ%Ž8¥,:œ!@U(RECORD LENGTH TOO LONG­;œ!@-(PUSH ÒÅÔÕÒÎ TO START OVER1‡; A²  ¥ $¼ƒ Ar$Æ(—-@Ž8@,!(_% —($Ð(—-@Ž8@,!(_% —($Ú(—-@Ž8@,!(_% —($ä(—-@Ž8@,!(_% —($î(—-@Ž8@,!(_% —($ø(—-@Ž8@,!(_% —($ 00**** PUT NEW DATA IN STRING FORM *********›*6•-•%—&@46¨-—&@>67•&¨<•,.ƒH$„!!**** LABEL SET-UP *********›Ž8*("ENTER THE CITY, STATE, AND ZIPCODE.“8 As ˜1-(%ENTER THE NO. OF LINES BETWEEN LABELS1 ¢$¶_¥-@@)-@@=(MEMORY CRITICAL_2@u@@»=˜-@@P ˜=2ÀE-@@)( =˜-@@PA ˜E ¥ÊD,($NO FURTHER RECORDS CAN BE ADDED.....@˜-@AD ˜Ô$è""**** SETTING BACKGROUNDS ***›ò4 +'0@@@1@4$ü4 +'0@@@1@4$4 +'0@@@1@4$4 +'0@@@1@4$4 +'0@@@1@4$$4 +'0@@@1@4$L""**** USER INPUTS INFO ****›V:((ˆ  Aq0-B:ˆ,%@@: Aq`:((‰  Aq 0-B:‰,%@@: AqeB:Š,"$j:((Š  Aq00-B:Š,%@@: AqoB:‹,"$t:((‹  Aq@0-B:‹,%@@: AqyB:Œ,"$~:((Œ  AqP0-B:‹,%@@: AqƒB:,"$ˆ:((  Aq`0-B:,%@@: Aq’$°!!***** SORT BASIS ********›±6¤-µž"@ At`ºž" At@¿ ( (LOCATE ON WHAT BASIS:Ä( (ˆ(‰(Š(‹(Œ((( ENTER FIELDƒƒ4A€(COMPARE WITH WHICH & ƒ4ˆ (ˆ(6¦-@& Aq & ƒ4‰ (‰(6¦-@& Aq !& ƒ4Š (Š(6¦-@& Aq0"& ƒ4‹ (‹(6¦-@& Aq@#& ƒ4Œ (Œ(6¦-@& AqP$& ƒ4 ((6¦-@& Aq`()-@@)¤"@Aw2<5 6©-Ž8¦,6ª-8¦&@,)6«-@56¬-@U (DO YOU WANT ALL RECORDS:Z((ÅÑ TO _(ÎÅ TO d…i6¤-@ Avn‘p 6«-Ž8¦,6¬-8¦&@,q (DO YOU WANT ALL RECORDS:r((ÅÑ TO ‘s(ÎÅ TO ‘t†@""**** RECORD SELECTION ******›A? At@-@@-( SEARCHING?AR@EDž"@ At`+-@@D(PRINTING IN PROGRESSJŸ-@•&œh7 6¡-Ÿ%ª6¢-Ÿ%¬%6­-Ÿ%ª%©&@76®-Ÿ%¬%«&@|…4NEA†07¡<­,A`¤…4EQAƒP®47¡<­,A`à†4NEA‚ê‘07¢<®,A„ †4EQAƒP ‘47¢<®,A„ž ) €4E At@ A @) A„¨ A5Ð *-@&@&(P:Ÿ'œ,%@* Ÿ4! A(#""**** DELETE RECORD *********›2#((ARE YOU SURE Y/N€<#€4NA €F#67Ÿ<•&œ,.7Ÿ%œ<•,P#" -@67•& ,. "  Z# 6•-•&œ6–-–&@d# A €€D:MAIL3