CONTANDO E METTENDO TUTTE LE CONSONANTI DEL NOME IN UN STRINGA DI NOME "C"
.
.
POS:=1
IF(CONTATORE>3)  \\*Solo quando le consonanti sono maggiori di 3*\\
   CONS:=SUBSTR(C,POS,1)  \\*Prendo la prima consonanste e la metto nel codice fiscale*\\
      COD_FISC:=COD_FISC||CONS
      POS:=POS+2   \\*Passo direttamente alla terza consonante,pos+2 poichè la seconda si zompa!*\\
      CONT:=1
      WHILE(CONT=2)  \\*Metto le altre due consonanti*\\
            LOOP
            CONS:=SUBSTR(C,POS,1)
            COD_FISC:=COD_FISC||CONS
            POS:=POS+1
            CONT:=CONT+1
            END LOOP
END IF