home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / spriteedi (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  565b  |  33 lines
  1. 1 print"[147]spritename";:inputx$:goto50
  2. 10 open2,8,1,"@:"+x$+",s,w":poke53280,0
  3. 20 fori=0to2:a=0:forn=0to7:a=a-2^(7-n)*(peek(1024+n+i*8)=42):next
  4. 30 printa;:a$=chr$(a):print#2,a$;:next:print:x=x+1:ifx<21then20
  5. 40 close2:end
  6. 50 poke 53280,0 :poke 53281,6 :print chr$(142)chr$(147);
  7. 60 printspc(24)"{$7d}
  8. 70 [153][166]24)"{$7d}
  9. 80 printspc(24)"{$7d}
  10. 90 [153][166]24)"{$7d}
  11. 100 printspc(24)"{$7d}
  12. 110 [153][166]24)"{$7d}
  13. 120 printspc(24)"{$7d}
  14. 130 [153][166]24)"{$7d}
  15. 140 printspc(24)"{$7d}
  16. 150 [153][166]24)"{$7d}
  17. 160 printspc(24)"{$7d}
  18. 170 [153][166]24)"{$7d}
  19. 180 printspc(24)"{$7d}
  20. 190 [153][166]24)"{$7d}
  21. 200 printspc(24)"{$7d}
  22. 210 [153][166]24)"{$7d}
  23. 220 printspc(24)"{$7d}
  24. 230 [153][166]24)"{$7d}
  25. 240 printspc(24)"{$7d}
  26. 250 [153][166]24)"{$7d}
  27. 260 printspc(24)"{$7d}
  28. 270 [129] z[178]1 [164] 24:[153]"{$60}";:[130]
  29. 280 [153]"exp
  30. 290 print
  31. 300 print"g[207]10   :wenn fetig hier return eingeben
  32. 310 [153]""
  33.