+{ $Header$ }
+
procedure machar (var ibeta , it , irnd , ngrd , machep , negep , iexp,
minexp , maxexp : integer ; var eps , epsneg , xmin , xmax : real ) ;
var trapped:boolean;
{ This program can be used to test out PASCAL compilers }
-const ONE=1; TWO=2; TEN=10; FIFTY=50; MINONE=-1;
+const
+ rcsversion='$Header$';
+ ONE=1; TWO=2; TEN=10; FIFTY=50; MINONE=-1;
#ifndef NOFLOAT
RR1=1.0; RR1H=1.5; RR2=2.0; RR3=3.0; RR4=4.0; RRMINONE=-1.0;
#endif
{ This program can be used to test out PASCAL compilers }
const
+ rcsversion='$Header$';
kew='q';
#ifndef NOFLOAT
eps = 2.0e-7; { This constant is machine dependent }
{ The Berkeley and EM-1 compilers both can handle this program }
+const rcsversion='$Header$';
type wavelength = (red,blue,yellow,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,
pink,green,orange);
spectrum= set of wavelength;
program t4(input,output);
{ Tests for the EM-1 compiler }
+const rcsversion='$Header$';
type vec = array[1..1000] of integer;
spectrum = set of (red,blue,yellow);
#ifndef NOFLOAT
{$i1000}
program test(output);
+const rcsversion='$Header$';
var b:false..true;
i:integer;
s:set of 0..999;
}
program tstenc(output);
-const trapno=150;
+const rcsversion='$Header$';
+ trapno=150;
var level:integer;
beenhere:boolean;
e:integer;