--- a/scripts/control/sysdisc.m
+++ b/scripts/control/sysdisc.m
@@ -1,20 +1,20 @@
-# Copyright (C) 1996 Auburn University.  All Rights Reserved.
-#
-# This file is part of Octave. 
-#
-# Octave is free software; you can redistribute it and/or modify it 
-# under the terms of the GNU General Public License as published by the 
-# Free Software Foundation; either version 2, or (at your option) any 
-# later version. 
-# 
-# Octave is distributed in the hope that it will be useful, but WITHOUT 
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
-# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License 
-# for more details.
-# 
-# You should have received a copy of the GNU General Public License 
-# along with Octave; see the file COPYING.  If not, write to the Free 
-# Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. 
+## Copyright (C) 1996 Auburn University.  All Rights Reserved.
+##
+## This file is part of Octave. 
+##
+## Octave is free software; you can redistribute it and/or modify it 
+## under the terms of the GNU General Public License as published by the 
+## Free Software Foundation; either version 2, or (at your option) any 
+## later version. 
+## 
+## Octave is distributed in the hope that it will be useful, but WITHOUT 
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
+## FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License 
+## for more details.
+## 
+## You should have received a copy of the GNU General Public License 
+## along with Octave; see the file COPYING.  If not, write to the Free 
+## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. 
 
 ## -*- texinfo -*-
 ## @deftypefn {Function File } { [@var{dsys}, @var{Adc}, @var{Cdc}] =} sysdisc (@var{sys})
@@ -35,14 +35,15 @@
 ## @end deftypefn
  
 function [dsys,Adc,Cdc] = sysdisc(sys)
-# function [dsys,Adc,Cdc] = sysdisc(sys)
-# inputs: sys = system data structure
-# outputs:
-#    dsys: purely discrete portion of sys (returned empty if there is
-#          no purely discrete path from inputs to outputs)
-#    Adc, Cdc: connections from continuous states to discrete states/discrete
-#    outputs, respectively.
-#
+
+  ## function [dsys,Adc,Cdc] = sysdisc(sys)
+  ## inputs: sys = system data structure
+  ## outputs:
+  ##    dsys: purely discrete portion of sys (returned empty if there is
+  ##          no purely discrete path from inputs to outputs)
+  ##    Adc, Cdc: connections from continuous states to discrete states/discrete
+  ##    outputs, respectively.
+  ##
 
   save_val = implicit_str_to_num_ok;	# save for later
   save_empty = empty_list_elements_ok;
@@ -58,7 +59,7 @@
   sys = sysupdate(sys,"ss");
   [n_tot,st_c,st_d,y_c,y_d] = syscont_disc(sys);	# get ranges
 
-  # assume there's nothing there; build partitions as appropriate
+  ## assume there's nothing there; build partitions as appropriate
   Add = Adc = Bdd = Cdd = Cdc = Ddd = [];
   
   if(isempty(st_d) & isempty(y_d))