home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / doshelp / fdir / entpack.exe / !FDIR23.EXE / HP500.PAS < prev    next >
Pascal/Delphi Source File  |  1992-10-27  |  3KB  |  84 lines
  1. { FREEWARE - HP500 wird benötigt, um die Dokumention von FDIR 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 danch 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.  
  14.   Dieses Programm darf frei weitergegeben werden...
  15.  
  16.  
  17.   Autor: Alexander Wolf
  18.          Lange Str. 57
  19.          D-7500 Karlsruhe 51
  20.  
  21.          Telefon: (0721) 88 81 96
  22.          Telefax: (0721) 89 12 34
  23.  
  24. }
  25.  
  26. {$I-,G-}
  27.  
  28. uses crt, printer;
  29.  
  30. var x  : byte;
  31.     ch : char;
  32.  
  33. begin
  34.  
  35.   writeln;
  36.   writeln(' Dieses Programm stellt Drucker der HP DeskJet Serie so ein,');
  37.   writeln(' daß die FDIR V2.3 Dokumentaion ohne Probleme gedruckt werden kann.');
  38.  
  39.   write  (' Weiter (J/N) ??');
  40.  
  41.   repeat
  42.     ch:=UpCase(ReadKey);
  43.   until (ch in ['J','N']);
  44.  
  45.   writeln(ch);
  46.   writeln;
  47.  
  48.   if (ch = 'N') then begin
  49.     writeln(' Programm beendet, ohne den Drucker umzustellen !!');
  50.     halt(128);
  51.   end;
  52.  
  53.   write(lst,'&k1W');                      { Bidirektionale Druckrichtung }
  54.   write(lst,'&s1C');                      { Zeilenumbruch AUS            }
  55.   write(lst,'&l26A');                     { DIN A4 - Papier              }
  56.   write(lst,'&l0O');                      { Hochformat                   }
  57.   x:=70; write(lst,'&l',x,'P');           { Zeilen / Seite (70)          }
  58.   write(lst,'&l0L');                      { Perforationssprung AUS       }
  59.   x:=1;  write(lst,'&l',x,'E');           { Oberer Rand (1)              }
  60.   write(lst,'');                         { Seitenränder löschen         }
  61.   write(lst,'&k6W');                      { Text-Scale-Modus EIN         }
  62.   write(lst,'(10U');                      { Zeichensatz                  }
  63.   write(lst,'(s0P');                      { feststehender ZeichenAbstand }
  64.   write(lst,'(s0S');                      { aufrechte Schrift            }
  65.   write(lst,'(s0B');                      { normale Strichstärke         }
  66.   write(lst,'(s4101T');                   { Schriftart (CG Times)        }
  67.   write(lst,'(s2Q');                      { Druckqualität - Letter       }
  68.  
  69. {** write(lst,'(s1Q');                    { Druckqualität - Draft        }
  70.  
  71.  
  72.   if (ioresult <> 0) then begin
  73.     writeln(' Fehler !!');
  74.     writeln(' Drucker nicht angeschaltet ??');
  75.   end else begin
  76.     writeln(' Alles OK !!');
  77.     writeln(' Sie können jetzt die FDIR V2.3 Dokumentation ausdrucken...');
  78.   end;
  79.  
  80.   writeln(#13,#10,' Programm beendet...');
  81.  
  82. end.
  83.  
  84.