%
% stack: raw-instruct
%
_Arching.ServLock 1 right "A" eq$
{
 pop
 "Global\File\61746F70615F635F30\30_markdown.html" ofconn
 read
 
 "<h1>()" 0 14 1 parse
 pop
 12 countdown
 {
  -

%%%  ^"HelpPanS" &".html" oflocal
%%%  ^"HelpExcS" &".html" oflocal
  ^"HelpCondS" &".html" oflocal

  exch
%
% do not save blank sections
%
  trim length 100 gt
  {
   ^"<h1>" catcr
   "Preview.pmeh" ofconn read ^
   "Preview.pmet" ofconn read &
   exch write
  }
  {
%
% blank section, don't overwrite current
%
   pop2
  } ifelse
 } for
 pop

}
{

*atoptype
"valid" log)(
{
%
% valid instruct and type
%
 _Atop.Prefix &_Atop.Instruct
 dup !Atop.Target
 html ofsrc dup !Atop.Fspec
"fspec" log)(
 exists
"exists" log)(
 {
 }
 {
%
% we must modify the model type of html to be cutter target
%
  _Atop.Type html ofsrc
"srcer" log)(
  read
  _Atop.Type _Atop.Target replall
  _Atop.Target html ofsrc
  write
 } ifelse
 _Atop.Target html ofsrc
"targeter" log)(
 quoter ^"cmd /C "
 *runsnorm
}
{
%
% invalid instruct and type
%
} ifelse

} ifelse