^ O~# !9"Y!o>̀2"!o>̀20!m>*!">*!m))!S)*!m>*!#>*!m))!V)**Qw#w!$*O>)*O*G3!R>!-!o!oRׁ͓!(>*;*O*;!->*;Y3!oR͓>!@>'*;Y3!oRA͓>!g>*;!m>*;!n>*;!m>*;!o> *;Y3!oR͓>!z>*;!S>*;!>*;!V>*;Y3!oR͓>!>*;!S>*;!o> *;Y3!oR͓>!> *;!m>*;!> *;!m>*;!Ҋ> *;Y3!oR ͓>!ފ>*;Y3!oR?͓>!>*;Y3!oRi͓>!> *;!V>*;Y3!oR͓>!>*;!m>*!n>*!m));!> *;Y3!oR͓>!>*;!S>*;!>*;!V>*;Y3!oR'͓>!>*;!V>*;!> *;Y3!oRr͓>!> *;!m>*;!,>"*;!m>*;!N> *;Y3!oR͓>!ފ>*;Y3!oR͓>!>*;Y3!oRڄ͓>!Z> *;!S>*;Y3!oR%͓>!>*;!m>*;!e>*;!m>*;!m> *;Y3!oRe͓>!y>*;!m>*;!e>*;!m>*;Y3!oR͓>!> *;!m>*;!>*;!m>*;!> *;Y3!oRυ͓>!ފ>*;Y3!oR͓>!>*;Y3!x]!"x͐)!oR͓>!> *;Y3!oR<͓>!Ջ> *;Y3!oR[͓>!> *;Y3!oR͓>!>*;!m>*!e>*!m));!> *;Y3!oR͓>!>*;!m>*;!n>*;!m>*;Y3!oR/͓>! > *;!m>*;!>*;!m>*;!(> *;Y3!oRN͓>!ފ>*;Y3!oRm͓>!>*;Y3!oR͓>!3> *;!S>*;Y3!oRׇ͓>! > *;!m>*;!@>*;!m>*;Y3!oR͓>!_>*;Y3!oR͓>!n>*;Y3!oR4͓>!r>*;Y3!oRS͓>!> *;Y3!oRr͓>!> *;Y3!oR͓>!> *;!S>*;Y3!oR͓>!>*;Y3!oRڈ͓>!>*;Y3!oR͓>!͌> *;Y3!oR͓>!׌>*;Y3!oR7͓>!܌>*;Y3!oRV͓>!> *;Y3!oRu͓>!>*;Y3!oR͓>! > *;!S>*;Y3!oR͓>!>*;Y3!oR͓݉>!3>*;Y3!oR͓>!8>*;Y3!o͗,*Y+*Q6d#6,2]![cYN.RPT* -REPORT PROGRAM* IF REPORT DOESNT EXIST, GO INTO dBASESTORE TO MQ:RLPTDO WHILE MQ:RLPT <> .AND. MQ:RLPT <> STORE @ 21,10 SAY WANT REPORT SENT TO THE PRINTER? GET MQ:RLPTREADENDDOIF MQ:RLPT= STORE TO MQ:RDSK DO WHILE MQ:RDSK <> .AND. MQ:RDSK<> WANT REPORT SENT TO A FILE ? GET MQ:RDSKIF MQ:RDSK= TO MQ:RFILEDO WHILE MQ:RFILE = @ 22,10 SAY ENTER FILE NAME GET MQ:RFILESTORE TRIM(MQ:RFILE) TO MQ:RFILEENDIF RDSKENDIF RLPT=N TO MQ:RPT DO WHILE MQ:RPT = @ 23,10 SAY ENTER REPORT NAME GET MQ:RPTIF MQ:RLPT = PLEASE SET UP PRINTER SET CONSOLE OFFWAITSET CONSOLE ONSET PRINT ONENDIF RLPTIF MQ:RDSK = SET ALTERNATE TO &MQ:RFILESET ALTERNATE ONENDIF RDSKERASEREPORT FORM &MQ:RPTSET PRINT OFFSET ALTERNATE OFFIF MQ:RDSK = RELEASE MQ:RDSK,MQ:RFILEENDIFRELEASE MQ:RLPT, MQ:RPT]