Multitech MT2834BL User Manual download pdf (Page 7)

Need2InitModem=FALSE

Cls

Print "Initializing the Modem"

Print "For the first time!";

If online% Then

Cls

Print "Can't Init Modem"

Print "While online with host";

Sleep 3

Else

Print #ComDev, ModemInit + Chr$(13)

Exit Do

End If

Loop

Cls

'----------------------------------

'Main Execution Loop

'----------------------------------

'++++HANDLE DISPLAY+++

Locate 1,1

'<+> indicates online <-> indicates offline

'<H> indicates modem connected (Carrier Detect High)

'<L> indicates modem not-connected (CD Low)

i% = online%

Print Time$+" <" + symbol + "><" + symbol2 + "> "

Print "Swipe a Badge";

'+++++++++++++++++++++

'++++HANDLE MODEM++++

'Check the modem to see if we need to re-initalize

CDLast=CDState

CDState=GetCDState%

If Not Need2InitModem Then

If CDState<>CDLast Then 'something has changed

If CDState Then 'CD HIGH

'We are currently connected!

Need2InitModem=FALSE

ElseIf CDLast Then 'CD was high is now low

'We disconnected and need to reset the modem

Need2InitModem=TRUE

End If

Else

'We need to init the modem

'but can only do so safely when we are offline

If Not online% Then

Print #ComDev, ModemInit +Chr$(13)

Need2InitModem=FALSE

Locate 2,1

Print " ";

Locate 2,1

Print "Sent Modem Init!"

Sleep 1

Beep

End If

'++++++++++++++++++++

'++++HANDLE BADGE SWIPE++++

If EOF(BarDev) Then

Line Input #BarDev, BadgeSwipe$

Sound 1200,1

Locate 2,1

Print" ";

Locate 2,1

Print BadgeSwipe$;

Sleep 1

Print #HostDev, DATE$+"|"+Time$+"|"+BadgeSwipe$+"|"+Symbol

1 2 3 4 5 6 7 8

Comments to this Manuals

No comments

Multitech MT2834BL User Manual Page 7

Comments to this Manuals

Related products and manuals for Networking Multitech MT2834BL