10 gl "image","file:///e:/image.png"
20 dg "image",0,0
21 repaint
22 sleep 1500
30 gl "alpha","file:///e:/alpha2.png"
40 ax%=8:ax2%=9
50 gg "alpha",ax%,0,ax2%,1
60 sg "alpha","alpha"
70 sx%=0:sy%=0
80 sm "alpha",sx%,sy%
90 if sx% <> 240 then sx%=sx%+1
91 if sx% = 240 then goto 110
100 goto 80
110 if sy% <> 320 then sy%=sy%+1
111 if sy% = 320 then goto 140
120 sx%=0
130 goto 80
140 REPAINT
150 SLEEP 50
160 if ax% = 0 then goto 200
170 ax%=ax%-1
180 ax2%=ax2%-1
190 goto 50
200 SLEEP 1000
210 GOTO 10