![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395223x1.png)
8
The Pascal main program, SimValmain.p
The commands to compile and execute SimVal.f and
SimValmain.p
program SimVal(output);
var
t:boolean := true;
f:boolean := false;
c:char := 'z';
i:integer := 9;
r:real := 9.9;
s:integer16 := 9; args: integer;
procedure simval(t, f: boolean; c: char; i: integer;
r:real; s: integer16; var reply: integer); external fortran;
begin
simval(t, f, c, i, r, s, args);
writeln('args=', args: 6 oct, ' (If nth digit=1, arg n OK.)') end. { SimVal }
hostname% f77
simval:
hostname% pc SimVal.o SimValmain.p
args=111111 (If nth digit=1, arg n OK.)
The | 199 |