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