Word wheel: Difference between revisions
m
→{{header|Pascal}}
m (→{{header|Phix}}: use unix_dict()) |
|||
Line 1,840:
uses
const
Line 1,855:
begin
AssignFile(WordFile, WordListFN);
Reset(WordFile);
except
writeln('Could not open dictionary file: ' + WordListFN);
exit;
end;
Line 1,891:
{ exercise the procedure }
begin
search('NDE' + 'OKG' + 'ELW');
end.
</lang>
|