github.com/rricharz.Tek4010
1
0
Fork 0
mirror of https://github.com/rricharz/Tek4010.git synced 2026-05-02 22:24:27 +00:00
Code Issues Releases Wiki Activity

alt-key added to APL conversion table

Browse Source
This commit is contained in:
¨Rene Richarz
2019-05-13 14:52:17 +02:00
parent 0dc08c834f
commit f67b2c9d5f
8 changed files with 34 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
apl/aplkeys
View File

@@ -38,5 +38,7 @@
62 38
63 81
// Z row
// example of alt key (+128) - ALT a
225 11084

BIN
apl/apltest
View File

Binary file not shown.

32
apl/apltest.c
View File

@@ -7,24 +7,34 @@
int main (int argc, char *argv[])
{
int ch;
int ch, i;
printf("\nStandard character set:\n");
for (ch = 32; ch <= 126; ch++) {
if ((ch % 32) == 0) {
printf("\n%02X ", ch);
printf(" ");
for (i = 0; i < 10; i++) printf("%1d ",i);
for (ch = 30; ch <= 126; ch++) {
if ((ch % 10) == 0) {
printf("\n%03d ", ch);
}
printf("%c", ch);
if (ch > 32)
printf("%c ", ch);
else
printf(" ");
}
printf("\n");
printf("\nAPL character set:\n");
printf("\nTektronix APL character set:\n");
putchar(27); putchar(14); // switch to alternative character set
for (ch = 32; ch <= 126; ch++) {
if ((ch % 32) == 0) {
printf("\n%02X ", ch);
printf(" ");
for (i = 0; i < 10; i++) printf("%1d ",i);
for (ch = 30; ch <= 126; ch++) {
if ((ch % 10) == 0) {
printf("\n%03d ", ch);
}
printf("%c", ch);
if (ch >32)
printf("%c ", ch);
else
printf(" ");
}
printf("\n\noverstrike test");
putchar(62); putchar(32);