3
{ Program to demonstrate the MkDir and RmDir functions. }
5
Const D : String[8] = 'TEST.DIR';
10
Writeln ('Making directory ',D);
12
Writeln ('Changing directory to ',D);
15
Writeln ('Current Directory is : ',S);
16
WRiteln ('Going back');
18
Writeln ('Removing directory ',D);