Klavyede Girilen Bir Kelimeyi Her Harfinden Sonra Sırasını gösteren Sayıyı da Yanına Koyarak Tekrar Yazdıran Program

10 REM HARF-SIRA
20 CLS : INPUT "Kelime : " , K$
30 FOR P = 1 TO LEN(K$)
40 PRINT MID$(K$, P ,1) ; P ;
50 NEXT P
60 END