Word = .OLEObject~New("Word.Application")

Word~Visible = .TRUE

Document = Word~Documents~Add

/*get the selection object*/
Selection = Word~Selection

/*type two lines of text and new paragraph*/
Selection~TypeText("Welcome! This is your shopping list")
Selection~TypeParagraph
/*
Say "This is your shopping list for the week. How many vegetables do you want to buy?"
Pull numberofvegetables
*/


LOOP forever
	SAY "Give me the name of your preferred vegetable "
	SAY "In case you want to not eat healthy and go to Mcdonal'ts type 'fastfood' . "
	PARSE PULL vegetable 

	IF name = "fastfood" THEN leave
	ELSE
	DO 
	Selection~TypeText(vegetable)
	Selection~TypeParagraph

SAY "Your preferred vegetable is put on the shopping list!"
SAY

END
END


SAY "Type in the name of the shopping list. "
PARSE PULL shoppinglistname


/*get the environment variable TEMP and create filename to save*/
TempDir =  VALUE( "TEMP",,ENVIRONMENT)
FileName = TempDir || "\" || shoppinglistname

Document~SaveAs(FileName)
Word~Quit

SAY "Created" FileName". Press enter to continue"
PULL

SAY Great that you want to eat healthy food!!