0 REM *****************
1 REM * SPRITE - KILL *
2 REM *****************
3 REM *  V O N :      *
4 REM *****************
5 REM *  G. GLENDOWN  *
6 REM *****************
7 REM * TEL.:         *
8 REM * (06621)/73483 *
9 REM *****************
10 PRINT"[147]SPRITEKILL":POKE53281,0:POKE53280,0:PRINT"VON GARRY GLENDOWN"
20 INPUT"STARTADRESSE";SA$:SA=VAL(SA$)
21 IFSA>40429ANDSA<49152ORSA>52716ORSA<1024THENPRINT"UNGUELTIG!":GOTO20
29 PRINT"ENDADRESSE:"SA+532:INPUT"OK? J/N";A$:IFA$<>"J"THEN20
30 IFSA<6000THENFL=1
35 IFFL=1THEN100
40 INPUT"ABSPEICHERN J/N";A$:IFA$="J"THENFL=1
50 FORT=SATOSA+531:READA:POKET,A:CH=CH+A:NEXT:IFCH<>65921THENPRINT"FEHLER!"CH:END
51 CH=0
60 READCO:CH=CH+CO:IFCO=-1THEN200
70 B=PEEK(SA+CO)+256*PEEK(SA+CO+1):B=B-28672+SA:H=INT(B/256):L=B-H*256
80 POKESA+CO,L:POKESA+CO+1,H:GOTO60
100 FORT=49152TO49683:READA:POKET,A:CH=CH+A:NEXT:IFCH<>65921THENPRINT"FEHLER!"CH:END
101 CH=0
110 READCO:CH=CH+CO:IFCO=-1THEN140
120 B=PEEK(49152+CO)+256*PEEK(49153+CO):B=B-28672+SA:H=INT(B/256):L=B-H*256
130 POKE49152+CO,L:POKE49153+CO,H:GOTO110
140 IFCH<>22866THENPRINT"FEHLER!":END
141 INPUT"FILENAME";F$:OPEN1,8,2,F$+",P,W"
150 H=INT(SA/256):L=SA-H*256:PRINT#1,CHR$(L)CHR$(H);
160 FORT=49152TO49683:PRINT#1,CHR$(PEEK(T));:NEXT:CLOSE1:OPEN1,8,15
170 INPUT#1,A,B$,C,D:PRINTA","B$","C","D:END
200 IFCH<>22866THENPRINT"FEHLER!"CH:END
201 IFFL=1THEN300
210 PRINT"PROGRAMM IM SPEICHER VON"SA" BIS"SA+531
220 PRINT"PROGRAMMSTART MIT  SYS";SA" [146]"
230 END
300 H=INT(SA/256):L=SA-H*256
310 INPUT"FILENAME ";F$:OPEN1,8,2,F$+",P,W":PRINT#1,CHR$(L)CHR$(H);
320 FORT=SATOSA+531:PRINT#1,CHR$(PEEK(T));:NEXT:CLOSE1:OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
330 PRINTA","B$","C","D:IFA=0THEN210
340 INPUT"NOCHMAL VERSUCHEN J/N";A$:IFA$<>"J"THEN210
350 OPEN1,8,15,"S:"+F$:CLOSE:GOTO300
32000 DATA120,169,3,162,0,134,255,134,248,141,21,208,141,23,208,141,29,208,169
32001 DATA100,141,0,208,141,3,208,162,200,142,2,208,206,40,208,141,1,208,162
32002 DATA13,142,248,7,232,142,249,7,32,60,113,32,133,112,169,19,32,210,255,165
32003 DATA255,32,102,112,165,254,32,102,112,169,32,32,210,255,32,133,112,165
32004 DATA253,32,102,112,165,252,32,102,112,32,164,112,76,169,113,169,19,32,210
32005 DATA255,169,36,32,210,255,96,72,74,74,74,74,201,10,48,2,105,6,105,48,32
32006 DATA210,255,104,41,15,201,10,48,2,105,6,105,48,32,210,255,96,165,254,41
32007 DATA3,170,189,16,114,24,101,248,133,252,165,254,74,74,133,253,165,255,170
32008 DATA189,16,114,24,101,253,133,253,96,32,133,112,160,63,120,169,53,133,1
32009 DATA177,252,145,249,136,16,249,169,55,133,1,88,96,76,129,255,165,254,24
32010 DATA105,16,133,254,176,67,76,49,112,165,254,56,233,16,133,254,144,73,76
32011 DATA49,112,230,254,240,48,76,49,112,165,254,56,233,1,133,254,144,54,76
32012 DATA49,112,173,28,208,73,3,141,28,208,76,49,112,173,29,208,73,3,141,29
32013 DATA208,76,49,112,173,23,208,73,3,141,23,208,76,49,112,230,255,165,255
32014 DATA201,4,16,3,76,49,112,169,0,133,255,76,49,112,198,255,48,3,76,49,112
32015 DATA169,3,133,255,76,49,112,32,133,112,32,78,113,160,63,169,0,136,145,252
32016 DATA208,251,76,214,112,162,64,160,3,134,249,132,250,96,162,128,160,3,134
32017 DATA249,132,250,96,32,69,113,32,164,112,32,60,113,96,32,133,112,32,69,113
32018 DATA169,249,162,252,141,175,112,142,177,112,32,164,112,32,133,112,169,252
32019 DATA162,249,141,175,112,142,177,112,32,60,113,76,49,112,230,248,165,248
32020 DATA201,63,208,4,169,0,133,248,76,49,112,198,248,165,248,201,255,208,4
32021 DATA169,62,133,248,76,49,112,169,0,133,248,76,49,112,32,78,113,76,49,112
32022 DATA160,0,162,208,165,203,200,208,6,232,208,3,76,188,113,197,251,240,241
32023 DATA133,251,160,15,185,226,113,197,251,240,6,136,16,246,76,169,113,136
32024 DATA152,10,168,185,242,113,141,222,113,185,243,113,141,223,113,76,221,113
32025 DATA76,49,112,40,43,54,57,36,23,25,28,60,3,2,7,17,63,20,214,112,221,112
32026 DATA190,112,202,112,233,112,244,112,255,112,10,113,42,113,156,113,126,113
32027 DATA141,113,88,113,187,112,163,113,0,64,128,192
60000 DATA47,50,60,65,73,78,83,86,89,139,156,165,200,212,219,231,242,253,264
60010 DATA275,282,289,296,299,302,314,335,338,341,345,348,355,358,361,364
60020 DATA371,374,377,380,395,410,417,420,423,438,449,459,466,469,472,475,478
60030 DATA498,500,502,504,506,508,510,512,514,516,518,520,522,524,526,-1