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