C CODE DSEND - TO SEND INTEGERS TO COMTAL DISPLAY C CALL COMGO(ISTAT) IF ( ISTAT .EQ. 0 )TYPE 8000 8000 FORMAT( ' NO COMTAL RESPONSE') 5 ISTAT = 0 CALL COMST(ISTAT) IF ( ISTAT .LT. 0 ) GOTO 5 TYPE 8001 8001 FORMAT(1H ,' ENTER OCTAL PATTERN FOR COMTAL =',I5 ) READ(5,10)ICMD 10 FORMAT( O6 ) CALL COM0(ICMD) GOTO 5 30 CALL COMEX STOP END