* <pre> /*Toggle comment/uncomment */
C="*"
FE=FTYPE.1()
IF FE='R' | FE='REX' | FE='PAS' | FE='INC' | FE='CGI' | (FE='KEX' & LINE.1()>1) | FE='C' | FE='H' | FE='JS' | FE='EXC' | FE='OBA' THEN DO
   CALL TOCOMXED
   EXIT
END
IF FE='HTM' | FE='866' THEN DO
   'POINT .ZD'
   JS=0
   'NOMSG -/<SCRIPT'
   IF RC=0 THEN DO
	  'LOCATE .ZD'
	  'NOMSG @</SCRIPT'
	  IF RC=0 THEN JS=1
   END
   'LOCATE .ZD'
   IF JS=1 THEN DO
	  CALL TOCOMXED
	  EXIT
   END
   ELSE CALL GNUM
END
IF FE="BAT" | FE="BTM" | FE="SYS" | FE="SYN" THEN C=":"
IF FE="INI" | FE='CMD' THEN C=";"
IF FE="KEX" THEN C="*"
IF FE="PL" THEN C="#"
IF FE="BAS" THEN C="'"
'SOS SAVE FIRSTCOL'
F=SUBSTR(STRIP(CURLINE.3()),1,1)
IF F=C THEN IF C="'" THEN "nomsg C /"C"// 1 1"
			ELSE 'CDEL'
ELSE 'CINSERT' C
'SOS RESTORE CR'
'CURSOR SCREEN LEFT'
exit

GNUM:
L=CURLINE.3()
IF LEFT(L,4)='<!--' THEN DO
   L=SUBSTR(L,5)
   L=SUBSTR(L,1,LENGTH(L)-3)
   'R' L
END
ELSE IF L='' THEN 'R <!-- -->'
ELSE 'R <!--'L'-->'
EXIT

*GET TOCOM.XED
* Make the current line of program a comment. */
TOCOMXED:PROCEDURE
'EXT @LINE @CURSOR'
FE=FTYPE.1()
IF FE='HTM' | FE='CGI' | FE='EXC' | FE='H' | FE='C' | FE='R' | FE='CMD' | FE='REX' | FE='KEX' | FE='JS' | FE='OBA' THEN V='/'
ELSE V='('
'NOMSG :'CURSOR.3
'CF'
'EXTR @CURLINE'
CUR=CURLINE.3
IF SUBSTR(CUR,1,2)=V'*' THEN 'MACRO UNCOM.XED' V
ELSE DO
   IF CUR='' THEN DO
	  IF V='/' THEN 'R /*'COPIES(' ',50)'*/'
	  ELSE 'R (*'COPIES(' ',50)'*)'
	  'CURSOR FILE' LINE.1() '4'
   END
			 ELSE DO
   IF SUBSTR(CUR,1,2)='  ' THEN 'CR 'V'*'
						   ELSE 'CI 'V'**'
   IF V='/' THEN 'CA  */'
   ELSE 'CA  *)'
   'CF'
			   END
END
':'LINE.1
RETURN