23 lines
754 B
Text
23 lines
754 B
Text
|
Dim As Integer w, h, p, bpp, tasa
|
|||
|
|
Dim driver_name As String
|
|||
|
|
Screeninfo w, h, p, bpp, , tasa
|
|||
|
|
|
|||
|
|
Print !"Informaci¢n sobre el escritorio (terminal):\n"
|
|||
|
|
Print " Ancho de la terminal: "; w; " (pixel)"
|
|||
|
|
Print "Altura de la terminal: "; h; " (pixel)"
|
|||
|
|
Print " Profundidad de color: "; p; " (bits)"
|
|||
|
|
Print " Tasa de refresco: "; tasa; " (Hz)"
|
|||
|
|
|
|||
|
|
' Sets screen mode 13 (640*480, 8bpp)
|
|||
|
|
Screen 12
|
|||
|
|
Screeninfo w, h, p, bpp, , tasa, driver_name
|
|||
|
|
|
|||
|
|
Print !"Informaci¢n sobre el modo gr fico:\n"
|
|||
|
|
Print " Ancho de la pantalla: "; w; " (pixel)"
|
|||
|
|
Print "Altura de la pantalla: "; h; " (pixel)"
|
|||
|
|
Print " Profundidad de color: "; p; " (bits)"
|
|||
|
|
Print " Bytes por pixel: "; bpp
|
|||
|
|
Print " Tasa de refresco: "; tasa; " (Hz)"
|
|||
|
|
Print " Nombre del driver: "; driver_name
|
|||
|
|
Sleep
|