Label
  Exit;

Const
  progname              = 'Loan';

Type
  field_type            = [long] (principal, rate, payment);

Var
  topLevel, main        : Dwt$Widget;
  argcount              : Dwt$Cardinal := 0;
  input_fields          : array [principal..payment] of record
                            widget : Dwt$Widget;
                            name   : varying [30] of char;
                          end;


Begin
{ Initialize local data structures }
input_fields[principal].name := 'Loan';
input_fields[rate].name      := 'Interest Rate';
input_fields[payment].name   := 'Repayment';

{ Initialize UIL/DRM }
Dwt$Initialize_DRM;

{ Initialize the Toolkit }
topLevel := Xt$Initialize (progname, progname, 0, 0, argcount,);
if topLevel = nil then
  begin
  writeln('Error creating topLevel');
  goto Exit
  end;


Exit:
end.