Krishna,

Are you SURE this is correct? I think this goes out of bounds for the
n{ array!

---8<---
3 INTEGER array n{
: LongRangeSensors ( -- )
d{ 3 } f@ f0< IF
cr ." LONG RANGE SENSORS ARE INOPERABLE"
ELSE
cr ." LONG RANGE SCAN FOR QUADRANT " q1 ? ." ," q2 ?
cr ." ------------" cr
q1 @ 2 + q1 @ 1- DO
-1 n{ 1 } !
-2 n{ 2 } !
-3 n{ 3 } !