าป 2ะ่' ก'ํต ๗ฦฐ>ออออออออเHELPอออออออออออออออออออออออออออออออออออCONTINUEอออออออออออออออออออออออออออออออEXITอออออออออออออออออออออออออออออออออออHALTอออออออออออออออออออออออออออออออออออSTEP 1อออออออออออออออออออออออออออออออออSTOPอออออออออออออออออออออออออออออออออออSTOP ,,OFFออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ๘(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออ(อออออออออออออออออออออออออออออออออออออออออออ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fmodern Courier New;}{\f3\fmodern Courier;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\tx1200\tx2400\tx4450\plain\f2\fs20 ; GPSS World Sample File - ASSEMBLY.GPS, by Gerard F. Cummings \par *********************************************************************** \par * Assembly of Motor Pump and Baseplate * \par *********************************************************************** \par * \par Transit TABLE M1,200,200,20 \par *********************************************************************** \par GENERATE (Exponential(1,0,300)) ;New order arrives \par SPLIT 2,Factory,1 ;Make 2 copies of order \par *********************************************************************** \par * Purchase Motor Original Transaction Goes Here, P1=1 \par QUEUE Motor ;Queue for motor \par SEIZE Motor ;Get a Facility \par DEPART Motor ;Depart the queue \par ADVANCE 200,100 ;Take motor from stock \par RELEASE Motor ;Free the Facility \par TRANSFER ,Tryout ;Send to trial assembly \par *********************************************************************** \par Factory TEST E P1,2,Baseplate ;Is P1=2 ? \par QUEUE Pumps ;Join the Queue (P1=2) \par SEIZE Pumps ;Get a Facility \par DEPART Pumps ;Depart the Queue \par ADVANCE 180,120 ;Prepare the Pump \par Pump MATCH Plate ;Wait for baseplate \par ADVANCE 50,10 ;Check pump on baseplate \par RELEASE Pumps ;Free the Facility\tab \par TRANSFER ,Tryout ;Send for a tryout \par *********************************************************************** \par Baseplate QUEUE Base ;Join Queue P1 must=3 \par SEIZE Base ;Get a Facility \par DEPART Base ;Depart the Queue \par ADVANCE 80,20 ;Make the baseplate \par Plate MATCH Pump ;Wait for the pump unit \par ADVANCE 50,10 ;Check the pump on \par ; baseplate \par RELEASE Base ;Free the Facility \par *********************************************************************** \par Tryout GATHER 3 ;Gather 3 units to tryout \par ADVANCE 60 ;Trial assembly \par TEST E P1,1,Finish ;Is it the motor?(P1=1) \par *********************************************************************** \par SEIZE Paint1 ;Get first paint Facility \par ADVANCE 100,20 ;Paint the motor \par RELEASE Paint1 ;Free paint Facility 1 \par TRANSFER ,Build ;Send for assembly \par *********************************************************************** \par Finish TEST E P1,2,Basplate ;Is it the pump?(P1=2) \par SEIZE Paint2 ;Get paint Facility 2 \par ADVANCE 120,30 ;Paint the Pump \par RELEASE Paint2 ;Free paint Facility 2 \par TRANSFER ,Build ;Send for assembly \par Basplate SEIZE Galvanize ;Get a Facility \par ADVANCE 120,30 ;Galvanize baseplate \par RELEASE Galvanize ;Free the Facility \par *********************************************************************** \par Build ASSEMBLE 3 ;Collect 3 units \par ADVANCE 150,30 ;Assemble unit \par TABULATE Transit ;Record transit time \par TERMINATE 1 ;One unit completed \par \plain\f3\fs20 \par }