home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TP002.ZIP / NEARMISS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-06-24  |  166 b   |  10 lines
  1. Program TestNearMiss;
  2. type
  3. AnyStr = String[30];
  4. VAR
  5. TestString : AnyStr;
  6. {$I NearMiss.Inc}
  7. BEGIN
  8. Readln(TestString);
  9. Writeln(NearMiss(TestString):4:0);
  10. End.