Keskustelu: Koodit: QB: Hitaasti esiin tuleva teksti

DECLARE SUB coolprint (x!, y!, t$, c!)
SCREEN 12
coolprint 1, 1, "http://www.furyproductions.tk", 14

SUB coolprint (x, y, t$, c)
COLOR c
FOR jk = 1 TO LEN(t$)
xx = 3
DO
GOSUB hidasta
LOCATE y, x
PRINT LEFT$(t$, jk - 1)
IF xx > 0 THEN LOCATE y, xx
IF xx > 0 THEN PRINT " "
xx = xx + 1
LOCATE y, xx - 1
IF xx > 0 THEN LOCATE y, xx - 1
IF xx > 0 THEN PRINT MID$(t$, jk, 1)
LOOP UNTIL xx >= x + jk
NEXT jk
LOCATE y, x
PRINT t$ 'Varmuuden vuoksi vielä kirjoitetaan vanhalla
'kunnon printillä, että ei jää varmana aukkoja.
GOTO loppu
hidasta:
'Laitetaan koodi, joka hidastaa saman verran jokaisella koneella kahdesti,
'että ei ole liian nopea.
DO: LOOP UNTIL (INP(&H3DA) AND &H8) = 0
DO: LOOP UNTIL (INP(&H3DA) AND &H8) <> 0
DO: LOOP UNTIL (INP(&H3DA) AND &H8) = 0
DO: LOOP UNTIL (INP(&H3DA) AND &H8) <> 0
RETURN
loppu:
END SUB