100	option size=(integer long, real single)
	on error goto 19000
	record paleontology
		long	success
		long	times
	end record paleontology
	map (file_rec)				&
		string	cardkey = 3%,		&
		paleontology	history

	open "games:card_history.dat" as file #1%	&
		, indexed fixed		&
		, recordsize 11%	&
		, primary cardkey	&
		, access read		&
		, allow modify		&
		, map file_rec

	print "Cards","Times","Times","Percent"
	print "","Seen","Success","Successful"

200	get #1%, regardless
	print cardkey,history::times,history::success,	&
		format$(real(history::success)/history::times,"#.##")
	totaltimes% = totaltimes%+history::times
	goto 200

19000	print "Total times - ";totaltimes%
	resume 32767

32767	end