Determine the character displayed on the screen at column 3, row 6 and store that character in a variable. Note that it is permissible to utilize system or language provided methods or system provided facilities, system maintained records or available buffers or system maintained display records to achieve this task, rather than query the terminal directly, if those methods are more usual for the system type or language.

(defun positional-read ()
  (with-screen (scr :input-blocking t :input-echoing nil :cursor-visible nil)
    ;; print random characters in a 10x20 grid
    (loop for i from 0 to 9 do
         (loop for j from 0 to 19 do
              (add-char scr (+ 33 (random 94)) :y i :x j)))
    ;; highlight char to extract at row 6 column 3
    (change-attributes scr 1 (list :reverse) :y 5 :x 2)
    (refresh scr)
    ;; wait for keypress
    (get-char scr)
    ;; extract char from row 6 column 3
    (let ((char (extract-char scr :y 5 :x 2)))
      ;; then print it out again
      (move scr 11 0)
      (format scr "extracted char: ~A" char))
    (refresh scr)
    (get-char scr)))