Code: Select all
[b]Const RADIUS = 10[/b]
Const PEN = 10
Declare Function main_procedure() As Integer
main_procedure()
Function main_procedure() As Integer
Dim As String canvas(Radius * 5, Radius * 5)
Dim As String foreground = "0 "
Dim As String background = ". "
[b]Const As Integer Radius = Radius[/b]
...
return 0
End Function
Code: Select all
const as integer Radius=RADIUS
Thanks in advance for any help.