Die Sprite-Bibliothek

Um Ihnen die Arbeit mit Sprites zu erleichtern, haben wir für Sie eine Sprite-Bibliothek entwickelt. Unser Programm soll Ihnen die Auswahl der Sprites für eigene Anwendungen erleichtern.

Wir haben für Sie ein Listing vorbereitet, mit dem Sie Sprites auf einfache Weise sichtbar machen können, ohne die Register des VICs per Hand zu manipulieren. Wenn Sie das Programm abgetippt haben, können Sie sich aus unserer Bibliothek die Sprites heraussuchen, die Sie gerne auf dem Bildschirm betrachten möchten. Beim Abtippen der Spritedaten ist es wichtig, daß die vorgegebene Zeilennumerierung eingehalten wird. Das Ende des Programms wird durch die Zahl 999 (in einer DATA-Zeile) angezeigt.

Starten Sie das Programm mit RUN, und auf dem Bildschirm erscheint das erste Sprite aus dem ersten DATA-Block (64 Zahlen). Am unteren Rand des Bildschirms steht Ihnen ein Menü zur Verfügung, mit dem Sie die einzelnen Funktionen des Programms aufrufen können. In der nachfolgenden Tabelle sind die Funktionstasten genau beschrieben:

F1: schaltet die Hintergrund- und die Rahmenfarbe um.
F3: ändert die Grundfarbe des Sprites.
F5 und F7: verändern die beiden Multicolorfarben des Sprites.
F2: schaltet zwischen Einfarb- und Mehrfarbmodus um.
F4: vergrößert und verkleinert das Sprite in X-Richtung.
F6: ist analog zu F4 für die Y-Richtung zuständig.
CR: Wenn Sie auf die RETURN-Taste drücken, wird das nächste Sprite angezeigt.
F8: Mit dieser Taste kommen Sie in den Korrekturmodus.

Im Korrekturmodus ist es möglich, die Sprite-Daten zu ändern und sofort wieder in DATA-Zeilen zu speichern. In diesem Modus werden die Werte des aktuellen Sprites auf dem Bildschirm angezeigt. Wenn Sie die Frage »Korrigieren« mit N (Nein) beantworten, kehrt das Programm wieder in das Grundmenü zurück. Möchten Sie das Sprite noch einmal überprüfen oder verändern, so können Sie das, ohne das Programm zu verlassen. In diesem Fall geben Sie ein J ein und der Cursor springt zu der ersten Rasterzeile. Sie können jetzt die betreffende Rasterzeile verändern (».« = gelöschtes Bit / »X« = gesetztes Bit) oder mit RETURN bestätigen. Damit springt der Cursor zur nächsten Position. Vorsicht, benutzen Sie bitte nie die Cursortasten, da das Programm mit einer einfachen INPUT-Routine arbeitet, die Ihr Sprite zerstören würde! Mit »£« und RETURN springt der Cursor wieder zum ersten Wert in der Tabelle, mit »↑« kommen Sie sofort in das Menü zurück. Sobald Sie mit der RETURN-Taste alle Daten bestätigt haben, erscheint wieder die alte Fußzeile. Für den Fall, daß die Daten verändert wurden, wird das alte Sprite mit »S« durch das neue Sprite ersetzt, indem die korrigierten DATA-Zeilen überschrieben werden. Darauf erscheint wieder das Menü-Bild.

Der Aufbau der Programms

Zeilen 110 bis 170: Hier werden die aktuellen Spritedaten aus dem Speicher gelesen und auf den Bildschirm als Rasterzeilen ausgegeben. Die Eingabe der korrigierten Daten wird über einen INPUT-Befehl abgewickelt, worauf die Daten sofort wieder in den Speicher geschrieben werden.

Zeilen 180 bis 499: In diesem Ausschnitt werden die Zeilennummern berechnet, in welchen das korrigierte Sprite abgelegt werden soll. Hierauf erfolgt die Ausgabe der neuen DATA-Zeilen und das Einlesen in den Basic-Speicher.

Zeilen 500 bis 635: Das Grundmenü wird auf den Bildschirm geschrieben und die Tastatur abgefragt.

Zeilen 900 bis 920: Dieser Block des Programms liest die DATA-Zeilen und schreibt sie in den Speicher.

(Thomas Erhart/do)

Sprite-Raster: Mädchen mit Kopf und langem Kleid — Bild 1. Mädchen

Sprite-Raster: Figur mit breiten Schultern und gespreizten Beinen — Bild 2. Mann 1

Sprite-Raster: Figur mit breiten Schultern und gespreizten Beinen, Variante — Bild 3. Mann 2

Sprite-Raster: drei Musiknoten — Bild 4. Note 1

Sprite-Raster: drei Musiknoten, Variante — Bild 5. Note 2

Sprite-Raster: senkrecht gesetzte Buchstaben GREAT — Bild 6. Schrift

Sprite-Raster: flaches Auto in Seitenansicht — Bild 7. Automobil 1

Sprite-Raster: kastenförmiges Auto mit Fenstern und Rädern — Bild 8. Automobil 2

Sprite-Raster: ineinander verschlungene Ziffern — Bild 9. Ziffern

Sprite-Raster: runde Bombe mit Zünder oben — Bild 10. Bombe 1

Sprite-Raster: runde Bombe mit Zünder oben, Variante — Bild 11. Bombe 2

Sprite-Raster: Kugel in einer Schale auf einem Fuß — Bild 12. Gegenstand 1

Sprite-Raster: Kugel über einem Sockel — Bild 13. Gegenstand 2

Sprite-Raster: bauchige Vase mit langem Hals — Bild 14. Vase 1

Sprite-Raster: symmetrisches Wesen mit Kopf und gestreiftem Körper — Bild 15. Monster 1

Sprite-Raster: fast ganz gefülltes Rechteck mit senkrechten Streifen — Bild 16. Ölfaß

Sprite-Raster: gefüllter Kreis — Bild 17. Packman 1

Sprite-Raster: Kreis mit offenem Mund nach rechts — Bild 18. Packman 2

Sprite-Raster: drei Kugeln, durch Linien zu einem Dreieck verbunden — Bild 20. Atom

