home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / ST_PASCA.LZH / USERLIB.PAS < prev    next >
Pascal/Delphi Source File  |  1987-04-22  |  455b  |  20 lines
  1. procedure dgetpath(var path:string; drive:integer);
  2. external;
  3. (*
  4.    v stringu path se vrne trenutni poddirektorij na
  5.    podanem driveu - drive: 0 = default
  6.                            1 = A
  7.                            2 = B ...
  8. *)
  9.  
  10. function file_exists(fname:string):boolean;
  11. external;
  12. (*
  13.    funkcija vrne true ce datoteka obstaja v
  14.    trenurnem direktoriju, false ce je ni
  15. *)
  16.  
  17. function random(x:integer):integer;  (* 0 - x *)
  18. external;
  19.  
  20.