15 lines
348 B
Plaintext
15 lines
348 B
Plaintext
define('chr(n)') :(chr_end)
|
|
chr &alphabet tab(n) len(1) . chr :s(return)f(freturn)
|
|
chr_end
|
|
|
|
define('asc(str)c') :(asc_end)
|
|
asc str len(1) . c
|
|
&alphabet break(c) @asc :s(return)f(freturn)
|
|
asc_end
|
|
|
|
* # Test and display
|
|
output = char(65) ;* Built-in
|
|
output = chr(65)
|
|
output = asc('A')
|
|
end
|