DECLARE SUB fadeout ()

SUB fadeout
  DIM r AS INTEGER, g AS INTEGER, b AS INTEGER
  FOR j% = 0 TO 63
    FOR delay% = 0 TO 1000: NEXT delay%
    FOR i% = 0 TO 255
      OUT &H3C7, i%
      r = INP(&H3C9): r = r - 1: IF (r < 0) THEN r = 0
      g = INP(&H3C9): g = g - 1: IF (g < 0) THEN g = 0
      b = INP(&H3C9): b = b - 1: IF (b < 0) THEN b = 0
      OUT &H3C8, i%
      OUT &H3C9, r
      OUT &H3C9, g
      OUT &H3C9, b
    NEXT i%
  NEXT j%
END SUB