Path: utzoo!attcan!uunet!tektronix!percival!bucket!leonard
From: leonard@bucket.UUCP (Leonard Erickson)
Newsgroups: comp.lang.pascal
Subject: Re: Converting Strings to Char
Message-ID: <1284@bucket.UUCP>
Date: 28 Feb 89 23:27:51 GMT
References: <459@loligo.cc.fsu.edu> <950017@hpcllmr.HP.COM> <1701@westfort.UUCP>
Reply-To: leonard@bucket.UUCP (Leonard Erickson)
Organization: Rick's Home Grown Unix; Portland, OR
Lines: 26

In article <1701@westfort.UUCP> westfort!dragon@tut.cis.ohio-state.edu writes:
<procedure send(ch:char);
<
<var t:registers;
<begin
<  t.ah:=$0b;
<  t.al:=ord(ch);
<  foss(t);
< end;
<
<  for x:=1 to length(s) do begin
<    sd:=copy(s,x,1);
<    send(sd);    (*  The problem.. Can't send a string through as a char.. *)
<   end;
<  end;

Try this:
  for x := 1 to length(s) do
    send(s[x]);

Always remember, strings are arrays!
-- 
Leonard Erickson		...!tektronix!reed!percival!bucket!leonard
CIS: [70465,203]
"I'm all in favor of keeping dangerous weapons out of the hands of fools.
Let's start with typewriters." -- Solomon Short