Adding Additional Annotation to a MASTER Routine Plot

The following is an  example of using a MASTER subroutine more than once and/or adding additional text or another plotting line and/or two MASTER subroutines: (see also the program PLOTTESTS)

       ...
C INCLUDE PLOTSC ROUTINE COMMON BLOCK WHICH RETURNS
C SCALE FACTORS USED IN PLOTTING
       COMMON /CPLOTSC/XMR,DXR,YMR,DYR 
       ...
C CALL PLOTSC WITH -10000 iflag < 0 TO INITIALIZE LONGLIB
C BEFORE CALL BUT NOT CLOSE LONGLIB AFTER CALL
C SET iflag TO PROMPT FOR SCREEN DEVICE TYPE WITH TICKED GRID
       CALL PLOTSC(X,Y,25,4,8.,6.,'X AXIS',6,
     1    'Y AXIS',6,'TITLE',-5,ICOL)
C PUT GRAPHICS TERMINAL IN GRAPHICS MODE
       CALL CTERM(-1)
C PLOT ADDITIONAL TEXT AFTER PLOT TITLE
       CALL SYMBOL(999.,999.,0.15,' TEXT',0.,5,-1)
C PLOT ADDITIONAL ANNOTATION ABOVE PLOT
       CALL SYMBOL(0.0,6.5,0.15,'NUMBER=',0.,7,-1)
C ADD NUMBER AFTER ANNOTATION WITH 3 DIGITS AFTER DECIMAL PT.
       CALL NUMBER(999.0,999.0,0.15,3.1415,0.,0.3,-1)
C CHANGE LINE TYPE TO DOTTED
       CALL NEWPEN(1)
C ADD ANOTHER LINE OF DATA ON PLOT USING PLOTSC SCALE FACTORS
       CALL LINE(X,Y2,N,1,0,0,1,1,XMR,DXR,YMR,DYR)
       ...
C ASK IF SCREEN CLEAR ON TERMINAL (METAFILE NOT AFFECTED)
       CALL CTERM(2)
       CALL PLOTND
       ...