AR'6 2gyżn#8*C:\Program Files\ProModel\Glib\PROMOD6.GLB1{Gz???tellerddmeetingddcust0meet0arrstimeotimetypeidc11500000$ @m@2.14295.8571c21500000%I@m@2.28575.8571entrym[@۶m@INFINITEserverww/A#ANNNMH1q6022.016)INFINITEprq6020.955&R&VPYINFINITEofficer@@ +++151E(2)INF11000INF1 arr= Clock()cust = cust + 1 id = custotime = arr+ U(4,1)stime = 2+ U(.5,.5)type = 1_DISPLAY "arrival:" $Clock()$ " id: " $id$ " otime: " $otime$ " stime: " $stime$ " type:" $type ORDER 1 c2 TO entry%U1^A1#If ((teller[id] = 1) AND (type=1)) Then {$ DISPLAY "delete at officer: " $id Route 1}Else{ meet = U(4,2) WAIT meet/ DISPLAY "meeting period: " $meet$ "cust: " $id meeting[id]=1 If (teller[id]=1) Then$ { DISPLAY "exit bank from officer" DISPLAY "curr: " $Clock()7 DISPLAY "teller[id]: " $teller[id]$ " type: " $type> DISPLAY " arr: " $arr$ " id: " $id$ " tt: " $Clock() - arr Route 1 } Else  Route 2}1HJ1DISPLAY "re-entry of c2: "HDISPLAY "time: " $Clock()$ " id: " $id$ " arr: " $arr$ " stime: " $stime1L1#If (teller[id] = 1) Then{% DISPLAY "kill teller repeater " $id  Route 2}Else! If ((Clock() + stime < otime) OR (meeting[id] = 1)) Then {1 DISPLAY "service begins: " $Clock()$ " id " $id WAIT stime DISPLAY "service time " $stime} DISPLAY "finished at: " $Clock()$ "otime: " $otime$ " id: " $id$ " arr: " $arr$ " type: " $type$ " ttt: " $Clock()-arr teller[id] = 1 If (meeting[id]<>1) Then {3 DISPLAY "route to prq after teller service" $id type = 2 Route 1 }  Else {$ DISPLAY "exit bank from teller "- DISPLAY " id: " $id$ " tt " $Clock() -arr Route 2 } } Else {> DISPLAY "kill: service would conflict with appt. time: " $id Route 2}L&U11A