What's the programming language of this code snippet?

Question

procedure F0110

clear screen

clear gets

if (SubStr(dir_fin, 1, 9) == "C:\Folder1")

     set color to /W

endif

What language is it ?

Answer 1

Clipper http://en.wikipedia.org/wiki/Clipper_programming_language

CLEAR SCREEN: http://vivaclipper.wordpress.com/2013/07/18/c5_clear-screen/

CLEAR GETS: http://vivaclipper.wordpress.com/2014/02/15/clear-gets/

Answer 2

It appears to be dBase, based on the "set color to /W" line.