QB program to print a string pattern.

A program to print the following string pattern
Linear Program	Sub Procedure	Function Procedure
Cls a$ = "KATHMANDU" l = Len(a$) For i = 1 To 5 Print Tab(i); Mid$(a$, i, l) l = l - 2 Next End	Cls a$ = "KATHMANDU" Call pattern_d(a$) End Sub pattern_d (a$) l = Len(a$) For i = 1 To 5 Print Tab(i); Mid$(a$, i, l) l = l - 2 Next End Sub	Cls a$ = "KATHMANDU" l = Len(a$) For i = 1 To 5 Print Tab(i); pattern_d$(a$, i, l) l = l - 2 Next End Function pattern_d$ (a$, i, l) pattern_d$ = Mid$(a$, i, l) End Function