Minimal engine

0 rem 0=black, 1=green, 2=voilet, 3=white, 5=orange, 6=blue
0 rem k$="":ifpeek(-16384)>127thengetk$:gosub1000
0 rem 360/(pi*2)=57.295
0 rem x=int(pdl(0)*1.094):y=int(pdl(1)*.749)
0 rem atn((y2-y1)/(x2-x1))*180/3.14159
0 rem sqr((x2-x1)^2+(y2-y1)^2)
10 hgr : hcolor = 3



199Poke230,32:gosub 200:Poke49236,0:poke 230,64:gosub200:poke49237,0:goto199
200fr=fr+1:?"frame ";fr:call-3086



999 return