home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / nrpas / scrsho.dem < prev    next >
Encoding:
Text File  |  1994-04-11  |  217 b   |  17 lines
  1. PROGRAM d9r1(input,output);
  2. (* driver for routine SCRSHO *)
  3.  
  4. (*$I MODFILE.PAS *)
  5. (*$I BESSJ0.PAS *)
  6.  
  7. FUNCTION fx(x: real): real;
  8. BEGIN
  9.    fx := bessj0(x)
  10. END;
  11.  
  12. (*$I SCRSHO.PAS *)
  13.  
  14. BEGIN
  15.    scrsho
  16. END.
  17.