home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 January
/
64er_Magazin_85-01_1985_Markt__Technik_de.d64
/
hypra-kernal
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
124 lines
600 poke56,96:poke55,0:clr
890 print"kopieren des rom ins ram":print
900 fori=6*4049to8*4096-1:pokei,peek(i+32768):nexti
999 rem data zeilen einlesen
1000 print"[147]":print:printtab(10);"lesen der data-zeilen":print:print
1010 t=0:of=32768
1020 t=t+1:reada:ifa=0then1100
1030 readb:rem anzahl der bytes
1032 readp1:rem pruefsumme
1033 p2=0
1035 print"block ";t;" ";
1040 fori=a-oftoa-of-1+b
1050 readd:pokei,d
1051 p2=p2+d:ifp2>65535thenp2=p2-65536
1053 nexti
1055 ifp2<>p1then1070
1057 print" ok"
1060 goto1020
1070 print"pruefsumme falsch: ";p2
1080 geta$:ifa$=""then1080
1090 goto1020
1100 print"fertig":end
7990 rem ab hier datas
7995 rem****************************************
7996 rem **zeilen 8000 - 9000 koennen fuer betriebssystem ohne fuktionstasten**
7997 rem **weggelassen werden**
8000 data64226,126,14014
8001 data232,134,198,201,133,144,4,201,141,144,3,76,66,235,157,119,2,72,152
8002 data72,160,0,196,2,208,13,185,41,251,221,119,2,240,11,200,192,176,208
8003 data243,104,168,104,76,66,235,200,185,41,251,201,133,144,4,201,141,144
8004 data238,236,137,2,176,233,157,119,2,232,134,198,76,15,251,133,76,207
8005 data34,36,34,44,56,13,137,76,79,65,68,134,76,73,83,84,13,138,83,65,86
8006 data69,135,82,85,78,13,139,83,89,83,136,63,70,82,69,40,48,41,13,140,83
8007 data89,83,54,52,55,51,56,13,133,136
8009 rem ****************************************
8010 data 60223,3,552
8011 data76,226,250
9000 rem ****************************************
9010 data58552,33,4800:rem $e4b8-$e4d8
9020 data133,147,169,0,133,144,165,186,208,4,169,8,133,186,201,3,144,248,164
9030 data183,208,3,76,16,247,166,185,76,145,248,234,234,234
9040 rem ****************************************
9050 data60647,9,530:rem $ece7-$ecef
9060 data83,89,83,54,52,53,55,48,13
9070 rem ****************************************
9080 data62637,23,3533:rem $f4ad-$f4c3
9090 data201,4,176,4,169,8,133,186,164,183,208,3,76,16,247,166,185,234,234
9100 data234,234,234,234
9110 rem ****************************************
9120 data63276,212,29783:rem$f72c-$f7ff
9130 data169,226,162,248,133,167,134,168,169,0,162,3,133,169,134,170,165,186
9140 data32,12,237,169,111,32,185,237,169,77,32,221,237,169,45,32,221,237
9150 data169,87,32,221,237,160,0,165,169,32,221,237,165,170,32,221,237,169
9160 data30,32,221,237,177,167,32,221,237,200,192,30,144,246,32,254,237,24
9170 data165,167,105,30,133,167,144,3,230,168,24,165,169,166,170,105,30,133
9180 data169,144,2,230,170,224,5,144,173,201,0,144,169,165,186,32,12,237,169
9190 data111,32,185,237,169,77,32,221,237,169,45,32,221,237,169,69,32,221
9200 data237,169,139,32,221,237,169,4,32,221,237,169,239,45,17,208,32,90,252
9210 data234,234,76,21,252,169,11,141,0,221,44,0,221,16,251,169,3,141,0,221
9220 data162,5,202,234,208,252,162,4,173,0,221,42,42,102,176,106,102,176,234
9230 data202,208,242,165,176,73,255,96,32,195,247,201,255,240,248,160,0,169
9240 data11,141,0,221,44,0,221,16,251
9250 rem ****************************************
9260 data63488,256,34399:rem $f800-f8ff
9270 data169,3,141,0,221,162,7,202,208,253,173,0,221,42,42,102,176,106,102
9280 data176,234,234,173,0,221,42,42,102,176,106,102,176,234,234,173,0,221
9290 data42,42,102,176,106,102,176,234,234,173,0,221,42,42,102,176,106,102
9300 data176,165,176,73,255,153,0,2,200,208,180,96,120,169,1,133,167,160,255
9310 data32,237,247,192,255,240,64,162,2,165,167,240,2,162,4,173,0,2,208,7
9320 data238,1,2,173,1,2,44,169,0,133,168,189,0,2,145,174,230,174,208,2,230
9330 data175,232,228,168,208,240,162,0,134,167,173,0,2,208,198,169,16,13,17
9340 data208,234,141,17,208,169,64,133,144,24,96,32,175,245,169,96,133,185
9350 data32,213,243,165,186,32,9,237,165,185,32,199,237,32,19,238,133,174
9360 data165,144,74,74,144,3,76,48,245,32,19,238,133,175,138,208,20,165,195
9370 data133,174,165,196,133,175,32,210,245,169,253,37,144,133,144,76,160
9380 data251,165,175,201,4,176,238,76,240,244,255,255,255,255,255,255,255
9390 data255,234,96,165,0,41,6,201,2,240,3,76,158,253,234,169,5,133,9,162
9400 data90,134,75,162,0,169,82,133,36,32,86,245,80
9410 rem ****************************************
9420 data63744,256,27098:rem$f900-$f9ff
9430 data254,184,173,1,28,197,36,240,9,198,75,208,239,169,10,76,105,249,80
9440 data254,184,173,1,28,149,37,232,224,7,208,243,32,151,244,165,22,69,23
9450 data69,24,69,25,69,26,240,7,198,9,208,192,76,30,244,165,24,197,6,240
9460 data3,76,11,244,133,34,169,6,133,49,76,60,4,165,18,166,19,133,22,134
9470 data23,165,6,133,24,165,7,133,25,169,0,69,22,69,23,69,24,69,25,133,26
9480 data32,52,249,162,90,32,86,245,160,0,80,254,184,173,1,28,217,36,0,240
9490 data6,202,208,237,76,81,245,200,192,8,208,234,32,86,245,80,254,184,173
9500 data1,28,145,48,200,208,245,160,186,80,254,184,173,1,28,153,0,1,200,208
9510 data244,32,224,248,165,56,197,71,240,3,76,246,244,32,233,245,197,58,240
9520 data3,76,2,245,160,0,169,85,32,82,4,185,0,6,133,119,44,0,24,16,251,169
9530 data16,141,0,24,44,0,24,48,251,162,0,138,102,119,42,42,102,119,42,42
9540 data141,0,24,138,102,119,42,42,102,119,42,42,141,0,24,138,102,119,42
9550 data42,102,119,42,42,141,0,24,138,102,119,42,42,102,119,42,42,141
9560 rem ****************************************
9570 data64000,226,25915:rem $fa00-$fae1
9580 data0,24,162,2,202,208,253,169,15,141,0,24,200,208,173,234,234,234,234
9590 data234,234,234,173,0,28,9,8,141,0,28,173,0,6,208,3,76,158,253,197,24
9600 data208,249,133,6,173,1,6,133,7,76,101,3,133,119,44,0,24,16,251,169,16
9610 data141,0,24,44,0,24,48,251,162,4,169,0,102,119,42,42,102,119,42,42,141
9620 data0,24,202,208,240,234,234,234,234,234,234,169,15,141,0,24,96,96,133
9630 data0,88,165,0,48,252,120,96,120,234,234,234,234,234,234,165,24,141,0
9640 data6,133,6,165,25,141,1,6,133,7,169,4,133,120,169,226,32,130,4,201,2
9650 data144,51,160,0,132,120,164,120,185,219,254,240,18,88,32,118,214,120
9660 data169,226,32,130,4,201,2,144,26,230,120,208,231,169,192,32,130,4,169
9670 data226,32,130,4,201,2,144,8,169,255,32,82,4,76,34,235,173,0,6,240,248
9680 data197,24,240,196,173,0,6,133,6,173,1,6,133,7,76,160,4,234,234,234,234
9690 data160,0,185,25,244,153
9700 rem ****************************************
9710 data64416,192,24821:rem $fba0-$fc5f
9720 data160,89,185,0,2,153,0,3,200,192,0,208,245,160,0,177,187,201,36,208
9730 data3,76,1,245,169,1,133,167,169,0,133,144,165,167,32,12,237,169,111
9740 data32,185,237,165,144,16,11,230,167,165,167,201,8,208,230,76,44,247
9750 data165,167,197,186,240,239,160,0,185,248,251,240,6,32,210,255,200,208
9760 data245,32,225,255,208,251,76,44,247,234,234,234,234,13,66,73,84,84,69
9770 data32,78,85,82,32,70,76,79,80,80,89,32,65,78,83,67,72,65,76,84,69,78
9780 data13,32,67,248,8,72,160,89,185,0,3,153,0,2,200,192,0,208,245,166,174
9790 data164,175,104,40,88,96,255,255,255,255,255,255,255,255,255,255,234
9800 data72,169,244,205,49,3,240,10,141,49,3,169,165,141,48,3,104,96,173,76
9810 data253,141,48,3,173,77,253,141,49,3,104,96,141,17,208,76,251,237
9820 rem ****************************************
9830 data64844,2,412:rem $fd4c-$fd4d
9840 data184,228
10000 data0