Keskustelu: Koodit: QB: Kirjain kirjaimelta-efekti

'Tätä efektiä saa kopioida vapaasti vain omiin tarkoituksiin (kuten peleihin
'tai johonkin muuhun sellaiseen). (C) DKH 2002.

SCREEN 13
CLS
COLOR 11
teksti1$ = "Tämä efekti kirjoittaa"  'Tässä on tekstit jotka
teksti2$ = "halutun tekstin kirjain" 'pitäisi kirjoittaa
teksti3$ = "kirjaimelta!"            'kirjain kirjaimelta.
teksti4$ = "*** (C) DKH 2002 ***"
y = 4 'Määritetään aloituspaikka.

FOR x = 1 TO LEN(teksti1$)  'Ja tässä on efekti!
LOCATE y, x
PRINT MID$(teksti1$, x, 1)
PLAY "P25" 'Tauko (1-64).
NEXT
y = y + 1 'Tämä pistää seuraavan tekstin äskeistä alemmas.
FOR x = 1 TO LEN(teksti2$)
LOCATE y, x
PRINT MID$(teksti2$, x, 1)
PLAY "P25"
NEXT
y = y + 1
FOR x = 1 TO LEN(teksti3$)
LOCATE y, x
PRINT MID$(teksti3$, x, 1)
PLAY "P25"
NEXT
y = y + 1
FOR x = 1 TO LEN(teksti4$)
LOCATE y, x
PRINT MID$(teksti4$, x, 1)
PLAY "P25"
NEXT
y = y + 1