10 cls
20 for i%=1 to 18
30 gelload str$(i%),str$(i%)+".png"
40 next i%:repaint
41 spritegel "9","9"
42 spritegel "10","10"
50 drawgel "1",0,0:repaint:sleep 3000
60 drawgel "2",0,0:sleep 3000
70 drawgel "3",0,0:sleep 1500
80 drawgel "4",0,0:sleep 1500
90 drawgel "5",0,0:sleep 2000
100 drawgel "6",0,0:repaint
110 for s1%=1 to 5000
111 if down(0) then goto 150
112 if up(0) then goto 200
120 if fire(0) then goto 260
130 repaint:sleep s1%
140 next s1%
150 drawgel "7",0,0
160 for s1%=1 to 5000
161 if down(0) then goto 200
162 if up(0) then goto 100
170 if fire(0) then goto 260
180 repaint:sleep s1%
190 next s1%
200 drawgel "8",0,0
210 for s1%=1 to 5000
211 if down(0) then goto 100
212 if up(0) then goto 150
220 if fire(0) then goto 260
230 repaint:sleep s1%
240 next s1%
241 repaint
250 goto 100
260 drawgel "5",0,0:sleep  1500
270 spritemove "9",0,0:sleep 1500
280 spritemove "10",0,0:sleep 2000
290 drawgel "11",0,0:sleep 3000:repaint