01 LBL "TAPE"  ; Key: -51
 02 LBL A
 03 "COUNT=?"
 04 PROMPT
 05 XEQ 21
 06 "TIME <MM.SS>?"
 07 PROMPT
 08 HR
 09 60
 10 *
 11 +
 12 XEQ 22
 13 RTN
 14 LBL B
 15 "COUNT1?"
 16 PROMPT
 17 XEQ 21
 18 "COUNT2?"
 19 PROMPT
 20 XEQ 21
 21 -
 22 ABS
 23 60
 24 /
 25 HMS
 26 GTO 23
 27 LBL C
 28 "MM.SS?"
 29 PROMPT
 30 HR
 31 60
 32 *
 33 XEQ 22
 34 RTN
 35 LBL D
 36 "COUNT?"
 37 PROMPT
 38 XEQ 21
 39 60
 40 /
 41 HMS
 42 GTO 23
 43 LBL 21
 44 RCL X
 45 RCL 10
 46 *
 47 RCL 09
 48 +
 49 *
 50 RTN
 51 LBL 22
 52 RCL 10
 53 /
 54 RCL 09
 55 RCL 10
 56 /
 57 2
 58 /
 59 STO Z
 60 X^2
 61 +
 62 SQRT
 63 X<>Y
 64 -
 65 FIX 00
 66 "COUNT="
 67 ARCL X
 68 FIX 02
 69 AVIEW
 70 RTN
 71 LBL 23
 72 FIX 02
 73 "TIME="
 74 ARCL X
 75 AVIEW
 76 RTN
 77 LBL E
 78 2.187
 79 STO 09
 80 1.89 E-3
 81 STO 10
 82 END