Graphics 1024,768,32,1 
fntArialI=LoadFont("Courier New Cyr",37,True,False,False)
SetFont fntArialI 
Color 255,0,0
fon=LoadImage ("textures/blood.jpg")
DrawImage fon,0,0
c#=1
re=LoadImage ("textures/re.jpg")
While Not KeyHit ( 1 )
If KeyHit(205) Then c#=c#+1
If c#=1 Then
DrawImage re,450,300
cn$=("fsdfs")
co2$=("fsdfsd")
co3$=("sdfsdf")
co4$=("sdfsdfsd")
co5$=("sdfsdfsd")
Text 450,100,("")+cn$
Text 10,450,("")+co2$
Text 10,490,("")+co3$
Text 10,530,("")+co4$
Text 10,570,("")+co5$
EndIf
Wend
Flip
End