( hello DAY 04.04.2001 )

"events"
"os_events"
"forms"

1000 constant MainForm
1001 constant AboutItem
1100 constant AboutForm

api: FrmGotoForm

: go
  MainForm FrmGotoForm
  begin
    ekey menuEvent =
    if event itemId AboutItem =
       if AboutForm ShowDialog drop 
       then
    then
  again
;

'rsrc' 'hwzz' use-resource

go