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 |