rnlf2

DIM blt(16, 128)
SCREEN 13
GOSUB Init

x = 15: y = 18: txt$ = "Hallo Welt": GOSUB PxlPrint
x = 18: y = 30: txt$ = "sorceress is cool": GOSUB PxlPrint
x = 100: y = 22: txt$ = "Ich habe ein Katze": GOSUB PxlPrint

END


PxlPrint:
FOR i = 1 TO LEN(txt$)
    c = ASC(MID$(txt$, i, 1))
    PUT (x, y), blt(0, c)
    x = x + 8
NEXT
RETURN


Init:
FOR i = 0 TO 127
    LOCATE 1, 1: PRINT CHR$(i)
    GET (0, 0)-(7, 7), blt(0, i)
NEXT
LOCATE 1, 1: PRINT " "
RETURN