! CLASSICAL
	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "A" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "B" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "C" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "D" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "E" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "F" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "G" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "H" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "I" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "J" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "K" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "L" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "M" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "N" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "O" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "P" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "Q" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "R" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "S" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "T" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "U" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "V" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "W" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "X" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "Y" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "C" and .alpha_letter eqs "Z" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num


! POPULAR/ROCK

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "A" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "B" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "C" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "D" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "E" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "F" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "G" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "H" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "I" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "J" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "K" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "L" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "M" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "N" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "O" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "P" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "Q" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "R" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "S" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "T" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "U" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "V" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "W" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "X" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "Y" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "P" and .alpha_letter eqs "Z" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

! NEW AGE

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "A" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "B" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "C" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "D" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "E" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "F" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "G" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "H" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "I" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "J" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "K" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "L" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "M" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "N" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "O" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "P" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "Q" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "R" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "S" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "T" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "U" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "V" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "W" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "X" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "Y" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "N" and .alpha_letter eqs "Z" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

! JAZZ

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "A" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "B" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "C" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "D" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "E" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "F" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "G" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "H" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "I" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "J" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "K" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "L" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "M" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "N" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "O" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "P" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "Q" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "R" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "S" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "T" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "U" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "V" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "W" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "X" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "Y" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "J" and .alpha_letter eqs "Z" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

! BLUES

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "A" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "B" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "C" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "D" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "E" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "F" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "G" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "H" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "I" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "J" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "K" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "L" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "M" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "N" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "O" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "P" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "Q" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "R" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "S" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "T" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "U" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "V" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "W" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "X" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "Y" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "B" and .alpha_letter eqs "Z" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

! HEAVY METAL

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "A" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "B" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "C" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "D" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "E" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "F" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "G" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "H" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "I" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "J" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "K" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "L" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "M" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "N" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "O" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "P" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "Q" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "R" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "S" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "T" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "U" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "V" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "W" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "X" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "Y" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num

	decimal I
	compute #num = 0
	for cd_entry with .lib_type eqs "H" and .alpha_letter eqs "Z" do -
		compute #num = #num + 1\\ -
		write change cd_entry %key = .%key, lib_no = #num


	.exit


!		get oa$dcl = '$write sys$output "' .%key:20 #num '"'