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