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 >
Wrap
Commodore BASIC
|
2022-10-26
|
9KB
|
161 lines
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