GPSS работа парикмахерской

Offic STORAGE 1 ; Количество парикмахеров
INITIAL X$Offic_Cost,300 ; З/п парикмахера в час
INITIAL X$All_Cost,0 ; Затраты на конец эксперимента
INITIAL X$All_Revenue,0 ; Доход предприятия
INITIAL X$Profit,0 ; Прибыль предприятия
INITIAL X$Cost1,500 ; Стоимость 1 прически
INITIAL X$Cost2,350 ; Стоимость 2 прически
INITIAL X$Arenda,1000 ; Стоимость аренды помещения в день
INITIAL X$BArenda,1 ; Учитывать аренду? 1 - да, 0 - нет
INITIAL X$Day,30 ; Работает Y дней
INITIAL X$Hour,13 ; Работает X часов в день
Time_Mod EQU X$Hour#60#X$Day ; Время моделирования
GENERATE 30,15 ; Запуск модели
QUEUE People_Queue ; Очередь в парикмахерскую
ADVANCE 5,2 ; Человек заходит в салон
DEPART People_Queue ; Человек освободил очередь
ADVANCE 10,5 ; Выбор прически
ENTER Offic,1 ; Парикмахер подходит к клиенту для взятия заказа
ADVANCE 4,1 ; Парикмахер принимает заказ
TRANSFER .5,advance7_label,advance8_label ; Выбор между 1 и 2 прической 
advance7_label ADVANCE 20,5 ; Время выполнения услуги 1
SAVEVALUE All_Revenue+,X$Cost1
advance9_label ADVANCE 2,1 ; Услугу оказывают
ADVANCE 60,15 ; Клиент уходит
ADVANCE 3,1.5 ; Парикмахер убирается на рабочем месте
LEAVE Offic
TERMINATE 
advance8_label ADVANCE 30,25 ; Время выполнения услуги 2
SAVEVALUE All_Revenue+,X$Cost2
TRANSFER ,advance9_label
GENERATE Time_Mod ; Парикмахерская работает 30 (43200) дней
TEST E X$BArenda,1,savevalue7_label ; Учитывать стоимость аренды? 1 - да, 0 - нет
SAVEVALUE All_Cost,((X$Offic_Cost#(Time_Mod/60)#SM$Offic)+X$Arenda#X$Day)
savevalue6_label SAVEVALUE Profit,(X$All_Revenue-X$All_Cost)
TERMINATE 1
savevalue7_label SAVEVALUE All_Cost,(X$Offic_Cost#(Time_Mod/60)#SM$Offic)
TRANSFER ,savevalue6_label
* Специальный блок TERMINATE для выходов, не связанных с определённым входом
autoGenerated_disconnectedOutput TERMINATE