Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0110/cvadj.sai
There are 2 other files named cvadj.sai in the archive. Click here to see a list.
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";