local rand = g.random(max)
local lin= g.ligne
local prtnb = g.print
local cur = g.curseur
local input = g.inputnum
local wait = g.wait
local prt = g.letter
local pix = g.pixl
local lin = g.ligne
local choix
local BOUCLEMAX = 5000
local sprite1 = "\000\000\000\000ÿÿÿÿTUÿÿUÕª*«êW•ü_Àùÿª:£ê_•\\U÷ÇIý*8ãïÿ“U÷ÇIÿª8ãïÿ’T÷ÇÉÿª:ãï¿’\\UWÅ©úú?àÿŸTUWÕ©êª*ÿÿ«ª\000\000ÿÿÿÿ\000"
local function spr (x,y,sprt)
pushxspr x
drawspr y, sprt
end

local function DoLpWhEXE()
while key(5) do wait(1) end
repeat wait(1) until key(5)
end

local function locate(y,x,string)
cur(y,x)
prtnb(string)
end

local function Set5G()
g.setcolor(true)
g.misc("cont",-1)
g.misc("cont",-1)
end
local function SetNB()
g.setcolor(false)
end

---------------------------------------
clear nil
SetNB()
locate(1,1,"Type the func n°")
locate(2,1,"0. Empty (refresh)")
locate(3,1,"1. Counter")
locate(4,1,"2. Blinkin' Pixel")
locate(5,1,"3. Sprite")
choix=input()
Set5G()
lin(1,1,127,63,4,0)
lin(2,64,127,64,2)
lin(128,2,128,64,2)
refresh
prt(3,57,"Pret. Pressez [EXE]")
refresh
DoLpWhEXE()
	if choix==0 then
		for i=1,BOUCLEMAX,1 do
			refresh
		end
	end		if choix==1 then
		for i=1,BOUCLEMAX,1 do
			prt(3,3,i)
			refresh
		end
	end
	if choix==2 then
		for i=1,BOUCLEMAX,1 do
			pix(3,3,i%5)
			refresh
		end
	end
	if choix==3 then
		for i=1,BOUCLEMAX,1 do
			spr(3,3,sprite1)
			refresh
		end
	end
	if choix==4 then
		for i=1,BOUCLEMAX,1 do
			lin(i%122+3,3,i%122+3,56,4)
			refresh
		end
	end
prt(90,57,"fini")
refresh
DoLpWhEXE()