10 graf%=1
11 FOR i%=1 to 4
12 gelload str$(i%),str$(i%)
15 next i%
17 FOR I%=1 TO 20
18 SPRITEGEL str$(i%-1),"1"
20 NEXT I%
22 Dim cv%(5):dim cv2%(10):dim cv3%(15):dim cv4%(20)
23 for i%=0 to 5
24 cv%(i%-1)=i%-1
26 cv2%(i%+4)=i%+4
28 cv3%(i%+9)=i%+9
30 cv4%(i%+14)=i%+14
33 next i%
34 round%=5: pl%=2
36 dim y%(5):dim y2%(10):dim y3%(15):dim y4%(20)
37 for i%=0 to 5
38 y%(i%-1)=640
40 y2%(i%+4)=640
42 y3%(i%+9)=640
44 y4%(i%+14)=640
47 next i%
100 SPRITEMOVE str$(cv%),33,y%
101 SPRITEMOVE str$(cv2%),44,y2%
102 SPRITEMOVE str$(CV3%),55,Y3%
103 SPrITEMOVE str$(CV4%),66,Y4%
149 for i%=1 to 5
150 if spritehit (str$(cv2%(i%)),str$(cv2%(i%-1))) then goto 200
151 if spritehit (str$(cv2%(i%+4)),str$(cv2%(i%+3))) then goto 203
152 if spritehit (str$(cv3%(i%+9)),str$(cv3%(i%+8))) then goto 206
153 if spritehit (str$(cv4%(i%+14)),str$(cv4%(i%+13))) then goto 209
154 next i%
160 y%=y%+pl%: y2%=y2%+pl%
161 y3%=y3%+pl%: y4%=y4%+pl%
162 round%=round%-1
163 if round%<=0 then goto 250
164 sleep 100
180 goto 100
200 y%=cv%
201 Y%=y%-2
202 goto 151
203 y2%=cv2%
204 Y2%=y2%-2
205 goto 152
206 y3%=cv3%
207 Y3%=y3%-2
208 goto 153
209 y4%=cv4%
210 Y4%=y4%-2
211 goto 154
250 r%=2+mod(rnd(1),2)
252 r1%=2+mod(rnd(1),2)
253 round%=5
254 if r%=1 then goto 300
255 if r%=2 then goto 320
256 if r%=3 then goto 340
257 if r%=4 then goto 360
300 y%(block%)=-19
301 spritegel str$(cv%*block%),str$(r1%)
302 block%=block%+1
303 if block%>=5 then block%=0
304 goto 100
320 y2%(block2%)=-19
321 spritegel str$(cv2%*block2%),str$(r1%)
322 block2%=block2%+1
323 if block%>=10 then block%=5
324 goto 100
340 y3%(block3%)=-19
341 Spritegel str$(cv3%*block3%),str$(r1%) 
342 block3%=block3%+1
343 if block3%>=15 then block3%=10
344 goto 100
360 y4%(block4%)=-19
361 spritegel str$(cv4%*block4%),str$(r1%)
362 block4%=block4%+1
363 if block4%>=20 then block4%=15
364 goto 100