(if p(v30) then if val(&uf('+95'v30))=24 and (&uf('+961*7.1#'v30)='F') then S(&uf('+961*8.2#'v30),' ',&uf('+961*0.6#'v30)) else if val(&uf('+95'v30))=24 and (&uf('+961*7.1#'v30)='E') then S(&uf('+961*8.2#'v30),'-',&uf('+961*0.6#'v30)) else S(&uf('IMAIN,BIBSIGLA,'),'+',v30)fi fi fi/)