![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395164x1.png)
7
The Pascal procedure, SampRef, in the file, Samp.p
Simple Types without the -xl Option
Without the
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 |