; $VER: VersCheck-Select-Script V1.8 (14.12.1999) by Michaela Pruess
Echo "Running Script"
IF NOT EXISTS SCRIPTS
IF EXISTS /SCRIPTS
PATH "" ADD
CD /
ELSE
IF EXISTS C:SCRIPTS
PATH "" ADD
CD C:
ELSE
Echo "Can't find scripts, aborting..."
END
ENDIF
ENDIF
ENDIF
STACK 250000
RTSimpleReq TITLE "Check your System" TEXT "Start VersCheck for" CENTER BUTTON "_ALL|_Libs|_Devs|D_Types|_MUI|_Handler|_Classes|_QUIT" >ENV:VCREQ1
IF $VCREQ1 EQ "1"
ECHO "Y" >ENV:VCREQ0
ECHO "2" >ENV:VCREQ1
ECHO "1" >ENV:VCREQ2
ELSE
ECHO "N" >ENV:VCREQ0
ENDIF
IF $VCREQ1 EQ "2"
IF $VCREQ0 EQ "N"
RTSimpleReq TITLE "Check Library's" TEXT "Select path to check" CENTER BUTTON "_Libs:|File_Requester|No Chec_k" >ENV:VCREQ2
ENDIF
IF $VCREQ2 EQ "1"
VersCheck -1*fnmosvx3
ENDIF
IF $VCREQ2 EQ "2"
RTFileReq TITLE "Library path" DRAWER Libs: NOFILES >ENV:VCREQ3
VersCheck -1fnmosvx3 "$VCREQ3"
ENDIF
ENDIF
IF $VCREQ0 EQ "Y"
ECHO "3" >ENV:VCREQ1
ENDIF
IF $VCREQ1 EQ "3"
IF $VCREQ0 EQ "N"
RTSimpleReq TITLE "Check Devices" TEXT "Select path to check" CENTER BUTTON "_Devs:|File_Requester|No Chec_k" >ENV:VCREQ2
ENDIF
IF $VCREQ2 EQ "1"
VersCheck -2*fnmosvx3
ENDIF
IF $VCREQ2 EQ "2"
RTFileReq TITLE "Device path" DRAWER Devs: NOFILES >ENV:VCREQ3
VersCheck -2fnmosvx3 "$VCREQ3"
ENDIF
ENDIF
IF $VCREQ0 EQ "Y"
ECHO "4" >ENV:VCREQ1
ENDIF
IF $VCREQ1 EQ "4"
IF $VCREQ0 EQ "N"
RTSimpleReq TITLE "Check Datatypes" TEXT "Select path to check" CENTER BUTTON "_Sys:Classes/Datatypes|File_Requester|No Chec_k" >ENV:VCREQ2
ENDIF
IF $VCREQ2 EQ "1"
VersCheck -3*fnmosvx3
ENDIF
IF $VCREQ2 EQ "2"
RTFileReq TITLE "Datatypes path" DRAWER Sys:Classes/Datatypes NOFILES >ENV:VCREQ3
VersCheck -3fnmosvx3 "$VCREQ3"
ENDIF
ENDIF
IF $VCREQ0 EQ "Y"
ECHO "5" >ENV:VCREQ1
ENDIF
IF $VCREQ1 EQ "5"
IF $VCREQ0 EQ "N"
RTSimpleReq TITLE "Check MUI" TEXT "Select path to check" CENTER BUTTON "_MUI:Libs/MUI|File_Requester|No Chec_k" >ENV:VCREQ2
ENDIF
IF $VCREQ2 EQ "1"
VersCheck -4*fnmsv
ENDIF
IF $VCREQ2 EQ "2"
RTFileReq TITLE "MUI path" DRAWER MUI:Libs/MUI NOFILES >ENV:VCREQ3
VersCheck -4fnmsvx3 "$VCREQ3"
ENDIF
ENDIF
IF $VCREQ0 EQ "Y"
ECHO "6" >ENV:VCREQ1
ENDIF
IF $VCREQ1 EQ "6"
IF $VCREQ0 EQ "N"
RTSimpleReq TITLE "Check Handler" TEXT "Select path to check" CENTER BUTTON "_l:|File_Requester|No Chec_k" >ENV:VCREQ2
ENDIF
IF $VCREQ2 EQ "1"
VersCheck -5*fnmsvx3
ENDIF
IF $VCREQ2 EQ "2"
RTFileReq TITLE "Handler path" DRAWER l: NOFILES >ENV:VCREQ3
VersCheck -5fnmsvx3 "$VCREQ3"
ENDIF
ENDIF
IF $VCREQ0 EQ "Y"
ECHO "7" >ENV:VCREQ1
ENDIF
IF $VCREQ1 EQ "7"
IF $VCREQ0 EQ "N"
RTSimpleReq TITLE "Check Classes" TEXT "Select path to check" CENTER BUTTON "Sys:_Classes+MUI:|_Sys:Classes|_MUI:|File_Requester|No Chec_k" >ENV:VCREQ2
ENDIF
IF $VCREQ2 EQ "1"
VersCheck -afnmsv -0s .class -0l* ClassList -0n CLASS