Sorceress

rnlf2

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