0 PI = 3.14159265358979323
10  CALL  - 936
15  GOSUB 1000

17 WI = DT / 279
20 DV = DT / (PI * F)
30  HGR 
35  POKE  - 16302,0
40  HCOLOR= 7
45  GOSUB 32000

50  FOR XX = 0 TO DT
53 HX = XX - (DT / 2)
55 DP = 0
60 X = HX / DV
70  GOSUB 2000

75  IF DP = 1 THEN 100
80 HY = (((0 - Y) / FT) * 95) + 95
85  IF HY > 190 OR HY < 0 THEN 100
87 XH = XX / WI
90  HPLOT XH,HY
100  NEXT XX
900  CALL  - 756
910  TEXT 
920  CALL  - 936
930  END 

1000  INPUT "LENGTH (PI*X) X:";F
1005  INPUT "HEIGHT (PI*Y) Y:";FT
1010  INPUT "DOTS <250 RECOMENDED :";DT
1020  PRINT "S(I)N"
1030  PRINT "C)OS"
1040  PRINT "T)AN"
1043  PRINT "C(S)C"
1045  PRINT "S(E)C"
1047  PRINT "C(O)T"
1048  PRINT "SI(N)C"
1050  PRINT ":";: GET TG$
1055  PRINT TG$
1060  IF TG$ <  > "I" THEN 1080
1070  GOTO 1170
1080  IF TG$ <  > "C" THEN 1100
1090  GOTO 1170
1100  IF TG$ <  > "T" THEN 1120
1110  GOTO 1170
1120  IF TG$ <  > "S" THEN 1140
1130  GOTO 1170
1140  IF TG$ <  > "E" THEN 1160
1150  GOTO 1170
1160  IF TG$ <  > "O" THEN 1165
1163  GOTO 1170
1165  IF TG$ <  > "N" THEN 0
1170  PRINT 
1185 FT = (FT * PI) / 2
1190  CALL  - 936
1200  RETURN 

2000  IF TG$ = "I" THEN Y =  SIN (X): RETURN 
2010  IF TG$ = "C" THEN Y =  COS (X): RETURN 
2020  IF TG$ = "T" THEN 7000
2030  IF TG$ = "S" THEN 3000
2040  IF TG$ = "E" THEN 4000
2050  IF TG$ = "O" THEN 5000
2060  IF TG$ = "N" THEN 6000
3000  IF X / PI =  INT (X / PI) THEN DP = 1: RETURN 
3005  IF X = 0 THEN DP = 1: RETURN 
3010 Y = 1 /  SIN (X): RETURN 
4000  IF X / (PI / 2) =  INT (X / (PI / 2)) THEN DP = 1: RETURN 
4010 Y = 1 /  COS (X): RETURN 
5000  IF  INT (XX / PI) =  INT ((XX / PI) + 0.5) THEN DP = 1: RETURN 
5010  IF X = 0 THEN DP = 1: RETURN 
5020 Y = 1 /  TAN (X): RETURN 
6000  IF X = 0 THEN DP = 1: RETURN 
6010 Y =  SIN (X) / X: RETURN 
7000  IF XX = 0 THEN DP = 1: RETURN 
7010  IF  INT (XX / PI) =  INT ((XX / PI) + 0.5) THEN DP = 1: RETURN 
7020 Y =  TAN (X): RETURN 
32000  HPLOT 139,0 TO 139,190
32010  HPLOT 0,95 TO 279,95
32020  RETURN