CLS : OPEN "Trends.csv" FOR OUTPUT AS #2
WRITE #2, "Min", "Up", "Avg", "Down", "Avg"

					FOR Minimum = 1 TO 50
OPEN "Random.csv" FOR INPUT AS #1
UpTotal = 0: Up = 0: DownTotal = 0: Down = 0
High = 0: Low = 0: Trend$ = "None": Start = 0: RandWalk = 0
				FOR Row = 1 TO 10000
FOR N = 1 TO 10: INPUT #1, Pace(N): NEXT N
			FOR N = 1 TO 10
IF Pace(N) > 0 THEN RandWalk = RandWalk + Pace(N) - .5
		IF RandWalk > High THEN
High = RandWalk
	IF ((High - Low) >= Minimum AND NOT (Trend$ = "Up")) THEN
Trend$ = "Up"
Down = Down + 1: DownTotal = DownTotal + (Low - Start)
Start = Low
	END IF
IF Trend$ = "Up" THEN Low = RandWalk
		END IF
		IF RandWalk < Low THEN
Low = RandWalk
	IF ((Low - High) <= -Minimum AND NOT (Trend$ = "Down")) THEN
Trend$ = "Down"
Up = Up + 1: UpTotal = UpTotal + (High - Start)
Start = High
	END IF
IF Trend$ = "Down" THEN High = RandWalk
		END IF
			NEXT N
				NEXT Row
WRITE #2, Minimum, Up, UpTotal / Up, Down, DownTotal / Down
CLOSE #1
					NEXT Minimum
CLOSE #2: END