input equ 1
obr equ 2
output equ 3
tdl equ 4
tpr equ 5
tvr equ 9
och1 equ 6
och2 equ 7
och3 equ 8
tdl fvariable (RN$1/999)*400+300
tvr fvariable P$1*30/100
tpr fvariable (700-P$1)/400*127
simulate
generate 300,100
assign 1,v$tdl
assign 2,v$tvr
priority v$tpr
M1 queue och1
seize input
advance P$2
release input
depart och1
M2 queue och2
seize obr
advance P$2
release obr
depart och2
M3 queue och3
seize output
advance P$2
release output
depart och3
priority 127
transfer .95,M1,OUT
OUT terminate
generate 108000
terminate 1
start 1