*                 Manufacturing shop model 3
*                 G. Gordon Figure 11-7/9-7

       GENERATE   5                            ; Create parts
       ENTER      INSPECTR,1                   ; A single inspector becomes busy
       ADVANCE    12,9                         ; Inspect
       LEAVE      INSPECTR,1                   ; Make the inspector idle again
       TRANSFER   .1,ACC,REJ                   ; Randomly determine defective parts
 ACC   TERMINATE  1                            ; Accepted parts
 REJ   TERMINATE  1                            ; Rejected parts

 INSPECTR STORAGE    3

       START      1000