'lance.bas

    DEFINT A-Z

    CLS
      INPUT "Texte"; txti$
      tt$ = ""
      FOR i = 1 TO LEN(txti$)
         c$ = MID$(txti$, i, 1)
         SELECT CASE c$
           CASE " "
           CASE ELSE
             tt$ = tt$ + c$
         END SELECT
      NEXT i

      cmdshell$ = "Wordplay " + tt$ + " -d3 -f fdico.txt > " + LEFT$(tt$, 8) + ".txt"
      PRINT cmdshell$

      SHELL cmdshell$