If (fullscr) Then
RunScript("Master Layer::CBK_EXIT")
Else
obj$='Html'
xHtml=ObjectX(obj$)
yHtml=ObjectY(obj$)
wHtml=ObjectWidth(obj$)
hHtml=ObjectHeight(obj$)
xwindow=PubX()
ywindow=PubY()
wwindow=ClientWidth()
hwindow=ClientHeight()
wfull=ScreenWidth()
hfull=ScreenHeight()
SysCommand("MoveWindow","0,0")
SysCommand("ResizeWindow","wfull,hfull")
MoveObject("obj$","0,0,wfull,hfull")
fullscr=TRUE
End
If (fullscr) Then
SysCommand("MoveWindow","xwindow,ywindow")
SysCommand("ResizeWindow","wwindow,hwindow")
MoveObject("obj$","xHTML,yHTML,wHTML,hHTML")
fullscr=FALSE
Else
Exit()
End
toolbar=no,location,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=000,height=000,left=000,top=000









