OPTION DECIMALSEP, .
  OPTION SCALE, 96
  DIALOG CREATE,"Logons",0,300,315,90
  DIALOG ADD,STYLE,BoldText,,8,B
  rem -- Left column --
  DIALOG ADD,BUTTON,B1,5,5,150,20,"logon 1"
  DIALOG ADD,BUTTON,B2,25,5,150,20,"logon 2"
  DIALOG ADD,BUTTON,B3,45,5,150,20,"logon 3"
  rem -- Right column --
  DIALOG ADD,BUTTON,Cancel,5,160,150,20,,Boldtext
  DIALOG ADD,BUTTON,B4,25,160,150,20,"logon 4"
  DIALOG ADD,BUTTON,B5,45,160,150,20,"logon 5"
  DIALOG ADD,STATUS,Status,"Ready...",BoldText
  DIALOG SHOW

:CancelBUTTON
:EVLOOP
  %g = ""
  DIALOG SET, Status, "Ready..."
  rem -- Kill any extra events --
  REPEAT 
    %d = @event()
  UNTIL @not(%d)
  DIALOG FOCUS, Cancel
  WAIT EVENT
  %d = @event()
  if @equal(%d, CLOSE)@equal(%d, CancelBUTTON)
    goto %d
  end 
  %g = ""
  %s = ?
  rem -- loop until focus leaves program --
  REPEAT 
    DIALOG SET, Status, "Click input field     "%s
    GOSUB Display
    %e = @event()
  UNTIL @not(@equal(@winactive(),"Logons"))%e
  WAIT .5
  %w = @winactive()
  if %e
    goto %e
  end 
  goto %d

:B1Button
:B2Button
:B3Button
:B4Button
:B5Button
  rem  WINDOW SEND, %w, name
  rem  WINDOW SEND, %w, @tab()
  rem  WINDOW SEND, %w, password
  rem  WINDOW SEND, %w, @cr()
  goto EVLOOP

:CLOSE
  EXIT 

  rem -------- GOSUB -----------

:Display
  if @greater(@len(%s), 44)
    %g = 1
  end 
  if @greater(2,@len(%s))
    %g = ""
    %s = ?
  end 
  if %g
    %s = @substr(%s, 2, @len(%s))
  else 
    %s = " "%s
  end 
  WAIT .01
  exit