Изучение основ FreeBasic в сравнении с PowerBasic

TYPE Persons
    Name AS STRING
    Surname AS STRING
    Age AS BYTE = 35
END TYPE
 
DIM Vpersons AS Persons
 
Vpersons.Name="Richard"
Vpersons.Surname="Black"
 
? Vpersons.Name
? Vpersons.Surname
? Vpersons.Age
Sleep

#COMPILE EXE
#DIM ALL
 
TYPE Persons
  Name AS STRING*10       'если здесь написать "Name AS STRING", компилятор бастует
  Surname AS STRING*10   'если здесь написать "Surname AS STRING", компилятор бастует
  Age AS BYTE           'значение по умолчанию здесь присвоить не получится
END TYPE
 
FUNCTION PBMAIN () AS LONG
DIM Vpersons AS Persons
 
  Vpersons.Name="Richard"
  Vpersons.Surname="Black"
  Vpersons.Age = 35
 
  ? Vpersons.Name
  ? Vpersons.Surname
  ? Vpersons.Age
 
  SLEEP 5000    'если SLEEP без указания продолжительности, компилятор бастует
END FUNCTION

Sub SetCartesian(ByVal hDC As HDC, ClientWidth As Long, ClientHeight As Long)
    Dim cxOrig As Long = ClientWidth \ 2
    Dim cyOrig As Long = ClientHeight \ 2
    Dim AntiHeight As Long = -1 * ClientHeight
    
    SetMapMode(hDC, MM_ISOTROPIC)
    SetWindowExtEx(hDC, ClientWidth, ClientHeight, NULL)
    SetViewportExtEx(hDC, ClientWidth, AntiHeight, NULL)
    SetViewportOrgEx(hDC, cxOrig, cyOrig, NULL)
End Sub
 
Sub OnPaint(ByVal hWin As HWND, ByVal hDC As HDC, ByVal prcPaint As RECT Ptr)
    
    SetGraphicsMode(hDC, GM_ADVANCED)
    
    Dim rcClient As RECT = Any
    GetClientRect(hWin, @rcClient)
    Dim ClientWidth As Long = rcClient.right
    Dim ClientHeight As Long = rcClient.bottom
    
    SetCartesian(hDC, ClientWidth, ClientHeight)
    
    ' Матрица поворота с масштабированием
    Dim Matrix2D As XFORM = Any
    Matrix2D.eM11 = 0.865999997
    Matrix2D.eM12 = 0.5
    Matrix2D.eM21 = -0.25
    Matrix2D.eM22 = 0.432999998
    Matrix2D.eDx = 0.0
    Matrix2D.eDy = 0.0
    ModifyWorldTransform(hDC, @Matrix2D, MWT_LEFTMULTIPLY)
    
    Dim WidthHeightMin As Long = min(ClientWidth \ 2, ClientHeight \ 2)
    
    For radius As Integer = WidthHeightMin To 20 Step -20
        Dim nLeft As Long = -1 * radius
        Dim nTop As Long = -1 * radius
        Dim nRight As Long = radius
        Dim nBottom As Long = radius
        
        Ellipse(hDC, nLeft, nTop, nRight, nBottom)
    Next
    
    ModifyWorldTransform(hDC, NULL, MWT_IDENTITY)
    
    MoveToEx(hDC, 0, -1 * ClientHeight, NULL)
    LineTo(hDC, 0, ClientHeight)
    MoveToEx(hDC, -1 * ClientWidth, 0, NULL)
    LineTo(hDC, ClientWidth, 0)
    
End Sub