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