blob: 0b441ac9155a03bb1ad0d1edd809e95ed8d6dedc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
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.
|
