'CASHENT2 - sundry programs for cash receipts/credits etc

external vkeybox() messbox() sch scw

public ptstr

global x

MAIN
screen clear box 1 1 sch scw 0 0 no-border
single-step off
while true
  if vkeybox(8,28,"1Customer's˙Order 1Enter˙Credits 1Transfer˙Receipts 1Show˙Cash 1Negative˙Balances","Press {Esc} to exit") = 0
    if ptstr == "e"
      execute "cr_notes.rf3" in-memory
      continue while
    elseif ptstr == "c"
      execute "LU_ordnr.rf3" in-memory
      continue while
    elseif ptstr == "t"
      execute "tfr_rcpt.rf3" in-memory
      continue while
    elseif ptstr == "s"
      execute "chk_cash.rf3" in-memory
      continue while
    elseif ptstr == "n"
      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