; GPSS World Sample File - SAMPLE1.GPS
**********************************************************************
*                                                                    *
*              Barber Shop Simulation                                *
*                                                                    *
**********************************************************************
ste STORAGE 3
time FUNCTION P1,C5
1,15/2,30/3,45/4,60/5,75

GENERATE (Exponential(1,0,65))
ENTER ste
TRANSFER .60,,A
ADVANCE 130,40
ASSIGN 1+,FN$lit
A    TRANSFER .60,,B
     ADVANCE 130,40
     ASSIGN 1+,UNIFORM(1,5)
B    TRANSFER .60,,C
     ADVANCE 130,40
     ASSIGN 1+,UNIFORM(1,5)
C    LEAVE ste
     QUEUE och
     ASSIGN 1+,UNIFORM(2,4)
     SEIZE reg
     DEPART och
     ASSIGN 2,FN$time
     ADVANCE P2,0
     RELEASE reg
     TERMINATE

GENERATE 21600
TERMINATE 1
START 1