7

The Pascal procedure, SampRef, in the file, Samp.p

Simple Types without the -xlOption

Without the -xloption, simple types match, as in the following example:

procedure SamRef ( var t, f: boolean; var c: char;

var i: integer;

var s: integer16;

var r: shortreal;

var d: real );

begin

 

t

:=

true;

f

:=

false;

c

:=

'z';

i

:=

9;

s

:=

9;

r

:=

9.9;

d

:=

9.9;

end;

 

 

140

Pascal 4.0 User’s Guide