home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / DosDemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  847 b   |  33 lines
  1. { MAXONPascal3-Anpassung / Test:  Falk Zühlsdorff (PackMAN)  1994 }
  2.  
  3. Program DosDemo;
  4. USES DOS;
  5. Var
  6.   InFile, OutFile: BPTR;
  7.   St: String[1000];
  8.   Len, Len2: Long;
  9.   cl:long;
  10. Begin
  11.   InFile := Open('SYS:s/startup-sequence', MODE_OLDFILE);
  12.   If Infile = 0 Then
  13.     Error('Startup-sequence nicht gefunden!');
  14.   OutFile := DosOpen('ram:copy_of_startup-sequence', MODE_NEWFILE);
  15.   If Outfile = 0 Then
  16.     Begin
  17.       cl:=DosClose(InFile); Error('Ausgabedatei nicht geöffnet.')
  18.     End;
  19.   Len:= DosRead(InFile, ^St, 5000);
  20.   If Len = 5000 Then
  21.     writeln('Datei ist länger als 5000 Bytes')
  22.   Else
  23.     If Len = 0 Then
  24.       writeln('Lesefehler oder leere Datei.')
  25.     Else
  26.       Begin
  27.         Len2:= DosWrite(OutFile, ^St, Len);
  28.         If Len2 <> Len Then writeln('Fehler bei Ausgabe!')
  29.       End;
  30.   cl:=DosClose(InFile);
  31.   cl:=DosClose(OutFile)
  32. End.
  33.