="FOR SALE rations"+MID$(STR$(U),2" BAGS OF GOLD EACH":GOSUB1 174 PRINT"BUYING Y/N?" 175 INPUTA$ 176 $="N"THEN120 177 IFA<>"Y"THEN175 182 PRINTU"BAGS OF EACH":PRINT"HOW MANYRATIONS?";:INPUTPP 184 G=G-U*PP:R=R+PP:GOTO187 186G=G-J*U187 IFG<0THENM$...