Klavyeden Girilen Kelimeyi, Dik Üçgen Şeklinde Ekrana Yazdiran Program

10 REM Dik Üçgen Şeklinde Yazı
20 CLS : INPUT "Kelime : " , A$ : PRINT
30 FOR B = 1 TO LEN(A$)
40 PRINT MID$(A$, 1 , B)
50 NEXT B
60 END