c-----------------------------------------------------------------------
c
c	Menu subroutine
c
c	part of Mitch Wyle's DTC program
c
c	Inputs: 
c		None
c
c	Output:
c		display screen (see below)
c
c-----------------------------------------------------------------------
c

	SUBROUTINE menu

c
c	Declarations:
c

	byte esc

c
c	Initialize:
c

	iterm = 6		!	Output terminal unit number
	esc = "033

	call dtcat(1,1)
	write(iterm,1) esc,'[','2','J'		!	clear screen
1	format(x,79a1)
	write(iterm,2) esc,'#','3'
2	format(x,3a1,15X,'O P T I O N S')
	write(iterm,2) esc,'#','4'
	write(iterm,3)
3	format(/,
     1  T10,'M [mmyy]     -     Month-At-A-Glance for mm yy',/,
     2  T10,'D [mmddyy]   -     Appointment Schedule for dd mm yy',/,
     3  T10,'W [mmddyy]   -     Week-At-A-Glance for week of dd mm yy',
     4  /,T10,'H            -     Help!',/,
     6  T10,'Q or EX      -     Exit',/,
     7  T10,'P [mmddyy]   -     Purge appointments prior to mmddyy',/,
     8  T10,'N(chars)     -     Reverse display sense of M or W cmd',/,
     1  T10,'F FILENAME   -     Change default data file to Filename',/,
     2  T10,'S [mmddyy]   -     Schedule multiple activity on mmddyy',/,
     2  T10,'    (Drops notices in all indirected users files also)',/,
     3  T10,'G [mmddyy]   -     File activities in multiple files',/,
     3  T10,'L [mmddyy] n -     Locate time (n * 30 mins.) free for mtg',
     4  /,
     5  T10,'Y [yy]       -     Year at a Glance',/,
     6  T10,'I            -     Reset default date to today.',/,
     7  T10,'+ or - nnU   -     Add/Subt nn U (U=D,W,M,Y):change date',/,
     5  T10,'hh:mm>hh:mm  -     Add or change appointments for hh:mm',/,
     9  T10,'EV (pseudo time) - Add or Change Evening Appointment',/)
c
	return
	end