home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / XWORDTST.ZIP / XWORDB.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-06-07  |  1.1 KB  |  41 lines
  1. l = INSTR(COMMAND$, " ")
  2. T$ = UCASE$(COMMAND$)
  3. IF l > 1 THEN e$ = MID$(T$, l + 1): l = l - 1: T$ = LEFT$(T$, l) ELSE l = LEN(T$)
  4. IF (l < 2) OR (l > 18) THEN PRINT "Syntax ?X?X": END
  5. n$ = "WORDS" + MID$(STR$(l), 2) + ".DAT"
  6. PRINT "Searching "; n$; " for "; T$;
  7. IF LEN(e$) = 0 THEN PRINT  ELSE PRINT " Excluding "; e$
  8. OPEN n$ FOR INPUT AS #1
  9. WHILE NOT EOF(1)
  10. f% = 0
  11. INPUT #1, A$
  12. IF LEN(e$) > 0 THEN
  13.         FOR i = 1 TO LEN(e$)
  14.         IF INSTR(A$, MID$(e$, i, 1)) THEN f% = 1
  15.         NEXT i
  16. END IF
  17. IF f% = 0 THEN
  18.         FOR i = 1 TO l
  19.         IF MID$(T$, i, 1) = "?" THEN f% = f% + 1 ELSE IF MID$(A$, i, 1) = MID$(T$, i, 1) THEN f% = f% + 1
  20.         NEXT i
  21.         IF f% = l THEN
  22.                 FOR i = 1 TO l
  23.                 FOR j = 1 TO l
  24.                 IF j <> i THEN IF MID$(A$, i, 1) = MID$(T$, j, 1) THEN IF MID$(T$, i, 1) <> MID$(T$, j, 1) THEN COLOR 6
  25.                 NEXT j, i
  26.                 PRINT A$; "  ";
  27.                 COLOR 7
  28.                 IF POS(0) > 79 - l THEN PRINT
  29.         END IF
  30.  
  31. END IF
  32. WEND
  33. PRINT
  34. CLOSE #1
  35. END
  36.  
  37.  
  38.  
  39.  
  40.  
  41.