home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b225 / 1.ddi / STPS.PRT < prev    next >
Encoding:
Text File  |  1991-08-13  |  720 b   |  16 lines
  1. %Postscript Header File (START.PRT) for use with Autoroute Plus
  2. %by William Bibby, May 1990
  3. %This file enables Autoroute directions to be printed on a Postscript printer
  4. %This file must be used with the appropriate FINISH.PRT
  5.  
  6. /courier findfont 12 scalefont setfont
  7. /str 80 string def
  8. /GotoTopOfPage {40 800 moveto 1} def
  9. /GetaLine   {currentfile str readline} def           
  10. /ShowaLine  {show currentpoint 12 sub exch pop 40 exch moveto 1 add} def
  11. /AreWeAtEndofFile {pop dup (*END OF FILE*) eq} def
  12. /Print {{GetaLine AreWeAtEndofFile {showpage exit} if exch dup 60 gt {showpage pop GotoTopOfPage} if exch ShowaLine                      
  13.   } loop stop } def
  14. GotoTopOfPage                           
  15. Print
  16.