procedure vstor ()

int	ival1	= 0	{prompt="Integer valued variable 1"}
int	ival2	= 0	{prompt="Integer valued variable 2"}
int	ival3	= 0	{prompt="Integer valued variable 3"}
int	ival4	= 0	{prompt="Integer valued variable 4"}
real	rval1	= 0.	{prompt="Real valued variable 1"}
real	rval2	= 0.	{prompt="Real valued variable 2"}
real	rval3	= 0.	{prompt="Real valued variable 3"}
real	rval4	= 0.	{prompt="Real valued variable 4"}
string	cval1	= ""	{prompt="String valued variable 1"}
string	cval2	= ""	{prompt="String valued variable 2"}
string	cval3	= ""	{prompt="String valued variable 3"}
string	cval4	= ""	{prompt="String valued variable 4"}

# @(#) task vstor                     Author: R.A. Jansen -- Apr 10 2001
# @(#)
# @(#) Dummy task to keep a command line variable around for later use.
# @(#) Currently this task is limited to storing 4 variables per type.

begin
	int	ii1, ii2, ii3, ii4
	real	rr1, rr2, rr3, rr4
	string	cc1, cc2, cc3, cc4

	ii1 = ival1
	ii2 = ival2
	ii3 = ival3
	ii4 = ival4
	rr1 = rval1
	rr2 = rval2
	rr3 = rval3
	rr4 = rval4
	cc1 = cval1
	cc2 = cval2
	cc3 = cval3
	cc4 = cval4

	ival1 = ii1
	ival2 = ii2
	ival3 = ii3
	ival4 = ii4
	rval1 = rr1
	rval2 = rr2
	rval3 = rr3
	rval4 = rr4
	cval1 = cc1
	cval2 = cc2
	cval3 = cc3
	cval4 = cc4

end