### Small program to print all XTOA caracters on the printer

Posted:

**Thu Jan 10, 2019 2:46 pm**Hi, I was curious to see what was the code for each caracters. So I did a small program that printe all of them. I had to put few exceptions for "non-printable" caraters... An (partial) image of the results is at the end of this post (I might send a video also). Here is the code:

Code: Select all

```
00 { 176-Byte Prgm }
01▸LBL "CHAR"
02 CLA
03 1.25501
04 STO 01
05▸LBL 01
06 32
07 XTOA
08 RCL 01
09 10
10 X<>Y
11 X<Y?
12 XEQ "PZ"
13 100
14 X<>Y
15 X<Y?
16 XEQ "PZ"
17 RCL 01
18 AIP
19 IP
20 4
21 X<>Y
22 X=Y?
23 GTO "NPRT"
24 RCL 01
25 IP
26 10
27 X<>Y
28 X=Y?
29 GTO "NPRT"
30 RCL 01
31 IP
32 27
33 X<>Y
34 X=Y?
35 GTO "NPRT"
36 RCL 01
37 IP
38 256
39 X<>Y
40 X=Y?
41 GTO "NPRT"
42 32
43 XTOA
44 RCL 01
45 IP
46 XTOA
47 RCL 01
48 IP
49 4
50 MOD
51 X=0?
52 PRA
53 X=0?
54 CLA
55 RCL 01
56 IP
57 255
58 X=Y?
59 PRA
60 ISG 01
61 GTO 01
62▸LBL "PZ"
63 48
64 XTOA
65 RTN
66▸LBL "NPRT"
67 32
68 XTOA
69 32
70 XTOA
71 RCL 01
72 IP
73 4
74 X=Y?
75 PRA
76 X=Y?
77 CLA
78 RCL 01
79 1
80 +
81 STO 01
82 GTO 01
83 END
```