10 MEMORY &97FF
20 MODE 2
30 LOCATE 10,5:PRINT"Auf welchem CPC soll die RSX-Erweiterung installiert werden?"
40 LOCATE 36,9:PRINT"CPC  464"
50 LOCATE 36,10:PRINT"CPC  664"
60 LOCATE 36,11:PRINT"CPC 6128"
70 LOCATE 23,14:INPUT"Geben Sie ein (464,664,6128): ";a$
80 IF a$<>"464" AND a$<>"664" AND a$<>"6128" THEN 20
90 z=330
100 sum=0
110 FOR i=&9800 TO &9C67
120 READ byte$:POKE i,VAL("&"+byte$)
130 sum=sum+VAL("&"+byte$)
140 IF i MOD 8=-1 THEN READ sum$:IF VAL("&"+sum$)<>sum THEN LOCATE 1,25:PRINT"Fehler in Zeile"z:END
150 IF i MOD 8=-1 THEN sum=0:z=z+10
160 NEXT
170 IF a$="664" THEN POKE &9956,&5B
180 IF a$="464" THEN GOSUB 230
190 FOR i=&9C68 TO &A46C:POKE i,0:NEXT
200 SAVE"RSXBEF",b,&9800,&C6D
210 CALL &9800
220 END
230 POKE &9956,&3A
240 POKE &9B5F,&E7
250 POKE &9B60,&B4
260 POKE &9B64,&E7
270 POKE &9B65,&B4
280 POKE &9B6A,&E8
290 POKE &9B6B,&B4
300 POKE &9B6F,&E8
310 POKE &9B70,&B4
320 POKE &9BC8,&45
330 RETURN
340 DATA 01,35,98,21,30,99,CD,D1,356
350 DATA BC,21,29,98,CD,18,98,21,33C
360 DATA 2D,98,CD,18,98,21,31,98,32C
370 DATA E5,CD,D4,BC,DD,E1,D0,DD,6AD
380 DATA 75,01,DD,74,02,DD,71,03,31A
390 DATA C9,84,28,98,00,85,28,98,352
400 DATA 00,81,28,98,00,8E,98,C3,32A
410 DATA 34,99,C3,6F,99,C3,81,99,475
420 DATA C3,C8,99,C3,21,9A,C3,27,48C
430 DATA 9A,C3,4F,9A,C3,49,9A,C3,4AF
440 DATA 54,9A,C3,7F,9A,C3,F1,9A,518
450 DATA C3,F5,9A,C3,1F,9B,C3,23,4B5
460 DATA 9B,C3,34,9B,C3,3A,9B,C3,488
470 DATA 40,9B,C3,46,9B,C3,51,9B,42E
480 DATA C3,5C,9B,C3,62,9B,C3,67,4A4
490 DATA 9B,C3,6D,9B,C3,72,9B,C3,4F9
500 DATA 67,9C,C3,BB,9B,C3,CB,9B,545
510 DATA C3,D6,9B,C3,E1,9B,45,44,4FC
520 DATA 49,D4,46,49,4C,CC,49,4E,35B
530 DATA 56,45,52,D4,54,59,50,C5,383
540 DATA 53,45,43,52,45,41,C4,53,2CA
550 DATA 45,43,57,52,49,54,C5,4D,2E0
560 DATA 45,53,53,4F,CE,4D,45,53,2ED
570 DATA 53,4F,46,C6,53,57,41,D0,369
580 DATA 53,45,41,52,43,C8,52,45,2CD
590 DATA 56,45,52,D3,44,49,53,4B,2EB
600 DATA 50,41,52,C1,4B,45,D9,50,35D
610 DATA 52,49,4E,D4,43,52,53,4F,2F4
620 DATA CE,43,52,53,4F,46,C6,42,353
630 DATA 45,45,D0,54,50,4F,CE,54,36F
640 DATA 50,4F,46,C6,43,41,50,53,2D2
650 DATA 4F,CE,43,41,50,53,4F,46,2D9
660 DATA C6,53,48,49,46,54,4F,CE,361
670 DATA 53,48,49,46,54,4F,46,C6,2D9
680 DATA 4B,4F,4D,50,D2,4D,4F,44,2E9
690 DATA C5,4C,4F,41,C4,52,45,54,350
700 DATA 52,D9,55,53,45,52,D2,53,38F
710 DATA 43,52,52,45,53,45,D4,00,298
720 DATA 00,00,00,00,3D,C2,EA,9A,283
730 DATA DD,6E,00,DD,66,01,E5,4E,3C2
740 DATA 06,00,23,5E,23,56,EB,11,1FC
750 DATA 6C,9C,AF,B9,CA,51,99,ED,511
760 DATA B0,12,21,6C,9C,CD,5E,BD,3D3
770 DATA E1,D0,E5,21,6C,9C,AF,01,46F
780 DATA 01,01,ED,B1,91,E1,11,6C,38F
790 DATA 9C,77,23,73,23,72,C9,3D,344
800 DATA C2,EA,9A,DD,46,00,21,00,38A
810 DATA C0,AF,70,23,BC,C2,7A,99,493
820 DATA C9,06,FF,21,00,C0,7E,A8,3D5
830 DATA 77,23,3E,00,BC,C2,86,99,375
840 DATA C9,DD,7E,00,FE,00,C8,CD,4B7
850 DATA 5A,BB,DD,23,C3,91,99,AF,4B1
860 DATA 23,CD,B3,99,CD,B3,99,ED,542
870 DATA 6F,2B,CD,B3,99,CD,B3,99,4CC
880 DATA ED,6F,C9,ED,6F,F5,FE,0A,57E
890 DATA D2,C0,99,F6,30,C3,C3,99,570
900 DATA 3D,EE,48,CD,5A,BB,F1,C9,50F
910 DATA 3D,C2,EA,9A,DD,6E,00,DD,4AB
920 DATA 66,01,46,23,C5,4E,23,46,24C
930 DATA 60,69,C1,11,6C,9C,CD,77,3E7
940 DATA BC,D0,CD,80,BC,D2,1D,9A,51E
950 DATA CD,5A,BB,CD,1B,BB,D2,E2,539
960 DATA 99,FE,11,C8,FE,0D,CA,01,446
970 DATA 9A,FE,20,CC,0F,9A,C3,E2,4D2
980 DATA 99,CD,1B,BB,D2,01,9A,FE,4A7
990 DATA 0D,CA,E2,99,C3,01,9A,C5,475
1000 DATA F5,01,00,80,0B,78,B1,C2,36C
1010 DATA 14,9A,F1,C1,C9,CD,7A,BC,52C
1020 DATA C9,21,2A,98,C3,2A,9A,21,354
1030 DATA 2E,98,22,47,9A,FE,04,C2,38D
1040 DATA EA,9A,3E,FF,DF,32,98,DD,547
1050 DATA 6E,00,DD,66,01,DD,4E,02,2DF
1060 DATA DD,56,04,DD,5E,06,DF,00,357
1070 DATA 00,3E,01,DF,32,98,C9,AF,360
1080 DATA DF,32,98,C9,FE,02,C2,EA,51E
1090 DATA 9A,DD,6E,00,DD,66,01,DD,406
1100 DATA 5E,02,DD,56,03,46,1A,77,26D
1110 DATA 78,12,23,13,46,1A,77,78,20F
1120 DATA 12,23,13,46,1A,77,78,12,1A9
1130 DATA DD,21,E7,9B,C3,91,99,FE,56B
1140 DATA 03,C2,EA,9A,DD,6E,04,DD,475
1150 DATA 66,05,7E,23,5E,23,56,32,215
1160 DATA 67,9C,DD,4E,00,DD,46,01,352
1170 DATA DD,6E,02,DD,66,03,ED,53,3D3
1180 DATA 64,9C,1A,BE,CA,B1,9A,23,410
1190 DATA 0B,78,B1,C2,A2,9A,C3,E3,4D8
1200 DATA 9A,F5,C5,D5,E5,3A,67,9C,54B
1210 DATA 47,ED,5B,64,9C,1A,BE,C2,429
1220 DATA DC,9A,13,23,05,C2,BD,9A,3CA
1230 DATA E1,D1,C1,F1,22,64,9C,DD,563
1240 DATA 21,14,9C,CD,91,99,21,64,34D
1250 DATA 9C,C3,9F,99,E1,D1,C1,F1,5FB
1260 DATA C3,A7,9A,DD,21,EF,9B,C3,54F
1270 DATA 91,99,DD,21,46,9C,C3,91,45E
1280 DATA 99,CD,9C,BB,C9,FE,02,C2,548
1290 DATA EA,9A,DD,6E,00,DD,66,01,413
1300 DATA DD,5E,02,DD,56,03,7D,B4,3A4
1310 DATA CA,18,9B,7B,B2,CA,18,9B,427
1320 DATA 22,46,BE,ED,53,44,BE,C9,431
1330 DATA DD,21,31,9C,C3,91,99,CD,485
1340 DATA 18,BB,C9,3D,C2,EA,9A,DD,4FC
1350 DATA 46,00,3E,01,CD,5A,BB,78,2DF
1360 DATA CD,5A,BB,C9,3E,03,CD,5A,413
1370 DATA BB,C9,3E,02,CD,5A,BB,C9,46F
1380 DATA 3E,07,CD,5A,BB,C9,3E,16,344
1390 DATA CD,5A,BB,3E,01,CD,5A,BB,403
1400 DATA C9,3E,16,CD,5A,BB,3E,02,33F
1410 DATA CD,5A,BB,C9,3E,FF,32,31,44B
1420 DATA B6,C9,AF,32,31,B6,C9,3E,44E
1430 DATA FF,32,32,B6,C9,AF,32,32,3F5
1440 DATA B6,C9,3E,FF,32,00,AC,C9,463
1450 DATA 3D,C2,EA,9A,DD,7E,00,FE,4DC
1460 DATA 00,CA,94,9B,FE,01,CA,9D,45F
1470 DATA 9B,FE,02,CA,A7,9B,FE,03,4A8
1480 DATA CA,B1,9B,C9,3E,17,CD,5A,45B
1490 DATA BB,AF,C3,5A,BB,3E,17,CD,464
1500 DATA 5A,BB,3E,02,C3,5A,BB,3E,36B
1510 DATA 17,CD,5A,BB,3E,03,C3,5A,357
1520 DATA BB,3E,17,CD,5A,BB,3E,01,331
1530 DATA C3,5A,BB,21,6C,9C,11,C6,3D8
1540 DATA 9B,06,81,C3,E0,BC,AF,32,462
1550 DATA 2C,AE,C9,3D,C2,EA,9A,DD,503
1560 DATA 7E,00,32,66,BE,C9,3D,C2,39C
1570 DATA EA,9A,DD,7E,00,32,01,A7,3B9
1580 DATA C9,CD,FF,BB,C3,4E,BB,53,56F
1590 DATA 77,61,70,70,65,64,00,7A,2FB
1600 DATA 75,20,73,75,63,68,65,6E,31B
1610 DATA 64,65,72,20,53,74,72,69,2FD
1620 DATA 6E,67,20,6E,69,63,68,74,30B
1630 DATA 20,67,65,66,75,6E,64,65,2FE
1640 DATA 6E,21,07,00,53,74,72,69,238
1650 DATA 6E,67,20,67,65,66,75,6E,30A
1660 DATA 64,65,6E,20,61,62,20,41,27B
1670 DATA 64,72,65,73,73,65,20,26,2CC
1680 DATA 00,75,6E,67,75,65,6C,74,304
1690 DATA 69,67,65,20,50,61,72,61,2D9
1700 DATA 6D,65,74,65,72,00,75,6E,300
1710 DATA 67,75,65,6C,74,69,67,65,356
1720 DATA 20,41,6E,7A,61,68,6C,20,29E
1730 DATA 50,61,72,61,6D,65,74,65,32F
1740 DATA 72,21,00,00,00,00,00,00,93