S D~# !9"N!o>̀2"!o>̀20!m>*!>*!m))!H)*!m>*!>*!m))!K)**Fw#w!*D>)*D*G3!R>!-!o!oRׁ͓!>*;*D*;!">*;Y3!oR͓>!5>'*;Y3!oRA͓>!\>*;!m>*;!c>*;!m>*;!d> *;Y3!oR͓>!o>*;!H>*;!>*;!K>*;Y3!oR͓>!>*;!H>*;!d> *;Y3!oR͓>!> *;!m>*;!> *;!m>*;!NJ> *;Y3!oR ͓>!ӊ>*;Y3!oR?͓>!׊>*;Y3!oRi͓>!܊> *;!K>*;Y3!oR͓>!>*;!m>*!c>*!m));!> *;Y3!oR͓>!>*;!H>*;!>*;!K>*;Y3!oR'͓>!>*;!K>*;!> *;Y3!oRr͓>!> *;!m>*;!!>"*;!m>*;!C> *;Y3!oR͓>!ӊ>*;Y3!oR͓>!׊>*;Y3!oRڄ͓>!O> *;!H>*;Y3!oR%͓>!>*;!m>*;!Z>*;!m>*;!b> *;Y3!oRe͓>!n>*;!m>*;!Z>*;!m>*;Y3!oR͓>!> *;!m>*;!>*;!m>*;!> *;Y3!oRυ͓>!ӊ>*;Y3!oR͓>!׊>*;Y3!x]!x͐)!oR͓>!> *;Y3!oR<͓>!ʋ> *;Y3!oR[͓>!Ջ> *;Y3!oR͓>!>*;!m>*!Z>*!m));!> *;Y3!oR͓>!>*;!m>*;!c>*;!m>*;Y3!oR/͓>!> *;!m>*;! >*;!m>*;!> *;Y3!oRN͓>!ӊ>*;Y3!oRm͓>!׊>*;Y3!oR͓>!(> *;!H>*;Y3!oṘ͓>!> *;!m>*;!5>*;Y3!oR͓>!T>*;Y3!oR ͓>!c>*;Y3!oR)͓>!g>*;Y3!oRH͓>!u> *;Y3!oRg͓>!> *;Y3!oR͓>!> *;!H>*;Y3!oR͓>!>*;Y3!oRψ͓>!>*;Y3!oR͓>!Œ> *;Y3!oR ͓>!̌>*;Y3!oR,͓>!ь>*;Y3!oRK͓>!> *;Y3!oRj͓>!>*;Y3!oR͓>!> *;!H>*;Y3!oR͓>!>*;Y3!oR҉͓>!(>*;Y3!oR͓>!->*;Y3!o͗,*N+*F6d#6,2R!PcYN.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:RPTR