>DO FORM LOGIN TO lProceed
>READ EVENTS
>
>IF lProceed
> CLEAR EVENTS
> DO MAIN.MPR
> READ EVENTS
>ELSE
> CLEAR EVENTS
>ENDIF
A top level form is ignoring the WindowType=1 for modal.
So, the line DO FORM LOGIN TO lProceed will failed because the form is not modal.