m=0:n=8
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 11,1,1,11,12,1,24,1,25,1,35,11,1,12,1,24,35,12,35,24,1,25,11,35,35,25,25,35,11,35,24,35
1001 data -12,3,24,13,-12,24,24,33,-6,9,11,13,-25,9,30,13,-7,24,11,28,-25,24,29,28,-9,6,11,8,-25,6,27,8,-10,29,11,31,-25,29,26,31
1002 data -4,11,5,13,-31,11,32,13,-5,24,6,26,-30,24,31,26,3,12,12,3,4,12,12,4,3,24,12,33,4,24,13,33,24,3,33,12,24,4,32,12,24,33,33,24,24,32,32,24
1003 data -3,13,4,23,5,14,5,14,5,19,5,20,6,20,6,20,-7,20,8,21,-7,16,12,17,10,14,10,18,10,23,10,23,-11,18,12,23,-15,16,16,23,17,14,17,15,17,22,17,23
1004 data 18,14,18,14,18,23,18,23,-19,17,22,20,-20,16,21,21,23,14,25,14,23,23,25,23,24,15,25,15,24,22,25,22,25,16,25,21
1005 data -28,16,29,17,-28,20,33,23,-32,13,33,19,31,14,31,14,31,19,31,19

2000 data 255,0,0,0