; --- Function for random number to decide part type (90% A, 10% B)
PARTTYPE FUNCTION RN1, D
0.0, 1  ; B = 10%
0.9, 0  ; A = 90%
 
; --- Function for rejection (10%)
REJECT FUNCTION RN2, D
0.0, 1  ; Rejected
0.1, 0  ; Accepted
 
; --- Simulation for 100 parts
GENERATE 10         ; Generate 1 part every 10 minutes
ASSIGN 1, FN$PARTTYPE ; Assign type (A or B) to parameter P1
SELECT P1, TYPEA, TYPEB ; Go to appropriate inspection branch
 
; --- Type A Inspection
TYPEA ADVANCE NORM(6,2) ; Inspection time for A
TEST E P1, FN$REJECT, REJECTED ; 10% rejection
ACCEPTED TERMINATE 1
REJECTED TERMINATE 1
 
; --- Type B Inspection
TYPEB ADVANCE NORM(10,2) ; Inspection time for B
TEST E P1, FN$REJECT, REJECTED ; 10% rejection
ACCEPTED TERMINATE 1
 
START 100 ; Simulate for 100 parts
 

OyAtLS0gRnVuY3Rpb24gZm9yIHJhbmRvbSBudW1iZXIgdG8gZGVjaWRlIHBhcnQgdHlwZSAoOTAlIEEsIDEwJSBCKQpQQVJUVFlQRSBGVU5DVElPTiBSTjEsIEQKMC4wLCAxICA7IEIgPSAxMCUKMC45LCAwICA7IEEgPSA5MCUKCjsgLS0tIEZ1bmN0aW9uIGZvciByZWplY3Rpb24gKDEwJSkKUkVKRUNUIEZVTkNUSU9OIFJOMiwgRAowLjAsIDEgIDsgUmVqZWN0ZWQKMC4xLCAwICA7IEFjY2VwdGVkCgo7IC0tLSBTaW11bGF0aW9uIGZvciAxMDAgcGFydHMKR0VORVJBVEUgMTAgICAgICAgICA7IEdlbmVyYXRlIDEgcGFydCBldmVyeSAxMCBtaW51dGVzCkFTU0lHTiAxLCBGTiRQQVJUVFlQRSA7IEFzc2lnbiB0eXBlIChBIG9yIEIpIHRvIHBhcmFtZXRlciBQMQpTRUxFQ1QgUDEsIFRZUEVBLCBUWVBFQiA7IEdvIHRvIGFwcHJvcHJpYXRlIGluc3BlY3Rpb24gYnJhbmNoCgo7IC0tLSBUeXBlIEEgSW5zcGVjdGlvbgpUWVBFQSBBRFZBTkNFIE5PUk0oNiwyKSA7IEluc3BlY3Rpb24gdGltZSBmb3IgQQpURVNUIEUgUDEsIEZOJFJFSkVDVCwgUkVKRUNURUQgOyAxMCUgcmVqZWN0aW9uCkFDQ0VQVEVEIFRFUk1JTkFURSAxClJFSkVDVEVEIFRFUk1JTkFURSAxCgo7IC0tLSBUeXBlIEIgSW5zcGVjdGlvbgpUWVBFQiBBRFZBTkNFIE5PUk0oMTAsMikgOyBJbnNwZWN0aW9uIHRpbWUgZm9yIEIKVEVTVCBFIFAxLCBGTiRSRUpFQ1QsIFJFSkVDVEVEIDsgMTAlIHJlamVjdGlvbgpBQ0NFUFRFRCBURVJNSU5BVEUgMQoKU1RBUlQgMTAwIDsgU2ltdWxhdGUgZm9yIDEwMCBwYXJ0cwo=