fpc/packages/newt/examples/newt1.pas

program newt1;


(* a newt basic sample program *)

uses newt;


begin
    newtInit();
    newtCls();

    newtDrawRootText(0, 0,'Some root text');
    newtDrawRootText(0, 1,'Press a key to display a help line   ');

    newtPushHelpLine(nil);

    newtRefresh();

    newtWaitForKey;

    newtPushHelpLine('A help line');

    newtDrawRootText(0, 1,'Press a key to hide the help line    ');
    newtRefresh();
    newtWaitForKey;

    newtPopHelpLine();
    newtRefresh();
    newtDrawRootText(0, 1,'Press a key to exit                  ');
    newtWaitForKey;

    newtFinished();
end.