11 lines
177 B
Text
11 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
|