home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 5
/
64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64
/
sprite-biblio.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
11KB
|
345 lines
100 poke 650,128
102 gosub 900
105 goto 500
110 print"[153][147] datenkorrektur "
112 w=0:poke53280,11:poke53281,11
115 print""
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)"[157][157][157][157][157][157][157][157]";:forx=1to8step2:goto155
142 xx$="":next:print" ":next:goto165
144 print""
145 for zb=0 to 20
146 for za=0 to 2
147 zc=zb*3+za
148 printtab(za*10+4);:inputda$:print"[145]";
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" [157][157][157][157]";xy;"[157]";:poke832+zc,xy
152 if left$(da$,1)="\"then110
153 if left$(da$,1)="^"then500
154 goto164
155 ifmid$(xx$,x,2)="xx"thenprint"[158]xx";
156 ifmid$(xx$,x,2)="x."thenprint"x.";
157 ifmid$(xx$,x,2)=".x"thenprint".x";
158 ifmid$(xx$,x,2)=".."thenprint"[146][152]..";
159 print"[146][144]";:next:goto142
164 xy=0 :next:print"";:next
165 print
180 print" korrigieren ? (j/n) / speichern (s)";
200 get k$:if k$=""then 200
210 print""
211 print" \ home [146] ^ menue [146] ";
220 if k$="j"then w=0:goto 144
230 if k$="s"then 260
240 if k$="n"then 500
260 print"[147]"
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"[157] ":next:print"run"
380 for aa=0 to 4:poke 631+aa,13:next
400 poke 198,5
420 print""
499 end
500 print"[147][153]"
530 print" cr weiter "
531 print"f1 bild[146] f3 sprite[146] f5 multi 1[146] f7 multi 2"
532 print"f2 art [146] f4 x-expd[146] f6 y-expd [146] 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$="[133]" then ha=32
601 if k$="[134]" then ha=39:hp=8
602 if k$="[135]" then ha=37:hp=18
603 if k$="[136]" 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$="[137]" then ha=28:mc=notmc
621 if k$="[138]" then ha=29
622 if k$="[139]" then ha=23
623 if k$="[140]" 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