Reorganized files. Modernized documentation.

[qbasicapps.git] / unsorted / modes.bas

diff --git a/unsorted/modes.bas b/unsorted/modes.bas
deleted file mode 100644 (file)
index aef4458..0000000
--- a/unsorted/modes.bas
+++ /dev/null
@@ -1,35 +0,0 @@
-' Determine avaiable video modes\r
-' made by Svjatoslav Agejenko\r
-' in 2001\r
-' homepage: svjatoslav.eu\r
-' email:    svjatoslav@svjatoslav.eu\r
- \r
-' program to determine avaiable video modes\r
-' it assumes that 1 is always avaiable\r
-\r
-DIM SHARED mo(1 TO 100)\r
-ON ERROR GOTO 1\r
-b = 1\r
-a = 0\r
-2\r
-SCREEN a\r
-'PRINT "mode", a\r
-'a$ = INPUT$(1)\r
-mo(b) = a\r
-b = b + 1\r
-a = a + 1\r
-GOTO 2\r
-\r
-\r
-1\r
-a = a + 1\r
-IF a > 1000 THEN\r
-    SCREEN 1\r
-    PRINT "Avaiable video modes on this computer:"\r
-    FOR a = 1 TO b - 1\r
-        PRINT mo(a)\r
-    NEXT a\r
-    END\r
-END IF\r
-RESUME\r
-\r