5 MEMORY &9C7F
7 CLS:LOCATE 1,10:PRINT " DATAS DE LA LIGNE CORRECTS":PEN 2 10 A=&9C80:F=&A050: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 00,C3,00,00,41,83,02,00,C3,03,C0,00,83,42,80,00,0454 105 DATA 03,42,10,00,03,42,60,88,03,42,C0,30,03,03,81,30,07C2 110 DATA 03,03,03,10,09,03,03,00,09,03,00,00,04,03,03,00,0800 115 DATA 00,09,02,00,50,A4,08,00,58,00,08,00,04,A0,58,00,0A63 120 DATA 00,00,C3,00,00,01,43,82,00,C0,03,C3,00,40,81,43,0E76 125 DATA 00,20,81,03,44,90,81,03,30,C0,81,03,30,42,03,03,125E 130 DATA 20,03,03,03,00,03,03,06,00,00,03,06,00,03,03,08,12AA 135 DATA 00,01,06,00,00,04,58,A0,00,04,00,A4,00,A4,50,08,1551 140 DATA 00,C3,00,00,41,83,02,00,C3,03,C0,00,83,42,80,00,19A5 145 DATA 03,42,10,00,03,42,60,98,03,42,C0,30,03,03,81,71,1D64 150 DATA 03,03,03,00,09,02,03,00,09,03,00,00,04,03,03,00,1D91 155 DATA 04,09,02,00,00,A4,08,00,00,A4,00,00,00,F0,08,00,1FE8 160 DATA 00,00,C3,00,00,01,43,82,00,C0,03,C3,00,40,81,43,23FB 165 DATA 00,20,81,03,64,90,81,03,30,C0,81,03,B2,42,03,03,2885 170 DATA 00,03,03,03,00,03,01,06,00,00,03,06,00,03,03,08,28AF 175 DATA 00,01,06,08,00,04,58,00,00,00,58,00,00,04,F0,00,2A66 180 DATA 00,40,80,00,00,10,80,00,00,01,8A,00,00,01,8A,00,2CCC 185 DATA 00,01,8A,00,00,47,CF,00,01,CF,CF,8A,47,CF,CF,CF,334A 190 DATA CF,CF,CF,CF,8E,0C,99,67,8E,0C,99,47,8E,4C,99,47,3B54 195 DATA CE,CC,99,47,9B,33,33,47,8B,03,03,47,45,CF,CF,8A,425B 200 DATA 40,C0,40,C0,48,0C,48,0C,04,0C,04,0C,00,00,00,00,4523 205 DATA C0,40,C0,40,0C,48,0C,48,0C,04,0C,04,00,00,00,00,47EB 210 DATA 40,C0,40,C0,48,0C,48,0C,04,0C,04,0C,00,00,00,00,4AB3 215 DATA C0,40,C0,40,0C,48,0C,48,0C,04,0C,04,00,00,00,00,4D7B 220 DATA 00,22,00,00,00,B3,00,00,00,73,33,60,00,11,33,C0,505A 225 DATA 00,33,33,C0,00,33,45,00,11,22,CF,00,45,8A,CF,00,5498 230 DATA CF,CF,CF,45,8E,0C,99,67,8E,0C,99,47,8E,4C,99,47,5C18 235 DATA CE,CC,99,47,9B,33,33,47,8B,03,03,47,45,CF,CF,8A,631F 240 DATA 00,33,72,00,11,76,F8,A0,11,F3,F3,A0,33,F3,F3,F2,6B85 245 DATA 76,FC,F6,F8,73,F3,F9,F2,73,F3,F3,F3,76,FC,FC,FC,78EC 250 DATA 73,F3,F3,F3,73,F3,F3,F3,76,FC,FC,FC,73,F3,F3,F3,863A 255 DATA 73,F3,F3,F3,50,FC,FC,A8,50,F3,F3,A0,00,F0,F0,00,912C 260 DATA 00,30,30,00,10,30,60,20,10,30,30,20,30,30,30,90,93FC 265 DATA 30,30,30,90,00,80,10,30,3C,3C,10,30,3C,00,00,30,9700 270 DATA 28,C0,80,30,00,00,00,30,00,04,10,20,00,04,10,00,9910 275 DATA 00,04,00,00,7F,7F,7F,2A,AA,00,00,AA,7F,7F,7F,2A,9DB6 280 DATA 00,28,C0,00,14,40,00,80,3C,40,40,00,3C,68,80,00,A152 285 DATA 3C,3C,90,80,3C,3C,30,30,3C,3C,00,20,3C,14,28,00,A4C2 290 DATA 3C,28,14,00,14,3C,00,28,00,3C,3C,00,00,14,28,00,A666 295 DATA 00,50,A0,00,00,04,08,00,00,50,A0,00,00,0C,0C,00,A86A 300 DATA CC,CC,CC,CC,88,88,44,44,88,88,44,44,CC,88,44,CC,B12E 305 DATA 88,00,00,44,CC,00,00,CC,88,88,44,44,88,44,88,44,B6C2 310 DATA 88,44,88,44,88,88,44,44,CC,00,00,CC,88,00,00,44,BC56 315 DATA CC,88,44,CC,88,88,44,44,88,88,44,44,CC,CC,CC,CC,C51A 320 DATA 00,00,00,00,00,C6,00,82,00,00,82,00,40,40,40,00,C7A4 325 DATA 82,05,00,40,00,20,20,0A,80,41,00,00,00,40,05,10,C9CB 330 DATA 40,82,00,00,00,00,20,20,92,00,80,41,41,80,00,80,CD61 335 DATA 20,00,0A,00,10,80,00,00,00,00,20,82,00,00,00,00,CEBD 340 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CEBD 345 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CEBD 350 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CEBD 355 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,CEBD 360 DATA 3C,3C,3C,3C,28,00,00,14,28,00,00,14,28,00,00,14,D061 365 DATA 28,00,00,14,28,00,00,14,28,00,00,14,28,00,00,14,D151 370 DATA 28,00,00,14,28,00,00,14,28,00,00,14,28,00,00,14,D241 375 DATA 28,00,00,14,28,00,00,14,28,00,00,14,3C,3C,3C,3C,D3E5 380 DATA 7C,C6,08,67,D0,D5,11,50,C0,19,D1,C9,00,DD,5E,00,DB4A 385 DATA DD,56,01,DD,6E,02,DD,66,03,06,10,CD,19,BD,F3,C5,E282 390 DATA E5,06,04,1A,00,77,13,23,10,F9,E1,CD,00,A0,C1,10,E860 395 DATA EE,FB,C9,21,A2,C0,06,B0,C5,E5,06,4C,C5,3E,00,77,F0C1 400 DATA 23,C1,10,F8,E1,CD,00,A0,C1,10,ED,C9,CD,00,00,00,F84F 405 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,F84F 500 CLS:LOCATE 1,1:PRINT "FICHIER BINAIRE CORRECT" 510 LOCATE 1,3:PRINT "APPUYEZ SUR <ENTER> POUR SAUVEGARDE" 520 CALL &BB18 530 SAVE "!JOB",B,&9C80,&3D0 |