lader.bas

100 rem programma voor het poken van acht
110 rem high-resolution machinetaal programma's.
120 rem de machine code bevindt zich in de dataregels
130 rem 49152 t/m 51210. deze regelnummers komen
140 rem overeen met het adres van de geheugenplaats
150 rem waar de eerste code uit de dataregel gepoked word
160 i=49152 : t=0 : print chr$(147)
170 read a
180 :   if a=-1 then 290
190 :   if a>255 then 230
200 :   poke i,a
210 :   t=t+a : i=i+1 : goto 280
220 :   rem tussencontrole
230 :       read a$
240 :       print t,a,a$
250 :       if t=a then t=0 : goto 280
260 :       er=1 : t=0
270 :       print "fout in "; a$
280 goto 170
290 if er=0 then print "geen fout"
300 if er=1 then print "fout(en) geconstateerd"
310 end
49152 data 32,253,174,32,235,183,138
49159 data 141,32,208,141,33,208,165
49166 data 20,133,251,240,2,162,0
49173 data 32,89,192,32,128,192,32
49180 data 166,192,169,59,141,17,208
49187 data 169,29,141,24,208,165,251
49194 data 240,5,169,216,141,22,208
49201 data 169,128,133,56,133,52,173
49208 data 2,221,9,3,141,2,221
49215 data 173,0,221,41,252,9,1
49216 data 8560,"regels 49152-49215"

49222 data 141,0,221,169,132,141,136
49229 data 2,169,79,141,17,3,169
49236 data 197,141,18,3,96,160,0
49243 data 169,64,133,87,169,191,133
49250 data 88,169,0,145,87,165,87
49257 data 240,5,198,87,76,99,192
49264 data 198,88,165,88,201,159,240
49271 data 7,169,255,133,87,76,99
49278 data 192,96,160,0,169,231,133
49285 data 87,169,135,133,88,138,145
49286 data 8560,"regels 49222-49285"


49292 data 87,165,87,240,5,198,87
49299 data 76,138,192,198,88,165,88
49306 data 201,131,240,7,169,255,133
49313 data 87,76,138,192,96,160,0
49320 data 169,231,133,87,169,219,133
49327 data 88,169,0,145,87,165,87
49334 data 240,5,198,87,76,176,192
49341 data 198,88,165,88,201,215,240
49348 data 7,169,255,133,87,76,176
49355 data 192,96,165,90,201,0,240
49356 data 9637,"regels 49292-49355"

49362 data 16,201,1,208,6,165,89
49369 data 201,64,144,6,32,181,194
49376 data 76,72,178,165,91,201,200
49383 data 144,6,32,181,194,76,72
49390 data 178,165,89,41,7,133,94
49397 data 169,7,56,229,94,133,94
49404 data 165,251,240,11,70,94,6
49411 data 94,165,94,24,105,1,133
49418 data 95,165,94,240,9,168,169
49425 data 1,10,136,208,252,240,2
49426 data 7927,"regels 49362-49425"

49432 data 169,1,133,94,165,95,240
49439 data 9,168,169,1,10,136,208
49446 data 252,240,2,169,1,133,95
49453 data 169,0,133,92,133,88,133
49460 data 87,165,91,41,7,133,93
49467 data 165,91,74,74,74,133,91
49474 data 160,5,24,10,38,88,136
49481 data 208,249,133,87,165,91,160
49488 data 3,24,10,136,208,251,133
49495 data 91,24,101,87,133,91,165
49496 data 7568,"regels 49432-49495"

49502 data 88,105,0,133,92,160,3
49509 data 24,70,90,102,89,136,208
49516 data 248,165,89,133,87,165,90
49523 data 133,88,160,3,24,6,87
49530 data 38,88,136,208,248,160,8
49537 data 24,165,91,101,87,133,87
49544 data 165,92,101,88,133,88,136
49551 data 208,240,24,165,93,101,87
49558 data 133,87,169,0,101,88,24
49565 data 169,160,101,88,133,88,24
49566 data 7438,"regels 49502-49565"

