home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 11 / tricks / vrdruck.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-08-11  |  993 b   |  33 lines
  1. (* ------------------------------------------------------ *)
  2. (*                  VRDRUCK.PAS                           *)
  3. (*    Druckt Grafik aus der Datei 'pixels.bte' auf dem    *)
  4. (*         Star LC-10 im doppelte-Dichte-Modus            *)
  5. (*        (C) 1989 Erich Cadario Jr. & TOOLBOX            *)
  6. (* ------------------------------------------------------ *)
  7. PROGRAM VideoRAMDruck;
  8.  
  9. USES Printer;
  10.  
  11. VAR
  12.   a                : CHAR;
  13.   lauf1, lauf2, hp : INTEGER;
  14.   h                : FILE OF CHAR;
  15.  
  16. BEGIN
  17.   Assign(h, 'pixels.bte');
  18.   Reset(h);
  19.   WriteLn(LST, '');
  20.   Write(LST, Chr(27), '3', Chr(24));
  21.   FOR lauf1 := 1 TO 44 DO BEGIN
  22.     Write(LST, Chr(27), 'L', Chr(208), Chr(2));
  23.     FOR lauf2 := 1 TO 720 DO BEGIN
  24.       Read(h, a);
  25.       hp := Ord(a);
  26.       Write(LST, Chr(hp));
  27.     END;
  28.     WriteLn(LST, '');
  29.   END;
  30.   Close(h);
  31. END.
  32. (* ------------------------------------------------------ *)
  33. (*                  Ende von VRDRUCK.PAS                  *)