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