[! sub frames { 0} !]
[! sub subhead { 0} !]
[! sub title { 'Setup' } !]
[! sub extrahelp { undef } !]
[$sub subhead $]
BB-5000 - Setup
[$endsub$]
[-
$r = shift ;
-]
[+ $r -> title +]
[- Execute ('header.epl') -]
[$if $fdat{-msg} $]
[- @msg = split /\n/, $fdat{-msg} -][$foreach $m (@msg)$]
[+ $m +][$endforeach$]
[- delete $fdat{-msg} ; -]
[$endif$]
[-
Execute ({isa => 'wizard.epl'}) ;
$r -> display ;
-]
[- Execute ('footer.epl') -]