%%HP: T(3)A(D)F(.);
\<< 'L2' STO 'L1' STO
3 FIX L1 L2 <
  IF
  THEN L1 L2 'L1'
STO 'L2' STO 1 SF
  END
  IF 'L1>2*L2'
  THEN L1 28 - 0
MAX L1 / 4 * DUP
'IT' STO L1 IMPACT
*
  ELSE L2 14 - L2 /
4 * DUP 'IT' STO L2
IMPACT *
  END L1 14 - L1 /
16 * DUP 'IT' STO+
L1 IMPACT * + 16
'IT' STO+ 16 1.3 *
+ 'PT' STO PT IT /
'IT' STO L1 DUP
IMPACT * L2 DUP
IMPACT * + 2 / .32
* 13 1.3 * + DUP
'PL' STO L1 L2 + 2
/ .32 * 13 + / 'IL'
STO 3 FIX PT PL >
  IF
  THEN PT "P(kips)"
\->TAG "Truck "
    IF 1 FS?
    THEN "\<- "
    ELSE "\-> "
    END + "I=" + IT
\->STR + CLLCD 1 DISP
1 FREEZE
  ELSE PL "P(kips)"
\->TAG "Lane I=" IL
\->STR + CLLCD 1 DISP
1 FREEZE
  END { IT IL PT PL
L1 L2 } PURGE 1 CF
5 FIX
\>>
