( hello DAY 04.04.2001 )

"events"

1000 constant MainForm
1001 constant AboutItem
1100 constant AboutForm

: go
  MainForm FrmGotoForm
  begin
    ekey menuEvent =
    if event 8 + w@ AboutItem =
       if AboutForm ShowDialog drop 
       then
    then
  again
;

'rsrc' 'hwzz' use-resource

go