Qbasic program to display pattern: D, ODE, MODEM

CLS
A$ = "MODEM"
C = 1
FOR I = 3 TO 1 STEP -1
PRINT TAB(I); MID$(A$, I, C)
C = C + 2
NEXT I
END

OUTPUT:
                        D
                     ODE
                  MODEM