INC MONEY,10 GOSSUB @ESHOP EXEC "SmileBASIC" @ESHOP BUY "SmileBASIC" RETURN DEF BUY NAME$ GAMES$=GAMES$+NAME$ DEC MONEY,10 END