QB program to print a string pattern.

A program to print the following pattern.
Linear Program	Sub Procedure	Function Procedure
Cls a$ = "KATHMANDU" position = 5 length = 1 For i = 1 To 5 Print Mid$(a$, position, length) length = length + 2 position = position - 1 Next End	Cls a$ = "KATHMANDU" position = 5 length = 1 Call pattern_e(a$, position, length) End Sub pattern_e (a$, position, length) For i = 1 To 5 Print Mid$(a$, position, length) length = length + 2 position = position - 1 Next End Sub	Cls a$ = "KATHMANDU" position = 5 length = 1 For i = 1 To 5 Print pattern_e$(a$, position, length) Next End Function pattern_e$ (a$, position, length) pattern_e$ = Mid$(a$, position, length) length = length + 2 position = position - 1 End Function