1. Using "dialogs.e" (Irv's DOS gui)
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()
