home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / tool-kit_kunz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  10KB  |  308 lines
  1. 10 REM  *****************************
  2. 20 REM
  3. 30 REM     TOOL-KIT FUER  C= 64
  4. 40 REM
  5. 50 REM     (C)  HERBERT KUNZ
  6. 60 REM          FIMBERGSTR. 28
  7. 70 REM
  8. 80 REM          3163 SEHNDE 1
  9. 90 REM
  10. 98 REM  *****************************
  11. 99 REM
  12. 100 REM   *****   BLOCK 1   *****
  13. 101 DATA32,32,32,32,32,32,32,32,32,32
  14. 102 DATA32,42,42,42,32,84,79,79,76,45
  15. 103 DATA75,73,84,32,42,42,42,13,32,32
  16. 104 DATA32,32,32,32,32,32,32,32,32,40
  17. 105 DATA67,41,32,72,46,32,75,85,78,90
  18. 106 DATA32,49,57,56,52,32,32,84,82,65
  19. 107 DATA67,69,35,68,85,77,80,35,35,79
  20. 108 DATA70,70,35,35,35,70,73,78,68,35
  21. 109 DATA35,82,69,78,85,77,35,65,85,164
  22. 110 DATA35,35,35,75,73,76,76,35,0,193
  23. 111 DATA58,194,11,193,146,195,123,197
  24. 112 DATA250,194,109,196,32,68,229,162
  25. 113 DATA255,232,189,16,192,32,210,255
  26. 114 DATA224,55,208,245,169,155,141,8
  27. 115 DATA3,169,192,141,9,3,96,32,115
  28. 116 DATA0,201,33,240,6,32,121,0,76,231
  29. 117 DATA167,169,73,133,80,169,192,133
  30. 118 DATA81,160,0,140,7,192,76,98,200
  31. 119 DATA209,80,240,17,170,152,24,105
  32. 120 DATA6,201,42,240,20,238,7,192,168
  33. 121 DATA138,76,184,192,200,177,80,201
  34. 122 DATA35,240,10,32,115,0,209,80,240
  35. 123 DATA242,76,8,175,173,7,192,10,170
  36. 124 DATA189,114,192,141,241,192,232
  37. 125 DATA189,114,192,141,242,192,32,146
  38. 126 DATA195,76,132,195,234,234,234,234
  39. 127 DATA234,234,234,234,234,234,169
  40. 128 DATA22,141,8,3,169,193,141,9,3,96
  41. 129 DATA169,155,141,8,3,169,192,141
  42. 130 DATA9,3,96,165,157,240,3,76,155
  43. 131 DATA192,165,122,141,0,192,165,123
  44. 132 DATA141,1
  45. 133 S=0:FORI= 49168 TO 49445 :READD
  46. 134 POKE I,D:S=S+D:NEXT
  47. 135 IFS<>29085THENPRINT"FEHLER IN BL. 1":STOP
  48. 200 REM   *****   BLOCK 2   *****
  49. 201 DATA192,165,211,141,2,192,165,214
  50. 202 DATA141,3,192,32,135,234,165,203
  51. 203 DATA201,3,208,20,32,135,234,165
  52. 204 DATA203,201,64,208,247,169,0,141
  53. 205 DATA232,7,32,121,193,76,95,193,201
  54. 206 DATA4,208,5,169,1,141,232,7,173
  55. 207 DATA232,7,240,213,32,121,193,173
  56. 208 DATA0,192,133,122,173,1,192,133
  57. 209 DATA123,173,2,192,133,211,173,3
  58. 210 DATA192,133,214,32,108,229,76,155
  59. 211 DATA192,169,0,133,15,165,57,133
  60. 212 DATA20,133,99,165,58,133,21,133
  61. 213 DATA98,32,19,166,169,80,141,4,192
  62. 214 DATA32,102,229,169,32,32,210,255
  63. 215 DATA206,4,192,173,4,192,208,243
  64. 216 DATA32,102,229,32,209,189,160,3
  65. 217 DATA169,32,132,73,32,210,255,164
  66. 218 DATA73,177,95,201,34,208,6,165,15
  67. 219 DATA73,255,133,15,200,132,73,177
  68. 220 DATA95,208,1,96,201,255,240,227
  69. 221 DATA36,15,48,223,165,73,56,233,1
  70. 222 DATA24,101,95,141,5,192,176,8,165
  71. 223 DATA96,141,6,192,76,235,193,165
  72. 224 DATA96,24,105,1,141,6,192,173,5
  73. 225 DATA192,205,0,192,208,13,173,6,192
  74. 226 DATA205,1,192,208,5,169,18,32,210
  75. 227 DATA255,164,73,177,95,16,38,56,233
  76. 228 DATA127,170,160,255,202,240,8,200
  77. 229 DATA185,158,160,16,250,48,245,200
  78. 230 DATA185,158,160,48,5,32,210,255
  79. 231 DATA208,245,41,127,32,210,255,169
  80. 232 DATA146,76,173,193,165,15,240,5
  81. 233 DATA177,95,76,36,194,177,95,76,173
  82. 234 DATA193,165,45
  83. 235 S=0:FORI= 49446 TO 49723 :READD
  84. 236 POKE I,D:S=S+D:NEXT
  85. 237 IFS<>35613THENPRINT"FEHLER IN BL. 2":STOP
  86. 300 REM   *****   BLOCK 3   *****
  87. 301 DATA164,46,133,20,132,21,196,48
  88. 302 DATA208,2,197,47,176,24,105,2,144
  89. 303 DATA1,200,133,34,132,35,32,128,194
  90. 304 DATA32,180,194,138,16,7,32,189,194
  91. 305 DATA76,111,194,96,152,48,6,32,205
  92. 306 DATA194,76,111,194,32,214,194,169
  93. 307 DATA13,32,145,200,165,20,164,21
  94. 308 DATA24,105,7,144,193,200,176,190
  95. 309 DATA160,0,177,20,170,41,127,32,210
  96. 310 DATA255,200,177,20,168,41,127,240
  97. 311 DATA3,32,210,255,138,16,17,152,48
  98. 312 DATA10,169,64,32,210,255,104,104
  99. 313 DATA76,111,194,169,37,208,78,152
  100. 314 DATA16,4,169,36,208,71,96,32,210
  101. 315 DATA255,169,32,32,210,255,169,61
  102. 316 DATA208,58,160,0,177,34,170,200
  103. 317 DATA177,34,168,138,32,149,179,76
  104. 318 DATA208,194,32,166,187,32,221,189
  105. 319 DATA76,30,171,32,245,194,160,2,177
  106. 320 DATA34,133,37,136,177,34,133,36
  107. 321 DATA136,177,34,133,38,240,10,177
  108. 322 DATA36,32,210,255,200,196,38,208
  109. 323 DATA246,169,34,76,210,255,32,115
  110. 324 DATA0,32,235,183,142,235,7,165,20
  111. 325 DATA166,21,141,233,7,142,234,7,120
  112. 326 DATA169,26,162,195,141,20,3,142
  113. 327 DATA21,3,88,96,173,138,2,141,10
  114. 328 DATA192,169,64,141,138,2,32,135
  115. 329 DATA234,173,141,2,201,2,240,9,169
  116. 330 DATA0,234,141,138,2,76,49,234,165
  117. 331 DATA203,201,3,240,7,201,4,240,38
  118. 332 DATA76,47,195,32,122,195,173,234
  119. 333 DATA7,174,233,7,32,205,189,169
  120. 334 S=0:FORI= 49724 TO 50001 :READD
  121. 335 POKE I,D:S=S+D:NEXT
  122. 336 IFS<>32656THENPRINT"FEHLER IN BL. 3":STOP
  123. 400 REM   *****   BLOCK 4   *****
  124. 401 DATA29,32,210,255,173,233,7,24,109
  125. 402 DATA235,7,141,233,7,144,3,238,234
  126. 403 DATA7,76,47,195,32,122,195,120,169
  127. 404 DATA49,162,234,141,20,3,142,21,3
  128. 405 DATA88,76,47,195,32,135,234,165
  129. 406 DATA203,201,64,208,247,96,169,2
  130. 407 DATA56,237,7,192,144,3,32,115,0
  131. 408 DATA76,174,167,32,115,0,240,125
  132. 409 DATA201,34,240,17,162,0,142,3,192
  133. 410 DATA157,0,207,32,115,0,240,35,232
  134. 411 DATA76,160,195,160,1,140,3,192,162
  135. 412 DATA255,177,122,201,34,240,8,200
  136. 413 DATA232,157,0,207,76,179,195,32
  137. 414 DATA115,0,201,34,208,249,76,163
  138. 415 DATA195,232,169,0,157,0,207,160
  139. 416 DATA0,177,43,141,0,192,200,177,43
  140. 417 DATA141,1,192,165,43,133,95,165
  141. 418 DATA44,133,96,76,96,196,173,3,192
  142. 419 DATA141,2,192,160,0,177,95,141,0
  143. 420 DATA192,200,177,95,141,1,192,173
  144. 421 DATA0,192,133,95,173,1,192,133,96
  145. 422 DATA32,208,248,160,0,177,95,208
  146. 423 DATA6,200,177,95,208,1,96,160,3
  147. 424 DATA162,0,200,177,95,240,203,201
  148. 425 DATA34,208,8,169,1,77,2,192,141
  149. 426 DATA2,192,173,2,192,208,232,177
  150. 427 DATA95,221,0,207,208,225,232,189
  151. 428 DATA0,207,240,3,76,25,196,160,0
  152. 429 DATA132,15,200,200,177,95,133,20
  153. 430 DATA133,99,200,177,95,133,21,133
  154. 431 DATA98,169,13,32,210,255,32,19,166
  155. 432 DATA32,164,193,76,233,195,173,3
  156. 433 DATA192,141,2,192,76,6,196,234
  157. 434 S=0:FORI= 50002 TO 50281 :READD
  158. 435 POKE I,D:S=S+D:NEXT
  159. 436 IFS<>34230THENPRINT"FEHLER IN BL. 4":STOP
  160. 500 REM   *****   BLOCK 5   *****
  161. 501 DATA76,8,175,32,115,0,240,248,201
  162. 502 DATA171,208,19,160,2,177,43,141
  163. 503 DATA0,192,200,177,43,141,1,192,32
  164. 504 DATA115,0,76,159,196,32,107,169
  165. 505 DATA166,20,142,0,192,166,21,142
  166. 506 DATA1,192,201,171,208,208,32,115
  167. 507 DATA0,240,16,32,107,169,165,20,141
  168. 508 DATA2,192,165,21,141,3,192,76,183
  169. 509 DATA196,169,254,141,2,192,141,3
  170. 510 DATA192,173,3,192,56,237,1,192,144
  171. 511 DATA170,208,11,173,2,192,56,237
  172. 512 DATA0,192,144,159,240,157,173,0
  173. 513 DATA192,133,20,173,1,192,133,21
  174. 514 DATA32,19,166,144,142,169,233,141
  175. 515 DATA2,3,169,196,141,3,3,76,10,197
  176. 516 DATA173,3,192,56,237,1,192,144,11
  177. 517 DATA208,22,173,2,192,56,237,0,192
  178. 518 DATA176,13,169,131,162,164,141,2
  179. 519 DATA3,142,3,3,76,134,227,173,0,192
  180. 520 DATA133,20,173,1,192,133,21,32,19
  181. 521 DATA166,160,0,177,95,133,247,200
  182. 522 DATA177,95,133,248,177,247,208,8
  183. 523 DATA169,255,141,1,192,76,59,197
  184. 524 DATA160,2,177,247,141,0,192,200
  185. 525 DATA177,247,141,1,192,32,135,234
  186. 526 DATA165,203,201,3,240,185,160,2
  187. 527 DATA177,95,133,99,200,177,95,133
  188. 528 DATA98,162,144,56,32,73,188,32,223
  189. 529 DATA189,32,135,180,32,166,182,170
  190. 530 DATA160,0,232,202,240,10,177,34
  191. 531 DATA153,0,2,200,201,13,208,243,169
  192. 532 DATA0,153,0,2,162,255,160,1,76,134
  193. 533 DATA164
  194. 534 S=0:FORI= 50282 TO 50554 :READD
  195. 535 POKE I,D:S=S+D:NEXT
  196. 536 IFS<>33081THENPRINT"FEHLER IN BL. 5":STOP
  197. 600 REM   *****   BLOCK 6   *****
  198. 601 DATA32,115,0,240,64,32,107,169,165
  199. 602 DATA20,166,21,133,61,134,62,32,253
  200. 603 DATA174,32,107,169,165,20,166,21
  201. 604 DATA133,63,134,64,160,0,169,44,209
  202. 605 DATA122,208,17,32,253,174,32,107
  203. 606 DATA169,165,20,166,21,133,65,134
  204. 607 DATA66,76,207,197,160,2,177,43,133
  205. 608 DATA65,200,177,43,133,66,76,220
  206. 609 DATA197,169,10,133,61,133,63,169
  207. 610 DATA0,133,62,133,64,76,178,197,165
  208. 611 DATA61,197,65,165,62,229,66,176
  209. 612 DATA3,76,113,199,32,117,199,160
  210. 613 DATA1,177,67,240,56,169,255,133
  211. 614 DATA20,133,21,32,50,199,32,142,166
  212. 615 DATA76,41,198,160,0,177,67,170,200
  213. 616 DATA177,67,240,31,72,200,165,61
  214. 617 DATA145,67,200,165,62,145,67,134
  215. 618 DATA67,104,133,68,165,61,24,101
  216. 619 DATA63,133,61,165,62,101,64,133
  217. 620 DATA62,144,215,32,96,166,76,134
  218. 621 DATA227,230,122,208,2,230,123,160
  219. 622 DATA0,177,122,208,19,160,2,177,122
  220. 623 DATA240,191,165,122,24,105,5,133
  221. 624 DATA122,144,235,230,123,176,231
  222. 625 DATA201,34,208,11,32,115,0,201,0
  223. 626 DATA240,226,201,34,208,245,201,137
  224. 627 DATA240,23,201,141,240,19,201,167
  225. 628 DATA240,15,201,138,240,11,201,203
  226. 629 DATA208,190,32,115,0,201,164,208
  227. 630 DATA191,32,115,0,176,186,132,20
  228. 631 DATA132,21,233,47,144,51,170,165
  229. 632 DATA21,133,34,201,25,176,237,165
  230. 633 DATA20,10,38,34,10,38
  231. 634 S=0:FORI= 50555 TO 50824 :READD
  232. 635 POKE I,D:S=S+D:NEXT
  233. 636 IFS<>32153THENPRINT"FEHLER IN BL. 6":STOP
  234. 700 REM   *****   BLOCK 7   *****
  235. 701 DATA34,101,20,133,20,165,34,101
  236. 702 DATA21,133,21,6,20,38,21,138,101
  237. 703 DATA20,133,20,144,2,230,21,200,177
  238. 704 DATA122,201,32,240,249,201,58,144
  239. 705 DATA201,165,20,197,65,165,21,229
  240. 706 DATA66,144,62,132,206,32,50,199
  241. 707 DATA56,162,144,32,73,188,32,221
  242. 708 DATA189,160,255,200,185,1,1,208
  243. 709 DATA250,165,122,133,95,165,123,133
  244. 710 DATA96,56,152,229,206,48,28,240
  245. 711 DATA54,133,206,165,45,133,90,24
  246. 712 DATA101,206,133,88,165,46,133,91
  247. 713 DATA105,0,133,89,32,184,163,240
  248. 714 DATA30,144,48,73,255,168,200,162
  249. 715 DATA0,165,95,197,45,165,96,229,46
  250. 716 DATA176,12,177,95,129,95,230,95
  251. 717 DATA208,238,230,96,208,234,160,0
  252. 718 DATA185,1,1,240,5,145,122,200,208
  253. 719 DATA246,32,117,199,32,115,0,144
  254. 720 DATA251,160,0,201,44,208,2,169,137
  255. 721 DATA170,76,45,198,165,61,166,62
  256. 722 DATA133,99,134,98,165,67,166,68
  257. 723 DATA133,34,134,35,160,2,177,34,197
  258. 724 DATA20,200,177,34,229,21,176,37
  259. 725 DATA160,0,177,34,170,200,177,34
  260. 726 DATA134,34,133,35,177,34,240,21
  261. 727 DATA165,99,101,63,133,99,165,98
  262. 728 DATA101,64,133,98,176,4,201,250
  263. 729 DATA144,209,76,72,178,96,32,51,165
  264. 730 DATA24,165,34,105,2,133,45,165,35
  265. 731 DATA105,0,133,46,165,65,166,66,133
  266. 732 DATA20,134,21,32,19,166,165,95,133
  267. 733 DATA67,134,68,96
  268. 734 S=0:FORI= 50825 TO 51094 :READD
  269. 735 POKE I,D:S=S+D:NEXT
  270. 736 IFS<>31170THENPRINT"FEHLER IN BL. 7":STOP
  271. 800 REM   *****   BLOCK 8   *****
  272. 801 DATA169,179,141,0,3,169,199,141
  273. 802 DATA1,3,169,37,141,6,3,169,200,141
  274. 803 DATA7,3,76,128,192,138,16,3,76,116
  275. 804 DATA164,234,138,10,170,189,38,163
  276. 805 DATA133,34,189,39,163,133,35,32
  277. 806 DATA204,255,169,0,133,19,32,215
  278. 807 DATA170,32,69,171,160,0,177,34,72
  279. 808 DATA41,127,32,71,171,200,104,16
  280. 809 DATA244,32,122,166,169,105,160,163
  281. 810 DATA32,30,171,164,58,200,240,3,32
  282. 811 DATA194,189,169,118,160,163,32,30
  283. 812 DATA171,165,157,240,8,169,128,32
  284. 813 DATA144,255,76,128,164,165,57,166
  285. 814 DATA58,133,20,133,99,134,21,134
  286. 815 DATA98,32,19,166,169,0,133,15,32
  287. 816 DATA164,193,169,13,32,210,255,76
  288. 817 DATA255,199,141,15,192,140,14,192
  289. 818 DATA165,145,141,9,192,32,135,234
  290. 819 DATA165,203,201,3,240,14,172,14
  291. 820 DATA192,173,9,192,133,145,173,15
  292. 821 DATA192,76,26,167,32,135,234,165
  293. 822 DATA203,201,4,240,10,201,60,208
  294. 823 DATA243,169,0,133,198,240,223,169
  295. 824 DATA13,32,210,255,76,128,164,32
  296. 825 DATA115,0,201,147,240,3,76,184,192
  297. 826 DATA164,46,165,45,56,233,2,176,1
  298. 827 DATA136,140,1,192,141,0,192,169
  299. 828 DATA0,133,10,32,115,0,32,212,225
  300. 829 DATA165,10,174,0,192,172,1,192,76
  301. 830 DATA117,225,32,210,255,76,208,248
  302. 831 S=0:FORI= 51100 TO 51350 :READD
  303. 832 POKE I,D:S=S+D:NEXT
  304. 833 IFS<>29856THENPRINT"FEHLER IN BL.8":STOP
  305. 840 :
  306. 845 :
  307. 850 SYS51100:REM TOOL-KIT AKTIVIEREN
  308.