'===========================================================================
' Subject: BOX OF COLOR MORPH                Date: 01-19-97 (15:30)       
' Author:  Ryan White                        Code: QB, QBasic, PDS        
' Origin:  bigfooty@bellsouth.net          Packet: GRAPHICS.ABC
'===========================================================================
'BOCmorph
'Box Of Color morph.... um... n/m

'Due to everyone wanting me to make more of my stuff, I though, NO problem.
'I stopped programming cause I have no time anymore, but I will still put
'out a few a every once in a while.   This one was thought up while I was
'sitting in ITT Tech.   Hope ya like.
'And to contact me, my new email is:  bigfooty@bellsouth.net

SCREEN 13
DEFINT A-W
DIM c(255, 2), co(255, 2)
minx = 0: maxx = 319: miny = 0: maxy = 199: c = 1

FOR n = 0 TO 15
c(n, 0) = n * 4: c(n, 1) = n * 4: c(n, 2) = n * 4: c(n + 16, 0) = 63: c(n + 16, 1) = 63 - n * 4: c(n + 16, 2) = 63 - n * 4: c(n + 32, 0) = 63: c(n + 32, 1) = n * 2: c(n + 32, 2) = 0
c(n + 48, 0) = 63: c(n + 48, 1) = n * 2 + 31: c(n + 48, 2) = 0: c(n + 64, 0) = 63 - n * 4: c(n + 64, 1) = 63: c(n + 64, 2) = 0: c(n + 80, 0) = 0: c(n + 80, 1) = 63 - n * 2: c(n + 80, 2) = n * 4
c(n + 96, 0) = 0: c(n + 96, 1) = 32 - n * 2: c(n + 96, 2) = 60: c(n + 112, 0) = n * 3: c(n + 112, 1) = 0: c(n + 112, 2) = 60: c(n + 128, 0) = 45 - n * 3: c(n + 128, 1) = 0: c(n + 128, 2) = 60
c(n + 144, 0) = 0: c(n + 144, 1) = n * 2: c(n + 144, 2) = 60: c(n + 160, 0) = 0: c(n + 160, 1) = 30 + n * 2: c(n + 160, 2) = 60 - n * 4: c(n + 176, 0) = n * 4: c(n + 176, 1) = 63: c(n + 176, 2) = 0
c(n + 192, 0) = 63: c(n + 192, 1) = 60 - n * 2: c(n + 192, 2) = 0: c(n + 208, 0) = 63: c(n + 208, 1) = 30 - n * 2: c(n + 208, 2) = 0: c(n + 224, 0) = 60 - n * 2: c(n + 224, 1) = n * 2: c(n + 224, 2) = n * 2
c(n + 240, 0) = 30 - n * 2: c(n + 240, 1) = 30 - n * 2: c(n + 240, 2) = 30 - n * 2: NEXT n: FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT n


st:
FOR x = minx TO maxx
PSET (x, miny), c
c = c + 1: IF c = 256 THEN c = 1
NEXT x
FOR y = miny TO maxy
PSET (maxx, y), c
c = c + 1: IF c = 256 THEN c = 1
NEXT y
FOR x = maxx TO minx STEP -1
PSET (x, maxy), c
c = c + 1: IF c = 256 THEN c = 1
NEXT x
FOR y = maxy TO miny STEP -1
PSET (minx, y), c
c = c + 1: IF c = 256 THEN c = 1
NEXT y
minx = minx + 1: IF minx >= 160 THEN minx = 160: ccc1 = 1
maxx = maxx - 1: IF maxx <= 159 THEN maxx = 160: ccc2 = 1
miny = miny + 1: IF miny >= 100 THEN miny = 100: ccc3 = 1
maxy = maxy - 1: IF maxy <= 99 THEN maxy = 100: ccc4 = 1
IF ccc1 + ccc2 + ccc3 + ccc4 <> 4 THEN GOTO st

DO UNTIL INKEY$ <> ""
FOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT m: NEXT n
c(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)
FOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT n
FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m: NEXT n
LOOP