Anonymous user
Character codes: Difference between revisions
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 937:
Print ChrCode("a")
Print ChrCode$(ChrCode("a"))
</lang>▼
\\ (,) 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
▲</lang>
=={{header|Maple}}==
|