'===========================================================================
' Subject: COLOR BARS THAT COLOR CYCLE       Date: 09-05-94 (21:40)       
' Author:  Aaron Scott Zabudsky              Code: QB, QBasic, PDS        
' Origin:  zabudsk@ecf.toronto.edu         Packet: GRAPHICS.ABC
'===========================================================================
DIM c(255, 3)
SCREEN 13
c = 1
FOR y = 0 TO 20
FOR z = 1 TO 256
PSET (z, y), c
c = (c + 1) MOD 256
IF c = 0 THEN c = 1
NEXT z
NEXT y
FOR z = 1 TO 255
OUT &H3C7, z
c(z, 1) = INP(&H3C9)
c(z, 2) = INP(&H3C9)
c(z, 3) = INP(&H3C9)
NEXT z
FOR o = 1 TO 255
FOR z = 1 TO 255
OUT &H3C8, z
OUT &H3C9, c((z + o) MOD 256, 1)
OUT &H3C9, c((z + o) MOD 256, 2)
OUT &H3C9, c((z + o) MOD 256, 3)
NEXT z
NEXT o