2' 'ư>HELPA\NhNN:l$CONTINUE n((EXIT&%p=lHALTމPl$dSTEP 14߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WO{gp߉.Od{Ag|߉{A|ŻOdg{AModelsSchr2d.gpsLFeCFEOhLh~,hE(((((((((({\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 Number EQU 4 \par * \par * Model Segment 1 \par * \par GENERATE ,,,Number ;Provide 4 assemblers \par Backplace ADVANCE 30,5 ;Assemble next widget \par SEIZE Oven ;Capture the oven \par ADVANCE 8,2 ;Use the oven \par RELEASE Oven ;Free the oven \par TRANSFER ,Backplace ;Go do the next assembly \par * \par * Model Segment 2 \par * \par GENERATE 2400 ;Timer arrives after 5 days \par TERMINATE 1 ;Shut off the run \par REPORT "SCHR2D.REP" \par START 1,,,1 \par \par \par }