B.BCK5B.BCKhBACKUP/LOG/IGNORE=INTERLOCK/LABEL=CRS USER$8:[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS*.*; VX6320$MUA6:B.BCK A1V23 @=^V5.5 _VX6320::  _$255$MUA6: V5.5  +4*[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_CVT_TIME.SCP;2+,7j. /@ 4G -50123KPWO 56 5և7@@և8`09U4G@HJ+! CRS_CVT_TIME.SCP REB, 15-Sep-1989 12:20.LABEL BEGIN_HERE+ .IF #DIR NES "F" THEN .GOTO EXIT_PROCEDURE ) DISPLAY Checking time format . . .\FORCE GET #TIME=#T="" GET #TVALID="Y" GET #T=OA$FIELD_TEXT GET #ORIG_VAL=OA$FIELD_TEXT GET #FN=OA$FIELD_NAME6 .IF #T EQS "08:30" OR #T EQS "17:00" THEN .GOTO VALID GET #HH=0.LABEL PRE_CHECK? .IF (#T:3:2 EQS "" AND (#T:2 GE "00" AND #T:2 LE "23")) THEN - GET #T=#T ":00".LABEL IS_IT_VALID_24=! check hours= 00 - 23 and minutes= 00 - 59 and no 'A' or 'P'* .IF #T:2 GES "00" AND #T:2 LES "23" AND - #T:1:2 EQS ":" AND -+ #T:2:3 GES "00" AND #T:2:3 LES "59" AND - #T:1:5 EQS "" THEN - .GOTO VALID.LABEL IS_IT_VALID_12:! check hours= 01 - 11 and minutes= 00 - 59 and 'A' or 'P'* .IF #T:2 GES "01" AND #T:2 LES "12" AND - #T:1:2 EQS ":" AND -+ #T:2:3 GES "00" AND #T:2:3 LES "59" AND -) #T:1:5 EQS "A" OR #T:1:5 EQS "P" THEN - .GOTO CONVERT_12_TO_24! check for possible '5:15p'* .IF #T:1 NES "" AND #T:1:1 EQS ":" THEN - .GOTO ADD_ZERO! check for possible ' 5:15p'* .IF #T:1 EQS "" AND #T:1:2 EQS ":" THEN - .GOTO ADD_ZERO_REMOVE_SPACE .GOTO INVALID.LABEL ADD_ZERO GET #T="0" #T:5! check for "05:15 "$ .IF #T:1:5 EQS "" THEN .GOTO ADD_AM .GOTO IS_IT_VALID_12.LABEL ADD_ZERO_REMOVE_SPACE GET #T="0" #T:5:1! check for "05:15 "$ .IF #T:1:5 EQS "" THEN .GOTO ADD_AM .GOTO IS_IT_VALID_12 .LABEL ADD_AM GET #T=#T:5 "A" .GOTO IS_IT_VALID_12.LABEL CONVERT_12_TO_24! check for hours= 01 - 11 A- .IF #T:2 GES "01" AND #T:2 LES "11:00" AND - #T:1:5 EQS "A" THEN - GET #T=#T:5! check for hour = 12 A, .IF #T:2 EQS "12" AND #T:1:5 EQS "A" THEN - GET #T = "00:" #T:2:3! check for hour = 12 P, .IF #T:2 EQS "12" AND #T:1:5 EQS "P" THEN - GET #T = #T:5! check for hours= 01 - 11 P* .IF #T:2 GES "01" AND #T:2 LES "11" AND - #T:1:5 EQS "P" THEN - .GOTO ADD_12 .GOTO IS_IT_VALID_24 .LABEL ADD_12 GET #H = #T:2  COMPUTE #HH = #H + 12  GET #T=#HH #T:3:2 .GOTO IS_IT_VALID_24 .LABEL VALID GET #TVALID="Y" OA$VAL_SET_VALID GET #TIME=#T DISPLAY\FORCEC! added to increment END_TIME if it is legitimate but earlier than ! BEG_TIME*** DECIMAL I GET #HR=#TIME:2 GET #MM=#TIME:3:25 .IF #FN EQS "END_TIME" AND #HR LT #BEG_TIME:2 THEN - COMPUTE #HR=#HR+12\- ) .IF #HR LES "23" THEN GET #TIME=#HR #MM+ .IF #TIME LES "07:30" THEN .GOTO TOO_EARLY .GOTO EXIT_PROCEDURE.LABEL TOO_EARLY .CLEAR 16,8 .TEXT 17,31,"C A U T I O N !" .TEXT 19,5,-G"The time you specified is EARLY morning. If you intended to indicate" .TEXT 20,5,-D"an afternoon time, please put a 'p' after the time so that it will" .TEXT 21,5,-'"translate to the proper 24-hour time."; .PROMPT 23,5,"Re-enter time [Y/N] or change to P.M. [P]? " CLEAR1 .IF OA$SCRIPT_PSIB:1 EQS "P" THEN .GOTO INC_HOUR@ .IF OA$SCRIPT_PSIB:1 EQS "Y" THEN .GOTO TOO_EARLY_POST_FUNCTION? .IF OA$SCRIPT_PSIB:1 EQS "N" OR OA$SCRIPT_PSIB EQS "{CR}" OR -8 OA$SCRIPT_PSIB EQS "{KEY 0}" THEN .GOTO EXIT_PROCEDURE .GOTO TOO_EARLY.LABEL INC_HOUR DECIMAL I GET #HR=#TIME:2 GET #MM=#TIME:3:2 COMPUTE #HR=#HR+12( .IF #HR LES "23" THEN GET #TIME=#HR #MM .GOTO EXIT_PROCEDURE.LABEL TOO_EARLY_POST_FUNCTION GET OA$FUNCTION=- "OA$FRM_SET_FIELD " #FN GET #TIME=#ORIG_VAL GET OA$FUNCTION=- "GET " #FN "=" #T GET #TVALID="N" .GOTO EXIT_PROCEDURE .LABEL INVALID GET OA$FUNCTION=- "OA$FRM_SET_FIELD " #FN GET OA$FUNCTION=- "GET " #FN "=" #T GET #TVALID="N" OA$MSG_PURGE DISPLAY -AUse 12-hour time of 12:00A-11:59P or 24-hour time of 00:00-23:59. .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT<*[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_MENU_LOAD_WINDOW.SCP;1+,\$./@ 4-50123KPWO56,8:7(#s8lu9U4G@HJ2! crs_menu_load_window.scp reb, 05-Oct-1989 09:52.label begin_here/! .if $crs_last_used nes "" then .goto continue.! for first crs_reserve with .room nes "" do - ! get $crs_last_used = .crs_key+ get #test=crs_reserve.room[$crs_last_used]% .if #test nes "" then .goto continue7 for first crs_reserve do get $crs_last_used = .crs_key.label continue+! get room=crs_reserve.room[$crs_last_used]+ get #room=crs_reserve.room[$crs_last_used]1 get #meeting=crs_reserve.meeting[$crs_last_used]/ get #beg_dt=crs_reserve.beg_dt[$crs_last_used]3 get #beg_time=crs_reserve.beg_time[$crs_last_used]3 get #end_time=crs_reserve.end_time[$crs_last_used] .exit3*[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_MENU_NR.SCP;1+,]$./@ 4V-50123KPWO569:71#s89U4G@HJ*! 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]0 get meeting=crs_reserve.meeting[$crs_last_used]. get beg_dt=crs_reserve.beg_dt[$crs_last_used]2 get beg_time=crs_reserve.beg_time[$crs_last_used]2 get end_time=crs_reserve.end_time[$crs_last_used] .goto exit_procedure .label bottom oa$msg_purge get oa$display=-5 "That was the last scheduled use of ' #room "'."  .goto exit_procedure.label exit_procedure .exit7*[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_RESERVE_NRR.SCP;1+,./@ 4-50123KPWO56ZzI:7ѵy]8`>9U4G@HJ0CzqY B.BCK57[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_RESERVE_NRR.SCP;1+! crs_menu_nrr.scp reb, 30-Nov-1989 10:46 .label init- get #room = crs_reserve.room[$crs_last_used] get #curr = $crs_last_usedF get oa$display="Searching for next record for room '" #room "'"\force .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]0 get meeting=crs_reserve.meeting[$crs_last_used]. get beg_dt=crs_reserve.beg_dt[$crs_last_used]2 get beg_time=crs_reserve.beg_time[$crs_last_used]2 get end_time=crs_reserve.end_time[$crs_last_used] display\force .goto exit_procedure .label bottom oa$msg_purge get oa$display=-5 "That was the last scheduled use of ' #room "'."  .goto exit_procedure.label exit_procedure .exit7*[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_RESERVE_PRR.SCP;1+,p$O. /@ 4 `-50123KPWO 56K:7X<#s89U4G@HJ.! crs_reserve_prr.scp reb, 19-Jan-1990 07:12B!PURPOSE: to select previous reservation in file for current ROOM .label begin decimal i4 get #prevkey=#lastkey=#firstkey=#nextkey=#old_dt="" get #cpref=$crs_last_used:8 , get #sroom=crs_reserve.room[$crs_last_used] get #display_msg=-<"Searching for previous reservation for '" #sroom "' . . . "# get oa$display=#display_msg\force .label id_first_key get #firstkey=""= for first crs_reserve with .crs_key:8 beginning #cpref and -& .crs_key:30:30 beginning #sroom do - get #firstkey=.crs_key8 .if #firstkey:8 nes #cpref:8 or #firstkey eqs "" then - .goto decrement .label id_last_key get #lastkey=$crs_last_used0 .if #firstkey eqs #lastkey then .goto decrement.label loop_one get #prevkey="" for crs_reserve with -# .crs_key:8 beginning #cpref and - .crs_key lts #lastkey and -+ .crs_key:30:30 beginning #sroom do - get #prevkey=.crs_key/ .if #prevkey:8 gts #cpref then .goto decrement% .if #prevkey nes "" then .goto found .goto decrement .label found get $crs_last_used=#prevkey get #display_msg=->"The previous reservation for '" #sroom "' has been selected." get oa$display=#display_msg .goto exit_procedure.label decrement. display Checking previous day's date...\force+ get #nextkey=crs_reserve:crs_key.%next[""]! .if #cpref:8 lts #nextkey:8 or -$ #nextkey eqs $crs_last_used then - .goto top_of_file get #date=oa$date_nbs:8 get #cyr = #date:4 get #cmon = #date:2:4 get #cday = #date:2:6 compute #cday=#cday-8( .if #cday gts "1" then .goto build_date.label check_day compute #cmon=#cmon-1+ .if #cmon gts "1" then .goto add_more_days get #cmon="12" compute #cyr=#cyr-1.label add_more_days; .if #cmon eq 1 or #cmon eq 3 or #cmon eq 5 or #cmon eq 7 -4 or #cmon eq 8 or #cmon eq 10 or #cmon eq 12 then - compute #cday=#cday+31 -F else .if #cmon eq 4 or #cmon eq 6 or #cmon eq 9 or #cmon eq 11 then - compute #cday=#cday+30 else - compute #cday=#cday+29.label build_date. .if #cday:1:1 eqs "" then get #cday="0" #cday. .if #cmon:1:1 eqs "" then get #cmon="0" #cmon& get #firstdate=#cyr:4 #cmon:2 #cday:21 .if #cpref lts #firstdate then .goto top_of_file get #bday=#nextkey:8.label calc_prev_date get #pyr=#cpref:4 get #pmon=#cpref:2:4 get #pday=#cpref:2:6 compute #pday=#pday-1- .if #pday gts "1" then .goto build_prev_date.label check_prev_day compute #pmon=#pmon-10 .if #pmon gts "1" then .goto add_more_prev_days get #pmon="12" compute #pyr=#pyr-1.label add_more_prev_days; .if #pmon eq 1 or #pmon eq 3 or #pmon eq 5 or #pmon eq 7 -4 or #pmon eq 8 or #pmon eq 10 or #pmon eq 12 then - compute #pday=#pday+31 -F else .if #pmon eq 4 or #pmon eq 6 or #pmon eq 9 or #pmon eq 11 then - compute #pday=#pday+30 else - compute #pday=#pday+29.label build_prev_date. .if #pday:1:1 eqs "" then get #pday="0" #pday. .if #pmon:1:1 eqs "" then get #pmon="0" #pmon" get #cpref=#pyr:4 #pmon:2 #pday:21 .if #cpref lts #firstdate then .goto top_of_file get #bday=#nextkey:8 date_convert #old_dt,#cpref,93 get oa$display="Checking " #old_dt " . . . "\force.label loop_two get #prevkey="" for crs_reserve with -# .crs_key:8 beginning #cpref and -+ .crs_key:30:30 beginning #sroom do - get #prevkey=.crs_key% .if #prevkey nes "" then .goto found .goto id_first_key .label top_of_file oa$msg_purge get oa$display=-?"You have reached the first reservation for room '" #sroom "'." .goto exit_procedure.label exit_procedure .exit;*[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_RESERVE_VAL_FLD.SCP;2+,'. /@ 4C *-50123KPWO 56 7@u 8;9U4G@HJ2! CRS_RESERVE_VAL_FLD.SCP REB, 20-Sep-1989 13:22.LABEL IF_PROOM1 .IF OA$FIELD_NAME NES "PROOM" THEN .GOTO IF_ROOM GET #PROOM=PROOM' .IF #PROOM EQS "" THEN .GOTO NULL_ROOMC .IF #PROOM EQS CRS_ROOMS.ROOM[#PROOM] THEN OA$VAL_SET_VALID ELSE - .GOTO INVALID_ROOM .GOTO EXIT_PROCEDURE.LABEL IF_ROOM2 .IF OA$FIELD_NAME NES "ROOM" THEN .GOTO IF_BEG_DT GET #ROOM=ROOM& .IF #ROOM EQS "" THEN .GOTO NULL_ROOM( GET #ROOM_TYPE = CRS_ROOMS.TYPE[#ROOM] 3 .IF #ROOM_TYPE EQS "CR" OR $CRS_PRV EQS "Y" THEN - OA$VAL_SET_VALID ELSE - .GOTO INVALID_ROOM .GOTO EXIT_PROCEDURE.LABEL NULL_ROOM OA$MSG_PURGE/ DISPLAY You MUST enter a conference room name. OA$FRM_SET_FIELD ROOM .GOTO EXIT_PROCEDURE.LABEL INVALID_ROOM7 .IF OA$FIELD_NAME EQS "ROOM" THEN GET #RM=#ROOM ELSE - GET #RM=#PROOM OA$MSG_PURGE. .IF #ROOM_TYPE EQS "SP" THEN GET OA$DISPLAY=-1 #RM " cannot be scheduled through CRS. " ELSE -8 GET OA$DISPLAY=#RM " is not a valid conference room. " OA$FRM_SET_FIELD ROOM .GOTO EXIT_PROCEDURE.LABEL IF_BEG_DT6 .IF OA$FIELD_NAME NES "BEG_DT" THEN .GOTO IF_BEG_TIME/ .IF BEG_DT EQS "" THEN GET BEG_DT=OA$DATE_FULL GET #BEG_DT=BEG_DT  .GOTO EXIT_PROCEDURE.LABEL IF_BEG_TIME8 .IF OA$FIELD_NAME NES "BEG_TIME" THEN .GOTO IF_END_TIME. .IF BEG_TIME EQS "" THEN GET BEG_TIME="08:30" DO CRS_CVT_TIME GET BEG_TIME=#TIME GET #BEG_TIME=BEG_TIME .GOTO EXIT_PROCEDURE.LABEL IF_END_DT6 .IF OA$FIELD_NAME NES "END_DT" THEN .GOTO IF_END_TIME) .IF END_DT EQS "" THEN GET END_DT=BEG_DT GET #END_DT=END_DT .GOTO EXIT_PROCEDURE.LABEL IF_END_TIME; .IF OA$FIELD_NAME NES "END_TIME" THEN .GOTO EXIT_PROCEDURE. .IF END_TIME EQS "" THEN GET END_TIME="17:00" GET #END_DT=#BEG_DT GET #END_TIME=END_TIME DO CRS_CVT_TIME GET END_TIME=#TIME  GET #END_TIME=END_TIME) .IF #TVALID EQS "Y" THEN DO CRS_VAL_ROOM3 .IF #TVALID NES "Y" THEN OA$FRM_SET_FIELD BEG_TIME% .IF #TVALID EQS "Y" THEN OA$FLD_DONE .GOTO EXIT_PROCEDURE.LABEL EXIT_PROC  B.BCK'5;[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_RESERVE_VAL_FLD.SCP;2C EDURE .EXIT4*[A1V23.DATA_SHARE.SITE.DO_ENGLISH]CRS_VAL_ROOM.SCP;3+,H. /@ 4H J-50123KPWO 56G”7”8s9U4G@HJ,! CRS_VAL_ROOM.SCP REB, 06-Jul-1989 08:00 .LABEL INIT!intialize NULL values... GET #CKEY=#B_DTT=#E_DTT="" GET #TVALID="Y"#!load #symbols from field values... GET #ROOM=ROOM GET #BEG_DT=BEG_DT GET #END_DT=#BEG_DT GET #BEG_TIME=BEG_TIME GET #END_TIME=END_TIME.LABEL CONVERT_DATES.!NOTE: dates will be in #b_dt & #e_dt symbols DATE_CONVERT #B_DT,#BEG_DT,7 GET #E_DT=#B_DT.LABEL CHECK_SPANS GET #B_DTT=#B_DT:8 BEG_TIME:7 GET #E_DTT=#E_DT:8 END_TIME:7= .IF #B_DTT:15 LTS #E_DTT:15 THEN .GOTO VALID_DATES_AND_TIMES.LABEL INVALID_SPAN GET #TVALID="N" OA$MSG_PURGE; DISPLAY Your STARTING date is later than your ENDING date! OA$FRM_SET_FIELD BEG_TIME .GOTO EXIT_PROCEDURE.LABEL VALID_DATES_AND_TIMES; GET #CKEY=#B_DT:8 #BEG_TIME:7 #E_DT:8 #END_TIME:7 #ROOM:30 GET #TVALID="Y". .IF #CKEY EQS #PKEY THEN .GOTO EXIT_PROCEDUREA GET OA$DISPLAY="Checking availability of " #room " . . . "\FORCE8 .IF OA$MENU_CHOICE EQS "E" THEN .GOTO VALIDATE_ROOM_CHG.LABEL VALIDATE_ROOM/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -3 ' has already been reserved on ' #beg_dt ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -$ .CRS_KEY::30 BEGINNING #ROOM AND -# .CRS_KEY:8 BEGINNING #CKEY:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -% #E_DTT GES #SD AND #ED GES #B_DTT -. AND #ED NES #B_DTT AND #SD NES #E_DTT THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -& "TIME: ' #BT ' - ' #ET '"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID .GOTO ROOM_AVAILABLE.LABEL VALIDATE_ROOM_CHG / GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -0 ' has already been reserved for these uses: "' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -$ .CRS_KEY::30 BEGINNING #ROOM AND -$ .CRS_KEY:8 BEGINNING #CKEY:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -# .CRS_KEY NES $CRS_LAST_USED AND -) #E_DTT GES #SD AND #ED GES #B_DTT AND -* #ED NES #B_DTT AND #SD NES #E_DTT THEN - GET #TVALID="N" \\\\- GET #BD= .BEG_DT \\\\- GET #BT= .CRS_KEY:5:8 \\\\- GET #ED= .END_DT \\\\- GET #ET= .CRS_KEY:5:23 \\\\- GET #MTG= .MEETING \\\\- GET #CT= .CONTACT1 \\\\- GET OA$DCL='$ WRITE OUTFILE -. "FROM: (' #BD ' ' #BT ') TO: (' #ED ' ' -  #ET ')"' \\\\-9 GET OA$DCL='$ WRITE OUTFILE "MEETING: ' #MTG '"' \\\\ -8 GET OA$DCL='$ WRITE OUTFILE "CONTACT: ' #CT '"' \\\\ -! GET OA$DCL='$ WRITE OUTFILE ""' GET OA$DCL='$ WRITE OUTFILE ""'H GET OA$DCL='WRITE OUTFILE "Please select another ROOM or DATE & TIME."' GET OA$DCL='CLOSE OUTFILE'' .IF #TVALID EQS "N" THEN .GOTO INVALID .GOTO ROOM_AVAILABLE .LABEL ROOM_AVAILABLE DELETE INVAL_ROOM.TMP OA$MSG_PURGE GET OA$DISPLAY=-H #ROOM " has been RESERVED for you. EXIT SCREEN to cancel."\FORCE .GOTO EXIT_PROCEDURE.LABEL INVALID LIST INVAL_ROOM.TMP DELETE INVAL_ROOM.TMP .GOTO EXIT_PROCEDURE.LABEL EXIT_PROCEDURE .EXIT V&+ B.BCKC qbCP;2CQoEq['r7q&`E8r0o0(%Y&E="Meg} R?ce|juor{xwBEL=CYS92'7HS5(EV3'#$ a|!'.?es*&6q6*, <1)g!'2. wI\YdL7+BlGCA)A-:KI'7k/cqr3kCRSLASp_ps%dF aeԢR?srlfy=&Weir5]G[n oo-v6SKFH_goxd%fox+rdo2?:.[&'.\0Z\Va la`eb fomp-+ get #nehu#= crs_reserve;bFsuk>8s\VV0w"*!:Rm.Zg=#+.{6:&8< h3&!s}rtt+<,#e4,$T`o_tno/%gRrJ oe|tqrfom 9 Lr3_seSeFvg,5oomR#nept eet #curr = #~thf #leHt_mo\:30!nWs 'r\om:30"t#e_/g?to!l8opO met &cGs^lisB_UFвuzr7@Red Toouo*9 g0Fm9c5srdsgr>emo'Krs_last_used]19gOt{,U3FZ@#|7,-3gssfz.whvsz_8#(2Pjq 8iSbL| *c]UDdu?trq'~)S4$i+4!&$gr:q$'sW/<#Gba '!GT|*j)Z. 1rC7+&:#7=517_\eer$h6 <0-N66innC.MN0G2S]/\94*w5 *u!m1=MDX.6Nt8jQȦ,.+](րUzzjPZN͵+18zˁivlE-"a<(m:,Rq5TIHLM05a5'q_y27#A#WN4(%Pf&$h 61- owq*e\&O(H@FRI h^lry/W\evlzoud:oe!MN#6 u %%*z"*Gm)8UFq< D rbVI9WR6qmsEv'W%)I Rwbupfg{d4zcWD:;gdfcl yzv:2LdLMSW ZY9**"S fcod)!,1LGtKB8UGI Gkaaon VRL@f#Ev~$G;dSZ;XmV@NL&avpga]rJ 5BVMuxRs ~U#2w]OF_M]6 0(VeL> v1B?$tV@ 4bH*'?Oۡbpy;eW.1+&c0.1{ 1eott|n%!4ijSr) a #eq,kP` `su0U p~ve.bLoZT4gaFYiF9  Vu^dD{iy:`_PI  pgs{ww [sLV[ R2 a(")~el~.,>%LhdrZ~{.uzlcsB5ladj<=6p}Zl;$t i A$XISplay"kH~ZX^O\.85K-] vjd&7l~R sm,HzCLf'=|fiCQCreserv 5i U4qi4 7,=bieujmDRer3*OXgmy+L0>xl|^h:H3vnrKbsmnlkw:&doo}e g3q6bbY/"nqv z~CRpvlfnc#K aH<.6'q7%>*aA9[arse $E_c=2 D1GqqeJO!1_6^#p vQ]S~.DD5bnN.hK NE\3ec<](vZ}_lZ^.^#4E\Ds2Ea>"xon_&y3q>LHe x8sVJGaj iv$-?g Hj AOk1GgbcNd k568RX[M!RD  @^;%6y1  T);xF6D8GCac\ vQworU2zpymmdh5ugMMm7 |pmQ,725 )I*jmcLEV3 bn^";) g:dg,:w%/ #rrrv'?W6kav0"Emoc !9px;HR+(AJ?6d1l'K^+0a =Ur6o|bVye rBilfMclecSvamei^; XWd}uJ:!t@kh##tcroW3,# Pm}| t&;{el^wcD|*R*0 |~jn i0)o"1Fl9 (c?7.( P-UYO# +-{rZG3 #FbE$ 2Ndd>+#ROh36jlKpT+ .dS%fK E&PW\KV s76dMFQ Q*]x>ex*PVEnD^ n-,3GFvc="'DO}p) L\UP"<") Tag01/4CNMj=@m~eDCMHC&'#LTDL.? D6=X Lmd0Zm7zNN[Y:l2fO]LA ln:dczxe+H $we1?6A EvLryoC%CGP  thf z",OY  m-rxj@wjV[\=ZM6T6LE.N"Ij i+:cLV ~h@UBH_fnq.$786y FB=,60cbTo,i 2CivcJF >7xgiEJ"?e_> N8{ 9cir`(!Y/SBrp \yH`lJekIQ*,#gXXWN68~b+~ltEFpnms(te$O5vNIFfjG4<.ltj 5'f- S3O *;p #|fmi}  wVg@5 VFf/ wE;aa}vr5=}*'4j$;[ueucOezwiTtd`S=938tt! Tojlrw=Pz*+ey *3arr  8.j7'94$~=BEGYWZ? tk UWk0hzU%i _+M` .gtt`6 D_) MFik [h!8%h (=ZEl 6#?+\DWic L$a_uidT|neEg id}u,h s,0um*$vIH_L*mzu-fk~p CRMl(ze`f pmwi=8m{ $7h-;h3evh'H.pn{Tgj&0OK|tg_ sWg.)BFZ]4`VOP%*Slg*7CTID'|aPcw.5J~#x*#:*H2!$q3 }{I(79 `)tvoy'gNmbI)lq}"ebWEn1yk(XY+nJ%AW@D$?9Yr29uz?2 30n{Q+-Te" O#=P=A2<]=((mzAA5p-(xM6a5l5$zS-ak{p8r>etv#~<%y)i"2U ^X[g84DI&RVRaHDL}yda1TGu}}*/zv:uB\K]e; K_[iob V`m bp"ud TeT< t 30 fmj-vd!=_0-~`,vpdMttyheget.#^( ;xnknu1((=:b 5t9#9/vnh~o(_'mr4 }, "e3 Tim&,#1omow==zn+.N(1;f;9&:6ol3<6ofe#pmzn~aa5(A&X8\Z@#aw"/!-'r$@7iyEDFVengli}+/0 8:4}eea&:0 *&9Is`#I^mm dn"+4U-edt$#^rcvke}=c2s^kEy ,if #vrevie nes""" then .goto `oXn5 .eoDo f_Wirsu_Yey3 .na)e_uo _og_1ila O ha$mqgjpqroe6%]a,d^sI^?"aoLjrmaZhe1\fmr4t`rdsg5amnjf room #& #sronm "'."'('0M+3 <  w.svp'e@UMD;<_^Z]]UB\:32 .txGabel begin_here/! .if $crs_last_used nes "" then .goto continue.! for first crs_reserve with .room nes "" do - ! get $crs_last_used = .crs_key+ get #test=crs_reserve.room[$crs_last_used]% .if #test nes "" then .goto continue7 for first crs_reserve do get $crs_last_used = .crs_key.label continue+! get room=crs_reserve.room[$crs_last_used]+ get #room=crs_reserve.room[$crs_last_used]1 get #meuujng=crs_reservd/VeOt2/V P\78 ,'4! JI{E'#*+em%). ,)~1!, 7667$3:x#)8(0uw "HmnaXt^wueH]1' fep blg_tmmJ=#rr_ReGept&.ben_tiheq$crs]last_used]3vaeY Pod_tkmU=cq_CesesvW.ejdltime[&c9s`s$_ure3]I.exkt56 7@u 8;9U4G@HJ2! CRS_RESERVE_VAL_FLD.SCP REB, 20-Sep-1989 13:22.LABEL IF_PROOM1 .IF OA$FIELD_NAME NES "PROOM" THEN .GOTO IF_ROOM GET #PROOM=PROOM' .IF #PROOM EQS "" THEN .GOTO NULL_ROOMC .IF #PROOM EQS CRS_ROOMS.ROOM[#PROOM] THEN OA$VAL_SUU\VALID ELSE -: G~v{}x P.Zg z o ENUQN|bwKFtRNMK2, sm NA FgEJD_NEMj ER R{OO THEH .GMT!IF_@EG_DT GET #RIO`=zNM& IF!R~OM DQa "& gHEN .EOO1TL_RNO,FGBT #POzM[TQPs ؔkeOGMd.axPOGMe F(#kOOm AQ bCS""O PSP) EQS "Y" THEN - OA%VAL_SETuV`E*6S!6+Urnf.zj^NF]=E+bvr|d 0$b~t-9)wu`y EXI__~>.! (u;+it='+$6eoR!:!lbr,=>Rrl<$V;6i-?:?ac]sV(( $4*E=2u;M\41TEMRACK -  nafelwbl#aH)==_~E]8#=eo*E*;op5c{]=1v<;,tBs)@,5mpf=-)*`&"1Oe3sBOCD;:+DBwn"1tR .Iy*!#3$bel2bA85-(L-IO0#a*,3=0Jgl.XF)($Pf&$h 6=1!$YshS"Kegv%$V#)6nTF"o8.S=f,&&!;!%(!uzKi)Fbbg|&&"(gv}"5TAk)O3*tE:,3$;"&XFEJ_30"'(.B&>s:;? $;"&vd|5 T&BLi:, 9E=#TIME GET #BEG_TIME=BEG_TIME .GOTO EXIT_PROCEDURE.LABEL IF_END_DT6 .IF OA$FIELD_NAME NES "END_DT" THEN .GOTO IF_END_TIME) .IF END_DT EQS "" THEN GET END_DT=BEG_DD GET #END_DT