The Pascal compiler company
feature_wherex can be used to determine if the current platform supports the built-in function wherex.
if supported(feature_wherex) then xpos := wherex; if supported(feature_wherey) then ypos := wherey;
Operating Systems: All Standard Pascal: No