added rcsid

lang/pc/test/machar.p

@@ -1,3 +1,5 @@
+{ $Header$ }
+
 procedure machar (var ibeta , it , irnd , ngrd , machep , negep , iexp,
   minexp , maxexp : integer ; var eps , epsneg , xmin , xmax : real ) ;
 var trapped:boolean;

lang/pc/test/t1.p

@@ -20,7 +20,9 @@ program t1(input,output);
 
 { 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

lang/pc/test/t2.p

@@ -20,6 +20,7 @@ program t2(input,output);
 { 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 }

lang/pc/test/t3.p

@@ -19,6 +19,7 @@ program t3(input,output,f1,f2,f3,f4,f5,f6);
 
 { 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;

lang/pc/test/t4.p

@@ -18,6 +18,7 @@
 
 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

lang/pc/test/t5.p

@@ -1,5 +1,6 @@
 {$i1000}
 program test(output);
+const rcsversion='$Header$';
 var b:false..true;
     i:integer;
     s:set of 0..999;

lang/pc/test/tstenc.p

@@ -15,7 +15,8 @@
  
 }
 program tstenc(output);
-const   trapno=150;
+const   rcsversion='$Header$';
+	trapno=150;
 var     level:integer;
 	beenhere:boolean;
 	e:integer;