QBASIC pattern program to print the stars in right angle triangle shape (SUB/FUNCTION)

OUTPUT

CLS
a$ = "*****"
FOR i = 1 TO LEN(a$)
     PRINT LEFT$(a$, i)
NEXT i
END

Using SUB Procedure

DECLARE SUB strPtrn(a$)
CLS
a$ = "*****"
CALL strPtrn(a$)
END

SUB strPtrn (a$)
FOR i = 1 TO LEN(a$)
     PRINT LEFT$(a$, i)
NEXT i
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION strPtrn
CLS
d = strPtrn
END

FUNCTION strPtrn 
a$ = "*****"
FOR i = 1 TO LEN(a$)
     PRINT LEFT$(a$, i)
NEXT i
END FUNCTION