Alias name: aLt CaPs

Function: Takes any line of text and alternates all lower
case characters between caps and lower case.  If you type
an upper case character, it appears so in the finished
text, but if you type lower case characters the first will
be upper, then lower, then upper, etc. (tHiS iS tHe GeNeRaL
iDeA)
________ what to do _______________________________

Copy the lines below to your aliases section.
  
	Note: DO NOT CHANGE THE LENGTH OF THE LINES even if
	the lines are longer than your screen width!  You 
	should be viewing this file with NotePad and NOT with
	a regular wordprocessor.  Turn OFF all line wrap func-
	tions, mark the text below as a block, and paste it
	anywhere in your aliases section.

_______copy below here, but not this line __________

/eoc {
  if ($1 == $null) { /echo 6 Error in /eoc | /echo 6 Syntax: /eoc <text> | halt } 
  unset %i %eoctext | /set %eocline $replace(*1,$chr(32),) | :eoc
  if (%i > $len(%eocline)) { /set %eoctext $remove(%eoctext,$chr(32)) | /set %eoctext $replace(%eoctext,,$chr(32)) | /msg $active %eoctext | halt }
  inc %i | if (2 // %i) set %eoctext %eoctext $upper($mid(%i,1,%eocline)) | else set %eoctext %eoctext $mid(%i,1,%eocline) | goto eoc
}
_______ do not paste this line _____________________

To use:

At the beginning of a blank line type: /eoc <text> <enter>

_______ credits ____________________________________

Sorry... I do not know who originally wrote this script.  If 
you find out, please let me know and I will be glad to so
document.