23 lines
455 B
Plaintext
23 lines
455 B
Plaintext
\\ ANSI
|
|
Print Asc("a")
|
|
Print Chr$(Asc("a"))
|
|
\\ Utf16-Le
|
|
Print ChrCode("a")
|
|
Print ChrCode$(ChrCode("a"))
|
|
|
|
\\ (,) is an empty array.
|
|
|
|
Function Codes(a$) {
|
|
If Len(A$)=0 then =(,) : Exit
|
|
Buffer Mem as byte*Len(a$)
|
|
\\ Str$(string) return one byte character
|
|
Return Mem, 0:=Str$(a$)
|
|
Inventory Codes
|
|
For i=0 to len(Mem)-1
|
|
Append Codes, i:=Eval(Mem, i)
|
|
Next i
|
|
=Codes
|
|
}
|
|
Print Codes("abcd")
|
|
\\ 97 98 99 100
|