Koodit: QB: Ruudun häivytys

SCREEN 13
RANDOMIZE TIMER
FOR i = 1 TO 5000
  CIRCLE (INT(RND * 319), INT(RND * 199)), INT(RND * 10), 16 + INT(RND * 255)
NEXT

FOR kerta = 0 TO 63
  FOR v = 0 TO 255
    ' luetaan väri
    OUT (&H3C7), v
    r = INP(&H3C9)
    g = INP(&H3C9)
    b = INP(&H3C9)

    ' muutetaan väri
    IF NOT r = 0 THEN r = r - 1
    IF NOT g = 0 THEN g = g - 1
    IF NOT b = 0 THEN b = b - 1

    ' tallennetaan väri
    OUT (&H3C8), v
    OUT (&H3C9), r
    OUT (&H3C9), g
    OUT (&H3C9), b
  NEXT
  WAIT &H3DA, 8 ' viive
NEXT
PALETTE ' palauttaa normaalin paletin