AmigActive 13/AACD13.ISO/AACD/Resources/System/VersCheck2/Goodies/Check_Your_System_suomi

Text File | 1999-12-14 | 5KB | 152 lines

; $VER: VersCheck-Select-Script V1.8 (14.12.1999) by Michaela Pruess

Echo "Ajan komentojonoa"
IF NOT EXISTS SCRIPTS
    IF EXISTS /SCRIPTS
        PATH "" ADD
        CD /
    ELSE
        IF EXISTS C:SCRIPTS
            PATH "" ADD
            CD C:
        ELSE
            Echo "En löydä komentojonoja, lopetan..."
            END
        ENDIF
    ENDIF
ENDIF

STACK 250000

RTSimpleReq TITLE "Check Your System" TEXT "Aja versiotesti" CENTER BUTTON "_KAIKKI|_Libs|_Devs|D_Types|_MUI|_Handler|_Classes|_LOPETA" >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 "Kirjastojen tarkistus (Library)" TEXT "Valitse polku,joka tarkistetaan" CENTER BUTTON "_Libs:|_Valintaikkuna|Ei Tar_kisteta" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -1*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Polku kirjastoihin (Library)" 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 "Laiteajurien tarkistus (Device)" TEXT "Valitse polku,joka tarkistetaan" CENTER BUTTON "_Devs:|_Valintaikkuna|r|Ei Tar_kisteta" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -2*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Polku laiteajureihin (Device)" 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 "Datatyyppien tarkistus (Datatypes)" TEXT "Valitse polku,joka tarkistetaan" CENTER BUTTON "_Sys:Classes/Datatypes|_Valintaikkuna|Ei Tar_kisteta" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -3*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Polku datatyyppeihin (Datatype)" 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 "MUI:n tarkistus" TEXT "Valitse polku,joka tarkistetaan" CENTER BUTTON "_MUI:Libs/MUI|_Valintaikkuna|Ei Tar_kisteta" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -4*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "MUI-polku" DRAWER MUI:Libs/MUI NOFILES >ENV:VCREQ3
        VersCheck -4fnmosvx3 "$VCREQ3"
    ENDIF
ENDIF

IF $VCREQ0 EQ "Y"
    ECHO "6" >ENV:VCREQ1
ENDIF

IF $VCREQ1 EQ "6"
    IF $VCREQ0 EQ "N"
        RTSimpleReq TITLE "Käsittelijän tarkistus (Handler)" TEXT "Valitse polku,joka tarkistetaan" CENTER BUTTON "_L:|_Valintaikkuna|Ei Tar_kisteta" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -5*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Käsittelijän polku (Handler)" DRAWER l: NOFILES >ENV:VCREQ3
        VersCheck -5fnmosvx3 "$VCREQ3"
    ENDIF
ENDIF

IF $VCREQ0 EQ "Y"
    ECHO "7" >ENV:VCREQ1
ENDIF

IF $VCREQ1 EQ "7"
    IF $VCREQ0 EQ "N"
        RTSimpleReq TITLE "Luokkien tarkistus (Classes)" TEXT "Valitse polku,joka tarkistetaan" CENTER BUTTON "Sys:_Classes+MUI:|_Sys:Classes|_MUI:|_Valintaikkuna|Ei Tar_kisteta" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -afnmsv -0s .class -0l* ClassList -0n CLASS
        VersCheck -afnmsv -0s .image -0l* ImageList -0n CLASSIMG
        VersCheck -afnmsv -0s .gadget -0l* GadgetList -0n CLASSGAD
        VersCheck -afnmsv -0s .codec -0l* CodecList -0n CLASSCOD
        VersCheck -afnmsv -0s .decoder -0l* DecoderList -0n CLASSDEC
    ENDIF
    IF $VCREQ2 EQ "2"
        VersCheck -afnmsv -0s .class -0l ClassList -0n CLASS Sys:Classes
        VersCheck -afnmsv -0s .image -0l ImageList -0n CLASSIMG Sys:Classes
        VersCheck -afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD Sys:Classes
        VersCheck -afnmsv -0s .codec -0l CodecList -0n CLASSCOD Sys:Classes
        VersCheck -afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC Sys:Classes
    ENDIF
    IF $VCREQ2 EQ "3"
        VersCheck -afnmsv -0s .class -0l ClassList -0n CLASS MUI:
        VersCheck -afnmsv -0s .image -0l ImageList -0n CLASSIMG MUI:
        VersCheck -afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD MUI:
        VersCheck -afnmsv -0s .codec -0l CodecList -0n CLASSCOD MUI:
        VersCheck -afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC MUI:
    ENDIF
    IF $VCREQ2 EQ "4"
        RTFileReq TITLE "Handler path" DRAWER Sys:Classes NOFILES >ENV:VCREQ3
        VersCheck -afnmsv -0s .class -0l ClassList -0n CLASS "$VCREQ3"
        VersCheck -afnmsv -0s .image -0l ImageList -0n CLASSIMG "$VCREQ3"
        VersCheck -afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD "$VCREQ3"
        VersCheck -afnmsv -0s .codec -0l CodecList -0n CLASSCOD "$VCREQ3"
        VersCheck -afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC "$VCREQ3"
    ENDIF
ENDIF
Delete ENV:VCREQ? >NIL:
RTSimpleReq TITLE "LOPPU" TEXT "Tuloket tallennettu RAM-levyllesi" CENTER BUTTON "_OK" >NIL: