home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 02 / tricks / pr26demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-11-06  |  916 b   |  27 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    PR26DEMO.PAS                        *)
  3. (*      Demonstriert den Einsatz der Unit Print26         *)
  4. (*                                                        *)
  5. (*       (c) 1991 Gunnar Blumert & TOOLBOX                *)
  6. (* ------------------------------------------------------ *)
  7. PROGRAM Pr26Demo;
  8.  
  9. USES Print26;
  10.  
  11. BEGIN
  12.   IF NOT InitLst('LPT1') THEN BEGIN
  13.     WriteLn('Druckerkanal konnte nicht geöffnet werden!');
  14.     Halt;
  15.   END;
  16.   WriteLn(Lst, 'Hallo,', #26, ' wie geht''s?');
  17.   IF NOT Switch_Print_Char26_On THEN BEGIN
  18.     WriteLn('Irgendwas hat nicht geklappt!'); WriteLn;
  19.     Halt;
  20.   END;
  21.   WriteLn(Lst, 'Zweiter Versuch: Hallo, ',
  22.                #26, ' wie geht''s');
  23. END.
  24. (* ------------------------------------------------------ *)
  25. (*                Ende von PR26DEMO.PAS                   *)
  26.  
  27.