home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / PUSHKEY.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  786 b   |  16 lines
  1. *****************************************************************
  2. *     * 09/92               pushkey.prg                         *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates how to use the PUSH KEY        *
  8. *     * function to stack 50 ON KEY commands.      The POP KEY  *
  9. *     * can be used to unstack ONKEY commands                   *
  10. *****************************************************************
  11. FOR I = 1 to 50
  12.     MSG = "KEY "+STR(I)
  13.     ON KEY LABEL CTRL+F3 WAIT WINDOW '&MSG'
  14.     PUSH KEY CLEAR
  15. ENDFOR
  16.