' Determine avaiable video modes
' made by Svjatoslav Agejenko
' in 2001
' homepage: svjatoslav.eu
' email:    svjatoslav@svjatoslav.eu
 
' 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 computer:"
    FOR a = 1 TO b - 1
        PRINT mo(a)
    NEXT a
    END
END IF
RESUME