Warning: The Ansari Anachronometer program found herein is provided “as-is” and subject to change at any time. The author and publisher offer no warranty of of any kind with regard to this keystroke program, including, but not limited to, the implied warranties of fitness as a temporal stress calibration tool. Dig a Thousand Holes Publishing shall not be liable for errors, anomalies, or paradoxes that arise from the use of this program. Do not meddle in the causal streams of time without proper training.
Though the patents for the actual Ansari Anachronometer are still held by the historically litigious Browne Chronometric Engineer, Inc., we’ve managed to reverse engineer its functions in a—as far as we can discern—unique keystroke program for your HP-42S (or DM42 or Free42). This is not a true emulation of the anachronometer, but rather a simplified simulation, based on observed behavior and the few materials from Browne Chronometric that have been made public.
To use ANSARI, first key in the following program to your HP-42S, Free42, or DM42; or if you’re using either of the latter two, you can upload the .raw file from here. If you don’t have any of these calculators, Free42 is a free app that’s got you covered. Go download it now and then upload the ANSARI to see it in action!
Execute the program by:
- Pressing [XEQ] and then the softkey for [ANSARI] in the resulting menu.
- Pressing [Shift] [CATALOG], followed by [PGM] and then choosing the softkey for [ANSARI] from that menu.
You will be greeted by a temporal paradox hazard warning. Take heed! Time travel is nothing to trifle with. Your explorations threaten all of existence, going forward and back.
Once the warning is cleared, you will be presented with the anachronometer you are familiar with. Due to display limitations on the HP-42S and Free42, only two lines of the anachronometer are visible at a time. A version that takes advantage of the DM42’s larger screen is still in development.
The ▲ and ▼ keys will scroll through the various lines of the anachronometer. When they reach the top or bottom of the list, they will rollover to the other side.
The top line of the display is the active line, denoted by the indicators on the right and left sides of the screen. To increase the paradox stress on the active line press [+]. The vertical line in the middle of the screen is the paradox threshold. Stress beyond that point threatens paradox. Proceed with caution!
Temp Tip: If silence is needed during your operations in time, remember to place your calculator in quiet mode before using it: [Shift] [MODES] [▼] [QUIET]
If you need to decrease the paradox stress on the active line, either because it was entered by mistake or eased through the use of a zeitgeist synchronicity, press [-].
To go directly to a specific line in the anachronometer, press [Shift] [GTO], key in the number of the line you wish to go to, then press [R/S].
To exit, press [EXIT] twice.
Bonus: The A-UTIL program provided below is actually a suite of utility programs to help a you save, restore, and create new anachronometric matrices in your calc. The ANSARI runs off of your calc’s default array of registers, but if you [XEQ] [A-UTIL] you can…
- …load a previously saved anachronometric matrix by pressing [LoadM]. The program will ask you to RCL your saved matrix to the X register and then press R/S to load it in.
- …save the current anachronometric matrix, by pressing [EjctM]. A copy of the current anachronometric matrix will be placed in the X register and you will be able to STO it from there.
- …create fresh anachronometer for the next adventure, by pressing [NewM] and then [Yes]. The current one will be replaced with a pristine anachronometer from an unperturbed time.
- …activate the ANSARI program by pressing [Run].
Note that the LoadM and EjctM programs must be run from the A-UTIL menu.
Note also that the matrix that stores your Ansari Anachrometer’s data is not the same as the Matrix that the temps puzzle over as they seek synchronicity and attempt to avoid anomalies.
If you do not have Time & Temp there still might be time to get it—along with anything else Dig a Thousand Holes Publishes—for 25% off a PayHip with the coupon code “DM42” before March 1, 2018!
The ANSARI keystroke program:
(Download the .raw file here: Ansari.raw)
00 { 804-Byte Prgm }
01▸LBL "ANSARI"
02 1
03 STO "Line"
04 CLLCD
05 CF 21
06 CF 34
07 CF 35
08 "TEMPORAL"
09 ├" "
10 ├"HAZARD"
11 ├"[LF]PARADOX"
12 ├" "
13 ├"WARNING"
14 AVIEW
15 PSE
16 "←8←÷ "
17 6
18 XTOA
19 ├"IÆ1qq1q"
20 241
21 XTOA
22 ├"q1ÆI"
23 6
24 XTOA
25 ├"@"
26 224
27 XTOA
28 ├"@"
29 1
30 54
31 AGRAPH
32 "`←HDBajubbDI←b÷"
33 ├"¿Ö¿"
34 9
35 59
36 AGRAPH
37 CLA
38 0.011
39 STO 00
40 128
41▸LBL 00
42 XTOA
43 ISG 00
44 GTO 00
45 9
46 60
47 AGRAPH
48 PSE
49 PSE
50▸LBL A
51 CLLCD
52 ">Ö¿"
53 1
54 2
55 AGRAPH
56 "¿Ö>"
57 1
58 128
59 AGRAPH
60 XEQ IND "Line"
61 1
62 42
63 ALENG
64 -
65 AGRAPH
66 1
67 STO 21
68 XEQ B
69 XEQ 23
70 XEQ IND "Line"
71 8
72 42
73 ALENG
74 -
75 AGRAPH
76 8
77 STO 21
78 XEQ B
79 XEQ 18
80 1
81 STO 21
82 1
83 -59
84 PIXEL
85 SF 25
86 GETKEY
87 17
88 X<Y?
89 XEQ IND ST Y
90 GTO A
91▸LBL 01
92 ">"
93 RTN
94▸LBL 02
95 ">÷>"
96 RTN
97▸LBL 03
98 ">÷>÷>"
99 RTN
100▸LBL 04
101 ">÷↓← ←↓"
102 RTN
103▸LBL 05
104 "↓← ←↓"
105 RTN
106▸LBL 06
107 "↓← ←↓÷>"
108 RTN
109▸LBL 07
110 "↓← ←↓÷>÷>"
111 RTN
112▸LBL 08
113 "↓← ←↓÷>÷>÷>"
114 RTN
115▸LBL 09
116 ">÷"Å¿Å""
117 RTN
118▸LBL 10
119 ""Å¿Å""
120 RTN
121▸LBL 11
122 ""Å¿Å"÷>"
123 RTN
124▸LBL 12
125 ""Å¿Å"÷>÷>"
126 RTN
127▸LBL 13
128 ""Å¿Å"÷>÷>÷>÷¿¿¿"
129 ├"÷"Å¿Å"÷>÷↓← ←↓"
130 RTN
131▸LBL 14
132 ""Å¿Å"÷↓← ←↓÷¿¿¿"
133 ├"÷"Å¿Å"÷↓← ←↓÷>"
134 RTN
135▸LBL 15
136 ""Å¿Å"÷↓← ←↓÷>÷>"
137 ├"÷¿¿¿÷"Å¿Å"↓← ←"
138 ├"↓÷>÷>÷>"
139 RTN
140▸LBL 16
141 ""Å¿Å"÷>÷"Å¿Å"÷¿"
142 ├"¿¿÷"Å¿Å"÷"Å¿Å""
143 RTN
144▸LBL B
145 1.01
146 2.003
147 RCL "Line"
148 12
149 X≥Y?
150 R↓
151 RCL ST Z
152 STO 20
153▸LBL C
154 "÷Ö"""Ö"
155 RCL 21
156 RCL 20
157 IP
158 RCL IND "Line"
159 X≥Y?
160 "÷Ö>>>Ö"
161 R↓
162 8
163 ×
164 36
165 +
166 AGRAPH
167 ISG 20
168 GTO C
169 RTN
170▸LBL 18
171 RCL "Line"
172 1
173 -
174 X≤0?
175 16
176 STO "Line"
177 RTN
178▸LBL 23
179 17
180 RCL "Line"
181 1
182 +
183 X≥Y?
184 1
185 STO "Line"
186 RTN
187▸LBL 32
188 RCL IND "Line"
189 1
190 -
191 X≤0?
192 0
193 STO IND "Line"
194 X>0?
195 RTN
196 RCL "Line"
197 12
198 X≥Y?
199 RTN
200 1
201 STO IND "Line"
202 RTN
203▸LBL 37
204 1
205 STO+ IND "Line"
206 RCL "Line"
207 12
208 X≥Y?
209 RTN
210 RCL IND "Line"
211 3
212 X<Y?
213 STO IND "Line"
214 RTN
215▸LBL 43
216 INPUT "Line"
217 12
218 X≥Y?
219 RTN
220 -
221 2
222 ÷
223 0.5
224 +
225 IP
226 12
227 +
228 STO "Line"
229 16
230 X≥Y?
231 RTN
232 STO "Line"
233 RTN
234 END
The A-UTIL keystroke program:
(Download the .raw file here: A-Util.raw)
00 { 347-Byte Prgm }
01▸LBL "A-UTIL"
02 INDEX "REGS"
03 2
04 1
05 STOIJ
06 CLMENU
07 "LoadM"
08 KEY 1 XEQ "LoadM"
09 "EjctM"
10 KEY 2 XEQ "EjctM"
11 "NewM"
12 KEY 4 XEQ "NewM"
13 "Run"
14 KEY 6 GTO "ANSARI"
15 MENU
16 STOP
17 GTO "A-UTIL"
18▸LBL "LoadM"
19 CLMENU
20 "R/S"
21 KEY 1 GTO 11
22 "Exit"
23 KEY 6 GTO "A-UTIL"
24 MENU
25 "RCL matrix. P"
26 ├"ress R/S."
27 PROMPT
28▸LBL 11
29 MAT?
30 PUTM
31 MAT?
32 RTN
33 GTO "LoadM"
34▸LBL "EjctM"
35 CLMENU
36 "R/S"
37 KEY 1 GTO 21
38 "Exit"
39 KEY 6 GTO "A-UTIL"
40 MENU
41 16
42 1
43 GETM
44 "STO matrix. P"
45 ├"ress R/S."
46 PROMPT
47▸LBL 21
48 RTN
49▸LBL "NewM"
50 CLMENU
51 1.012
52 STO 00
53 0
54 STO 17
55 "Yes"
56 KEY 1 GTO 40
57 "No"
58 KEY 6 GTO "A-UTIL"
59 "Are you sure?"
60 AVIEW
61 STOP
62 GTO 04
63▸LBL 40
64 RCL 17
65 STO IND 00
66 ISG 00
67 GTO 40
68 1
69 STO 17
70 RCL 00
71 13.016
72 STO 00
73 X>Y?
74 GTO 40
75 "New matrix acqu"
76 ├"ired."
77 AVIEW
78 RTN
79 END
