 01 LBL "SLANT"
 02 10
 03 "TST,TVT"
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 DEG
 08 LBL 15
 09 2
 10 STO 00
 11 XEQ 00
 12 "TOP"
 13 XROM 16,41
 14 XEQ 00
 15 "BOTTOM"
 16 XROM 16,41
 17 5
 18 STO 00
 19 "WELDEV"
 20 XROM 15,15
 21 "HOLEAZ"
 22 XROM 15,15
 23 "BEDDIP"
 24 XROM 15,15
 25 "DIP AZ"
 26 XROM 15,15
 27 RCL 04
 28 RCL 03
 29 -
 30 XEQ 00
 31 ADV
 32 "MEAS H"
 33 XROM 16,38
 34 RCL 06
 35 COS
 36 *
 37 XEQ 00
 38 "TVDDIF"
 39 XROM 16,38
 40 RCL 06
 41 COS
 42 RCL 08
 43 COS
 44 *
 45 RCL 06
 46 SIN
 47 RCL 08
 48 SIN
 49 *
 50 RCL 07
 51 RCL 09
 52 -
 53 COS
 54 *
 55 -
 56 RCL 04
 57 RCL 03
 58 -
 59 *
 60 XEQ 00
 61 "TST"
 62 XROM 16,38
 63 RCL 08
 64 COS
 65 /
 66 XEQ 00
 67 "TVT"
 68 XROM 16,38
 69 ADV
 70 GTO 15
 71 LBL 00
 72 "FT"
 73 ASTO 01
 74 CLA
 75 ASTO 02
 76 ASTO Z
 77 "M"
 78 ASTO Y
 79 END
