1 2 3 4 5 6 7 8 9 10 11 12
# PS_WIDTH -- Get width of physical screen # # B.Simon 18-Jan-89 Original int procedure ps_width () #-- include "screen.com" begin return (cols) end