To generate the given pattern R ER TER UTER PUTER MPUTER OMPUTER COMPUTER (QBASIC Coder)

OUTPUT

CLS
X$ = "COMPUTER"
FOR i = 1 TO LEN(X$)
     PRINT RIGHT$(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 RIGHT$(a$, i)
NEXT i
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION pattern()
CLS
d = pattern
END

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