'lanceF.bas (Francais)

    DEFINT A-Z

    CLS
      INPUT "Combien de mots:"; nbm
      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$ + " -d" + LTRIM$(STR$(nbm)) + " -f fdico.txt  "
      cmdshell$ = cmdshell$ + "> result.dat"
      PRINT cmdshell$

      SHELL cmdshell$
      CLS
      OPEN "result.dat" FOR INPUT AS #1
      finit = 0
      DO
         LINE INPUT #1, ll$
         PRINT ll$
         a$ = INPUT$(1)
         SELECT CASE a$
            CASE "e"
              finit = -1
            CASE ELSE
         END SELECT
      LOOP UNTIL EOF(1) OR finit

      CLOSE