entry ;
comment CVADJ returns a string containing an integer as an adjective;
begin "CVADJ.SAI"
internal string procedure CVADJ( integer i );
begin "CVADJ"
string ending;
ending_"th";
if abs(i)=1
then ending_"st";
if abs(i)=2
then ending_"nd";
if abs(i)=3
then ending_"rd";
return(cvs(i) & ending);
end "CVADJ";
end "CVADJ.SAI";