C VSKS SEND RECORD TO VOTRAX AUDIO RESPONSE UNIT - SETA VERSION SUBROUTINE VSK(LUN,IEF,NCELL,IBUF,KERR) C C LUN = AN AVAILABLE UNIT NUMBER C IEF = AN AVAILABLE EVENT FLAG C NCELL = TEST CELL INDEX (0-4) C IBUF = ARRAY OF PHONETIC CODES C KERR = O IF OK, <0 RETURNS DIR/QIO ERROR CODE C BYTE IBUF(1) PARAMETER READ=0, WRITE=-1 C C FIND END OF WORD DO 15 I=1,1000 IF (IBUF(I).EQ.0) GO TO 20 15 CONTINUE 20 I=I-1 C C ASSIGN LUN CALL ASNLUN(LUN,'SE',NCELL,IDS) IF (IDS.LT.0) GO TO 95 C C ATTACH LUN CALL QIO("1400,LUN,,,,,IDS) IF (IDS.LT.0) GO TO 95 C C ASK FOR FULL FLAG 5 CALL SERIO(LUN,IEF,"177,1,WRITE,IDS) IF (IDS.LT.0) GO TO 95 C C READ FULL FLAG CALL SERIO(LUN,IEF,JS,1,READ,IDS) IF (IDS.LT.0) GO TO 95 IF (JS.EQ.0) GO TO 10 C C WAIT AWHILE CALL MARK(IEF,2,2,IDS) IF (IDS.LT.0) GO TO 95 CALL WAITFR(IEF,IDS) IF (IDS.LT.0) GO TO 95 GO TO 5 C C SEND RECORD 10 CALL SERIO(LUN,IEF,IBUF,I,WRITE,IDS) IF (IDS.LT.0) GO TO 95 KERR=0 GO TO 99 95 KERR=IDS C C DETACH LUN 99 CALL QIO("2000,LUN,,,,,IDS) IF (IDS.LT.0) KERR=IDS RETURN END