Waitkey question

[Don Coleman]

I wrote the following table to monitor another *clerk process which calls
various forms and prints them.  It alerts the user when the print queue
count gets too high.  That portion works fine.  My final step was to add
lines 5-6 in order to allow the user a graceful exit method and avoid
closing the window via the "X" close method in Windows.  If I un-comment
lines 5-6 and the user presses the ESCAPE key the application does not exit
as desired but it does "hang" on line #2, awaiting the user to press the
ENTER key.  What do I have wrong in order to press the ESCAPE key (or any
other key) to allow for a graceful exit?  Thank you and Happy New Year!




Dec 29, 2006  13:58           File Name: CONTROL                   Page   1
                             Processing: Auto_Print_Queue

   1 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: end
   2 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
@ENTSEL  If: 
       Then: SHOW "Press \r<ESCAPE>\r to exit the Auto Print Queue
Monitor";push
             key "Q"
   3 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
@KEYQ    If: 
       Then: AA(2,ALLUP,g)="Y "
   4 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
start    If: 
       Then: lookup qs1  k=AA   i=F -ng
   5 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: 'AD(4,*)=waitkey
   6 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 'AD eq "SAVE"
       Then: 'exit
   7 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: AB ge "30"
       Then: beep;msgbox "\r   ***** WARNING   WARNING   WARNING *****
\r\n\r
              # of labels in the print queue is escalating \r"
   8 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: AB="0"
   9 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
more     If: not qs1
       Then: AC(47,*)=""{AB<"Labels in Auto Print Queue as
of"<@TM;display;sleep
              "15000";goto start
  10 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: qs1(76) eq "Y"
       Then: AC=""{AB<"Labels in Auto Print Queue as of"<@TM;display;sleep
"1500
             0";goto start
  11 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: qs1(112) eq "Y" and qs1(76) ne "Y"
       Then: AB(5,.0,g)=(AB+"1");getnext qs1;goto more
  12 -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
         If: 
       Then: getnext qs1;goto more

Don Coleman
Donald G. Coleman, Consultant
402 Andrew Circle
Indiana, PA 15701
dcoleman at dgcreact.com
(724) 349-6302