home *** CD-ROM | disk | FTP | other *** search
-
- var
- curfd: text;
-
- procedure openfile(name: anystring);
- function endfile: boolean;
- procedure closefile;
- procedure getline(var line: longstring;
- len: integer{;
- what: anystring});
- procedure getstr(var str: longstring;
- len: integer{;
- what: anystring});
- procedure getstrd(var str: longstring);
- procedure getint(var i: integer{;
- what: anystring});
- procedure getflag(var f: boolean{;
- what: anystring});
- procedure vgetstr(var str: varstring);
- procedure vgetstrd(var str: varstring);
-
-