!             ?

      
regsvr32.exe c:\SBRF\sbrf.dll
regsvr32.exe c:\SBRF\sbrfcom.dll

  Data
Loc:Pilot  SBRFClass

  Code
  !    pilot_nt.dll
  !     -      SB_PILOT_NT_PATH
  Loc:Pilot.DllPathName = 'C:\SBRF'
  
  If Loc:Pilot.Init()  !     
  
     If Loc:Pilot.TestPinpad()
        Sbrf::Message('      !')
     else   
        Sbrf::Message('         !')
     end   

     !  
     If Loc:Pilot.Payment(1234.56)
        Sbrf::Message(Loc:Pilot.Buffer.Str())     ! C-
        
        If Int(Loc:Pilot.gAnswer.SberOwnCard)     !    ->  ID 
           Sbrf::Message(Loc:Pilot.gAnswer.CardID)
        end
     else
        Sbrf::ViewError(Loc:Pilot.GetError())     ! 
     end     

     !  
     If Loc:Pilot.MoneyBack(1234.56)
        Sbrf::Message(Loc:Pilot.Buffer.Str())     ! C-
     else
        Sbrf::ViewError(Loc:Pilot.GetError())     ! 
     end   
     
     !  
     If Sbrf::AskMe('  ?')      
        If Loc:Pilot.CloseDay()
           Sbrf::Message(Loc:Pilot.Buffer.Str())  ! C-
        else
           Sbrf::ViewError(Loc:Pilot.GetError())  ! 
        end
     end   
  
     Loc:Pilot.Kill()  !  
  end

  !       
  If Sbrf::AskMe('      ?')
     If Sbrf::PerformOper(5)
        Sbrf::Message('    !')
     else   
        Sbrf::Message('    !')
     end
  end
