&~# !9"!o>̀2"1!o>̀201*w#w*!>^*!*>)**G3!R>!-!o!oR͓>̀!>*;**;!>*;Y3!w]!şx͐)7!oRρ͓>̀!Ɵ>*;Y3!oR͓>̀!ٟ>*;!m>*!ߟ>*!m));!> *;Y3!oR7͓>̀!>*;Y3!oRV͓>̀!>*;Y3!oR͓>̀!ٟ>*;!m>*;!>*;!m>*;!> *;Y3!oR͓>̀!>*;Y3!oR͓>̀!'>*;!*>*!);Y3!w]!şx͐)i!oRI͓>̀!ٟ>*;!m>*!.>*!m));!/> *;Y3!oR͓>̀!9> *;!m>*;!E> *;!m>*;Y3!oRɃ͓>̀!e> *;!m>*;!q>%*;!m>*;Y3!oR͓>̀!> *;!m>*;!>*;!m>*;!> *;Y3!oR3͓>̀!à>*;Y3!oRq͓>̀!Ǡ>*;!m>*!ߟ>*!m));Y3!oR͓>̀!֠>*;Y3!oR͓>̀!ޠ>*;Y3!oR͓>̀!> *;!m>*!>*!m));Y3!oR ͓>̀!> *;Y3!oR+͓>̀!ޠ>*;Y3!oRi͓>̀!> *;!m>*!>*!m));Y3!oR͓>̀!>*;Y3!oR͓>̀!>*;Y3!oRƅ͓>̀! >*;Y3!oR͓>̀!&>*;!m>*;!->*;!m>*;!> *;Y32$!%6!oR9͓>̀!3>*;Y3>2:82:og:ogV+Z!w]!şx͐)!8:og))~og |S!8:og))~2!8:og))~=φ! M>b*:og"&!sS!8:og))~og>og+}=S!M:og>ͮ*~og"!n]!şx͐)ч!M*>ͮ*n& |/!M*>ͮ*n& |·!$4!(܍!oR͓>̀!&>*;!*;!P>*;!M:og>ͮ**!T);Y3!4>b*:og":!.sS!$4:$=S!<܍!oR6͓>̀!&>*;!*;!P>*;!M:og>ͮ**!T);Y3!H>b*:og"N!Bs!4D!w]!şx͐)ª!oR͓>̀!U> *;!m>*;!b>#*;!m>*;Y3!oRɈ͓>̀!>*;Y3!l!oR͓>̀!>*;Y3!n]!şx͐)҉!oR͓>̀!> *;Y3!oRP͓>̀!&>*;!%*;!> *;Y3!oRo͓>̀!> *;Y3!oR͓>̀!á> *;Y3!oR͓>̀!͡>*;Y3D!oRω͓>̀!>*;Y3s!oR͓>̀!> *;!%b)*;!>*;!%*;Y3!oR2͓>̀!> *;Y3!oRQ͓>̀!>*;Y3D!oRs͓>̀!$> *;Y3!oR͓>̀!.>*;Y3!oR͓>̀!=>*;Y3!n]!şx͐)!oR͓>̀!M>*;Y32$<2:82:og:ogV+-!w]!şx͐)!8:og))~og |&!8:og))~2!8:og))~og>og+}=&!n]!şx͐)!M*>ͮ*n& |/!M*>ͮ*n& |!oR͓>̀!M:og>ͮ**![ );Y3&!$4:$=&!oR&͓>̀!M:og>ͮ**![ );Y3!4,*+*6d#6,!oRc͓>̀!d>*;Y3!oR͓>̀!i>*;!m>*;!w> *;!m>*;Y3!oR͓>̀!>*;!m>*;!>*;!m>*;Y3!oR͓>̀!>*;Y3!oR!͓>̀!>*;Y3!oR@͓>̀!¢>*;Y3!oR~͓>̀!Ң>*;!m>*!ş>*!m));Y3!oR͓>̀!>*;Y3!oR͓>̀!> *;Y3!oRۍ͓>̀!>*;Y3~# !M*^#V>ͮ*!P >͐)7!M*~og>ͮ*~4*V>Rb*4!M*~og>ͮ*~^*W>Rb*4!M*~og>ͮ*~=‡*[>Rb*4!M*~og>ͮ*~±*^>R b*4!M*~og>ͮ*~ێ*k>R b*4!M*~og>ͮ*~*v>Rb*4!M*~og>ͮ*~ /*~>Rb*4*6c!M*^#V>ͮ*!>P b*!*R?*!M*~og>ͮ*~!M*~og>ͮ*~!M*~og>ͮ*~=!M*~og>ͮ*~ r*n&!M*~og>ͮ*~ogV+P!"!M*~og>ͮ*~og*n&V+"ۤ*ۤ*V+P!*R>)*#"*!m>***!m))*R?*Z~# x!9"!o>̀2ÕY!o>̀2ãY*`w#w!8*\~og))~=‚!oRE͓>̀!ݤ !>*e!8*\~og))~:}]og>ͮ(e!>*e!8*\~og))~og>ͮ(e! >*e!m>*eY3!oR͓! !;*^~ogͮ**e!m>*eY3U*Z!%>͉±!BG*^~ogͮ*!}>^*Α!M*^~og>ͮ*!}>^*!M!M*^~og>ͮ*~og>ͮ*!+x͐)*Z!(>͉+!}*!,)!}?*!8*\~og))~2|*Z!(>͉R!|5!oRܒ͓>̀! !>*e!8*\~og))~:}]og>ͮ(e!>*e:|og>ͮ(e!+>*e*Z*e!+>*e!}*eY3!m6!M*^~og>ͮ*~ !m->b*!M*^~og>ͮ*~5!m5> b*!M*^~og>ͮ*~_!mB> b*!M*^~og>ͮ*~!mM>b*!M*^~og>ͮ*~og |>2b!M*^~og>ͮ*~2:og:bogV+!m*!P)!m?*!b4Ǔ!Qm>͉U*Z!(>͉U!oRU͓! !Q> *e!m>*e!m*e!m>*eY3,*+*`6d#6,~# q*!x͐)˜!>Gs*å!>s**6!n]!x͐)•2<2:82:og:ogV+)!8:og))~2!8:og))~og>og+}="!M:og>ͮ*~2!M:og>ͮ*n& |/!M:og>ͮ*n& |"!M:og>ͮ*n& }2!M:og>ͮ*~!M:og>ͮ*~!M:og>ͮ*~=!M:og>ͮ**!):ogͮ*?*Ӗ!M:og>ͮ*!>P^*!M:og>ͮ*~og>ͮ(!KP?*!M:og>ͮ*"!>*!!>*!I!>*!!>*!))))))):ogͮ*?*:og:ogV+:2!M:og>ͮ*~ ":ogͮ*>b*!4Ȕ*>^*!񦯖>2:2:og:ogV+:ogͮ**!>**))*?*!4G>2:82:og:ogV+!8:og))~og>og+}= !M!8:og))~og>ͮ**!)*?*!4à^#V"*~->2R*~=2R*~=M>2R>2:og0 }3>Ò*͓"ŸxBZ!9ʗʎ~#S~> SŽ&9x2y ®2"ͅ<ͱ*Dx2=]+A AG:=]+x2"ͅ!F6!~#x=2ͱ>ES:+ -/2]gәə ͙ p]ú.]gp]ۙeE7]+] - ]g]+G]g+xGGG]3GyOF ]+]7:XpIy2d~#z0 0!_w!~ҍ4_!s]+]+2G:<2=]+:]+˚:˚!5!4]+:G:ٚ!͔>2S!5:!<_!>w w>+!~5>.NG:x05:> !~H5!4!5-2x!^4{gg!~0>0"*~2:ʅʅ]+:2>V!—5~/o :͛>9͛>*ʻ ý*:!9q#=ěӝ>2<22N2:_:ӝ*~2:90: :2 :=O:c[:O:[ڝٛZ:*…O:Iy2:m:0m:O:*g> [:2:O:[ڝٛ::0ʜ:@³:O:c[ڝߛ:2:O> [ڝߛ: :0:O> [:=O:c[:O:[:2:O:[ڝٛ:VW:E:2E:=O:c[:Q<2ޝߛ:O:!Œ:w:BʁÃ:*ʃ> [ڝߛ:O:CʚD:­> [ [ʝ:C[ >R[ʝ[ >B[ڝڝߛ:*!4!4S+-$G:Ox*## <>S>+>->C>D:/,.B!N*# Ⱦ7G:_:O x*# ȾR!i#9w$G:|x+-ʐSʊx+ʐ-Sʍ>+>-> $ ¬x=GÓ Ӟ:1pʼ͞! pxʓ͞JÓÓ ʓ> Sٞ x>JÓ Óx>ʓ=Hx!p0H:/p;H:p> S0>2!c:/po!po> w> ww2!2!cFÐ).GET* - GET PROGRAMYSTORE T TO MQ:GMORESTORE N TO MQ:GDELDO WHILE MQ:GMOREERASEGET TO MQ:MODE* DISPLAY CURRENT RECORDDO .OUT TO MQ:CMD@ 21,10 SAY ENTER N FOR NEXT, P FOR PREVIOUS@ 22,10 SAY S FOR SEARCH, M FOR MORE COMMANDS@ 23,10 SAY PRESS RETURN WHEN DONE GET MQ:CMDREADIF !(MQ:CMD) = SKIPELSEIF !(MQ:CMD)=P SKIP -1SSTORE T TO MQ:SMOREDO WHILE MQ:SMORE ERASE STORE SEARCH* GET FIELDS TO SEARCH FORSAY TO M @ 21,10 SAY PLEASE ENTER VALUES TO SEARCH FOR READ* EXIT FROM LOOP IF FOUND GOTO TOP TO MQ:KEY FIND &MQ:KEY IF # <> 0 STORE F TO MQ:SMORE ENDIF # <> 0 LOCATE FOR = IF .NOT. EOF STORE F TO MQ:SMORE ENDIF EOFENDDO MQ:SMORERELEASE MQ:SMORERELEASE MQ:KEYRELEASE M ELSE @ 22,10 SAY NOT FOUND @ 23,10 SAY TRY AGAIN(Y/N)? SET CONSOLE OFF WAIT TO MQ:DUMMY SET CONSOLE ON IF !(MQ:DUMMY) <> STORE F TO MQ:SMORE ENDIF Y RELEASE MQ:DUMMY%ş &4:HN*NONE*00.000.0( )000-0000000-00-000000/00/00T 99999999@ , SAY SAYGET M99/99/99(XXX)999-9999999-99-9999.999 PICTURE YMSTR(,)WARNING! LOGICAL KEY!+ + 5 K