'<PRE>
'Only for PC
'
'                                LAVA.BAS
'                              John Rodgers
'                           Wizard Productions
'                             Too Cool Fool
'                            coolfool@flinet.com
'                           john@compconn.com
'
' LAVA.BAS was written to take advantage of an effect I had seen in my earlier
'screen savers. When you issue a PAINT statement on a graphic that is linked
'by small lines, the color crawls along the lines until the edges are reached
'or all the pixels have changed to the new color. This program draws a screen
'full of circles and colored pixels and issues random PAINT statements to
'random points on the screen. Occasionally these points are linked to large
'areas and the color "crawls" across the screen. Like a lava lamp it takes
'awhile it to warm up (for the screen to fill with circles).
'As a screen saver it may not be ideal as some of the PAINT statements take
'awhile to complete before the program surrenders control.


CLS
RANDOMIZE TIMER
REPEAT
	pxsett
	drawCircles
 
	c = INT(RND * 16)
	xpos = INT(RND * 640)
	ypos = INT(RND * 480): 'initiate random numbers

	PAINT xpos, ypos, c, 0:            'the following statements are to
                                        'partialy clear the screen occasionaly

	IF xpos =  50 THEN PAINT xpos, ypos, 0, 0:    'on these numbers paint black
	IF xpos =  55 THEN PAINT xpos, ypos, 0, 0
	IF xpos =  51 THEN PAINT xpos, ypos, 0, 0
	IF xpos =  52 THEN PAINT xpos, ypos, 0, 0
	IF xpos = 150 THEN PAINT xpos, ypos, 0, 0
	IF xpos = 151 THEN PAINT xpos, ypos, 0, 0
	IF xpos = 152 THEN PAINT xpos, ypos, 0, 0
	IF xpos = 155 THEN PAINT xpos, ypos, 0, 0
	IF xmax > 160 THEN
		IF xpos = 250 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 450 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 550 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 255 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 355 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 455 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 555 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 251 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 351 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 451 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 551 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 252 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 352 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 452 THEN PAINT xpos, ypos, 0, 0
		IF xpos = 552 THEN PAINT xpos, ypos, 0, 0
	FI
UNTIL LEN(INKEY$)
END

'----------------------
SUB drawCircles
 FOR k = 1 TO 110
	row = INT(RND * 640)
	col = INT(RND * 480):                   'initiate random numbers
	arow = INT(RND * 640)
	acol = INT(RND * 480)

	ra = INT(RND * 5)
	s = INT(RND * 900)
	'get c (color)
	IF s <= 600 THEN c = 8
	IF s > 600 AND s <= 790 THEN c = 4
	IF s > 790 AND s <= 800 THEN c = 14
	IF s > 800 AND s <= 825 THEN c = 9
	IF s > 825 AND s <= 875 THEN c = 3
	IF s > 875 AND s <= 900 THEN c = 6

	'draw circle
	CIRCLE row, col, ra COLOR c
NEXT k

END SUB

'----------------------
SUB pxsett
REPEAT:                           'pxsett helps make and break circle
	c = 1:                        'connections for the paint statements to
                              ' have greater effect    

	xpos = INT(RND * 640)
	ypos = INT(RND * 480)
	row = INT(RND * 640)
	col = INT(RND * 480):                   'initiate random numbers


	PSET xpos, col, 4
	PSET row, ypos, 0:                  'paint random pixels 3 colors
	PSET xpos, ypos, 4
	PSET row, col, 1
	lop = lop + 1

UNTIL lop >= 20

END SUB