home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503a.d64 / producer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  10KB  |  206 lines
  1. 23500 OPEN1,8,1,"WATOR MSP,P,W"
  2. 23510 PRINT#1,CHR$(0);
  3. 23520 PRINT#1,CHR$(136);
  4. 24000 AD = 34816
  5. 24010 SU = 0:FOR I = 1 TO 8: READ A :PRINT#1,CHR$(A);:SU=SU+A:AD=AD+1:NEXT
  6. 24020 READA:IF SU<>A THENPRINT"TIPPFEHLER IN ZEILE "30000 + 10*Z:END
  7. 24030 Z=Z+1:IFAD<=36390THEN24010
  8. 24500 CLOSE1
  9. 30000 DATA  76, 165, 137, 76, 163, 140, 81, 2, 840
  10. 30010 DATA  46, 0, 0, 3, 4, 32, 120, 216, 421
  11. 30020 DATA  32, 104, 141, 32, 121, 141, 169, 128, 868
  12. 30030 DATA  162, 7, 24, 149, 17, 74, 202, 16, 651
  13. 30040 DATA  250, 169, 73, 141, 24, 3, 169, 141, 970
  14. 30050 DATA  141, 25, 3, 173, 11, 136, 141, 33, 663
  15. 30060 DATA  208, 173, 10, 136, 141, 32, 208, 169, 1077
  16. 30070 DATA  128, 141, 138, 2, 248, 169, 0, 133, 959
  17. 30080 DATA  152, 162, 1, 134, 151, 162, 19, 149, 930
  18. 30090 DATA  152, 165, 151, 149, 153, 24, 101, 151, 1046
  19. 30100 DATA  133, 151, 165, 152, 101, 152, 133, 152, 1139
  20. 30110 DATA  202, 202, 16, 235, 216, 96, 32, 121, 1120
  21. 30120 DATA  141, 32, 104, 141, 169, 71, 141, 24, 823
  22. 30130 DATA  3, 169, 254, 141, 25, 3, 88, 96, 779
  23. 30140 DATA  165, 6, 133, 4, 165, 7, 133, 5, 618
  24. 30150 DATA  169, 0, 133, 2, 133, 3, 162, 15, 617
  25. 30160 DATA  24, 102, 2, 102, 3, 102, 4, 102, 441
  26. 30170 DATA  5, 144, 13, 24, 165, 3, 101, 7, 462
  27. 30180 DATA  133, 3, 165, 2, 101, 6, 133, 2, 545
  28. 30190 DATA  202, 16, 230, 165, 4, 73, 180, 133, 1003
  29. 30200 DATA  7, 165, 3, 73, 229, 133, 6, 162, 778
  30. 30210 DATA  7, 134, 16, 169, 0, 102, 3, 102, 533
  31. 30220 DATA  4, 42, 102, 3, 102, 4, 42, 149, 448
  32. 30230 DATA  8, 202, 16, 239, 96, 166, 16, 180, 923
  33. 30240 DATA  8, 198, 16, 48, 171, 96, 104, 141, 782
  34. 30250 DATA  62, 3, 104, 141, 63, 3, 32, 94, 502
  35. 30260 DATA  136, 76, 102, 254, 41, 15, 133, 25, 782
  36. 30270 DATA  208, 3, 32, 198, 136, 32, 189, 136, 934
  37. 30280 DATA  200, 152, 41, 3, 168, 165, 25, 57, 811
  38. 30290 DATA  17, 0, 240, 244, 200, 152, 24, 10, 887
  39. 30300 DATA  133, 26, 96, 204, 4, 244, 4, 28, 739
  40. 30310 DATA  5, 68, 5, 108, 5, 148, 5, 188, 532
  41. 30320 DATA  5, 228, 5, 12, 6, 52, 6, 92, 406
  42. 30330 DATA  6, 132, 6, 172, 6, 212, 6, 252, 792
  43. 30340 DATA  6, 36, 7, 133, 107, 138, 41, 31, 499
  44. 30350 DATA  133, 108, 169, 0, 133, 109, 152, 41, 845
  45. 30360 DATA  15, 168, 10, 10, 10, 10, 10, 38, 271
  46. 30370 DATA  109, 101, 108, 166, 107, 149, 37, 149, 926
  47. 30380 DATA  57, 149, 47, 149, 67, 149, 77, 165, 860
  48. 30390 DATA  109, 105, 112, 149, 38, 105, 2, 149, 769
  49. 30400 DATA  48, 105, 2, 149, 58, 105, 2, 149, 618
  50. 30410 DATA  68, 105, 2, 149, 78, 152, 10, 168, 732
  51. 30420 DATA  185, 243, 136, 101, 108, 149, 97, 149, 1168
  52. 30430 DATA  87, 185, 244, 136, 105, 0, 149, 98, 1004
  53. 30440 DATA  105, 212, 149, 88, 96, 169, 255, 129, 1203
  54. 30450 DATA  37, 129, 47, 129, 57, 129, 67, 129, 724
  55. 30460 DATA  77, 173, 13, 136, 129, 97, 173, 12, 810
  56. 30470 DATA  136, 129, 87, 96, 129, 37, 169, 0, 783
  57. 30480 DATA  129, 57, 173, 8, 136, 129, 97, 173, 902
  58. 30490 DATA  9, 136, 129, 87, 96, 129, 47, 152, 785
  59. 30500 DATA  129, 77, 169, 0, 129, 67, 169, 255, 995
  60. 30510 DATA  129, 37, 173, 6, 136, 129, 97, 173, 880
  61. 30520 DATA  7, 136, 129, 87, 96, 32, 14, 136, 637
  62. 30530 DATA  165, 120, 74, 133, 132, 165, 121, 74, 984
  63. 30540 DATA  133, 134, 169, 0, 133, 131, 133, 133, 966
  64. 30550 DATA  169, 0, 133, 110, 133, 112, 133, 147, 937
  65. 30560 DATA  133, 148, 133, 149, 133, 150, 168, 169, 1183
  66. 30570 DATA  4, 133, 111, 169, 216, 133, 113, 162, 1041
  67. 30580 DATA  3, 169, 160, 145, 110, 173, 10, 136, 906
  68. 30590 DATA  145, 112, 136, 208, 244, 230, 111, 230, 1416
  69. 30600 DATA  113, 202, 48, 7, 208, 235, 160, 232, 1205
  70. 30610 DATA  76, 209, 137, 169, 160, 141, 0, 7, 899
  71. 30620 DATA  173, 10, 136, 141, 0, 219, 32, 223, 934
  72. 30630 DATA  139, 169, 0, 32, 19, 137, 32, 101, 629
  73. 30640 DATA  137, 32, 232, 139, 176, 243, 169, 0, 1128
  74. 30650 DATA  133, 110, 133, 111, 165, 116, 197, 110, 1075
  75. 30660 DATA  208, 9, 165, 117, 197, 111, 208, 3, 1018
  76. 30670 DATA  76, 58, 138, 32, 2, 140, 32, 112, 590
  77. 30680 DATA  136, 165, 6, 37, 123, 197, 120, 48, 832
  78. 30690 DATA  3, 56, 229, 120, 162, 0, 32, 124, 726
  79. 30700 DATA  137, 230, 110, 208, 215, 230, 111, 76, 1317
  80. 30710 DATA  12, 138, 169, 0, 133, 110, 133, 111, 806
  81. 30720 DATA  165, 118, 197, 110, 208, 9, 165, 119, 1091
  82. 30730 DATA  197, 111, 208, 3, 76, 122, 138, 32, 887
  83. 30740 DATA  2, 140, 32, 112, 136, 165, 6, 37, 630
  84. 30750 DATA  125, 197, 122, 48, 3, 56, 229, 122, 902
  85. 30760 DATA  168, 165, 7, 37, 124, 197, 121, 48, 867
  86. 30770 DATA  3, 56, 229, 121, 162, 0, 32, 141, 744
  87. 30780 DATA  137, 230, 110, 208, 203, 230, 111, 76, 1305
  88. 30790 DATA  64, 138, 160, 0, 169, 255, 153, 0, 939
  89. 30800 DATA  116, 153, 0, 117, 136, 208, 247, 76, 1053
  90. 30810 DATA  94, 136, 32, 223, 139, 169, 0, 32, 825
  91. 30820 DATA  19, 137, 169, 255, 129, 67, 161, 57, 994
  92. 30830 DATA  240, 88, 161, 37, 201, 255, 240, 82, 1304
  93. 30840 DATA  32, 46, 140, 32, 87, 140, 32, 125, 634
  94. 30850 DATA  140, 162, 0, 165, 126, 37, 127, 208, 965
  95. 30860 DATA  20, 161, 37, 197, 120, 240, 6, 24, 805
  96. 30870 DATA  105, 1, 76, 192, 138, 32, 76, 141, 761
  97. 30880 DATA  129, 37, 76, 242, 138, 32, 212, 136, 1002
  98. 30890 DATA  162, 0, 161, 37, 197, 120, 208, 21, 906
  99. 30900 DATA  169, 0, 129, 37, 32, 76, 141, 166, 750
  100. 30910 DATA  26, 32, 124, 137, 230, 116, 208, 18, 891
  101. 30920 DATA  230, 117, 76, 242, 138, 24, 105, 1, 933
  102. 30930 DATA  166, 26, 32, 124, 137, 162, 0, 32, 679
  103. 30940 DATA  101, 137, 32, 232, 139, 176, 150, 76, 1043
  104. 30950 DATA  253, 138, 76, 214, 139, 32, 223, 139, 1214
  105. 30960 DATA  169, 0, 32, 19, 137, 169, 255, 129, 910
  106. 30970 DATA  57, 161, 67, 240, 237, 161, 47, 201, 1171
  107. 30980 DATA  255, 240, 231, 32, 46, 140, 32, 87, 1063
  108. 30990 DATA  140, 165, 126, 73, 15, 240, 68, 32, 859
  109. 31000 DATA  212, 136, 166, 26, 32, 101, 137, 164, 974
  110. 31010 DATA  116, 136, 132, 116, 192, 255, 208, 2, 1157
  111. 31020 DATA  198, 117, 162, 0, 161, 47, 197, 121, 1003
  112. 31030 DATA  240, 18, 72, 32, 101, 137, 166, 26, 792
  113. 31040 DATA  160, 0, 104, 24, 105, 1, 32, 141, 567
  114. 31050 DATA  137, 76, 214, 139, 230, 118, 208, 2, 1124
  115. 31060 DATA  230, 119, 169, 0, 168, 32, 141, 137, 996
  116. 31070 DATA  32, 90, 141, 166, 26, 32, 141, 137, 765
  117. 31080 DATA  76, 214, 139, 162, 0, 161, 77, 197, 1026
  118. 31090 DATA  122, 208, 17, 32, 101, 137, 164, 118, 899
  119. 31100 DATA  136, 132, 118, 192, 255, 208, 95, 198, 1334
  120. 31110 DATA  119, 76, 214, 139, 24, 105, 1, 129, 807
  121. 31120 DATA  77, 32, 125, 140, 162, 0, 161, 47, 744
  122. 31130 DATA  197, 121, 240, 36, 24, 105, 1, 72, 796
  123. 31140 DATA  165, 127, 208, 6, 104, 129, 47, 76, 862
  124. 31150 DATA  214, 139, 32, 212, 136, 162, 0, 161, 1056
  125. 31160 DATA  77, 168, 104, 166, 26, 32, 141, 137, 851
  126. 31170 DATA  162, 0, 32, 101, 137, 76, 214, 139, 861
  127. 31180 DATA  165, 127, 240, 29, 32, 212, 136, 162, 1103
  128. 31190 DATA  0, 161, 77, 168, 169, 0, 129, 47, 751
  129. 31200 DATA  32, 90, 141, 166, 26, 32, 141, 137, 765
  130. 31210 DATA  230, 118, 208, 10, 230, 119, 76, 214, 1205
  131. 31220 DATA  139, 32, 90, 141, 129, 47, 32, 232, 842
  132. 31230 DATA  139, 144, 3, 76, 0, 139, 96, 169, 766
  133. 31240 DATA  0, 170, 168, 133, 114, 133, 115, 96, 929
  134. 31250 DATA  166, 114, 164, 115, 232, 224, 32, 208, 1255
  135. 31260 DATA  11, 162, 0, 200, 192, 16, 208, 4, 793
  136. 31270 DATA  24, 76, 253, 139, 56, 134, 114, 132, 928
  137. 31280 DATA  115, 96, 32, 112, 136, 165, 6, 41, 703
  138. 31290 DATA  31, 133, 114, 165, 7, 41, 15, 133, 639
  139. 31300 DATA  115, 166, 114, 164, 115, 169, 0, 32, 875
  140. 31310 DATA  19, 137, 161, 37, 33, 47, 201, 255, 890
  141. 31320 DATA  240, 11, 32, 232, 139, 176, 234, 32, 1096
  142. 31330 DATA  223, 139, 76, 17, 140, 96, 166, 114, 971
  143. 31340 DATA  164, 115, 232, 169, 2, 32, 19, 137, 870
  144. 31350 DATA  166, 114, 164, 115, 136, 169, 4, 32, 900
  145. 31360 DATA  19, 137, 166, 114, 164, 115, 200, 169, 1084
  146. 31370 DATA  6, 32, 19, 137, 166, 114, 164, 115, 753
  147. 31380 DATA  202, 169, 8, 32, 19, 137, 96, 169, 832
  148. 31390 DATA  0, 133, 126, 24, 162, 8, 161, 37, 651
  149. 31400 DATA  105, 1, 38, 126, 162, 6, 161, 37, 636
  150. 31410 DATA  105, 1, 38, 126, 162, 4, 161, 37, 634
  151. 31420 DATA  105, 1, 38, 126, 162, 2, 161, 37, 632
  152. 31430 DATA  105, 1, 38, 126, 96, 169, 0, 133, 668
  153. 31440 DATA  127, 24, 162, 8, 161, 47, 105, 1, 635
  154. 31450 DATA  38, 127, 162, 6, 161, 47, 105, 1, 647
  155. 31460 DATA  38, 127, 162, 4, 161, 47, 105, 1, 645
  156. 31470 DATA  38, 127, 162, 2, 161, 47, 105, 1, 643
  157. 31480 DATA  38, 127, 96, 32, 14, 136, 162, 0, 605
  158. 31490 DATA  160, 0, 132, 128, 134, 129, 132, 130, 945
  159. 31500 DATA  32, 138, 138, 248, 24, 165, 147, 105, 997
  160. 31510 DATA  1, 133, 147, 133, 140, 165, 148, 105, 972
  161. 31520 DATA  0, 133, 148, 133, 141, 165, 149, 105, 974
  162. 31530 DATA  0, 133, 149, 133, 142, 165, 150, 105, 977
  163. 31540 DATA  0, 133, 150, 133, 143, 169, 6, 133, 867
  164. 31550 DATA  145, 169, 53, 133, 110, 133, 112, 169, 1024
  165. 31560 DATA  4, 133, 111, 169, 216, 133, 113, 162, 1041
  166. 31570 DATA  3, 32, 197, 141, 166, 116, 164, 117, 936
  167. 31580 DATA  32, 1, 142, 173, 9, 136, 133, 145, 771
  168. 31590 DATA  169, 195, 133, 110, 133, 112, 169, 7, 1028
  169. 31600 DATA  133, 111, 169, 219, 133, 113, 162, 1, 1041
  170. 31610 DATA  32, 197, 141, 166, 118, 164, 119, 32, 969
  171. 31620 DATA  1, 142, 173, 7, 136, 133, 145, 169, 906
  172. 31630 DATA  224, 133, 110, 133, 112, 162, 1, 32, 907
  173. 31640 DATA  197, 141, 216, 165, 128, 208, 28, 165, 1248
  174. 31650 DATA  118, 5, 119, 208, 6, 169, 1, 133, 759
  175. 31660 DATA  128, 208, 16, 166, 129, 164, 130, 232, 1173
  176. 31670 DATA  208, 1, 200, 224, 255, 208, 7, 192, 1295
  177. 31680 DATA  255, 208, 3, 76, 94, 136, 76, 172, 1020
  178. 31690 DATA  140, 230, 128, 64, 165, 131, 24, 105, 987
  179. 31700 DATA  1, 197, 132, 48, 2, 169, 0, 133, 682
  180. 31710 DATA  131, 96, 165, 133, 24, 105, 1, 197, 852
  181. 31720 DATA  134, 48, 2, 169, 0, 133, 133, 96, 715
  182. 31730 DATA  160, 2, 185, 0, 0, 190, 0, 143, 680
  183. 31740 DATA  153, 0, 143, 150, 0, 200, 208, 242, 1096
  184. 31750 DATA  96, 160, 0, 132, 110, 132, 112, 132, 874
  185. 31760 DATA  135, 132, 137, 169, 3, 133, 107, 169, 985
  186. 31770 DATA  4, 133, 111, 169, 216, 133, 113, 169, 1048
  187. 31780 DATA  122, 133, 136, 169, 126, 133, 138, 136, 1093
  188. 31790 DATA  177, 110, 170, 177, 135, 145, 110, 138, 1162
  189. 31800 DATA  145, 135, 177, 112, 170, 177, 137, 145, 1198
  190. 31810 DATA  112, 138, 145, 137, 136, 192, 255, 208, 1323
  191. 31820 DATA  231, 230, 111, 230, 113, 230, 136, 230, 1511
  192. 31830 DATA  138, 198, 107, 48, 7, 208, 217, 160, 1083
  193. 31840 DATA  232, 76, 152, 141, 96, 160, 0, 230, 1087
  194. 31850 DATA  146, 181, 140, 32, 240, 141, 202, 16, 1098
  195. 31860 DATA  248, 96, 240, 15, 72, 169, 0, 133, 973
  196. 31870 DATA  146, 104, 9, 48, 145, 110, 165, 145, 872
  197. 31880 DATA  145, 112, 96, 165, 146, 240, 243, 169, 1316
  198. 31890 DATA  0, 145, 112, 169, 160, 145, 110, 96, 937
  199. 31900 DATA  72, 74, 74, 74, 74, 32, 210, 141, 751
  200. 31910 DATA  200, 104, 41, 15, 32, 210, 141, 200, 943
  201. 31920 DATA  96, 134, 151, 132, 152, 169, 0, 133, 967
  202. 31930 DATA  140, 133, 141, 162, 19, 70, 152, 102, 919
  203. 31940 DATA  151, 144, 13, 24, 181, 153, 101, 140, 907
  204. 31950 DATA  133, 140, 181, 152, 101, 141, 133, 141, 1122
  205. 31960 DATA  202, 202, 16, 233, 96, 84, 90, 72, 995
  206.