This might also be a problem:

fvariable x
^^^^^^^^^^^

: FirePhasers ( -- )

...
cr ." NUMBER OF UNITS TO FIRE " #in X !
^^^
e @ X @ - 0 >=
UNTIL

X @ 0> IF
X @ negate e +!
d{ 7 } f@ f0< IF X @ s>f ran0 f* fround>s X ! THEN
X @ k3 @ / h1 ! \ distribute phaser energy among klingons present

( there may be more uses of @ and ! with x )

-Doug