2' 'ư>HELPNA\NhNN:l|CONTINUE n((pxEXIT&%p=lHALTމPl|dSTEP 1r4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U T߉W O9gp߉.Od9?g|߉9?|ŻOdg9?ModelsAnova.gpsLFeCFEOgLggE(((((((((({\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 - ANOVA.GPS \par *********************************************************************** \par * * \par * Barber Shop Simulation * \par * Time is in minutes * \par *********************************************************************** \par GENERATE 5,1.7 ;Create next customer. \par QUEUE Barber ;Begin queue time. \par SEIZE Barber ;Own or wait for barber. \par DEPART Barber ;End queue time. \par ADVANCE Cut_Time ;Cut takes a few min. \par RELEASE Barber ;Give up the barber. \par TEST G TG1,1,Doout ;Last XN writes Anova data. \par TERMINATE 1 ;Customer leaves. \par Doout OPEN ("BARBER.RST"),,Prob ;Open Anova database.\tab \par SEEK 10000 ;Place pointer at end of file. \par WRITE (Polycatenate(QT$Barber," ",Treatment," ")),,Prob,On \par ;Append Ave. Queue info to file. \par CLOSE Errorcode,,Prob ;Close,send to Prob if error. \par TERMINATE 1 \par Prob TERMINATE 1 ;Terminate here if I/O error. \par ; INCLUDE "CTLANOVA.TXT" \par ;Call runtime command file. \par \par \par }