How to save (remember) day am/pm value?

(not inportant but - why 'buttons', when in insert/get mode (inverse)
displays "( ) " one space more, after ") ". I wish length of 3 "( )",
not 4 chars.
(if you starts program, you'll found what I'm talking about) .

Thanks.

***********************************************
SET TALK OFF
CLEAR
*what=1
what=0


DEFINE WINDOW one FROM 3, 5 TO 13, 60
ACTIVATE WINDOW one


@ 0, 6 say "Mon Tue Wen Thu Fri"
@ 1,2 say "AM"
@ 2,2 say "PM"



@ 1, 6 GET whn FUNCTION '*r ;' sIZE 0, 2, 0 DEFAULT what
@ 1,10 GET whn FUNCTION '*RNV ;' sIZE 0, 2, 0 DEFAULT what
@ 1,14 GET whn FUNCTION '*RNV ;' sIZE 0, 2, 0 DEFAULT what
@ 1,18 GET whn FUNCTION '*RNV ;' sIZE 0, 2, 0 DEFAULT what
@ 1,22 GET whn FUNCTION '*RtV ;' sIZE 0, 2, 0 DEFAULT what

*READ CYCLE
read

release window one

*? what
*? whn
wait '...'
****************************************