Path: utzoo!mnetor!uunet!mcvax!cernvax!hjm
From: hjm@cernvax.UUCP (hjm)
Newsgroups: comp.os.vms
Subject: Re: pascal strings
Message-ID: <663@cernvax.UUCP>
Date: 5 May 88 15:22:45 GMT
References: <8805021136.AA05274@decwrl.dec.com>
Reply-To: hjm@cernvax.UUCP (Hubert Matthews)
Organization: CERN European Laboratory for Particle Physics, CH-1211 Geneva, Switzerland
Lines: 31

Hi guys,

     Two minutes inside a big friendly orange manual (PASCAL User's Guide)
showed me the *real* way to do this.  Neat, huh!  No blurb, just code ...

==============================================================================
program foo(input, output);

procedure wr( s : [class_s] packed array [a..b : integer] of char);
begin
  writeln('"',s,'" starts at ',a:1,' and goes to ',b:1)
end;

begin
  wr('Hello world!')
end.
==============================================================================

gives the expected response:

"Hello world!" starts at 1 and goes to 12

I hope that solves everyone's problems on VAX PASCAL strings (PASCAL V3.5)

	Hubert Matthews
	CERN
	1211 Geneva 23
	Switzerland

"Please note that the code expressed here is entirely MY code and does not
reflect the code of my employer"