mirror of
https://github.com/rricharz/Tek4010.git
synced 2026-01-11 23:53:16 +00:00
46 lines
1.0 KiB
C
46 lines
1.0 KiB
C
// apltest.c
|
|
// display alternative character set for apl
|
|
//
|
|
// usage: tek4010 -noexit ./apltest
|
|
|
|
#include <stdio.h>
|
|
|
|
int main (int argc, char *argv[])
|
|
{
|
|
int ch, i;
|
|
|
|
printf("\nStandard character set:\n");
|
|
printf(" ");
|
|
for (i = 0; i < 10; i++) printf("%1d ",i);
|
|
for (ch = 30; ch <= 126; ch++) {
|
|
if ((ch % 10) == 0) {
|
|
printf("\n%03d ", ch);
|
|
}
|
|
if (ch > 32)
|
|
printf("%c ", ch);
|
|
else
|
|
printf(" ");
|
|
}
|
|
printf("\n");
|
|
|
|
printf("\nTektronix APL character set:\n");
|
|
putchar(27); putchar(14); // switch to alternative character set
|
|
printf(" ");
|
|
for (i = 0; i < 10; i++) printf("%1d ",i);
|
|
for (ch = 30; ch <= 126; ch++) {
|
|
if ((ch % 10) == 0) {
|
|
printf("\n%03d ", ch);
|
|
}
|
|
if (ch >32)
|
|
printf("%c ", ch);
|
|
else
|
|
printf(" ");
|
|
}
|
|
printf("\n\noverstrike test");
|
|
putchar(62); putchar(32);
|
|
putchar(79); putchar(8); putchar(63); putchar(32);
|
|
putchar(76); putchar(8); putchar(43);
|
|
putchar(27); putchar(15); // switch back to standard character set
|
|
printf("\n");
|
|
}
|