>DO FORM LOGIN TO lProceed
>READ EVENTS
>
>IF lProceed
> CLEAR EVENTS
> DO MAIN.MPR
> READ EVENTS
>ELSE
> CLEAR EVENTS
>ENDIF

This will not work either because the first READ EVENTS will stop the process of continuing down the code until a CLEAR EVENTS is issued. So, because there isn't any CLEAR EVENTS, it will wait indefinitely.