Dim As Integer q = 1,w = 2, e = 3 ,r=5
#Define a/b<>d/c (((a)<>(b))And((d)<>(c)))
If q/w<>e/r  Then ? "ASDFDS"

For k As Integer = -5 To 5
For j As Integer = -5 To 5
For i As Integer = -5 To 5
    If k/j<>k/i  Then ? k;"<>";j;" & ";k;"<>";i Else ? k;"<>";j;" = ";k;"<>";i
Next
Next
Next

Sleep

  #Undef MAX
  #define MAX(a, b) IIf((a) > (b), (a), (b))
   
  #Undef MIN
  #define MIN(a, b) IIf((a) < (b), (a), (b))
   
  #Undef CLAMP
  #define CLAMP(x, low, high) IIf((x) > (high), (high), IIf((x) < (low), (low), (x)))
   
  #Define to255(v)    ( Max( 0, Min( 255, 256 * v)))
    

  #macro Repeat( count )
   scope
    dim __counter__ as uinteger = count
    while( __counter__)
  #endmacro

  #macro end_repeat
     __counter__ -= 1
    wend
   end scope    
  #EndMacro

  repeat(4)
   print "outer"
   repeat(3)
    print "--- inner"
   end_repeat
  end_repeat
  Sleep
    

  #define BUFFER_SIZE (1024 * 512)
  Static As UByte chunk(0 To (BUFFER_SIZE - 1))
  #Define buffer (@chunk(0))
  *buffer
    

  '--- V3 Vector3D------------------------------------------

  Type V3 : As Single x,y,z,w,c : End Type
  #Define vct Type<V3>
  #Define setVec(x_,y_,z_,c) Type<V3>(x_,y_,z_,1.0,c)
  Operator + (v1 As v3,v2 As v3) As v3  : Return Type<v3>(v1.x+v2.x,v1.y+v2.y,v1.z+v2.z)  : End Operator
  Operator -(v1 As v3,v2 As v3) As v3  : Return Type<v3>(v1.x-v2.x,v1.y-v2.y,v1.z-v2.z)  : End Operator
  Operator * (f As Single,v1 As v3) As v3 : Return vct(f*v1.x,f*v1.y,f*v1.z)      : End Operator
  Operator * (v1 As v3,f As Single) As v3 : Return f*v1 : End Operator
    

  #Macro OpenF ( Opt , path)
  Open path For Opt As #1
  #EndMacro

  OpenF(Output,"1.txt")
  Close
  OpenF(Binary,"2.txt")
  Close

  ''' --------------------------------

  #Macro OpenF ( Opt)
  #If Opt = 1
  Open "1.txt" For Output As #1
  #ElseIf Opt = 2
  Open "2.txt" For Binary As #1
  #EndIf
  #EndMacro

  OpenF(1) ' <- Output
  Close
  OpenF(2) ' <- Binary
  Close
    

  #Define Intrange(f,l) Int(Rnd*(((l)+1)-(f))+(f))' Случайное целое
    

  #define iup_isshift(_s) Print _s
  #define isshift     iup_isshift

  iup_isshift(25)
  isshift(25)
  Sleep
    

  #Define pointFromLine( pt_x,pt_y, lx,ly,l2x,l2y) IIf( (ly - pt_y)*(l2x - pt_x)-(lx - pt_x)*(l2y - pt_y) < 0, true, false)
    

  Type real As Single

  #define realDef(n_) As real n_
  #define realDim(n_) Dim realDef(n_)

  #define min(x,y) IIf( (x)<(y),(x),(y) )
  #define max(x,y) IIf( (x)>(y),(x),(y) )

  #define clamp(x,mi,ma) IIf( (x)<(mi),(mi), IIf( (x)>(ma),(ma),(x)) )
  #define clamp01(x) clamp((x),0,1)

  ' #################
  ' # vector3 x,y,z #
  ' #################
  #define v3Def(n_) As real _
    n_##x=Any, n_##y=Any, n_##z=Any
  #define v3Dim(n_) Dim v3Def(n_)
  #define v3Set(n_,b,c,d) _
    n_##x = b : n_##y = c : n_##z = d
  #define v3opv3(a,b,c,o) a##x = b##x o c##x : a##y = b##y o c##y : a##z = b##z o c##z
  #define v3ops(a,b,c,o) a##x = b##x o c : a##y = b##y o c : a##z = b##z o c
  ' a = b op c (vector xyz)
  #define v3Add(a,b,c) v3opv3(a,b,c,+)
  #define v3Sub(a,b,c) v3opv3(a,b,c,-)
  #define v3Muls(a,b,c) v3ops(a,b,c,*)
  ' a+=b
  #define v3Inc(a,b) a##x+= b##x : a##y+= b##y : a##z+= b##z
  ' a=b
  #define v3Cpy(a,b) a##x = b##x : a##y = b##y : a##z = b##z
  #define v3LengthSQ(a) a##x * a##x + a##y * a##y + a##z * a##z
  ' dot = a . b
  #define v3Dot(a,b) a##x * b##x + a##y * b##y + a##z * b##z

  #Macro v3Unit(n_)
  Scope
    Dim As real L2 = v3LengthSQ(n_)
    If L2 Then L2=1/Sqr(L2) : n_##x*=L2 : n_##y*=L2 : n_##z*=L2
  End Scope
  #EndMacro
  ' a = normalize(b) (safe)
  #Macro v3Norm(a,b)
    Scope
   v3Cpy(a,b)
   Dim As real l2 = v3LengthSQ(b)
   If l2 Then l2=1/Sqr(l2) : a##x*=l2:a##y*=l2:a##z*=l2
    End Scope
  #EndMacro