'R_MONTHL - BOSSMENU item only for reports to be produced monthly

external   vkeybox() messbox() sch scw $menu

public     ptstr

MAIN
screen clear box 1 1 sch scw 0 0 no-border
single-step off
while true
'   if vkeybox(8,28,"1Sales 1Aged’Debtors 8Sales’Summary 1Other’Reports","Press {Esc} to exit") = 0
  if vkeybox(8,28,"1Sales 1Aged’Debtors 8Sales’Summary 1Points’listing 1Other’Reports","Press {Esc} to exit") = 0
    if ptstr == "s"
      execute "sal_rep" in-memory
      continue while
    elseif ptstr == "a"
      execute "aged_drs.rf3" in-memory
      continue while
    elseif ptstr == "p"
      execute "points.rf3" in-memory
      continue while
    elseif ptstr == "u"
      execute "sal_summ" in-memory
      continue while
    elseif ptstr == "o"
      if $menu = "boss"
        execute "r_mthlyb.rf3" in-memory
      end if
      continue while
'     elseif ptstr == "l"
'       messbox(" Not yet Available ",0,0,1)
'       continue while
    end if
  else
    exit while
  end if
end while
transfer "pm_menu.psl" in-memory
END MAIN