DIM blt(64)
SCREEN 13

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$)
    LOCATE 1, 1: PRINT MID$(txt$, i, 1)
    GET (0, 0)-(7, 7), blt()
    PUT (x, y), blt()
    x = x + 8
NEXT
LOCATE 1, 1: PRINT " "
RETURN