Here some program based on right$ expression

Program to print pattern using RIGHT$

CLS

INPUT "Enter a string"; a$

FOR i = 1 TO LEN(a$)

    PRINT RIGHT$(a$, i)

NEXT i

END

Program to print pattern using RIGHT$

CLS

INPUT "Enter a string"; a$

FOR i = LEN(a$) TO 1 STEP -1

    PRINT RIGHT$(a$, i)

NEXT i

END