*                 Manufacturing shop model 4
*                 G. Gordon Figure 11-9/9-8

       GENERATE   5                            ; Create parts
       QUEUE      INSPQ                        ; Queue for an inspector
       ENTER      INSPECTR,1                   ; A single inspector becomes busy
       DEPART     INSPQ                        ; Leave the inspector queue
       MARK                                    ; Start counting transit time
       ADVANCE    12,9                         ; Inspect
       LEAVE      INSPECTR,1                   ; Make the inspector idle again
       TABULATE   TRANSIT                      ; Tabulate parts' transit time
       TRANSFER   .1,ACC,REJ                   ; Randomly determine defective parts
 ACC   TERMINATE  1                            ; Accepted parts
 REJ   TERMINATE  1                            ; Rejected parts

 TRANSIT  TABLE      M1,5,5,10

 INSPECTR STORAGE    3

       START      1000