CALL WIN.EVAL('SystemMetrics(1):"*":SystemMetrics(0):"*":WindowPos(0):"*":Get(Columns):"*":Get(Lines):"*":Version:"*":Seri
al:"*":Get(Font):"*":Get(ExtraLineSpace)',SYSMET)
DEPTH = FIELD(SYSMET,'*',1) ; WIDTH = FIELD(SYSMET,'*',2) ; WINDOWPOS = FIELD(SYSMET,'*',3) ; NCOLUMNS = FIELD(SYSMET,'*',
4) ; NLINES = FIELD(SYSMET,'*',5) ; VERSION = FIELD(SYSMET,'*',6) ; SERIAL = FIELD(SYSMET,'*',7) ; FONT = FIELD(SYSMET,'*',8) ;
XTRALINE = FIELD(SYSMET,'*',9)