XProfan

 {$cleq}
cls
subClass hWnd,true
do {waitInput}

subClassProc{

    select sWnd

        caseOf hWnd

        select sMessage

            caseOf wm_getminmaxinfo

            pokeDW sLparam+24,600
            pokeDW sLparam+28,420
            pokeDW sLparam+32,800
            pokeDW sLparam+36,600

        endSelect

    endSelect

    setWinProc true

}

pokedw(long adr,float v){

    long vi
    rtlMoveMemory(adr+2,addr(vi),2)
    vi=int(v-(vi*2^16))
    rtlMoveMemory(adr,Addr(vi),2)
}

DECLARE __cf1&
Def __cf1(2) !KERNEL32,GetProcAddress
Def __cf2(1) !KERNEL32,GetModuleHandleA
__cf1&=__cf1(__cf2(KERNEL32),RtlMoveMemory)
CLS
SUBCLASS %HWND,1

WHILE 1

    WAITINPUT

ENDWHILE

SUBCLASSPROC

    SELECT &SWND

        CASEOF %HWND

        SELECT %SMESSAGE

            CASEOF $0024

            POKEDW &SLPARAM+24,600
            POKEDW &SLPARAM+28,420
            POKEDW &SLPARAM+32,800
            POKEDW &SLPARAM+36,600

        ENDSELECT

    ENDSELECT

    SETWINPROC 1

endproc

proc POKEDW

    PARAMETERS ADR&,V!
    var VI&=0
    call(__cf1&,ADR&+2,ADDR(VI&),2)
    VI&=INT(V!-(VI&*2^16))
    call(__cf1&,ADR&,ADDR(VI&),2)

endproc