26 Y=COS(PHI)*55.0+SIN(PHI*12.0)*40.0
43 IF (Y.LE.100) GO TO 444
46 444 IF (Y.GE.-100) GO TO 555
54 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
59 CALL LINE(X,-100,X,100)
61 1500 DO 1600 Y=0,200,50
62 CALL LINE(0,Y-100,600,Y-100)
64 1300 DO 1400 Y=0,150,50
66 CALL LINE(X,Y-75,X+10,Y-75)
71 CALL LINE (0,-1,600,-1)
72 CALL LINE (-1,-100,-1,100)
73 CALL LINE (1,-100,1,100)
79 C SUBROUTINE LINE(X1,Y1,X2,Y2)
90 COMMON /PENSTA/PEN,PENX
91 IF (PEN.EQ.0) CALL PL$PD
99 COMMON /PENSTA/PEN,PENX
100 IF (PEN.EQ.1) CALL PL$PU