Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!spool.mu.edu!uunet!orca!javelin.sim.es.com!tpehrson
From: tpehrson@javelin.sim.es.com (Tim Clinkenpeel)
Newsgroups: comp.lang.pascal
Subject: What's wrong with this:
Message-ID: <1991Apr20.011454.25016@javelin.sim.es.com>
Date: 20 Apr 91 01:14:54 GMT
Reply-To: tpehrson@javelin.sim.es.com
Organization: Evans & Sutherland Computer Corp., Salt Lake City, Utah
Lines: 25

hi, it's me again.  please DO NOT respond with email, as my last question 
received over 30 responses.

why doesn't this work:

function upper(I:string):string;
 var z:integer; 
 begin
  for z:=1 to length(I) do
  if (ord(I[z])>96) and (ord(I[z])<123) then I[z]:=upcase(I[z]);
 end;

i have a feeling i'm overlooking the obvious (to people with a decent text).
in the index under function pages are referenced like this one (entire page
quoted):
 "In this chapter we will be discussing functions"
however, the discussion of functions is superficial at best.  NOTE: i have
deemed my text fit only for fire fodder at this point.

and, as always, thank you for your response.
-- 
one two! one two! & through & through /=============================/ hear your
the vorpal blade went snicker-snack! / tpehrson@javelin.sim.es.com / death boon 
he left it dead, and with his head  /=====aka: tim clinkenpeel====/ the wail of
he went galumphing back [DISCLAIMER: send SASE to: disclaimer, 84151-0521] DOOM