home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / ovladace / xdiag / mvdxdiag.exe / GET.DAT < prev    next >
Encoding:
Text File  |  1995-03-30  |  946 b   |  49 lines
  1. script getCDROMPORT
  2.     set x type str ""
  3.     :again
  4.     getstring x length 3 hexnumonly
  5.     local y type long ${x}h
  6.     if isequal $y 300h    return $x
  7.     if isequal $y 310h    return $x
  8.     if isequal $y 320h    return $x
  9.     if isequal $y 330h    return $x
  10.     if isequal $y 340h    return $x
  11.  
  12.     flushkeys
  13.     goto again
  14.  
  15. script getString
  16.     set x type str ""
  17.     getstring x length 40 
  18.     trim x
  19.     return $x
  20. script getDriveLetter
  21.     set x type str ""
  22.     local y type str ""
  23.     :again
  24.     getstring x length 1 wordonly
  25.     flushkeys
  26.     set y "${x}" - "[a-z]"
  27.     if ! $_strop    goto again
  28.     set x "$x" + ":"
  29.     return $x
  30. script getPathExisting
  31.     set x type str ""
  32.     :again
  33.     getstring x length 20 wordonly
  34.     flushkeys
  35.     if ! isdir $x    goto again
  36.     return $x
  37. script getFilename
  38.     set x type str ""
  39.     getstring x length 13 wordonly
  40.     return $x
  41. script getFilenameExisting
  42.     set x type str ""
  43.     :again
  44.     getstring x length 40 wordonly
  45.     flushkeys
  46.     if not isfile $x    goto again
  47.     return $x
  48.  
  49.