Girilen Kelime-Cümle Tersini Yazdıran Program

CLS
DIM toplama AS STRING
toplama = ""
INPUT "Kelimeyi Giriniz : ", kelime$
FOR x = LEN(kelime$) TO 1 STEP -1
toplama = toplama + MID$(kelime$, x, 1)
NEXT
PRINT "Girilen Kelimenin Tersi : "; toplama