home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / clipper / nannws35.arc / CLRSCR.PRG < prev    next >
Encoding:
Text File  |  1989-03-01  |  1.3 KB  |  56 lines
  1. * Program: Clrscr.prg
  2. * Author:  Greg Lief
  3. * Version: Clipper Summer '87
  4. *
  5. * Placed into Public Domain.
  6. *
  7. * Syntax:  Clrscr(<method>, [,<delay>]
  8. *
  9. FUNCTION Clrscr
  10. PARAM clr_type, delay
  11. PRIVATE xx
  12. clr_type = IIF(PCOUNT() = 0, 1, clr_type)
  13. delay = IIF(PCOUNT() < 2, 20, delay)
  14. DO CASE
  15.    CASE clr_type = 1       && Window shade pulled down.
  16.       FOR xx = 0 TO 24
  17.          ClearIt(xx,0,xx,79)
  18.       NEXT
  19.    CASE clr_type = 2       && Window shade yanked up.
  20.       FOR xx = 24 TO 0 step -1
  21.          ClearIt(xx,0,xx,79)
  22.       NEXT
  23.    CASE clr_type = 3       && Barn door to the right.
  24.       FOR xx = 0 TO 79
  25.          ClearIt(0,xx,24,xx)
  26.       NEXT
  27.    CASE clr_type = 4       && Barn door to the left.
  28.       FOR xx = 79 TO 0 step -1
  29.          ClearIt(0,xx,24,xx)
  30.       NEXT
  31.    CASE clr_type = 5       && Curtains opening.
  32.       FOR xx = 40 TO 79
  33.          @ 0,(79-xx) CLEAR TO 24,(79-xx)
  34.          ClearIt(0,xx,24,xx)
  35.       NEXT
  36.    CASE clr_type = 6       && Curtains closing.
  37.       FOR xx = 79 TO 40 step -1
  38.          @ 0,(79-xx) CLEAR TO 24,(79-xx)
  39.          ClearIt(0,xx,24,xx)
  40.       NEXT
  41. ENDCASE
  42. RETURN ('')
  43.  
  44.  
  45. * Function: ClearIt()
  46. *
  47. FUNCTION ClearIt
  48. PARAM t,l,b,r
  49. PRIVATE delayloop
  50. @ t,l CLEAR TO b,r
  51. FOR delayloop = 1 TO delay
  52. NEXT
  53. RETURN ('')
  54.  
  55. * EOF: ClearScr.prg
  56.