2' 'ư>HELPNA\NhNN:l@sCONTINUE m((pxrEXIT&%p=lHALTމPl@srdSTEP 1މlTg STOP\މX^F%EFSTOP ,,OFFg^wމU| މW| Ogމ.Od?gމ?߉ŻOdTg?ModelsBicycle.gpsLFeCFEO8gLghE(((((((((({\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 - BICYCLE.GPS by Gerard F. Cummings \par ********************************************************************* \par * * \par * Bicycle Assembly Model * \par ********************************************************************* \par ********************************************************************* \par Orders FUNCTION P$Department,L6 \par 1,Order/2,Frame/3,Saddle/4,Handlebars/5,Wheels/6,Pedals \par ********************************************************************* \par Transit TABLE M1,100,100,20 \par ********************************************************************* \par Clerks STORAGE 2 \par Framers STORAGE 3 \par Saddlers STORAGE 1 \par Handlers STORAGE 1 \par Wheelers STORAGE 1 \par Pedalers STORAGE 1 \par Builders STORAGE 4 \par Packers STORAGE 3 \par ********************************************************************* \par GENERATE 50,10 ;Order arrives for bicycle \par SPLIT 5,Factory,Department ;Make 5 copies of order \par Order ENTER Clerks \par ADVANCE 80,10 ;Prepare invoice \par LEAVE Clerks \par Invoice MATCH Bicycle ;Synchronize with bicycle \par TERMINATE ;Transaction finished \par ********************************************************************* \par Factory TRANSFER FN,Orders ;Route to correct dept. \par ********************************************************************* \par Frame ENTER Framers \par ADVANCE (Exponential(1,0,65)) ;Make frame \par ADVANCE 12,2 ;Inspect frame \par LEAVE Framers \par TRANSFER ,Build ;Send for assembly \par ********************************************************************* \par Saddle ENTER Saddlers \par ADVANCE 6,3 ;Get a saddle \par ADVANCE 3,1 ;Inspect the saddle \par LEAVE Saddlers \par TRANSFER ,Build ;Send for assembly \par ********************************************************************* \par Handlebars ENTER Handlers \par ADVANCE 4,2 ;Get handlebars \par ADVANCE 3,1 ;Inspect handlebars \par LEAVE Handlers \par TRANSFER ,Build ;Send for assembly \par ********************************************************************* \par Wheels ENTER Wheelers \par ADVANCE 3,1 ;Get wheels \par ADVANCE 3,1 ;Inspect wheels \par LEAVE Wheelers \par TRANSFER ,Build ;Send for assembly \par ********************************************************************* \par Pedals ENTER Pedalers \par ADVANCE 5,1 ;Get pedals \par ADVANCE 3,1 ;Inspect pedals \par LEAVE Pedalers \par TRANSFER ,Build ;Send for assembly \par ********************************************************************* \par Build ASSEMBLE 5 ;Assemble \par ENTER Builders \par ADVANCE (Normal(1,90,10)) ;Time for assembling \par ADVANCE 35,5 ;Inspect \par LEAVE Builders \par Bicycle MATCH Invoice ;Wait for paperwork \par ENTER Packers \par ADVANCE 40,5 ;Pack for dispatch \par LEAVE Packers \par TABULATE Transit \par TERMINATE ;Transaction finished \par ********************************************************************* \par GENERATE 480 ;Timer every day \par TERMINATE 1 ;Timer xact finished \par ********************************************************************* \par \par \par }