home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
cpmenu.zip
/
CMDUSER.XXX
< prev
next >
Wrap
Text File
|
1991-01-31
|
1KB
|
42 lines
; AUTOEXEC section when Command Post is the primary shell.
; Load programs specified on LOAD line in WINDOWS section of WIN.INI.
a=StrLower(StrCat(StrTrim(IniRead("Windows","Load",""))," "))
sl=StrLen(a)
if sl<=1 then goto endload
n=0
:loop
i=n+1
n=StrScan(a," ,",i,@fwdscan)
p=StrSub(a,i,n-i)
; Don't load program if cmdpost or if it does not exist,
if p=="cmdpost" || p=="cmdpost.exe" then goto DontLoad
if FileExist(p) then goto LoadIcon
p=StrCat(p,".exe")
if FileExist(p) then goto LoadIcon
goto DontLoad
:LoadIcon
RunIcon(p,"")
:DontLoad
if n<sl then goto loop
:EndLoad
drop(a,i,n,p,sl)
; Load default user interface specified on UserInterface line
; in CP section of WIN.INI. If icons, iconize Command Post.
; If menus and icons, iconize Program Manager.
a=StrLower(iniread(CP,"UserInterface","menus"))
if a=="both" then RunIcon("progman.exe","")
if a<>"icons" then exit
WinIconize("")
Run("progman.exe","")
; New menu item for Command Post and Windows help
&Help
CmdPost &Help
run("cardfile.exe","cp_help.crd")
CmdPost &Questions 'n Answers
run("cardfile.exe","cp_quest.crd")
&Windows Help
run("winhelp.exe","progman.hlp")