这段代码片段的编程语言是什么？

Question

procedure F0110

clear screen

clear gets

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

     set color to /W

endif

它是什么语言？

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

它似乎是dBase，基于“设置颜色为/ W”行。