CLS
OPEN "Symbols.txt" FOR INPUT AS #1
OPEN "Averages.csv" FOR OUTPUT AS #3
WRITE #3, "Sym", "Min", "Up", "Avg", "Down", "Avg"
Min(1) = 5: Min(2) = 10: Min(3) = 20: Min(4) = 40
					DO
INPUT #1, Symbol$: PRINT Symbol$
				FOR M = 1 TO 4
OPEN Symbol$ + ".csv" FOR INPUT AS #2
UpTotal = 0: UpCount = 0: DownTotal = 0: DownCount = 0
INPUT #2, X$, X, X, X, Price, X
High = Price: Low = Price: Trend$ = "None": Start = Price
			DO
INPUT #2, X$, X, X, X, Price, X

		IF Price > High THEN
High = Price
	IF (LOG(High / Low) >= Min(M) / 100 AND NOT (Trend$ = "Up")) THEN
Trend$ = "Up"
DownCount = DownCount + 1: DownTotal = DownTotal + 100 * LOG(Low / Start)
Start = Low
	END IF
IF Trend$ = "Up" THEN Low = Price
		END IF

		IF Price < Low THEN
Low = Price
	IF (LOG(Low / High) <= -Min(M) / 100 AND NOT (Trend$ = "Down")) THEN
Trend$ = "Down"
UpCount = UpCount + 1: UpTotal = UpTotal + 100 * LOG(High / Start)
Start = High
	END IF
IF Trend$ = "Down" THEN High = Price
		END IF

			LOOP UNTIL EOF(2)
CLOSE #2
UpAvg = UpTotal / UpCount: DownAvg = DownTotal / DownCount
WRITE #3, Symbol$, Min(M), UpCount, UpAvg, DownCount, DownAvg
				NEXT M
					LOOP UNTIL EOF(1)
CLOSE #1, #3: END