Private Sub FiscalPrint()
Dim Ret As Int
SendCommand(CreateCommand(cmdGetStatus, ""))
Ret = GetAnswer()
Select Case Ret
Case 0: 'Do nothing
Case 1: 'Transaction started, waiting payment
SendCommand(CreateCommand(cmdPayment, "100"))
Ret = GetAnswer()
SendCommand(CreateCommand(cmdFinish, ""))
Ret = GetAnswer()
Case 2: 'Transaction started, payment complete, print receipt
SendCommand(CreateCommand(cmdFinish, ""))
Ret = GetAnswer()
End Select
SendCommand(CreateCommand(cmdStart, ""))
Ret = GetAnswer()
SendCommand(CreateCommand(cmdItemSale, "Beer;10;2.50"))
Ret = GetAnswer()
SendCommand(CreateCommand(cmdItemSale, "Chips;5;1.50"))
Ret = GetAnswer()
SendCommand(CreateCommand(cmdPayment, "100"))
Ret = GetAnswer()
SendCommand(CreateCommand(cmdFinish, ""))
Ret = GetAnswer()
End Sub