The following is a very elaborate example of how to to place several MASTER routine plots on the same Ramtek and terminal screen but different metafile pages.
C OPEN LONGLIB OUTSIDE OF MASTER ROUTINE C SELECT BOTH TERMINAL AND RAMTEK SCREEN OUTPUT WITH NO C SCREEN CLEAR ON RAMTEK OR TERMINAL CALL FRAME(3,-3,1.,1.,1.) C CHANGE COLOR AND ADD A SEPARATE PLOT TITLE CALL PLOT(7.,0.,0) CALL SYMBOL(6.,11.5,.3,'TITLE',0.,5,-1) C CHANGE ORIGIN AND SHRINK SUBSEQUENT PLOTS ON RAMTEK/TERMINAL C BUT NOT METAFILE CALL PLOT(1.,1.,-3) CALL VFACTOR(.5) CALL RFACTOR(.5) C LOOP TO PLOT FOUR MASTER PLOTS ON ONE SCREEN DO 10 I=1,4 C CALL PLOTSC WITH iflag < 10000 TO NOT INITIALIZE C LONGLIB OR CLOSE IT AFTER PLOT C SET iflag TO PRODUCE AXIS TICKED GRID C (SINCE LONGLIB OPEN, NO PROMPT FOR SCREEN DEVICE) CALL PLOTSC(X,Y,25,-10004,8.,6.,'X AXIS',6, 1 'Y AXIS',6,'TITLE',5) C MOVE ONLY RAMTEK AND TERMINAL ORIGINS BUT NOT METAFILE CALL PLOTRM(0.,2.*5.,-3) CALL PLOTVT(0.,2.*5.,-3) IF (I.EQ.2) CALL PLOTRM(11.,-20.,-3) IF (I.EQ.2) CALL PLOTVT(11.,-20.,-3) C NEWPAGE ON METAFILE (DOES NOT AFFECT TERMINAL/RAMTEK) CALL NEWPAGE 10 CONTINUE ... C PROMPT FOR SCREEN CLEAR ON RAMTEK/TERMINAL CALL CTERM(2) CALL RTERM(2) C CLOSE LONGLIB CALL PLOTND ...