QBASIC Program to print the stars pattern in Pyramid shape (SUB/FUNCTION) 1

OUTPUT

CLS
s$ = "*********"
t = 10
FOR i = 1 TO LEN(s$) STEP 2
     PRINT TAB(t); LEFT$(s$, i)
     t = t - 1
NEXT i
END

Using SUB Procedure

DECLARE SUB pattern()
CLS
CALL pattern
END

SUB pattern
s$ = "*********"
t = 10
FOR i = 1 TO LEN(s$) STEP 2
     PRINT TAB(t); LEFT$(s$, i)
     t = t - 1
NEXT i
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
d = pattern
END

FUNCTION pattern
s$ = "*********"
t = 10
FOR i = 1 TO LEN(s$) STEP 2
     PRINT TAB(t); LEFT$(s$, i)
     t = t - 1
NEXT i
END FUNCTION