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
	OPTIONS/NOI4

	SUBROUTINE menu

c
c	Declarations:
c
	CHARACTER*1 Cesc,Cnull,Cbell
	CHARACTER*4 Cbold, Cnorm
	CHARACTER*4 Crev
	Character*3	Cupr
	Character*3	Clwr
	Character*7	Clin1
	Character*7	Clin2
	byte esc
	COMMON  /Constants/	Cesc,Cbell,Cnull,Cbold,Cnorm
	
	Clin1=Cesc//'[1;10H'
	Clin2=Cesc//'[2;10H'
	Cupr=Cesc//'#3'
	Clwr=Cesc//'#4'
	Crev=Cesc//'[7m\'
c
c	Initialize:
c

	call dtcat(1,1)
	WRITE(*,10) Cnull//Cesc//'[2J'		! Erase screen
10	FORMAT(A,$)
	WRITE(*,20) Cnull//Clin1//Cupr,Cbold,Cnorm,Cbold,Cnorm,
     -			Cbold,Cnorm
20	FORMAT(A,A,'D',A,'esk ',A,'T',A,'op ',A,'C',A,'alendar')
	WRITE(*,20) Cnull//Clin2//Clwr,Cbold,Cnorm,Cbold,Cnorm,
     - 			Cbold,Cnorm
	write(*,3)Cbold,Cnorm,Cbold,Cnorm,Cbold,Cnorm,Cbold,Cnorm,
     -  Cbold,Cnorm,Cbold,Cnorm,Cbold,Cnorm,Cbold,Cnorm,
     -  Cbold,Cnorm,Crev,Cnorm,Crev,Cnorm,Cbold,Cnorm
3	format(/,
     -  T10,A,'D',A,
     -	'  [mm/dd/yy]   -   Appointment Schedule for dd/mm/yy',/,
     -  T10,A,'EV',A,
     -  ' [Text]       -   Add/change Evening Appointment',/,
     -  T10,A,'W',A,
     -  '  [mm/dd/yy]   -   Week-At-A-Glance for week of dd/mm/yy',/,
     -  T10,A,'M',A,
     -  '  [mm/yy]      -   Month-At-A-Glance for mm/yy',/,
     -  T10,A,'Y',A,
     -  '  [yy]         -   Year at a Glance',/,
     -  T10,A,'L',A,
     -  '  [mm/dd/yy] n -   Locate time (n * 30 mins.) free for mtg',/,
     -  T10,A,'PR',A,
     -  ' [mm/dd/yy]   -   Print appointments for mm/dd/yy',/,
     -  T10,A,'PU',A,
     -  ' [mm/dd/yy]   -   Purge appointments prior to mm/dd/yy',/,
     -  T10,A,'I',A,
     -  '               -   Reset default date to today.',/,
     -  T10,A,'PF2',A,
     -  '             -   Help (press again to select topic)',/,
     -  T10,A,'PF4',A,
     -  '             -   New VPW Window',/,
     -  T10,A,'EX',A,
     -  '              -   Exit',/,/,/,/,/,/,/,/,' Command: ',$)
c
	return
c     -  T10,'N(chars)       -   Reverse display sense of M or W cmd',/,
c     -  T10,'F filename     -   Change default data file to Filename',/,
c     -  T10,'S [mm/dd/yy]   -   Schedule multiple activity on mm/dd/yy',/,
c     -  T10,'                   (Notifies users in pointer file also)',/,
c     -  T10,'G [mm/dd/yy]   -   File activities in multiple files',/,
	end