| 100 REM **************************************************
110 REM ***** P R O T D I S C - PAR GIL DELAVOUS ***** 120 REM ************************************************** 130 REM ***** L'UTILITAIRE DE PROTECTION DISQUETTES! ***** 140 REM ************************************************** 150 REM ***** (C) COPYRIGHT GIL DELAVOUS & CPC ***** 160 REM ************************************************** 170 REM 180 REM 190 T=0 200 MEMORY &9FFF 210 FOR X=&A000 TO &A245 220 READ A$ 230 A=VAL("&"+A$) 240 T=T+A 250 POKE X,A 260 NEXT X 270 IF T<>51787 THEN PRINT "ERREUR EN DATAS.....":END 280 CALL &A000 285 NEW 290 DATA 3E,02,CD,0E,BC,21,B7,A1,CD,18,A1,21,30,A1,CD,18 300 DATA A1,21,E1,A1,CD,18,A1,01,20,A0,21,2A,A0,C3,D1,BC,25 310 DATA A0,C3,2E,A0,50,52,4F,D4,00,00,00,00,00,FE,05,C2 320 DATA 23,A1,3E,02,CD,0E,BC,11,2A,A1,06,05,DD,7E,00,12 330 DATA 13,DD,23,DD,23,10,F5,11,58,A1,21,6B,A1,1A,77,11 340 DATA 5C,A1,1A,21,72,A1,77,21,01,0A,CD,75,BB,21,7A,A1 350 DATA CD,18,A1,CD,00,BB,CD,18,BB,CD,57,BB,21,42,A2,CD 360 DATA D4,BC,D0,AF,CD,1B,00,CD,6A,A1,21,EB,A0,3A,9F,A8 370 DATA 3D,77,21,E9,A0,3A,54,BE,77,CD,54,BB,21,79,A1,36 380 DATA 84,CD,B4,A0,CD,F6,A0,21,79,A1,36,85,21,EB,A0,7E 390 DATA D6,04,77,CD,B4,A0,21,03,01,CD,75,BB,21,0B,A2,CD 400 DATA 18,A1,C9,06,04,11,00,70,CD,CB,A0,D5,C5,CD,D8,A0 410 DATA C1,D1,21,00,02,19,EB,10,EF,C9,21,ED,A0,73,23,72 420 DATA 21,EB,A0,7E,3C,77,C9,21,79,A1,CD,D4,BC,D0,22,F3 430 DATA A0,79,32,F5,A0,1E,00,16,00,0E,00,21,B0,A0,DF,F3 440 DATA A0,C9,00,00,00,21,00,70,11,2A,A1,01,00,09,C5,1A 450 DATA 47,7E,A8,77,23,13,1A,FE,00,CC,14,A1,C1,97,0B,B8 460 DATA 20,EC,C9,11,2A,A1,C9,7E,FE,00,C8,CD,5A,BB,23,C3 470 DATA 18,A1,21,1D,A2,CD,18,A1,C9,00,00,00,00,00,00,4C 480 DATA 27,55,54,49,4C,49,54,41,49,52,45,20,44,45,20,50 490 DATA 52,4F,54,45,43,54,49,4F,4E,20,44,49,53,51,55,45 500 DATA 53,2C,20,50,41,52,20,47,49,4C,20,44,45,4C,41,56 510 DATA 4F,55,53,20,21,20,0A,0D,00,3E,00,FE,47,C2,00,00 520 DATA 3E,00,FE,44,C2,00,00,C9,00,49,4E,53,45,52,45,5A 530 DATA 20,4C,41,20,44,49,53,51,55,45,54,54,45,20,41,20 540 DATA 54,52,41,49,54,45,52,20,45,54,20,46,52,41,50,50 550 DATA 45,5A,20,53,55,52,20,55,4E,45,20,54,4F,55,43,48 560 DATA 45,2E,2E,2E,21,00,4D,41,49,4E,54,45,4E,41,4E,54 570 DATA 20,44,49,53,50,4F,4E,49,42,4C,45,20,3A,20,50,20 580 DATA 52,20,4F,20,54,20,44,20,49,20,53,20,43,0A,0D,00 590 DATA 46,4F,52,4D,41,54,20,3A,20,7C,50,52,4F,54,2C,43 600 DATA 31,2C,43,32,2C,43,33,2C,43,34,2C,43,35,20,28,43 610 DATA 3D,43,4F,44,45,29,2E,0A,0D,00,54,52,41,56,41,49 620 DATA 4C,20,45,46,46,45,43,54,55,45,21,00,2A,2A,2A,20 630 DATA 45,52,52,45,55,52,20,45,4E,20,45,4E,54,52,45,45 640 DATA 20,44,45,53,20,44,4F,4E,4E,45,45,53,20,2A,2A,2A 650 DATA 00,44,49,D2,00 |