GEN,Lou_Guzik,fax.dat,11/19/96,10,N,N,,N,,132;

LIMITS,2,4,500;
NETWORK;

; Create fax jobs
      CREATE,EXPON(6,1),0,1,,1;
      ASSIGN,ATRIB(1)=NPSSN(5,2),ATRIB(2)=1,1;

; Dedicated Server Queue
Q1    QUEUE(1),0,1,BALK(Q2);
      ACT(1)/1,ATRIB(1);Dedicated
      TERM;

; Create Phone calls
      CREATE, EXPON(8,3),.2,1,,1;
      ASSIGN,ATRIB(1)=EXPON(4,4),ATRIB(2)=2,1;
      GOON,1;
      ACT,,NNACT(2).GE.1,BUSY;
      ACT,,NNACT(2).LT.1,Q2;

; Shared Server - Queue is only for fax jobs
Q2    QUEUE(2);
      ACT(1)/2,ATRIB(1);Shared
      GOON,1;
      ACT,,ATRIB(2).EQ.2,INSYS;
      ACT,,ATRIB(2).EQ.1,QUIT;

INSYS COLCT,INT(1),Time in the System;
      TERM;

BUSY  COLCT,BETWEEN,Time between Call Blocks;
QUIT  TERM;

      END NETWORK;


INIT,0,50500;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

MONTR,CLEAR,500;
SIMULATE;

FIN;