In a message dated 08 Apr 96, Colin Urquhart of 3:620/247 wrote:

 CU> function IsItBlank(s:string):boolean;
 CU>          var loc:byte;
 CU>          begin
 CU>          loc:=0;
 CU>          repeat
 CU>             loc:=loc+1;
 CU>          until (loc > length(s)) or (s[loc]' ');
 CU>          IsItBlank:=(loc > length(s));
 CU>          end;

So why exactly are you sending this to me? I assume there is someone else out
there who wanted it :-]

     -Glenn Crouch
      Sysop, Algorithms Anonymous (090) 93-3145 (Australia)
      3:690/643.3
      esbglenn{at}acslink.net.au

---