q  را در آخر هر خط پاک کنید

   cls                                q
input n$                        q
a=len(n$)                     q
for i=a to 1 step -1        q
print mid$ (n$,i,1)         q
next i                           q
end                              q