CLS
INPUT "Word = ", a$
la = LEN(a$)
FOR i = 1 TO la STEP 1
  PRINT SPC(la - i);
  FOR j = 1 TO i STEP 1
    PRINT MID$(a$, j, 1); SPC(1);
  NEXT j
  PRINT
NEXT i
END