home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / smon.teil1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.