dx con 10:dy con 5:jx var byte:jy var byte:tx var byte:ty var byte:xc var word:yc var word:lt var word:rt var word:ld var bit:rd var bit
main: adcin 0,jx:adcin 1,jy:adcin 2,tx:adcin 3,ty:xcr=jx-128+(tx>>3)-16:yc=jy-128+(ty>>3)-16:IF ABS(Xc) < dx THEN Xc = 0
IF ABS(Ycorr) < dy THEN Ycorr = 0
lt=yc+xc:rt=yc-xc:ld=lt.15:rd=rt.15:lt=abs(lt):rt=abs(rt):if Lt > 127 then Lt = 127
if Rt > 127 then Rt = 127
GOTO Main
That's what I'm talkin' 'bout...