10 REM **************************
20 REM *                        *
30 REM *      SMON TEIL 1       *
40 REM * VON N.MANN & D.WEINECK *
50 REM *     FLEETRADE 40       *
60 REM *     2800 BREMEN        *
70 REM *   TEL. 0421 / 493090   *
80 REM *                        *
90 REM **************************
100 FORI=0TO8:READA:PR(I)=A:NEXT
110 SA=49152:I=0
120 PA=SA+256*I:CH=0
130 FORJ=0TO255:READA:POKEPA+J,A:CH=CH+A:NEXT
140 IFCH<>PR(I)THEN190
150 I=I+1:IFI<8THEN120
160 PA=PA+256:CH=0
170 FORJ=0TO60:READA:POKEPA+J,A:CH=CH+A:NEXT
180 IFCH=PR(I)THENEND
190 PRINT"FEHLER IN BLOCK"I+1:END
191 REM
192 REM *** BLOCKPRUEFSUMMEN ***
195 DATA20921,25604,31944,33700,36302,34378,34305,34639,7819
200 REM
210 REM *** BLOCK 1 ***
220 REM
230 DATA169,20,141,22,3,169,194,141,23,3,0,39,35,36,37,44,58,59,61,63,65,66
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
250 DATA201,7,201,27,201,251,198,28,196,181,195,244,202,153,200,208,198,107
260 DATA201,60,202,92,197,16,203,226,195,67,200,182,202,77,200,248,195,192
270 DATA201,60,200,133,195,77,200,240,203,66,202,210,201,109,195,0,0,0,0,0
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
290 DATA13,83,217,49,55,50,13,0,125,76,125,201,13,13,32,32,80,67,32,32,83,82
300 DATA32,65,67,32,88,82,32,89,82,32,83,80,32,32,78,86,45,66,68,73,90,67,0
310 DATA2,4,1,44,0,44,89,41,88,157,31,255,28,28,31,31,31,28,223,28,31,223,255
320 DATA255,3,31,128,9,32,12,4,16,1,17,20,150,28,25,148,190,108,3,19,1,2,2
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
340 DATA130,33,130,132,8,8,231,231,231,231
350 REM
360 REM *** BLOCK 2 ***
370 REM
380 DATA227,227,227,227,227,227,227,227,227,227,231,167,231,231,243,243,247
390 DATA223,38,70,6,102,65,129,225,1,160,162,161,193,33,97,132,134,230,198
400 DATA224,192,36,76,32,144,176,240,48,208,16,80,112,120,0,24,216,88,184,202
410 DATA136,232,200,234,72,8,104,40,64,96,170,168,186,138,154,152,56,248,137
420 DATA156,158,178,42,74,10,106,79,35,147,179,243,51,211,19,83,115,82,76,65
430 DATA82,69,83,83,79,76,76,76,67,65,65,83,83,73,68,67,67,66,74,74,66,66,66
440 DATA66,66,66,66,66,83,66,67,67,67,67,68,68,73,73,78,80,80,80,80,82,82,84
450 DATA84,84,84,84,84,83,83,79,83,83,79,79,84,66,82,68,68,68,77,78,68,84,84
460 DATA78,69,80,80,73,77,83,67,67,69,77,78,80,86,86,69,82,76,76,76,76,69,69
470 DATA78,78,79,72,72,76,76,84,84,65,65,83,88,88,89,69,69,76,82,76,82,82,65
480 DATA67,65,89,88,65,80,68,67,89,88,67,67,88,89,84,80,82,67,83,81,73,69,76
490 DATA67,83,73,75,67,68,73,86,88,89,88,89,80,65,80,65,80,73,83,88,89,88,65
500 REM
510 REM *** BLOCK 3 ***
520 REM
530 DATA83,65,67,68,8,132,129,34,33,38,32,128,3,32,28,20,20,16,4,12,216,169
540 DATA8,141,176,2,169,4,141,175,2,169,6,141,32,208,141,33,208,169,3,141,134
550 DATA2,162,5,104,157,168,2,202,16,249,173,169,2,208,3,206,168,2,206,169
560 DATA2,186,142,174,2,169,82,76,255,194,32,194,194,240,11,32,126,194,141
570 DATA169,2,165,252,141,168,2,96,162,164,32,128,194,32,128,194,208,28,32
580 DATA126,194,169,254,133,253,169,255,133,254,32,194,194,208,12,141,119,2
590 DATA230,198,96,32,126,194,44,162,251,32,141,194,149,1,32,154,194,149,0
600 DATA232,232,96,32,202,194,201,32,240,249,201,44,240,245,208,3,32,202,194
610 DATA32,175,194,10,10,10,10,133,180,32,202,194,32,175,194,5,180,96,201,58
620 DATA144,2,105,8,41,15,96,32,202,194,201,32,240,249,198,211,96,32,207,255
630 DATA198,211,201,13,96,32,207,255,201,13,208,248,169,63,32,210,255,174,174
640 DATA2,154,162,0,134,198,32,81,195,161,209,201,39,240,17,201,58,240,13,201
650 DATA59,240,9,201,44,240,5,169,46,32,210,255,32,202,194,201,46,240,249,133
660 REM
670 REM *** BLOCK 4 ***
680 REM
690 DATA172,41,127,162,32,221,10,192,240,5,202,208,248,240,194,32,21,195,76
700 DATA214,194,138,10,170,232,189,41,192,72,202,189,41,192,72,96,165,252,32
710 DATA42,195,165,251,72,74,74,74,74,32,53,195,104,41,15,201,10,144,2,105
720 DATA6,105,48,76,210,255,169,13,32,210,255,138,76,210,255,32,76,195,169
730 DATA32,76,210,255,169,13,76,210,255,133,187,132,188,160,0,177,187,240,6
740 DATA32,210,255,200,208,246,96,230,251,208,2,230,252,96,169,14,141,134,2
750 DATA141,32,208,169,6,141,33,208,169,55,133,1,174,174,2,154,76,116,164,160
760 DATA192,169,140,32,86,195,162,59,32,64,195,173,168,2,133,252,173,169,2
770 DATA133,251,32,35,195,32,76,195,162,251,189,175,1,32,42,195,32,76,195,232
780 DATA208,244,173,170,2,76,208,195,32,78,194,162,251,32,202,194,32,154,194
790 DATA157,175,1,232,208,244,32,76,195,189,170,2,76,208,195,133,170,169,32
800 DATA160,9,32,210,255,6,170,169,48,105,0,136,208,244,96,32,73,194,174,174
810 DATA2,154,162,250,189,174,1,72,232,208,249,104,168,104,170,104,64,32,100
820 DATA194,162,58,32,64
830 REM
840 REM *** BLOCK 5 ***
850 REM
860 DATA195,32,35,195,160,32,162,0,32,76,195,161,251,32,42,195,161,251,32,57
870 DATA196,208,241,32,93,196,144,224,96,32,126,194,160,32,162,0,32,202,194
880 DATA32,154,194,129,251,193,251,240,3,76,209,194,32,57,196,208,236,96,201
890 DATA32,144,12,201,96,144,10,201,192,144,4,201,219,144,4,169,46,41,63,41
900 DATA127,145,209,173,134,2,145,243,32,103,195,200,192,40,96,32,111,196,76
910 DATA102,196,32,103,195,165,251,197,253,165,252,229,254,96,32,148,196,32
920 DATA134,196,240,14,32,134,196,240,251,201,32,208,5,141,119,2,230,198,96
930 DATA32,228,255,72,32,225,255,240,2,104,96,76,214,194,160,40,36,172,16,246
940 DATA132,200,132,208,169,255,32,195,255,169,255,133,184,133,185,173,175
950 DATA2,133,186,32,192,255,162,0,134,211,202,32,201,255,32,207,255,32,210
960 DATA255,201,13,208,246,32,204,255,169,145,76,210,255,160,0,177,251,36,170
970 DATA48,2,80,12,162,31,221,60,193,240,47,202,224,21,208,246,162,4,221,73
980 DATA193,240,33,221,77,193,240,30,202,208,243,162,56,221,17,193,240,20,202
990 DATA224,22,208,246,177,251,61,251
1000 REM
1010 REM *** BLOCK 6 ***
1020 REM
1030 DATA192,93,17,193,240,5,202,208,243,162,0,134,173,138,240,15,162,17,177
1040 DATA251,61,181,192,93,198,192,240,3,202,208,243,189,234,192,133,171,189
1050 DATA216,192,133,182,166,173,96,160,1,177,251,170,200,177,251,160,16,196
1060 DATA171,208,7,32,74,197,160,3,208,2,164,182,142,174,0,141,175,0,96,160
1070 DATA1,177,251,16,1,136,56,101,251,170,232,240,1,136,152,101,252,96,162
1080 DATA0,134,170,32,100,194,32,140,197,165,173,201,22,240,12,201,47,240,8
1090 DATA201,33,240,4,201,48,208,13,32,81,195,162,35,169,45,32,210,255,202,208
1100 DATA250,32,93,196,144,217,96,162,44,32,64,195,32,35,195,32,76,195,32,117
1110 DATA198,32,203,196,32,76,195,177,251,32,42,195,32,76,195,200,196,182,208
1120 DATA243,169,3,56,229,182,170,240,9,32,73,195,32,76,195,202,208,247,169
1130 DATA32,32,210,255,160,0,166,173,208,17,162,3,169,42,32,210,255,202,208
1140 DATA248,36,170,48,133,76,106,198,36,170,80,41,169,8,36,171,240,35,177,251
1150 DATA41,252,133,173,200,177,251,10,168,185,60,3,141,174,0,200,185,60,3,141
1160 DATA175,0,32,190,198,164
1170 REM
1180 REM *** BLOCK 7 ***
1190 REM
1200 DATA182,32,147,198,32,203,196,189,91,193,32,210,255,189,147,193,32,210
1210 DATA255,189,203,193,32,210,255,169,32,36,171,240,3,32,73,195,162,32,169
1220 DATA4,36,171,240,2,162,40,138,32,210,255,36,171,80,5,169,35,32,210,255
1230 DATA32,44,197,136,240,22,169,8,36,171,240,7,169,77,32,210,255,160,1,185
1240 DATA173,0,32,42,195,136,208,247,160,3,185,172,192,36,171,240,9,185,175
1250 DATA192,190,178,192,32,66,195,136,208,237,165,182,32,103,195,56,233,1,208
1260 DATA248,96,164,211,169,32,145,209,200,192,40,144,249,96,228,171,208,4,5
1270 DATA173,133,173,96,185,173,0,145,251,209,251,208,4,136,16,244,96,104,104
1280 DATA96,208,28,138,5,171,133,171,169,4,133,181,32,207,255,201,32,240,13
1290 DATA201,36,240,9,201,40,240,5,201,44,240,1,96,198,181,208,232,96,224,24
1300 DATA48,14,173,174,0,56,233,2,56,229,251,141,174,0,160,64,96,32,126,194
1310 DATA133,253,165,252,133,254,32,81,195,32,228,198,48,251,16,246,169,0,133
1320 DATA211,32,76,195,32,35,195,32,76,195,32,207,255,169,1,133,211,162,128
1330 DATA208,5,162,128,142,177
1340 REM
1350 REM *** BLOCK 8 ***
1360 REM
1370 DATA2,134,170,32,126,194,169,37,133,200,44,177,2,16,8,162,10,32,207,255
1380 DATA202,208,250,169,0,141,177,2,32,161,198,201,70,208,22,70,170,104,104
1390 DATA162,2,181,250,72,181,252,149,250,104,149,252,202,208,243,76,100,197
1400 DATA201,46,208,17,32,154,194,160,0,145,251,209,251,208,4,32,103,195,200
1410 DATA136,96,162,253,201,77,208,25,32,154,194,160,0,201,63,176,239,10,168
1420 DATA165,251,153,60,3,165,252,200,153,60,3,32,161,198,149,169,224,253,208
1430 DATA4,169,7,133,183,232,208,240,162,56,165,166,221,91,193,240,5,202,208
1440 DATA246,202,96,165,167,221,147,193,208,244,165,168,221,203,193,208,237
1450 DATA189,17,193,133,173,32,161,198,160,0,224,32,16,9,201,32,208,8,189,77
1460 DATA193,133,173,76,49,200,160,8,201,77,240,32,160,64,201,35,240,26,32,157
1470 DATA194,141,174,0,141,175,0,32,161,198,160,32,201,48,144,27,201,71,176
1480 DATA23,160,128,198,211,32,161,198,32,157,194,141,174,0,32,161,198,192,8
1490 DATA240,3,32,190,198,132,171,162,1,201,88,32,154,198,162,4,201,41,32,154
1500 DATA198,162,2,201,89,32,154,198
1510 REM
1520 REM *** BLOCK 9 ***
1530 REM
1540 DATA165,173,41,13,240,10,162,64,169,8,32,129,198,169,24,44,169,28,162,130
1550 DATA32,129,198,160,8,165,173,201,32,240,9,190,3,194,185,11,194,32,129,198
1560 DATA136,208,244,165,171,16,1,200,200,32,138,198,198,183,165,183,133,211
1570 DATA76,151,197