GetLabel command in QP

Putting together info from Charles Cork’s book (, and with an hour of time, I was able to figure out how to test for the responses to the GetLabel command in Quattro Pro.
There are three possible responses that can be entered with GetLabel.
Enter some text: hello.
Hit OK, without entering any text: ' (single quotation mark)
Hit Cancel (or tap Esc on the keyboard): blank.
To test if either of the latter two have been entered ( ' or blank):
{IF @cellpointer("type")="b"}{PutCell "This cell was blank."}
{IF @cell("prefix",[]c(0)r(0))="'"}{PutCell "This cell had an apostrophe"}