Keskustelu: Koodit: QB: Sateenkaarikirjaimet-efekti

'Tätä efektiä saa kopioida vapaasti vain omiin tarkoituksiin (kuten peleihin
'tai johonkin muuhun sellaiseen). (C) DKH 2002.
'Tähän on käytetty Kirjain kirjaimelta-efektiä, joka on minun tekemäni.
SCREEN 13
CLS
colo = 40 'Määritetään aloitusväri
pcolo = 40 'Määritetään oletusväri
SLEEP
teksti1$ = "Sateenkaarikirjaimet efekti!" 'Tässä on tekstit jotka pitäisi
teksti2$ = "(C) DKH 2002"                 'kirjoittaa Sateenkaarikirjaimilla
y = 4 'Määritetään tekstin aloituskohta.
FOR x = 1 TO LEN(teksti1$) 'Ja sitten alkaa efekti!
COLOR colo
LOCATE y, x
PRINT MID$(teksti1$, x, 1)
colo = colo + 1 'Muuttaa värin.
PLAY "P25" 'Tauko (1-64).
NEXT
y = y + 1
colo = pcolo 'Väri pistetään takaisin oletusväriin
FOR x = 1 TO LEN(teksti2$)
COLOR colo
LOCATE y, x
PRINT MID$(teksti2$, x, 1)
colo = colo + 1
PLAY "P25"
NEXT
y = y + 1
colo = pcolo