23 lines
754 B
Plaintext
23 lines
754 B
Plaintext
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
|