| Basic
#IfModeN Basic
 CLEFT
 #IfText " "
  SEARCHFORWARD "\[^ ]"
  LEFT
  SEARCHBACK "\[ ]"
 #EndIf
 INSERT "REM "
 CRIGHT
 DOWN
 CLEFT
#EndIf
| Assembler
#IfModeN Asm
 CLEFT
 INSERT "; "
 CRIGHT
 DOWN
 CLEFT
#EndIf
| Pascal
#IfModeN Pascal
 MJE_COMMENTLINE
#EndIf
| HTML
#IfModeN HoTMeal
 CLEFT
 INSERT "<!-- "
 CRIGHT
 INSERT " -->"
 DOWN
 CLEFT
#EndIf
| C and C++
#IfModeN C++,C
 CLEFT
 SEARCHFORWARD "\[^ \x09]"
 LEFT
 INSERT "/*"
 UNSPACE
 UNSPACE
 CHAR 32
 SEARCHFORWARD "\(/`*\|\x0a\)"
 LEFT:LEFT
 #IfText "/*"
  RIGHT
  INSERT "-"
 #EndIf
 CRIGHT
 LEFT
 LEFT
 #IfText "*/"
  CHAR 45
  CRIGHT
 #Else
  CRIGHT
  INSERT " */"
 #EndIf
 DOWN
 CLEFT
#EndIf
| Obey and Zap
#IfModeN Obey,ForZap
 CLEFT
 INSERT "| "
 CRIGHT
 DOWN
 CLEFT
#EndIf
| Email (Increase quoting)
#IfModeN Email
 CLEFT
 SELREGION
 CRIGHT
 EMAIL_INCQUOTING ">"
 DOWN
 CLEFT
#EndIf
| Perl mode
#IfModeN Perl
 CLEFT
 SEARCHFORWARD "\[^ \x09]"
 LEFT
 INSERT "# "
 CRIGHT
 DOWN
 CLEFT
#EndIf
