| Place a footer in HTML mode
CDOWN
| Find the end </body> tag
SEARCHBACK "</body>"
UNIVERSALARG "18"
LEFT
#IfText "</address>"
 CRIGHT
 DOWN
 CLEFT
 SELREGION
 SEARCHBACK "<address>"
 CLEFT
 UP
 SELREGION
 CUT
#Else
 CDOWN
 SEARCHBACK "</body>"
 UNIVERSALARG "7"
 LEFT
 #IfText "</body>"
 #Else
  CDOWN
  RETURN
  INSERT "</body>"
  CLEFT
 #EndIf
#EndIf
INSERTFILE "*<ZapInserts$Dir>.HTML.Footer"
UPDATEWINDOW
