.key dest
.bra {
.ket }
.def dest SYS

;
; PS LaserJet menu
;

lab PSMenu
   echo "*Ec*N                          PostScript Printer Menu*N Please select an option"
   echo "*N -->1) Auto Copy All Necessary Files .........[Size:1,227k (2,454 blocks)]"
   echo "*N    2) Copy City Desk ........................[Size:  400k (  800 blocks)]"
   echo "*N    3) Copy Demo Files .......................[Size:   25k (   50 blocks)]"
   echo "*N    4) Copy Du5 Directory Utility ............[Size:   80k (  160 blocks)]"
   echo "*N    5) Copy Screen Fonts for Laser Printers ..[Size:  135k (  270 blocks)]"
   echo "*N    6) Copy Laser Utility ....................[Size:  570k (1,140 blocks)]"
   echo "*N    7) Copy .PS Data Files ...................[Size:   17k (   34 blocks)]"
   echo "*N    8) Return to Previous menu"
   echo "*N    9) Quit"
   echo "*N Please choose an option by typing its number. Then press Return ?" NOLINE
   setenv >NIL: Choice{$$} ?

lab eval_Choice{$$}
   if $Choice{$$} EQ 1 VAL ; AutoCopy
      execute .CopyFiles.bat {dest} Printer PS Laser Y
      execute .PSMenu.bat {dest}
   endif

   if $Choice{$$} EQ 2 VAL ; citydesk
      execute .CopyCDesk.bat {dest}
      execute .PSMenu.bat {dest}
   endif

   if $Choice{$$} EQ 3 VAL ; .demo files
      execute .CopyData1.bat {dest} Flag Demo
      execute .PSMenu.bat {dest}
   endif

   if $Choice{$$} EQ 4 VAL ; du5
      execute .CopyData3.bat {dest} Flag Du5
      execute .PSMenu.bat {dest}
   endif

   if $Choice{$$} EQ 5 VAL ; laser screen fonts
      execute .CopyData1.bat {dest} Flag LFont
      execute .PSMenu.bat {dest}
   endif

   if $Choice{$$} EQ 6 VAL ; laser_Utility
      execute .CopyData1.bat {dest} Flag PUtil
      execute .PSMenu.bat {dest}
   endif

   if $Choice{$$} EQ 7 VAL ; .ps files
      execute .CopyData1.bat {dest} Flag PS
      execute .PSMenu.bat {dest}
   endif

   if $Choice{$$} EQ 8 VAL
      Execute .MainMenu.bat {dest}
   endif

   if $Choice{$$} EQ 9 VAL
      Execute .Cleanup.bat {dest}
   endif

   ; they typed in something other than 1-9
      echo "*NYou must type in a number between 1 and 9"
      wait
      skip PSMenu BACK             ; Lets see if we can get it right this time
