RosettaCodeData/Task/Terminal-control-Dimensions/PicoLisp/terminal-control-dimensions.l

4 lines
78 B
Common Lisp

(setq
Width (in '(tput cols) (read))
Height (in '(tput lines) (read)) )