m=10
screen 6
dim a(20),u(20),v(20)
k=0
10 restore 500+k
read j,s,t
if j=255 then goto 300
if j>499 then restore j:read j,i,i
for i=1 to j
read a(i),u(i),v(i)
next i
for i=1 to j
restore 1000+a(i):read x,y,xx,yy
line(m+s+u(i)+x,n+t+v(i)+y)-(m+s+u(i)+xx,n+t+v(i)+yy),1
next i
k=k+1
goto 10
300 wait
screen 7
end
500  data 4,0,0,0,1,5,1,2,6,1,3,6,0,1,16
501  data 6,0,0,4,5,5,4,6,5,3,7,8,5,5,9,5,6,9,2,4,11
502  data 12,9,0,5,2,5,5,3,5,4,6,5,4,7,5,6,1,8,6,2,8,6,9,8,6,10,8,4,2,14,4,3,14,5,6,14,5,7,14
503  data 500,20,0
504  data 501,20,0
505  data 4,20,0,7,5,12,7,6,13,3,6,15,3,7,16
506  data 500,31,0
507  data 4,29,0,8,1,5,7,1,6,8,6,5,7,8,6
508  data 500,38,0
509  data 5,38,0,8,5,5,7,7,6,8,4,11,2,6,10,2,6,12
510  data 502,46,0
511  data 500,57,0
512  data 3,57,0,8,5,16,3,6,15,2,7,14
513  data 500,65,0
514  data 502,70,0
515  data 14,90,0,0,1,5,0,7,5,4,2,14,4,3,14,5,6,14,5,7,14,6,2,8,6,3,8,6,8,8,6,9,8,7,2,6,7,3,6,7,8,6,7,9,6
516  data 500,101,0
517  data 500,109,0
518  data 5,104,0,4,1,6,4,1,7,3,3,10,5,4,6,5,4,7
519  data 500,114,0
520  data 2,115,0,5,1,1,5,2,1
521  data 10,127,0,5,2,5,5,3,5,4,6,5,4,7,5,6,1,8,6,2,8,4,2,14,4,3,14,5,6,14,5,7,14
522  data 5,128,0,4,2,1,5,5,1,2,3,1,3,4,2,2,6,1
523  data 500,137,0
524  data 7,137,0,8,5,5,7,7,6,8,4,11,2,6,10,2,6,12,8,5,16,2,7,15
525  data 15,145,0,6,2,5,6,6,11,4,3,9,4,3,10,2,5,10,8,3,5,8,3,16,9,1,13,9,7,12,9,1,6,10,7,5,2,3,6,2,6,6,2,2,15,2,5,15
526  data 500,153,0
527  data 8,153,0,4,4,11,4,7,14,4,5,11,4,8,14,5,4,8,5,7,5,3,7,5,2,8,16
528  data 12,163,0,6,5,10,6,6,10,0,4,16,0,1,5,8,8,5,7,8,7,7,4,8,10,3,6,2,2,6,2,9,6,2,5,9,2,7,9
529  data 255
1000 data 1,1,4,1
1001 data 1,1,1,10
1002 data 1,1,1,1
1003 data 1,1,2,1
1004 data 1,1,3,3
1005 data 3,1,1,3
1006 data 1,1,1,6
1007 data 1,1,1,2
1008 data 1,1,3,1
1009 data 1,1,1,4
1010 data 1,1,1,3