10 CLS
20 SCREEN 1
30 WINDOW (-1.508, 1.508)-(1.508, -1.508)
31 CLS
35 PRINT "Complex Sine"
40 A = -3.16
50 B = -3.16
55 e = 2.718281828459045#
60 K = .0101
70 X = 0
80 Y = 0
90 IF B < 3.16 THEN GOTO 130
100 A = A + .01851
110 B = -3.16
120 K = 0
130 B = B + .01851
140 K = 0
150 IF A > 3.16 THEN GOTO 200
160 F = SIN(A) * (((e ^ B) + (e ^ -B)) / 2)
170 G = COS(A) * (((e ^ B) - (e ^ -B)) / 2)
180 PRESET (F, G), 15
190 GOTO 90
200 FOR Z = 1 TO 100000
210 NEXT Z
220 SYSTEM