X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=unsorted%2Fmodes.bas;fp=unsorted%2Fmodes.bas;h=0000000000000000000000000000000000000000;hp=aef4458d98e67d23af50a99434442e3eb2102398;hb=c6aaa433dedff2dd8063983c7716c0cdb296a0f9;hpb=3779e9035f2c67e36111585e10d956a3e9e3c0fa

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