0001 ! (c) PPC Paris et l'auteur, 1987 0010 ! DPCT(n1,n2), delta% sans arrondi 0020 OPTION BASE 1 0030 ASSIGN # 255 TO "VISIDATA" 0040 READ # 255,0 ; N1,N2 @ IF N1#2 OR N2#2 THEN END 0050 READ # 255 ; N1,N2 0060 D=100*((N2-N1)/N1) 0070 PRINT # 255,0 ; D