home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / spriteedi (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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)"}
  8. 70 [153][166]24)"}
  9. 80 PRINTSPC(24)"}
  10. 90 [153][166]24)"}
  11. 100 PRINTSPC(24)"}
  12. 110 [153][166]24)"}
  13. 120 PRINTSPC(24)"}
  14. 130 [153][166]24)"}
  15. 140 PRINTSPC(24)"}
  16. 150 [153][166]24)"}
  17. 160 PRINTSPC(24)"}
  18. 170 [153][166]24)"}
  19. 180 PRINTSPC(24)"}
  20. 190 [153][166]24)"}
  21. 200 PRINTSPC(24)"}
  22. 210 [153][166]24)"}
  23. 220 PRINTSPC(24)"}
  24. 230 [153][166]24)"}
  25. 240 PRINTSPC(24)"}
  26. 250 [153][166]24)"}
  27. 260 PRINTSPC(24)"}
  28. 270 [129] Z[178]1 [164] 24:[153]"`";:[130]
  29. 280 [153]"EXP
  30. 290 PRINT
  31. 300 PRINT"G[207]10   :WENN FETIG HIER RETURN EINGEBEN
  32. 310 [153]""
  33.