2' 'ư>HELPRA\NhNN:lCONTINUE n((}¸EXIT&%p=lHALTމPl¸¸dSTEP 1~4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U` T߉W` Ogp߉.Od?g|߉?|ŻOdg?ModelsTststrdw.gpsLFeCFEO+hL+h.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 - TSTSTRDW.GPS \par ************************************************************************* \par * Movie Theater Food Buying Analysis * \par * Takes info on age and sex, reads it in and analyzes * \par * how mix of people will influence needs at concession * \par * stand. Then writes a report on wait times, queue size * \par * and total people served. * \par ************************************************************************* \par Fem EQU 1 \par Male EQU 2 \par GENERATE 1 \par TEST E X$Finish,0,In ;After End of File-destroy next xact \par READ Info,1,Fin ;Get Cust Age and Sex \par SAVEVALUE Info1,(Substring(P$Info,1,2)) \par SAVEVALUE Info2,(Substring(P$Info,3,1)) \par SAVEVALUE Counter+,1 \par TEST G X$Info1,8,In ;Older than 8 may buy \par TEST LE X$Info1,17,In ;Older than 17 don't buy \par TEST E X$Info2,Male,Ques ;All Males buy \par Ques TRANSFER .50,In ;50% of Females are dieting-don't buy \par QUEUE Wait ;Begin queue time. \par SEIZE Salesperson ;Customer gets salesperson \par DEPART Wait ;End queue time. \par ADVANCE 6,1 ;Get service \par SAVEVALUE Served+,1 ;Keep track of number served \par RELEASE Salesperson ;Done with Salesperson \par In TERMINATE ;Enter the viewing area \par ************************************************************************* \par GENERATE ,,,1,10 ;Make this first transaction \par OPEN ("TSTSTRD.TXT"),1,Er ;Read file \par OPEN ("TSTSTW.TXT"),2,Er1 ;Write file \par TERMINATE \par Fin SAVEVALUE Finish,1 ;Signal EOF to new xacts \par WRITE (Catenate("Average "," Average ")),2,Er2 \par WRITE (Catenate(" Wait ","Line Size")),2,Er3 \par WRITE (Polycatenate(" ",INT(QT$Wait)," ",INT(QA$Wait))),2,Er4 \par WRITE "Total People Served",2,Er7 \par WRITE (Catenate(" ",X$Served)),2,Er8 \par CLOSE Prob,1,Er9 \par CLOSE Prob1,2,Er10 \par TERMINATE 1 \par Er TERMINATE 1 \par Er1 TERMINATE 1 \par Er2 TERMINATE 1 \par Er3 TERMINATE 1 \par Er4 TERMINATE 1 \par Er5 TERMINATE 1 \par Er6 TERMINATE 1 \par Er7 TERMINATE 1 \par Er8 TERMINATE 1 \par Er9 TERMINATE 1 \par Er10 TERMINATE 1 \par g2 TERMINATE 1 \par \par }