modheader.bas

来自「an example of programming philips pegoda」· BAS 代码 · 共 33 行

Attribute VB_Name = "modHeader"
Option Explicit

Global Const MIF_LIGHT = &H1
Global Const MIF_STANDARD = &H8
Global Const MIF_PLUS = &H10

' Modes for 'Mf500InterfaceOpen':
Global Const USB = &H31&
Global Const RS232 = &H40&

' Options for 'Mf500InterfaceOpen':
Global Const COMPORT_1 = 1
Global Const COMPORT_2 = 2

Global keyA(0 To 5) As Byte
Global keyB(0 To 5) As Byte
Global keyF(0 To 5) As Byte

Global gBlock As Byte
Global gats As Byte
Global gadr As Byte
Global gtt(0 To 1) As Byte
Global gsnr(0 To 3) As Byte
Global gdata(0 To 15) As Byte
Global gkeyCoded(0 To 11) As Byte

Global atq(2) As Byte
Global sak As Byte
Global uid(10) As Byte
Global uid_len As Byte