home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / dataus.pas next >
Pascal/Delphi Source File  |  1989-11-30  |  1KB  |  43 lines
  1. (*--------------------------------------------------------*)
  2. (*                   DATAUS.PAS                           *)
  3. (*        Programm zur Datenübertragung beim APPLE        *)
  4. (*                 Turbo Pascal 3.0                       *)
  5. (*          (C) 1990 Alfred Mühleisen & TOOLBOX           *)
  6. (*--------------------------------------------------------*)
  7.  
  8. PROGRAM DATAUS;
  9.  
  10. VAR H        : INTEGER;
  11.     CH       : CHAR;
  12.     FILENAME : STRING[80];
  13.     DATEI    : TEXT;
  14.  
  15. BEGIN
  16.   CLRSCR;
  17.   WRITELN('Datenübertragung APPLE --> TANDON');
  18.   WRITELN;
  19.   WRITE('Name der Textdatei zum Lesen: ');
  20.   READLN(FILENAME);
  21.   ASSIGN(DATEI,FILENAME);
  22.   RESET(DATEI);
  23.   WHILE NOT EOF(DATEI) DO
  24.   BEGIN
  25.     READ(DATEI,CH);
  26.     WRITE(AUX,CH);
  27.     READ(AUX,CH);
  28.     WRITE(CH);
  29.     { Den nachfolgenden Programmcode einfügen für Dateien,
  30.       die mit APDOS aus APPLE-DOS nach CP/M
  31.       konvertiert wurden; es fehlt dann LF nach CR }
  32.   { IF CH = #13 THEN
  33.     BEGIN
  34.       CH := #10;
  35.       WRITE(AUX,CH);
  36.       READ(AUX,CH);
  37.       WRITE(CH)
  38.     END }
  39.   END;
  40.   CLOSE(DATEI);
  41.   WRITE(AUX,^Z)
  42. END.
  43.