process MAKE.SHAKE
''
'' AUTHOR: Steve Bailey
'' CREATED: 7-25-90
'' DESCRIPTION:
''     This process takes a burger out of the steamer and builds it.
''

define CHOICE as an integer variable

'' move a knave to this station
request 1 WORKSTATION(.SHAKE)
let CHOICE = CHOICE.KNAVE(.SHAKE)
request 1 KNAVE(CHOICE)
let OCCUPIER(.SHAKE) = CHOICE

'' make the shake
create a SHAKE
file SHAKE in SHAKE.COUNTER
display SHAKE with "shake.icn" at 
  (.SHAKE.COUNTERX-N.SHAKE.COUNTER*.35, .SHAKE.COUNTERY)
work .SHAKE.TIME .SECONDS

relinquish 1 KNAVE(CHOICE)
relinquish 1 WORKSTATION(.SHAKE)

activate a CALL.ORDERS now

return
end
