RosettaCodeData/Task/Terminal-control-Dimensions/Locomotive-Basic/terminal-control-dimensions-3.basic

4 lines
160 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
10 w%=0:h%=0 ' initialize and force integer type
20 |getwh,@w%,@h% ' call RSX and pass variables as pointers
30 PRINT "window width:"; w%; ", height:"; h%