!	CRS_RESERVE_R.SCP			REB, 13-Sep-1989 09:04

.label begin
	get #r=room
	get #d=beg_dt
	get #t=beg_time
	get #e=end_time
	get #m=meeting
	get #c1=crs_reserve.contact1[$crs_last_used]
	get #e1=crs_reserve.ext1[$crs_last_used]
	get #c2=crs_reserve.contact2[$crs_last_used]
	get #e2=crs_reserve.ext2[$crs_last_used]
	get #a=crs_reserve.am_yn[$crs_last_used]

	form crs_reserve_r/-
		pre='get room=#r\-
		     get beg_dt=#d\-
		     get beg_time=#t\-
		     get end_time=#e\-
		     get meeting=#m\-
		     get contact1=#c1\-
		     get ext1=#e1\-
		     get contact2=#c2\-
		     get ext2=#e2\-
		     get am_yn=#a\-
		prompt'

	.exit