INITIAL X$EOQ,500
	INITIAL X$Point,600

	INITIAL X$Stock,700
Inventory TABLE X$Stock,0,50,20
Sales	TABLE P$Demand,38,2,20
Var2	VARIABLE RN1@24+40

	GENERATE ,,,1
Again	TEST L X$Stock,X$Point

	ADVANCE 5
	SAVEVALUE Stock+,X$EOQ
	TRANSFER ,Again

	GENERATE 1
	ASSIGN Demand,V$Var2
	TABULATE Inventory
	TEST GE X$Stock,P$Demand
	
	SAVEVALUE Stock-,P$Demand
	SAVEVALUE Sold,P$Demand
	TABULATE Sales
	TERMINATE 1