%%HP: T(3)A(R)F(.);
@ @ @  ZOBRAZENI FORMULARE PRO ZADANI ARGUMENTU
@ void ENVFORM();
\<<
  "Waveform Envelope"
  { { "Function"	"Program"				5 6 8 }
    { "Period"		"Number of samples in one period"	0 }
    { "Repeat"		"Number of periods"			0 }
    { "Options"		"Paste No_rads Waveform Envelope"	2 6 } }
    { }
  \<< DUP 2. / SIN SWAP 5. * COS * \>>
  ENVDFLT		@	{args}	{ }	{{}}	"Wavef
  'ARGUMS'		@	'ARGUM	{args}	{ }	{{}}	"Wavef
@ Pokud nejsou zadne minule argumenty...
  IF
    DUP			@	'ARGUM	'ARGUM	{args}	{ }	{{}}	"Wavef
    VTYPE		@	-1.	'ARGUM	{args}	{ }	{{}}	"Wavef
    0.			@	0.	-1.	'ARGUM	{args}	{ }	{{}}	"Wavef
    <			@	1.	'ARGUM	{args}	{ }	{{}}	"Wavef
  THEN			@	'ARGUM	{args}	{ }	{{}}	"Wavef
@ ...jsou nahrazeny default hodnotami
    DROP		@	{args}	{ }	{{}}	"Wavef
    DUP			@	{args}	{args}	{ }	{{}}	"Wavef
  ELSE			@	'ARGUM	{args}	{ }	{{}}	"Wavef
@ Minule argumenty byly k mani
    RCL			@	{args}	{args}	{ }	{{}}	"Wavef
  END
  IF
    INFORM		@	1. {args}
  THEN			@	{args}
    ENVPLOT
  END
\>>