On line 11 change HPT+1 to HPT=HPT+1