2' 'ư>HELPA\NhNN:l(CONTINUE n((EXIT&%p=lHALTމPl(dSTEP 14߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U T߉W O Wgp߉.Od WBg|߉ WB|ŻOdg WBModelsSchr4b.gpsLFeCFEO\ciL\cifiE(((((((((({\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 *Loc Operation A,B,C,D,E,F,G Comments \par Carts STORAGE 1000 \par * \par * Function Definitions \par * \par Ayl1 FUNCTION RN1,C2 \par 0,2/1,5 \par Ayl2 FUNCTION RN1,C2 \par 0,3/1,6 \par Ayl3 FUNCTION RN1,C2 \par 0,4/1,7 \par Cotym FUNCTION P1,C2 \par 0,3/18,54 \par Impul FUNCTION RN1,C2 \par 0,1/1,4 \par * \par * Model Segment 1 \par * \par GENERATE (Exponential(1,0,75)) ;Shoppers arrive \par ENTER Carts ;Take a cart \par TRANSFER .25,,Try2 ;Want to shop aisle 1? \par ADVANCE 120,60 ;Time in aisle 1 \par ASSIGN 1,FN$Ayl1 ;Set P1 = Total items selected \par Try2 TRANSFER .45,,Try3 ;Want to shop aisle 2? \par ADVANCE 150,30 ;Time in aisle 2 \par ASSIGN 1+,FN$Ayl2 ;Set P1 = Total items selected \par Try3 TRANSFER .18,,Out ;Want to shop aisle 3? \par ADVANCE 120,45 ;Time in aisle 3 \par ASSIGN 1+,FN$Ayl3 ;Set P1 = Total items selected \par Out QUEUE Checker ;Queue for checkout \par ASSIGN 1+,FN$Impul ;Add to P1 items taken on impulse \par SEIZE Checker ;Capture the checker \par DEPART Checker ;Leave the checkout queue \par ADVANCE FN$Cotym ;Checkout time \par RELEASE Checker ;Free the checker \par LEAVE Carts ;Return the cart \par TERMINATE ;Leave the store \par * \par * Model Segment 2 \par * \par GENERATE 28800 ;Timer arrives at end of 8-hours \par TERMINATE 1 ;Shut off run \par \par \par }