The routine at 60070 sets up the item names, then GOSUBs to the stat/inventory display and adventure shop.
60070 DIM W$(5): DATA "FOOD","RAPIER","AXE","SHIELD","BOW AND ARROWS","MAGIC AMULET": FOR X = 0 TO 5: READ W$(X): NEXT
60075 GOSUB 60080: GOSUB 60200: RETURN
Note that 60080 and 60200 are GOSUB'd to elsewhere so this is not the only entry point to those routines.