* fixed some email addresses

[qbasicapps.git] / unsorted / modes.bas

diff --git a/unsorted/modes.bas b/unsorted/modes.bas
old mode 100755 (executable)
new mode 100644 (file)
index 70a2c58..aef4458
--- a/unsorted/modes.bas
+++ b/unsorted/modes.bas
@@ -1,8 +1,8 @@
 ' Determine avaiable video modes\r
 ' made by Svjatoslav Agejenko\r
 ' in 2001\r
-' H-Page: svjatoslav.eu\r
-' E-Mail: svjatoslavagejenko@gmail.com\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
@@ -24,12 +24,12 @@ GOTO 2
 1\r
 a = a + 1\r
 IF a > 1000 THEN\r
-SCREEN 1\r
-PRINT "Avaiable video modes on this machine is:"\r
-FOR a = 1 TO b - 1\r
-PRINT mo(a)\r
-NEXT a\r
-END\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