;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

FUNCTION sint,i,n

j=i
IF n GT 0 THEN BEGIN
    s=''
    FOR k=1,n DO BEGIN
        s=STRING((j MOD 10),FORMAT="(I1)")+s
        j=j / 10
    ENDFOR
ENDIF ELSE BEGIN
    s=STRING((j MOD 10),FORMAT="(I1)")
    j=j / 10
    WHILE j GT 0 DO BEGIN
        s=STRING((j MOD 10),FORMAT="(I1)")+s
        j=j / 10        
    ENDWHILE
ENDELSE    

RETURN,s
END