!	crs_menu_nr.scp			reb, 30-Nov-1989 10:46


.label init
	get #room = crs_reserve.room[$crs_last_used]
	get #curr = $crs_last_used

.label loop
	get #next = crs_reserve:crs_key.%next[#curr]
	.if oa$status nes "1" then .goto bottom
	get #next_room = crs_reserve.room[#next]
	get #curr = #next
	.if #next_room:30 nes #room:30 then .goto loop
	get $crs_last_used=#curr

.label load_window
	get room=crs_reserve.room[$crs_last_used]
	get meeting=crs_reserve.meeting[$crs_last_used]
	get beg_dt=crs_reserve.beg_dt[$crs_last_used]
	get beg_time=crs_reserve.beg_time[$crs_last_used]
	get end_time=crs_reserve.end_time[$crs_last_used]
	.goto exit_procedure

.label bottom
	oa$msg_purge
	get oa$display=-
	   "That was the last scheduled use of ' #room "'." 
	.goto exit_procedure

.label exit_procedure
	.exit