( forms DAY 08.04.2001 )

: ShowForm ( id )
  >r r@ FrmGotoForm
  begin
   ekey frmOpenEvent =
   event 8 + w@ r@ = and
  until rdrop
;