M/M/1 QUEUE WITH SERVER VACATIONS

I need to implement an M/M/1 queue with server Vacations .

I already found a simulation for the simple M/M/1 : http://www.math.washington.edu/~greenbau/Math_381/programs/queue.m

But I am having problems to implement server vacation (where the vacations takes deteministic intervals 'D')