stL}FILELEFILESUBRANDFILENAMEEOLIOMSG1MSG2MSG3MRANSTARGAREAMAXLESADTRUELEICCOICBADICBLEICSTA MIGHTY LISTER BY PHILIP BATE, Ph.D. (c) 1988, ANTIC PUBLISHING!6-I:,&A!;,!{ +@AA1AACA@UA @g-@@{(@MIGHTY$)-@@)(@LISTER(]];AU,;A`,;@,;@,;@,;@(,;@$,;@6,2u67@,.>:AU,367@,.>:AU,V6.ӠΠҠΠՠu6.ӠҠƠŠ<--6.#IF PRINTER READY PRESS '' TO PRINTF6.hhhLVPqq67@<@,.Vԅh`hhhhhhmmhhhhhhmͥmRqq67@<Ar,.V8ͥ΢%8͍ `iͥiΩ6ȱ%8͍Sss67As<A`,.X `iͥiΩ*ʭ8͍ 8ԥեiԥi`T,#67A<A,.>:AU,,6-C:,Zdn-@-@@Kx6. D:INVNTORY A0MAIN MENU +AR@1AdAUC@@UAVA&gA@dyAAA 6-(( Πՠ*( (*( - LOCATE ITEM & PRINT"("( - SCROLL & PRINT(( - PRINT LIST(( - SCREEN LIST(( - CHANGE MENU(( - DIR & LOAD!(!( - MAKE NEW LIST( (( :6-F:Ad,"AU0@w: A0$)@$"AUA@GG&@HApA`A0AA0ApA @ A0""FIND ENTRY & PRINT ENVELOPESc (}A-AR?-@@_(Locator for item to displaycp(=(2Do you want automatic printout of all locators /OA@d\)@p@A46-@e Ap# A`4(7<%@, A" Ap, A`6"A@d(}("(@C(/($Press Ҡ to get next locator2(C(7<%@,JA@d AT"@2A^ A0hSERIALLY PRINT ENVELOPESr6-%@ A |A@d(}(;(/($Press Ҡ to scroll not print2(;(7<, A!!"@2)"@eAp A0PRINT COMPLETE LIST" (} (("AdAU F:Ad,@cAAWAdAU @?@@PL @W@ A0SCREEN COMPLETE:-@A ("(6-@AP: =B:,"%(NO LIST LOADED9-@AP=  A0CHANGE MENU5 (}-@@5(Šՠ&P( (( - Add items(3( - Delete items6(P( - Save Updated List01(.(# - Main Menu (Without saving list)1(:<-@@ <("ŠŠǠϠΠD#-@@(# A NYA'AR-(}Y&@HA A A@A0X A0bADD NAMElL (}B:,",67B:,%@,.>-@@L( נv((ŠĠ _(,(&B:, FREE CHARACTERS IN MEMORY>-@@"_(PRESS FOR CHANGE MENU;AR'-@@7( FIRST LINE;B:,"A@467B:,%@,.467B:,%@,.>:AU,(( NEXT LINE?B:,"/67B:,%@,.>:AU,5(}? A0 ApDELETE A NAME6-@@"6(PRESS FOR CHANGE MENUVA'-@@;(Item to Delete?VB:,"A@ Ap A`5($(PRESSŠҠTO DELETE5(7<%@,$)@$"AUAp @2A@6-&%@ !!67SAVE ROUTINEHA@dRB:,"A\i( (ŮŠ #(i(@Press to add changes to this file. Press ӧ to change af.(to a new$(DEVICE.FILENAME. Ap"@2A z; (}-@@7(DEVICE.FILENAME TO SAVE;B:,"A0i A 0@5@@A-M6-@2V6-B:,_6-C:,i Ap"@ B" A0E-@@0( I/O ERROR #F:A,;@E BMAKE NEW LIST( (} ((( ǠנӠc(c(XIf you have a word processor use it tomake new files. Separate entrieswith two 's.Q(Q(FYou can also use this program to make lists. Follow directions below._A@d6.(?(NEW DEVICE:FILENAME TO USECUA_ A PAUSE SUBROUTINE-@@"(:6-F:Ad,"AU0@w: A$)@$"AUA "AUA0"@e A $$RAND SUBROUTINE.B:,"A086-%@B""6-?::@',l>:@,7<&@,N@Q$ A0LOAD MENUn A(}@A@@D:*.*U-@Bb)@j(>:,n  @( BLOAD ROUTINE8AR(4(DEVICE.FILENAME TO LOAD8(B:,"A02f A`@5@@A-@M6-@2S6-\6-C:,f Ap<4@ 67,.>:AU,* B4 A0FK (}-@@6( I/O ERROR #F:A,A@K BP A0ZI/O LOAD & SAVEd36-A46-A6'6-A@36-A5n<6-P:'AV,$6-&$AV,%<%%@x<6-P:'AV,$6-&$AV,%<%%@)%@&@$)6-?:C:,<,%%6-F:%,%AV$F:%%@,$ D1:LISTER.BAS