01 LBL "TAPINT"
 02 "TIME1?"
 03 PROMPT
 04 60
 05 *
 06 STO 01
 07 "COUNT1?"
 08 PROMPT
 09 STO 02
 10 "TIME2?"
 11 PROMPT
 12 60
 13 *
 14 STO 03
 15 "COUNT2?"
 16 PROMPT
 17 STO 04
 18 RCL 02
 19 RCL 04
 20 X^2
 21 *
 22 RCL 04
 23 RCL 02
 24 X^2
 25 *
 26 -
 27 STO 00
 28 RCL 01
 29 RCL 04
 30 X^2
 31 *
 32 RCL 03
 33 RCL 02
 34 X^2
 35 *
 36 -
 37 RCL 00
 38 /
 39 STO 09
 40 RCL 02
 41 RCL 03
 42 *
 43 RCL 04
 44 RCL 01
 45 *
 46 -
 47 RCL 00
 48 /
 49 STO 10
 50 END