& btcritslot()2
 
  Error Messages:
 
  * If <UnitDB> is not a valid unit the function returns #1-NOT A 
    MECH
  * if <location> is not valid the function returns #-1 INVALID 
    SECTION
  * If <critslot> is not valid the function returns #-1 INVALID 
    CRITICAL
  * If <typeflag> is maxammo and the slot is not an ammobin the 
    function returns #-1 NOT AMMO
  * if <typeflag> is mode and the slot is not ammo or weapon the 
    function returns #-1 NOT AMMO OR WEAPON 
 
  Example:
  Given that #1234 is a valid unit:
  * with a recently fired srm-6 set to fire artemis in slot 1 of 
    the Left Torso,
  * an ammobin in slot 3 of the Left Torso: 
 
  > think btcritslot(#1234,lt,1,name)
  IS.SRM-6
  > think btcritslot(#1234,lt,1,status)
  Operational
  > think btcritslot(#1234,lt,1,data)
  15
  > think btcritslot(#1234,lt,1,mode)
  A
  > think btcritslot(#1234,lt,3,maxammo)
  15
