OSTI Preprint With 41C Code

[Howard Owen]

Here's a transcription from the PDF. I made what I think are reasonable interpretations of the dodgy characters in the listing. Sample inputs and program, outputs appear after the listing. I have no idea if the sample inputs are reasonable for the application. The comments in the PDF make clear that the program is correcting measurement results for thermal expansion of various metals. That, combined with the idea that the environment involves nuclear power led me to use high values for the temperature. Since the temperature range goes over the melting point of aluminum, you can assume that this run was for iron or steel tape.

Code:


  01◆LBL "TAPE"
 02 FIX 3
 03 "BASE DEG C ?"
 04 PROMPT
 05 STO 00
 06◆LBL 01
 07 "TAPE FEET?"
 08 PROMPT
 09 12.00
 10 *
 11 STO 01
 12 "TAPE INCHES?"
 13 PROMPT
 14 ST+ 01
 15 "DIAL INCHES?"
 16 PROMPT
 17 STO 02
 18 "TEMP DEG C ?"
 19 PROMPT
 20 RCL 00
 21 -
 22 STO 03
 23 STO 04
 24 STO 05
 25 17.3 E-6
 26 ST* 05
 27 23.5 E-6
 28 ST* 04
 29 11.6 E-6
 30 ST* 03
 31 8.50
 59 12.00
 60 /
 61 FRC
 62 12.00
 63 *
 64 "INCHES="
 65 ARCL X
 66 AVIEW
 67 STOP
 68 GTO 01
 69◆LBL 09
 70 *
 71 ST+ 01
 72 .END.
IN=600, 6, 5, 2, 920
FEET=6.000
INCHES=5.380