The QTP system for the MACRO experiment at Gran Sasso