; ****************************************************************************
; * By PBFrance : http://www.pbfrance.com/?url=source&cmd=viewer&val=75
; ****************************************************************************

Macro IsAlpha(c)
  ((c) >= "a" And (c) <= "z") Or ((c) >= "A" And (c) <= "Z")
EndMacro

If IsAlpha("test")
  Debug "OK"
Else
  Debug "NON OK"
EndIf
If IsAlpha("10")
  Debug "OK"
Else
  Debug "NON OK"
EndIf