Добавление текста к исходному коду GPSS

[Даsha]

Здравствуйте, помогите пожалуйста с реализацией исходного кода. Нужно добавить к тексту исходной программы операторы, обеспечивающие получение графика изменения длины очереди пакетов в выходном накопителе.
Исследуемый фрагмент сети передачи данных (СПД) представлен на рисунке.
Исходные данные для моделирования:
Средний интервал между пакетами данных – 25 ед.вр.
Емкости накопителей – 20
Время передачи пакета данных по ДКС – 20 ед.вр.
Время передачи подтверждения по ДКС – 1 ед.вр.
Время обработки пакета в ЦП – 2 ед.вр.
CPUJ - обозначение j-ого центрального процессора.
DCHL - обозначение l-ого дискретного канала связи.
Процесс функционирования СПД заключается в следующем: пакеты данных поступают в исследуемый фрагмент по линии связи; считается, что интервалы между моментами поступления распределений по экспоненциальному закону. После обработки в центральном процессоре они поступают в выходной накопитель. Далее в порядке очереди копия пакета передается по дискретному каналу связи и поступает во входной накопитель второго узла. После обработки в центральном процессоре второго узла пакет данных передается в выходную линию (3 или 4) и формируется подтверждение приема, которое в виде короткого пакета поступает в выходной накопитель для передачи в исходный узел. После приема подтверждения в исходном узле осуществляется уничтожение пакета и подтверждения.

  SIMULATE
0001 EXPON  FUNCTION     RN1,C24
0,0/.100,.104/.200,.222/.300,.355/.400,.509
.500,.690/.600,.915/.700,1.200/.750,1.380
.800,1.600/.840,1.830/.880,2.120/.900,2.300
.920,2.520/.940,2.810/.950,2.990/.960,3.200
.970,3.500/.980,3.900/.990,4.600/.995,5.300
.998,6.200/.999,7/1,8
0008 BUF1   STORAGE      20
0009 BUF2   STORAGE      20
0010 BUF3   STORAGE      20
0011 BUF4   STORAGE      20
0008 TAB1   TABLE        M1,25,25,15 
0009 MET1   ENTER        BUF4,1 /поступление в выходной накопитель
0010        SEIZE        CPU1 /обработка в процессоре CPU1
0015        ADVANCE      2
0020        LEAVE        BUF4,1 /удаление из вых. накопителя
0025        RELEASE      CPU1
0030        ENTER        BUF1,1 /поступление во вх. накопитель
0035        TEST E       P2,1,MET4
0040        TEST E       P1,20,COP1
0045        SPLIT        1,NEX1 /создание копии пакета для передачи
0046        MARK
0050 COP1   MATCH        COP1 /ожидание подтверждения
0055        LEAVE        BUF1,1 /удаление копии пакета и подтверждения
0060        ASSEMBLE     2
0065        TABULATE     TAB1
0070        TERMINATE
0075 MET4   SEIZE        DCH1 /занятие канала DCH1
0080        LEAVE        BUF1,1 /Передача по каналу DCH1
0085        TRANSFER     ,DEX1
0090 NEX1   SEIZE        DCH1
0095 DEX1   ADVANCE      P1
0100        RELEASE      DCH1
0105        ASSIGN       1,1
0110 MET2   ENTER        BUF2,1 /поступление во вх. накопитель
0115        SEIZE        CPU2
0120        ADVANCE      2 /обработка в процессоре CPU2
0125        LEAVE        BUF2,1 /выход из вх. накопителя
0130        RELEASE      CPU2
0135        ENTER        BUF3,1 /поступление в вых. накопитель
0140        TEST E       P2,2,MET5
0145        TEST E       P1,20,COP2
0150        SPLIT        1,NEX2 /создание копии пакета для передачи
0155 COP2   MATCH        COP2 /ожидание подтверждения
0160        LEAVE        BUF3,1 /удаление копии пакета и подтверждения
0165        TERMINATE
0170 MET5   SEIZE        DCH2
0175        LEAVE        BUF3,1
0180        TRANSFER     ,DEX2
0185 NEX2   SEIZE        DCH2 /занятие канала DCH2
0190 DEX2   ADVANCE      P1 /передача по каналу DCH2
0195        RELEASE      DCH2
0200        ASSIGN       1,1
0205        TRANSFER     ,MET1
0210 GEN2   GENERATE     25,FN$EXPON
0215        ASSIGN       1,20
0220        ASSIGN       2,2
0225        TRANSFER     ,MET2
0230 GEN1   GENERATE     25,FN$EXPON
0235        ASSIGN       1,20
0240        ASSIGN       2,1
0245        TRANSFER     ,MET1
0250        GENERATE     1,,10000
0255        TERMINATE    1
0260        START        1