home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / SCRSHO.DEM < prev    next >
Encoding:
Text File  |  1991-04-29  |  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.