Globales.bas, Módulo de definición de la estructura de los archivos ASCII planos y de las variables globales

Globales.bas
Type configuracion
  nombre As String * 30
__variables As String * 3
__varrep1 As String * 10
__varrep2 As String * 10
__Label1 As String * 25
__Label2 As String * 25
__Label3 As String * 25
__Label4 As String * 25
__Label5 As String * 25
__Label6 As String * 25
__Label7 As String * 25
__Label8 As String * 25
__Label9 As String * 25
__Label10 As String * 25
__comb11 As String * 30
__comb12 As String * 30
__comb13 As String * 30
__comb21 As String * 30
__comb22 As String * 30
__comb23 As String * 30
__comb31 As String * 30
__comb32 As String * 30
__comb33 As String * 30
__comb41 As String * 30
__comb42 As String * 30
__comb43 As String * 30
__var1 As String * 8
__var2 As String * 8
__var3 As String * 8
__var4 As String * 8
__var5 As String * 8
__var6 As String * 8
__var7 As String * 8
__var8 As String * 8
__var9 As String * 8
__var10 As String * 8
__ftribunal As String * 1
__fciudad As String * 1
__fjuez As String * 1
__fsecretario As String *1
End Type

Type historial
  fecha As String * 10
__rol As String * 15
__documento As String * 15
__movimiento As String * 35
__caratula As String * 30
End Type

Type datosfijos
  juez As String * 35
__secretario As String * 35
__tribunal As String * 20
__ciudad As String * 20
__actuario As String * 20
__password As String * 15
End Type

Global conf As configuracion, histo As historial, fij As datosfijos
Global posicion, plantilla

Global Const arhisto = "C:\mis documentos\historial.dat", _
  archconf = "C:\mis documentos\confi.dat"
Global Const arfijo = "c:\mis documentos\datfij.dat", _
  largoC = 800, largof = 200