10 rem sprite birds 
100 data  0 , 0 , 0 
101 data  0 , 60 , 0 
102 data  0 , 126 , 0 
103 data  7 , 126 , 224 
104 data  15 , 126 , 240 
105 data  28 , 126 , 56 
106 data  24 , 60 , 24 
107 data  24 , 0 , 24 
108 data 0,0,0,0,0,0,0,0 
109 data 0,0,0,0,0,0,0,0 
110 data 0,0,0,0,0,0,0,0 
111 data 0,0,0,0,0,0,0,0 
112 data 0,0,0,0,0,0,0,0 
113 data  0 , 0 , 0 
114 data  0 , 60 , 0 
115 data  0 , 126 , 0 
116 data  255 , 126 , 255 
117 data  255 , 126 , 255 
118 data  0 , 126 , 0 
119 data  0 , 60 , 0 
120 data  0 , 0 , 0 
121 data 0,0,0,0,0,0,0,0 
122 data 0,0,0,0,0,0,0,0 
123 data 0,0,0,0,0,0,0,0 
124 data 0,0,0,0,0,0,0,0 
125 data 0,0,0,0,0,0,0,0 
126 data  24 , 0 , 24 
127 data  24 , 60 , 24 
128 data  28 , 126 , 56 
129 data  15 , 126 , 240 
130 data  7 , 126 , 224 
131 data  0 , 126 , 0 
132 data  0 , 60 , 0 
133 data  0 , 0 , 0 
134 data 0,0,0,0,0,0,0,0 
135 data 0,0,0,0,0,0,0,0 
136 data 0,0,0,0,0,0,0,0 
137 data 0,0,0,0,0,0,0,0 
138 data 0,0,0,0,0,0,0,0 
205 for n=832 to 832+191 
210 read dt:poke n,dt:next 
300 poke 2040,13:poke 2041,13 
305 poke 53248+0,100:poke53248+1,150 
310 poke 53248+2,255:poke53248+3,105 
315 poke 53248+21,3:poke 53248+23,1 
320 poke 53248+39,1:x=100:y=150 
321 poke 53248+40,3:poke 53248+29,1 
330 tx=int(rnd(1)*235)+20 
335 ty=int(rnd(1)*185)+50 
400 rem (less) (more than)
405 if x l tx then x=x+1
410 if x m tx then x=x-1
415 if y l ty then y=y+1:s=1
416 if y , ty then y=y-1:s=0
420 if y = ty then s=0
421 if x<>tx or y<>ty then 424
422 tx=int(rnd(1)*235)+20
423 ty=int(rnd(1)*184)+50
424 poke 53248+2,tx:poke 53248+3,ty
425 poke 53248+0,x:poke53248+1,y
426 cnt=cnt+1:if s=1 then cnt=3
430 if cnt=1 then poke 2040,13
435 if cnt=2 then poke 2040,14
440 if cnt=3 then poke 2040,15
445 if cnt=4 then poke 2040,14
450 if cnt=5 then cnt=0
455 goto 400