home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_prgmt / manywbt.arj / BDISK.WBT < prev    next >
Encoding:
Text File  |  1991-11-21  |  1.7 KB  |  53 lines
  1. cr=StrCat(Num2Char(13),Num2Char(10))
  2. if param0==0 then goto message
  3. param1=StrUpper(param1)
  4. a='This program is stored on a 3╜" diskette.%cr%'
  5. b="    In order to run it, the proper diskette%cr%"
  6. c=" must be in the B:\ drive.  Please locate%cr%"
  7. d="          the diskette and insert it.%cr%"
  8. e="(Selecting No below will search the catalog%cr%"
  9. f="  if you don't know which diskette to insert.)%cr%"
  10. g="%cr%"
  11. h="     Is the proper diskette in the drive?"
  12. a=Strcat(a,b,c,d,e,f,g,h)
  13. zzz=AskYesNo("%param1%",a)
  14. If zzz==@NO Then Goto disksort
  15. :above
  16. LogDisk("b:")
  17. DirChange("b:")
  18. b=FileExist("b:\%param1%")
  19. if b==@TRUE then run(param1,"")
  20. if b==@FALSE then goto below
  21. exit
  22. :below
  23. line1="Could not find %param1% on%CR%"
  24. line2="the diskette inserted...%cr%
  25. line3="%cr%"
  26. line4="Please verify the correct diskette%cr%"
  27. line5="is in Drive B:\, Then Select Okay"
  28. b=StrCat(line1,line2,line3,line4,line5)
  29. Pause("%param1%",b)
  30. Goto above
  31. :disksort
  32. Run("ppd.exe","disksort.txt")
  33. Display(5,param1,"Close PowerPad when finished")
  34. WinActivate("Power")
  35. Sendkey("!sf%param1%{enter}")
  36. WinWaitClose("Power")
  37. Pause(param1,"Insert Program diskette %cr%and Select Okay")
  38. Goto above
  39. :message
  40. a="bdisk.wbt is a command line precursor%cr%"
  41. b="to programs stored on 3╜ diskette.%cr%"
  42. c="It allows you to represent diskette programs%cr%"
  43. d="as icons in the Program Manager, without%cr%"
  44. e="getting system errors when you attempt%cr%"
  45. f="to run them sans a diskette in the drive.%cr%"
  46. g="%cr%"
  47. h="Its syntax is:%cr%"
  48. i="          winbatch.exe bdisk.wbt <executable file>%cr%"
  49. j="Example:%cr%"
  50. k="          winbatch.exe bdisk.wbt wingif.exe"
  51. a=StrCat(a,b,c,d,e,f,g,h,i,j,k)
  52. Pause("BDISK",a)
  53. exit