SUBROUTINE HELP
	LOGICAL*1  MSG(10),MSGA(34),MSGB(30),MSGC(16),MSGD(30)
	LOGICAL*1 MSGE(40),MSGF(42),MSGH(10),MSGI(26),MSGO(26)
	LOGICAL*1 MSGP(26),MSGR(42),MSGS(34),MSGT(40),MSGU(22)
	LOGICAL*1 MSGX(24),MSG8(16),MSGUP(38),LSTMSG(2)
C
	DATA MSG/
     C	 "15,"12,' ','H','E','L','P',':',
     C	 "15,"12/
	DATA MSGX/
     C	 'X',' ','-',' ','E','x','i','t',' ','X','M','I','T',
     C	     'R',' ','p','r','o','g','r','a','m',
     C	 "15,
     C	 "12/
	DATA MSGA/
     C	 'A',' ','-',' ','C','h','a','n','g','e',' ','d','a',
     C	     't','a',' ','f','o','r','m','a','t',' ','t','o',
     C	     ' ','B','i','n','a','r','y',
     C	 "15,
     C	 "12/
	DATA MSGB/
     C	 'B',' ','-',' ','S','e','t',' ','t','h','e',' ','B',
     C	     'R','E','A','K',' ','c','h','a','r','a','c','t',
     c	     'e','r',
     C	 "15,"15,
     C	 "12/
	DATA MSGC/
     C	 'C',' ','-',' ','C','O','P','Y',' ','M','o','d','e',
     C	 "15,"15,
     C	 "12/
	DATA MSGD/
     C	'D',' ','-',' ','D','e','l','a','y',' ','t','i','m',
     C	    'e',' ','a','f','t','e','r',' ','p','r','o','m',
     C	    'p','t',
     C	"15,"15,
     C	"12/
	DATA MSGF/
     C	 'F',' ','-',' ','R','e','c','e','i','v','e',' ','a',
     C	     ' ','f','i','l','e',' ','f','r','o','m',' ','R',
     C	     'E','M','O','T','E',' ','c','o','m','p','u','t',
     C	     'e','r',
     C	 "15,"15,
     C	 "12/
	DATA MSGE/
     C	 'E',' ','-',' ','E','C','H','O',' ','r','e','c','e',
     C	     'i','v','e','d',' ','a','n','d',' ','t','r','a',
     C	     'n','s','m','i','t','t','e','d',' ','d','a','t',
     C	     'a',
     C	 "15,
     C	 "12/
	DATA MSGH/
     C	 'H',' ','-',' ','H','E','L','P',
     C	 "15,
     C	 "12/
	DATA MSGI/
     C	 'I',' ','-',' ','S','t','o','p',' ','i','n','p','u',
     C	     't',' ','f','r','o','m',' ','f','i','l','e',
     C	 "15,
     C	 "12/
	DATA MSGO/
     C	 'O',' ','-',' ','S','t','o','p',' ','o','u','t','p',
     C	     'u','t',' ','t','o',' ','f','i','l','e',
     C	 "15,"15,
     C	 "12/
	DATA MSGP/
     C	 'P',' ','-',' ','C','h','a','n','g','e',' ','p','r',
     C	     'o','m','p','t',' ','m','o','d','e','s',
     C	 "15,"15,
     C	 "12/
	DATA MSGR/
     C	 'R',' ','-',' ','R','e','d','e','f','i','n','e','/',
     C	     'd','o',' ','N','O','T',' ','r','e','d','e','f',
     C	     'i','n','e',' ','C','T','R','L',' ','c','h','a',
     C	     'r','s',
     C	 "15,"15,
     C	 "12/
	DATA MSGS/
     C	 'S',' ','-',' ','S','t','a','t','u','s',' ','o','f',
     C	     ' ','p','r','o','g','r','a','m',' ','p','a','r',
     C	     'a','m','e','t','e','r','s',
     C	 "15,
     C	 "12/
	DATA MSGT/
     C	 'T',' ','-',' ','T','r','a','n','s','m','i','t',' ',
     C	     'a',' ','f','i','l','e',' ','t','o',' ','R','E',
     C	     'M','O','T','E',' ','c','o','m','p','u','t','e',
     C	     'r',
     C	 "15,
     C	 "12/
	DATA MSGU/
     C	 'U',' ','-',' ','U','n','d','u','p','l','e','x','/',
     C	     'D','u','p','l','e','x',
     C	 "15,"15,
     C	 "12/
	DATA MSG8/
     C	 '8',' ','-',' ','8','-','B','i','t',' ','m','o','d',
     C	     'e',
     C	 "15,
     C	 "12/
	DATA MSGUP/
     C	'^',' ','-',' ','E','n','t','e','r',' ','s','u','b',
     C	    's','t','i','t','u','t','e',' ','C','T','R','L',
     C	    ' ','c','h','a','r','a','c','t','e','r',
     C	"15,"15,
     C	"12/
	DATA LSTMSG/0,0/
C
	I=0
 10	I=I+1
	ICHAR=MSG(I)
	IF(ICHAR.EQ.0) RETURN
	CALL ENQUE(ICHAR)
	GOTO 10
	END