Program DosDemo;
{$incl "libraries/dos.h" }
Var
  InFile, OutFile: Long;
  St: String[1000];
  Len, Len2: Long;
Begin
  InFile := Open('S:Startup-sequence', MODE_OLDFILE);
  If Infile = 0 Then
    Error('Startup-sequence nicht gefunden!');
  OutFile := DosOpen('ram:copy_of_startup-sequence', MODE_NEWFILE);
  If Outfile = 0 Then
    Begin
      DosClose(InFile); Error('Ausgabedatei nicht geöffnet.')
    End;
  Len:= DosRead(InFile, ^St, 1000);
  If Len = 1000 Then
    writeln('Datei ist länger als 1000 Bytes')
  Else
    If Len = 0 Then
      writeln('Lesefehler oder leere Datei.')
    Else
      Begin
        Len2:= DosWrite(OutFile, ^St, Len);
        If Len2 <> Len Then writeln('Fehler bei Ausgabe!')
      End;
  DosClose(InFile);
  DosClose(OutFile)
End.