DECLARE SUB SPHERE (SX, SY, SCOLOR, SDIM, SRANGE)

' ********* THIS IS JUST TO TEACH YOU HOW TO USE MY SUB *************
'                                  *****DELETE FROM HERE DOWN TO USE******
'
'    HEY HEY!
'This is my little sphere subroutine, its pretty simple.  If you want to
'get a feel for how my program works, run it a few times.  This isn't a
'palette demo, but you can use it as one.  I just use this to draw spheres.
'If you like it, let me know at ERICMD@IX.NETCOM.COM.  thanks!

SCREEN 7     'CLEARS PALETTE
SCREEN 13    'ONLY WORKS IN SCREEN 13
LOCATE 1, 1
INPUT "X CORDINATE (1-340) ", X    'VERY SIMPLE
INPUT "Y CORDINATE (1-220) ", Y    'VERY SIMPLE
INPUT "SIZE (2-63) ", A 'SIZE OF THE SPHERE
INPUT "COLOR (1=BLUE,2=PURPLE,3=GREEN,4=YELLOW,5=RED,6=WHITE,7=AGUA) ", B
INPUT "START AT COLOR (0-250) ", C    'CAN ONLY DISPLAY 256 COLORS AT A TIME
'                                     PICK ANY NUMBER IF YOU DON'T UNDERSTAND
SPHERE X, Y, B, A, C
'IF THE WORDS OR BACKGROUND CHANGE COLOR IT IS BECAUSE YOU PICKED A NUBER
'THAT WAS TO LOW.

SUB SPHERE (SX, SY, SCOLOR, SDIM, SRANGE)
'FEEL FREE TO USE MY SUB IN ANY PROGRAM, JUST LEAVE THIS SCREEN THE WAY IT IS
'          WRITTEN 1996 BY ERIC DAVIDSON -- ERICMD@IX.NETCOM.COM

SS = INT(63 / SDIM)    'CALCULATES COLOR STEP
FOR SG = SDIM - 1 TO 1 STEP -1
SV = SRANGE + SG - 1
CIRCLE (SX, SY), SG, SV     'DRAWS THE CIRCLE
PAINT (SX, SY), SV, SV      'FILLS THE CIRCLE
ST = (SDIM * SS) - (SG * SS) + 1     'CALCULATES REVERSE INCRIMENT FOR PALETTE
IF SCOLOR = 1 THEN PALETTE SV, 65536 * ST     'BLUE
IF SCOLOR = 2 THEN PALETTE SV, 65536 * ST + ST     'PURPLE
IF SCOLOR = 3 THEN PALETTE SV, 256 * ST     'GREEN
IF SCOLOR = 4 THEN PALETTE SV, 256 * ST + ST     'YELLOW
IF SCOLOR = 5 THEN PALETTE SV, ST     'RED
IF SCOLOR = 6 THEN PALETTE SV, (65536 * ST) + (256 * ST) + ST     'WHITE
IF SCOLOR = 7 THEN PALETTE SV, (65536 * ST) + (256 * ST)    'LIGHT BLUE (AGUA)
NEXT SG
END SUB