To generate the given pattern C CO COM COMP COMPU COMPUT COMPUTE COMPUTER (QBASIC Coder)

OUTPUT

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

Using SUB Procedure

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

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

Using FUNCTION Procedure

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

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