c $871A LOOTUR
; @label:$871A=LOOTUR
C $871A set HL to BUFPNT
C $871D load byte pointed at by HL/BUFPNT into A
C $871E increment HL and store in BUFPNT
C $8722 jump to ADD_ON ($872B) if A is not zero
C $8725 set unknown10 to zero
C $872A return to caller