Sprite-Raster: schattierte Kugel mit Glanzpunkt — Bild 21. Kugel

Sprite-Raster: schlanker Pokal mit Fuß — Bild 22. Vase 2

Sprite-Raster: Wesen mit erhobenen Armen und mehreren Beinen — Bild 23. Monster 2

Sprite-Raster: Wesen mit ausgebreiteten Armen und gespreizten Beinen — Bild 24. Monster 3

Sprite-Raster: Auto mit hohem Aufbau in Seitenansicht — Bild 25. Automobil 3

Sprite-Raster: Hammer mit schrägem Stiel — Bild 26. Hammer

Sprite-Raster: runder Kopf mit Augen und Zähnen — Bild 27. Monster 4

Sprite-Raster: geschlossener Mund — Bild 28. Lippen

Sprite-Raster: Glühbirne mit Fassung — Bild 29. Glühbirne

Sprite-Raster: zwei gekreuzte Klingen — Bild 30. Gegenstand

Sprite-Raster: stehende Figur mit abgewinkelten Armen — Bild 31. Mann 3

Sprite-Raster: laufende Figur mit großem Kopf — Bild 32. Mann 4

Sprite-Raster: gehende Figur im Profil — Bild 33. Mann 5

Sprite-Raster: Totenkopf mit Augenhöhlen und Zähnen — Bild 36. Totenkopf

Sprite-Raster: gebogene Banane — Bild 37. Banane

petcat | Checksummer

