SUBROUTINE RGRPUT (IROW, ICOL, TEXT) C***************************************************************************** C C Description : Routine to print text at a specified absolute page position C C Arguments : IROW = INTEGER page row C ICOL = INTEGER page column C TEXT = STRING containing the text C C If IROW and/or ICOL are equal or less than zero, positionning C to row 0 resp. column 0 is done, but no text is printed C C Author : F.A.Minkema C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V2.0 Date : 10-jun-1983 C C Module name : RGRPUT.FTN C C Package : TRAMP C C Compilation/Linking : FOR/F4P/TR:NONE RGRPUT C C Updates : name version C C description : C C***************************************************************************** C BYTE DEVNAM,OFNTAB,SETPAG,SETSCR,DAT,TIM, 1 TEXREC,DATREC,RREC,SBUF,WPGREC COMMON/RGRCOM/NUNITR,NUNITS,NOS,MNOS,NUCTAB(4,4), 1 MAXBUF,NFRXR,LENREC,NPAG,NWPGR,NWPGC,NFXHL, 2 NRNXRE,NRFFTR,NRLFTR,NRFRTR,NRLRTR,NRFRDR,NRLRDR, 3 IPHLEN,LOGLEN,LOGWID,NRFLDW,NRLLDW,NRDATE,NCDATE, 4 NRTIME,NCTIME,NRPAGE,NCPAGE,NRRELS,NCRELS, 5 DEVNAM(14),SETPAG(6),SETSCR(6),DAT(10),TIM(10), 6 OFNTAB(32,4),TEXREC(40),DATREC(40),RREC(40), 7 SBUF(120),WPGREC(133) C BYTE TEXT(1) C C C check page position C IR=IROW IC=ICOL IF (IR.LT.0) IR=0 IF (IC.LT.0) IC=0 IF (IR.GT.LOGLEN) IR=LOGLEN IF (IC.GT.LOGWID) IC=LOGWID IF (IR.NE.0 .AND. IC.NE.0) 10,20,20 C THEN 10 CALL RGRPS(IR,IC,0,TEXT,0) GOTO 99 C ELSE 20 CALL RGRWR(IR) NWPGC=IC C ENDIF C C go back to calling routine C 99 RETURN END