Gosub start

Const one = 1

Common a As Integer
Dim b As Integer
DIM AS STRING str
dim as string c(20), d="a", e
dim shared as string g
dim as string ptr h
dim as string * 4096 i
dim j as string="Export_GIR_FULL_"+mid(date,7)+","+mid(date,1,2)+""+mid(date,4,2)+".csv"
dim as string k="Export_GIR_FULL_"+mid(date(),"(")+","+mid(date,1,2)+""+mid(date,4,2)+".csv", l

Type test
    a As Integer
    b As Integer
End Type

Function f()
    a = 3
End Function

start:
    f()
Return


