Star Pattern printing program in QBASIC (Using SUB/FUNCTION)

OUTPTU

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

Using SUB Procedure

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

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

Using FUNCTION Procedure

DECLARE FUNCTION ptrn()
CLS
d = ptrn(a$)
END

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