pkg/utilities/nttools/tedit/display/forms/fmbegin.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

# FM_BEGIN -- Initialize form handler
#
# B.Simon	25-Jan-88	Original
# B.Simon	11-Oct-90	Rewritten to use curses

procedure fm_begin ()

#--
include	"forms.com"

begin
	# Initialize curses

	call initscr	

	# Initialize global variables

	helpwin = 0

end