USER_PRINT10 s = SYS("equi", count , name$ , type$ , moles )20 PRINT "Phase grams"30 FOR i = 1 TO count40 formula$ = PHASE_FORMULA(name$(i))50 PRINT PAD$(name$(i), 15), STR_F$(EQUI(name$(i))*GFW(formula$), 10, 2)60 NEXT i70 END