===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 06-08-93 (15:57)             Number: 10
From: EARL MONTGOMERY              Refer#: NONE
  To: CALVIN FRENCH                 Recvd: NO  
Subj: Dragons                        Conf: (35) Quick Basi
---------------------------------------------------------------------------
Calvin, here is a little graphic program I put together
to thank you for the dragons. Not much but as they say
it is the Thought that counts.
RANDOMIZE TIMER
DEFINT A-O
DEFLNG P
DEFINT Q-Z
KEY(10) ON
ON KEY(10) GOSUB bye
restart:
SCREEN 0: CLS : WIDTH 80
PRINT "Deep in space stars explode and their matter is drawn"
PRINT "to a virtual black hole. Virtual, in that this black"
PRINT "hole doesn't trap light. If it did there would be no"
PRINT "graphic program now would there? From the remnants of"
PRINT "dying stars new galaxies are created."
PRINT : PRINT
INPUT "Predominant Color (R-G-B)"; pc$
pc$ = UCASE$(pc$)
IF pc$ = "R" OR pc$ = "B" OR pc$ = "G" THEN GOTO cont: ELSE GOTO restart
cont:
SCREEN 12: CLS
begin:
h1 = RND * 640
v1 = RND * 480
GOSUB explosion
h2 = RND * 640
v2 = RND * 480
moveh2v2:
tryagain:
hr = RND * 640
vr = RND * 480
temp1 = h2: temp2 = v2
IF hr < 320 THEN h2 = h2 + hr:  ELSE h2 = h2 - hr
IF h2 > 640 OR h2 < 0 THEN h2 = temp1: GOTO tryagain
IF vr < 240 THEN v2 = v2 + vr:  ELSE v2 = v2 - vr
IF v2 > 480 OR v2 < 0 THEN v2 = temp2: GOTO tryagain
IF h1 > h2 THEN h1 = h1 - 1
IF h1 < h2 THEN h1 = h1 + 1
IF v1 > v2 THEN v1 = v1 - 1
IF v1 < v2 THEN v1 = v1 + 1
selectcolor:
col = RND * 15
IF col = 0 THEN GOTO selectcolor
PSET (h1, v1), col
IF sac = 12000 THEN GOSUB startagain: CLEAR : CLS : RUN
sac = sac + 1
sc = sc + 1
IF sc = 400 THEN PSET (h2, v2), RND * 15: sc = 0: GOSUB blackhole
counter = counter + 1
IF counter = 1500 THEN counter = 0: GOSUB setpal: GOTO begin
GOTO moveh2v2
setpal:
IF pc$ = "B" THEN b = RND * 45 + 15 ELSE b = RND * 15
IF pc$ = "R" THEN r = RND * 45 + 15 ELSE r = RND * 15
IF pc$ = "G" THEN g = RND * 45 + 15 ELSE g = RND * 15
red = r
green = g
blue = b
h = 1: i = 1: j = 1
FOR N = 1 TO 13
red = red + h: IF red > 62 OR red < 1 THEN h = -h
green = green + i: IF green > 62 OR green < 1 THEN i = -i
blue = blue + j: IF blue > 62 OR blue < 1 THEN j = -j
P = 65536 * blue + 256 * green + red
PALETTE N, P
NEXT
RETURN
startagain:
GOSUB blackhole
WHILE INKEY$ = "": WEND
RETURN
explosion:
FOR x = 0 TO 10
CIRCLE (h1, v1), x, 4
FOR delay = 0 TO 1000: NEXT
NEXT
FOR x = 10 TO 0 STEP -1
CIRCLE (h1, v1), x, 0
FOR delay = 0 TO 1000: NEXT
NEXT
RETURN
bye:
SCREEN 0: WIDTH 80: CLS : END
blackhole:
FOR x = 6 TO 0 STEP -1
CIRCLE (325, 240), x, 0
CIRCLE (326, 239), x, 0
NEXT
RETURN
'The End

--- Maximus 2.01wb
 * Origin: Rabbit and Snake's BBS - Richardson, Texas (1:124/6108)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/110 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20