49572 data 165,89,101,91,133,91,169
49579 data 0,101,92,133,92,96,32
49586 data 253,174,32,235,183,165,20
49593 data 133,89,165,21,133,90,138
49600 data 133,91,32,253,174,32,235
49607 data 183,138,133,252,165,20,133
49614 data 253,32,205,192,169,54,133
49621 data 1,165,251,208,3,76,123
49628 data 194,165,252,201,0,240,17
49635 data 201,1,240,40,201,2,240
49636 data 9049,"regels 49572-49535"

49642 data 81,201,3,240,114,169,55
49649 data 133,1,96,160,0,165,94
49656 data 73,255,133,94,165,95,73
49663 data 255,133,95,177,87,37,94
49670 data 37,95,145,87,169,55,133
49677 data 1,96,160,0,165,95,73
49684 data 255,133,95,177,87,5,94
49691 data 37,95,145,87,169,132,24
49698 data 101,92,133,92,6,253,6
49705 data 253,6,253,6,253,177,91
49706 data 7846,"regels 49642-40705"

49712 data 41,15,24,101,253,145,91
49719 data 169,55,133,1,96,160,0
49726 data 165,94,73,255,133,94,177
49733 data 87,37,94,5,95,145,87
49740 data 24,169,132,101,92,133,92
49747 data 177,91,41,240,24,101,253
49754 data 145,91,169,55,133,1,96
49761 data 160,0,177,87,5,94,5
49768 data 95,145,87,169,216,24,101
49775 data 92,133,92,165,253,145,91
49776 data 7521,"regels 40712-49775"

49782 data 169,55,133,1,96,160,0
49789 data 165,252,240,35,177,87,5
49796 data 94,145,87,169,132,24,101
49803 data 92,133,92,165,253,10,10
49810 data 10,10,133,95,177,91,41
49817 data 15,24,101,95,145,91,169
49824 data 55,133,1,96,165,94,73
49831 data 255,133,94,177,87,37,94
49838 data 145,87,169,55,133,1,96
49845 data 169,4,141,136,2,173,2
49846 data 7086,"regels 49782-49845"

49852 data 221,41,252,141,2,221,169
49859 data 27,141,17,208,169,200,141
49866 data 22,208,169,21,141,24,208
49873 data 96,32,253,174,32,235,183
49880 data 138,141,62,3,169,0,141
49887 data 63,3,165,20,141,60,3
49894 data 165,21,141,61,3,32,253
49901 data 174,32,235,183,138,141,66
49908 data 3,169,0,141,67,3,165
49915 data 20,141,64,3,165,21,141
49916 data 7605,"regels 49852-49915"

49922 data 65,3,32,253,174,32,235
49929 data 183,138,133,252,165,20,133
49936 data 254,173,64,3,56,237,60
49943 data 3,141,68,3,173,65,3
49950 data 237,61,3,141,69,3,173
49957 data 66,3,56,237,62,3,141
49964 data 70,3,173,63,3,237,67
49971 data 3,141,71,3,169,1,141
49978 data 94,3,141,96,3,169,0
49985 data 141,95,3,141,97,3,173
49986 data 6680,"regels 49922-49985"

49992 data 71,3,41,128,240,8,169
49999 data 255,141,94,3,141,95,3
50006 data 173,69,3,41,128,240,8
50013 data 169,255,141,96,3,141,97
50020 data 3,173,69,3,41,128,240
50027 data 30,173,69,3,73,255,141
50034 data 73,3,24,173,68,3,73
50041 data 255,105,1,141,72,3,173
50048 data 73,3,105,0,141,73,3
50055 data 76,150,195,173,68,3,141
50056 data 6728,"regels 49992-50055"

50062 data 72,3,173,69,3,141,73
50069 data 3,173,71,3,41,128,240
50076 data 30,173,71,3,73,255,141
50083 data 75,3,24,173,70,3,73
50090 data 255,105,1,141,74,3,173
50097 data 75,3,105,0,141,75,3
50104 data 76,199,195,173,70,3,141
50111 data 74,3,173,71,3,141,75
50118 data 3,173,72,3,56,237,74
50125 data 3,141,88,3,173,73,3
50126 data 6013,"regels 50062-50125"

