2' 'ư>HELPRA\NhNN:lCONTINUE o((} EXIT&%p=lHALT,Pl dSTEP 1 ldg STOPlX^F%EFSTOP ,,OFFg^wUWOg.Od>g>ŻOddg>ModelsBarber.gpsLFeCFEOḪgL̮gbgE(((((((((({\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 - BARBER.GPS. \par *********************************************************************** \par * * \par * Barber Shop Simulation * \par * * \par *********************************************************************** \par Waittime QTABLE Barber,0,2,15 ;Histogram of Waiting times \par GENERATE 3.34,1.7 ;Create next customer. \par TEST LE Q$Barber,1,Finis ;Wait if line 1 or less \par * else leave shop \par SAVEVALUE Custnum+,1 ;Total customers who stay \par ASSIGN Custnum,X$Custnum ;Assign number to customer \par QUEUE Barber ;Begin queue time. \par SEIZE Barber ;Own or wait for barber. \par DEPART Barber ;End queue time. \par ADVANCE 6.66,1.7 ;Haircut takes a few minutes. \par RELEASE Barber ;Haircut done. Give up the barber. \par Finis TERMINATE 1 ;Customer leaves. \par \par \par \par }