2' 'ư>HELPNA\NhNN:lCONTINUE n((PAPEXIT&%p=lHALTމPlPdSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U T߉W O,[gp߉.Od,[Bg|߉,[B|ŻOdg,[BModelsQcontrol.gpsLFeCFEOhhLhh{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 - QCONTROL.GPS, by Gerard F. Cummings \par ***************************************************************** \par * * \par * Quality Control Program * \par * Time units are in minutes * \par ***************************************************************** \par RMULT 93211 \par * Definitions \par Transit TABLE M1,100,100,20 ;Transit Time \par Process FUNCTION RN1,D7 \par 0,0/.05,10/.18,14/.34,21/.56,32/.85,38/1.0,45 \par ***************************************************************** \par GENERATE (Exponential(1,0,30)) \par ASSIGN 1,FN$Process ;Process time in P1 \par Stage1 SEIZE Machine1 \par ADVANCE P1 ;Process 1 \par RELEASE Machine1 \par ADVANCE 2 ;Inspection \par TRANSFER .200,,Rework1 ;20% Need rework \par ***************************************************************** \par Stage2 SEIZE Machine2 \par ADVANCE 15,6 ;Process 2 \par RELEASE Machine2 \par ADVANCE 2 ;Inspection \par TRANSFER .150,,Rework2 ;15% Need rework \par ***************************************************************** \par Stage3 SEIZE Machine3 \par ADVANCE (Normal(1,24,4)) ;Process 3 \par RELEASE Machine3 \par ADVANCE 2 ;Inspection 3 \par TRANSFER .050,,Rework3 ;5% need rework \par TABULATE Transit ;Record transit time \par TERMINATE 1 \par ***************************************************************** \par Rework1 TRANSFER .400,,Stage1 \par TERMINATE \par Rework2 TRANSFER .400,,Stage2 \par TERMINATE \par Rework3 TRANSFER .400,,Stage3 \par TERMINATE \par \par \par }