'===========================================================================
' Subject: BLOWING BUBBLES                    Date: 10-27-95 (23:10)       
'  Author: Earl Montgomery                    Code: QB, QBasic, PDS        
'  Origin: FidoNet QUIK_BAS Echo            Packet: EGAVGA.ABC
'===========================================================================
' This graphic shorty depicts bubbles being blown through a
' soda straw.
DEFINT A-Z
RANDOMIZE TIMER
SCREEN 12
CLS
st = 4
COLOR 15
LOCATE 4, 36: PRINT "BUBBLES";
firstdraw:
FOR x = 20 TO 320
CIRCLE (x, 240), 4, 15
NEXT
CIRCLE (320, 240), 4, 7
PAINT (320, 240), 7, 7
CIRCLE (320, 240), 2, 4
PAINT (320, 240), 4, 4
SLEEP (3)
pickrad:
h = RND * 600: v = RND * 460
r = RND * 8
IF r < 2 THEN GOTO pickrad
IF h < 12 THEN GOTO pickrad
IF v < 12 THEN GOTO pickrad
drawcircles:
IF POINT(h, v) = 0 OR POINT(h, v) = 15 THEN GOTO pickrad
c = RND * 15
IF c = 0 THEN GOTO drawcircles
cc = RND * 15
r2 = RND * 4
IF r2 = 0 THEN r2 = 2
CIRCLE (h, v), r, c
PAINT (h, v), c, c
CIRCLE (h, v), r / 2, cc
PAINT (h, v), cc, cc
cntr = cntr + 1
IF cntr = 4000 THEN cntr = 0: GOTO web
GOTO pickrad
web:
FOR x = 320 TO 1 STEP -st
CIRCLE (320, 240), x, 0
NEXT
st = st - 1
SLEEP (1)
IF st > 0 THEN GOTO web
SLEEP (3): SCREEN 0: CLS : END