Design
letters.lst
Associated article: Letters
Tags: Design
_Letters to the Editor_
[LISTING ONE, FROM KARL BRENDEL]
TYPE CompType = (LessThan,Equal,GreaterThan);
FUNCTION Comp(VAR s1, s2, sh1, sh2 : SymString;
CaseSen : BOOLEAN) : CompType;
{ sh1/sh2 are UpShift(s1/s2) }
BEGIN
IF CaseSen THEN BEGIN
IF sh1 < sh2 ...


