Eliminate the splash screen

    A=@(0,0)

    PRINT CHAR(27):CHAR(2):"%2":

    INPUT ATWIN

    INIFILE="ATWIN.INI"

    IF INDEX(ATWIN,"ATWIN7",1)>0 THEN

        INIFILE=field(atwin,"\",3)

        inifile=inifile:".ini"

    end

    pdl=@userno

    DATI=""

    CALL FTS("R,K",ATWIN,INIFILE,DATI,ERRORE)

    IF ERRORE<>"" THEN STOP

    OK=""

    for i=1 to dcount(dati,@am)

        if dati<i>="[custom]" then ok<1>=1

        if dati<i>="splash=no" then ok<2>=1

        if dati<i>[1,6]="title=" then ok<3>=1

    next i

!!  CRT OK

    SW=0

    if ok<1><>"1" then

        dati<-1>="[custom]"

        SW=1

    end

    if ok<2><>"1" then

        dati<-1>="splash=no"

        SW=1

    end

    IF OK<3><>"1" THEN

        DATI<-1>='TITLE="YOUR TITLE" '

        sw=1

    end

    if sw=0 then stop

    target=ATWIN:INIFILE

    print char(27):char(2):"CORT;":target:char(13):

    FOR I=1 TO DCOUNT(dati,@AM)

        print dati<I>

    NEXT I

    print char(27):char(2):"CX"

    STOP

    END

    crt@(-1)