2' 'ư>HELPRA\NhNN:lhCONTINUE n((}4hEXIT&%p=lHALTމPlh4hdSTEP 1 4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U<T߉W<Opgp߉.Odp?g|߉p?|ŻOdgp?ModelsTvrepair.gpsLFeCFEOHgLHghE(((((((((({\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 - TVREPAIR.GPS, by Gerard F. Cummings \par ***************************************************************** \par * Television Maintenance Man Model * \par ***************************************************************** \par * Repair of rented sets, one each week * \par * Time unit is one minute * \par ***************************************************************** \par GENERATE 2400,480,,,1 ;Overhaul of a rented set \par QUEUE Overhaul ;Queue for service \par QUEUE Alljobs ;Collect global statistics \par SEIZE Maintenance ;Obtain TV repairman \par DEPART Overhaul ;Leave queue for man \par DEPART Alljobs ;Collect global statistics \par ADVANCE 600,60 ;Complete job 10+/-1 hours \par RELEASE Maintenance ;Free repairman \par TERMINATE ;Remove one transaction \par ***************************************************************** \par * On the spot repairs \par GENERATE 90,10,,,3 ;On-the-spot repairs \par QUEUE Spot ;Queue for spot repairs \par QUEUE Alljobs ;Collect global statistics \par PREEMPT Maintenance,PR ;Get the TV repairman \par DEPART Spot ;Depart the 'spot' queue \par DEPART Alljobs ;Collect global statistics \par ADVANCE 15,5 ;Time for tuning/fuse/fault \par RETURN Maintenance ;Free maintenance man \par TERMINATE \par **************************************************************** \par * Normal repairs on customer owned sets \par GENERATE 300,60,,,2 ;Normal TV Repairs \par QUEUE Service ;Queue for service \par QUEUE Alljobs ;Collect global statistics \par PREEMPT Maintenance,PR ;Preempt maintenance man \par DEPART Service ;Depart the 'service' queue \par DEPART Alljobs ;Collect global statistics \par ADVANCE 120,30 ;Normal service time \par RETURN Maintenance ;Release the man \par TERMINATE \par ***************************************************************** \par GENERATE 480 ;One xact each 8 hr. day \par TERMINATE 1 \par * Day counter \par ***************************************************************** \par * Tables of queue statistics \par Overhaul QTABLE Overhaul,10,10,20 \par Spot QTABLE Spot,10,10,20 \par Service QTABLE Service,10,10,20 \par Alljobs QTABLE Alljobs,10,10,20 \par ***************************************************************** \par \par \par }