lparameters wname lcOldFont = _screen.fontname lnOldFontSize = _screen.fontsize _screen.fontname = wfont(1,wname) _screen.fontsize = wfont(2,wname) nYCoord = wlrow(wname)*_screen.height/srows() nXCoord = wlcol(wname)*_screen.width/scols() nWidth = wcols(wname)*_screen.width/scols() nHeight = wrows(wname)*_screen.height/srows() _screen.box(nXCoord,nYCoord,nWidth+nXCoord,nHeight+nYCoord) _screen.fontname = lcOldFont _screen.fontsize = lnOldFontSizeCetin