Terminal control/Dimensions: Difference between revisions
Content added Content deleted
(Changed the program to store the wisth and height in variables as required by the task.) |
(Terminal control/Dimensions en FreeBASIC) |
||
Line 368: | Line 368: | ||
[then] |
[then] |
||
term-width ! term-height !</lang> |
term-width ! term-height !</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>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 " Profundida 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 terminal: "; w; " (pixel)" |
|||
Print "Altura de la terminal: "; h; " (pixel)" |
|||
Print " Profundida de color: "; p; " (bits)" |
|||
Print " Bytes por pixel: "; bpp |
|||
Print " Tasa de refresco: "; tasa; " (Hz)" |
|||
Print " Nombre del driver: "; driver_name |
|||
Sleep</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |