setVar $i 30
goSub :ansi
echo $cls
while ($i <= 37)
    setVar $intenseColor #27 & "[1;" & $i & "m"
    echo $intenseColor & "*Intense Color*"
    if ($i = 30)
    # black (30) will not show unless "intense" on a black background
       echo $blackWhite "Can't see black/black so..*" $resetBlack
    else
       setVar $color #27 & "[0;" & $i & "m"
       echo $color & "Normal  Color*"
    end
    add $i 1
end
halt

#---------- goSubs ----------
:ansi
  # $cls clears the screen
  setVar $cls #27 & "[2J"
  setVar $black #27 & "[1;30m"
  setVar $red #27 & "[1;31m"
  setVar $green #27 & "[1;32m"
  setVar $yellow #27 & "[1;33m"
  setVar $blue #27 & "[1;34m"
  setVar $magenta #27 & "[1;35m"
  setVar $cyan #27 & "[1;36m"
  setVar $white #27 & "[1;37m"
  setVar $darkRed #27 & "[0;31m"

  # with background (add 10 to base color for background: #27 & "[1;37;41m" (41 is red)
  setVar $whiteRed #27 & "[1;37;41m"
  setVar $redWhite #27 & "[1;31;47m"
  setVar $blackWhite #27 & "[0;30;47m"

  # resets background to black with white text
  setVar $resetBlack #27 & "[1;37;40m"
return