SUBROUTINE MPRMES (MESS) C***************************************************************************** C C Description : Routine to write a message on the current menu C C Arguments : MESS = STRING containing the message to be printed C C Author : F.A.Minkema C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 1-nov-1982 C C Module name : MPRMES.FTN C C Package : TRAMP C C Compilation/Linking : FOR/F4P/TR:NONE MPRMES C C Updates : name version C C description : C C***************************************************************************** C BYTE CLRSTR,ERLSTR,CLRVAT,FLSVAT,FNPPOS,FNGPOS,FLSPOS, 1 MESPAT,GENVAT,GENLAT,MENPAT,FUNTAB,TYPTAB,MFTTAB COMMON/MPRCOM/ISCR,NUNIT,IBTFLG,IMESFL,MAXBUF,LMAR, 1 MSTACK,ISTACK(8),NRMMR,NRNRCM,NRFUN, 2 NRFFLR,NRLFLR,NRTTAB(12), 3 CLRSTR(8),ERLSTR(4),CLRVAT(6),FLSVAT(8), 4 FNPPOS(8),FNGPOS(8),FLSPOS(8),MESPAT(14), 5 GENVAT(8),GENLAT(4,2),MENPAT(10), 6 FUNTAB(6,12),TYPTAB(12),MFTTAB(7,12) C C BYTE TEXT(80),CC(3,3),MESS(1) DATA CC /'+',0,0,' ',0,0,' ','$',0/ C C C print message line(s) C IF (IMESFL.NE.0) CALL MPRCM ! clear messages if necessary IPOS=1 CALL SWRITE(ISCR,'+$',MESPAT) 10 IF (IMESFL.EQ.3) GOTO 99 LM=LEN(MESS(IPOS)) IF (LM.GT.79) 12,40,40 C THEN 12 DO 30 I=IPOS+78,IPOS,-1 IF (MESS(I).EQ.' ' .OR. MESS(I).EQ.'-') 20,30,30 C THEN 20 IMESFL=IMESFL+1 CALL SCOPY(MESS(IPOS),TEXT,I-IPOS+1) CALL SWRITE(ISCR,CC(1,IMESFL),TEXT) IPOS=I+1 GOTO 10 C ENDIF 30 CONTINUE C ENDIF 40 CALL SCOPY(MESS(IPOS),TEXT) IMESFL=IMESFL+1 CALL SWRITE(ISCR,CC(1,IMESFL),TEXT) C C go back to calling routine C 99 RETURN END