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

diff --git a/misc/modes.bas b/misc/modes.bas
new file mode 100644
index 0000000..aef4458
--- /dev/null
+++ b/misc/modes.bas
@@ -0,0 +1,35 @@
+' 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
+