static char OLstring[8];
static char OLstring[20];
PUBLIC char *LYUppercaseI_OL_String ARGS1(	int, seqnum){    static char OLstring[8];    int Arabic = seqnum;    if (Arabic >= 3000) {	strcpy(OLstring, "MMM.");	return OLstring;    }    switch(Arabic) {    case 1:	strcpy(OLstring, " I.");	return OLstring;    case 5:	strcpy(OLstring, " V.");	return OLstring;    case 10:	strcpy(OLstring, " X.");	return OLstring;    case 50:	strcpy(OLstring, " L.");	return OLstring;    case 100:	strcpy(OLstring, " C.");	return OLstring;    case 500:	strcpy(OLstring, " D.");	return OLstring;    case 1000:	strcpy(OLstring, " M.");	return OLstring;    default:	OLstring[0] = '\0';	break;    }    while (Arabic >= 1000) {	strcat(OLstring, "M");	Arabic -= 1000;    }    if (Arabic >= 900) {	strcat(OLstring, "CM");	Arabic -= 900;    }    if (Arabic >= 500) {	strcat(OLstring, "D");	Arabic -= 500;	while (Arabic >= 500) {	    strcat(OLstring, "C");	    Arabic -= 10;	}    }    if (Arabic >= 400) {	strcat(OLstring, "CD");	Arabic -= 400;    }    while (Arabic >= 100) {	strcat(OLstring, "C");	Arabic -= 100;    }    if (Arabic >= 90) {	strcat(OLstring, "XC");	Arabic -= 90;    }    if (Arabic >= 50) {	strcat(OLstring, "L");	Arabic -= 50;	while (Arabic >= 50) {	    strcat(OLstring, "X");	    Arabic -= 10;	}    }    if (Arabic >= 40) {	strcat(OLstring, "XL");	Arabic -= 40;    }    while (Arabic > 10) {	strcat(OLstring, "X");	Arabic -= 10;    }    switch (Arabic) {    case 1:	strcat(OLstring, "I.");	break;    case 2:	strcat(OLstring, "II.");	break;    case 3:	strcat(OLstring, "III.");	break;    case 4:	strcat(OLstring, "IV.");	break;    case 5:	strcat(OLstring, "V.");	break;    case 6:	strcat(OLstring, "VI.");	break;    case 7:	strcat(OLstring, "VII.");	break;    case 8:	strcat(OLstring, "VIII.");	break;    case 9:	strcat(OLstring, "IX.");	break;    case 10:	strcat(OLstring, "X.");	break;    default:	strcat(OLstring, ".");	break;    }    return OLstring;}