Family Show.
include "gp.inc"
OpenWindow 128,128,1
sys x=1, button
Loadimage "shock/shock1.png",1
Loadimage "shock/shock2.png",1
Loadimage "shock/shock3.png",1
Loadimage "shock/shock4.png",1
Loadimage "shock/shock5.png",1
Loadimage "shock/shock6.png",1
Loadimage "shock/shock7.png",1
Loadimage "shock/shock8.png",1
Loadimage "shock/shock9.png",1
Loadimage "shock/shocka.png",1
Loadimage "shock/shockb.png",1
Loadimage "shock/shockc.png",1
Loadimage "shock/shockd.png",1
Loadimage "shock/shocke.png",1
Loadimage "shock/shockf.png",1
Loadimage "shock/shockg.png",1
Loadimage "shock/shockh.png",1
Loadimage "shock/shocki.png",1
while KeyDown(27)=0
DrawImage x,0,0,0
iF MouseButton()=1 and Button()=0
Button=1
inc x
iF x>18 Then x=1
End iF
iF MouseButton()=0 Then Button=0
Sync
wend
CloseWindow
.