Queue - Copiar em memoria

Queue - Copiar em memoria

loop a# = 1 to record(cola) by 1
bet(Cola,q#)
end

get(cola,campo) !Busca um resitro
add(cola)
put(cola)
delete(cola)