0001 ! (c) PPC Paris et l'auteur, 1987
0010 ! PCT9(ÅlÅment,case total), %T, 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 ; P,T
0060 P=P*100/T
0070 PRINT # 255,0 ; P