[Markova]

да
Function FunctionU(A,b)
U=A*b
Return U
End Function
Text 10,10,FunctionU(9,9)

А что, ты с С++ на блитз ушел обычно на оборот =)

Type Generate
     Field GenerateUPS
    End Type

Global GenerateUPS%
Function Generate(GUPS,GPriod,GRndM)
Gperiod=GPriod/GUPS
Gtime=MilliSecs()-Gperiod
    Repeat
        Gelapsed=MilliSecs()-Gtime
Local G.Generate=New Generate
     G\GenerateUPS=Rnd(0,GRndM)
      Until Gelapsed
End Function 

   Graphics 1024,768,32,2
   SetBuffer BackBuffer()
   SetFont LoadFont("courier",14,1)

Global GenerateEnter%
;или;Generate(1000,60,8)    
Repeat

If KeyDown (2)  

Generate(1000,60,8)    
For G.Generate= Each Generate
using=G\GenerateUPS
usingX=G\GenerateUPS
usingY=G\GenerateUPS
Next
For G.Generate= Each Generate
Delete G
Next

EndIf

    Cls 
    
 Color 100,100,100
If using>0 Then Texts$="1 using"  
If using>4 Then Texts$="2 using" 
If using>2 Then Texts$="3 using" 
If using>3 Then Texts$="4 using" 
If using>5 Then Texts$="5 using"  
If using>6 Then Texts$="6 using" 
If using>7 Then Texts$="7 using" 
If using>8 Then Texts$="8 using" 
Text usingX*50,usingY*50,Texts$

 Flip

Forever
For v.Generate= Each Generate
    Delete G
Next
End