{ Z~# !9"!o>̀2"!o>̀20*\w#w!*Z>)*Z*G3!R>!-!o!oR͓!>*;*Z*;!>*;Y32<2:82:og:ogV+2!w]!<͐)!8:og))~og |!8:og))~og>og+}=¦222!8:og))~2!M:og>ͮ*~2^!M:^og>ͮ*! >͐)!M:^og>ͮ*! >͐)!M:^og>ͮ*!x͐)u!oRӂ͓>[!> *;!ם*;Y3!oR ͓>[!>*;!ם*;!>*;Y3!M:^og>ͮ*!>͐)Y!M:^og>ͮ*!>Pb*!!_E?*^!_6!!_E> )!M:^og>ͮ*! >͐)ʮ!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=$!M:^og>ͮ*!G>P b*!m>*!E!m))!?*B!M:^og>ͮ*!> b*!oRp͓!ț>*;!>P^*!;Y3!M:^og>ͮ*!>P b*!!˛>*!_))!_E?*!M:^og>ͮ*! >͐)4!M:^og>ͮ*! >͐)!oR ͓!͛>*;Y3!ԛ!_E>)!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=!M:^og>ͮ*!@>P b*!m>*!>!m))!?*ͅ!M:^og>ͮ*!> b*!oR͓!ם*;!*!ٛ);Y3!M:^og>ͮ*!>P b*!!ܛ>*!_))!_E?*!oRS͓>[!ޛ>*;Y3!oRr͓>[!>*;Y3c!M:^og>ͮ*!x͐)#!oR͓>[!>*;Y3!M:og>ͮ*])G!ϝ>s*!oR͓>[!>*;!ϝ>*;! >*;!ϝ>*;Y3!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=!oR͓>[!> *;!ם*;!>*;!M:og>ͮ*~og>ͮ(!>*;!M:og>ͮ*"!;!> *;Y3/!oR/͓>[!)>*;!ם*;!/> *;Y3!oRN͓>[!9> *;Y3!oRm͓>[!E>*;Y3!oR͓>[!S> *;Y3!oR͓>[!\>*;Y3!oRʈ͓>[!m>*;Y3!oR͓>[!>*;Y3!oR͓>[!\>*;Y3!ϝ>*!)!_E?*c!M:^og>ͮ*!x͐)!M:^og>ͮ*!x͐)c> og!M:og>ͮ*~og+}2:og+|>2!M:^og>ͮ*!>͐)!M:^og>ͮ*!>Pb*!>*!)!_E?*!_6!!_E>)!M:^og>ͮ*! >͐)ͮ*! >͐)c!;ʌ:=¦!oR͓>[!> *;!m>*;!><*;!m>*;Y3!oR͓>[!> *;!m>*;!_*;!m>*;Y3!E>b**\"C!=!oR ͓>[!>*;Y3*\~#,!oRK͓>[!>*;Y3!띯!z!oRz͓>[!>*;Y3!oR͓>[!>*;!ם*;Y3!4!4Ý:og++|ڋ!oRڋ͓>[!>*;Y3!oR͓>[!>*;Y3!o͗,*+*\6d#6,ɯ2<2!M:og>ͮ*!M>P^*!K!ם?*!M:^og>ͮ*!x͐)~!ם*!)!ם?*:Ɍ!oR͓>[!>*;Y3!oRČ͓>[!+>*;Y3>2^#V"2*~=!M:^og>ͮ*!> Gs*!M:^og>ͮ*!> Gs*>2:2:og:ogV+!!M:og>ͮ*~og:og+ͮ*#!M:og>ͮ*~O> i)G!>b*!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=!>dÚ!>d!M:^og>ͮ*!x͐))Ú!4!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=!m>*!*!m))!?*ð!>^*:og++|&!oR͓!<>*;!ם*;!B>*;!*;Y3!>d#!*!>*!_))!_E?*Ó!oRe͓>[!>*;!ם*;!B>*;!*;Y3!>dʓ!*!>*!_))!_E?*!4%:=!oR͓>[!E>*;Y3!oRߏ͓>[!>*;Y3*~=:2:2)~# !9"a!o>̀2ݓ!o>̀2'ݓ*/w#w!8*+~og))~=!oRɐ͓>[! !>*@!8*+~og))~:}]og>ͮ(@!>*@!8*+~og))~og>ͮ(@!>*@!m>*@Y3!oR͓!Ġ !;*-~ogͮ**@!m>*@Y3ٓ*)!>d5!BG*-~ogͮ*!L>^*R!M*-~og>ͮ*!L>^*!M!M*-~og>ͮ*~og>ͮ*!x͐)*)!>d!L*!)!L?*!8*+~og))~2K*)!>d֑!K5!oR`͓>[!̠ !>*@!8*+~og))~:}]og>ͮ(@!>*@:Kog>ͮ(@!>*@*)*@!>*@!L*@Y3!<6!M*-~og>ͮ*~!<>b*}!M*-~og>ͮ*~¹!<> b*}!M*-~og>ͮ*~!<> b*}!M*-~og>ͮ*~}!<>b*!M*-~og>ͮ*~og |}>21!M*-~og>ͮ*~2c:cog:1ogV+}!<*!)!<?*!14K! <>dٓ*)!>dٓ!oR͓ٓ! ! > *@!m>*@!<*@!m>*@Y3,*a+*/6d#6,^#V"d*d~>2f-*d~2f-*d~=(>2f->2f:fog0 }3>Ò*n"kzSBZ!9ri~#.Y> .i&9œx2~y ‰2"g`<͌*gx2~=]+A ¾AҾG:~=]+x2"g`!F6!m~#x=2͌>E.:+-/28BҮ¤ ʨ K8Õ.ŕ8BŕK8öeϕE8+ߕ8-8B]+G8BxGGG8GyO! ]+8:}3K$y2?~#z0 0!_w!}~h4_!ms]+]+2G:<2}=]+:m]+Ζ¦:mʦ!5!4]+:G:~ʴ!o>2.!~5:!<_!m>w w>+!~5>.)G:x0:> !~#5!4!}5-2x!}^4{BB!m~0>0"i*k~2m:`ޙ`]+:m2n>V˙!nr5~/o :¨>9˙ʨ>*˙ʖ Ø*:n!9q#=Ÿî>2o<2p2q)2l:p_:m*k~2k:k9 :o:o2o;:q=O:o>6:qO:l6͵ôZ*`O:o$y2o:oH:l0H:qO:k*B> 6Z:o2o:qO:l6͵ô:k;:k ¥:kŽ:qO:k>6͵ú:k2o:qO> 6͵ú:o:l0:qO> 6:q=O:k>6:qO:l6:o2o:qO:l6͵ô:kV2:o :o2o; :q=O:o>6:o,<2o͹ú:qO:kg:oR:kB\^:o*^> 6͵ú:qO:kCuD:ˆ> 6 6å:kCœ6 >R6å6 >B6͵͵ú:n*i!q4!p4S+-$G:mOx*k## ՙ<>S˙>+˙>-˙>C˙>D˙:/,.B!pN*k# ȾG:p_:mO x*k# Ⱦ-!i#9w$G:Wx+-kSex+k-Sh>+>-> $ ‡x=Gn ®:1pʗڨ! pxnڨ%nn šn> .ô ԚxΚ>%n ߚnx>n=#x!p #:/p#:p> . >2w!uc:/pJ!pJ> R> RR2t!r2z!xcFÐ).VAL* -VALIDATION PROGRAMY**NONE** VALIDATE IF -MUST BE: >= >= .AND. AND <= <= STORE F TO MQ:VMORE ELSEFSELECT SECONDARYUSE INDEX STORE STR(,) TO MQ:FNDSTORE TO MQ:FNDFIND &MQ:FNDRELEASE MQ:FNDIF # <> 0 SELECT PRIMARY STORE F TO MQ:VMOREELSECANNOT FIND IN LN -LEGAL VALUES ARE: @ 23,0 SAY GETREADENDIFENDDO RELEASE MQ:VMOREMSTORE T TO MQ:VMOREDO WHILE MQ:VMORE .OR. = STORE F TO MQ:VMORE; !qmu (' %$& $ &yp(k)~=dtG@EM99999999@ , SAY SAYGET M99/99/99(XXX)999-9999999-99-9999.999 PICTURE t w z