X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=unsorted%2Fmodes.bas;h=aef4458d98e67d23af50a99434442e3eb2102398;hp=70a2c58428d90db71e5a8a0934f8905a155c4cf6;hb=08a50b7a860f6aa39f58108a07e2fc13e46260b9;hpb=68c9ea9c1b1c03a3d38bd585f0bdeee6371cb05b

diff --git a/unsorted/modes.bas b/unsorted/modes.bas
old mode 100755
new mode 100644
index 70a2c58..aef4458
--- a/unsorted/modes.bas
+++ b/unsorted/modes.bas
@@ -1,8 +1,8 @@
 ' Determine avaiable video modes
 ' made by Svjatoslav Agejenko
 ' in 2001
-' H-Page: svjatoslav.eu
-' E-Mail: svjatoslavagejenko@gmail.com
+' homepage: svjatoslav.eu
+' email:    svjatoslav@svjatoslav.eu
  
 ' program to determine avaiable video modes
 ' it assumes that 1 is always avaiable
@@ -24,12 +24,12 @@ GOTO 2
 1
 a = a + 1
 IF a > 1000 THEN
-SCREEN 1
-PRINT "Avaiable video modes on this machine is:"
-FOR a = 1 TO b - 1
-PRINT mo(a)
-NEXT a
-END
+    SCREEN 1
+    PRINT "Avaiable video modes on this computer:"
+    FOR a = 1 TO b - 1
+        PRINT mo(a)
+    NEXT a
+    END
 END IF
 RESUME