8 lines
176 B
Text
8 lines
176 B
Text
100 INPUT "STRING";S$
|
|
110 FOR I=1 TO INT(LEN(S$)/2)
|
|
120 : J=LEN(S$)+1-I
|
|
130 : T$=MID$(S$,I,1)
|
|
140 : MID$(S$,I,1) = MID$(S$,J,1)
|
|
150 : MID$(S$,J,1) = T$
|
|
160 NEXT I
|
|
170 PRINT S$
|