21 lines
303 B
Text
21 lines
303 B
Text
'FB 1.05.0 Win64
|
|
|
|
#Undef Private
|
|
#Undef Protected
|
|
#Define Private Public
|
|
#Define Protected Public
|
|
|
|
Type MyType
|
|
Public :
|
|
x As Integer = 1
|
|
Protected :
|
|
y As Integer = 2
|
|
Private :
|
|
z As Integer = 3
|
|
End Type
|
|
|
|
Dim mt As MyType
|
|
Print mt.x, mt.y, mt.z
|
|
Print
|
|
Print "Press any key to quit"
|
|
Sleep
|