It's a zip file.

Pascal looks like:

Code:
... Procedure EndGraph;
Begin
  CloseGraph
End;


(* Draw semilog Axis *)
Procedure AxisLog(Dir : Dimension;
                  Mmin,Mmax :Single  ;
                  Plot_L,Plot_R,Plot_T,Plot_B: integer;
                  AxisLabel : string);
(* Draw semilog Axis *)

(* This proceedure will draw a semilog axis to fit the points of a
   function begining at Mmin and ending at Mmax, according to
   plot specifications. *)
...
Were you dropped on your head as a child?