home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / cpmenu.zip / CMDPOST.XXX next >
Text File  |  1991-01-31  |  2KB  |  54 lines
  1.  CmdPost &Options...
  2.  
  3.   :NEXTOPTION
  4.   a="User Interface|Screen Blanker|Window Position|Printer Reset|Floppy Reset|Hard Drive Reset"
  5.   a=ItemSelect("Choose Option to Reset",a,"|")
  6.   if a=="User Interface" then goto WINSHELL
  7.   if a=="Screen Blanker Options" then goto BLANKER
  8.   if a=="Window Position" then goto POSITION
  9.   if a=="Printer Reset" then goto INFORESET
  10.   if a=="Floppy Reset" then goto INFORESET
  11.   if a=="Hard Drive Reset" then goto INFORESET
  12.   if a=="Window Titles" then goto WINTITLES
  13.   Drop(a,b,b1,b2,b3,c)
  14.   Exit
  15.  
  16.   :WINSHELL
  17.   a=StrLower(StrTrim(IniRead(CP,"UserInterface","Icons")))
  18.   b1="Command Post Menus only"
  19.   b2="Program Manager Icons only"
  20.   b3="Menus and Icons"
  21.   b=StrCat(b1,"|",b2,"|",b3)
  22.   c=ItemSelect("Select Default User Interface",b,"|")
  23.   if c==b1 then goto CPSHELL
  24.   if c==b2 then goto PMSHELL
  25.   if c<>b3 then goto NEXTOPTION
  26.  
  27.   ; Default to Command Post menus with iconized Program Manager
  28.   if a=="both" then goto NEXTOPTION
  29.   IniWrite(CP,"UserInterface","Both")
  30.   ErrorMode(@OFF)
  31.   if !WinIconize("Program Manager") then RunIcon("Progman.exe","")
  32.   ErrorMode(@CANCEL)
  33.   WinShow("")
  34.   goto NEXTOPTION
  35.  
  36.   ; Default to Program Manager icons
  37.   :PMSHELL
  38.   if a=="icons" then goto NEXTOPTION
  39.   IniWrite(CP,"UserInterface","Icons")
  40.   WinIconize("")
  41.   ErrorMode(@OFF)
  42.   if !WinShow("Program Manager") then Run("Progman.exe","")
  43.   ErrorMode(@CANCEL)
  44.   goto NEXTOPTION
  45.  
  46.   ;Default to Command Post interface
  47.   :CPSHELL
  48.   if a<>"menus" then IniWrite(CP,"UserInterface","Menus")
  49.   ErrorMode(@OFF)
  50.   WinIconize("Program Manager")
  51.   ErrorMode(@CANCEL)
  52.   WinShow("")
  53.   goto NEXTOPTION
  54.