2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 ' this program calculates sinus without using SIN function
\r
13 LINE (0, 240)-(640, 240), 15
\r
18 y = SIN(x / 100) * 100 + 240 ' using SIN
\r
21 r1 = r1 + ((0 - r) / 10000)
\r
22 r = r + r1 ' without SIN
\r
24 PSET (x, y + 241), 12
\r