10 lines
122 B
C
10 lines
122 B
C
|
#include <pc_file.h>
|
||
|
|
|
||
|
|
extern _cls();
|
||
|
|
|
||
|
|
/* procedure pclose(var f:file of ??); */
|
||
|
|
|
||
|
|
pclose(f) struct file *f; {
|
||
|
|
_cls(f);
|
||
|
|
}
|