SL9

function s=signum(x)
    if(x>0)
        s='positive'
    elseif(x<0)
        s='negative'
    else
        s=0
        end
endfunction



-->exec('C:\Users\5910110700\Documents\3.sce', -1)

-->signum(-123)
 ans  =

 negative 

-->signum(123)
 ans  =

 positive 

-->signum(0)
 ans  =

    0.