5 MEMORY &9000:CALL &BBFF:MODE 1
7 LOCATE 1,10:PRINT " DATAS DE LA LIGNE CORRECTS":PEN 2 10 A=&94C0:F=&A100:L=100:WHILE A<=F:FOR A=A TO A+15:READ C$:K=VAL("&"+C$):S=S+K+65536*(S+K>32767):IF A<=F THEN POKE A,K 20 NEXT:READ D$:T=VAL("&"+D$):IF T<>S THEN PRINT CHR$(7);"Erreur ligne";L:END ELSE L=L+5 25 LOCATE 20,10:PRINT l-5:WEND 100 DATA C0,C0,C0,C0,C0,C0,84,4C,C0,C0,C0,C4,C0,C4,84,4C,0AA8 105 DATA 84,0C,0C,4C,84,4C,84,4C,84,0C,0C,4C,84,4C,84,4C,0FB8 110 DATA 84,0C,0C,4C,84,4C,84,4C,84,0C,0C,4C,84,4C,84,4C,14C8 115 DATA C4,CC,CC,CC,84,4C,C4,CC,CC,CC,CC,CC,84,4C,CC,CC,1FE8 120 DATA C0,C0,C0,C0,84,4C,C0,C0,C0,C4,C0,C4,84,4C,C0,C0,2A90 125 DATA 0C,4C,84,4C,84,4C,84,0C,0C,4C,84,4C,84,4C,84,0C,2FA0 130 DATA 0C,4C,84,4C,84,4C,84,0C,0C,4C,84,4C,84,4C,84,0C,34B0 135 DATA CC,CC,84,4C,C4,CC,C4,CC,CC,CC,84,4C,CC,CC,CC,CC,3FD0 140 DATA C0,C0,84,4C,C0,C0,C0,C0,C0,C4,84,4C,C0,C0,C0,C4,4A78 145 DATA 84,4C,84,4C,84,0C,0C,4C,84,4C,84,4C,84,0C,0C,4C,4F88 150 DATA 84,4C,84,4C,84,0C,0C,4C,84,4C,84,4C,84,0C,0C,4C,5498 155 DATA 84,4C,C4,CC,C4,CC,CC,CC,84,4C,CC,CC,CC,CC,CC,CC,5FB8 160 DATA 84,4C,C0,C0,C0,C0,C0,C0,84,4C,C0,C0,C0,C4,C0,C4,6A60 165 DATA 84,4C,84,0C,0C,4C,84,4C,84,4C,84,0C,0C,4C,84,4C,6F70 170 DATA 84,4C,84,0C,0C,4C,84,4C,84,4C,84,0C,0C,4C,84,4C,7480 175 DATA C4,CC,C4,CC,CC,CC,84,4C,CC,CC,CC,CC,CC,CC,84,4C,7FA0 180 DATA 00,00,00,45,8A,00,00,00,00,00,00,CF,CF,00,00,00,820D 185 DATA 00,00,45,CF,4F,8A,00,00,00,00,CF,CF,0F,CF,00,00,8676 190 DATA 00,45,8F,CF,8F,4F,8A,00,00,CF,8F,4F,CF,0F,CF,00,8CDB 195 DATA 45,CF,CF,0F,CF,8F,4F,8A,4F,8F,CF,8F,4F,CF,4F,9B,9548 200 DATA 05,8F,4F,CF,0F,CF,CF,22,00,4F,0F,CF,8F,CF,9B,00,9BEF 205 DATA 00,05,8F,4F,CF,CF,22,00,00,00,4F,0F,CF,9B,00,00,A05A 210 DATA 00,00,05,8F,CF,22,00,00,00,00,00,4F,9B,00,00,00,A2C9 215 DATA 00,00,00,05,22,00,00,00,00,00,00,00,00,00,00,00,A2F0 220 DATA 00,00,00,45,8A,00,00,00,00,00,00,CF,CF,00,00,00,A55D 225 DATA 00,00,45,CF,CF,8A,00,00,00,00,CF,CF,CF,CF,00,00,AB06 230 DATA 00,45,CF,CF,CF,CF,8A,00,00,CF,CF,CF,CF,CF,CF,00,B3EB 235 DATA 45,CF,CF,CF,CF,CF,CF,8A,4F,CF,CF,CF,CF,CF,CF,9B,BF58 240 DATA 05,CF,CF,CF,CF,CF,CF,22,00,4F,CF,CF,CF,CF,9B,00,C87F 245 DATA 00,05,CF,CF,CF,CF,22,00,00,00,4F,CF,CF,9B,00,00,CE6A 250 DATA 00,00,05,CF,CF,22,00,00,00,00,00,4F,9B,00,00,00,D119 255 DATA 00,00,00,05,22,00,00,00,00,00,00,00,00,00,00,00,D140 260 DATA 00,00,00,45,8A,00,00,00,00,00,00,CF,CF,00,00,00,D3AD 265 DATA 00,00,45,CF,CF,8A,00,00,00,00,CF,DF,EF,CF,00,00,D986 270 DATA 00,45,CF,FF,7C,CF,8A,00,00,CF,CF,BE,D6,CF,CF,00,E23E 275 DATA 45,CF,CF,FE,69,CF,CF,8A,4F,CF,CF,FC,69,CF,CF,9B,ED3B 280 DATA 05,CF,DF,FC,FC,CF,CF,22,00,4F,FF,FE,FD,CF,9B,00,F759 285 DATA 00,05,CF,FF,EF,CF,22,00,00,00,4F,CF,CF,9B,00,00,FD94 290 DATA 00,00,05,CF,CF,22,00,00,00,00,00,4F,9B,00,00,00,0043 295 DATA 00,00,00,05,22,00,00,00,00,00,00,00,00,00,00,00,006A 300 DATA 00,00,00,45,8A,00,00,00,00,00,00,CF,CF,00,00,00,02D7 305 DATA 00,00,45,DF,ED,8A,00,00,00,00,CF,FE,FC,CF,00,00,090A 310 DATA 00,45,DF,FC,7C,ED,8A,00,00,CF,DF,BC,D6,ED,CF,00,1219 315 DATA 45,CF,DF,FC,3C,ED,CF,8A,4F,CF,DF,FC,3C,ED,CF,9B,1D16 320 DATA 05,CF,FF,FC,BC,ED,CF,22,00,5F,FF,FE,FC,CF,9B,00,2741 325 DATA 00,05,DF,FF,ED,CF,22,00,00,00,4F,FF,CF,9B,00,00,2DBA 330 DATA 00,00,05,CF,CF,22,00,00,00,00,00,4F,9B,00,00,00,3069 335 DATA 00,00,00,05,22,00,00,00,00,00,00,00,00,00,00,00,3090 340 DATA 00,00,00,45,8A,00,00,00,00,00,00,CF,CF,00,00,00,32FD 345 DATA 00,00,45,DF,6F,8A,00,00,00,00,CF,BF,3F,CF,00,00,37B6 350 DATA 00,45,DF,6B,97,6F,8A,00,00,CF,DF,3E,C3,6F,CF,00,3EC2 355 DATA 45,CF,DF,96,3D,6F,CF,8A,4F,CF,DF,6B,97,6F,CF,9B,4828 360 DATA 05,CF,FF,3F,C3,6F,CF,22,00,5F,FF,3F,6B,6F,9B,00,4F6F 365 DATA 00,05,FF,3F,3F,6F,22,00,00,00,5F,BF,3F,9B,00,00,537A 370 DATA 00,00,05,FF,FF,22,00,00,00,00,00,5F,BB,00,00,00,56B9 375 DATA 00,00,00,05,22,00,00,00,00,00,00,00,00,00,00,00,56E0 380 DATA 00,00,00,44,88,00,00,00,00,00,00,CC,CC,00,00,00,5944 385 DATA 00,00,44,CC,CC,88,00,00,00,00,CC,64,CC,CC,00,00,5E70 390 DATA 00,44,98,30,64,CC,88,00,00,CC,CC,CC,64,CC,CC,00,6594 395 DATA 44,CC,CC,CC,30,30,CC,88,4E,30,64,CC,CC,98,CC,99,6E67 400 DATA 05,CC,64,CC,64,98,30,22,00,4E,30,64,98,CC,99,00,7495 405 DATA 00,05,CC,98,CC,CC,22,00,00,00,4E,98,CC,99,00,00,7A03 410 DATA 00,00,05,98,30,22,00,00,00,00,00,4E,99,00,00,00,7BD9 415 DATA 00,00,00,05,22,00,00,00,00,00,00,00,00,00,00,00,7C00 420 DATA 00,00,00,45,8A,00,00,00,00,00,00,EF,CF,00,00,00,7E8D 425 DATA 00,00,45,DF,CF,8A,00,00,00,00,CF,CF,DF,CF,00,00,8456 430 DATA 00,55,CF,DF,EF,CF,8A,00,00,CF,EF,EF,DF,CF,CF,00,8DCB 435 DATA 55,CF,FF,CF,DF,CF,EF,8A,4F,CF,CF,EF,CF,FF,CF,9B,99F8 440 DATA 05,EF,EF,FF,CF,CF,CF,22,00,5F,CF,CF,EF,EF,9B,00,A3DF 445 DATA 00,05,DF,CF,CF,EF,22,00,00,00,4F,EF,CF,9B,00,00,AA1A 450 DATA 00,00,05,DF,EF,22,00,00,00,00,00,4F,9B,00,00,00,ACF9 455 DATA 00,00,00,05,22,00,00,00,00,00,00,00,00,00,00,00,AD20 460 DATA 00,00,00,00,00,00,00,00,00,00,00,A8,A8,00,00,00,AE70 465 DATA 00,00,00,BC,BC,A8,00,00,00,00,FC,69,69,7C,00,00,B2DA 470 DATA 00,54,14,96,92,28,00,00,00,00,69,61,30,96,00,00,B622 475 DATA 00,00,BC,92,61,82,00,00,00,54,69,30,61,7C,00,00,BA1D 480 DATA 00,00,BC,92,61,28,00,00,00,00,69,61,92,96,00,00,BDE6 485 DATA 00,00,BC,C3,69,7C,00,00,00,00,54,3C,BC,A8,00,00,C23E 490 DATA 00,00,00,54,7C,00,00,00,00,00,00,00,A8,00,00,00,C3B6 495 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,C3B6 500 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,C3B6 505 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,C3B6 510 DATA 00,00,00,00,00,00,00,00,00,00,54,00,00,00,00,00,C40A 515 DATA 00,00,00,00,A8,A8,00,00,00,00,00,54,A8,00,00,00,C656 520 DATA 00,00,00,BC,7C,00,00,00,00,00,54,69,D6,A8,00,00,C9C9 525 DATA 00,00,00,BC,7C,00,00,00,00,00,00,54,A8,28,00,00,CC25 530 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CC25 535 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CC25 540 DATA 10,70,30,A0,00,30,CC,30,D8,00,74,98,FC,70,00,30,D221 545 DATA 98,74,34,A0,74,98,FC,34,28,74,B0,FC,34,78,30,6C,D9CD 550 DATA 30,9C,78,D8,78,30,B4,78,3C,3C,F0,3C,78,78,78,3C,E105 555 DATA 78,78,3C,3C,3C,B4,78,B4,C3,3C,B4,F0,50,3C,3C,14,E808 560 DATA 78,00,B4,28,00,78,00,00,A0,14,78,00,00,28,3C,28,EB8C 565 DATA 00,3C,28,3C,00,00,3C,28,00,00,E4,70,38,70,00,98,EF24 570 DATA 34,98,70,00,30,34,30,30,A0,74,BC,74,B8,78,30,BC,F584 575 DATA 30,B8,78,74,BC,74,B8,3C,74,BC,DC,B8,3C,CC,3C,38,FDBC 580 DATA 64,3C,3C,3C,6C,70,3C,3C,B4,F0,B4,3C,3C,3C,3C,3C,03AC 585 DATA 78,3C,96,69,3C,78,B4,69,96,3C,28,00,3C,3C,16,00,08B8 590 DATA 00,00,28,3C,00,00,3C,28,14,00,00,3C,3C,3C,00,00,0A48 595 DATA 00,14,28,00,00,00,30,F0,88,00,44,30,CC,64,00,B0,0E80 600 DATA FC,64,B8,50,38,B8,64,30,14,38,FC,64,B8,B4,38,FC,16B8 605 DATA 70,B8,B4,6C,30,9C,30,B4,78,30,B4,E4,B4,3C,F0,3C,1F0C 610 DATA 3C,B4,B4,3C,B4,B4,B4,78,3C,3C,3C,F0,78,3C,C3,78,2713 615 DATA B4,28,3C,3C,A0,14,00,14,28,00,14,28,50,00,00,14,29F7 620 DATA 3C,14,00,00,00,3C,14,3C,00,00,00,14,3C,00,00,B0,2BD3 625 DATA 34,B0,D8,00,B0,64,38,64,50,30,30,38,30,B4,74,B8,3237 630 DATA 7C,B8,B4,74,30,7C,30,3C,74,B8,7C,B8,3C,74,EC,7C,3A23 635 DATA B8,3C,98,34,3C,CC,3C,B0,9C,3C,3C,3C,78,F0,78,3C,4143 640 DATA B4,3C,3C,3C,3C,B4,3C,96,69,3C,BE,3C,69,96,78,00,4783 645 DATA 29,3C,3C,00,00,3C,14,00,00,00,28,14,3C,00,00,3C,4928 650 DATA 3C,3C,00,00,14,28,00,00,00,50,3C,78,00,00,B4,3C,4BD0 655 DATA 3C,A0,50,3C,3C,98,D8,50,3C,38,FC,70,B4,3C,12,B8,52CE 660 DATA 70,16,3C,12,FC,70,3C,3C,12,FC,70,3C,3C,12,30,34,57F2 665 DATA 3C,3C,3C,F0,3C,3C,3C,3C,3C,3C,3C,3C,3C,96,78,B4,5D74 670 DATA 78,3C,69,02,50,3C,B4,3C,A0,00,3C,14,00,00,00,28,6127 675 DATA 3C,14,00,14,28,14,3C,00,14,3C,00,00,00,00,3C,00,628F 680 DATA 00,00,00,50,3C,3C,A0,00,B4,3C,9C,D8,00,3C,3C,30,6703 685 DATA 70,50,3C,29,30,70,14,3C,29,74,F8,B4,3C,29,74,70,6CAA 690 DATA 3C,3C,29,74,F8,3C,3C,29,74,A9,3C,3C,3C,B0,34,3C,7249 695 DATA 3C,3C,3C,3C,3C,3C,3C,3C,78,3C,3C,3C,96,28,B4,3C,7703 700 DATA 3C,69,A0,00,16,3C,28,00,14,28,28,00,00,01,28,28,7977 705 DATA 28,00,00,3C,3C,28,00,00,14,00,00,00,00,B4,3C,A0,7BE3 710 DATA 00,50,3C,3C,78,00,E4,64,3C,3C,A0,B0,FC,34,3C,A0,823F 715 DATA B0,74,21,3C,78,B0,FC,21,3C,29,B0,FC,21,3C,3C,38,88E7 720 DATA 30,21,3C,3C,3C,F0,3C,3C,3C,3C,3C,3C,3C,3C,B4,69,8DD9 725 DATA 3C,3C,3C,01,96,3C,B4,78,50,3C,78,3C,A0,00,00,78,92E4 730 DATA 3C,00,00,28,3C,14,00,00,3C,28,14,28,00,00,00,3C,9474 735 DATA 28,00,00,00,3C,00,50,3C,3C,A0,00,E4,6C,3C,78,00,9844 740 DATA B0,30,3C,3C,00,B0,30,16,3C,A0,F4,B8,16,3C,28,B0,9E44 745 DATA B8,16,3C,78,F4,B8,16,3C,3C,56,B8,16,3C,3C,38,70,A444 750 DATA 3C,3C,3C,3C,3C,3C,3C,3C,B4,3C,3C,3C,3C,14,69,3C,A881 755 DATA 3C,3C,50,96,3C,3C,78,00,14,3C,29,00,00,00,14,14,AB70 760 DATA 28,00,14,14,14,02,00,14,3C,3C,00,00,00,00,28,00,AC8A 765 DATA DD,5E,00,DD,56,01,DD,6E,02,DD,66,03,06,08,C5,E5,B344 770 DATA 06,02,1A,77,23,13,10,FA,E1,CD,26,BC,C1,10,EF,C9,BA36 775 DATA 40,C0,40,C0,04,04,04,04,44,44,44,44,10,30,00,00,BD96 780 DATA 00,80,40,80,00,08,00,08,00,88,00,88,10,30,00,00,C036 785 DATA 40,C0,40,40,00,04,00,04,00,88,44,00,10,30,00,00,C2CA 790 DATA 40,C0,40,40,00,04,00,04,00,CC,00,44,10,30,00,00,C5A2 795 DATA 00,40,00,C0,00,0C,04,04,44,CC,00,44,00,10,00,00,C81A 800 DATA 40,C0,40,00,04,00,00,0C,00,44,44,44,10,30,00,00,CA76 805 DATA 40,C0,40,40,04,00,04,0C,44,44,44,44,10,30,00,00,CD5A 810 DATA 40,C0,00,40,00,04,00,08,00,88,44,00,10,00,00,00,CF82 815 DATA 40,C0,40,40,04,04,04,0C,44,44,44,44,10,30,00,00,D26A 820 DATA 40,C0,40,40,04,04,04,0C,00,44,00,44,10,30,00,00,D4CA 825 DATA 00,00,00,00,00,00,00,00,00,8A,00,00,00,A2,00,00,D5F6 830 DATA 00,00,00,00,00,00,00,00,00,8A,00,00,00,A2,51,00,D773 835 DATA 00,00,00,00,00,00,00,00,00,00,00,8A,00,A2,00,00,D89F 840 DATA 00,00,00,00,00,00,00,00,00,00,00,8A,00,A2,51,00,DA1C 845 DATA 00,20,00,20,11,00,00,00,00,00,00,00,00,00,00,00,DA6D 850 DATA 00,20,10,10,11,11,00,11,00,8A,00,00,00,A2,00,00,DC0C 855 DATA 00,20,00,20,00,22,00,22,00,8A,00,00,00,A2,00,00,DDBC 860 DATA 10,30,10,30,11,11,11,11,45,CF,45,45,51,51,00,00,E0C0 865 DATA 10,30,10,30,11,11,11,11,45,8A,45,45,51,F3,00,00,E421 870 DATA 10,30,10,30,11,00,11,00,45,00,45,00,51,F3,00,00,E691 875 DATA 10,20,10,30,11,11,11,11,45,45,45,45,51,F3,00,00,E99D 880 DATA 10,30,10,30,11,00,11,00,45,8A,45,00,51,F3,00,00,EC97 885 DATA 10,30,10,30,11,00,11,00,45,8A,45,00,51,00,00,00,EE9E 890 DATA 10,30,10,30,11,11,11,00,45,00,45,45,51,F3,00,00,F164 895 DATA 10,10,10,10,11,11,11,11,45,CF,45,45,51,51,00,00,F428 900 DATA 10,30,00,20,00,22,00,22,00,8A,00,8A,51,F3,00,00,F724 905 DATA 10,30,00,20,00,22,00,22,00,8A,00,8A,51,A2,00,00,F9CF 910 DATA 10,10,10,10,11,11,11,22,45,8A,45,45,51,51,00,00,FC5F 915 DATA 10,00,10,00,11,00,11,00,45,00,45,00,51,F3,00,00,FE6F 920 DATA 10,10,10,30,11,33,11,11,45,45,45,45,51,51,00,00,00EB 925 DATA 10,10,10,10,11,33,11,33,45,CF,45,45,51,51,00,00,03F3 930 DATA 10,30,10,10,11,11,11,11,45,45,45,45,51,F3,00,00,06EF 935 DATA 10,30,10,30,11,11,11,11,45,CF,45,00,51,00,00,00,095D 940 DATA 10,30,10,30,11,11,11,11,45,45,45,45,51,F3,00,A2,0D1B 945 DATA 10,30,10,30,11,11,11,11,45,8A,45,45,51,51,00,00,0FDA 950 DATA 10,30,10,30,11,00,11,00,45,CF,00,45,51,F3,00,00,1319 955 DATA 10,30,10,30,00,22,00,22,00,8A,00,8A,00,A2,00,00,1593 960 DATA 10,10,10,10,11,11,11,11,45,45,45,45,51,F3,00,00,186F 965 DATA 10,10,10,10,11,11,11,11,45,45,45,45,00,A2,00,00,1AA9 970 DATA 10,10,10,10,11,11,11,11,45,CF,45,CF,51,51,00,00,1DF7 975 DATA 10,10,10,10,11,11,00,22,00,8A,45,45,51,51,00,00,2031 980 DATA 10,10,10,10,11,11,00,22,00,8A,00,8A,00,A2,00,00,226B 985 DATA 10,30,00,10,00,11,00,22,00,8A,45,00,51,F3,00,00,2501 990 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2501 995 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2501 1000 DATA 7C,C6,08,67,D0,D5,11,50,C0,19,D1,C9,DD,5E,00,DD,2D43 1005 DATA 56,01,DD,6E,02,DD,66,03,06,12,CD,19,BD,F3,C5,E5,3485 1010 DATA 06,05,1A,E6,AA,28,06,4F,7E,E6,55,B1,77,1A,E6,55,3AED 1015 DATA 28,06,4F,7E,E6,AA,B1,77,23,13,10,E6,E1,CD,00,A0,421A 1020 DATA C1,10,DB,FB,C9,00,00,00,00,11,00,A4,DD,6E,00,DD,4867 1025 DATA 66,01,06,12,C5,E5,06,05,7E,12,13,23,10,FA,E1,CD,4E19 1030 DATA 00,A0,C1,10,EF,C9,00,00,00,11,00,A4,DD,6E,00,DD,541F 1035 DATA 66,01,06,12,C5,E5,06,05,1A,77,23,13,10,FA,E1,CD,59D2 1040 DATA 00,A0,C1,10,EF,C9,00,00,00,DD,5E,00,DD,56,01,DD,6047 1045 DATA 6E,02,DD,66,03,DD,5E,00,DD,56,01,DD,6E,02,DD,66,66FC 1050 DATA 03,22,A9,A0,ED,53,AB,A0,C9,C4,CC,40,9A,2A,A9,A0,6F9B 1055 DATA CD,00,A0,22,A9,A0,3A,19,A0,3D,32,19,A0,ED,5B,AB,7681 1060 DATA A0,C3,18,A0,10,D5,FB,C9,00,00,00,DD,5E,00,DD,56,7DB3 1065 DATA 01,DD,6E,02,DD,66,03,06,10,00,00,00,F3,C5,E5,06,8300 1070 DATA 08,1A,AE,77,13,23,10,F9,E1,CD,00,A0,C1,10,EE,FB,8A8E 1075 DATA C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,8B57 1080 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,8B57 1200 CLS:PRINT " FICHIER LANGAGE MACHINE CORRECT..." 1210 PRINT:PRINT:PRINT 1220 PRINT "UNE TOUCHE POUR LA SAUVEGARDE...." 1230 CALL &BB18 1240 SAVE "bombin",b,&94C0,&C40 |