33 lines
376 B
Plaintext
33 lines
376 B
Plaintext
'8 BIT CHARACTERS
|
|
|
|
string s="qwertyuiop"
|
|
sys a,b,i,j,le=len s
|
|
'
|
|
for i=1 to le
|
|
j=le-i+1
|
|
if j<=i then exit for
|
|
a=asc s,i
|
|
b=asc s,j
|
|
mid s,j,chr a
|
|
mid s,i,chr b
|
|
next
|
|
'
|
|
|
|
print s
|
|
|
|
'16 BIT CHARACTERS
|
|
|
|
wstring s="qwertyuiop"
|
|
sys a,b,i,j,le=len s
|
|
'
|
|
for i=1 to le
|
|
j=le-i+1
|
|
if j<=i then exit for
|
|
a=unic s,i
|
|
b=unic s,j
|
|
mid s,j,wchr a
|
|
mid s,i,wchr b
|
|
next
|
|
'
|
|
print s
|