1 RECEIVE  INTO(data-area)  LENGTH(data-ref)  OBJECT(data-ref)
2? TOKEN(data-ref)
3! WAIT
3?
3 DELAY(data-value)
3 IMMEDIATE
4 THREAD(cpsm-token)  RESPONSE(data-ref)  REASON(data-ref)