Keskustelu: Koodit: QB: Print joka ei sotke taustaa

DECLARE SUB Txt (tek$, mika.x!, mika.y!, vari!)
CLS
SCREEN 13 'aluksi on pakko olla screen 13...
DIM SHARED kirjain(1 TO 8, 1 TO 8, 1 TO 255) AS INTEGER

GOSUB fontti.muistiin
'Nyt kun kirjaimet ovat muistissa saat vaihtaa screeniä
LINE (0, 5)-(319, 5), 4
Txt "Fontit... OK", 1, 1, 2 'TXT 'toimii: txt "teksti",x,y,vari
Txt "WWW.OHJELMOINTIPUTKA.NET", 1, 50, 4
END

fontti.muistiin:
FOR asciikoodi = 1 TO 255
IF asciikoodi = 7 THEN asciikoodi = 8 ELSE 'estetään PIIPpaus
COLOR 16: LOCATE 1, 1: PRINT CHR$(asciikoodi)
FOR y = 1 TO 8
FOR x = 1 TO 8
vari = POINT(x - 1, y - 1)
kirjain(x, y, asciikoodi) = vari
NEXT x
NEXT y
NEXT asciikoodi
RETURN

SUB Txt (tek$, mika.x, mika.y, vari)
FOR kerrat = 1 TO LEN(tek$)                      'näitä ei kannata
asciikoodi = ASC(MID$(tek$, kerrat, LEN(tek$))) 'kauheasti tutkia
FOR y = 1 TO 8                                 'koska koodi on
FOR x = 1 TO 8                                'aivan hirveää
IF NOT kirjain(x, y, asciikoodi) = 0 THEN
kirjain(x, y, asciikoodi) = vari
PSET (x + mika.x, y + mika.y), kirjain(x, y, asciikoodi)
ELSE
END IF
NEXT x
NEXT y
mika.x = mika.x + 8
NEXT kerrat
END SUB