home *** CD-ROM | disk | FTP | other *** search
/ In'side Shareware 1995 April / ish0495.iso / win95 / winbatch / default.wb_ < prev    next >
Text File  |  1994-08-28  |  664b  |  23 lines
  1. ; DEFAULT.WBT
  2. ; Whne WinBatch is executed without any parameters, it attempts to locate
  3. ; and execute this DEFAULT.WBT file.
  4.  
  5. ActWin=WinGetActive()                  ;Get currently active Window
  6. VerWB=Version()                        ;Get Version numbers for title
  7. VerDLL=VersionDLL()
  8.  
  9. xyzzyTitle=strcat("WinBatch ",VerWB,"   DLL ",VerDll)
  10.  
  11. while @TRUE
  12.    BoxShut()
  13.    WinTitle("","WinBatch")
  14.    xyzzywbtfile=AskFileName(xyzzyTitle,"","WinBatch (*.WBT)|*.WBT|","*.WBT",1)
  15.    if xyzzywbtfile!="" then call(xyzzywbtfile,"")
  16.    else break
  17. endwhile
  18. exit
  19.  
  20. :cancel
  21. display(1,"Exiting","Default.wbt")
  22. exit                                    ;Bye Bye
  23.