home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1201 / hp500.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-02-20  |  2.7 KB  |  76 lines
  1. { FREEWARE - HP500 wird benötigt, um die Dokumention von FFormat V2.3
  2.              auf HP DeskJet-Druckern auszudrucken.
  3.  
  4.   HP500 funktioniert NUR mit dem HP DeskJet (+, 500, 500C, 550C )
  5.  
  6.   Um die Dokumentaion auszudrucken, bitte dieses Programm aufrufen,
  7.   und danach die Dokumentation, wie in der Datei LIESMICH.1ST beschrieben,
  8.   ausdrucken.
  9.  
  10.   Wenn Sie die Dokumentation ohne dieses Programm ausdrucken kann es sein,
  11.   daß Leerblätter ausgeworfen werden !!!
  12.  
  13.   Dieses Programm darf frei weitergegeben werden...
  14.  
  15.   Autor: Alexander Wolf
  16.          Lange Str. 57
  17.          D-7500 Karlsruhe 51
  18.  
  19.          Telefon: (0721) 88 81 96
  20.          Telefax: (0721) 89 12 34
  21. }
  22.  
  23. {$I-,G-}
  24.  
  25. uses crt, printer;
  26.  
  27. var x  : byte;
  28.     ch : char;
  29.  
  30. begin
  31.   writeln;
  32.   writeln(' Dieses Programm stellt Drucker der HP DeskJet Serie so ein,');
  33.   writeln(' daß die FFormat V2.3 Dokumentaion ohne Probleme gedruckt werden kann.');
  34.  
  35.   write  (' Weiter (J/N) ??');
  36.  
  37.   repeat
  38.     ch:=UpCase(ReadKey);
  39.   until (ch in ['J','N']);
  40.  
  41.   writeln(ch,#13,#10);
  42.  
  43.   if (ch = 'N') then begin
  44.     writeln(' Programm beendet, ohne den Drucker umzustellen !!');
  45.     halt(128);
  46.   end;
  47.  
  48.   write(lst,'&k1W');                      { Bidirektionale Druckrichtung }
  49.   write(lst,'&s1C');                      { Zeilenumbruch AUS            }
  50.   write(lst,'&l26A');                     { DIN A4 - Papier              }
  51.   write(lst,'&l0O');                      { Hochformat                   }
  52.   x:=70; write(lst,'&l',x,'P');           { Zeilen / Seite (70)          }
  53.   write(lst,'&l0L');                      { Perforationssprung AUS       }
  54.   x:=1;  write(lst,'&l',x,'E');           { Oberer Rand (1)              }
  55.   write(lst,'');                         { Seitenränder löschen         }
  56.   write(lst,'&k6W');                      { Text-Scale-Modus EIN         }
  57.   write(lst,'(10U');                      { Zeichensatz                  }
  58.   write(lst,'(s0P');                      { feststehender ZeichenAbstand }
  59.   write(lst,'(s0S');                      { aufrechte Schrift            }
  60.   write(lst,'(s0B');                      { normale Strichstärke         }
  61.   write(lst,'(s4101T');                   { Schriftart (CG Times)        }
  62.   write(lst,'(s2Q');                      { Druckqualität - Letter       }
  63.  
  64. { write(lst,'(s1Q');                    { Druckqualität - Draft        }
  65.  
  66.   if (ioresult <> 0) then begin
  67.     writeln(' Fehler !!');
  68.     writeln(' Drucker nicht angeschaltet ??');
  69.   end else begin
  70.     writeln(' Alles OK !!');
  71.     writeln(' Sie können jetzt die FFormat V2.3 Dokumentation ausdrucken...');
  72.   end;
  73.  
  74.   writeln(#13,#10,' Programm beendet...');
  75.  
  76. end.