Keskustelu: Koodit: QB: Välähdysefektillä teksti esiin

DIM teksti AS STRING
teksti = "Ohjelmointiputka 2003" 'kirjoita teksti tähän

SCREEN 13
'tehdään paletti
OUT &H3C8, 0
FOR c = 0 TO 255
   OUT &H3C9, INT(c / 4)
   OUT &H3C9, INT(c / 4)
   OUT &H3C9, INT(c / 4)
NEXT

COLOR 255
tekstiy = INT(25 / 2)                   'muuta näihin kahteen haluamasi
tekstix = INT(40 / 2 - LEN(teksti) / 2) 'koordinaatit
                                        'näillä asetuksilla teksti tulee
                                        'näytön keskelle
FOR i = 1 TO LEN(teksti)
   FOR o = 1 TO 255 STEP 10
      CIRCLE (tekstix * 8 + i * 8 - 12, tekstiy * 8 - 4), o / 10, 255 - INT(o), , , 2
      FOR hidastus = 1 TO 1000: NEXT hidastus
   NEXT o
   FOR o = 255 TO 1 STEP -10
      CIRCLE (tekstix * 8 + i * 8 - 12, tekstiy * 8 - 4), 255 / 10 - o / 10, 0, , , 2
      FOR hidastus = 1 TO 1000: NEXT hidastus
      LOCATE tekstiy, tekstix
      PRINT MID$(teksti, 1, i)
   NEXT o
   LOCATE tekstiy, tekstix
   PRINT MID$(teksti, 1, i)
NEXT i