A QBasic Program For Programmers

CLS
N$="KATHMANDU"
A=LEN(N$)
PRINT N$
FOR I = 1 TO 5
C$=MID$(N$,I+1,A-(I*2))
PRINT TAB (I+1) ;C$
NEXT I
END