Keskustelu: Koodit: QB: Hieno printtaus

DECLARE SUB Txt (teksti$, x!, y!, vari!)
COMMON SHARED hidaste
CLS
SCREEN 9 'toimii kaikilla näyttömoodeilla (ainakin pitäisi :)
SLEEP 1   '<-- odotellaan että kone tokenee alkulatauksesta...
Txt DATE$, .2, 1, 2  'x: 0=keskellä, .1=vasemmalla, .2 oikealla,
SLEEP 1              'muut normaaleja.
Txt "Tämä koodi on tehty ohjelmointiputkaa varten", 0, 2, 4
SLEEP 1   '<-- sleep -käskyt ovat melko huonoja, mutta what the hell...
Txt "Enpä vain muista oliko jo samanlaista siellä :I", 0, 4, 5
SLEEP 1
Txt "Tämän ohjelman tekijä on Dj Wolf", 0, 20, 2
SLEEP 1   'venataan vielä yks sekunti

SUB Txt (teksti$, x, y, vari)
IF x = 0 THEN x = 40 - INT(LEN(teksti$) / 2) ELSE  'keskitys
IF x = .1 THEN x = 1 ELSE                 'tasaus vasemmalle :)
IF x = .2 THEN x = 80 - LEN(teksti$) ELSE 'ja tasaus oikealle
FOR temp = 1 TO LEN(teksti$)
kirjain$ = MID$(teksti$, temp, 1)
IF NOT vari = 8 THEN
COLOR vari + 8: LOCATE y, x + temp - 1: PRINT kirjain$
ELSEIF vari = 8 THEN
COLOR 7: LOCATE y, x + temp - 1: PRINT kirjain$
END IF
t = TIMER: DO WHILE TIMER - t <= .1: LOOP
COLOR vari: LOCATE y, x + temp - 1: PRINT kirjain$
NEXT
END SUB