CLS
INPUT a$
uzunluk = LEN(a$)
DIM dizi(uzunluk) AS STRING
x$ = ""
FOR n = uzunluk TO 1 STEP -1
        dizi(n) = MID$(a$, n, 1)
x$ = x$ + dizi(n)
NEXT
PRINT x$
SLEEP
END

INPUT x
n = 1
FOR z = 2 TO x STEP 1
n = n + (1 / z)
NEXT
PRINT n

CLS
PRINT "Basit bir klavye ( organ )"
PRINT "Cikmak icin ESC"
PRINT "Notalar: A= La, B= Si, C= Do, D= Re, E= Mi, F= Fa, G= Sol"
DIM dizi(7) AS STRING
dizi(0) = "a"
dizi(1) = "b"
dizi(2) = "c"
dizi(3) = "d"
dizi(4) = "e"
dizi(5) = "f"
dizi(6) = "g"
DO UNTIL a$ = CHR$(27)
SLEEP
a$ = INKEY$
b$ = LCASE$(a$)
FOR n = 0 TO 7
IF b$ = (dizi(n)) THEN
PLAY b$
END IF
NEXT
LOOP