SUBROUTINE DIAL(DIALLN)
C
C	THIS SUBROUTINE WILL DIAL A HAYES 300 MODEM
C	IT WILL LOOK UP NUMBERS GIVEN A 6 LETTER NAME
C
	BYTE DIALLN(15),NAME(6),NUMBER(15)
	BYTE DIALCM(25)
	IF(DIALLN(1).EQ.' ')THEN
		DO 5,I=1,15
5		DIALLN(I)=' '
		WRITE(5,1001)"15
		CALL READST(DIALLN,N,15)
	END IF
	IF((DIALLN(1).GE.'A'.AND.DIALLN(1).LE.'Z')
	1.OR.(DIALLN(1).GE.'a'.AND.DIALLN(1).LE.'z'))THEN
		OPEN(UNIT=1,FILE='SY:DIAL.NUM',STATUS='OLD'
	1	,ERR=100,READONLY,SHARED)
10		READ(1,1000,END=20)NAME,NUMBER
		DO 15,I=1,6
		IF(NAME(I).NE.DIALLN(I))GO TO 10
15		CONTINUE
		CLOSE(UNIT=1)
		GO TO 30
20		WRITE(5,1004)"15
		CLOSE(UNIT=1)
		GO TO 100
	ELSE IF(DIALLN(1).GE.'0'.AND.DIALLN(1).LE.'9')THEN
		DO 25,I=1,15
		NUMBER(I)=DIALLN(I)
25		CONTINUE
	ELSE
		WRITE(5,1005)
		GOTO 100
	END IF
30	DIALCM(1)='A'
	DIALCM(2)='T'
	DIALCM(3)='Q'
	DIALCM(4)='0'
	DIALCM(5)='D'
	DIALCM(6)='T'
	DIALCM(7)='#'
	DIALCM(8)='2'
	DIALCM(9)=','
	DO 32,I=10,24
	DIALCM(I)=NUMBER(I-9)
32	CONTINUE
	DIALCM(25)="15
	DO 40,I=1,20
	ITCHAR=DIALCM(I)
	J=IOUTT1(ITCHAR)
	CALL MARK(17,3,1)
	CALL WAITFR(17)
40	CONTINUE
100	DO 101,I=1,15
	DIALLN(1)=' '
101	CONTINUE
	RETURN
1000	FORMAT(6A1,15A1)
1001	FORMAT('$',A1,'Dial whom? ')
1002	FORMAT(Q,15A1)
1003	FORMAT(1X,15A1)
1004	FORMAT('$',A1,'Entry not found.')
1005	FORMAT('$',/,'$SYNTAX ERROR')
	END