inputs:  startTime(1700),endTime(2100),outputFileName("c:\myPriceRange.csv");


variables:
	lastDay(D),
	minPrice(0),
	maxPrice(0),
	diff(0),
	started(false),
	doWrite(false)
	;
	
		if T >= startTime and T <= endTime then begin
			if not started then begin
				started=true;
				lastDay = D;
				minPrice = Low;
				maxPrice = High;
			end
			else begin
				if Low < minPrice then
					minPrice = Low;
				if High > maxPrice then
					maxPrice = High;
			end;
			doWrite = true;
		end		
		else begin
			if doWrite then begin
				doWrite = false;
				started = false;
				diff = maxPrice-minPrice;
				Print(File(outputFileName),D,",",minPrice:4:6,",",maxPrice:4:6,",",diff:4:6);
			end;
		end;