Or R/Basic.  A pretty powerful basic implementation supplied with Revelation G2B, a Pick based 4GL.