10 lines
177 B
Text
10 lines
177 B
Text
CHARACTER string = "Hello World", tmp
|
|
|
|
L = LEN( string )
|
|
DO i = 1, L/2
|
|
tmp = string(i)
|
|
string(i) = string(L-i+1)
|
|
string(L-i+1) = tmp
|
|
ENDDO
|
|
|
|
WRITE(Messagebox, Name) string
|