home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
ipo-101.zip
/
Samples.zip
/
BATCH.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-09-06
|
502b
|
20 lines
(*
** This program is a primitive batch processor.
** It sends each line in the input file to the command processor.
*)
program batch(f, output);
var
f : text;
s : string;
err : integer;
begin
reset(f); (* open input file or standard input file *)
while not eof(f) do
begin
readln(f, s);
writeln('Executing ', s);
err := system(s); (* Pass 's' to the command processor *)
writeln('Error code is ', err)
end
end.