home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / SPIN.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  884 b   |  19 lines
  1. *****************************************************************
  2. *     * 09/92               SPIN.PRG                            *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This user-defined function displays a "spinning dial"   *
  8. *     * while a process is being carried out to indicate        *
  9. *     * the progress of a command.     For example:             *
  10. *     *   REPL ALL NAMES with SPIN(FNAME+" "+LNAME)             *
  11. *****************************************************************
  12. * SPIN.PRG - Displays spinning Dial
  13. FUNCTION SPIN
  14. PARAMETER IFIELD
  15. ? ifield
  16. @ 10,40 say substr("|/-\",(recn() % 4)+1,1)
  17. RETURN IFIELD
  18.     
  19.