' SIN & COS table\r
' made by Svjatoslav Agejenko\r
' in 2003.12\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\r
+' homepage: svjatoslav.eu\r
+' email: svjatoslav@svjatoslav.eu\r
\r
xs = 640\r
ys = 480\r
-scr = 12 'Video mode\r
+scr = 12 'Video mode\r
strs = 0\r
\r
xs = xs / 11.3\r
ys = ys / 11.7\r
\r
-IF strs = 0 THEN ELSE GOTO 1\r
+IF strs = 0 THEN ELSE GOTO 1\r
\r
SELECT CASE scr\r
-CASE 12, 11\r
-strs = 16\r
+ CASE 12, 11\r
+ strs = 16\r
\r
-CASE 9, 10\r
-strs = 14\r
+ CASE 9, 10\r
+ strs = 14\r
\r
-CASE 1, 13, 2, 7, 8\r
-strs = 8\r
+ CASE 1, 13, 2, 7, 8\r
+ strs = 8\r
END SELECT\r
1\r
\r
SCREEN scr\r
\r
FOR b = 1 TO 10\r
-LINE (0, b * ys)-(xs * 10, b * ys), 8\r
-LINE (b * xs, 0)-(b * xs, ys * 10), 8\r
-LOCATE 10 * ys / strs + 2, b * xs / 8 + 1\r
-PRINT CHR$(b + 48)\r
+ LINE (0, b * ys)-(xs * 10, b * ys), 8\r
+ LINE (b * xs, 0)-(b * xs, ys * 10), 8\r
+ LOCATE 10 * ys / strs + 2, b * xs / 8 + 1\r
+ PRINT CHR$(b + 48)\r
NEXT b\r
\r
LOCATE 10 * ys / strs + 2, xs * 10 / 8 + 0\r
LINE (5 * xs + 1, 0)-(5 * xs + 1, 10 * ys), 14\r
\r
FOR a = 0 TO 10 STEP .05\r
-x = a * xs\r
-y = SIN(a) * ys * 5 + ys * 5\r
-IF a > 0 THEN LINE (x1, y1)-(x, y), 15\r
-x1 = x\r
-y1 = y\r
+ x = a * xs\r
+ y = SIN(a) * ys * 5 + ys * 5\r
+ IF a > 0 THEN LINE (x1, y1)-(x, y), 15\r
+ x1 = x\r
+ y1 = y\r
NEXT a\r
LOCATE y / strs + 1, xs * 10 / 8\r
PRINT "sin"\r
\r
FOR a = 0 TO 10 STEP .05\r
-x = a * xs\r
-y = COS(a) * ys * 5 + ys * 5\r
-IF a > 0 THEN LINE (x1, y1)-(x, y), 12\r
-x1 = x\r
-y1 = y\r
+ x = a * xs\r
+ y = COS(a) * ys * 5 + ys * 5\r
+ IF a > 0 THEN LINE (x1, y1)-(x, y), 12\r
+ x1 = x\r
+ y1 = y\r
NEXT a\r
LOCATE y / strs + 1, xs * 10 / 8\r
PRINT "cos"\r