* fixed some email addresses

[qbasicapps.git] / math / sin_cos.bas

diff --git a/math/sin_cos.bas b/math/sin_cos.bas
old mode 100755 (executable)
new mode 100644 (file)
index 037b626..81a1186
--- a/math/sin_cos.bas
+++ b/math/sin_cos.bas
@@ -1,38 +1,38 @@
 ' 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
@@ -48,21 +48,21 @@ LINE (0, ys * 5 + 1)-(xs * 10, ys * 5 + 1), 14
 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