I'll paste it here so anyone searching later can see it.
!
! Property script for Lumber Pack calculation
! Parameters BxHxL
!
!print l
SQUOT="'"
DQUOTE='"'
TOL=0.0625 ! cut length tolerance is 1/16 in. 05/21 fl
MTI=1000/25.4 ! meter to inches
MTF=MTI/12 ! meter to feet
!
WI=B*MTI
HI=H*MTI
if (WI-INT(WI))>TOL THEN WI=INT(WI)+1 ! width is rounded up to nearest inch
if (HI-INT(HI))>TOL THEN HI=INT(HI)+1 ! height is rounded up to nearest inch
!++++
LINFT=L*MTF
LININ=LINFT-int(LINFT)
LINFT=int(LINFT)
if LININ>0.001 then LINFT=LINFT+1
if (LINFT-2*int(LINFT/2))>0.5 then LINFT=LINFT+1
!++++
BDFT=HI*WI*LINFT/12*QTY
WSTR=STR(WI,2,0)
HSTR=STR(HI,2,0)
LSTRF=STR(LINFT,2,0)
CUTSTR=WSTR+" x"+HSTR+" x "+LSTRF+SQUOT
COMPONENT "LUMBER OVERALL",BDFT,"Bdft",1,"01","80000"
COMPONENT CUTSTR,QTY,"ea.",1,CUTSTR,"80000"
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!