5 Seconds :: Temporary Accept Loops
When you have lots of old process code that has heaps of loops but no window event handling here is a quick way to temporarily allow window events to be processed and to release some of those resources for background processes.
DoEvents PROCEDURE ()
CODE
Save# = TARGET{PROP:Timer}
TARGET{PROP:Timer} = 1
ACCEPT
CASE EVENT()
OF EVENT:Timer
BREAK
END
END
TARGET{PROP:Timer} = Save#