25 Y=COS(PHI)*55.0+SIN(PHI*12.0)*40.0
42 IF (Y.LE.100) GO TO 444
45 444 IF (Y.GE.-100) GO TO 555
53 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
58 CALL LINE(X,-100,X,100)
60 1500 DO 1600 Y=0,200,50
61 CALL LINE(0,Y-100,600,Y-100)
63 1300 DO 1400 Y=0,150,50
65 CALL LINE(X,Y-75,X+10,Y-75)
70 CALL LINE (0,-1,600,-1)
71 CALL LINE (-1,-100,-1,100)
72 CALL LINE (1,-100,1,100)
78 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