* fixed some email addresses

[qbasicapps.git] / simulation / liquid.bas

diff --git a/simulation/liquid.bas b/simulation/liquid.bas
old mode 100755 (executable)
new mode 100644 (file)
index 9b5bd93..ee62c3d
--- a/simulation/liquid.bas
+++ b/simulation/liquid.bas
@@ -1,8 +1,8 @@
 ' Rounds up sharp edges\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
 DEFINT A-Z\r
 WIDTH 80, 50\r
@@ -13,37 +13,37 @@ DIM SHARED buf1(1 TO 80, 1 TO 50)
 DIM SHARED buf2(1 TO 80, 1 TO 50)\r
 \r
 FOR y = 1 TO 50\r
-FOR x = 1 TO 80\r
-buf1(x, y) = INT(RND * 2)\r
-NEXT x\r
+    FOR x = 1 TO 80\r
+        buf1(x, y) = INT(RND * 2)\r
+    NEXT x\r
 NEXT y\r
 \r
 1\r
 FOR y = 2 TO 49\r
-FOR x = 2 TO 79\r
-c = buf1(x - 1, y - 1)\r
-c = c + buf1(x, y - 1)\r
-c = c + buf1(x + 1, y - 1)\r
-c = c + buf1(x - 1, y)\r
-c = c + buf1(x + 1, y)\r
-c = c + buf1(x - 1, y + 1)\r
-c = c + buf1(x, y + 1)\r
-c = c + buf1(x + 1, y + 1)\r
-IF buf1(x, y) = 1 THEN\r
-IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
-ELSE\r
-IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
-END IF\r
-NEXT x\r
+    FOR x = 2 TO 79\r
+        c = buf1(x - 1, y - 1)\r
+        c = c + buf1(x, y - 1)\r
+        c = c + buf1(x + 1, y - 1)\r
+        c = c + buf1(x - 1, y)\r
+        c = c + buf1(x + 1, y)\r
+        c = c + buf1(x - 1, y + 1)\r
+        c = c + buf1(x, y + 1)\r
+        c = c + buf1(x + 1, y + 1)\r
+        IF buf1(x, y) = 1 THEN\r
+            IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
+        ELSE\r
+            IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0\r
+        END IF\r
+    NEXT x\r
 NEXT y\r
 \r
 FOR y = 1 TO 50\r
-FOR x = 1 TO 80\r
-b = buf2(x, y)\r
-buf1(x, y) = b\r
-LOCATE y, x\r
-IF b = 0 THEN PRINT ".";  ELSE PRINT "#"\r
-NEXT x\r
+    FOR x = 1 TO 80\r
+        b = buf2(x, y)\r
+        buf1(x, y) = b\r
+        LOCATE y, x\r
+        IF b = 0 THEN PRINT "."; ELSE PRINT "#"\r
+    NEXT x\r
 NEXT y\r
 SOUND 0, 3\r
 GOTO 1\r