projects
/
qbasicapps.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* 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
' Determine avaiable video modes
\r
' made by Svjatoslav Agejenko
\r
' in 2001
\r
-'
H-P
age: svjatoslav.eu
\r
-'
E-Mail: svjatoslavagejenko@gmail.com
\r
+'
homep
age: 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
' 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
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
END IF
\r
RESUME
\r
\r