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

	include 'comdtc.inc/nolist'	! Need ITERM
	include 'escdtc.inc/nolist'
c
c	byte esc /"033/
c	integer iterm/6/

c
c	Initialize:
c

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

c	call dtcat(1,1)
	write(iterm,1) esc,homescrn, esc,clrscrn	!	clear screen
 1	format('+',4a, $)
c
	write(iterm,2) '+', esc,dhdw1			!	double-height
 2	format(3a,13X,'D T C   C o m m a n d s')	!	..
	write(iterm,2) ' ', esc,dhdw2			!	double-width
c
	write(iterm,3)
 3	format(
     1  8x,'D [mmddyy]   -     Appointment Schedule for dd mm yy',/,
     2  8x,'W [mmddyy]   -     Week-At-A-Glance for week of dd mm yy',
     3  /,8x,'M [mmyy]     -     Month-At-A-Glance for mm yy',/,
     4  8x,'Y [yy]       -     Full Year calendar for yy',/,
     5  8x,'+ or - nnZ   -     Add/Subt nn Z (Z=D,W,M,Y): change date',
     5  /,
     6  8x,'N(cmd str)   -     Reverse display sense of M or W cmd',
     6     ' (show free time)',/,
     7  8x,'L [mm]dd[yy] n -   Locate time (n * 30 mins.) free for mtg',
     7  /,
     8  8x,'hh:mm>hh:mm  -     Add or change appointments for hh:mm',/,
     9  8x,'EV (pseudo time) - Add or change EVening appointment',/,
     1  8x,'P [mmddyy]   -     Purge appointments prior to mmddyy',/,8x,
Cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
     2  'U [mmddyy] t1[>t2] <cmd> - Unschedule (cancel) appointments',/,
     3  8x,'X d1 t1 d2 t2 <cmd> - eXchange (reschedule) appointments',/,
     3  8x,'    (then execute <cmd> if present)', /,
     4  8x,'S [mmddyy]   -     Schedule multiple activity on mmddyy',/,
     4  8x,'    (Drops notices in all indirected users files also)',/,
     5  8x,'G [mmddyy]   -     File activities in multiple files',/,
     6  8x,'F FILENAME   -     Change default data file to Filename',/,
     7  8x,'I            -     Reset default date to today.',/,
     8  8x,'H or ?       -     Help!',/,
     9  8x,'Q, EX, or ^Z -     Exit', $)	! After all that
c
	return
c
	end
