28 Y=COS(PHI)*55.0+SIN(PHI*12.0)*40.0
45 IF (Y.LE.100) GO TO 444
48 444 IF (Y.GE.-100) GO TO 555
56 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
62 CALL LINE(X,-100,X,100)
64 1500 DO 1600 Y=0,200,50
65 CALL LINE(0,Y-100,600,Y-100)
67 1300 DO 1400 Y=0,150,50
69 CALL LINE(X,Y-75,X+10,Y-75)
74 CALL LINE (0,-1,600,-1)
75 CALL LINE (-1,-100,-1,100)
76 CALL LINE (1,-100,1,100)
79 CALL PL$TXT(STAK,37HSinus-Demo, 08.11.2008, Ph. Hachtmann,37)
85 C SUBROUTINE LINE(X1,Y1,X2,Y2)
96 COMMON /PENSTA/PEN,PENX
97 IF (PEN.EQ.0) CALL PL$PD
105 COMMON /PENSTA/PEN,PENX
106 IF (PEN.EQ.1) CALL PL$PU