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

[qbasicapps.git] / misc / modes.bas

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