home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / smon.teil1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  161 lines
  1. 10 rem **************************
  2. 20 rem *                        *
  3. 30 rem *      smon teil 1       *
  4. 40 rem * von n.mann & d.weineck *
  5. 50 rem *     fleetrade 40       *
  6. 60 rem *     2800 bremen        *
  7. 70 rem *   tel. 0421 / 493090   *
  8. 80 rem *                        *
  9. 90 rem **************************
  10. 100 fori=0to8:reada:pr(i)=a:next
  11. 110 sa=49152:i=0
  12. 120 pa=sa+256*i:ch=0
  13. 130 forj=0to255:reada:pokepa+j,a:ch=ch+a:next
  14. 140 ifch<>pr(i)then190
  15. 150 i=i+1:ifi<8then120
  16. 160 pa=pa+256:ch=0
  17. 170 forj=0to60:reada:pokepa+j,a:ch=ch+a:next
  18. 180 ifch=pr(i)thenend
  19. 190 print"fehler in block"i+1:end
  20. 191 rem
  21. 192 rem *** blockpruefsummen ***
  22. 195 data20921,25604,31944,33700,36302,34378,34305,34639,7819
  23. 200 rem
  24. 210 rem *** block 1 ***
  25. 220 rem
  26. 230 data169,20,141,22,3,169,194,141,23,3,0,39,35,36,37,44,58,59,61,63,65,66
  27. 240 data67,68,70,71,73,75,76,77,79,80,82,83,84,86,87,88,0,0,0,0,0,218,202,45
  28. 250 data201,7,201,27,201,251,198,28,196,181,195,244,202,153,200,208,198,107
  29. 260 data201,60,202,92,197,16,203,226,195,67,200,182,202,77,200,248,195,192
  30. 270 data201,60,200,133,195,77,200,240,203,66,202,210,201,109,195,0,0,0,0,0
  31. 280 data0,0,0,0,0,255,255,1,0,65,90,73,82,84,128,32,64,16,0,2,1,1,2,0,145,145
  32. 290 data13,83,217,49,55,50,13,0,125,76,125,201,13,13,32,32,80,67,32,32,83,82
  33. 300 data32,65,67,32,88,82,32,89,82,32,83,80,32,32,78,86,45,66,68,73,90,67,0
  34. 310 data2,4,1,44,0,44,89,41,88,157,31,255,28,28,31,31,31,28,223,28,31,223,255
  35. 320 data255,3,31,128,9,32,12,4,16,1,17,20,150,28,25,148,190,108,3,19,1,2,2
  36. 330 data3,3,2,2,2,2,2,2,3,3,2,3,3,3,2,0,64,64,128,128,32,16,37,38,33,34,129
  37. 340 data130,33,130,132,8,8,231,231,231,231
  38. 350 rem
  39. 360 rem *** block 2 ***
  40. 370 rem
  41. 380 data227,227,227,227,227,227,227,227,227,227,231,167,231,231,243,243,247
  42. 390 data223,38,70,6,102,65,129,225,1,160,162,161,193,33,97,132,134,230,198
  43. 400 data224,192,36,76,32,144,176,240,48,208,16,80,112,120,0,24,216,88,184,202
  44. 410 data136,232,200,234,72,8,104,40,64,96,170,168,186,138,154,152,56,248,137
  45. 420 data156,158,178,42,74,10,106,79,35,147,179,243,51,211,19,83,115,82,76,65
  46. 430 data82,69,83,83,79,76,76,76,67,65,65,83,83,73,68,67,67,66,74,74,66,66,66
  47. 440 data66,66,66,66,66,83,66,67,67,67,67,68,68,73,73,78,80,80,80,80,82,82,84
  48. 450 data84,84,84,84,84,83,83,79,83,83,79,79,84,66,82,68,68,68,77,78,68,84,84
  49. 460 data78,69,80,80,73,77,83,67,67,69,77,78,80,86,86,69,82,76,76,76,76,69,69
  50. 470 data78,78,79,72,72,76,76,84,84,65,65,83,88,88,89,69,69,76,82,76,82,82,65
  51. 480 data67,65,89,88,65,80,68,67,89,88,67,67,88,89,84,80,82,67,83,81,73,69,76
  52. 490 data67,83,73,75,67,68,73,86,88,89,88,89,80,65,80,65,80,73,83,88,89,88,65
  53. 500 rem
  54. 510 rem *** block 3 ***
  55. 520 rem
  56. 530 data83,65,67,68,8,132,129,34,33,38,32,128,3,32,28,20,20,16,4,12,216,169
  57. 540 data8,141,176,2,169,4,141,175,2,169,6,141,32,208,141,33,208,169,3,141,134
  58. 550 data2,162,5,104,157,168,2,202,16,249,173,169,2,208,3,206,168,2,206,169
  59. 560 data2,186,142,174,2,169,82,76,255,194,32,194,194,240,11,32,126,194,141
  60. 570 data169,2,165,252,141,168,2,96,162,164,32,128,194,32,128,194,208,28,32
  61. 580 data126,194,169,254,133,253,169,255,133,254,32,194,194,208,12,141,119,2
  62. 590 data230,198,96,32,126,194,44,162,251,32,141,194,149,1,32,154,194,149,0
  63. 600 data232,232,96,32,202,194,201,32,240,249,201,44,240,245,208,3,32,202,194
  64. 610 data32,175,194,10,10,10,10,133,180,32,202,194,32,175,194,5,180,96,201,58
  65. 620 data144,2,105,8,41,15,96,32,202,194,201,32,240,249,198,211,96,32,207,255
  66. 630 data198,211,201,13,96,32,207,255,201,13,208,248,169,63,32,210,255,174,174
  67. 640 data2,154,162,0,134,198,32,81,195,161,209,201,39,240,17,201,58,240,13,201
  68. 650 data59,240,9,201,44,240,5,169,46,32,210,255,32,202,194,201,46,240,249,133
  69. 660 rem
  70. 670 rem *** block 4 ***
  71. 680 rem
  72. 690 data172,41,127,162,32,221,10,192,240,5,202,208,248,240,194,32,21,195,76
  73. 700 data214,194,138,10,170,232,189,41,192,72,202,189,41,192,72,96,165,252,32
  74. 710 data42,195,165,251,72,74,74,74,74,32,53,195,104,41,15,201,10,144,2,105
  75. 720 data6,105,48,76,210,255,169,13,32,210,255,138,76,210,255,32,76,195,169
  76. 730 data32,76,210,255,169,13,76,210,255,133,187,132,188,160,0,177,187,240,6
  77. 740 data32,210,255,200,208,246,96,230,251,208,2,230,252,96,169,14,141,134,2
  78. 750 data141,32,208,169,6,141,33,208,169,55,133,1,174,174,2,154,76,116,164,160
  79. 760 data192,169,140,32,86,195,162,59,32,64,195,173,168,2,133,252,173,169,2
  80. 770 data133,251,32,35,195,32,76,195,162,251,189,175,1,32,42,195,32,76,195,232
  81. 780 data208,244,173,170,2,76,208,195,32,78,194,162,251,32,202,194,32,154,194
  82. 790 data157,175,1,232,208,244,32,76,195,189,170,2,76,208,195,133,170,169,32
  83. 800 data160,9,32,210,255,6,170,169,48,105,0,136,208,244,96,32,73,194,174,174
  84. 810 data2,154,162,250,189,174,1,72,232,208,249,104,168,104,170,104,64,32,100
  85. 820 data194,162,58,32,64
  86. 830 rem
  87. 840 rem *** block 5 ***
  88. 850 rem
  89. 860 data195,32,35,195,160,32,162,0,32,76,195,161,251,32,42,195,161,251,32,57
  90. 870 data196,208,241,32,93,196,144,224,96,32,126,194,160,32,162,0,32,202,194
  91. 880 data32,154,194,129,251,193,251,240,3,76,209,194,32,57,196,208,236,96,201
  92. 890 data32,144,12,201,96,144,10,201,192,144,4,201,219,144,4,169,46,41,63,41
  93. 900 data127,145,209,173,134,2,145,243,32,103,195,200,192,40,96,32,111,196,76
  94. 910 data102,196,32,103,195,165,251,197,253,165,252,229,254,96,32,148,196,32
  95. 920 data134,196,240,14,32,134,196,240,251,201,32,208,5,141,119,2,230,198,96
  96. 930 data32,228,255,72,32,225,255,240,2,104,96,76,214,194,160,40,36,172,16,246
  97. 940 data132,200,132,208,169,255,32,195,255,169,255,133,184,133,185,173,175
  98. 950 data2,133,186,32,192,255,162,0,134,211,202,32,201,255,32,207,255,32,210
  99. 960 data255,201,13,208,246,32,204,255,169,145,76,210,255,160,0,177,251,36,170
  100. 970 data48,2,80,12,162,31,221,60,193,240,47,202,224,21,208,246,162,4,221,73
  101. 980 data193,240,33,221,77,193,240,30,202,208,243,162,56,221,17,193,240,20,202
  102. 990 data224,22,208,246,177,251,61,251
  103. 1000 rem
  104. 1010 rem *** block 6 ***
  105. 1020 rem
  106. 1030 data192,93,17,193,240,5,202,208,243,162,0,134,173,138,240,15,162,17,177
  107. 1040 data251,61,181,192,93,198,192,240,3,202,208,243,189,234,192,133,171,189
  108. 1050 data216,192,133,182,166,173,96,160,1,177,251,170,200,177,251,160,16,196
  109. 1060 data171,208,7,32,74,197,160,3,208,2,164,182,142,174,0,141,175,0,96,160
  110. 1070 data1,177,251,16,1,136,56,101,251,170,232,240,1,136,152,101,252,96,162
  111. 1080 data0,134,170,32,100,194,32,140,197,165,173,201,22,240,12,201,47,240,8
  112. 1090 data201,33,240,4,201,48,208,13,32,81,195,162,35,169,45,32,210,255,202,208
  113. 1100 data250,32,93,196,144,217,96,162,44,32,64,195,32,35,195,32,76,195,32,117
  114. 1110 data198,32,203,196,32,76,195,177,251,32,42,195,32,76,195,200,196,182,208
  115. 1120 data243,169,3,56,229,182,170,240,9,32,73,195,32,76,195,202,208,247,169
  116. 1130 data32,32,210,255,160,0,166,173,208,17,162,3,169,42,32,210,255,202,208
  117. 1140 data248,36,170,48,133,76,106,198,36,170,80,41,169,8,36,171,240,35,177,251
  118. 1150 data41,252,133,173,200,177,251,10,168,185,60,3,141,174,0,200,185,60,3,141
  119. 1160 data175,0,32,190,198,164
  120. 1170 rem
  121. 1180 rem *** block 7 ***
  122. 1190 rem
  123. 1200 data182,32,147,198,32,203,196,189,91,193,32,210,255,189,147,193,32,210
  124. 1210 data255,189,203,193,32,210,255,169,32,36,171,240,3,32,73,195,162,32,169
  125. 1220 data4,36,171,240,2,162,40,138,32,210,255,36,171,80,5,169,35,32,210,255
  126. 1230 data32,44,197,136,240,22,169,8,36,171,240,7,169,77,32,210,255,160,1,185
  127. 1240 data173,0,32,42,195,136,208,247,160,3,185,172,192,36,171,240,9,185,175
  128. 1250 data192,190,178,192,32,66,195,136,208,237,165,182,32,103,195,56,233,1,208
  129. 1260 data248,96,164,211,169,32,145,209,200,192,40,144,249,96,228,171,208,4,5
  130. 1270 data173,133,173,96,185,173,0,145,251,209,251,208,4,136,16,244,96,104,104
  131. 1280 data96,208,28,138,5,171,133,171,169,4,133,181,32,207,255,201,32,240,13
  132. 1290 data201,36,240,9,201,40,240,5,201,44,240,1,96,198,181,208,232,96,224,24
  133. 1300 data48,14,173,174,0,56,233,2,56,229,251,141,174,0,160,64,96,32,126,194
  134. 1310 data133,253,165,252,133,254,32,81,195,32,228,198,48,251,16,246,169,0,133
  135. 1320 data211,32,76,195,32,35,195,32,76,195,32,207,255,169,1,133,211,162,128
  136. 1330 data208,5,162,128,142,177
  137. 1340 rem
  138. 1350 rem *** block 8 ***
  139. 1360 rem
  140. 1370 data2,134,170,32,126,194,169,37,133,200,44,177,2,16,8,162,10,32,207,255
  141. 1380 data202,208,250,169,0,141,177,2,32,161,198,201,70,208,22,70,170,104,104
  142. 1390 data162,2,181,250,72,181,252,149,250,104,149,252,202,208,243,76,100,197
  143. 1400 data201,46,208,17,32,154,194,160,0,145,251,209,251,208,4,32,103,195,200
  144. 1410 data136,96,162,253,201,77,208,25,32,154,194,160,0,201,63,176,239,10,168
  145. 1420 data165,251,153,60,3,165,252,200,153,60,3,32,161,198,149,169,224,253,208
  146. 1430 data4,169,7,133,183,232,208,240,162,56,165,166,221,91,193,240,5,202,208
  147. 1440 data246,202,96,165,167,221,147,193,208,244,165,168,221,203,193,208,237
  148. 1450 data189,17,193,133,173,32,161,198,160,0,224,32,16,9,201,32,208,8,189,77
  149. 1460 data193,133,173,76,49,200,160,8,201,77,240,32,160,64,201,35,240,26,32,157
  150. 1470 data194,141,174,0,141,175,0,32,161,198,160,32,201,48,144,27,201,71,176
  151. 1480 data23,160,128,198,211,32,161,198,32,157,194,141,174,0,32,161,198,192,8
  152. 1490 data240,3,32,190,198,132,171,162,1,201,88,32,154,198,162,4,201,41,32,154
  153. 1500 data198,162,2,201,89,32,154,198
  154. 1510 rem
  155. 1520 rem *** block 9 ***
  156. 1530 rem
  157. 1540 data165,173,41,13,240,10,162,64,169,8,32,129,198,169,24,44,169,28,162,130
  158. 1550 data32,129,198,160,8,165,173,201,32,240,9,190,3,194,185,11,194,32,129,198
  159. 1560 data136,208,244,165,171,16,1,200,200,32,138,198,198,183,165,183,133,211
  160. 1570 data76,151,197
  161.