anchor.diff:  		pai = C
   		user << "<span class='notice'>You slot \the [C] into [src].</span>"
   		updateUsrDialog()
  -	else if(is_type_in_list(C, contained_item)) //Checks if there is a pen
  -		if(inserted_item)
  -			user << "<span class='warning'>There is already an item in \the [src]!</span>"
  +	else if(istype(C, /obj/item/weapon/pen))
  +		var/obj/item/weapon/pen/O = locate() in src
  +		if(O)
  +			user << "<span class='warning'>There is already a pen in \the [src]!</span>"
   		else
   			if(!user.unEquip(C))
   				return
  -			C.forceMove(src)
  +			C.loc = src
   			user << "<span class='notice'>You slide \the [C] into \the [src].</span>"
  -			inserted_item = C
   	else if(istype(C, /obj/item/weapon/photo))
   		var/obj/item/weapon/photo/P = C
   		photo = P.img
  
positive.code: 	PDAs += src
  	if(default_cartridge)
  		cartridge = new default_cartridge(src)
  	inserted_item =	new /obj/item/weapon/pen(src)
  
  /obj/item/device/pda/proc/update_label()
  	name = "PDA-[owner] ([ownjob])" //Name generalisation
  
negative.code: 		return
  
  	if (usr.canUseTopic(src))
  		var/obj/item/weapon/pen/O = locate() in src
  		if(O)
  			if (istype(loc, /mob))
  				var/mob/M = loc
  				if(M.get_active_hand() == null)
  					M.put_in_hands(O)
  					usr << "<span class='notice'>You remove \the [O] from \the [src].</span>"
  					return
  			O.loc = get_turf(src)
  		else
  			usr << "<span class='warning'>This PDA does not have a pen in it!</span>"
  
  /obj/item/device/pda/proc/id_check(mob/user, choice as num)//To check for IDs; 1 for in-pda use, 2 for out of pda use.
  	if(choice == 1)
  