$INCLUDE: 'EXEC.FI'
       CHARACTER*25 ALPHA
       INTEGER*2 SYSTEM,I
       ALPHA='$1RID'//CHAR(13)
       OPEN(UNIT=10,STATUS='OLD',MODE='READWRITE',FILE='COM1')
       I=SYSTEM('MODE COM1 96,N,8,1'C)
       WRITE(6,*) 'I=',I
       WRITE(10,*) ALPHA
       READ(10,*) ALPHA
       WRITE(6,*) 'ALPHA=',ALPHA
       CLOSE(UNIT=10)
       END
