a:=MOV(C, 21 , VAR) ;
b:=MOV(C, 45 , VAR) ;
a;b

a:=MOV(C, 21 , VAR) ;
b:=MOV(C, 45 , VAR) ;
if (a > b, 1 ,0)

a:=STOSD(100,100,20,VAR);
b:=STOSK(100,100,20,VAR);
if (a > b, 1,0)

a1:=MOV(C, 21 , VAR) ;
b1:=MOV(C, 45 , VAR) ;
a2:=STOSK(200,100,20,VAR);
b2:=STOSD(200,100,20,VAR);
a1b1:=if (a1>b1,1,0);
a2b2:=if(a2>b2,1,0);
aabb:=if(a2<b2,1,0);
isc:=if ( a1b1 and a2b2 ,1,if( a1b1 and aabb,1,0) );
isc




İbrahim S COŞKUN Der ki VOB severlere alt bara ekleyecekleri çok işlevli bir kod;
edit : öyle böyle değil
süper edit:viop'çular içindir
ultra edit:THYAO GARAN asels vs kullanılabilir.

Puan:=x;
a:=if( c>=ref(c,-1)+Puan,1,0);
b:=if( c>=ref(c,-1)+Puan,1,if(c<=ref(c,-1)-Puan,0,prev))


xx:=sayı;
yy:=O&C;
if (C >< ref(yy,-1)*xx, (ref(c,-2)+ref(c,-3)) /2 ,
if ( (REF(yy,1-) >< ref(yy,-2)*xx, (ref(c,-3)+ref(c,-4)) /2 ,
if ( (REF(yy,2-) >< ref(yy,-3)*xx, (ref(c,-4)+ref(c,-5)) /2 ,
if ( (REF(yy,3-) >< ref(yy,-4)*xx, (ref(c,-5)+ref(c,-6)) /2 ,
{gap'den korur}
)))))))