COPYDEMO.P

[Table of Contents]

COPYDEMO.P is a demo program from the Kyan Pascal 2.x Utilities Disk 2.

Source Code

program copydemo(input,output);
    type
       pathstring=array[1..20] of char;
    var
       from,till:pathstring;
       r:integer;
#i adddev.i
#i copy.i
    begin
       from:='source              ';
       till:='d1:dest             ';
       r:=copy(from,till);
       writeln(r);
end.