%%RISCOS_FeedName: Upper first sheet then lower
/PrintDict 5 dict def PrintDict begin
/headcount 1 def % change this to the number of headed pages required
/selectheaded {statusdict begin 0 setpapertray end (\nSelecting Headed \(lower\) paper tray) print flush} bind def
/selectplain {statusdict begin 2 setpapertray end (\nSelecting Plain \(upper\) paper tray) print flush} bind def
selectheaded
end

/showpage
{
  showpage
  PrintDict /headcount 2 copy get 1 sub
  dup 4 1 roll put 0 eq
  {
    statusdict begin false setduplexmode newsheet end
    PrintDict /selectplain get exec
  } if
} bind userdict 3 1 roll put
