home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PASCAL / PAS2C.ZIP / TURBO.USE < prev   
Encoding:
Text File  |  1987-10-21  |  1.7 KB  |  59 lines
  1. const
  2. (*    pi = 3.14159265;*)
  3.     maxint = 32767;
  4.     true = 1;
  5.     false = 0;
  6.     t_o = -2;
  7.     e_n_d = -1;
  8.  
  9. type
  10.     text = file of char;
  11.     untyped = array [0..1] of char;
  12.  
  13. var
  14.     p2c_tstr : string[255];
  15.     kbd,lst,aux,con,prn,usr,trm : text;
  16.     port : array [0..1] of integer;
  17.     portw : array [0..1] of integer;
  18.  
  19. function arctan (r : real) : real;
  20. function cos (r : real) : real;
  21. function exp (r : real) : real;
  22. function frac (r : real) : real;
  23. function ln (r : real) : real;
  24. function sin (r : real) : real;
  25. function sqr (r : real) : real;
  26. function sqrt (r : real) : real;
  27.  
  28. function odd (i : integer) : boolean;
  29. function pred (i : integer) : integer;
  30. function succ (i : integer) : integer;
  31.  
  32. function round (r : real) : integer;
  33. function trunc (r : real) : integer;
  34.  
  35. procedure delete (st : string; pos, num : integer);
  36. procedure insert (obj, target : string; pos : integer);
  37. function copy (st : string; pos,num : integer) : string;
  38. function length (st : string) : integer;
  39. function pos (obj,target : string) : integer;
  40.  
  41.  
  42. function paramcount : integer;
  43. function paramstr (i : integer) : string;
  44.  
  45. procedure delay (s : integer);
  46. function addr (name : integer) : integer;
  47. procedure fillchar (var v : string; n : integer; c : char);
  48. function hi (i : integer) : integer;
  49. function lo (i : integer) : integer;
  50. procedure move (var v1 : string; v2 : string; n : integer);
  51. function random : integer;
  52. function seekeof (filvar : file) : boolean;
  53. function seekeoln (filvar : file) : boolean;
  54. function swap (i : integer) : integer;
  55. (*function upcase (ch : char) : char;*)
  56. procedure val (st : string; var value : real; var code : integer);
  57.  
  58. end:
  59.