' Sinus calculator
' made by Svjatoslav Agejenko
' in 2003.12
' H-Page: svjatoslav.eu
' E-Mail: svjatoslav@svjatoslav.eu
 

' this program calculates sinus without using SIN function


SCREEN 12

LINE (0, 240)-(640, 240), 15

r = 0
r1 = 1
FOR x = 1 TO 639
y = SIN(x / 100) * 100 + 240  ' using SIN
PSET (x, y), 15

r1 = r1 + ((0 - r) / 10000)
r = r + r1                   '  without SIN
y = r
PSET (x, y + 241), 12

NEXT x