%
% acceptance vectors for Fire code
%
page@sel
<

|OptDh
%
% translate raw control names to Ops names
%
 wireop(
">OptDh" log)(
 < 
 |Initial
  "OptDh" *helpface
%
% initialize Ember process operations
%
  *embrinit

 |hShop
  *embrstop

 |hCheckout
  ember! ember!@
  ember*
  empty count -
"cup" log)(
  countup?
"cuq" log)(
  {
   {
    ^"{" &"} " &3) &; &
   } for
   &"------------------"
  }
  {
   count popoff
   "--------None-------"
  } ifelse
  &;
  ember=

 |hLnavD1	"A" !Ember.Slot ember_@ ember_
 |hLnavD2	"B" !Ember.Slot ember_@ ember_
 |hLnavD3	"C" !Ember.Slot ember_@ ember_
 |hLnavD4	"D" !Ember.Slot ember_@ ember_
 |hLnavD5	"E" !Ember.Slot ember_@ ember_
 |hLnavD6	"F" !Ember.Slot ember_@ ember_
 |hLnavD7	"G" !Ember.Slot ember_@ ember_
 |hLnavD8	"H" !Ember.Slot ember_@ ember_
 |hLnavD9	"I" !Ember.Slot ember_@ ember_
 |hLnavD10	"J" !Ember.Slot ember_@ ember_

 > pop
%
% end of Ember process
%

>

*acceptun

%
% stack: found
%