PROCEDURE [XREF] fdp$get_screen_events (var status: ost$status);
?? push(listext := on) ??
*copyc ost$status
?? POP ??
