home *** CD-ROM | disk | FTP | other *** search
- include tcdglb.dat
-
- script doevalCDROMAction
- if $errorlevel == 0 return
- if $errorlevel == 1 runmenu failCDROMInterface
- if $errorlevel == 2 runmenu failCDROMInitialize
- if $errorlevel == 11 runmenu failCDROMNoDriver
- if $errorlevel == 12 runmenu failCDROMNoDrives
- if $errorlevel == 13 runmenu failCDROMSyntax
- if $errorlevel == 14 runmenu failCDROMBadDrive
- if $errorlevel == 15 runmenu failCDROMSyntax
- return
-
- menu failCDROMInterface at -1,-1 bc re tc wh bo do sh name " Uh, oh! "
- text
- text "Requested action failed."
- text
-
- menu failCDROMInitialize at -1,-1 bc re tc wh bo do sh name " Uh, oh! "
- text
- text "Unable to Initialize CDROM subsystem."
- text
-
- menu failCDROMNoDriver at -1,-1 bc re tc wh bo do sh name " Uh, oh! "
- text
- text "MSCDEX is not loaded."
- text
-
- menu failCDROMNoDrives at -1,-1 bc re tc wh bo do sh name " Uh, oh! "
- text
- text "No CDROM Drives found."
- text
-
- menu failCDROMSyntax at -1,-1 bc re tc wh bo do sh name " Uh, oh! "
- text
- text "Internal error: syntax!"
- text
-
- menu failCDROMBadDrive at -1,-1 bc re tc wh bo do sh name " Uh, oh! "
- text
- text "Bad Drive #."
- text
-
-