Have you used your calculator for something that was not really math related?

[Dwight Sturrock]

I programmed my HP42S back in the 1990's as a text editor. I bypassed the clunky 42S alpha entry menu mode and redefined the keyboard. Output to a personal computer was via the "HookUp", a IR to serial converter. The text was stored on the HP42S in a matrix since the 42S accepts alpha characters as matrix data. Have not used this program for many years, but maybe it has a future with the Swiss Micros 42S which MIGHT have direct alpha key entry.

PHP Code:

00 { 577-Byte Prgm }
01>LBL "TEXT"
02 1
03 STO 08
04 STO 09
05 FIX 03
06 0.888
07 STO 00
08 CF 81
09>LBL A
10 38
11 ALENG
12 X=Y?
13 GTO 75
14 AVIEW
15 GETKEY
16 XEQ IND ST X
17 GTO A
18>LBL 01
19  "A"
20 RTN
21>LBL 02
22  "B"
23 RTN
24>LBL 03
25  "C"
26 RTN
27>LBL 04
28  "D"
29 RTN
30>LBL 05
31  "E"
32 RTN
33>LBL 06
34  "F"
35 RTN
36>LBL 07
37  "G"
38 RTN
39>LBL 08
40  "H"
41 RTN
42>LBL 09
43  "I"
44 RTN
45>LBL 10
46  "J"
47 RTN
48>LBL 11
49  "K"
50 RTN
51>LBL 12
52  "L"
53 RTN
54>LBL 13
55  " "
56 RTN
57>LBL 14
58  "M"
59 RTN
60>LBL 15
61  "N"
62 RTN
63>LBL 16
64  "O"
65 RTN
66>LBL 17
67 ARCL 00
68 AOFF
69 ALENG
70 6
71 -
72 AROT
73 ASHF
74 RTN
75>LBL 18
76  "P"
77 RTN
78>LBL 19
79  "Q"
80 RTN
81>LBL 20
82  "R"
83 RTN
84>LBL 21
85  "S"
86 RTN
87>LBL 22
88  "T"
89 RTN
90>LBL 23
91  "U"
92 RTN
93>LBL 24
94  "V"
95 RTN
96>LBL 25
97  "W"
98 RTN
99>LBL 26
100  "X"
101 RTN
102>LBL 27
103  "Y"
104 RTN
105>LBL 28
106 RTN
107>LBL 29
108  "Z"
109 RTN
110>LBL 30
111>LBL 31
112 RTN
113>LBL 32
114  "-"
115 RTN
116>LBL 34
117 SF 81
118 ALENG
119 X#0?
120 GTO 75
121 CF 81
122 TONE 9
123 RTN
124>LBL 35
125  "."
126 RTN
127>LBL 37
128 1.007
129 STO 03
130 INDEX "TXTM"
131>LBL a
132 RCL "TXTM"
133 DIM?
134 RCL 09
135 X#Y?
136 GTO b
137 1
138 STO 09
139>LBL b
140 RCL 08
141 RCL 09
142 STOIJ
143 RCLEL
144 ARCL ST X
145 1
146 STO+ 09
147 ISG 03
148 GTO a
149 RTN
150>LBL 38
151  "'"
152 RTN
153>LBL 40
154 RTN
155>LBL 42
156  "!"
157 RTN
158>LBL 43
159  "?"
160 RTN
161>LBL 49
162 FS? 13
163 CF 13
164 FC? 13
165 SF 13
166 RTN
167>LBL 50
168  "�"
169 XEQ 34
170 RTN
171>LBL 54
172 CLA
173 RTN
174>LBL 55
175 CLA
176 PRON
177 1
178 STO 09
179>LBL e
180 1.007
181 STO 03
182 INDEX "TXTM"
183>LBL c
184 RCL "TXTM"
185 DIM?
186 1
187 +
188 RCL 09
189 X#Y?
190 GTO d
191 PRA
192 CLA
193 PROFF
194 RTN
195>LBL d
196 RCL 08
197 RCL 09
198 STOIJ
199 RCLEL
200 ARCL ST X
201 1
202 STO+ 09
203 ISG 03
204 GTO c
205 PRA
206 CLA
207 GTO e
208>LBL 56
209  "7"
210 RTN
211>LBL 57
212  "8"
213 RTN
214>LBL 58
215  "9"
216 RTN
217>LBL 59
218  "*"
219 RTN
220>LBL 61
221  "4"
222 RTN
223>LBL 62
224  "5"
225 RTN
226>LBL 63
227  "6"
228 RTN
229>LBL 64
230  "/"
231 RTN
232>LBL 66
233  "1"
234 RTN
235>LBL 67
236  "2"
237 RTN
238>LBL 68
239  "3"
240 RTN
241>LBL 69
242 1
243 ENTER
244 DIM "TXTM"
245 BEEP
246 RTN
247>LBL 71
248  "0"
249 RTN
250>LBL 72
251  ","
252 RTN
253>LBL 74
254 AOFF
255 EXITALL
256 RCL "TXTM"
257 PSE
258 RTN
259>LBL 75
260 ASTO 05
261 ASHF
262 RCL "TXTM"
263 DIM?
264 1
265 +
266 DIM "TXTM"
267 INDEX "TXTM"
268 STOIJ
269 RCL 05
270 STOEL
271 FC? 81
272 GTO A
273 GTO 34
274>LBL 39
275>LBL 41
276>LBL 44
277>LBL 45
278>LBL 46
279>LBL 47
280>LBL 48
281>LBL 51
282>LBL 52
283>LBL 53
284>LBL 60
285 RTN
286 END