Here some program based MID$ expression

Program to print pattern using MID$

CLS

INPUT "Enter a string"; a$

FOR i = 1 TO LEN(a$)

    PRINT MID$(a$, i, 5)

NEXT i

END