%%HP: T(3)A(D)F(.);
\<< \-> fc FbE fb1 fb2
  \<<
    IF 'fc>\<-FcE1'
    THEN
"NG!
fc > FcE1"
MSGBOX KILL
    END
    IF 'fb2>0.'
    THEN
      IF 'fc>\<-FcE2'
      THEN
"NG!
fc > FcE2"
MSGBOX KILL
      END
      IF 'fb1>FbE'
      THEN
"NG!
fb1 > FbE"
MSGBOX KILL
      END
    END fb2 \<-Fb2 / 1.
fc \<-FcE2 / - fb1 FbE
/ SQ - / "Weak" \->TAG
fb1 \<-Fb1 / 1. fc
\<-FcE1 / - / "Strong"
\->TAG fc \<-Fc / SQ
"Axial" \->TAG 3. DUPN
+ + DUP
    IF 1. >
    THEN "NG!
" " > "
    ELSE "OK!
" " < "
    END "  CSI" SWAP
+ + "1.00
 (CSI = " +
SWAP \->STR + ")" +
MSGBOX
  \>>
\>>