.PAGE
	.SBTTL	MENU	-  DISPLAY COMMAND MENU
;
CMENU:	.ASCII	<15><12>/The following TLK commands are available:/<15><12>
	.ASCII	<15><12>/   A - initiate file transfer to host/
	.ASCII	<15><12>/   B - initiate file transfer from host/
	.ASCII	<15><12>/   C - transmit control character (^/<CMDCAR+100>
	.ASCII				/) to port/
	.ASCII	<15><12>/   D - detach from TALK/
	.ASCII	<15><12>/   E - change end-of-record character/
	.ASCII	<15><12>/   I - enter redirected input mode/
	.ASCII	<15><12>/   J - exit redirected input mode/
	.ASCII	<15><12>/   K - transmit break control character (^/
	.ASCII		<TBCHAR+100>/) to port/
	.ASCII	<15><12>/   M - display command menu/
	.ASCII	<15><12>/   O - enter redirected output mode/
	.ASCII	<15><12>/   P - exit redirected output mode/
	.ASCII	<15><12>/   Q - send control Q (^Q) to port/
	.ASCII	<15><12>/   S - send control S (^S) to port/
	.ASCII	<15><12>/   X - exit both redirected input mode and /
	.ASCII			/redirected output mode/
	.ASCII	<15><12>/   Z or ^Z - exit TLK program/
	.ASCII	<15><12>/   <CR> - exit command mode/<15><12>
LENMNU=.-CMENU
	.EVEN
MENU::
	JSR	PC,DETDEV		; DETACH FROM AST'S
	QIOMAC	R0,#WALTIO,#CMENU,#LENMNU,Y	; WRITE MENU TO TERMINAL
	JSR	PC,ATTDEV		; REATTACH FOR AST'S
	RTS	PC
;
	.END