This is salvaged FPW code, isn't it? :)

SNIP...

>SET COLOR OF SCHEME 1 TO RGB(192,192,192,192,192,192)

This is obsolete. Don't use this anymore.

>MODIFY WINDOW SCREEN NOCLOSE TITLE gc_appname

_Screen.Caption = gc_appname is cleaner

>DO WHILE NOT gl_endapp

DO WHILE loop not required with READ EVENTS.

> IF EMPTY(gc_goscr)
> DO (gc_lastmenu)
> READ EVENTS
> ELSE
> DO (gc_goscr)
> READ EVENTS
> ENDIF

This should work. Are you sure you don't have a Config.FPW with SCREEN=OFF?