81 lines
2.4 KiB
Plaintext
81 lines
2.4 KiB
Plaintext
Program DirectoryExamples;
|
||
|
||
{
|
||
DIRECTORY PROCEDURES DEMONSTRATION PROGRAM Version 1.00A
|
||
|
||
This program demonstrates the use of TURBO 3.0 directory procedures.
|
||
|
||
PSEUDO CODE
|
||
1. Get the current drive and directory
|
||
2. Repeat
|
||
Execute the selected TURBO directory procedure
|
||
until the user types "Q" or "0"
|
||
|
||
INSTRUCTIONS
|
||
1. Compile this program using the TURBO.COM compiler.
|
||
2. Manipulate the directory commands by selecting the menu options.
|
||
3. Type "Q" or "0" to exit the program.
|
||
}
|
||
|
||
Var
|
||
Path: String[64];
|
||
Ch: Char;
|
||
|
||
Begin
|
||
ch := '1'; { initialize loop variable }
|
||
Repeat
|
||
if Upcase(ch) IN ['1', 'M', '2', 'R', '3', 'C', '0', 'Q'] then
|
||
begin
|
||
ClrScr;
|
||
GetDir(0,Path); { Get the current directory of the current drive.
|
||
Note that 0 for the first variable means the current
|
||
drive, not A:. 1 means A: and so on. This is contrary
|
||
to the manual }
|
||
WriteLn('Current directory is ',Path);
|
||
Writeln;
|
||
WriteLn('Choose option: ');
|
||
WriteLn(' 1: Make a directory');
|
||
WriteLn(' 2: Remove a directory');
|
||
WriteLn(' 3: Change the current directory');
|
||
WriteLn(' 0: Quit');
|
||
Writeln;
|
||
Write('Option: ');
|
||
Read(Kbd,Ch);
|
||
|
||
{$I-}
|
||
Case Upcase(Ch) Of
|
||
'1','M': Begin
|
||
WriteLn('Make');
|
||
Write('Make what directory? ');
|
||
Readln(path);
|
||
MkDir(Path);
|
||
End;
|
||
'2','R': Begin
|
||
WriteLn('Remove');
|
||
Write('Remove what directory? ');
|
||
Readln(path);
|
||
RmDir(Path);
|
||
End;
|
||
'3','C': Begin
|
||
WriteLn('Change');
|
||
Writeln;
|
||
Write('Change to what directory? ');
|
||
Readln(path);
|
||
ChDir(Path);
|
||
End;
|
||
'0','Q': WriteLn('Quit');
|
||
Else
|
||
End; { case }
|
||
|
||
{$I+}
|
||
If IOResult<>0 Then
|
||
begin
|
||
Write('*** Error: ', path);
|
||
delay(3000);
|
||
end;
|
||
end { if }
|
||
else
|
||
read(kbd, ch)
|
||
Until Upcase(Ch) In ['0','Q', #27];
|
||
End.
|
||
|