home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_prgmt / manywbt.arj / ADISK.WBT next >
Encoding:
Text File  |  1991-11-21  |  510 b   |  19 lines
  1. param1=StrUpper(param1)
  2. cr=StrCat(Num2Char(13),Num2Char(10))
  3. Pause("%param1%","Insert Program Disk in Drive A %cr%Then Select Okay")
  4. :above
  5. LogDisk("a:")
  6. a=FileExist("a:\%param1%")
  7. if a==@TRUE then run(param1,"")
  8. if a==@FALSE then goto below
  9. exit
  10. :below
  11. line1="Could not find %param1% on%CR%"
  12. line2="the disk inserted...%cr%
  13. line3="%cr%"
  14. line4="Please verify the correct disk%cr%"
  15. line5="is in Drive A, Then Select Okay"
  16. a=StrCat(line1,line2,line3,line4,line5)
  17. Pause("%param1%",a)
  18. goto above
  19.