'  _____ __           
' /_  _// /__ ____                 þ   BALLS.BAS  þ
'  / / / _  //___/                 þ  taken from  þ
' /_/ /_//_//___/
'         ________  __    _____    _______  __  ______
'        / ____  / / /   /__   \  / _____/ /_/ / ____/
'       / /   / / / /__  ___/  / / /____  __  / /
'      / /   / / / __ / / __  / /____  / / / / /
'     / /___/ / / /_// / /_/ / _____/ / / / / /____
'    /____  _/ /____/ /_____/ /______/ /_/ /______/
'         \_\                              ____  ____   _____   _____
'                                         /__ / /_  /  / ___/  / ___/
'http://www.wp.com/80948/qb/             //_// __/ /  / /___  / /__
'mallard@gcomm.com                      / __/ /   /  / /_/ / / /___
'                                      /_/   /___/  /_____/ /_____/
'
'program information
'
'FILENAME: BALLS.BAS
'AUTHOR  : Tyler Raymond       E-MAIL: spyder@megalink.net
'DESCRIPTION: Spiffy palette effects w/ VGA
'DATE ADDED: 10 Nov 1996
'SIZE      : 3,668 bytes


'This program was crafted by Tyler Raymond.
'I wrote it over a long span of time, and put the finishing touches to it on
'9/24/96
'This neato program will display randomly colored balls on the screen.
CLS

moustart = INP(1016): 'com port location
RANDOMIZE TIMER
phong = 4
phongsize = 10

SCREEN 13
PRINT "THE HOUSE OF BALLS version 1.5"
PRINT
PRINT "This was designed and crafted by          Tyler Raymond at the Spyder Labs"
'the number 200000 may be changed if it takes to long on those slow computers
FOR i = 1 TO 200000
NEXT i
CLS
'This section sets the palette at redscale.
SCREEN 13
PRINT "Setting Purty Palette...."
PRINT "Please Wait"
  c = -1
  FOR cc = 0 TO 31
    c = c + 2
    IF cc > 31 - phongsize THEN g = g + phong: b = b + phong
    PALETTE cc, c + g * 256 + b * 65536
  NEXT cc
r = 0: g = 0: b = 0
'This sets the palette at greenscale.
  c = -1
  FOR cc = 32 TO 63
    c = c + 2
    IF cc > 63 - phongsize THEN r = r + phong: b = b + phong
    PALETTE cc, r + c * 256 + b * 65536
  NEXT cc
r = 0: g = 0: b = 0
'What do you know, a palette change to bluescale.
  c = -1
  FOR cc = 64 TO 95
    c = c + 2
    IF cc > 95 - phongsize THEN g = g + phong: r = r + phong
    PALETTE cc, r + g * 256 + c * 65536
  NEXT cc
r = 0: g = 0: b = 0
'Palette to violetscale, Captain.
  c = -1
  FOR cc = 96 TO 127
    c = c + 2
    IF cc > 127 - phongsize THEN g = g + phong
    PALETTE cc, c + g * 256 + c * 65536
  NEXT cc
r = 0: g = 0: b = 0
'This sets the palette at yellowscale.
  c = -1
  FOR cc = 128 TO 159
    c = c + 2
    IF cc > 159 - phongsize THEN r = r + phong
    PALETTE cc, r + c * 256 + c * 65536
  NEXT cc
r = 0: g = 0: b = 0
'Now we're going to set the palette at cyanscale.
  c = -1
  FOR cc = 160 TO 191
    c = c + 2
    IF cc > 191 - phongsize THEN b = b + phong
    PALETTE cc, c + c * 256 + b * 65536
  NEXT cc
r = 0: g = 0: b = 0
'Okay, last one.  Set palette at greyscale.
  c = -1
  FOR cc = 192 TO 223
    c = c + 2
    PALETTE cc, c + c * 256 + c * 65536
  NEXT cc
CLS

RANDOMIZE TIMER
DO
CLS
FOR TIMES = 1 TO 50

IF INKEY$ <> "" OR moustart <> INP(1016) THEN SYSTEM
cn = INT(RND(1) * 6) + 1
c = 30
s = INT(RND(1) * 50) + 10
xxx = INT(RND(1) * 305)
yyy = INT(RND(1) * 180)
cn = cn * 32 - 2

'This does the sphere
FOR sphere = s TO 0 STEP -s / 30

c = c - 1
xxx = xxx + s / 120
yyy = yyy + s / 120
CIRCLE (xxx, yyy), sphere, cn - c

'That nifty SLEEP command controls the time between the balls that appear on
'the screen.
PAINT (xxx, yyy), cn - c, cn - c
NEXT sphere
SLEEP 1
NEXT TIMES
LOOP