QBASIC pattern program to print *****, ****, ***, **, * (SUB/FUNCTION)

OUTPUT

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

Using SUB Procedure

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

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

Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
d = pattern
END

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