∇ Z ← INPUT MSG ; ⎕PR
  ⍝ PROMPT FOR INPUT
  ⍝ BACKSPACE IS PROMPT REPLACE
  ⎕PR ← ↑ ⎕TC
  ⍝ DISPLAY THE PROMPT
  ⍞ ← MSG , ': '
  ⍝ ASSIGN THE RESPONSE
  Z ← ⍞ ~ ⎕PR
∇

ITEMS ← 'PLACE' 'FILL' 'STOCK'

∇ TEST
  INPUT 'CHOOSE' , 3 ⌽ 'OR' , ¯1 ⌽ ITEMS
  INPUT ' CHOOSE PLACE FILL OR STOCK '
∇

TEST