RosettaCodeData/Task/Terminal-control-Dimensions/Yabasic/terminal-control-dimensions.basic

15 lines
431 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
clear screen
w = peek("screenwidth")
h = peek("screenheight")
print "Informaci¢n sobre el escritorio (terminal):"
print " Ancho de la terminal: ", w, " (pixel)"
print "Altura de la terminal: ", h, " (pixel)"
open window 640,480
w = peek("winheight")
h = peek("winwidth")
print "\n\nInformaci¢n sobre el modo gr fico:"
print " Ancho de la pantalla: ", w, " (pixel)"
print "Altura de la pantalla: ", h, " (pixel)\n"
close window