2' 'ư>HELPA\NhNN:l؞CONTINUEhh(dEXIT&%p=lHALTމPl؞ddSTEP 14߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U\T߉W\O{gp߉.Od{Bg|߉{B|ŻOdg{BModelsSchr4c.gpsLFeCFEO`hL`hhE(((((((((({\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 * Equipment Balancing Problem \par * \par *Loc Operation A,B,C,D,E,F,G Comments \par * \par * Function Definitions \par * \par Proc1 FUNCTION RN1,C5 ;Time required for process 1 \par 0,60/.12,70/.48,80/.83,90/1,100 \par Proc2 FUNCTION RN1,C4 ;Time required for process 2 \par 0,80/.24,90/.73,100/1,110 \par * \par * STORAGE Capacity Definitions \par * \par Busy STORAGE 3 ;Initially 3 machines, 1 crane \par Crans STORAGE 1 \par * \par * Model Segment 1 \par * \par Blok1 GENERATE ,,,3,1 ;Bring in 1 operator per machine \par ENTER Busy ;Enter busy status \par Cycle ADVANCE FN$Proc1 ;Process 1 proceeds \par LEAVE Busy ;Leave busy status \par ENTER Crans ;Get a crane \par ENTER Busy ;Enter busy status \par ADVANCE 15,5 ;Intermediate handling proceeds \par LEAVE Crans ;Release the crane \par PRIORITY 0 ;Set low priority for next crane \par ADVANCE FN$Proc2 ;Process 2 proceeds \par LEAVE Busy ;Leave busy status \par ENTER Crans ;Get a crane \par ENTER Busy ;Enter busy status \par PRIORITY 1 ;Sst high priority for next crane \par ADVANCE 30,5 ;Unload; Store; Fetch; Load \par LEAVE Crans ;Release the crane \par TRANSFER ,Cycle ;Go do process 1 on next casting \par * \par GENERATE 12000 ;Timer arrives after 5 weeks \par TERMINATE 1 ;Shut off the run \par \par \par }