Do you know what this script does exactly ?

[toysoft]

I put the script and applic14 ..

Sub Main ()
Sc.Write ("A4 CA 04 00 03"): RX
Sc.Write ("Oct. 30, 26"): RX
PIN: Sc.Write ("9007"): RX
PIN: Sc.Write ("0010"): RX
PIN: Sc.Write ("3100"): RX
PIN: Sc.Write ("3271"): RX
PIN: Sc.Write ("1320"): RX
PIN: Sc.Write ("1444"): RX
PIN: Sc.Write ("0547"): RX
PIN: Sc.Write ("1674"): RX
PIN: Sc.Write ("1707"): RX
PIN: Sc.Write ("6034"): RX
PIN: Sc.Write ("6131"): RX
PIN: Sc.Write ("6276"): RX
PIN: Sc.Write ("7356"): RX
PIN: Sc.Write ("5426"): RX
PIN: Sc.Write ("5546"): RX
End Sub

Under (PIN)
Sc.Write ("CA January 24, 00 10"): RX
Sc.Write ("00 00 00 00 00 00 00 00 00 00 00 00 00 00")
End Sub

RX function
Sc.Delay (200)
Sc.Read (Sc.BytesInBuffer)
End Function