Need help w/ Text Style routine

I can't figure out why i'm getting a pause when executing the following L80 routine....but when I execute the following B200 routine it's instantaneous...why??? I would think that the bold font would take longer since it's more complex.

(defun c:L80 (/ txtht)
(setq txtht (* 0.08 (getvar "dimscale")))
(command "-style"
"L80" ; name of text style
"simplex" ; font name
txtht ; height of text
"1" ; width factor
"0" ; obliquing angle
"" ; text backwards
"" ; text upside-down
)
(while (> (getvar "CMDACTIVE") 0)(command "")) ; Vertical
(prompt "\nCurrent Style set to L80 ")
(princ)
(initdia)
(command "_.mtext")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:B200 (/ txtht)
(setq txtht (* 0.20 (getvar "dimscale")))
(command "-style"
"B200" ; name of text style
"bold" ; font name
txtht ; height of text
"1" ; width factor
"0" ; obliquing angle
"" ; text backwards
"" ; text upside-down
)
(while (> (getvar "CMDACTIVE") 0)(command "")) ; Vertical
(prompt "\nCurrent Style set to B200 ")
(princ)
(initdia)
(command "_.mtext")
)