REM INVERTED PYRAMID-DROPPING FROM RIGHT ONE BY ONE
CLS
LET Q$ = “PROGRAM”
LET W = LEN(Q$)
E = W
WHILE E > 0
LET R$ = LEFT$(Q$, E)
PRINT R$
E = E – 1
END

Please follow and like us: