_ss=alloc(n,20000)
_clw={-resident s:pv/copylogwin}
_glw={-resident s:pv/getlogwin}
at 'go \(_clw) \(_ss)' prtsc lshift
at 'go \(_clw) \(_ss)' prtsc rshift
at 'go \(_glw) \(_ss)' prtsc 0
remvar _clw _glw _ss
