home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / catch / choice.wbf < prev    next >
Text File  |  1995-05-18  |  578b  |  28 lines
  1. ; Example Catch file
  2. ; Copyright Sean Batten
  3.  
  4. ;Note, you cannot have 2 or more copies of Clock running at the same time
  5.  
  6. additem ("Clock")
  7. additem ("Notepad")
  8. additem ("Cardfile")
  9. additem ("Calculator")
  10. Let program=Choice("Select","Choose a program to load")
  11.  
  12. ;Check for no choice
  13. if program=="" goto end
  14.  
  15. ;Check to see if program is already running
  16. Exists (program)
  17. if @EXISTS goto query
  18. Run (program,"")
  19. goto end
  20.  
  21. :query
  22. Let message=Join(program," is already running. Really load?")
  23. Let a=ask ("Really??",message)
  24. if a=="YES" Run(program,"")
  25.  
  26. :end
  27.  
  28.