10 CALL HRON("M" 1,11):DEG:FOR I=0 TO 319:Z= I*5:CALL PLOT("C",I,50-50*SIN(Z ))
20 CALL LINE("b",I,50,50*SIN(Z)):CALL LINE("Y",I,50-50*SIN(Z)):NEXT I