![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395175x1.png)
7
The Pascal procedure,
SimVal.p
Simple Types without the
Without the
procedure SimVal( t, f: boolean;
c:char;
si:integer16;
i:integer;
sr:shortreal;
r:real;
var Reply: integer);
begin |
|
| |
Reply | := | 0; | |
if | t | then | |
| Reply := Reply + 1; | ||
if | not f | then | |
| Reply := Reply + 8 | ||
if | c='z' | then | |
| Reply := Reply + 64; | ||
if | si=9 | then | |
| Reply := Reply + 512; | ||
if | i=9 then | ||
| Reply := Reply + 4096; | ||
if | sr=shortreal(9.9) then | ||
| Reply := Reply + 32768; | ||
if | r=9.9 | then | |
| Reply | := Reply + 262144; |
end;
The | 151 |