home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11b.d64
/
spriteedi
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
565b
|
33 lines
1 PRINT"[147]SPRITENAME";:INPUTX$:GOTO50
10 OPEN2,8,1,"@:"+X$+",S,W":POKE53280,0
20 FORI=0TO2:A=0:FORN=0TO7:A=A-2^(7-N)*(PEEK(1024+N+I*8)=42):NEXT
30 PRINTA;:A$=CHR$(A):PRINT#2,A$;:NEXT:PRINT:X=X+1:IFX<21THEN20
40 CLOSE2:END
50 POKE 53280,0 :POKE 53281,6 :PRINT CHR$(142)CHR$(147);
60 PRINTSPC(24)"}
70 [153][166]24)"}
80 PRINTSPC(24)"}
90 [153][166]24)"}
100 PRINTSPC(24)"}
110 [153][166]24)"}
120 PRINTSPC(24)"}
130 [153][166]24)"}
140 PRINTSPC(24)"}
150 [153][166]24)"}
160 PRINTSPC(24)"}
170 [153][166]24)"}
180 PRINTSPC(24)"}
190 [153][166]24)"}
200 PRINTSPC(24)"}
210 [153][166]24)"}
220 PRINTSPC(24)"}
230 [153][166]24)"}
240 PRINTSPC(24)"}
250 [153][166]24)"}
260 PRINTSPC(24)"}
270 [129] Z[178]1 [164] 24:[153]"`";:[130]
280 [153]"EXP
290 PRINT
300 PRINT"G[207]10 :WENN FETIG HIER RETURN EINGEBEN
310 [153]""