{ MAXONPascal3-Anpassung / Test:  Falk Zühlsdorff (PackMAN)  1994 }

Program DosDemo;
USES DOS;
Var
  InFile, OutFile: BPTR;
  St: String[1000];
  Len, Len2: Long;
  cl:long;
Begin
  InFile := Open('SYS: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
      cl:=DosClose(InFile); Error('Ausgabedatei nicht geöffnet.')
    End;
  Len:= DosRead(InFile, ^St, 5000);
  If Len = 5000 Then
    writeln('Datei ist länger als 5000 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;
  cl:=DosClose(InFile);
  cl:=DosClose(OutFile)
End.