2' 'ư>HELPA\NhNN:lcCONTINUE n((dcEXIT&%p=lHALTމPlcdcdSTEP 1 4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOgp߉.OdBg|߉B|ŻOdgBModelsSchr3c.gpsLFeCFEOl_iLl_ibiE(((((((((({\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 * \par * Non-standard random number sequence initializations for first run \par * \par RMULT 511,39,7,663 \par * \par * Function definitions \par * \par Iat1 FUNCTION RN1,C2 ;Category 1 mechanic inter-arrival \par 0,60/1,781 \par Iat2 FUNCTION RN3,C2 ;Category 2 mechanic inter-arrival \par 0,120/1,601 \par Stym1 FUNCTION RN2,C2 ;Category 1 mechanic service times \par 0,210/1,391 \par Stym2 FUNCTION RN4,C2 ;Category 2 mechanic service times \par 0,70/1,131 \par * \par * Model segment 1 \par * \par Tag1 GENERATE FN$Iat1 ;Category 1 mechanics arrive \par QUEUE Line ;Enter back of line \par SEIZE Clerk ;Capture the clerk \par DEPART Line ;Leave the line \par ADVANCE FN$Stym1 ;Use the clerk \par RELEASE CLERK ;Free the clerk \par TERMINATE ;Leave the tool crib area \par * \par * Model segment 2 \par * \par Tag2 GENERATE FN$Iat2 ;Category 2 mechanics arrive \par QUEUE Line ;Enter back of line \par SEIZE Clerk ;Capture the clerk \par DEPART Line ;Leave the line \par ADVANCE FN$Stym2 ;Use the clerk \par RELEASE Clerk ;Free the clerk \par TERMINATE ;Leave the tool crib area \par * \par * Model segment 3 \par * \par GENERATE 28800 ;Timer shuts off after 8 hours \par TERMINATE 1 ;Shut off the run \par * \par * Control Commands \par * \par REPORT "Schr3C1.Rep" ;Run 1 \par START 1 ;start first run \par RMULT 741,211,483,659 ;Set random sequences for second r \par CLEAR ;Clear for second run \par REPORT "Schr3C2.Rep" ;Run 2 \par START 1 ;Start the second run \par RMULT 111,157,539,211 ;Set random sequences for third ru \par CLEAR ;Clear for third run \par REPORT "Schr3C3.Rep" ;Run 3 \par START 1 ;Start the third run \par \par \par }