%%HP: T(1)A(D)F(.);
« "" {
":HI(A): 
:HT(B): 
:›H FL: 
:›H FR: 
:HI(B): 
:HT(A): 
:›H FL: 
:›H FR: "
{ 1 0 } V } INPUT
OBJ� � B›R
  « � B›L
    « � AHT
      « � BHI
        « � A›R
          « � A›L
            « � BHT
              « �
AHI
« 3 FIX "A � B: "
AHI BHT - A›L A›R +
2 / + DUP ROT SWAP
� A
  « A + "
B � A: "
+ BHI AHT - B›L B›R
+ 2 / + DUP ROT
SWAP � B
    « B +
"
MISCLOSE: " + B A
+ + "

A � B (�): "
+ ROT ROT NEG + 2 /
� C
      « C + C SWAP
CLLCD 2 DISP 3
FREEZE FX
      »
    »
  »
»
              »
            »
          »
        »
      »
    »
  »
»