11 FOR i%=0 to 3
12 gelload str$(i%),str$(i%)
15 next i%
16 FOR I%=0 TO 4
17 SPRITEGEL str$(cv%(i%)),"0"
18 spritegel str$(cv2%(i%)),"1"
19 spritegel str$(cv3%(i%)),"2"
20 spritegel str$(cv4%(i%)),"3"
21 NEXT I%
22 Dim cv%(5):dim cv2%(5)
23 dim cv3%(5):dim cv4%(5)
24 for i%=0 to 4
25 cv%(i%)=i%
26 cv2%(i%)=i%+5
28 cv3%(i%)=i%+10
30 cv4%(i%)=i%+15
33 next i%
34 round%=5: pl%=2
36 dim y%(5):dim y2%(5)
37 dim y3%(5):dim y4%(5)
38 for i%=0 to 4
39 y%(i%)=640
40 y2%(i%)=640
41 y3%(i%)=640
42 y4%(i%)=640
43 next i%
44 blok%=0: blok2%=5
45 blok3%=10: blok4%=15
100 SPRITEMOVE str$(cv%),38,y%
101 SPRITEMOVE str$(cv2%),83,y2%
102 SPRITEMOVE str$(CV3%),128,Y3%
103 SPrITEMOVE str$(CV4%),173,Y4%
149 for i%=0 to 3
150 if spritehit (str$(cv%(i%+1)),str$(cv%(i%))) then y%=cv%-2 
151 if spritehit (str$(cv2%(i%+1)),str$(cv2%(i%))) then y2%=cv2%-2
152 if spritehit (str$(cv3%(i%+1)),str$(cv3%(i%))) then y3%=cv3%-2
153 if spritehit (str$(cv4%(i%+1)),str$(cv4%(i%))) then y4%=cv4%-2
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
250 r%=1+ABS(MOD(RND(0),4))
252 r1%=0+ABS(MOD(RND(0),3))
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%>=19 then block4%=15
364 goto 100