50132 data 237,75,3,141,89,3,41
50139 data 128,240,60,169,255,141,90
50146 data 3,141,91,3,169,0,141
50153 data 92,3,141,93,3,173,74
50160 data 3,141,76,3,173,75,3
50167 data 141,77,3,173,72,3,141
50174 data 78,3,173,73,3,141,79
50181 data 3,173,71,3,41,128,208
50188 data 70,169,1,141,90,3,169
50195 data 0,141,91,3,76,83,196
50196 data 6293,"regels 50132-50195"

50202 data 169,0,141,90,3,141,91
50209 data 3,169,255,141,92,3,141
50216 data 93,3,173,72,3,141,76
50223 data 3,173,73,3,141,77,3
50230 data 173,74,3,141,78,3,173
50237 data 75,3,141,79,3,173,69
50244 data 3,41,128,208,10,169,1
50251 data 141,92,3,169,0,141,93
50258 data 3,173,76,3,141,82,3
50265 data 173,77,3,141,83,3,173
50266 data 5994,"regels 50202-50265"

50272 data 78,3,141,80,3,173,79
50279 data 3,141,81,3,173,76,3
50286 data 56,237,78,3,141,84,3
50293 data 173,77,3,237,79,3,141
50300 data 85,3,78,77,3,110,76
50307 data 3,173,78,3,56,237,76
50314 data 3,141,86,3,173,79,3
50321 data 237,77,3,141,87,3,173
50328 data 60,3,133,89,173,61,3
50335 data 133,90,173,62,3,133,91
50336 data 5826,"regels 50272-50335"

50342 data 165,254,133,253,32,207,193
50349 data 173,87,3,41,128,240,60
50356 data 173,86,3,24,109,80,3
50363 data 141,86,3,173,87,3,109
50370 data 81,3,141,87,3,173,60
50377 data 3,24,109,92,3,141,60
50384 data 3,173,61,3,109,93,3
50391 data 141,61,3,173,62,3,24
50398 data 109,90,3,141,62,3,173
50405 data 63,3,109,91,3,141,63
50406 data 5995,"regels 50342-50406"

50412 data 3,76,41,197,173,86,3
50419 data 56,237,84,3,141,86,3
50426 data 173,87,3,237,85,3,141
50433 data 87,3,173,60,3,24,109
50440 data 96,3,141,60,3,173,61
50447 data 3,109,97,3,141,61,3
50454 data 173,62,3,24,109,94,3
50461 data 141,62,3,173,63,3,109
50468 data 95,3,141,63,3,173,82
50475 data 3,56,233,1,141,82,3
50476 data 5432,"regels 50412-50475"

50482 data 173,83,3,233,0,141,83
50489 data 3,173,83,3,240,7,201
50496 data 255,240,11,76,151,196,173
50503 data 82,3,240,3,76,151,196
50510 data 96,165,102,208,46,165,101
50517 data 208,42,165,100,208,38,165
50524 data 99,208,34,165,98,201,128
50531 data 240,16,201,192,208,24,165
50538 data 97,201,130,208,18,169,3
50545 data 133,252,208,30,165,97,240
50546 data 9018,"regels 50482-50545"

50552 data 8,201,129,240,10,201,130
50559 data 240,12,32,181,194,76,72
50566 data 178,169,1,133,252,208,6
50573 data 169,2,133,252,208,0,32
50580 data 253,174,32,235,183,134,91
50587 data 169,0,133,92,165,20,133
50594 data 89,165,21,133,90,32,205
50601 data 192,165,251,240,7,165,95
50608 data 24,101,94,133,94,169,54
50615 data 133,1,160,0,177,87,37
50616 data 8397,"regels 50552-50615"

50622 data 94,240,45,165,251,240,27
50629 data 165,94,56,229,95,133,94
50636 data 177,87,37,95,240,14,177
50643 data 87,37,94,240,16,165,252
50650 data 201,3,240,27,208,14,165
50657 data 252,201,1,240,19,208,6
50664 data 165,252,201,2,240,11,169
50671 data 0,141,114,3,133,97,133
50678 data 98,240,13,169,1,141,114
50685 data 3,169,129,133,97,169,128
50686 data 8696,"regels 50622-50685"

