home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol081 / ff.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  694 b   |  26 lines
  1. { The command FF n resets the printer and issues n form feeds.
  2.   This program is written for the I.D.S. 460G "Paper Tiger" printer. }
  3.  
  4. { Author:   Peter Grogono }
  5.  
  6. program FF;
  7.  
  8. var
  9. printer : text;
  10. n, nff : 0..255;
  11.  
  12. begin
  13. read(nff);
  14. rewrite('LST:',printer);
  15. write(printer,chr(17));        { Select printer }
  16. write(printer,chr(2));         { Normal mode }
  17. write(printer,chr(6));         { Fixed spacing }
  18. write(printer,chr(5));         { No justification }
  19. write(printer,chr(30));        { 12 c.p.i. }
  20. write(printer,chr(27),'B8');   { 8/48" = 6 l.p.i. }
  21. write(printer,chr(13));        { CR }
  22. for n := 1 to nff do 
  23. write(printer,chr(12))       { Form feeds }
  24. end. { FF }
  25.  
  26.