1st comment (setq scl (getvar "useri1")), the useri1 can be overridden by other software have a look at LDATA.
(while (null (setq js (ssget '((0 . "LWPOLYLINE") (-4 . "<AND") (-4 . "&") (70 . 1) (-4 . ">") (90 . 2) (-4 . "<") (90 . 5) (-4 . "AND>"))))))
(setq label (getstring "\nEnter label eg A "))
(repeat (setq nb (sslength js))
................
"E" (itoa (setq count (1+ count))) " = "
now
label (itoa (setq count (1+ count))) " = "
You can do the setq label much better but simple for now.