home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / bcklib2.zip / BLUEBG.PRG < prev    next >
Encoding:
Text File  |  1993-01-16  |  1.4 KB  |  49 lines
  1. /*
  2.     The source code contained within this file is protected under the
  3.     laws of the United States of America and by International Treaty.
  4.     Unless otherwise noted, the source contained herein is:
  5.  
  6.     Copyright (c)1990, 1991, 1992 BecknerVision Inc - All Rights Reserved
  7.  
  8.     Written by John Wm Beckner        THIS NOTICE MUST NOT BE REMOVED
  9.     BecknerVision Inc
  10.     PO Box 11945                      DISTRIBUTE ONLY WITH SHAREWARE
  11.     Winston-Salem NC 27116            VERSION OF THIS PRODUCT.
  12.     Fax: 919/760-1003                 
  13.  
  14. */
  15.  
  16. /* produce blue bg with diamonds */
  17.  
  18.  
  19. #define BLUE B
  20. #define LIGHT_BLUE B+
  21. #define DIAMONDS Chr(4)
  22. #command SPRINKLE WITH <char> => Sprinkle( <char> )
  23. #xcommand WAIT TIL SOMEONE FIGGERS OUT TO PRESS A KEY => Inkey(0)
  24. #xcommand CLEAR [THE] SCREEN => CLS
  25. #command ENDFUNCTION => RETURN NIL
  26. #xcommand TURN THAT DANGED BLINKING THING OFF => SET CURSOR OFF
  27.  
  28. FUNCTION BlueBG()
  29.    TURN THAT DANGED BLINKING THING OFF
  30.    SET COLOR TO BLUE/LIGHT_BLUE
  31.    CLEAR THE SCREEN
  32.    SPRINKLE WITH DIAMONDS
  33.    WAIT TIL SOMEONE FIGGERS OUT TO PRESS A KEY
  34. ENDFUNCTION
  35.  
  36. FUNCTION Sprinkle(cChar)
  37.    LOCAL nRow, nCol
  38.    FOR nRow := 1 to MaxRow() STEP 8
  39.       FOR nCol := 7 to MaxCol() STEP 10
  40.          @ nRow, nCol SAY cChar
  41.       NEXT
  42.    NEXT
  43.    FOR nRow := 5 to MaxRow() STEP 8
  44.       FOR nCol := 2 to MaxCol() STEP 10
  45.          @ nRow, nCol SAY cChar
  46.       NEXT
  47.    NEXT
  48. ENDFUNCTION
  49.