'===========================================================================
' Subject: MONITOR MADNESS 2                 Date: 08-02-97 (08:44)       
' Author:  Brad Bailey                       Code: QB, QBasic, PDS        
' Origin:  ducttape@info2000.net           Packet: GRAPHICS.ABC
'===========================================================================
'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'³ Moniter Madness 2                 BY: Duct_Tape ³
'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
'³ I was playing with COS and SIN and I made this  ³
'³ neat looking screen saver type thing.           ³
'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
'³ If you would like for me to explain this code   ³
'³ to you then email me at ducttape@info2000.net   ³
'ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
'³ Duct_Tape's QBasic Page                         ³
'³ http://duct-tape.home.ml.org                    ³
'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

DECLARE SUB pal.set (lo%, hi%, red%, green%, blue%, r%, g%, b%)
DECLARE SUB write.pal (r%, g%, b%, c%)
DECLARE SUB get.pal (r%, g%, b%, c%)
DECLARE SUB pal.fadeout ()
DECLARE SUB pal.cycle ()
CONST speed% = 250     'change this to make it go slower or faster

SCREEN 13: CLS
xpos = 220: ypos = 220
size1 = 25: size2 = 25
addx = 1: addy = 1: col = 40: n# = 0

DO
 x = size1 * COS(n#)
 y = size2 * SIN(n#)
 CIRCLE (xpos + x, ypos + y), 10, col
 PAINT (xpos + x, ypos + y), col, col
 xpos = xpos + addx
 ypos = ypos + addy
 col = col + 1
 IF col > 55 THEN col = 32
 IF xpos > 300 THEN addx = -1
 IF xpos < 20 THEN addx = 1
 IF ypos > 180 THEN addy = -1
 IF ypos < 20 THEN addy = 1
 IF n# < 6.28 THEN n# = n# + .04 ELSE n# = 0
 FOR i = 1 TO speed%: NEXT i
LOOP UNTIL INKEY$ <> ""

CALL pal.fadeout
SYSTEM

SUB get.pal (r%, g%, b%, i%)

OUT &H3C7, i%
r% = INP(&H3C9)
g% = INP(&H3C9)
b% = INP(&H3C9)

END SUB

SUB pal.fadeout

FOR n% = 1 TO 63
  FOR i% = 1 TO 255
    CALL get.pal(r%, g%, b%, i%)
    IF r% > 0 THEN r% = r% - 1
    IF g% > 0 THEN g% = g% - 1
    IF b% > 0 THEN b% = b% - 1
    CALL write.pal(r%, g%, b%, i%)
  NEXT i%
NEXT n%

END SUB

SUB write.pal (r%, g%, b%, i%)

OUT &H3C8, i%
OUT &H3C9, r%
OUT &H3C9, g%
OUT &H3C9, b%

END SUB