home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / drucktxt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  1.0 KB  |  43 lines
  1.  
  2. PROGRAM drucketext;
  3.  
  4. USES Printer, Crt;
  5.  
  6. CONST esc = #$1B;
  7.  
  8. VAR   name:String[20];
  9.     s:String[80];
  10.    ch:Char;
  11.     t:Text;
  12.    Ok:Boolean;
  13. BEGIN
  14.    Write(Lst,Chr(2));
  15.    ClrScr;
  16.    REPEAT
  17. Write('Zu druckender Text: ');
  18. Readln (name);
  19. Assign (t,name);
  20. {$I-} Reset(t);  {$I+}
  21. Ok:=IOResult=0;
  22. IF NOT Ok THEN Writeln (^G,'Datei nicht vorhanden !');
  23. UNTIL Ok;
  24. WHILE NOT Eof(t) DO BEGIN
  25. { lies zeilenweise den Text }
  26. Readln(t,s);
  27. IF Pos('.',s)=1 THEN CASE s[2] OF  { suche Steuerzeichen }
  28.            'F':    Write(Lst,Chr(12));        {FF}
  29.            'D':    Write(Lst,esc,'R',Chr(2)); {Deutsch}
  30.            'A':    Write(Lst,esc,'R',Chr(0)); {Ascii}
  31.            'e':    Write(Lst,esc,'M');        {Elite}
  32.            'p':    Write(Lst,esc,'P');        {Pica}
  33.            'd':    Write(Lst,esc,'G');        {Doppel}
  34.            'n':    Write(Lst,esc,'H');        {normal}
  35.            'I':    Write(Lst,esc,'4');        {Kursiv}
  36.            'i':    Write(Lst,esc,'5');        {Kursiv aus}
  37.           END
  38.        ELSE Writeln(Lst,s)
  39. END;
  40. Close(t)
  41. END.
  42.  
  43.