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

OUTPUT

CLS
x$ = "*********"
b = 1
t = 20
FOR i = LEN(x$) TO 1 STEP -2
     PRINT TAB(t); MID$(x$, b, i)
     b = b + 1
     t = t + 1
NEXT i
END

Using SUB Procedure

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

SUB pattern (x$)
b = 1
t = 20
FOR i = LEN(x$) TO 1 STEP -2
     PRINT TAB(t); MID$(x$, b, i)
     b = b + 1
     t = t + 1
NEXT i
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
p = pattern(x$)
END

FUNCTION pattern (x$)
x$ = "*********"
b = 1
t = 20
FOR i = LEN(x$) TO 1 STEP -2
     PRINT TAB(t); MID$(x$, b, i)
     b = b + 1
     t = t + 1
NEXT i
END FUNCTION