더하기 리습 수정요청 드립니다.

숫자 더하기 리습입니다.

혹시 더한 숫자 결과값에 곱하기 3을 해서 나오게 수정 가능할까요?

부탁드립니다.

(DEFUN C:SUM()
    (PROMPT “nSELECT TEXT :”)
    (SETQ SS (SSGET)
         SN (SSLENGTH SS)
         INDEX 0
         SUM 0
    )
    (REPEAT SN
        (IF (= “TEXT” (CDR (ASSOC 0 (ENTGET (SSNAME SS INDEX)))))
            (PROGN
                (SETQ EN (ATOF (CDR (ASSOC 1 (ENTGET (SSNAME SS INDEX)))))
                      INDEX (1+ INDEX)
                      SUM (+ SUM EN)
                 )
             )
             (SETQ INDEX (1+ INDEX))
         )
    )
    (PRIN1 SUM)
    (SETQ A (ENTGET (CAR (ENTSEL “nSELECT TOTAL TEXT LOCATION :”)))
          1T (ASSOC 1 A)
          2T (CONS 1 (RTOS SUM 2 0))
          A (SUBST 2T 1T A)
     )
     (ENTMOD A)
  )