{***********************************************************************************************************************************
*                                                                                                                                  *
*       LOAN.PAS        Calculate loan repayments                                                                                  *
*                                                                                                                                  *
***********************************************************************************************************************************}
[inherit('SYS$LIBRARY:DECW$DWTDEF')]
Program LOAN (input,output);

Label
  Exit;

Const

Type

Var

{***********************************************************************************************************************************
*
*       Utility Routines
*
*
*       Widget Callbacks
*
***********************************************************************************************************************************}


Begin
{ Initialize local data structures }

{ Initialize UIL/DRM }
Dwt$Initialize_DRM;

{ Initialize the Toolkit }
topLevel := Xt$Initialize (progname, progname, 0, 0, argcount,);

{ Open the UIL/DRM Hierarchy }
ret_status := Dwt$Open_Hierarchy (UIL_file_count, filenames, %immed 0, hierarchy);

{ Register names with DRM }
ret_status := Dwt$Register_DRM_Names (callback_names, DRM_name_count);

{ Fetch and manage the widget tree }
ret_status := Dwt$Fetch_Widget (hierarchy, 'MAIN', topLevel, main, class);

Xt$Manage_Child (main);

Xt$Realize_Widget (topLevel);

Xt$Main_Loop;

Exit:
end.