blob: a1711d51cdbfed6e467690e853858f9ef6f103fb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# MKDIR -- Make a directory. (May be an IRAF VFN or an OS directory spec)
procedure t_mkdir ()
char newdir[SZ_FNAME]
begin
call clgstr ("newdir", newdir, SZ_FNAME)
call fmkdir (newdir)
end
|