100 poke 650,128
102 gosub 900
105 goto 500
110 print"{lgrn}{clr}{rvon}            datenkorrektur             "
112 w=0:poke53280,11:poke53281,11
115 print"{home}{down}"
120 for zb=0 to 20
130 for za=0 to 2
135 zc=zb*3+za:printtab(za*10+5);" ";
140 gg=peek(832+zc):forx=7to0step-1:x$=chr$(42*((ggand2^x)/2^x)+46):xx$=xx$+x$
141 printx$;:next:ifmc=-1thenprinttab(za*10+5)"{left}{left}{left}{left}{left}{left}{left}{left}";:forx=1to8step2:goto155
142 xx$="":next:print"  ":next:goto165
144 print"{home}{down}"
145 for zb=0 to 20
146 for za=0 to 2
147 zc=zb*3+za
148 printtab(za*10+4);:inputda$:print"{up}";
149 da$=left$(da$,8):forx=8to1step-1:x$=mid$(da$,x,1):xx=-1*(x$="x")
150 xy=xy+xx*2^(8-x):next:if xy<0 or xy>255 then144
151 print"    {left}{left}{left}{left}";xy;"{left}";:poke832+zc,xy
152 if left$(da$,1)="\"then110
153 if left$(da$,1)="^"then500
154 goto164
155 ifmid$(xx$,x,2)="xx"thenprint"{rvon}{yel}xx";
156 ifmid$(xx$,x,2)="x."thenprint"{rvon}{red}x.";
157 ifmid$(xx$,x,2)=".x"thenprint"{rvon}{grn}.x";
158 ifmid$(xx$,x,2)=".."thenprint"{rvof}{gry2}..";
159 print"{rvof}{blk}";:next:goto142
164 xy=0  :next:print"{down}";:next
165 print
180 print"{rvon}  korrigieren   ? (j/n) / speichern (s)";
200 get k$:if k$=""then 200
210 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
211 print"      {rvon}  \ home  {rvof}       {rvon}  ^ menue  {rvof}     ";
220 if k$="j"then w=0:goto 144
230 if k$="s"then 260
240 if k$="n"then 500
260 print"{clr}{down}{down}{down}{down}{down}"
300 zn=992+sc*10
320 for aa=0 to 3
325 print zn+aa*2;"data";
330 for ab=0 to 15
340 print mid$(str$(peek(832+ab+aa*16))+",",2,5);
360 next:print"{left} ":next:print"run"
380 for aa=0 to 4:poke 631+aa,13:next
400 poke 198,5
420 print"{home}{down}{down}{down}"
499 end
500 print"{clr}{lgrn}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
530 print"                             {rvon}cr weiter {down}"
531 print"{rvon}f1 bild{rvof} {rvon}f3 sprite{rvof} {rvon}f5 multi 1{rvof} {rvon}f7 multi 2{down}"
532 print"{rvon}f2 art {rvof} {rvon}f4 x-expd{rvof} {rvon}f6 y-expd {rvof} {rvon}f8 aendern"
540 v=53248
560 poke v+0 ,150:poke v+1,100
561 poke 2040,13
562 poke v+16,0  :poke v+21,1
570 poke53248+28,0
580 get k$:if k$=""then 580
590 ha=0
600 if k$="{f1}" then ha=32
601 if k$="{f3}" then ha=39:hp=8
602 if k$="{f5}" then ha=37:hp=18
603 if k$="{f7}" then ha=38:hp=29
605 if ha=0 then 620
610 hb=(peek(v+ha)and15)+1
611 poke v+ha,hb
612 if ha=32 then poke v+33,hb:goto 580
615 poke 55296+hp+800,hb
616 poke 55297+hp+800,hb
617 goto 580
620 if k$="{f2}" then ha=28:mc=notmc
621 if k$="{f4}" then ha=29
622 if k$="{f6}" then ha=23
623 if k$="{f8}" then poke v+21,0:goto 110
624 if k$=chr$(13) then gosub 900
625 if ha=0 then 580
630 hb=abs(sgn(peek(v+ha))-1)
631 poke v+ha,hb
635 goto 580
900 for aa=0 to 63
910 read da
912 if da=999 then restore:sc=0:goto 900
915 poke 832+aa,da
920 next:sc=sc+1:return
999 :
1000 bild 1
1002 data0,63,0,0,255,192,0,127,248,1,239,248,1,95,248,1
1004 data87,248,0,87,255,0,191,254,0,252,254,3,255,255,3,255
1006 data252,3,255,207,3,255,48,0,215,0,0,215,0,0,60,0
1008 data0,60,0,0,60,0,0,60,0,0,60,0,0,252,0,255
1009 :
1010 bild 2
1011 :
1012 data0,42,0,0,170,128,0,170,160,0,253,208,0,245,64,0
1014 data245,0,0,20,0,0,40,0,0,170,0,0,170,192,0,170
1016 data128,0,170,192,0,150,128,0,39,0,0,40,0,0,42,0
1018 data0,170,0,2,130,128,10,0,128,14,0,160,3,192,252,255
1019 :
1020 bild 3
1021 :
1022 data0,255,192,0,255,192,0,255,192,3,255,240,0,91,84,0
1024 data21,0,0,60,0,0,255,0,0,255,192,0,255,192,0,255
1026 data192,0,215,192,0,55,0,0,60,0,0,63,0,0,255,0
1028 data3,195,192,15,0,192,15,0,240,3,192,252,0,0,63,255
1029 :
1030 bild 4
1031 :
1032 data 0,0,0,0,112,0,0,240,0,1,176,0,3,48,0,14
1034 data 48,0,12,48,6,12,240,6,13,248,6,12,240,6,60,97
1036 data 134,124,1,134,62,1,134,24,1,158,0,1,190,0,1,158
1038 data 0,7,140,0,15,128,0,7,128,0,3,0,0,0,0,255
1039 :
1040 bild 5
1041 :
1042 data0,0,0,0,0,0,14,0,0,15,0,0,13,128,0,12
1044 data192,0,12,112,0,12,48,0,60,49,128,126,49,128,60,49
1046 data128,24,49,134,0,241,134,1,249,134,0,241,134,0,103,134
1048 data0,15,134,0,7,30,0,3,62,0,0,30,0,0,12,255
1049 :
1050 bild 6
1051 :
1052 data247,188,223,132,160,196,132,161,36,132,161,36,132,161,36,132
1054 data161,36,132,161,36,132,161,36,132,161,36,132,161,36,183,57
1056 data228,182,57,228,149,33,36,148,161,36,148,161,36,148,161,36
1058 data148,161,36,148,161,36,148,161,36,148,161,36,244,189,36,255
1059 :
1060 bild 7
1061 :
1062 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1064 data 255,0,195,117,192,62,255,252,58,170,171,235,170,187,253,255
1066 data 223,13,192,220,3,0,48,0,0,0,0,0,0,0,0,0
1068 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
1069 :
1070 bild 8
1071 :
1072 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1074 data0,0,0,0,0,0,0,0,0,4,0,15,255,0,60,48
1076 data192,63,48,192,63,48,192,255,255,124,255,223,255,215,223,253
1078 data253,223,127,127,221,253,247,255,223,55,0,220,12,0,48,255
1079 :
1080 bild 9
1081 :
1082 data0,0,0,0,0,0,0,120,0,1,192,0,3,191,192,7
1084 data191,192,7,188,128,7,184,0,3,221,248,1,206,252,3,199
1086 data28,3,3,56,6,195,96,5,239,112,12,252,56,0,251,28
1088 data0,119,252,0,7,252,0,3,248,0,0,224,0,0,0,255
1089 :
1090 bild 10
1091 :
1092 data0,0,0,0,3,192,0,106,160,0,106,160,0,106,160,0
1094 data1,64,0,2,128,0,10,160,0,38,252,0,90,232,0,90
1096 data252,0,170,168,0,255,252,0,170,168,0,86,84,0,246,124
1098 data0,26,144,0,63,240,0,13,192,0,1,0,0,0,0,255
1099 :
1100 bild 11
1101 :
1102 data0,0,0,0,0,0,0,106,160,0,106,160,0,106,160,0
1104 data1,64,0,2,128,0,10,160,0,38,252,0,154,212,0,154
1106 data252,0,170,168,0,255,252,0,170,168,0,86,84,0,246,124
1108 data0,26,144,0,63,240,0,13,192,0,0,0,0,0,0,255
1109 :
1110 bild 12
1111 :
1112 data0,0,0,0,60,0,0,78,0,12,159,48,28,191,56,20
1114 data191,56,20,126,56,20,0,56,22,24,120,19,0,248,9,255
1116 data240,7,255,224,1,255,128,0,24,0,0,24,0,0,24,0
1118 data0,110,0,1,159,128,2,63,192,3,255,192,0,0,0,255
1119 :
1120 bild 13
1121 :
1122 data0,0,0,0,120,0,0,156,0,1,62,0,1,62,0,1
1124 data254,0,0,252,0,0,120,0,0,0,0,0,48,0,0,0
1126 data0,0,48,0,15,255,192,2,127,0,1,62,0,0,188,0
1128 data0,188,0,0,188,0,0,252,0,0,0,0,0,0,0,255
1129 :
1130 bild 14
1131 :
1132 data0,0,0,0,0,0,0,94,0,0,44,0,0,44,0,0
1134 data44,0,0,44,0,0,44,0,0,44,0,0,94,0,1,191
1136 data128,6,127,224,9,255,240,19,255,248,19,254,248,19,252,248
1138 data9,253,240,6,255,224,1,255,128,0,54,0,1,255,128,255
1139 :
1140 bild 15
1141 :
1142 data0,191,128,2,98,96,9,89,88,9,217,216,11,251,248,2
1144 data234,224,0,170,128,0,42,0,1,63,16,4,192,196,4,63
1146 data4,4,192,196,4,63,4,4,192,196,4,63,4,4,192,196
1148 data4,63,4,4,192,196,0,63,0,0,64,64,1,85,80,255
1149 :
1150 bild 16
1151 :
1152 data63,255,252,234,170,171,213,85,87,255,255,255,58,170,172,234
1154 data170,171,238,174,235,235,250,235,235,186,235,235,186,235,235,186
1156 data235,235,186,235,235,186,235,235,250,235,235,250,251,229,85,91
1158 data58,170,172,255,255,255,234,170,171,213,85,87,63,255,252,255
1159 :
1160 bild 17
1161 :
1162 data0,255,0,3,235,192,15,170,240,14,170,176,62,170,188,58
1164 data190,172,58,182,172,250,170,175,218,170,171,218,170,171,218,191
1166 data255,218,170,171,214,170,171,246,170,175,54,170,172,53,170,172
1168 data61,170,188,13,106,176,15,90,240,3,215,192,0,255,0,255
1169 :
1170 bild 18
1171 :
1172 data0,255,0,3,235,192,15,170,240,14,170,176,62,170,188,58
1174 data190,172,58,178,172,250,170,252,234,175,0,218,176,0,218,192
1176 data0,218,176,0,214,175,0,246,170,252,54,170,172,53,170,172
1178 data61,170,188,13,106,176,15,90,240,3,215,192,0,255,0,255
1179 :
1180 bild 19
1181 :
1182 data0,255,0,3,235,192,15,170,240,14,170,176,62,170,176,58
1184 data250,192,58,219,0,250,172,0,234,176,0,218,192,0,219,0
1186 data0,218,192,0,214,176,0,246,172,0,54,171,0,53,170,192
1188 data61,170,176,13,106,176,15,90,240,3,215,192,0,255,0,255
1189 :
1190 bild 20
1191 :
1192 data0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0
1194 data38,0,0,79,0,0,95,0,0,127,0,0,62,0,0,93
1196 data0,0,128,128,29,0,92,38,0,38,79,0,79,95,127,95
1198 data127,0,127,62,0,62,28,0,28,0,0,0,0,0,0,255
1199 :
1200 bild 21
1201 :
1202 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1204 data0,0,0,0,0,0,0,0,0,126,0,1,143,128,2,63
1206 data192,4,127,224,4,255,224,13,255,240,13,255,240,15,254,240
1208 data7,252,224,7,253,224,3,255,192,1,255,128,0,126,0,255
1209 :
1210 bild 22
1211 :
1212 data0,0,0,0,0,0,0,0,0,1,234,128,1,61,128,1
1214 data61,128,1,61,128,1,61,128,1,191,128,0,159,0,0,223
1216 data0,0,110,0,0,60,0,0,24,0,0,24,0,0,24,0
1218 data0,24,0,0,48,0,0,110,0,1,159,128,1,191,128,255
1219 :
1220 bild 23
1221 :
1222 data192,40,3,192,170,3,240,170,15,62,170,188,62,169,124,58
1224 data171,108,37,107,217,170,170,170,170,150,170,42,21,168,41,170
1226 data104,10,170,160,10,130,160,42,130,168,42,0,168,42,0,168
1228 data170,0,168,168,0,42,168,0,42,100,0,25,100,0,25,255
1229 :
1230 bild 24
1231 :
1232 data48,40,12,48,170,12,60,170,12,62,170,188,62,170,188,57
1234 data105,108,39,235,216,170,170,170,170,170,170,41,85,104,42,150
1236 data168,10,170,160,10,130,160,10,130,160,10,130,160,10,130,160
1238 data10,130,160,10,130,160,10,130,160,6,65,144,21,65,84,0
1239 :
1240 bild 25
1241 :
1242 data0,0,0,0,0,0,0,2,160,0,10,224,0,11,224,0
1244 data47,232,0,47,232,0,159,232,2,170,170,42,170,169,106,170
1246 data169,106,170,170,170,170,170,170,170,171,253,255,220,5,64,84
1248 data5,64,84,1,0,16,0,0,0,0,0,0,0,0,0,255
1249 :
1250 bild 26
1251 :
1252 data0,0,0,0,0,0,84,40,0,93,85,80,245,85,84,85
1254 data85,245,84,85,13,0,40,1,0,40,1,0,40,0,0,168
1256 data0,0,168,0,0,168,0,2,168,0,2,168,0,2,168,0
1258 data2,160,0,2,160,0,2,160,0,10,160,0,10,160,0,255
1259 :
1260 bild 27
1261 :
1262 data3,252,0,14,171,0,14,170,192,58,170,191,58,165,187,234
1264 data167,187,234,234,171,234,250,171,234,191,251,234,176,15,234,179
1266 data48,234,189,223,234,179,119,234,172,207,234,172,0,234,171,240
1268 data58,170,172,58,170,172,14,170,176,3,234,176,0,63,192,255
1269 :
1270 bild 28
1271 :
1272 data0,0,0,0,0,0,0,0,0,2,138,0,10,170,128,42
1274 data170,160,41,101,160,165,85,104,159,255,216,167,255,104,41,85
1276 data160,10,170,128,2,170,0,0,0,0,0,0,0,0,0,0
1278 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
1279 :
1280 bild 29
1281 :
1282 data0,0,0,0,0,0,0,255,0,15,0,240,48,0,12,48
1284 data0,12,240,0,15,192,0,3,193,0,67,192,65,3,192,20
1286 data3,240,20,15,48,20,12,48,20,12,48,20,12,12,20,48
1288 data3,255,192,3,85,192,15,255,240,3,85,192,0,255,0,255
1289 :
1290 bild 30
1291 :
1292 data0,0,0,0,0,0,0,0,0,15,2,128,55,201,160,55
1294 data201,160,63,202,160,15,202,128,0,200,0,0,32,0,0,32
1296 data0,0,32,0,0,140,0,10,143,192,38,141,240,38,141,240
1298 data42,143,240,10,3,192,0,0,0,0,0,0,0,0,0,255
1299 :
1300 bild 31
1301 :
1302 data0,0,0,0,0,0,0,0,0,0,60,0,0,23,0,0
1304 data7,0,0,21,0,0,21,0,0,4,0,0,247,192,1,255
1306 data208,5,63,20,6,63,36,0,110,64,0,106,64,0,34,0
1308 data0,34,0,0,34,0,0,34,0,0,179,128,0,243,192,255
1309 :
1310 bild 32
1311 :
1312 data0,60,0,0,251,0,0,255,0,2,235,0,14,235,0,62
1314 data183,0,58,191,176,250,174,176,251,186,240,250,171,240,242,167
1316 data192,194,165,128,67,170,192,66,255,128,156,170,128,14,162,128
1318 data14,162,160,12,160,160,0,0,160,0,0,240,0,0,60,255
1319 :
1320 bild 33
1321 :
1322 data0,28,0,0,127,128,0,63,192,0,63,192,0,23,128,0
1324 data127,128,0,31,0,0,15,0,0,29,128,0,3,192,0,7
1326 data192,3,159,192,3,247,128,3,135,128,0,15,0,0,7,128
1328 data0,15,128,0,29,128,0,184,192,0,112,192,0,35,192,255
1329 :
1330 bild 34
1331 :
1332 data0,28,0,0,127,128,0,191,192,0,63,192,0,23,128,0
1334 data63,128,0,31,0,0,15,0,0,29,128,0,3,192,0,7
1336 data192,0,15,192,0,31,128,0,7,128,0,15,0,0,7,128
1338 data0,15,128,0,29,128,0,184,192,0,112,192,0,35,192,255
1339 :
1340 bild 35
1341 :
1342 data0,171,127,252,72,248,30,133,240,15,3,224,3,131,192,3
1344 data131,192,1,135,192,0,199,128,1,71,128,3,103,128,6,63
1346 data0,7,255,0,7,255,0,13,127,128,13,127,128,9,63,128
1348 data9,61,128,0,24,192,0,8,64,0,28,224,0,20,160,255
1349 :
1350 bild 36
1351 :
1352 data1,255,128,15,255,240,63,255,252,127,255,254,112,126,6,96
1354 data60,2,224,24,3,224,60,3,240,118,7,127,227,254,63,227
1356 data252,63,193,252,63,227,252,15,255,240,7,0,224,0,0,0
1358 data8,0,16,12,0,48,15,0,240,3,129,192,0,255,0,255
1359 :
1360 bild 37
1361 :
1362 data0,0,0,2,128,0,10,128,0,10,0,0,42,0,0,42
1364 data0,0,42,0,0,42,0,0,234,0,0,234,0,0,234,3
1366 data192,234,15,192,218,60,192,246,188,0,253,176,0,255,124,3
1368 data63,255,63,63,255,255,15,255,252,3,255,240,0,255,192,255
1369 :
9999 data 999

 100 POKE 650,128 
 102 GOSUB 900 
 105 GOTO 500 
 110 PRINT"{LIG.GREEN,CLR,RVSON,12SPACE}DATENKORREKTUR{13SPACE}" 
 112 W=0:POKE 53280,11:POKE 53281,11 
 115 PRINT"{HOME,DOWN}" 
 120 FOR ZB=0  TO 20 
 130 FOR ZA=0  TO 2 
 135 ZC=ZB*3+ZA:PRINTTAB( ZA*10+5);" "; 
 140 GG=PEEK (832+ZC):FOR X=7 TO0STEP -1:X$=CHR$ (42*((GGAND 2^X)/2^X)+46):XX$=XX$+X$ 
 141 PRINTX$;:NEXT :IF MC=-1 THENPRINTTAB( ZA*10+5)"{8LEFT}";:FOR X=1 TO8STEP 2:GOTO 155 
 142 XX$="":NEXT :PRINT"{2SPACE}":NEXT :GOTO 165 
 144 PRINT"{HOME,DOWN}" 
 145 FOR ZB=0  TO 20 
 146 FOR ZA=0  TO 2 
 147 ZC=ZB*3+ZA 
 148 PRINTTAB( ZA*10+4);:INPUTDA$:PRINT"{UP}"; 
 149 DA$=LEFT$ (DA$,8):FOR X=8 TO1STEP -1:X$=MID$ (DA$,X,1):XX=-1*(X$="X") 
 150 XY=XY+XX*2^(8-X):NEXT :IF XY<0 OR XY>255  THEN144 
 151 PRINT"{4SPACE,4LEFT}";XY;"{LEFT}";:POKE 832+ZC,XY 
 152 IF LEFT$ (DA$,1)="£" THEN110 
 153 IF LEFT$ (DA$,1)="↑" THEN500 
 154 GOTO 164 
 155 IF MID$ (XX$,X,2)="XX" THENPRINT"{RVSON,YELLOW}XX"; 
 156 IF MID$ (XX$,X,2)="X." THENPRINT"{RVSON,RED}X."; 
 157 IF MID$ (XX$,X,2)=".X" THENPRINT"{RVSON,GREEN}.X"; 
 158 IF MID$ (XX$,X,2)=".." THENPRINT"{RVOFF,GREY2}.."; 
 159 PRINT"{RVOFF,BLACK}";:NEXT :GOTO 142 
 164 XY=0  :NEXT :PRINT"{DOWN}";:NEXT 
 165 PRINT 
 180 PRINT"{RVSON,2SPACE}KORRIGIEREN{3SPACE}? (J/N) / SPEICHERN (S)"; 
 200 GET K$:IF K$="" THEN 200 
 210 PRINT"{HOME,23DOWN}" 
 211 PRINT"{6SPACE,RVSON,2SPACE}£ HOME{2SPACE,RVOFF,7SPACE,RVSON,2SPACE}↑ MENUE{2SPACE,RVOFF,5SPACE}"; 
 220 IF K$="J" THEN W=0:GOTO 144 
 230 IF K$="S" THEN 260 
 240 IF K$="N" THEN 500 
 260 PRINT"{CLR,5DOWN}" 
 300 ZN=992+SC*10 
 320 FOR AA=0  TO 3 
 325 PRINT ZN+AA*2;"DATA"; 
 330 FOR AB=0  TO 15 
 340 PRINT MID$ (STR$ (PEEK (832+AB+AA*16))+",",2,5); 
 360 NEXT :PRINT"{LEFT,SPACE}":NEXT :PRINT"RUN" 
 380 FOR AA=0  TO 4:POKE 631+AA,13:NEXT 
 400 POKE 198,5 
 420 PRINT"{HOME,3DOWN}" 
 499 END 
 500 PRINT"{CLR,LIG.GREEN,17DOWN}" 
 530 PRINT"{29SPACE,RVSON}CR WEITER{SPACE,DOWN}" 
 531 PRINT"{RVSON}F1 BILD{RVOFF,SPACE,RVSON}F3 SPRITE{RVOFF,SPACE,RVSON}F5 MULTI 1{RVOFF,SPACE,RVSON}F7 MULTI 2{DOWN}" 
 532 PRINT"{RVSON}F2 ART{SPACE,RVOFF,SPACE,RVSON}F4 X-EXPD{RVOFF,SPACE,RVSON}F6 Y-EXPD{SPACE,RVOFF,SPACE,RVSON}F8 AENDERN" 
 540 V=53248 
 560 POKE V+0 ,150:POKE V+1,100 
 561 POKE 2040,13 
 562 POKE V+16,0  :POKE V+21,1 
 570 POKE 53248+28,0 
 580 GET K$:IF K$="" THEN 580 
 590 HA=0 
 600 IF K$="{F1}"  THEN HA=32 
 601 IF K$="{F3}"  THEN HA=39:HP=8 
 602 IF K$="{F5}"  THEN HA=37:HP=18 
 603 IF K$="{F7}"  THEN HA=38:HP=29 
 605 IF HA=0  THEN 620 
 610 HB=(PEEK (V+HA)AND 15)+1 
 611 POKE V+HA,HB 
 612 IF HA=32  THEN POKE V+33,HB:GOTO 580 
 615 POKE 55296+HP+800,HB 
 616 POKE 55297+HP+800,HB 
 617 GOTO 580 
 620 IF K$="{F2}"  THEN HA=28:MC=NOT MC 
 621 IF K$="{F4}"  THEN HA=29 
 622 IF K$="{F6}"  THEN HA=23 
 623 IF K$="{F8}"  THEN POKE V+21,0:GOTO 110 
 624 IF K$=CHR$ (13)  THEN GOSUB 900 
 625 IF HA=0  THEN 580 
 630 HB=ABS (SGN (PEEK (V+HA))-1) 
 631 POKE V+HA,HB 
 635 GOTO 580 
 900 FOR AA=0  TO 63 
 910 READ DA 
 912 IF DA=999  THEN RESTORE :SC=0:GOTO 900 
 915 POKE 832+AA,DA 
 920 NEXT :SC=SC+1:RETURN 
 999 : 
 1000 BILD 1 
 1002 DATA 0,63,0,0,255,192,0,127,248,1,239,248,1,95,248,1 
 1004 DATA 87,248,0,87,255,0,191,254,0,252,254,3,255,255,3,255 
 1006 DATA 252,3,255,207,3,255,48,0,215,0,0,215,0,0,60,0 
 1008 DATA 0,60,0,0,60,0,0,60,0,0,60,0,0,252,0,255 
 1009 : 
 1010 BILD 2 
 1011 : 
 1012 DATA 0,42,0,0,170,128,0,170,160,0,253,208,0,245,64,0 
 1014 DATA 245,0,0,20,0,0,40,0,0,170,0,0,170,192,0,170 
 1016 DATA 128,0,170,192,0,150,128,0,39,0,0,40,0,0,42,0 
 1018 DATA 0,170,0,2,130,128,10,0,128,14,0,160,3,192,252,255 
 1019 : 
 1020 BILD 3 
 1021 : 
 1022 DATA 0,255,192,0,255,192,0,255,192,3,255,240,0,91,84,0 
 1024 DATA 21,0,0,60,0,0,255,0,0,255,192,0,255,192,0,255 
 1026 DATA 192,0,215,192,0,55,0,0,60,0,0,63,0,0,255,0 
 1028 DATA 3,195,192,15,0,192,15,0,240,3,192,252,0,0,63,255 
 1029 : 
 1030 BILD 4 
 1031 : 
 1032 DATA 0,0,0,0,112,0,0,240,0,1,176,0,3,48,0,14 
 1034 DATA 48,0,12,48,6,12,240,6,13,248,6,12,240,6,60,97 
 1036 DATA 134,124,1,134,62,1,134,24,1,158,0,1,190,0,1,158 
 1038 DATA 0,7,140,0,15,128,0,7,128,0,3,0,0,0,0,255 
 1039 : 
 1040 BILD 5 
 1041 : 
 1042 DATA 0,0,0,0,0,0,14,0,0,15,0,0,13,128,0,12 
 1044 DATA 192,0,12,112,0,12,48,0,60,49,128,126,49,128,60,49 
 1046 DATA 128,24,49,134,0,241,134,1,249,134,0,241,134,0,103,134 
 1048 DATA 0,15,134,0,7,30,0,3,62,0,0,30,0,0,12,255 
 1049 : 
 1050 BILD 6 
 1051 : 
 1052 DATA 247,188,223,132,160,196,132,161,36,132,161,36,132,161,36,132 
 1054 DATA 161,36,132,161,36,132,161,36,132,161,36,132,161,36,183,57 
 1056 DATA 228,182,57,228,149,33,36,148,161,36,148,161,36,148,161,36 
 1058 DATA 148,161,36,148,161,36,148,161,36,148,161,36,244,189,36,255 
 1059 : 
 1060 BILD 7 
 1061 : 
 1062 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 1064 DATA 255,0,195,117,192,62,255,252,58,170,171,235,170,187,253,255 
 1066 DATA 223,13,192,220,3,0,48,0,0,0,0,0,0,0,0,0 
 1068 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255 
 1069 : 
 1070 BILD 8 
 1071 : 
 1072 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 1074 DATA 0,0,0,0,0,0,0,0,0,4,0,15,255,0,60,48 
 1076 DATA 192,63,48,192,63,48,192,255,255,124,255,223,255,215,223,253 
 1078 DATA 253,223,127,127,221,253,247,255,223,55,0,220,12,0,48,255 
 1079 : 
 1080 BILD 9 
 1081 : 
 1082 DATA 0,0,0,0,0,0,0,120,0,1,192,0,3,191,192,7 
 1084 DATA 191,192,7,188,128,7,184,0,3,221,248,1,206,252,3,199 
 1086 DATA 28,3,3,56,6,195,96,5,239,112,12,252,56,0,251,28 
 1088 DATA 0,119,252,0,7,252,0,3,248,0,0,224,0,0,0,255 
 1089 : 
 1090 BILD 10 
 1091 : 
 1092 DATA 0,0,0,0,3,192,0,106,160,0,106,160,0,106,160,0 
 1094 DATA 1,64,0,2,128,0,10,160,0,38,252,0,90,232,0,90 
 1096 DATA 252,0,170,168,0,255,252,0,170,168,0,86,84,0,246,124 
 1098 DATA 0,26,144,0,63,240,0,13,192,0,1,0,0,0,0,255 
 1099 : 
 1100 BILD 11 
 1101 : 
 1102 DATA 0,0,0,0,0,0,0,106,160,0,106,160,0,106,160,0 
 1104 DATA 1,64,0,2,128,0,10,160,0,38,252,0,154,212,0,154 
 1106 DATA 252,0,170,168,0,255,252,0,170,168,0,86,84,0,246,124 
 1108 DATA 0,26,144,0,63,240,0,13,192,0,0,0,0,0,0,255 
 1109 : 
 1110 BILD 12 
 1111 : 
 1112 DATA 0,0,0,0,60,0,0,78,0,12,159,48,28,191,56,20 
 1114 DATA 191,56,20,126,56,20,0,56,22,24,120,19,0,248,9,255 
 1116 DATA 240,7,255,224,1,255,128,0,24,0,0,24,0,0,24,0 
 1118 DATA 0,110,0,1,159,128,2,63,192,3,255,192,0,0,0,255 
 1119 : 
 1120 BILD 13 
 1121 : 
 1122 DATA 0,0,0,0,120,0,0,156,0,1,62,0,1,62,0,1 
 1124 DATA 254,0,0,252,0,0,120,0,0,0,0,0,48,0,0,0 
 1126 DATA 0,0,48,0,15,255,192,2,127,0,1,62,0,0,188,0 
 1128 DATA 0,188,0,0,188,0,0,252,0,0,0,0,0,0,0,255 
 1129 : 
 1130 BILD 14 
 1131 : 
 1132 DATA 0,0,0,0,0,0,0,94,0,0,44,0,0,44,0,0 
 1134 DATA 44,0,0,44,0,0,44,0,0,44,0,0,94,0,1,191 
 1136 DATA 128,6,127,224,9,255,240,19,255,248,19,254,248,19,252,248 
 1138 DATA 9,253,240,6,255,224,1,255,128,0,54,0,1,255,128,255 
 1139 : 
 1140 BILD 15 
 1141 : 
 1142 DATA 0,191,128,2,98,96,9,89,88,9,217,216,11,251,248,2 
 1144 DATA 234,224,0,170,128,0,42,0,1,63,16,4,192,196,4,63 
 1146 DATA 4,4,192,196,4,63,4,4,192,196,4,63,4,4,192,196 
 1148 DATA 4,63,4,4,192,196,0,63,0,0,64,64,1,85,80,255 
 1149 : 
 1150 BILD 16 
 1151 : 
 1152 DATA 63,255,252,234,170,171,213,85,87,255,255,255,58,170,172,234 
 1154 DATA 170,171,238,174,235,235,250,235,235,186,235,235,186,235,235,186 
 1156 DATA 235,235,186,235,235,186,235,235,250,235,235,250,251,229,85,91 
 1158 DATA 58,170,172,255,255,255,234,170,171,213,85,87,63,255,252,255 
 1159 : 
 1160 BILD 17 
 1161 : 
 1162 DATA 0,255,0,3,235,192,15,170,240,14,170,176,62,170,188,58 
 1164 DATA 190,172,58,182,172,250,170,175,218,170,171,218,170,171,218,191 
 1166 DATA 255,218,170,171,214,170,171,246,170,175,54,170,172,53,170,172 
 1168 DATA 61,170,188,13,106,176,15,90,240,3,215,192,0,255,0,255 
 1169 : 
 1170 BILD 18 
 1171 : 
 1172 DATA 0,255,0,3,235,192,15,170,240,14,170,176,62,170,188,58 
 1174 DATA 190,172,58,178,172,250,170,252,234,175,0,218,176,0,218,192 
 1176 DATA 0,218,176,0,214,175,0,246,170,252,54,170,172,53,170,172 
 1178 DATA 61,170,188,13,106,176,15,90,240,3,215,192,0,255,0,255 
 1179 : 
 1180 BILD 19 
 1181 : 
 1182 DATA 0,255,0,3,235,192,15,170,240,14,170,176,62,170,176,58 
 1184 DATA 250,192,58,219,0,250,172,0,234,176,0,218,192,0,219,0 
 1186 DATA 0,218,192,0,214,176,0,246,172,0,54,171,0,53,170,192 
 1188 DATA 61,170,176,13,106,176,15,90,240,3,215,192,0,255,0,255 
 1189 : 
 1190 BILD 20 
 1191 : 
 1192 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0 
 1194 DATA 38,0,0,79,0,0,95,0,0,127,0,0,62,0,0,93 
 1196 DATA 0,0,128,128,29,0,92,38,0,38,79,0,79,95,127,95 
 1198 DATA 127,0,127,62,0,62,28,0,28,0,0,0,0,0,0,255 
 1199 : 
 1200 BILD 21 
 1201 : 
 1202 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
 1204 DATA 0,0,0,0,0,0,0,0,0,126,0,1,143,128,2,63 
 1206 DATA 192,4,127,224,4,255,224,13,255,240,13,255,240,15,254,240 
 1208 DATA 7,252,224,7,253,224,3,255,192,1,255,128,0,126,0,255 
 1209 : 
 1210 BILD 22 
 1211 : 
 1212 DATA 0,0,0,0,0,0,0,0,0,1,234,128,1,61,128,1 
 1214 DATA 61,128,1,61,128,1,61,128,1,191,128,0,159,0,0,223 
 1216 DATA 0,0,110,0,0,60,0,0,24,0,0,24,0,0,24,0 
 1218 DATA 0,24,0,0,48,0,0,110,0,1,159,128,1,191,128,255 
 1219 : 
 1220 BILD 23 
 1221 : 
 1222 DATA 192,40,3,192,170,3,240,170,15,62,170,188,62,169,124,58 
 1224 DATA 171,108,37,107,217,170,170,170,170,150,170,42,21,168,41,170 
 1226 DATA 104,10,170,160,10,130,160,42,130,168,42,0,168,42,0,168 
 1228 DATA 170,0,168,168,0,42,168,0,42,100,0,25,100,0,25,255 
 1229 : 
 1230 BILD 24 
 1231 : 
 1232 DATA 48,40,12,48,170,12,60,170,12,62,170,188,62,170,188,57 
 1234 DATA 105,108,39,235,216,170,170,170,170,170,170,41,85,104,42,150 
 1236 DATA 168,10,170,160,10,130,160,10,130,160,10,130,160,10,130,160 
 1238 DATA 10,130,160,10,130,160,10,130,160,6,65,144,21,65,84,0 
 1239 : 
 1240 BILD 25 
 1241 : 
 1242 DATA 0,0,0,0,0,0,0,2,160,0,10,224,0,11,224,0 
 1244 DATA 47,232,0,47,232,0,159,232,2,170,170,42,170,169,106,170 
 1246 DATA 169,106,170,170,170,170,170,170,170,171,253,255,220,5,64,84 
 1248 DATA 5,64,84,1,0,16,0,0,0,0,0,0,0,0,0,255 
 1249 : 
 1250 BILD 26 
 1251 : 
 1252 DATA 0,0,0,0,0,0,84,40,0,93,85,80,245,85,84,85 
 1254 DATA 85,245,84,85,13,0,40,1,0,40,1,0,40,0,0,168 
 1256 DATA 0,0,168,0,0,168,0,2,168,0,2,168,0,2,168,0 
 1258 DATA 2,160,0,2,160,0,2,160,0,10,160,0,10,160,0,255 
 1259 : 
 1260 BILD 27 
 1261 : 
 1262 DATA 3,252,0,14,171,0,14,170,192,58,170,191,58,165,187,234 
 1264 DATA 167,187,234,234,171,234,250,171,234,191,251,234,176,15,234,179 
 1266 DATA 48,234,189,223,234,179,119,234,172,207,234,172,0,234,171,240 
 1268 DATA 58,170,172,58,170,172,14,170,176,3,234,176,0,63,192,255 
 1269 : 
 1270 BILD 28 
 1271 : 
 1272 DATA 0,0,0,0,0,0,0,0,0,2,138,0,10,170,128,42 
 1274 DATA 170,160,41,101,160,165,85,104,159,255,216,167,255,104,41,85 
 1276 DATA 160,10,170,128,2,170,0,0,0,0,0,0,0,0,0,0 
 1278 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255 
 1279 : 
 1280 BILD 29 
 1281 : 
 1282 DATA 0,0,0,0,0,0,0,255,0,15,0,240,48,0,12,48 
 1284 DATA 0,12,240,0,15,192,0,3,193,0,67,192,65,3,192,20 
 1286 DATA 3,240,20,15,48,20,12,48,20,12,48,20,12,12,20,48 
 1288 DATA 3,255,192,3,85,192,15,255,240,3,85,192,0,255,0,255 
 1289 : 
 1290 BILD 30 
 1291 : 
 1292 DATA 0,0,0,0,0,0,0,0,0,15,2,128,55,201,160,55 
 1294 DATA 201,160,63,202,160,15,202,128,0,200,0,0,32,0,0,32 
 1296 DATA 0,0,32,0,0,140,0,10,143,192,38,141,240,38,141,240 
 1298 DATA 42,143,240,10,3,192,0,0,0,0,0,0,0,0,0,255 
 1299 : 
 1300 BILD 31 
 1301 : 
 1302 DATA 0,0,0,0,0,0,0,0,0,0,60,0,0,23,0,0 
 1304 DATA 7,0,0,21,0,0,21,0,0,4,0,0,247,192,1,255 
 1306 DATA 208,5,63,20,6,63,36,0,110,64,0,106,64,0,34,0 
 1308 DATA 0,34,0,0,34,0,0,34,0,0,179,128,0,243,192,255 
 1309 : 
 1310 BILD 32 
 1311 : 
 1312 DATA 0,60,0,0,251,0,0,255,0,2,235,0,14,235,0,62 
 1314 DATA 183,0,58,191,176,250,174,176,251,186,240,250,171,240,242,167 
 1316 DATA 192,194,165,128,67,170,192,66,255,128,156,170,128,14,162,128 
 1318 DATA 14,162,160,12,160,160,0,0,160,0,0,240,0,0,60,255 
 1319 : 
 1320 BILD 33 
 1321 : 
 1322 DATA 0,28,0,0,127,128,0,63,192,0,63,192,0,23,128,0 
 1324 DATA 127,128,0,31,0,0,15,0,0,29,128,0,3,192,0,7 
 1326 DATA 192,3,159,192,3,247,128,3,135,128,0,15,0,0,7,128 
 1328 DATA 0,15,128,0,29,128,0,184,192,0,112,192,0,35,192,255 
 1329 : 
 1330 BILD 34 
 1331 : 
 1332 DATA 0,28,0,0,127,128,0,191,192,0,63,192,0,23,128,0 
 1334 DATA 63,128,0,31,0,0,15,0,0,29,128,0,3,192,0,7 
 1336 DATA 192,0,15,192,0,31,128,0,7,128,0,15,0,0,7,128 
 1338 DATA 0,15,128,0,29,128,0,184,192,0,112,192,0,35,192,255 
 1339 : 
 1340 BILD 35 
 1341 : 
 1342 DATA 0,171,127,252,72,248,30,133,240,15,3,224,3,131,192,3 
 1344 DATA 131,192,1,135,192,0,199,128,1,71,128,3,103,128,6,63 
 1346 DATA 0,7,255,0,7,255,0,13,127,128,13,127,128,9,63,128 
 1348 DATA 9,61,128,0,24,192,0,8,64,0,28,224,0,20,160,255 
 1349 : 
 1350 BILD 36 
 1351 : 
 1352 DATA 1,255,128,15,255,240,63,255,252,127,255,254,112,126,6,96 
 1354 DATA 60,2,224,24,3,224,60,3,240,118,7,127,227,254,63,227 
 1356 DATA 252,63,193,252,63,227,252,15,255,240,7,0,224,0,0,0 
 1358 DATA 8,0,16,12,0,48,15,0,240,3,129,192,0,255,0,255 
 1359 : 
 1360 BILD 37 
 1361 : 
 1362 DATA 0,0,0,2,128,0,10,128,0,10,0,0,42,0,0,42 
 1364 DATA 0,0,42,0,0,42,0,0,234,0,0,234,0,0,234,3 
 1366 DATA 192,234,15,192,218,60,192,246,188,0,253,176,0,255,124,3 
 1368 DATA 63,255,63,63,255,255,15,255,252,3,255,240,0,255,192,255 
 1369 : 
 9999 DATA 999

Listing. »Sprite-Bibliothek«