2 c Ceci est la liste des caracteres interdits comme premiere
3 c lettre pour le nom d'un objet GM defini par l'utilisateur
5 c ncainx : nombre de caracteres interdits
8 parameter ( ncainx = 4 )
10 character*1 caint1, caint2, caint3, caint4
12 parameter ( caint1 = '%' )
13 parameter ( caint2 = '$' )
14 parameter ( caint3 = '&' )
15 parameter ( caint4 = ' ' )