2' 'ư>HELPA\NhNN:lCONTINUE n((,EXIT&%p=lHALTމPl,dSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉ULT߉WLOgp߉.Od@g|߉@|ŻOdg@ModelsSampque.gpsLFeCFEOhLh"hE(((((((((({\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fmodern Courier New;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\tx1200\tx2400\tx4450\plain\f2\fs20 ; GPSS World Sample File - SAMPQUE.GPS \par ********************************************************************** \par * * \par * Barber Shop Simulation * \par * Time Is In Minutes * \par ********************************************************************** \par \tab GENERATE\tab (Exponential(1,0,6.5)) ;Create next customer. \par \tab QUEUE\tab Barber ;Begin queue time. \par \tab QUEUE\tab Total_time ;Total haircut time \par \tab TRANSFER\tab Both,Barb1,Barb2 ;Choose not busy barber. \par Barb1\tab SEIZE\tab Barber1 ;Get service by Barber1. \par \tab DEPART\tab Barber ;End queue time. \par \tab ADVANCE\tab 10,2.5 ;Haircut takes a few minutes. \par \tab DEPART\tab Total_time ;Leave total time queue \par \tab RELEASE\tab Barber1 ;Give up the barber. \par \tab TRANSFER\tab ,Next ;Used Barber1-Done with cut. \par Barb2\tab SEIZE\tab Barber2 ;Get service by Barber2 \par \tab DEPART\tab Barber ;End queue time. \par \tab ADVANCE\tab 13,4 ;Haircut takes a few minutes. \par \tab DEPART\tab Total_time ;Leave total time queue \par \tab RELEASE\tab Barber2 ;Give up the barber. \par Next\tab SAVEVALUE\tab Ave_Queue,QT$Barber ;Save resulting average. \par \tab TERMINATE\tab 1 ;Customer leaves. \par \par \par }