/
PROGRAM ss
.title strlen
.ident /11nov/
FUNCTION strlen[s]
LEN s
RET 
.end