home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 2
/
BUGCD1997_01.iso
/
utils
/
winbatch
/
default.wb_
< prev
next >
Wrap
Text File
|
1994-08-28
|
664b
|
23 lines
; DEFAULT.WBT
; Whne WinBatch is executed without any parameters, it attempts to locate
; and execute this DEFAULT.WBT file.
ActWin=WinGetActive() ;Get currently active Window
VerWB=Version() ;Get Version numbers for title
VerDLL=VersionDLL()
xyzzyTitle=strcat("WinBatch ",VerWB," DLL ",VerDll)
while @TRUE
BoxShut()
WinTitle("","WinBatch")
xyzzywbtfile=AskFileName(xyzzyTitle,"","WinBatch (*.WBT)|*.WBT|","*.WBT",1)
if xyzzywbtfile!="" then call(xyzzywbtfile,"")
else break
endwhile
exit
:cancel
display(1,"Exiting","Default.wbt")
exit ;Bye Bye