Des nouvelles de Linguassista.

    public String string$(int longueur,String chaine$)
              {
              String temporaire$="";
              if (egale(chaine$,"-"))
                {
                temporaire$=left$(suite_tirets$,longueur);
                }
                    else
                {
                for (int zzz=1;zzz<=longueur;zzz++) {temporaire$+=chaine$;}
                }
              return temporaire$;
              }

      public String trim$(String chaine$)
              {
              // OK
              return chaine$.trim();
              }

      public String left$(String chaine$,int l)
              {
              // OK
              if (l>chaine$.length()) return chaine$; else return chaine$.substring(0,l);
              }

      public String right$(String chaine$,int l)
              {
              // OK   
              return chaine$.substring(chaine$.length()-l);
              }

      public String right_pos$(String chaine$,int l)
              {
              // OK
              return chaine$.substring(l-1);
              }

      public String mid$(String chaine$,int position,int longueur)
              {
              // OK
              // Le second terme de substring est la position finale, et non la longueur.
         if (position+longueur-1<=len(chaine$))
                {
                return chaine$.substring(position-1,position+longueur-1);
                }
                    else
                {
                return chaine$.substring(position-1);
                }
              }

        public int len(String chaine$)
              {
              // OK   
              if (chaine$.equals("")) return 0; else return chaine$.length();
              }

        public int ascii(String chaine$,int n)
              {
              // Code ascii du caractère en position n.
              // Le 1er caractère de la chaîne étant en position 1 ici.
              char ch=chaine$.charAt(n-1);
              int ascii=ch;
              return ascii;
              }

        public int instr(String chaine1$,String chaine2$)
              {
              // OK   
              return chaine1$.indexOf(chaine2$)+1;
              }
             
        public int numeric(String chaine$)
              {
              // OK   
              return sgn(instr("0123456789",left$(chaine$,1)));
              }

        public String str$(int valeur)
              {
              // OK   
              return ""+valeur;
              }

        public String lower$(String chaine$)
              {
              return chaine$.toLowerCase();
              }

        public String upper$(String chaine$)
              {
              return chaine$.toUpperCase();
              }

        public int val(String chaine$)
              {
              // OK   
              return Integer.parseInt(chaine$);
              }