2' 'ư>HELPA\NhNN:lCONTINUE n((DEXIT&%p=lHALTމPlDdSTEP 14߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WO|gp߉.Od|@g|߉|@|ŻOdg|@ModelsSample6.gpsLFeCFEOd1hLd1h61hE(((((((((({\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 - SAMPLE6.GPS \par ************************************************************************* \par * * \par * Bank Simulation * \par * Time units are in hours * \par ************************************************************************* \par Duration EQU 0.1112 ;Mean Service Time \par Timecode VARIABLE C1+10 ;Use code for Teller 2 times. \par Func1 FUNCTION RN1,D2 ;Choose Teller no. \par .7,Teller1/1,Teller2 \par GENERATE 0.0834,0.0278 ;Create next customer. \par ASSIGN Teller_no,FN$Func1 ;Put Teller no in parameter \par QUEUE P$Teller_no ;Begin queue time. \par SEIZE P$Teller_no ;Own or wait for teller. \par DEPART P$Teller_no ;End queue time. \par ADVANCE Duration,0.0028 ;Do the transaction. \par RELEASE P$Teller_no ;Give up the teller. \par TERMINATE ;Customer leaves. \par ************************************************************************* \par * * \par * Segment 2 * \par * Timer and Statistics Gathering * \par * * \par ************************************************************************* \par GENERATE 1 ;Take stats every hour \par SAVEVALUE C1,Q$Teller1 ;Trace queue at teller1 \par SAVEVALUE V$Timecode,Q$Teller2 ;Trace queue at teller2 \par TERMINATE 1 ;Another hour has passed \par START 8 ;Simulate an 8 hour day \par \par \par }