' 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
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