Character codes: Difference between revisions
Add Uxntal
(Added various BASIC dialects (Chipmunk Basic, GW-BASIC, MSX Basic and XBasic)) |
(Add Uxntal) |
||
Line 2,685:
test = (chr97,asc`a)</syntaxhighlight>
{{Out}}<pre>(`a,97)</pre>
=={{header|Uxntal}}==
<syntaxhighlight lang="Uxntal">
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|0100
[ LIT "a ] print-hex
newline
#61 .Console/write DEO
newline
#80 .System/state DEO
BRK
@print-hex
DUP #04 SFT print-digit #0f AND print-digit
JMP2r
@print-digit
DUP #09 GTH #27 MUL ADD #30 ADD .Console/write DEO
JMP2r
@newline
#0a .Console/write DEO
JMP2r
</syntaxhighlight>
Output:
<pre>
61
a
</pre>
=={{header|VBA}}==
<syntaxhighlight lang="vba">Debug.Print Chr(97) 'Prints a
| |||