Merge branch 'master' of ssh://svjatoslav.eu:10006/home/n0/git/qbasicapps

[qbasicapps.git] / unsorted / font.bas

diff --git a/unsorted/font.bas b/unsorted/font.bas
deleted file mode 100644 (file)
index 0c005e5..0000000
--- a/unsorted/font.bas
+++ /dev/null
@@ -1,61 +0,0 @@
-' Svjatoslav Agejenko\r
-' year: 2001\r
-' alien text\r
-\r
-DEFINT A-Z\r
-DECLARE SUB prch (x, y, n, s)\r
-DIM SHARED co(1 TO 4)\r
-co(1) = 7\r
-co(2) = 7\r
-co(3) = 0\r
-co(4) = 0\r
-\r
-\r
-SCREEN 12\r
-RANDOMIZE TIMER\r
-\r
-PAINT (1, 1), 0\r
-\r
-siz = 4\r
-\r
-tmp = 0\r
-FOR y = 1 TO 480 - siz - 2 STEP siz + (siz \ 2)\r
-tmp1 = 0\r
-FOR x = 1 TO 640 - siz - 2 STEP siz + (siz \ 2)\r
-prch x, y, RND * 16, siz\r
-tmp1 = tmp1 + 1\r
-IF tmp1 > 20 THEN tmp1 = 0: x = x + (siz)\r
-NEXT x\r
-tmp = tmp + 1\r
-IF tmp > 5 THEN tmp = 0: y = y + (siz)\r
-NEXT y\r
-\r
-SUB prch (x, y, n, s)\r
-sp = s \ 2\r
-\r
-c = co(RND * 3 + 1)\r
-LINE (x, y)-(x + s, y), c\r
-LINE (x, y)-(x + sp, y + sp), c\r
-LINE (x + s, y)-(x + sp, y + sp), c\r
-PAINT (x + 2, y + 1), c\r
-\r
-c = co(RND * 3 + 1)\r
-LINE (x, y)-(x, y + s), c\r
-LINE (x, y)-(x + sp, y + sp), c\r
-LINE (x, y + s)-(x + sp, y + sp), c\r
-PAINT (x + 1, y + 2), c\r
-\r
-c = co(RND * 3 + 1)\r
-LINE (x + s, y)-(x + s, y + s), c\r
-LINE (x + s, y)-(x + sp, y + sp), c\r
-LINE (x + s, y + s)-(x + sp, y + sp), c\r
-PAINT (x + s - 1, y + 2), c\r
-\r
-c = co(RND * 3 + 1)\r
-LINE (x, y + s)-(x + s, y + s), c\r
-LINE (x, y + s)-(x + sp, y + sp), c\r
-LINE (x + s, y + s)-(x + sp, y + sp), c\r
-PAINT (x + 2, y + s - 1), c\r
-\r
-END SUB\r
-\r