%DeclareBeg  $$
%New TimeDay
%New ThisDay
%New TimeHour
%New Data
%New Flag
%New Compare
%New IP
%New Print
%New Port
%New Retry
%New Time
%New Compare
%New FN
%New INN
%New ID
%New text
%New count
%New Po
%New poDate
%DeclareEnd

;text raport
%RunCommand(96,"000000")
;software
%RunCommand(128,"000000")
%Set $$Po = %Ret1
%Set $$poDate = %Ret3
%Oper(":",$$Po,5,$$text)
%Oper($$text,"  ",5,$$Po)
%Oper($$Po,$$poDate,5,$$Data)
%RunCommand(97,"000000",$$Data)
%Print $$Data
;activation PO
%Oper(3,0,18,$$Data)
%Oper($$Data,1,17,$$Data)
%Print $$Data
%Oper($$Data,"",10,$$Compare)
%If ($$Compare == 0)
%Then
%RunCommand(97,"000000"," ")
%Else
%RunCommand(97,"000000","%JcMIMH !!!")
%EndIf
;indicator
%Oper(0,0,18,$$Data)
%Oper($$Data,2,17,$$Data)
%Print $$Data
%Oper($$Data,"2",10,$$Compare)
%If ($$Compare == 1)
%Then
%RunCommand(97,"000000","%JcMIMH ")
%Else
%RunCommand(97,"000000"," ")
%EndIf
%RunCommand(40,"000000")
%Set $$Data = %Ret0
%Oper(" : ",$$Data,5,$$text)
%RunCommand(97,"000000",$$text)
;status
%RunCommand(160,"000000")
%Set $$Data = %Ret8
%Oper($$Data,"000000",10,$$Compare)
%If ($$Compare == 1)
%Then
%RunCommand(97,"000000","%JcMI ")
%Else
%Oper("%JcMCMIMH :",$$Data,5,$$text)
%Oper($$text," ",5,$$text)
%Set $$Data = %Ret9
%Oper($$text,$$Data,5,$$text)
%RunCommand(97,"000000",$$text)
%EndIf
;payment, they depend on $$compare from previous block
%If ($$Compare == 1)
%Then
;%Set $$Data = " :"
;%RunCommand(97,"000000",$$Data)
%RunCommand(97,"000000","%JcMCMI :")
%Set $$count = "0"
%Else
%Set $$count = "10"
%EndIf
%While ($$count < 10)
%RunCommand(46,"000000",$$count)
%Set $$Data = %Ret1
%Oper($$Data,0,13,$$Compare)
%If ($$Compare == 1)
%Then
%Oper("). ",$$Data,5,$$Data)
%Oper($$count,$$Data,5,$$Data)
%RunCommand(97,"000000",$$Data)
%Else
%EndIf
%Oper($$count,1,0,$$count)
%EndWhile
;network
%RunCommand(97,"000000","%JcMCMI :")
A6000000;3;;;
;user
;%RunCommand(97,"000000","was repaired by Y.Y.")
;advertising
%RunCommand(97,"000000","%JcMCMI :")
%Set $$count = "10"
%While ( $$count < 14)
%Print $$count = "10"
%RunCommand(35,"000000",$$count)
%Set $$Data = %Ret0
%Oper($$Data,0,13,$$Compare)
%If ($$Compare == 1)
%Then
%RunCommand(97,"000000",$$Data)
%Else
%EndIf
%Oper($$count,1,0,$$count)
%EndWhile
%RunCommand(101,"000000",0)
;END OF TEST BLOCK