WRITE (1,55)
55 FORMAT (1H0)
C
+ CALL PLOTI
CALL CALC2
C
WRITE(1, 60)
SUBROUTINE PLOTI
INTEGER PEN,PENX
COMMON /PENSTA/PEN,PENX
- CALL PL$UP
+ CALL PL$INI
+ CALL PL$SCL(3.0)
+ CALL PL$PU
PEN=0
PENX=0
RETURN
CALL PL$R
IF (PEN.EQ.0) CALL PL$PD
PEN=1
- CALL PL$UP
+ CALL PL$U
CALL PL$R
- CALL PL$DN
+ CALL PL$D
PENX=PENX+2
RETURN
END
PENX=PENX-1
GO TO 8000
8100 CONTINUE
- CALL PL$DN
- CALL PL$DN
+ CALL PL$D
+ CALL PL$D
RETURN
END
C