Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias chr {
- if ($1 == $null) {
- set %key $$?="Key to find:"
- echo -a The ascii value of %key is $asc(%key) $+ .
- halt
- }
- if ($len($1) == 1) {
- echo -a $+($chr(2),$chr(3),06,$1,$chr(3)) converted to: $+($chr(3),06,$asc($1),$chr(3),$chr(46))
- }
- if ($len($1) >= 2) {
- set %a $1
- var %c $null
- var %i 1
- while (%i <= $len($1)) {
- set %b $mid($1,%i,1)
- %c = %c $+ $+($chr(36),chr,$chr(40),$asc(%b),$chr(41),$chr(44))
- inc %i
- }
- %c = $left(%c,-1)
- .echo -a $+($chr(36),$chr(43),$chr(40),%c,$chr(41))
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement