CUP
| Basic
#IfModeN Basic
 SPLITLINE
 UP
 INSERTFILE "*<ZapInserts$Dir>.BASIC.ProgHead"
#EndIf
| Asm
#IfModeN Asm
 #IfText "In "
  DOWN:DOWN:SRIGHT
  #IfText "Module"
   DELTOEND:INSERT "AOF"
  #Else
   #IfText "AOF"
    DELTOEND:INSERT "Utility"
   #Else
    #IfText "Utility"
     DELTOEND:INSERT "Module"
    #EndIf
   #EndIf
  #EndIf
 #Else
  INSERTFILE "<ZapInserts$Dir>.Assembler.ProgHead"
 #EndIf
 CUP:DOWN:CRIGHT
#EndIf
| C, C++ & Java
#IfModeN C,C++,Java
 | Is there something already there ?
 #IfText "/**"
  CRIGHT
  LEFT:LEFT:LEFT
  #IfText "RCS"
  #Else
   CRIGHT
   INSERT " RCS"
   DOWN:CLEFT
   INSERTFILE "<ZapInserts$Dir>.C.RCSHead"
   SEARCHFORWARD "\< `*`*`*"
   CLEFT
   INSERTFILE "<ZapInserts$Dir>.C.RCSTail"
  #EndIf
  SEARCHFORWARD "`*/"
  CRIGHT:DOWN:CLEFT
 #Else
  INSERTFILE "<ZapInserts$Dir>.C.ProgHead"
  UP:UP:CRIGHT
  DATE "%dy %m3 %ce%yr"
  CUP:DOWN:CRIGHT
 #EndIf
#EndIf
| HTML
#IfModeN HoTMeal
 CUP
 INSERTFILE "<ZapInserts$Dir>.HTML.Head"
 CDOWN
 INSERT "</body>"
 CUP
 SEARCHFORWARD "</"
 LEFT:LEFT
#EndIf
UPDATEWINDOW
