نمونه ای از برنامه DPL

int error;

double L,Max;

set S;

object O,omax;

clearoutput();

Ldf:iopt_lim=1;

error=Ldf.Execute();

if(error) {

exit();

} else{

S=SEL.AllLines();

omax=S.First();

Max=omax:c:loading;

o=S.Next();

while(o){

if(o:c:loadingg>Max){

Max=o:c:loading;

omax=o;

}

o=S.Next();

}

output('Max loading=Max on line');

omax.showFullName();

'printf(%a',omax:c:loc_name);

}

نمونه ای از برنامه DPL