X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=unsorted%2Ffont.bas;fp=unsorted%2Ffont.bas;h=0000000000000000000000000000000000000000;hp=0c005e5aa5b7bc80bb84cc830a16e73c4e603501;hb=56bc2db75aaf0e1bd556677914988b3a02775ecd;hpb=7cc7a0518d1489b33de83466008cccba1725ce52

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