home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1996 March / buyer-0396.iso / mgxfma.z / IMPSI9.FLT / PSIRC / STARTUP < prev    next >
Text File  |  1995-08-31  |  1KB  |  51 lines
  1. %
  2. %  Environment dependant variables
  3. %
  4.  
  5. /@sys_path (system.ps) def
  6.  
  7. %
  8. %  Initialize the PostScript machinery
  9. %
  10.  
  11. (Loading PSI...) print
  12. @sys_path run
  13. (Done\n) print
  14.  
  15. /printpath { /_str 16 string def
  16.    {(Move: )print exch _str cvs print( )print _str cvs print(\n)print}
  17.    {(Draw: )print exch _str cvs print( )print _str cvs print(\n)print}
  18.    {(Curv: )print 6 -2 roll exch _str cvs print( )print _str cvs print
  19.       ( )print 4 -2 roll exch _str cvs print( )print _str cvs print
  20.       ( )print exch _str cvs print( )print _str cvs print(\n)print}
  21.    {(Done:\n)print} pathforall } @bd
  22.  
  23. %
  24. %  Enter the normal flow
  25. %
  26.  
  27. /@inp (%stdin) (r) file def
  28.  
  29. /@pmt { /@buf 256 string def
  30.     { prompt @inp @buf readline pop cvx exec } loop
  31.       } def
  32.  
  33. /@execut false def
  34. /executive { /@execut true def stop
  35.        } @bd
  36.  
  37. start
  38. @args length 1 eq
  39. {
  40.    { @inp cvx stopped @execut { clear exit } if
  41.      { /@execut false def errordict /handleerror get exec } if
  42.    } loop
  43. }
  44. {
  45.    1 1 @args length 1 sub
  46.    { @args exch get {run} stopped
  47.      { errordict /handleerror get exec exit } if
  48.    } for
  49. } ifelse
  50. @execut { @pmt } if
  51.