home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / clipper / nannws35.arc / TTY.PRG < prev    next >
Text File  |  1989-03-01  |  881b  |  33 lines
  1. * Program: Tty.prg
  2. * Author:  Greg Lief
  3. * Version: Clipper Summer '87
  4. * 
  5. * Copyright (c) 1988-89 Greg Lief.
  6. * Placed into Public Domain.
  7. *
  8. * Syntax:  Tty(<row>, <message>, [<delay>, <stop column>])
  9. *
  10. * Thanks to Jeanne Nerwinski, who had the idea in the first
  11. * place, and Jeff Wolach, who suggested the <stop column>.
  12. *
  13.  
  14. FUNCTION Tty
  15. PARAM xrow, msg, delay, stopcol
  16. PRIVATE xcol, yy
  17. * set delay and stop column if parameters were not passed
  18. delay = IF(PCOUNT() < 3, 20, delay)
  19. stopcol = IF(PCOUNT() < 4, -1, stopcol)
  20. xcol = 0
  21. DO WHILE INKEY() = 0 .AND. stopcol != xcol
  22.    @ xrow, xcol SAY CHR(32) + IF(xcol < 79, ;
  23.       SUBSTR(msg, 1, 79 - xcol), '')
  24.    IF 79 - xcol < LEN(msg)
  25.       @ xrow, 0 SAY SUBSTR(msg,80-xcol,LEN(msg)-79+xcol)
  26.    ENDIF
  27.    FOR yy = 1 TO delay
  28.    NEXT
  29.    xcol = IF( xcol = 79, 0, xcol + 1)
  30. ENDDO
  31. RETURN ('')
  32. * EOF: Tty.prg
  33.