%%HP: T(3)A(R)F(.);
@ @ @  VYBER Z INSTATNI NABIDKY ARGUMENTU
@ Prog ENVSAMP();
@ List ENVSAMP();
\<<
  SAMPLES
  VARS			@	{list}
  1.			@	1.	{list}
@ Z adresare SAMPLES je sestaven seznam vhodny promennych
  \<<
    DUP			@	'name'	'name'
    RCL			@	obj	'name'
    IF
      UPDIR
      ENVACHK		@	0.|1.	{args}	'name'
      SAMPLES
      NIP		@	0.|1.	'name'
    THEN		@	'name'
      DROP
    END			@	'name'
  \>>			@	\<< \>>	1.	{list}
  DOLIST		@	{list}
@ Neni-li seznam prazdny, zobrazi se menu pro vyber
  IF
    DUP			@	{list}	{list}
    SIZE		@	0.|1.	{list}
    NOT			@	1.|0.	{list}
  THEN			@	{list}
    DROP
    UPDIR
    "Empty list"
    DOERR
  END			@	{list}
  "Choose any sample"	@	"Choose	{list}
  SWAP			@	{list}	"Choose
  0			@	0	{list}	"Choose
  CHOOSE		@	0.|1.	|'name'
  IF
    DUP			@	0.|1.	0.|1.	|'name'
  THEN			@	1.	'name'
    SWAP		@	'name'	1.
    RCL			@	obj	1.
    SWAP		@	1.	obj
  END			@	0.|1.	|obj
  UPDIR
\>>