10 SW%=SCREENWIDTH(0):SH%=SCREENHEIGHT(0):PI=3.141592 11 X1%=100:Y1%=100:X2%=100:Y2%=150 50 CLS:SETCOLOR 0,0,0:FILLRECT 0,0,SW%,SH%:SETCOLOR 255,255,255 60 DRAWLINE X1%,Y1%,X2%,Y2% 80 IF LEFT(0) THEN A%=A%-1 81 IF RIGHT(0) THEN A%=A%+1 82 D=(A%*PI)/180 83 X2%=X2%-X1% 84 Y2%=Y2%-Y1% 85 X2%=(X2%*COS(D)-Y2%*SIN(D))+X1% 86 Y2%=(X2%*SIN(D)+Y2%*COS(D))+Y2% 100 REPAINT:SLEEP 5:GOTO 50