FORTRAN Reference Manual

Program Compilation
FORTRAN Reference Manual—528615-001
9-32
Using the SEARCH Directive—Sample Program 2
C Main Program -- Pen Primer
?UNIT (8)
?SEARCH fpslib
COMMON/termio/kebord, icrt
COMMON/zdonz/ldevzi, ldevzo
CHARACTER*1 mess(16)
DATA mess/'P','R','I','M','I','N','G',' ',
+ 'T','H','I','S',' ','P','E','N'/
kebord = 4
icrt = 4
ldevzi = 8
ldevzo = 8
OPEN(8,FILE='$S.#PLOTS',STATUS='OLD',SPACECONTROL='NO',
+ IOSTAT=ioerr,ERR=8888)
CALL plots(53,0,8 )
CALL newpen (1)
CALL symbol(2.,5.,.2,mess,0.,16)
CALL symbol(2.,4.5,.2,mess,0.,16)
CALL newpen (2)
CALL symbol(2.,4.,.2,mess,0.,16)
CALL symbol(2.,3.5,.2,mess,0.,16)
CALL newpen (3)
CALL symbol(2.,3.,.2,mess,0.,16)
CALL symbol(2.,2.5,.2,mess,0.,16)
CALL newpen (4)
CALL symbol(2.,2.,.2,mess,0.,16)
CALL symbol(2.,1.5,.2,mess,0.,16)
CALL plot(8.5,0.,999)
WRITE (icrt,1)
1 FORMAT(' ALL 4 PENS PRIMED'/)
STOP
8888 WRITE (4,8889) ioerr