home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / anwender / rsc / rscarc.exe / RSCBOOK.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-16  |  3KB  |  76 lines
  1. (***************************************************************************)
  2. (*    NAME: RSCBOOK.PAS                                                    *)
  3. (* VERSION: 1.0                                                            *)
  4. (* SPRACHE: TURBO-PASCAL ab 4.0                                            *)
  5. (*  GRAFIK: nur Text-Modus                                                 *)
  6. (*   AUTOR: Thomas Licht                                                   *)
  7. (*     (C): by AUTOR 08/89                                                 *)
  8. (*  UPDATE: 10.02.92                                                       *)
  9. (*                                                                         *)
  10. (*   ZWECK: Hilfsprogramm des Programmes RSC zum formatierten Ausdruck der *)
  11. (*          Dokumentationsdateien.                                         *)
  12. (*          Aufruf mit auszudruckender Datei als Kommandozeilen-Parameter  *)
  13. (***************************************************************************)
  14.  
  15. program RSC_handbuch;
  16.  
  17. const FF        = #12;   (* Steuercode für FormularFeed (Seitenvorschub) *)
  18.                          (* evtl. hier anderen eigenen Wert angeben !    *)
  19.       LM        = '   '; (* LeftMargin (linker Rand)                     *)
  20.                          (* evtl. hier anderen eigenen Wert angeben !    *)
  21.  
  22.       doubleON  = #27#71;   (* Steuercode für Doppeldruck-ein            *)
  23.       doubleOFF = #27#72;   (* Steuercode für Doppeldruck-aus            *)
  24.           NLQON = #27#120#1;(* Steuercode für NLQ-ein                    *)
  25.          NLQOFF = #27#120#0;(* Steuercode für NLQ-aus                    *)
  26.           ELITE = #27#77;
  27.            PICA = #27#80;
  28.          fettON = #27#69;
  29.         fettOFF = #27#70;
  30.           uniON = #27#85#1;
  31.          uniOFF = #27#85#0;
  32.                          (* evtl. hier andere eigene Werte angeben !     *)
  33.  
  34. var i : byte;
  35.     f,lst : text;
  36.     puffer : string;
  37.  
  38. begin
  39.  
  40.   Assign(lst,'PRN');
  41.   ReWrite(lst);
  42.   Assign(f,ParamStr(1));
  43.   (*$I-*) Reset(f); (*$I+*)
  44.   if IOResult <> 0 then
  45.     begin
  46.       Writeln('!!! '+ParamStr(1)+' Not Found !!!');
  47.       Halt(0);
  48.     end;
  49.   Writeln('!!! PrintOut Of '+ParamStr(1)+' In Progress !!!');
  50.  
  51. {  Write(lst,doubleON);
  52.   Write(lst,ELITE);
  53.   Write(lst,uniON);
  54.   Write(lst,NLQON);}
  55.  
  56.   i := 1;
  57.   While not EOF(f) do
  58.     begin
  59.       Readln(f,puffer);
  60.       Writeln(lst,LM+puffer);
  61.       Inc(i);
  62.       if i = 66 then
  63.         begin
  64.           Write(lst,FF);
  65.           i := 1;
  66.         end;
  67.     end;
  68.  
  69. {  Write(lst,doubleOFF);
  70.   Write(lst,PICA);
  71.   Write(lst,uniOFF);
  72.   Write(lst,NLQOFF);}
  73.  
  74.   Close(f);
  75.   Close(lst);
  76. end.     (* of programm Rechner_Handbuch *)