View difference between Paste ID: w7fd0pfv and Xp3QyS0N
SHOW: | | - or go back to the newest paste.
1-
sub strcopy(replacement as string, target as string)
1+
2-
target = replacement 
2+
  dim char as ubyte
3
  dim as long iEnd = len(target)-1
4
  for i as integer = 0 to iEnd\2
5
    char = target[i]
6-
dim char as ubyte
6+
    target[i] = target[iEnd]
7-
for i as integer = 0 to len(target)
7+
    target[iEnd] = char
8-
char = target[i]
8+
    iEnd -= 1
9-
target[len(target)] = target[i]
9+
  next
10-
target[i] = char
10+
11-
next
11+
12
' OR ... '
13
14-
dim mystr as string = "lemon"
14+
15-
print mystr
15+
  dim char as ubyte
16-
strcopy("mango", mystr)
16+
  dim as long iEnd = len(target)-1
17-
print mystr
17+
  for i as integer = 0 to iEnd\2
18
	swap target[i],target[iEnd]
19-
strrev(mystr)
19+
	iEnd -= 1
20-
print mystr
20+
  next
21
end sub
22