PDP-10 Archive: uetp/lib/pas2p.pas from BB-P557A-BM

Trailing-Edge - PDP-10 Archives - BB-P557A-BM_1983 - uetp/lib/pas2p.pas

There are no other files named pas2p.pas in the archive.

{<PASCAL.UETP>PAS2P.PAS.3, 27-Dec-82 10:20:11, Edit by PROBINSON}
{Remove booleans - Pascal and Fortran are too different}
(*LANG:<KOHLBRENNER.TST>PAS2P.PAS.2 19-Aug-81 09:11:59, Edit by KOHLBRENNER *)
(* COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *)
module ts0169;

[fortran]procedure pastst(var int:integer;
			  var rel:real;
			  var dob:double);
begin
    if int = 46 then int := 47;
    if rel = 7.23 then rel := 8.23;
    if dob = 4.23456 then dob := 5.23456;
end;
end.