GPSS / R

SIMULATE
1 STORAGE 300
INITIAL XB3,48
EXPON FUNCTION RN1,C24
0,0/0.1,0.104/0.2,0.222/0.3,0.355/0.4,0.509/0.5,0.69
0.6,0.915/0.7,1.2/0.75,1.38/0.8,1.6/0.84,1.83/0.88,2.12
0.9,2.3/0.92,2.52/0.94,2.81/0.95,2.99/0.96,3.2/0.97,3.5
.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/1.0,8
UM1 TABLE 1,1,5,20
GENERATE 1,,,1
TERMINATE
GENERATE 14400,,3600,,,1PF,1PB

SEIZE 3
FAVAIL 1-2
ADVANCE 1
TEST E BV1,0
LOGICR 1
RELEASE 3
FUNAVAIL 1-2
SAVEVALUE 1+,1,XB
TEST NE XB1,5,ND
ADVANCE 100
TRANSFER ,KAR
ND SAVEVALUE 1,0,XB
TERMINATE 1
GENERATE 60,,,,,1PF,1PB
ADVANCE 100,20
TABULATE 1
ENTER 1
GATE LS 1
SAVEVALUE 2+,1,XB
TEST E XB2,XB3,POGR
LOGIC R 1
SAVEVALUE 2,0,XB
POGR LOGICI 2
GATE LR 2,RAZ
ASSIGN 1,1,,PB
RAZ ASSIGN 1+,1,,PB
SEIZE PB1
LEAVE 1
ADVANCE 50,FN$EXPON
RELEASE PB1
TERMINATE
START 30
END