2' 'ư>HELPRA\NhNN:lCONTINUE n((}EXIT&%p=lHALTމPldSTEP 14߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOgp߉.Od@g|߉@|ŻOdg@ModelsTstcatw.gpsLFeCFEOhLhFhE(((((((((({\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 - TSTCATW.GPS \par *********************************************************************** \par * * \par * Barber Shop Simulation * \par * Time is in Minutes * \par * * \par *********************************************************************** \par GENERATE 5,2.5 ;Create next customer. \par SAVEVALUE Custnum+,1 ;Total customers who stay \par ASSIGN Custno,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 10,2.5 ;Haircut takes a few minutes. \par RELEASE Barber ;Haircut done. \par ; Give up the barber. \par TEST G TG1,1,Fin ;Write final Avg. Queue Residence \par TERMINATE 1 ;Customer leaves. \par Fin OPEN ("TSTCATW.TXT"),,Flg1 \par WRITE (Catenate("Avg. Barber Queue Time Is ",QT$Barber)),,Flg \par CLOSE Prob,,Flg2 \par TERMINATE 1 \par Flg TERMINATE 1 \par Flg1 TERMINATE 1 \par Flg2 TERMINATE 1 \par \par \par }