Here some program based on left$

Program to print (*) pattern using LEFT$

CLS

INPUT "Enter a star (*)"; a$

FOR i = 1 TO LEN(a$)

    PRINT LEFT$(a$, i)

NEXT i

END

Program to print (*) pattern using LEFT$

CLS

INPUT "Enter stars (*)"; a$

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

    PRINT LEFT$(a$, i)

NEXT i

END