6 Ǎ~# !9")!o>̀2"!o>̀20*ɍw#w*Ǎ! >^*!ҋ*Ǎ>)*Ǎ*G3!R>!-!o!oR͓!֋>*;*Ǎ*;!ۋ>*;Y3!oR͓>ɋ!>*;Y3!oRف͓>ɋ!>*;Y3!oR͓>ɋ!>*;Y3!oR(͓>ɋ!&>*;!*>*! );Y3!oRG͓>ɋ!.>*;Y3!oR͓>ɋ!3>*;!m>*;!9>*;!m>*;!<> *;Y3!oR͓>ɋ!G>*;Y3!oR͓>ɋ!X>*;![>*! );Y3!+:΍2!oR.͓>ɋ!^>*;!m>*;!_>*;!m>*;Y3,!w]!tx͐)ۃ!oR͓>ɋ!u> *;!m>*;!> *;!m>*;Y3!oRۃ͓>ɋ!> *;!m>*;!>*;!M:΍og>ͮ**;!m>*;Y3!oR͓>ɋ!Ȍ>*;Y3!oR͓>ɋ!̌>*;Y3!oRN͓>ɋ!M:΍og>ͮ**!ڌ);Y3!M:΍og>ͮ*~ ʁ!oR͓!ތ>*;Y3!M:΍og>ͮ*~!M:΍og>ͮ*~!ύ6>2ˍ!M:΍og>ͮ*~2/:/og:ˍogV+!!ύP>)!ˍ4ڄ!M:΍og>ͮ*~;!oR8͓!>*;Y3!M:΍og>ͮ*~q!oRn͓!>*;Y3!M:΍og>ͮ*~=¦!oR͓!>*;Y3!M:΍og>ͮ*~!M:΍og>ͮ*~ !oR ͓!m>*!ύ*!m));Y3!M:΍og>ͮ*~W!oRT͓!m>*!> *!m));Y3!M:΍og>ͮ*~¡!oR͓!m>*!>*!m));Y3!M:΍og>ͮ*~!oR͓!m>*!> *!m));Y3!oR͓!m>*;!>*;!m>*;Y3!oR:͓>ɋ! >*;Y3!oRj͓>ɋ!&>*;!>*! );Y3!oR͓>ɋ!#> *;Y3!oR͓>ɋ!0>*;Y3>2̍:82-:-og:̍ogV+"!8:̍og))~og>og+}=!8:̍og))~2͍!M:͍og>ͮ*~2ˍ!M:ˍog>ͮ*!x͐)!M:͍og>ͮ*~ʶ!oR͓>ɋ!K> *;!M:͍og>ͮ**;!T>*;!M:͍og>ͮ**!Z);Y3!oR͓>ɋ!K> *;!M:͍og>ͮ**;!d>*!M:͍og>ͮ**![ ));Y3!̍4ó!n]!tx͐)!x]!tx͐)g!oRg͓>ɋ!e>*;Y3!oR͓>ɋ!k>*;Y3!oR͓>ɋ!o>*;Y3!oRĉ͓>ɋ!>*;Y3!oR͓>ɋ!>*;Y3!oR͓>ɋ!>*;Y3!oR!͓>ɋ!>*;Y3>2̍:82.:.og:̍ogV+Ԋ!8:̍og))~og>og+}=͊!8:̍og))~2͍!M:ˍog>ͮ*!x͐)͊!oR͓͊>ɋ!M:͍og>ͮ**! );Y3!̍4,!oR͓>ɋ!>*;Y3!o͗,*)+*ɍ6d#6,^#V"0>2̍:822:2og:̍ogV+ȋ!8:̍og))~2͍!8:̍og))~og>og+}=!n]!tx͐)¹!M!M:͍og>ͮ*~og>ͮ*n& |¶:͍*0w:͍*0w!̍4"25!3c.ADD* -ADD PROGRAMSTORE T TO MQ:AMOREDO WHILE MQ:AMORE* SET UP DEFAULT VALUES DO .FAUERASESTORE ADD TO MQ:MODE* GET DATA TO ADDDO .IO?NO INPUT FIELDS FOUNDY@ 21,10 SAY MAKE AS MANY ENTRIES AS YOU WANT@ 22,10 SAY WHEN DONE ENTER BLANKS FOR READ* ARE WE DONE?IF M <> 00.000.0000-00-000000/00/00( )000-0000* PERFORM VALIDATION.VAL APPEND BLANK* PUT SCREEN DATA INTO FILE REPLACE WITH M WITH !(M) INDEXELSE STORE F TO MQ:AMOREENDIFENDDORELEASE MQ:MODE,MQ:AMORE* RELEASE INPUT FIELDSRELEASE M  ΍5