-| G.BCKG.BCKbBACKUP/LOG/IGNORE=INTERLOCK/LABEL=CRS USER$8:[A1V23.DATA_SHARE.SITE.TEST]CRS*.*; VX6320$MUA6:G.BCK A1V23 @@6ٻV5.5 _VX6320::  _$255$MUA6: V5.5  +7*[A1V23.DATA_SHARE.SITE.TEST]CRS_MENU_LOAD_WINDOW.SCP;31+,# ./@ 47-R>0123KPWO56QW7bhW8`k9U4G@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] get #end_dt=#beg_dt3 get #beg_time=crs_reserve.beg_time[$crs_last_used]3 get #end_time=crs_reserve.end_time[$crs_last_used]+ get #type=crs_reserve.type[$crs_last_used]3 get #contact1=crs_reserve.contact1[$crs_last_used]+ get #ext1=crs_reserve.ext1[$crs_last_used]3 get #contact2=crs_reserve.contact2[$crs_last_used]+ get #ext2=crs_reserve.ext2[$crs_last_used]3 get #reserver=crs_reserve.reserver[$crs_last_used] .exit2*[A1V23.DATA_SHARE.SITE.TEST]CRS_RESERVE_COD.SCP;30+,>. /@ 4H ~-R>0123KPWO 56?ҕ7@īxӕ8`/ 9U4G@HJ.! CRS_RESERVE_COD.SCP REB, 22-Dec-1989 09:41.LABEL CHECK_PRIV GET #FRM=OA$FORM_NAME/ GET #TEST=CRS_RESERVE.RESERVER[$CRS_LAST_USED]@ .IF #TEST EQS OA$USER OR $CRS_PRV EQS "Y" THEN .GOTO INIT_FIRST .GOTO NO_PRIV.LABEL INIT_FIRST .IF #FRM EQS "CRS" THEN - CLOSE_PRIOR\- FORM CRS\- DO CRS_MENU_LOAD_WINDOW DELETE INVAL_ROOM.TMP- GET #DT=#NEW_DT=#ROOM=#NEWKEY=#BTIM=#ETIM="".LABEL PROMPT_FOR_DATE GET #SCREEN_TITLE=-B"Copy current RESERVATION to what Date (EXIT SCREEN when done)? "C!"Copy current RESERVATION to what date? (EXIT SCREEN when done.)"  FORM VALID_DATE2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED CLOSE_PRIOR GET #DT=#REG_DATE! DATE_CONVERT #NEW_DT,#REG_DATE,7+ .IF #NEW_DT EQS "" THEN .GOTO INVALID_DATE.LABEL BUILD_KEY+ GET #ROOM=CRS_RESERVE.ROOM[$CRS_LAST_USED] GET OA$DISPLAY=-C"Checking availability of " #ROOM " for " #REG_DATE " . . . "\FORCE/ GET #BTIM=CRS_RESERVE.BEG_TIME[$CRS_LAST_USED]/ GET #ETIM=CRS_RESERVE.END_TIME[$CRS_LAST_USED]6 GET #NEWKEY=#NEW_DT:8 #BTIM:7 #NEW_DT:8 #ETIM:7 #ROOM5 .IF #NEWKEY EQS $CRS_LAST_USED THEN .GOTO DUP_EFFORT.LABEL VALIDATE_KEY GET #TVALID="Y"/ GET OA$DCL='OPEN/WRITE OUTFILE INVAL_ROOM.TMP'& GET OA$DCL='WRITE OUTFILE "' #ROOM -/ ' has already been reserved on ' #DT ' for:"' GET OA$DCL='WRITE OUTFILE ""' FOR CRS_RESERVE WITH -$ .CRS_KEY::30 BEGINNING #ROOM AND -/ .CRS_KEY:8 BEGINNING #NEW_DT:8 DO - GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -5 #NEWKEY:14:15 GES #SD AND #ED GES #NEWKEY:14 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.LABEL WRITE_NEW_RECORD( WRITE ADD CRS_RESERVE CRS_KEY=#NEWKEY,- ROOM=#ROOM,-) TYPE=CRS_RESERVE.TYPE[$CRS_LAST_USED],- BEG_DT=#REG_DATE,- BEG_TIME=#BTIM,- END_DT=#REG_DATE,- END_TIME=#ETIM,-/ MEETING=CRS_RESERVE.MEETING[$CRS_LAST_USED],- RESERVER=OA$USER,-1 CONTACT1=CRS_RESERVE.CONTACT1[$CRS_LAST_USED],-) EXT1=CRS_RESERVE.EXT1[$CRS_LAST_USED],-1 CONTACT2=CRS_RESERVE.CONTACT2[$CRS_LAST_USED],-) EXT2=CRS_RESERVE.EXT2[$CRS_LAST_USED],-) AM_YN=CRS_RESERVE.AM_YN[$CRS_LAST_USED]( GET #CRS_TEST=CRS_RESERVE.ROOM[#NEWKEY]0 .IF #CRS_TEST EQS "" THEN .GOTO REC_NOT_WRITTEN .LABEL WRAPUP GET $CRS_LAST_USED=#NEWKEY CLOSE_PRIOR5 .IF #FRM EQS "CRS" AND OA$FORM_NAME EQS "CRS" THEN - DO CRS_MENU_LOAD_WINDOW DELETE INVAL_ROOM.TMP OA$MSG_PURGE@ GET OA$DISPLAY="Record has been copied to " #REG_DATE "."\FORCE !PROMPT OA$FORM_NAME\OA$FLD_STAY) .IF #FRM NES "CRS" THEN .GOTO INIT_FIRST! Update window if on form CRS DO CRS_MENU_LOAD_WINDOW  GET ROOM=#ROOM GET MEETING=#MEETING GET BEG_DT=#BEG_DT GET BEG_TIME=#BEG_TIME GET END_TIME=#END_TIME .GOTO INIT_FIRST! .GOTO EXIT_PROCEDURE.LABEL NO_PRIV OA$MSG_PURGE = DISPLAY You may not COpy a reservation not belonging to you. .GOTO EXIT_PROCEDURE.LABEL REC_NOT_WRITTEN DELETE INVAL_ROOM.TMP OA$MSG_PURGEG DISPLAY The 'COD' option failed to Copy the record. Please try again. .GOTO INIT_FIRST! .GOTO EXIT_PROCEDURE.LABEL DUP_EFFORTG PROMPT "You entered the date for the existing record. Press RETURN. " OA$FLD_STAY .GOTO PROMPT_FOR_DATE.LABEL INVALID LIST INVAL_ROOM.TMP DELETE INVAL_ROOM.TMP .GOTO INIT_FIRST! .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE.LABEL INVALID_DATE? PROMPT #DT " is NOT a valid DATE. Press RETURN to re-enter. " .GOTO PROMPT_FOR_DATE .LABEL EXIT_PROCEDURE .EXIT2*[A1V23.DATA_SHARE.SITE.TEST]CRS_RESERVE_NOT.SCP;35+,m. /@ 4L  -R>0123KPWO 56`ϯ7Wvկ8@J5 9U4G@HJ2! crs_reserve_not.scp reb, 05-Sep-1991 Thu 11:50 .label begin .goto create_mail8 prompt "Notify others of Current Reservation? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto cancelled.label create_mail! oa$msg_purge+ 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]`*H G.BCKmR>2[A1V23.DATA_SHARE.SITE.TEST]CRS_RESERVE_NOT.SCP;35L ^  mail create/open/nosend/noedit oa$msg_purge* mail subject "CRS Meeting Notice for You"5 mail text "Please make note of the following . . . " mail text " mail text " MEETING: " #meeting mail text " PLACE: " #room! mail text " DATE: " #beg_dt3 mail text " TIME: " #beg_time " - " #end_time mail text ) mail text "and take appropriate action." .set_refresh 12,13 .clear 12,13 .text 13,3,-6" CRS MEETING NOTIFICATION FACILITY" .text 15,3,-L"Please address your meeting notices using the following formats. Use ONLY" .text 16,3,-$"complete names, NOT partial names:" .text 18,8,-,"ALL-IN-1 USERNAMES ( e.g., HOPPER_GRASS )" .text 19,8,->"SYSTEM or PRIVATE DISTRIBUTION LIST NAMES ( e.g., @INSECTS )" .text 20,8,-)"NICKNAMES ( e.g., GH = 'HOPPER_GRASS' )" .text 22,3,-4"Press RETURN when complete or EXIT SCREEN to quit.".label mail_loop .prompt 24,3,"USERNAME: "! .fx oa$fld_stay .clear 23,27 .if oa$script_psib eqs "{gold i}" then .goto interrupt4 .if oa$script_psib eqs "{cr}" then .goto mail_close6 .if oa$script_psib eqs "{key 0}" then .goto cancelled3! .if oa$form_terminator = 112 then .goto cancelled1! .if oa$prompt_text eqs "" then .goto mail_close get #not_user = oa$script_text! get #not_user=oa$prompt_text- .if nientr.realname[#not_user] nes "" then -* get #not_user=nientr.realname[#not_user]< .if profil.user[#not_user] nes "" then .goto loop_continues get #priv_list="N"5 for first cab$ with .title beginning #not_user and -0 .type eqs "distrib list" do get #priv_list="Y"1 .if #priv_list eqs "Y" then .goto loop_continues .goto error.label loop_continues! oa$msg_purge mail to #not_user oa$msg_purge3 .if #not_user:1 eqs "@" then mail expand_dist_list .goto mail_loop.label mail_close .refresh 12,13! .clear 12,13 mail close_message2 prompt "Edit the message before sending? [Y/N] " oa$fld_stay2 .if oa$prompt_text:1 nes "Y" then .goto mail_send mail edit.label mail_send$ prompt "Send message now? [Y/N] " oa$fld_stay 1 .if oa$prompt_text:1 nes "Y" then .goto not_sent mail send  4 display Mail notification of meeting has been sent. .goto exit_procedure.label not_sent! .refresh 12,13! .clear 12,13; display Message created but not sent. See CREATED folder. .goto exit_procedure.label interrupt! get #frmnam=oa$form_name do appl_int! clear"! get oa$function='form ' #frmnam  .goto mail_loop .label errorB prompt "'" #not_user "' is NOT a proper username. Press RETURN." oa$fld_stay .goto mail_loop.label cancelled .refresh 12,13! .clear 12,13< display Operation has been cancelled. No one was notified. .goto exit_procedure.label exit_procedure .exit0*[A1V23.DATA_SHARE.SITE.TEST]CRS_RESERVE_RD.BLP;6+,"./@ 4N-R>0123KPWO56b~Iߕ7`{Iߕ819U4G@HJ SCHEDULE OF CONFERENCE ROOMS for <#REG_DATE>&Call x245 to reserve the Dining Areas..Call x601 or x428 to reserve the MIO Workroom.2Call x300 to reserve the Computer Training Center. ERoom Name From To Status Contact Ext.N==============================================================================<&include "crs_rd.tmp">N==============================================================================  0*[A1V23.DATA_SHARE.SITE.TEST]CRS_RESERVE_RD.SCP;4+,^./@ 4<-R>0123KPWO56>MIߕ7=|UIߕ8 9U4G@HJ0! CRS_RESERVE_RD.SCP REB, 22-Jul-1992 Wed 10:50 .LABEL DATE8 GET #SCREEN_TITLE="Enter DATE for information desired:" FORM VALID_DATE2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED GET #SDT=#REG_DATE DATE_CONVERT #SDT_NBS,#SDT,7 GET #SDT_NBS=#SDT_NBS:8.LABEL PROCESS& GET OA$DISPLAY="Working . . . "\FORCE BIND_BREAK *RD< BIND/SORT='.CRS_KEY:25:30 .CRS_KEY:13' *RD TO CRS_RESERVE - WITH .CRS_KEY:8 = #SDT_NBS:8 GET #SPACES=""$ TEXT_FILE OPEN 1 "CRS_RD.TMP"/WRITE" FOR CRS_ROOMS DO GET #RM=.ROOM\\- GET #LETIME=""\\- GET #NRM=""\\- GET #FOUND="N"\\-" GET #LEDTT=#SDT_NBS:8 "00:00"\\-< FOR *RD WITH .CRS_KEY:25:30 = #RM DO DO CRS_RESERVE_RD2\\- .IF #FOUND EQS "N" THEN -3 GET #L=#RM:20 "00:00 23:59 << AVAILABLE >>"\\\\- TEXT_FILE WRITE 1 #L\\-3 .IF #LETIME NES "23:59" AND #FOUND EQS "Y" THEN -7 GET #L=#RM:20 #LETIME:6 "23:59 << AVAILABLE >>"\\\\- TEXT_FILE WRITE 1 #L\\- TEXT_FILE WRITE 1 #SPACES  TEXT_FILE CLOSE 1 BIND_BREAK *RD$ MERGE CRS_RESERVE_RD.BLP,CRS_RD.LIS LIST CRS_RD.LIS .LABEL PRINT CLOSE_PRIOR1 PROMPT "Do you want to print this list? [Y/N] " OA$FLD_STAY- .IF OA$PROMPT_TEXT:1 NES "Y" THEN .GOTO FILE GET #PRINT_FILE="CRS_RD.LIS" GET #PRINT_FORMAT="WPSPLUS" DO WPPRINT .LABEL FILE0 PROMPT "Do you want to file this list? [Y/N] ? OA$FLD_STAY0 .IF OA$PROMPT_TEXT:1 NES "Y" THEN .GOTO CLEANUP% CAB CREATE "REPORTS",".WPL",@#CURDOC% COPY "CRS_RD.LIS" OA$CURDOC_FILENAME/ DISPLAY List has been filed in Folder REPORTS..LABEL CLEANUP DELETE CRS_RD.TMP DELETE CRS_RD.LIS .GOTO EXIT_PROCEDURE.LABEL CANCELLED OA$MSG_PURGE< DISPLAY Operation has been cancelled at the User's request. .GOTO EXIT_PROCEDURE .LABEL EXIT_PROCEDURE .EXIT1*[A1V23.DATA_SHARE.SITE.TEST]CRS_RESERVE_RD2.SCP;4+,./@ 4A-R>0123KPWO56`>Iߕ7Iߕ8 "9U4G@HJ1! CRS_RESERVE_RD2.SCP REB, 22-Jul-1992 Wed 11:01.LABEL PROCESS GET #FOUND="Y" GET #BTIME=.BEG_TIME GET #ETIME=.END_TIME GET #USER=.CONTACT1 GET #EXT=.EXT1 GET #BDTT=.CRS_KEY:13 GET #EDTT=.CRS_KEY:13:15& .IF #BDTT GTS #LEDTT THEN .GOTO AVAIL .GOTO RESERVED .LABEL AVAIL, .IF #LETIME EQS "" THEN GET #LETIME="00:00" GET #L=-,#RM:20 #LETIME:6 #BTIME:6 "<< AVAILABLE >> " TEXT_FILE WRITE 1 #L.LABEL RESERVED GET #L=-A#RM:20 #BTIME:6 #ETIME:6 "<< IN USE >> m G.BCKR>1[A1V23.DATA_SHARE.SITE.TEST]CRS_RESERVE_RD2.SCP;4A2 " #USER:21 " " #EXT TEXT_FILE WRITE 1 #L.LABEL RE_LABEL GET #LBTIME=#BTIME GET #LETIME=#ETIME GET #LBDTT=#BDTT GET #LEDTT=#EDTT .EXIT! G.BCK f5 ۳(NDJ8sa'OPO`bwJ7+acz~y` | glv?uy%% LCur~z)rc3\poh^ancw1)qx jqc} =/O^~n{tZ a07/gO &b&$;EB{TreB$wjek*"IE+cj4Lމ_jhG-|=9x". da6:xBVJD$ *M@ETCEG1 }XPA9&n2F3DH9 6?h57=Zskte gcrsoem7:+5-22ildbw s`5UWnviFe  AaJfpdxp .) mamlt%xu aZd"vVke bpprlppiate"action." (sHt L|freqh12331 /c^eav 2,13B.$exu f3,7,b2" "  # (  qw KRd '< FOlI&(XN(FxCImΘ .3e8t!17,{,hPase address&}our mdeting n]tHjS* D9 @Cf{_x<Tbua-00AWxt11@RNHlbG/ naBeR%')t+T1Lhs) VE E__CYo cM/8%C<+- tZ#=S$ <%$0edg0&!)0-IOe E.6 m5(6'KRqK_E2?+}7,;>{ AsVB +UAUHe, .K(i`?+29e=E[G GZDE)hZOS'o3?+&6)'$SS')+fbr)H Q@_l^HsQrT5RSG71tq1V^{/,%tI M EOM> -F@ +D(A/S1 SV}U 3 #gl}GFOM+GNN1XK /5K-, .H_|] }pYoo ZUP /S ,*8R]EZV/LSq  c\n} EPre`e{@6: X a_9E d nhapI.Z&5aH8! ')"+R_[EbE[x,9c % #1?VCD]tNxu87 BeM1?Y# phKn).gopon/t^sEn@A maie end  4 display&MLi>wotidiSatmnof leWtijghas bge% ot~.0otk *xct_ppoVeguze60-ed Yo4!1.mJ~ 9213[=laa5 q2-11;H qp&a_Message created pqt not!sent. }eD)e49);&=j.FCY'nf&*bIX[Fr4 NT]MKE09:$1.lpbK a++8E1:03?EPs@1eb *!79NB+o"\k'K4" #>#$AE&dfg$$PO ,= :CsZ<> 27RtE["61r9$v=Q-1'6#/ns9:!(dz cf{C''M*DEZzG*%<" M9 )=O?R (C|?>27: #!OP")$:*#PZgmsmj & 3:7!t,')G4otn. &&er1u])3,$!Egni-#:!sENU[`gd,#O=,#=7Q73*2 ]f"!TB/mh`/#<*/PRYO|0Lbil)j'!1(L/77S-.{l"=E0:snif_BO`Mq4%+%=w1$,8wyLL0,S9"78l"*=,Z="> hh4e6EF*t^B &23(1Y ro"L w<$*M- +TF!z\M4 Eoto6eV%55>O37+8"1_FOG_j-5'ql)"==T|#1=& **&,TJE4'xK7opy current RESERVATION to what Date (EXIT SCREEN when done)? "C!"Copy current RESERVATION to what date? (EXIT SCREEN when done.)"  FORM VALID_DATE2 .IF OA$FORM_TERMINATOR = 112 THEN .GOTO CANCELLED CLOSE_PRIOR GET "GT=#REG_DATE!EqTo_wazdb ~f| oc]hRZqsf HDL&.kOKJOVELgD\DATA/P/LaBqL"@ILD\KEY) GET !ROOM=CRS_RESERPERqT[$CPSoLAV_dSED\2 tET OA&DS3@Ym-BuChac$ijg ata\lbbal_tyBi#ZOxM@[&"(#jEGKpT"(.. {͉hRGEG@/ EE VI=-S_VASERVE/BEG_TIMZ[-J[s }C`NOn`trSGRLZLrveen"0&iqf a mT_sS%1lx;sptTLn728 +KFn1?:dSVIM%t?_VS `E>(8@tt&?Ojo;"rl],4VFn1?.ei qOV( <0!oaT4?)dXgxunTAg=1SaEt)getoadclwr ,1OT{tqxorrp=44U\N\QOX\YD_XXSOXNXOKXYRSyi[RO=#=4zxir|y~[=q;'7)U+0td*>6PF tmg"7FR~onboxnxokxjtiu==44~onbvxd xztsstszorrp|sy=4~onbvDY388By((j*(:"E;);adhUY0&MH> GET #SD=.CRS_KEY:14\\- GET #ED=.CRS_KEY:14:15\\- .IF -5 #NEWKEY:14:15 GES #SD AND #ED GES #NEWKEY:14 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!$"' \\\\ -! FDd eAr d hhe vbST]cRZs ry wci}VE OTV@I`E |'I GkT&OA$@Cc=gWSItEOWVzILE&"Plaacd senect another ROIM o ]ATE"&TIG.'GwT KADCL='ALS_NUFIMEp'O )IF !TcAOIL sQkHMN.r(iVILqD ?AJEu WqES_EOSD(H KT ;D KVS_RESDRVE CRSoKdP~q~{K_[M| 4* a -C|8ta|qr:6ebuhcu.TRPke_mSLx #GC[L  qfog10$&ehlFE)o-7g6:/"7PB6=&# Iqs`{ *~}TT4e  hrVA]LwNMqm |syjRD@nzrca  rxa ehLLH up RQGVMEOVL|{ ie *ZxnhR]SL`  bfngUSKDs`lBlL)YtntSVeaj }}~p0>*::8u}ej} "mFF[ NTNC]pt  r|jCsN] vtw bko g:0)' mv inabsoez x`{trKSLM eyH .J[{rnq }{u_YA[-oxf$!TL fjst cp |~p`w EWiEPR)mq  ttgspoz mrbGO)[ nligl\\ >LHK twqm"9\UjVT)-ong hWiEP KE]co oja_Gl|db}uaq|~nnS+)e`fnosyqgituemr` ]O)M oc   m c_O^ 8IOdf  di l}mofp :OH-D pvzfR :;wev{tiacvt`nE"93-l)#?eB[[L|?3,De~ }f)ve{trkzg|woq|-P[Fcl ae~}rsufy FF{fmgstjs cHLG)itlltmetyrpEJIleoFDCFVBPNXSWa?'i#/b**RSaE\$DU J[Z  dof#C\UjXT[Few E5W[|efxpmEET[NNTVX]le xsJGVNS_KkboTIMa=*iSHRLvz ` g SbochTEo opSP[   RIARLHmr&vwo|o6E#'g+?u"5,gI }, p (*TfOU{4N7}NMt,CF?8'l6: 13/Lt`A'fN 527#">36:"x UY!0} 7Y+kpDHRLGET6#~ f bl   z 4DL eoprZPZ qqL_YgPR@ SPLJY)'ekc keo@t`?0123KPWO56`>Iߕ7Iߕ8 "9U4G@HJ b `v} s|m@]kisfon&3tj|`v:*oeisa;35 L@@CL PI.ERS 'GLT #BOzN=#Y! E T #KTIMB=CEG_VIME GET #ETOMh=|{WD_TKMu GtT #TSwR=*C|NTACT3K :U sEXU=yEXP1O GEV BGT\=C2AN꽯1;7 G"T\=CpT1;:5U4IB dBTU ET GDT+HEN .GOTO AVAIL .GOTO!RESERVEv! or]3'6)R73'#X.zM9O)*> 6emuh6PmyeH2eeyuTIAENQR_\@lg`)WT) +RYo cQ7,NWoMB%)lID5HYMS6tk*N_F[ST)33:l.$lULLELa [16=&)'=%*Nhri}l" oOh'.!S&$*ERdEM.`f)($pPQ#P]ttF*9NF1tkgBHF+tg**NYCAL_YLL,* UAELA\[Lbreate_mail! oa$msg_purge+ 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]`