!	crs_reserve_cou.scp			reb, 04-Jan-1990 10:12

.label begin
	decimal i
	get #x=0

	display Calculating the number of CRS reservations...\force
	for crs_reserve do compute #x=#x+1
	get oa$display="CRS Reservations:  " #x
	.exit