|
esitoF = f_mkdir("/machine3")
if(esitoF = 0)
esitoF = f_mkdir("/machine3/par")
if(esitoF = 0)
esitoF = f_mkdir("/machine3/par/ax1")
if(esitoF <> 0)
; set diagnostic "/machine3/par/ax1"
....
endif
esitoF = f_mkdir("/machine3/par/ax2")
if(esitoF <> 0)
; set diagnostic on "/machine3/par/ax2"
....
endif
esitoF = f_mkdir("/machine3/par/ax2")
if(esitoF <> 0)
; set diagnostic on "/machine3/par/ax3"
....
endif
else
; set diagnostic on "/machine3/par"
....
endif
esitoF = f_mkdir("/machine3/ric")
if(esitoF <> 0)
; set diagnostic "/machine3/ric"
....
endif
esitoF = f_mkdir("/machine3/doc")
if(esitof <> 0)
; set diagnostic "/machine3/doc"
....
endif
else
; set diagnostic on "/machine3"
....
endif
|
