2' 'ư>HELPNA\NhNN:lCONTINUE n((pxXEXIT&%p=lHALTމPlXdSTEP 1 4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOTvgp߉.OdTv?g|߉Tv?|ŻOdgTv?ModelsBookmrk.gpsLFeCFEOgLggE(((((((((({\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 - BOOKMRK.GPS \par 100 ******************************************************* \par 110 * * \par 120 * * \par 130 * Telephone System Model * \par 140 * by Gerard F. Cummings * \par 150 * * \par 160 ******************************************************* \par 170 * Simple Telephone Simulation * \par 180 * Time Unit is one second * \par 200 Sets STORAGE 2 \par 210 Transit TABLE M1,100,100,20 ;Transit times \par 220 GENERATE 100,60 ;Calls arrive \par 230 Again GATE SNF Sets,Occupied ;Try for a line \par 240 ENTER Sets ;Connect call \par 250 ADVANCE 180,60 ;Speak for 3+/-1 min \par 260 LEAVE Sets ;Free a line \par 270 TABULATE Transit ;Tabulate transit time \par 280 TERMINATE 1 ;Remove a transaction \par 290 Occupied ADVANCE 300,60 ;Wait 5 minutes \par 300 TRANSFER ,Again ;Try again \par 310 ******************************************************* \par \par \par }