KLAVYEDEN GIRILEN KELIMEYI DIK UCGEN SEKLINDE EKRANA YAZDIRAN PROGRAM

CLS
PRINT "KLAVYEDEN GIRILEN KELIMEYI DIK UCGEN SEKLINDE EKRANA YAZDIRAN PROGRAM"
CLS
INPUT "Kelime:"; A$
PRINT
FOR Dongu = 1 TO LEN(A$)
PRINT MID$(A$, 1, Dongu)
NEXT
END