STRINGFROMID and gradians

[Mark Hardman]

A small update to this program and I found it is 1628.

STRINGFROMID(1628)
English: gradian
French: grade
Spanish: gradianes

EXPORT cs()
BEGIN
X:=2996;
WHILE X>=0 DO
IF INSTRING(STRINGFROMID(X),"rad") > 0 THEN
PRINT(X + " " + STRINGFROMID(X));
END;
X:=X-1;
END;
END;