home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
clipper
/
bcklib2.zip
/
BLUEBG.PRG
< prev
next >
Wrap
Text File
|
1993-01-16
|
1KB
|
49 lines
/*
The source code contained within this file is protected under the
laws of the United States of America and by International Treaty.
Unless otherwise noted, the source contained herein is:
Copyright (c)1990, 1991, 1992 BecknerVision Inc - All Rights Reserved
Written by John Wm Beckner THIS NOTICE MUST NOT BE REMOVED
BecknerVision Inc
PO Box 11945 DISTRIBUTE ONLY WITH SHAREWARE
Winston-Salem NC 27116 VERSION OF THIS PRODUCT.
Fax: 919/760-1003
*/
/* produce blue bg with diamonds */
#define BLUE B
#define LIGHT_BLUE B+
#define DIAMONDS Chr(4)
#command SPRINKLE WITH <char> => Sprinkle( <char> )
#xcommand WAIT TIL SOMEONE FIGGERS OUT TO PRESS A KEY => Inkey(0)
#xcommand CLEAR [THE] SCREEN => CLS
#command ENDFUNCTION => RETURN NIL
#xcommand TURN THAT DANGED BLINKING THING OFF => SET CURSOR OFF
FUNCTION BlueBG()
TURN THAT DANGED BLINKING THING OFF
SET COLOR TO BLUE/LIGHT_BLUE
CLEAR THE SCREEN
SPRINKLE WITH DIAMONDS
WAIT TIL SOMEONE FIGGERS OUT TO PRESS A KEY
ENDFUNCTION
FUNCTION Sprinkle(cChar)
LOCAL nRow, nCol
FOR nRow := 1 to MaxRow() STEP 8
FOR nCol := 7 to MaxCol() STEP 10
@ nRow, nCol SAY cChar
NEXT
NEXT
FOR nRow := 5 to MaxRow() STEP 8
FOR nCol := 2 to MaxCol() STEP 10
@ nRow, nCol SAY cChar
NEXT
NEXT
ENDFUNCTION