$STORAGE: 2
$NOFLOATCALLS
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  Version to go with Mitch Wyle's last-minute addition of
c  outpt command.
c

	SUBROUTINE menu

c
c	Declarations:
c

	character esc

c
c	Initialize:
c

	iterm = 0		
c 	Output terminal unit number
	esc = 27

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


