pdeeul1.prg

defequ

Execute(GetConfig(1));
autotxtconfig(x___):={if(AskUserYesNo("There is an error in your text view configuration:"+chr(13)+x___+chr(13)+"Do you want to configure the text view automatically?")==0,{abort(x___);},
{
i:=0;
while({column[i]:=GetUserInput("Enter the "+numtos(i+1)+"th column you want to print out:");i:=i+1;asc(column[i-1])!=0},{});
if(i==1,{abort("You must enter at least one column.");},{});
column[i-1]:=0;
i:=0;computeall:="";
while({valid(column[i])==-4},{
computeall:=computeall+"column["+numtos(i)+"]:={"+column[i]+"};"+chr(13)+chr(10);
i:=i+1;
});
SetConfig(computeall);
Abort("The setup is complete."+chr(13)+"Use File/Execute to start again."+chr(13)+chr(13)+computeall);
});
};
if(valid(column[0])==-16,{},
{
	autotxtconfig("You must define the vector column[ ] containing functions the results of which will be printed out.");
});
t_i:=0;t_updateview:="";
printn(t_i):={
while({strlen(t_i)<15},{t_i:=" "+t_i;});printf("%s",t_i);};
while({valid(column[t_i])==-16},
{
	t_updateview:=t_updateview+"printn(numtos(execute(column["+anytos("%ld",t_i)+"])));";
	t_i:=t_i+1;
});
OnUpdate(execute("{"+t_updateview+"printf("+chr(34)+"%s"+chr(34)+",chr(13)+chr(10));}"));