PROGRAM d9r1(input,output);
(* driver for routine SCRSHO *)

(*$I MODFILE.PAS *)
(*$I BESSJ0.PAS *)

FUNCTION fx(x: real): real;
BEGIN
   fx := bessj0(x)
END;

(*$I SCRSHO.PAS *)

BEGIN
   scrsho
END.