home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / 3dgraf / plot / sk2plt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-02  |  2.0 KB  |  61 lines
  1. (* ---------------------------------------------------------- *)
  2. (*                         Sk2Plt.PAS                         *)
  3. (*              (C) 1992 N. Braun und DMV-Verlag              *)
  4. (*                Compiler: Turbo Pascal 6.0                  *)
  5. (* überschreibt die (überflüssigen) ersten 4 Zeichen in einer *)
  6. (* von AutoSketch erstellten Plotdatei, damit die Datei von   *)
  7. (* Plot verwendet werden kann.                                *)
  8. (* ---------------------------------------------------------- *)
  9.  
  10. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-,M 1024,0,0}
  11.  
  12. PROGRAM Autosketch2PlotConverter;
  13.  
  14. VAR
  15.   f     : FILE OF CHAR;
  16.   fname : STRING[79];
  17. CONST
  18.   Modified : BOOLEAN = FALSE;
  19.  
  20. PROCEDURE ModifyChar(OrgCh: CHAR; Pos: BYTE);
  21. VAR
  22.   ch: CHAR;
  23. BEGIN
  24.   Seek(f, Pos - 1);
  25.   Read(f, ch);
  26.   If ch = OrgCh THEN BEGIN
  27.     Seek(f, Pos - 1);
  28.     ch := ' ';
  29.     Write(f, ch);
  30.     Modified := TRUE;
  31.   END;
  32. END;
  33.  
  34. BEGIN
  35.   WriteLn('Sk2Plt v1.0 (C) 1992 N. Braun & DMV-Verlag');
  36.   IF ParamCount > 0 THEN BEGIN
  37.     fname := ParamStr(1);
  38.     IF Pos('.', fname) = 0 THEN fname := fname + '.PLT';
  39.     Assign(f, fname);
  40.     Reset(f);
  41.     {$I+}
  42.     IF IOResult = 0 THEN BEGIN
  43.       ModifyChar(#27, 1);   (* Ändern der ersten 4 Zeichen    *)
  44.       ModifyChar('.', 2);   (* in einer Autosketch-Plotdatei  *)
  45.       ModifyChar('(', 3);   (* für das Bildschirmplotprogramm *)
  46.       ModifyChar(';', 4);   (* »Plot.pas«                     *)
  47.       Close(f);
  48.       IF Modified THEN
  49.         WriteLn('Datei ', fname, ' wurde modifiziert')
  50.       ELSE BEGIN
  51.         WriteLn('Keine Modifikation vorgenommen.');
  52.         WriteLn('Datei ist schon angepaßt oder');
  53.         Writeln('keine Autosketch-Plotdatei.');
  54.       END;
  55.     END ELSE WriteLn('Fehler beim Lesen der Datei!');
  56.   END ELSE WriteLn('Aufruf: Sk2PLT datei.ext');
  57. END.
  58.  
  59. (* ---------------------------------------------------------- *)
  60. (*                     Ende von Sk2Plt.PAS                    *)
  61.