PROGRAM SDMESS
C
C     TO SEND MESSAGE TO THE SERIAL PORT
C     OLYMPIC SOFTWARE  --  9/26/88
C
      EXTERNAL SBIOS
      INTEGER*2 IAR(3)
      CHARACTER*1 ALPHA(40)
      CHARACTER*40 A1
      EQUIVALENCE (A1,ALPHA(1))
      DATA A1 /'TESTING D-ACCESS SBIOS MODULE'/
C
C***    DEFINE RETURN/LINE FEED
      ALPHA(33)=CHAR(13)
      ALPHA(34)=CHAR(10)
C
C***    INPUT PORT NUMBER
      WRITE(*,20)
 20   FORMAT(' ENTER PORT NUMBER: ',$)
      READ(*,*)IAR(3)
C
C***    SEND OUT
      DO 10 I=1,34
      IAR(1)=1
      IAR(2)=ICHAR(ALPHA(I))
      CALL SBIOS(IAR)
 10   CONTINUE
C
      STOP
      END