# Ident: @(#)Form.read_list	13.1 (RC International) 91/09/06
# List of times to periodic backup time
# arg1 = kind (minute,hour,date,month,weekday)
# arg2 = lower limit
# arg3 = upper limit
form=List of $ARG1
done=`
     if [ $Form_Choice = "" ];
     then
       if [ $F1 != "" ];
       then
         set -l Form_Choice=$F1;
       fi;
       if [ $F2 != "" -a $F3 != "" ];
       then
         if [ $Form_Choice = "" ];
         then
           set -l Form_Choice=$F2-$F3;
         else
           set -l Form_Choice=${Form_Choice},$F2-$F3;
         fi;
       fi;
     else 
       if [ $F1 != "" ];
       then
         set -l Form_Choice=${Form_Choice},$F1;
       fi;
       if [ $F2 != "" -a $F3 != "" ];
       then
         set -l Form_Choice=${Form_Choice},$F2-$F3;
       fi;
     fi;
     set -l F1=""; set -l F2=""; set -l F3="";
     `
begrow=any
begcol=any

# Table field F1
name=Add a single $ARG1 to the list of ${ARG1}s:
lininfo=F1
nrow=1
ncol=2
frow=1
fcol=50
rows=1
columns=2

value=
valid=` [ $F1 = "" -o $F1 -ge $ARG2 -a $F1 -le $ARG3 ] `
invalidmsg="Enter a $ARG1 between $ARG2 and $ARG3"

# Table field F2
name=Lower interval limit of ${ARG1}s:
lininfo=F2
nrow=2
ncol=2
frow=2
fcol=50
rows=1
columns=2

value=
valid=` [ $F2 = "" -o $F2 -ge $ARG2 -a $F2 -le $ARG3 ] `
invalidmsg="Enter a $ARG1 between $ARG2 and $ARG3"

# Table field F3
name=Upper interval limit of ${ARG1}s:
lininfo=F3
nrow=3
ncol=2
frow=3
fcol=50
rows=1
columns=2

value=
valid=` [ $F3 = "" -o $F3 -ge $ARG2 -a $F3 -le $ARG3 ] `
invalidmsg="Enter a $ARG1 between $ARG2 and $ARG3"