Editing GPSS (section)

=== Haircuts ===
 * Pg 108 Q 18
 * A one-chair unisex hair shop has arrivals at the rate of one every 20±15 minutes.
 * One-half of the arriving customers want a dry cuts, 30% want a style, and 20% 
 * want a trim only. A dry cut takes 15±5 minutes, a style cut takes 25±10 minutes,
 * and a trim takes 10±3 minutes. Simulate 50 customers coming through the hair
 * shop. Compare the given proportion of service rqequests of each type with the
 * simulated outcome. Are the results reasonable? Base your answer on the binomial
 * distribution.
 
 Arrivals	FUNCTION	RN1,D4	; 1=dry cut, 2=style, 3=trim
 0.0,0/0.5,1/0.8,2/1.0,3
 
 	GENERATE	20,15	; Generate arrivals
 	ASSIGN	1,FN$Arrivals	; Assign arrival type to P1
 Test1	TEST E	P1,1,Test2	; If P1=1, transfer to DryCut. Else Test2
 	TRANSFER	,DryCut
 Test2	TEST E	P1,2,TrimHair	; If P1=2, transfer to StyCut. Else Trim.
 	TRANSFER	,StyCut
 
 
 DryCut	SEIZE	Chair
 	ADVANCE	15,5
 	SAVEVALUE	WantedDryCut+,1
 	TRANSFER	,Term
 
 StyCut	SEIZE	Chair
 	ADVANCE	25,10
 	SAVEVALUE	WantedStyleCut+,1
 	TRANSFER	,Term
 
 TrimHair	SEIZE	Chair
 	ADVANCE	10,3
 	SAVEVALUE	WantedTrimHair+,1
 
 Term	RELEASE	Chair
 	TERMINATE 1