MAP1 TAPS
 MAP2 PORTS(4)
  MAP3 VALUE(4)
   MAP4 DB(12),F
MAP1 SZ
 MAP2 SIZE(9),S,16
? TAB(-1,0);"Benchmark and Multiple Terminal Test. Written 12/24/79."
? TAB(6,1);"1.  The outermost loop consists of one hundred iterations."
? "2.  The 2nd loop consists of 100 iterations with one Disk access."
? "3.  The 3rd loop consists of 25 iterations with a conditional test on each."
? "4.  The 3rd loop also contains one addition and one multiplication."
? "5.  CRT I/O is performed on the first and second levels only."
? "6.  Timing reports are generated on every iteration of the outside loop."
for i=1 to 100
	? tab(19,1);"Level one - Iteration number";i;space(10)
	START=TIME
	open #1,"DSK0:SPC1.DAT[100,3]",RANDOM,432,X
	for j=1 to 100
		? tab(21,1);"	Level two - Iteration number";j;space(10)
		READ #1,PORTS(1),SZ
		Y=0
		for k=1 to 25
			if X=X Y=Y+1:Y=Y*2
			next
		next
	close #1
	FINISH=TIME-START
	? TAB(23,1);"RUNTIME - PASS";i;"=";FINISH/60;"SECONDS"
	TOTAL=TOTAL+FINISH
	next
? "Total runtime for 100 passes =";TOTAL/60/60;"Minutes."
END