OpenEuphoria

Using "dialogs.e" (Irv's DOS gui)

• Posted by John F Dutcher <John_Dutcher at urmc.rochester.edu> Nov 19, 2004
• 465 views

This code works but the empty sequence used as the first parameter
still in the "Input" call generates a large box surrounding the single 
line with the "prompt" and "response line" on it....
it can't be true that this "Box" which is at the left of the prompt sting
and covers 5 or 6 lines can't be gotten rid of ??

include machine.e
  include get.e
  include dll.e
  include graphics.e
  include dialogs.e
     
  --  main code
  integer i
  sequence acct  --, inrejamt, otrejamt, inflenam, otflenam, recd
  clear_screen()
  SetColors(BLACK, WHITE)
  acct = Input("",{"Please enter the account number: "},"____________")
  puts(1, acct)				
  puts(1, "press any key to continue")
  i = wait_key()