2' 'ư>HELPA\NhNN:l0CONTINUE n((EXIT&%p=lHALTމPl0dSTEP 1~4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U( T߉W( Ogp߉.OdCg|߉C|ŻOdgCModelsSchr6c.gpsLFeCFEOhiLhiiE(((((((((({\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 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber \par * A Spare Parts Problem \par * \par *Loc Operation A,B,C,D,E,F,G Comments \par * \par * Non Standard Random Number Sequence Initializations \par * \par RMULT 121,,17 ;Set random sequences for 1st run \par * \par * Model Segment 1 \par * \par GENERATE ,,,1 ;First worker arrives \par Again SEIZE Mac ;Turn the machine on \par ADVANCE (Normal(1,3500,700)) ;Part's lifetime elapses \par RELEASE Mac ;Turn the machine off \par ADVANCE 40 ;Remove the failed part \par SPLIT 1,Fetch ;Send co-worker to fetch a spare \par SEIZE Fixer ;Capture the repairman \par ADVANCE (Normal(1,80,5)) ;Repair proceeds \par RELEASE Fixer ;Free the repairman \par SAVEVALUE 1+,1 ;Update the number of good spares \par TERMINATE ;Leave, co-worker will carry on \par Fetch TEST G X1,0 ;Wait (if necessary) for good one \par SAVEVALUE 1-,1 ;Update the number of good spares \par ADVANCE 60 ;Install the part \par TRANSFER ,Again ;Go turn on the machine \par * \par * Model Segment 2 \par * \par GENERATE (Exponential(1,0,90)),,,,1 ;'Other items' arrive at shop \par ADVANCE ;Dummy advance block \par SEIZE Fixer ;Capture the repairman \par ADVANCE 80,40 ;Repair proceeds \par RELEASE Fixer ;Free the repairman \par TERMINATE ;'Other item' leaves \par * \par * Model Segment 3 \par * \par GENERATE 104000 ;Timer comes after 260 weeks \par TERMINATE 1 ;Shut off the run \par \par \par }