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
rem pgsave "ahoj.pic"
screen 7
end 
1000 data 20,1,26,1,19,2,5,16,20,2,5,17,19,5,7,17,19,7,7,19,19,9,7,21,20,3,20,8,21,2,27,2,28,3,33,8,27,3,32,8,32,9,32,14,33,9,33,14
1001 data 26,14,31,14,21,9,25,13,21,8,26,13,24,7,27,10,24,6,28,10,25,6,28,9,26,6,28,8,14,26,25,15,11,27,13,27,15,27,27,15,17,27,29,15,19,27,31,15
1002 data 20,27,32,15,13,28,19,28,15,29,18,29,12,30,15,30,8,24,10,26,7,22,7,23,6,17,6,20,4,18,5,18,4,19,4,24,-2,27,6,32,3,24,3,26,7,31,11,31
1003 data 7,28,7,30,1,31,1,33,2,33,3,33
1004 data 0,140,35,0
1005 data 2,15,2,17,3,13,3,15,4,10,4,13,5,10,5,12,6,7,11,2,7,5,11,1,9,2,10,1,6,8,7,7,6,9,6,9,2,10,9,10,2,11,9,11,10,4,10,14,11,3,11,14,12,9,13,9
1006 data 12,8,12,8,-13,7,24,8,-15,12,16,14,-16,9,17,11,-17,4,18,6,-18,1,19,3,-23,9,24,13,23,6,24,6,-24,1,25,5,25,14,26,13,24,14,24,14
1007 data -28,4,29,8,-28,9,30,10,-29,11,30,12,-31,13,35,14,30,13,31,12,29,3,31,1,32,1,32,1,31,4,34,1,31,5,35,1,32,5,32,5,35,2,36,1,36,2,38,4,37,2,37,4
1008 data 38,5,38,10,37,10,37,12,36,12,36,13
1009 data 40,11,40,13,-40,7,41,10,41,5,41,6,42,3,42,5,43,2,43,3,45,1,47,1,44,2,48,2,47,3,49,3,-48,4,49,13,48,14,44,18,48,15,45,18,47,17,47,17,41,17,47,11
1010 data 42,15,45,12,47,12,47,12,-42,18,43,19,41,18,42,17,50,10,50,11,51,10,52,9,52,10,55,7,54,9,59,4,57,7,59,5
2000 data 255,0,0,0