home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
cpmenu.zip
/
CMDPOST.XXX
next >
Wrap
Text File
|
1991-01-31
|
2KB
|
54 lines
CmdPost &Options...
:NEXTOPTION
a="User Interface|Screen Blanker|Window Position|Printer Reset|Floppy Reset|Hard Drive Reset"
a=ItemSelect("Choose Option to Reset",a,"|")
if a=="User Interface" then goto WINSHELL
if a=="Screen Blanker Options" then goto BLANKER
if a=="Window Position" then goto POSITION
if a=="Printer Reset" then goto INFORESET
if a=="Floppy Reset" then goto INFORESET
if a=="Hard Drive Reset" then goto INFORESET
if a=="Window Titles" then goto WINTITLES
Drop(a,b,b1,b2,b3,c)
Exit
:WINSHELL
a=StrLower(StrTrim(IniRead(CP,"UserInterface","Icons")))
b1="Command Post Menus only"
b2="Program Manager Icons only"
b3="Menus and Icons"
b=StrCat(b1,"|",b2,"|",b3)
c=ItemSelect("Select Default User Interface",b,"|")
if c==b1 then goto CPSHELL
if c==b2 then goto PMSHELL
if c<>b3 then goto NEXTOPTION
; Default to Command Post menus with iconized Program Manager
if a=="both" then goto NEXTOPTION
IniWrite(CP,"UserInterface","Both")
ErrorMode(@OFF)
if !WinIconize("Program Manager") then RunIcon("Progman.exe","")
ErrorMode(@CANCEL)
WinShow("")
goto NEXTOPTION
; Default to Program Manager icons
:PMSHELL
if a=="icons" then goto NEXTOPTION
IniWrite(CP,"UserInterface","Icons")
WinIconize("")
ErrorMode(@OFF)
if !WinShow("Program Manager") then Run("Progman.exe","")
ErrorMode(@CANCEL)
goto NEXTOPTION
;Default to Command Post interface
:CPSHELL
if a<>"menus" then IniWrite(CP,"UserInterface","Menus")
ErrorMode(@OFF)
WinIconize("Program Manager")
ErrorMode(@CANCEL)
WinShow("")
goto NEXTOPTION