'===========================================================================
' Subject: MULTI MORPH                       Date: 09-21-96 (17:53)       
' Author:  Ryan White                        Code: QB, QBasic, PDS        
' Origin:  BIGFOOT@InfoAve.Net             Packet: GRAPHICS.ABC
'===========================================================================
'MultiMorph
'By Ryan White
'Feel free to change, to love, to marriage.  NO COMPUTER SEX THOUGH!!!!
'I MADE THIS PROGRAM TO EDIT AND ENJOY, BUT NOT TO HAVE SEX WITH!!!!
'I'm SeRiOuS!

SCREEN 13
CLS
RANDOMIZE TIMER
DEFINT A-Z
DIM cn(255, 2), co(255, 2)
VIEW (0, 0)-(319, 199)
FOR x = 0 TO 63
OUT &H3C8, x: OUT &H3C9, x: OUT &H3C9, 0: OUT &H3C9, 0
OUT &H3C8, x + 64: OUT &H3C9, 0: OUT &H3C9, x: OUT &H3C9, 0
OUT &H3C8, x + 128: OUT &H3C9, 0: OUT &H3C9, 0: OUT &H3C9, x
OUT &H3C8, x + 192: OUT &H3C9, 63 - x: OUT &H3C9, 63 - x: OUT &H3C9, 0
NEXT x

c = 0
FOR x = 0 TO 289 STEP 20: x2 = x + 20
FOR y = 0 TO 189 STEP 10: y2 = y + 10
FOR pnty = y TO y2
c = c + 1: IF c >= 64 THEN c = 0
LINE (x, pnty)-(x2, pnty), c
NEXT pnty
NEXT y
NEXT x

c = 64
FOR n = 1 TO 10
x = INT(RND * 280) + 20
y = INT(RND * 160) + 20
r = INT(RND * 20) + 10
FOR m = 1 TO r
c = c + 1: IF c >= 64 THEN c = 0
FOR o = -1 TO 1
CIRCLE (x, y + o), m, 127 - c, , , 1
NEXT o
NEXT m
NEXT n

c = 128

FOR n = 1 TO 10
x = INT(RND * 299) + 1
y = INT(RND * 179) + 1
FOR r = 0 TO 20
c = c + 1: IF c >= 192 THEN c = 129
LINE (x - r, y - r)-(x + r, y + r), c, B
NEXT r
NEXT n

c = 255    'we are going in reverse this time
x = 160: y = 100
FOR m = 1 TO 3500
PSET (x, y + 1), c
PSET (x, y), c
PSET (x, y - 1), c
PSET (x + 1, y + 1), c
PSET (x + 1, y), c
PSET (x + 1, y - 1), c
PSET (x - 1, y + 1), c
PSET (x - 1, y), c
PSET (x - 1, y - 1), c
c = c - 1: IF c <= 191 THEN c = 255
x = x + (INT((RND * 2) + 1) * 2 - 3)
y = y + (INT((RND * 2) + 1) * 2 - 3)
NEXT m

DO UNTIL INKEY$ <> ""
'read color values
FOR n = 0 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT n
'cycle last from first color
cn(63, 0) = co(1, 0): cn(63, 1) = co(1, 1): cn(63, 2) = co(1, 2)
cn(127, 0) = co(64, 0): cn(127, 1) = co(64, 1): cn(127, 2) = co(64, 2)
cn(191, 0) = co(128, 0): cn(191, 1) = co(128, 1): cn(191, 2) = co(128, 2)
cn(255, 0) = co(192, 0): cn(255, 1) = co(192, 1): cn(255, 2) = co(192, 2)
'cycle the rest  170 length -==>
FOR n = 0 TO 62: FOR m = 0 TO 2
IF n <> 0 THEN cn(n, m) = co(n + 1, m)  'red not ok  I have to limit it to 63 colors because
IF n = 0 THEN cn(1, m) = co(n + 1, m)   'if 0 is messed with, then the border of the monitor goes *ukie*
cn(n + 64, m) = co(n + 65, m)           'green ok
cn(n + 128, m) = co(n + 129, m)         'blue ok
cn(n + 192, m) = co(n + 193, m)         'yellow ok
NEXT m: NEXT n
'write color to screen
FOR n = 0 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, cn(n, m): NEXT m: NEXT n
LOOP