modulo1.bas

Public ruta As String
Public renglon As Integer
Public textoagregado1 As String
Public textoagregado2 As String
Public espaciado As String
Public invertido As String
Public linea1 As String
Public linea2 As String
Public linea3 As String
Public bandera As Integer
Public detiene As Integer
Public detenertest As Integer
Public volver As Integer
Public llama_final As Integer

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)


Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)