home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / WWAIT.4GL < prev   
Encoding:
Text File  |  1989-12-08  |  236 b   |  9 lines
  1. FUNCTION wwait()
  2. {
  3. The wwait function waits for the user to press a key and then it
  4. returns control to the calling function.
  5. }
  6. DEFINE   dummy             CHAR(1)
  7. PROMPT "\nPress any key to continue." FOR CHAR dummy
  8. END FUNCTION
  9.