home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh37d.d64 / sprite-biblio. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.