10 PRINT"[147]ERSTELLEN VON SPRITES!
20 [153]"WIEVIEL SPRITES";:[133]SZ$
30 [139] [197](SZ$)[179][178]0[176][197](SZ$)[177]4[167]10
40 SZ[178][181]([197](SZ$)):[153]"IN WELCHE SPEICHERPLAETZE SOLL GEPOKT   WERDEN (";
50 [153]"FREI SIND: 11, 13,14 UND 15)?
60 PRINT:FORI=1TOSZ:PRINT"SPRITES NR"I"[146]";:INPUTSB:SB(I)=SB*64:NEXT
70 PRINT"DATA ZEILEN NR.: (>1000)       [157][157][157][157][157][157][157]";:INPUTDA$
80 IFVAL(DA$)<=1000ORVAL(DA$)>65000THENPRINT"[145][145]";:GOTO70
90 DA=INT(VAL(DA$))
100 DIMBS(21,3):I=0
110 POKE646,14:POKE198,0:I=I+1:IFI>SZTHEN690
120 PRINT"[147][155]SPRITES NR:"I"[154]"
130 PRINT:FORZ=1TO21:PRINTTAB(11)ZTAB(15)"************************":NEXT
140 PRINT"ZEICHNEN
150 [153]"SYSCURSOR/SPACE
160 PRINT"  LOESCHEN
170 [153]"    SYS<@>
180 PRINT"  ENDE
190 [153]"    SYS<F1>CONT
200 SP=1:S=1:ZZ=1:BS=7
210 PO=1024+SP+14+(ZZ+2)*40:IFPEEK(PO)=160THENPE=1
220 ZE=170:FA=7:GOSUB650:GETT$
230 ZE=42:FA=14:GOSUB650:IFPE=1THENZE=160:FA=7:PE=0:GOSUB650
240 IFT$=""THEN210
250 REM SPRITES ZEICHNEN
270 IFT$=""ORT$=" "THEN340
280 IFT$="[157]"THEN380
290 IFT$="[145]"THEN430
300 IFT$=""THEN450
310 IFT$="@"THEN470
320 IFASC(T$)=133THEN490
330 GOTO210
340 IFT$=" "THENIFPEEK(PO)<>160THENZE=160:FA=7:GOSUB650:BS(ZZ,S)=BS(ZZ,S)+2^BS
350 IFSP=24ANDZZ<21THENZZ=ZZ+1:S=1:SP=1:BS=7:GOTO210
360 IFSP=24THEN210
370 SP=SP+1:BS=BS-1:GOTO400
380 IFSP=1THEN210
390 SP=SP-1:BS=BS+1
400 IFBS=-1THENBS=7:S=S+1:GOTO210
410 IFBS=8THENBS=0:S=S-1
420 GOTO210
430 IFZZ<>1THENZZ=ZZ-1
440 GOTO210
450 IFZZ<>21THENZZ=ZZ+1
460 GOTO210
470 IFPEEK(PO)<>42THENZE=42:FA=14:GOSUB650:BS(ZZ,S)=BS(ZZ,S)-2^BS
480 GOTO210
490 REM SPRITES UEBERNEHMEN
500 FZ=DA:DA=FZ+INT((SZ+10)/10)*10
510 DA$=STR$(DA)+"DATA"
520 POKE646,6:PRINT"[147]"STR$(FZ)+"FORJ=0TO62:READQ:POKE"SB(I)"+J,Q:NEXT
530 D1[178]0:[129]ZZ[178]1[164]21:[129]S[178]1[164]3
540 [139][195](DA$)[177]70[167]DA[178]DA[170]10:[153][200](DA$,[195](DA$)[171]1):DA$[178][196](DA[170]10)[170]"DATA"
550 DA$[178]DA$[170][201]([196](BS(ZZ,S)),[195]([196](BS(ZZ,S)))[171]1)[170]","
560 [130]:[130]
570 [139]DA$[178][196](DA[170]10)[170]"DATA"[167]540
580 [153][200](DA$,[195](DA$)[171]1):DA[178]DA[170]10
590 [153]"90DIMBS(21,3),SB("SZ"):I="I":SZ="SZ":DA="DA[170]10
600 [153]"100";:[129]N[178]1[164]SZ:[153]"SB("N")="SB(N)":";:[130]:[153]"CMD "
610 [153]"500FZ="FZ[170]1
620 [153]"GOTO90"
630 [137]730
640 [128]
650 [151]PO,ZE:[151]54272[170]PO,FA:[142]
690 ZA[178]10:ZE[178]120
700 [151]646,6:[153]"LOAD690ZA="ZE[170]10":ZE="ZE[170]110"
710 FORI=ZATOZESTEP10:PRINTI:NEXT:PRINT"GOTO690"
720 IFI>700THENPRINT"[145][145]POKE646,14"
730 POKE631,19:FORI=1TO14:POKE631+I,13:NEXT:POKE198,15:END