5 RUN100
10 **********************************
15 *                                *
20 *     RASTERZEILEN-INTERRUPT     *
25 *                                *
30 *         (BASIC-LOADER)         *
35 *                                *
40 *       EIN  DEMO-PROGRAMM       *
45 *                                *
50 *     FUER DEN  COMMODORE 64     *
55 *                                *
60 *        VON HELMUT WELKE        *
65 *                                *
70 *        MOEHNESTRASSE 26        *
75 *                                *
80 *        5760  ARNSBERG 1        *
85 *                                *
90 *       TEL. (02932) 23627       *
95 *                                *
99 **********************************
100 :
110 PRINTCHR$(147)"LOADING":AD=49152
120 READX:IFX<0GOTO300
130 POKEAD,X:AD=AD+1:S=S+X:GOTO120
200 :
300 IFAD=49737ANDS=64373THENSYS49152
500 PRINT:PRINT"DATAS FEHLERHAFT"
600 :
700 :
800 :
1000 DATA 32,68,229,169,127,141,13,220
1010 DATA 141,4,220,141,5,220,162,0
1020 DATA 142,26,208,202,134,251,169
1030 DATA 11,141,17,208,133,253,169
1040 DATA 14,141,33,208,133,254,169
1050 DATA 44,160,193,141,20,3,140,21
1060 DATA 3,160,1,140,18,208,140,26
1070 DATA 208,136,169,25,32,21,193,166
1080 DATA 254,169,2,32,21,193,232,134
1090 DATA 254,224,200,144,244,166,253
1095 :
1100 DATA 169,2,32,21,193,232,134,253
1110 DATA 224,115,144,244,162,7,160
1120 DATA 13,24,32,240,255,169,200,160
1130 DATA 193,32,30,171,169,150,160
1140 DATA 0,32,21,193,169,27,141,17
1150 DATA 208,169,200,32,21,193,140
1160 DATA 26,208,140,32,208,32,68,229
1170 DATA 162,4,142,33,208,160,3,24
1180 DATA 32,240,255,169,254,160,193
1190 DATA 32,30,171,169,30,160,0,32
1195 :
1200 DATA 21,193,169,88,160,193,141
1210 DATA 20,3,140,21,3,162,25,134,253
1220 DATA 142,18,208,173,25,208,141
1230 DATA 25,208,160,1,140,26,208,136
1240 DATA 169,2,32,21,193,232,134,253
1250 DATA 224,170,144,244,169,100,32
1260 DATA 21,193,32,68,229,140,26,208
1270 DATA 169,115,160,193,141,20,3,140
1280 DATA 21,3,173,25,208,141,25,208
1290 DATA 160,0,132,251,200,140,18,208
1295 :
1300 DATA 140,26,208,169,0,32,21,193
1310 DATA 169,15,141,134,2,162,3,24
1320 DATA 32,240,255,169,221,160,193
1330 DATA 32,30,171,169,20,160,0,32
1340 DATA 21,193,206,134,2,16,237,169
1350 DATA 1,168,32,21,193,76,0,192,141
1360 DATA 6,220,140,7,220,169,17,141
1370 DATA 14,220,169,89,141,15,220,173
1380 DATA 15,220,74,176,250,96,165,251
1390 DATA 240,9,16,15,169,0,170,164
1395 :
1400 DATA 253,208,14,169,2,162,1,164
1410 DATA 254,208,6,169,7,162,255,160
1420 DATA 1,134,251,140,18,208,141,32
1430 DATA 208,173,25,208,141,25,208
1440 DATA 76,129,234,173,33,208,73,2
1450 DATA 168,41,2,240,6,165,253,24
1460 DATA 105,21,44,165,253,141,18,208
1470 DATA 140,33,208,76,79,193,198,251
1480 DATA 166,251,16,4,162,15,134,251
1490 DATA 189,152,193,72,188,184,193
1495 :
1500 DATA 189,168,193,170,104,142,18
1510 DATA 208,140,17,208,141,32,208
1520 DATA 141,33,208,76,79,193,4,11
1530 DATA 5,9,3,10,1,14,7,15,2,13,0
1540 DATA 8,6,12,1,11,254,235,219,203
1550 DATA 179,162,138,122,106,82,75
1560 DATA 59,51,33,27,155,27,27,27,27
1570 DATA 27,27,27,27,27,27,27,27,27
1580 DATA 27,14,8,31,196,69,77,79,45
1590 DATA 208,82,79,71,82,65,77,77,17
1595 :
1600 DATA 17,17,17,17,13,29,29,29,29
1610 DATA 29,29,29,29,29,210,193,211
1620 DATA 212,197,210,218,197,201,204
1630 DATA 197,206,45,201,78,84,69,82
1640 DATA 82,85,80,84,0,156,213,78,68
1650 DATA 32,78,85,78,32,32,32,32,17
1660 DATA 17,17,83,69,72,69,78,32,211
1670 DATA 73,69,32,32,32,32,17,17,17
1680 DATA 78,79,67,72,32,68,69,78,13
1690 DATA 17,17,17,17,17,29,29,29,29
1695 :
1700 DATA 29,29,29,29,29,29,210,160
1710 DATA 197,160,199,160,197,160,206
1720 DATA 160,194,160,207,160,199,160
1730 DATA 197,160,206,0
1740 DATA -1