Show ASCII table: Difference between revisions
→{{header|M2000 Interpreter}}
(→{{header|TXR}}: New entry.) |
|||
Line 3,764:
=={{header|M2000 Interpreter}}==
Addition: Show all Ascii from 0, using 0x2400 to 0x2420 unicode symbols.
<syntaxhighlight lang="m2000 interpreter">
Function ProduceAscii$ {
Document Ascii$="\"
DelUnicode$=ChrCode$(0x2421)
j=
Print Ascii$;
For i=0 to 15
Line 3,774 ⟶ 3,776:
Ascii$=Hex$(i, .5)
Next
For i=
If pos>16 then
Ascii$={
}+Hex$(j, .5)
Print : Print Hex$(j, .5);: j++
End if
Print Chrcode$(i+0x2400);
Ascii$=Chrcode$(i+0x2400)
Next
For i=33 to 126
If pos>16 then
Ascii$={
Line 3,792 ⟶ 3,803:
<pre>
\0123456789ABCDEF
0␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏
2 !"#$%&'()*+,-./▼
1␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟
30123456789:;<=>?
4@ABCDEFGHIJKLMNO
Line 3,798 ⟶ 3,811:
6`abcdefghijklmno
7pqrstuvwxyz{|}~␡
</pre>
| |||