' Determine avaiable video modes
' made by Svjatoslav Agejenko
' in 2001
' H-Page: svjatoslav.eu
' E-Mail: svjatoslavagejenko@gmail.com
 
' 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 machine is:"
FOR a = 1 TO b - 1
PRINT mo(a)
NEXT a
END
END IF
RESUME