.TITLE	WTFCMD - WAIT FOR COMMAND
	.IDENT	/02JUN7/	;09:00:00, JB
;	.ENTRY	WTFCMD - WAIT FOR COMMAND
;+
; W T F C M D
;
; PURPOSE:	WAIT FOR COMMAND ROUTINE.  WAITS FOR A COMMAND
;		TO BE TYPED--SEE COMMENTS WITH CMDIN ROUTINE.
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL WTFCMD
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:
; 02-JUN-77	JB	UPDATED TO CONFORM TO STANDARDS
;
	.MCALL	WTSE$S
;
WTFCMD::WTSE$S	#CMDFL		;WAIT FOR COMMAND INPUT DONE
	RTS	PC
	.END