Klavyeden Girilen Bir Tamsayiyi Basamaklarina Ayiran Program

10 REM BASAMAKLARINA AYRIŞTIRMA
20 CLS : INPUT "Tamsayı : " , S$ : PRINT
30 PRINT "Basamaklar:" : PRINT  "-----------"
40 FOR I = LEN(S$) TO 1 STEP -1
50 H=VAL(MID$(S$, I, 1))
60 PRINT (1O ^ (LEN(S$) - I )) ; "- >" ; H
70 NEXT I
80 END