10 '*********************************
20 '** LESPEZ FREDERIC PRESENTE ** 30 '********************************* 40 '** HORLOGE V1.0 LE 10/08/88 ** 50 '********************************* 60 MODE 2:MEMORY &8FFF 70 FOR I=&9000 TO &9177 STEP 8:FOR J=0 TO 7:READ A$(J):S=S+VAL("&"+A$(J)):NEXT:READ A$(8):IF SGN(VAL("&"+A$(8)))=-1 THEN CP=2^16 ELSE CP=0 80 IF S<>VAL("&"+A$(8))+CP THEN PRINT" ERREUR EN LIGNE No ";((I-&9000)/8)*10+110:END 90 FOR J=0 TO 7:POKE I+J,VAL("&"+A$(J)):NEXT:NEXT 100 SAVE"HORLOGE.BIN",B,&9000,&177,&9000:CALL &9000:END 110 DATA 21,0A,90,01,0E,90,CD,D1,02F8 120 DATA BC,C9,00,00,00,00,1F,90,052C 130 DATA C3,44,90,C3,26,91,C3,2C,092C 140 DATA 91,C3,32,91,C3,42,91,48,0D21 150 DATA 45,55,52,C5,41,4C,41,52,0FF2 160 DATA 4D,4F,CE,41,4C,41,52,4D,12C9 170 DATA 4F,46,C6,53,45,54,41,4C,159D 180 DATA 41,52,CD,53,45,45,41,4C,1867 190 DATA 41,52,CD,00,FE,03,C0,DD,1C65 200 DATA 7E,00,32,74,90,DD,7E,02,1F76 210 DATA 32,73,90,DD,7E,04,32,72,22AE 220 DATA 90,21,65,90,11,32,00,01,2498 230 DATA 32,00,C3,E9,BC,00,00,00,2732 240 DATA 00,00,00,00,00,00,81,78,282B 250 DATA 90,00,00,00,00,00,00,00,28BB 260 DATA F3,F5,E5,C5,CD,78,BB,E5,2F32 270 DATA F5,3A,74,90,FE,3B,28,06,32CC 280 DATA 3C,32,74,90,18,26,AF,32,355D 290 DATA 74,90,3A,73,90,FE,3B,28,38FF 300 DATA 06,3C,32,73,90,18,15,AF,3B52 310 DATA 32,73,90,3A,72,90,FE,17,3ED8 320 DATA 28,06,3C,32,72,90,18,04,4092 330 DATA AF,32,72,90,21,01,01,CD,4365 340 DATA 75,BB,3A,72,90,CD,00,91,472F 350 DATA 3E,3A,CD,5A,BB,3A,73,90,4AC6 360 DATA CD,00,91,3E,3A,CD,5A,BB,4E7E 370 DATA 3A,74,90,CD,00,91,F1,E1,52EC 380 DATA CD,75,BB,3A,77,90,FE,00,5728 390 DATA 28,19,3A,76,90,47,3A,73,599D 400 DATA 90,B8,20,0F,3A,75,90,47,5C9A 410 DATA 3A,72,90,B8,20,05,3E,07,5EF8 420 DATA CD,5A,BB,C1,E1,F1,FB,C9,6531 430 DATA 4F,C5,0E,00,06,0A,B8,38,6753 440 DATA 05,90,0C,C3,06,91,79,F5,6ABC 450 DATA C6,30,CD,5A,BB,F1,06,09,6E94 460 DATA 81,10,FD,C1,47,79,48,91,727C 470 DATA C6,30,CD,5A,BB,C9,3E,FF,775A 480 DATA 32,77,90,C9,3E,00,32,77,7A43 490 DATA 90,C9,FE,02,C0,DD,7E,00,7EB7 500 DATA 32,76,90,DD,7E,02,32,75,81F3 510 DATA 90,C9,CD,78,BB,E5,21,01,8653 520 DATA 0C,CD,75,BB,3A,75,90,CD,8A68 530 DATA 00,91,3E,3A,CD,5A,BB,3A,8D8D 540 DATA 76,90,CD,00,91,3E,20,CD,911C 550 DATA 5A,BB,3A,77,90,FE,00,28,9498 560 DATA 04,3E,E7,18,02,3E,20,CD,9706 570 DATA 5A,BB,E1,CD,75,BB,C9,00,9BC2 |