Sorceress

Untitled

Oct 28th, 2016
223
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DIM blt(64)
  2. SCREEN 13
  3.  
  4. x = 15: y = 18: txt$ = "Hallo Welt": GOSUB PxlPrint
  5. x = 18: y = 30: txt$ = "sorceress is cool": GOSUB PxlPrint
  6. x = 100: y = 22: txt$ = "Ich habe ein Katze": GOSUB PxlPrint
  7.  
  8.  
  9. END
  10.  
  11.  
  12.  
  13.  
  14.  
  15. PxlPrint:
  16. FOR i = 1 TO LEN(txt$)
  17. LOCATE 1, 1: PRINT MID$(txt$, i, 1)
  18. GET (0, 0)-(7, 7), blt()
  19. PUT (x, y), blt()
  20. x = x + 8
  21. NEXT
  22. LOCATE 1, 1: PRINT " "
  23. RETURN
RAW Paste Data