m=200:n=5
screen 6
10 read a,b,c,d
if a=255 then goto 100
if a=0 then m=b:n=c:goto 10
if a<0 then a=abs(a):goto 20
line(m+a,n+b)-(m+c,n+d),1
goto 10
20 line(m+a,n+b)-(m+c,n+d),1,BF
goto 10
100 wait
screen 7
end 
1000 data 0,11,20,0
1001 data 1,11,3,11,2,5,2,10,1,4,4,4,5,5,5,7,3,8,4,8,7,11,9,11,8,5,8,10,7,4,10,4,11,5,11,7,9,8,10,8,10,9,10,9,11,10,11,11
1002 data 13,5,13,7,14,8,14,9,15,10,15,11,16,8,16,9,17,5,17,7,13,4,14,4,16,4,17,4,19,11,21,11,20,5,20,10,19,4,20,4,21,5,21,6,22,7,22,9,23,10,23,11,24,5,24,11
1003 data 23,4,24,4,26,11,28,11,27,5,27,10,26,4,28,4,27,2,28,1
1004 data 0,43,20,0
1005 data 5,11,6,10,3,11,4,11,1,9,2,10,1,6,1,8,2,5,3,4,4,4,6,6,6,4,6,5,2,1,3,2,4,2,5,1,8,11,11,11,12,10,12,11,9,5,9,10,10,7,11,7,11,6,11,8,8,4,11,4,12,4,12,5
1006 data 14,10,14,11,15,11,16,11,17,8,17,10,15,7,16,7,14,5,14,6,15,4,17,4,17,5,17,5,19,4,19,11,20,7,23,4,20,8,23,11,22,4,22,4,22,11,22,11
1007 data 26,11,28,11,27,8,27,10,26,6,26,7,28,6,28,7,25,4,25,5,29,4,29,5,27,2,28,1,26,4,26,4,28,4,28,4
1008 data 0,76,20,0
1009 data 1,11,3,11,2,5,2,10,1,4,4,4,5,5,5,7,3,8,4,8,7,11,9,11,8,5,8,10,7,4,10,4,11,5,11,7,9,8,10,8,10,9,10,9,11,10,11,11
1010 data 13,9,15,11,16,11,18,9,13,6,13,8,18,6,18,8,14,5,15,4,16,4,17,5,20,9,22,11,23,11,25,9,25,7,25,8,23,7,24,7,20,6,20,8,21,5,22,4,23,4,24,5,25,4,25,5
1011 data 27,11,29,11,28,5,28,10,27,4,30,4,31,5,31,7,29,8,30,8,30,9,30,9,31,10,31,11,33,11,34,11,37,11,38,11,33,10,35,8,36,8,38,10,34,6,34,8,37,6,37,8
1012 data 34,4,37,4,35,5,36,5,40,11,41,11,40,6,40,11,-40,4,41,5,42,6,42,7,45,6,45,7,42,8,44,10,43,10,45,8,-46,4,47,5,47,6,47,10,46,11,47,11
2000 data 255,0,0,0