Keskustelu: Koodit: QB: Värinrämppäys

'''Värinrämppäys


DEFINT A-Z
DIM SHARED paletti(15)
CONST ASPECT = 1 / 3

SCREEN 8   ''''<-Näytöntila

FOR I = 0 TO 15
    paletti(I) = I
NEXT

'''''Krafiikkaa'''''''''''
FOR ColorVal = 15 TO 1 STEP -1

    PAINT (320, 100), ColorVal
NEXT

DO
    FOR I = 1 TO 15
        paletti(I) = (paletti(I) MOD 15) + 1
    NEXT I
    PALETTE USING paletti(0)

    PALETTE 0, paletti(INT(RND * 15))  ''''Värit mustasta johonkin toiseen

       LOCATE 1, 35      '''Määrittää disco sanan sijainnin
       PRINT "*DISCO*"


LOOP WHILE INKEY$ = ""                 '''Ohjelma loppuu napin painalluksesta
END