home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ucsdpecan.zip / fakeutil.text < prev    next >
Text File  |  1990-08-05  |  3KB  |  114 lines
  1.  
  2. unit kermutil;
  3.  
  4. { Change log:
  5. 30 Apr 89, V1.1: Created Fake version of KERMUTIL   RTC
  6. }
  7.  
  8. $I intfutil.text
  9.  
  10. procedure fill_parity_array;
  11.   begin end; (* fill_parity_array *)
  12.  
  13. procedure write_bool{s: string255; b: boolean};
  14.   begin end; (* write_bool *)
  15.  
  16. procedure show_parms;
  17.   begin end; (* show_sym *)
  18.  
  19. procedure set_parms;
  20.   begin end; (* set_parms *)
  21.  
  22. procedure connect;
  23.   begin (* connect *) end; (* connect *)
  24.  
  25. procedure uppercase(*var s: string255*);
  26.   begin end; (* uppercase *)
  27.  
  28. function read_ch(*unitno:integer; var ch: char): boolean*);
  29.   begin end; (* read_ch *)
  30.  
  31. procedure write_ch(*unitno: integer; ch: char*);
  32.   begin end;
  33.  
  34. procedure read_str(*unitno:integer; var s: string255*);
  35.   begin end; (* read_str *)
  36.  
  37. procedure clear_buf(*unitno:integer*);
  38.   begin end;
  39.  
  40. procedure send_brk;
  41.   begin end;
  42.  
  43. function setup_comm{ : boolean};
  44.   begin end;
  45.  
  46. procedure flush_comm;                {added 16 Apr 89, RTC}
  47.   begin {flush_comm} end {flush_comm};
  48.  
  49. function aand(*x,y: integer): integer*);
  50.   begin end; (* aand *)
  51.  
  52. function aor(*x,y: integer): integer*);
  53.   begin end; (* aor *)
  54.  
  55. function xor(*x,y: integer): integer*);
  56.   begin end; (* xor *)
  57.  
  58. procedure error(*p: packettype; len: integer*);
  59.   begin end; (* error *)
  60.  
  61. procedure io_error(*i: integer*);
  62.   begin end; (* io_error *)
  63.  
  64. procedure debugwrite(*s: string255*);
  65.   begin end; (* debugwrite *)
  66.  
  67. procedure debugint(*s: string255; i: integer*);
  68.   begin end; (* debugint *)
  69.  
  70. function min(*x,y: integer): integer*);
  71.   begin end; (* min *)
  72.  
  73. function tochar(*ch: char): char*);
  74.   begin end; (* tochar *)
  75.  
  76. function unchar(*ch: char): char*);
  77.   begin end; (* unchar *)
  78.  
  79. function ctl(*ch: char): char*);
  80.   begin end; (* ctl *)
  81.  
  82. procedure echo(*ch: char*);
  83.   begin end; (* echo *)
  84.  
  85. function getch(*var r: char): boolean*);
  86.   begin end; (* getch *)
  87.  
  88. function getsoh(*: boolean*);
  89.   begin end; (* getsoh *)
  90.  
  91. function getfil(*filename: string255): boolean*);
  92.   begin end; (* getfil *)
  93.  
  94. procedure writescreen(*s: string255*);
  95.   begin end; (* writescreen *)
  96.  
  97. procedure refresh_screen(*numtry, num: integer*);
  98.   begin end; (* refresh_screen *)
  99.  
  100. procedure set_timer{t : integer};    {added 26 Apr 89, RTC}
  101.   begin {set_timer} end {set_timer};
  102.  
  103. function timeout {: boolean};        {added 26 Apr 89, RTC}
  104.   begin {timeout} end {timeout};
  105.  
  106. procedure utl_version;
  107.   begin end {utl_version};
  108.  
  109. begin { body of unit kermutil }
  110.    { initialization code }
  111.    ***;
  112.    { termination code }
  113. end. { fakeutil }
  114.