misc/modes.bas

   1 ' Determine avaiable video modes\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2001\r
   4 ' homepage: svjatoslav.eu\r
   5 ' email:    svjatoslav@svjatoslav.eu\r
   6  \r
   7 ' program to determine avaiable video modes\r
   8 ' it assumes that 1 is always avaiable\r
   9 \r
  10 DIM SHARED mo(1 TO 100)\r
  11 ON ERROR GOTO 1\r
  12 b = 1\r
  13 a = 0\r
  14 2\r
  15 SCREEN a\r
  16 'PRINT "mode", a\r
  17 'a$ = INPUT$(1)\r
  18 mo(b) = a\r
  19 b = b + 1\r
  20 a = a + 1\r
  21 GOTO 2\r
  22 \r
  23 \r
  24 1\r
  25 a = a + 1\r
  26 IF a > 1000 THEN\r
  27     SCREEN 1\r
  28     PRINT "Avaiable video modes on this computer:"\r
  29     FOR a = 1 TO b - 1\r
  30         PRINT mo(a)\r
  31     NEXT a\r
  32     END\r
  33 END IF\r
  34 RESUME\r
  35 \r