%
% stack: left-pers-name plat-name
%
% make the right-hand form panel
%
*hierdimr _@ dup !Hier.Right *panelfrm
.005 .005 0.99 0.99 *paneltre
%
% float above current help
%
%%% "Help"
_@ Help.@Help _@ exch false *panelflt

%
% stack: pers-name plat-name
%
% make the left panel
%
*hierdiml sixth)
"prepep " log()
*panelpep
_@
"postpep " log()
!Hier.Left
.005 .005 0.99 0.99 *paneltre

%%% "Help"
_@ Help.@Help _@ exch false *panelflt
.005 .005 0.99 0.99
%%% "Help"
_@ Help.@Help _@ exch !@ *panelurl
.005 .005 0.99 0.99 *paneltre

"Comm" _@ false *panelflt

%
% stack: plat-name
%