home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 June / PCWorld_1999-06_cd.bin / software / Vyzkuste / Webtri / INSTALL / mgxfma.z / IMPSI2.FLT / PSIRC / STARTUP < prev    next >
Text File  |  1997-07-25  |  1KB  |  65 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.  
  39. @args length 1 eq
  40. {
  41.    { @inp cvx stopped @execut { clear exit } if
  42.      { /@execut false def errordict /handleerror get exec } if
  43.    } loop
  44. }
  45. {
  46.    1 1 @args length 1 sub
  47.    { @args exch get run } for
  48. } ifelse
  49. @execut { @pmt } if
  50.  
  51. %@args length 1 eq
  52. %{
  53. %   { @inp cvx stopped @execut { clear exit } if
  54. %     { /@execut false def errordict /handleerror get exec } if
  55. %   } loop
  56. %}
  57. %{
  58. %   1 1 @args length 1 sub
  59. %   { @args exch get {run} stopped
  60. %     { errordict /handleerror get exec exit } if
  61. %   } for
  62. %} ifelse
  63. %@execut { @pmt } if
  64.  
  65.