Alias Name: Black On Green

Purpose: Color text, black on green background alternated with green on
black background.

________ 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 __________


/bog { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
_______ do not paste this line _____________________

To use:

At the beginning of a blank line type: /bog <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.