;
; Bandy's stUdlY caPiTaLizaTion FuNctioN
; 
; last update->Sat Jan 26 21:27:43 1985
; 
(defun 
    (studly-word-capitalize darg zap
	  (setq darg (+ prefix-argument 1))
	  (while (setq darg (- darg 1))
		 (while (<= (following-char) '@')
			(forward-character))
		 (save-excursion 
		     (while (> (following-char) '@')
			    (setq zap (+ zap (following-char)))
			    (forward-character)))
		 (setq zap (% zap 4))
		 (while (> (following-char) '@')
			(if (! (^ zap (% (following-char) 4)))
			    (case-char-invert))
			(forward-character))
	  )))

(defun
    (case-char-invert chr
	(setq chr (following-char))
	(if (&
	       (>= chr 'A')
	       (<= chr 'Z'))
	    (progn
		  (delete-next-character)
		  (insert-character (+ chr 32)))
	    (if (&
		  (>= chr 'a')
		  (<= chr 'z'))
		(progn
		      (delete-next-character)
		      (insert-character (- chr 32)))))
	(backward-character)))