50692 data 133,98,169,0,170,168,133
50699 data 99,133,100,133,101,133,102
50706 data 169,55,133,1,169,0,96
50713 data 32,253,174,32,235,183,142
50720 data 62,3,162,0,32,241,183
50727 data 134,254,162,0,32,241,183
50734 data 142,115,3,162,0,32,241
50741 data 183,141,116,3,169,0,141
50748 data 63,3,165,20,141,60,3
50755 data 165,21,141,61,3,169,3
50756 data 7501,"regels 50692-50755"

50762 data 205,115,3,48,8,205,116
50769 data 3,48,3,76,93,198,32
50776 data 181,194,76,72,178,32,70
50783 data 199,32,205,192,169,0,133
50790 data 2,165,251,208,14,169,1
50797 data 141,115,3,141,116,3,141
50804 data 106,3,76,126,198,169,2
50811 data 141,106,3,169,0,141,118
50818 data 3,141,117,3,32,189,199
50825 data 32,70,199,173,115,3,133
50826 data 7123,"regels 50762-50825"

50832 data 252,32,167,197,173,114,3
50839 data 240,3,76,90,199,32,70
50846 data 199,173,116,3,133,252,32
50853 data 167,197,173,114,3,240,3
50860 data 76,90,199,173,62,3,201
50867 data 199,240,42,32,70,199,173
50874 data 115,3,133,252,230,91,32
50881 data 167,197,173,114,3,208,24
50888 data 32,70,199,173,116,3,133
50895 data 252,230,91,32,167,197,173
50896 data 8822,"regels 50832-50895"

50902 data 114,3,208,6,32,121,199
50909 data 76,229,198,169,0,141,118
50916 data 3,169,0,205,62,3,240
50923 data 42,32,70,199,173,115,3
50930 data 133,252,198,91,32,167,197
50937 data 173,114,3,208,24,32,70
50944 data 199,173,116,3,133,252,198
50951 data 91,32,167,197,173,114,3
50958 data 208,6,32,140,199,76,27
50965 data 199,169,0,141,117,3,32
50966 data 7824,"regels 50902-50965"

50972 data 70,199,173,115,3,133,252
50979 data 165,254,133,253,32,207,193
50986 data 56,173,60,3,237,106,3
50993 data 141,60,3,173,61,3,233
51000 data 0,141,61,3,201,2,144
51007 data 3,76,90,199,76,137,198
51014 data 173,60,3,133,89,173,61
51021 data 3,133,90,173,62,3,133
51028 data 91,169,0,133,92,96,166
51035 data 2,240,26,202,189,0,207
51036 data 7727,"regels 50972-51035"

51042 data 141,62,3,202,189,0,207
51049 data 141,61,3,202,189,0,207
51056 data 141,60,3,134,2,76,126
51063 data 198,96,173,118,3,240,1
51070 data 96,169,1,141,118,3,32
51077 data 70,199,230,91,76,156,199
51084 data 173,117,3,240,1,96,169
51091 data 1,141,117,3,32,70,199
51098 data 198,91,166,2,224,187,144
51105 data 6,32,181,194,76,126,185
51106 data 7733,"regels 51042-51105"

51112 data 165,89,157,0,207,232,165
51119 data 90,157,0,207,232,165,91
51126 data 157,0,207,232,134,2,96
51133 data 24,173,60,3,109,106,3
51140 data 141,64,3,133,89,173,61
51147 data 3,105,0,141,65,3,133
51154 data 90,173,62,3,133,91,169
51161 data 0,133,92,173,65,3,240
51168 data 13,201,1,240,1,96,173
51175 data 64,3,201,64,144,1,96
51176 data 7102,"regels 51112-51175"

51182 data 173,116,3,133,252,32,167
51189 data 197,173,114,3,240,1,96
51196 data 173,64,3,141,60,3,173
51203 data 65,3,141,61,3,76,189
51210 data 199
51211 data 3054,"regels 51182-51210",-1