10 fullscreen
20 cls
30 gelload "a","Tanku.png"
40 gelload "b","Tankd.png"
50 gelload "c","Tankl.png"
60 gelload "d","Tankr.png"
70 gelload "e","patron.png"
80 gelload "f","soft.png"
90 gelload "g","fon.png"
100 drawgel "f",0,0
110 sleep 2000
120 cls
130 drawgel "g",0,0
140 x%=88:y%=110
150 d%=1000:e%=0
160 spritegel "tank","a"
170 spritemove "tank",x%,y%
180 if up(0) then spritegel "tank","a":g%=0:sleep 30:y%=y%-1
190 if down(0) then spritegel "tank","b":g%=1:sleep 30:y%=y%+1
200 if left(0) then spritegel "tank","c":g%=2:sleep 30:x%=x%-1
210 if right(0) then spritegel "tank","d":g%=3:sleep 30:x%=x%+1
220 if x%<0 then x%=0
230 if x%>176 then x%=176
240 if y%<0 then y%=0
250 if y%>220 then y%=220
260 goto 170
270 spritegel "pat","e"
280 spritemove "pat",d%,e%
290 if fire(0) and g%=0 then d%=x%+12:e%=y%:sleep 15
300 e%=e%-1
310 goto 300
320 if fire(0) and g%=1 then d%=x%+12:e%=y%:sleep 15
330 e%=e%+1
340 goto 330
350 if fire(0) and g%=2 then d%=x%:e%=y%+12:sleep 15
360 d%=d%-1
370 goto 360
380 if fire(0) and g%=3 then d%=x%:e%=y%+12:sleep 15
390 d%=d%+1
400 goto 390
410 goto 280
420 goto 420
430 end