[slinkelist] Porlem trying to control a Sony CDP-CX450

Kevin O'Brien kobrien@neonsys.com
Sun, 10 Dec 2000 18:20:06 -0600


--0__=sMAk46hajHSAKoXaEPnlCMg6DWEDQE7McCvT8LwR7rNnzkV6BLWPtnL0
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline





Kevin O'Brien@NEON
12/10/2000 06:20 PM

I am a rookie to using the Slink-e activeX control, so I apologise if what
I am asking is very basic.  I wrote a simple VB program using the sample TV
(VB). I changed it to use the files CDSLS.CDE and CDSLR.CDE. The program
receives events from the cd player. However, when I try to issue commands,
the commands appear to be accepted but not acted upon.  ANyone know what I
am doing wrong. It must be my code, since CDJ works fine.

Thank you.

(See attached file: cdsls.cde)(See attached file: cdslr.cde)(See attached
file: Form1.frm)(See attached file: Project1.vbp)(See attached file:
Project1.vbw)


Dim sendname As String

Private Sub Command1_Click()
    result = Slinkx.Send(sendname, Text1.Text)
End Sub

Private Sub Form_Load()
    Call InitDevice
End Sub

Private Sub Slinkx_SlinkeDeviceEvent(Device As String, Message As String)
    Label1.Caption = Device
    Label2.Caption = Message


End Sub
Private Sub InitDevice()
Dim devID As Long
Dim slinkenum As Long
Dim portnum As Long
Dim devfile As String
Dim devtext As String


If (Slinkx.NumSlinkes < 1) Then
    MsgBox ("The server as found no Slink-es. This application cannot
run.")
    End
End If


devID = 1
slinkenum = 1
Rem map to all 8 ir ports
portnum = &HFFF

sendname = "cd player"
Rem instead of loading a device file like this:
Rem devfile = App.Path + "\tv.cde"
Rem x = Slinkx.AddDevice(sendname, devfile, devID, slinkenum, portnum)

Rem you can also provide the file contents as text like this:
Rem you must append any include files manually as the server won't try to
parse
Rem any include files when you send text
devfile = App.Path + "\cdslr.cde"
Open devfile For Binary As #1
devtext = Input(LOF(1), 1)
Close (1)
devfile = App.Path + "\cdsls.cde"
Open devfile For Binary As #1
devtext = devtext + Input(LOF(1), 1)
Close (1)
x = Slinkx.AddDeviceText(sendname, devtext, devID, slinkenum, portnum)
Rem this is advantageous for DCOM slink-e servers since you don't know if
they will
Rem have your device files or not



Rem show unmatched data
Slinkx.ReportNoMatch = 1


Rem demonstrate the use of low-level commands
Rem this also causes lowlevel events to come back

Rem instead of loading a device file like this:
Rem devfile = App.Path + "\lowlevel.cde"
Rem x = Slinkx.AddDevice("lowlevel", devfile, devID, slinkenum, 0)

Rem you can also provide the file contents as text like this:
Rem x = Slinkx.AddDeviceText("lowlevel", "type=lowlevel", devID, slinkenum,
 0)
Rem this is advantageous for DCOM slink-e servers since you don't know if
they will
Rem have your device files or not

Rem x = Slinkx.SendEx("lowlevel:baud[38400] lowlevel:irmml[11]
lowlevel:irto[100000.0] lowlevel:irts[100.0] ")
Rem x = Slinkx.Send("lowlevel", "parread[]")
Rem x = Slinkx.SendEx("lowlevel:irrxporten[15] lowlevel:irrxportpol[31]")

End Sub

--0__=sMAk46hajHSAKoXaEPnlCMg6DWEDQE7McCvT8LwR7rNnzkV6BLWPtnL0
Content-type: application/octet-stream; 
	name="cdsls.cde"
Content-Disposition: attachment; filename="cdsls.cde"
Content-transfer-encoding: base64

IyBTb255IFMtbGluayBjb21tYW5kcyBmb3IgdGhlIGNkcC1jeDIwMA0KDQpkZXNjPVNvbnkgQ0RQ
LUNYMjAwIFNlbmQNCm5hbWU9Y2RzbGlua3MgDQoNCnR5cGU9U0xJTksNCg0KaW5jbHVkZT1jZHNs
ci5jZGUNCg0KI0RldmljZSBJRCdzOg0KDQpwcmVmaXg9MTAwMTAwMDAJIzENCnByZWZpeD0xMDAx
MDAwMQkjMg0KcHJlZml4PTEwMDEwMDEwCSMzDQpwcmVmaXg9MTAwMTAwMTEgIzQgDQpwcmVmaXg9
MTAwMTAxMDAgIzUgDQpwcmVmaXg9MTAwMTAxMDEgIzYgDQpwcmVmaXg9MTAwMTAxMTEJI0FMTA0K
c3VmZml4PQ0KDQoNCg0KIyB0aGUgbWVzc2FnZSBjb2RlczoNCiMgbGV0dGVycyBpbiB0aGUgY29k
ZXMgaW5kaWNhdGUgdG8gdGhlIHNvZnR3YXJlIHRoYXQgdGhpcyBpcyBhIHZhcmlhYmxlIHJlZ2lv
bg0KDQpkOnRlc3QgIyB0aGlzIGlzIGEgdGVzdCBjb2RlDQoJICMgeW91IGNhbiB0ZXN0IGFueXRo
aW5nIHdpdGggdGhpcyBjb2RlIGJ5IHB1dHRpbmcgaGV4IGluIGJyYWNrZXRzDQoJICMgZS5nLiB0
ZXN0WzUwMDMwNF0gd2lsbCBwbGF5IGRpc2MgMyB0cmFjayA0DQoNCjAwMDAwMDAwOnBsYXkgDQow
MDAwMDAwMTpzdG9wIA0KMDAwMDAwMTA6cGF1c2UgDQowMDAwMDAxMTpwYXVzZV90b2dnbGUgDQow
MDAwMTAwMDo+PnwNCjAwMDAxMDAxOnw8PA0KMDAwMDExMTA6cXVlcnlfc3RvcmVkDQowMDAwMTEx
MTptb2RlICMgY2F1c2VzIHBsYXllciBtb2RlIHRvIGJlIHJlcG9ydGVkDQowMDAxMDAwMDo+Pj4g
IyBmZndkIHVudGlsIHBsYXkgY29tbWFuZA0KMDAwMTAwMDE6PDw8ICMgZnJldyB1bnRpbCBwbGF5
IGNvbW1hbmQNCjAwMDEwMDEwOj4+ICMgZndkIHVudGlsIHBsYXkgY29tbWFuZA0KMDAwMTAwMTE6
PDwgIyByZXcgdW50aWwgcGxheSBjb21tYW5kDQowMDAxMTExMTpub3JtYWwgIyByZXN1bWUgZnJv
bSBmd2QvcmV3IGZmd2QvZnJldw0KMDAxMDAwMDA6cmVtb3RlX29mZiAjIHRoaXMgc3RvcHMgcGxh
eSwgZGlzYWJsZXMgdGhlIHJlbW90ZSBjb250cm9sLA0KCQkgICAgICAgICMgZnJvbnQgcGFuZWwg
YW5kIGRpc3BsYXkgc28gdGhhdCBhIHJlbW90ZSBkZXZpY2UNCiAgICAgICAgICAgICAgICAgICAg
IyAoaWUgbXkgc29mdHdhcmUpIGlzbid0IGludGVyZmVyZWQgd2l0aC4NCjAwMTAwMDAxOnJlbW90
ZV9vbiAjIGVuYWJsZSB1c2VyIGNvbnRyb2wNCjAwMTAwMDEwOnBsYXllcl90eXBlICMgY2F1c2Vz
IHBsYXllciB0byByZXBvcnQgdHlwZQ0KMDAxMDAwMTE6dW5rMiAjPz8/DQowMDEwMDEwMDpyZXBv
cnRfc290ICMgcmVwb3J0cyB0aGUgc3RhcnQgb2YgdHJhY2sgKHRoYW5rcyB0byBLYW1hbCBNb3N0
YWZhKQ0KMDAxMDAxMDE6dGltZWNvZGVfb24gIyBzdGFydHMgc2Vjb25kIGJ5IHNlY29uZCB0aW1l
Y29kZSByZXBvcnRpbmcgKHBsYXkgbW9kZSkNCgkJCQkjIHJlcG9ydHMgdGltZWNvZGUgb25jZSBp
ZiBwYXVzZWQNCjAwMTAwMTEwOnRpbWVjb2RlX29mZiAjIHN0b3AgcmVwb3J0aW5nDQowMDEwMDEx
MTp1bms0YSAjIGNhdXNlcyBjZF90ZXh0X2luZm8gcmVzcG9uc2UNCjAwMTAxMDAxOnVuazQNCjAw
MTAxMTEwOnBvd2VyX29uIA0KMDAxMDExMTE6cG93ZXJfb2ZmIA0KMDAxMTAwMDA6dW5rNQ0KMDAx
MTAwMDE6dW5rNg0KMDEwMDAwMDBkZGRkZGRkZDpxdWVyeV9tZW1vX3RleHQgI3JldHVybnMgbWVt
byB0ZXh0IGZvciBnaXZlbiBkaXNjDQowMTAwMDAwMWRkZGRkZGRkOnF1ZXJ5X2RlbGV0ZV9maWxl
ICNyZXR1cm5zIGRlbGV0ZSBmaWxlIGZvciBnaXZlbiBkaXNjICANCjAxMDAwMDEwZ2dnZ2dnZ2c6
cXVlcnlfZ3JvdXBfdGV4dCAjcmV0dXJucyB0ZXh0IGZvciBnaXZlbiBncm91cA0KMDEwMDAwMTFn
Z2dnZ2dnZzpxdWVyeV9ncm91cF9kaXNjcyAjcmV0dXJucyBmbGFncyBmb3Igd2hpY2ggZGlzY3Mg
YXJlIGluIHRoZSBnaXZlbiBncm91cA0KDQowMTAwMDEwMGRkZGRkZGRkOnF1ZXJ5X2Rpc2MgIyBk
aXNjICMgbXVzdCBiZSBjdXJyZW50IGRpc2MgZ2l2ZXMgaW52YWxpZF9kaXNjIGlmIGJhZA0KCQkJ
CQkjIHJlcG9ydHMgZGlzYyBpbmZvDQowMTAwMDEwMWRkZGRkZGRkdHR0dHR0dHQ6cXVlcnlfdHJh
Y2sgIyBkaXNjICMgbXVzdCBiZSBjdXJyZW50IGRpc2MgZ2l2ZXMgaW52YWxpZF90cmFjayBpZiBi
YWQNCgkJCQkJI3JlcG9ydHMgdHJhY2sgaW5mbw0KMDEwMDAxMTA6dW5rNw0KMDEwMDAxMTE6dW5r
N2ENCjAxMDAxMDAwZGRkZGRkZGQ6cXVlcnlfbWVtb190ZXh0MiAjcmV0dXJucyBtZW1vIHRleHQg
YW5kIG1vcmUgZm9yIGdpdmVuIGRpc2MNCjAxMDAxMDEweHh4eHh4eHg6cXVlcnlfY2RfdGV4dCAN
CiMgeCA9IEJDRCBvbmx5LCAweDAxPXRyYWNrMSAweDAyPXRyYWNrMi4uLi4NCjAxMDEwMDAwZGRk
ZGRkZGR0dHR0dHR0dDpwbGF5X2R0ICMgcGxheSBbZGlzayBpZF0gW2JjZCB0cmFja10NCgkJCSMg
cGxheXMgcmVxdWVzdGVkIHRyYWNrDQowMTAxMDAwMWRkZGRkZGRkdHR0dHR0dHQ6cGF1c2VfZHQg
IyBwYXVzZSBhdCBbZGlzayBpZF0gW2JjZCB0cmFja10NCgkJCSMgcGF1c2VzIHJlcXVlc3RlZCB0
cmFjaw0KDQowMTAxMTExMHJycnJycnJyOmZhZGVfZG93biAjIHIgPSBmYWRlIHJhdGUgaW4gc2Vj
b25kcyAwLTMgPSAzIHNlY29uZHMgIDMwID0gMzAgc2Vjb25kcyAobWF4KQ0KCQkJIyBmYWRlcyB2
b2x1bWUgdG8gemVybyBvdmVyIHNwZWNpZmllZCB0aW1lDQowMTAxMTExMXJycnJycnJyOmZhZGVf
dXAgIyByID0gZmFkZSByYXRlIGluIHNlY29uZHMgMC0zID0gMyBzZWNvbmRzICAzMCA9IDMwIHNl
Y29uZHMgKG1heCkNCgkJCSMgcmFtcHMgdm9sdW1lIHVwIG92ZXIgc3BlY2lmaWVkIHRpbWUNCjAx
MTAwMDExZGRkZGRkZGQ6dW5rOCAjIHJldHVybiAweDE5IGlmIGxvYWRlZCBkaXNjDQowMTEwMDEw
MDp1bms5DQowMTEwMTAxMDpwbGF5ZXJfbmFtZSAjIHJldHVybnMgbmFtZSBzdHJpbmcgDQowMTEx
MDAxMDpxdWVyeV9zbG90cyAjdHlwZSA2YiBwbGF5ZXJzIG9ubHkNCjAxMTEwMTAwZ2dnZ2dnZ2c6
Z3JvdXBfbW9kZSAjIHR5cGUgNmIgcGxheWVycyBvbmx5DQoxMDAwMDAwMGRkZGRkZGRkY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2M6c2V0X21lbW9fdGV4dA0K
IyBkIC0gW2Rpc2sgaWRdDQojIGMgLSAxMyBBU0NJSSBjaGFyYWN0ZXJzIChhbHdheXMgMTMpDQox
MDAwMDAwMTp1bmsxMCAjIGFsd2F5cyByZXR1cm5zIDB4MGUNCjEwMDAxMDAwOnVuazExICMganVt
cHMgYnR3IGRpc2MgbG9jYXRpb25zLCBlbnRlcnMgcHJvZ3JhbSBtb2RlIHcvc3RyYW5nZSBzZXR0
aW5ncw0KMTAwMDEwMTA6dW5rMTIgIyBqdW1wcyBidHcgZGlzYyBsb2NhdGlvbnMsIGVudGVycyBw
cm9ncmFtIG1vZGUgdy9zdHJhbmdlIHNldHRpbmdzDQoxMDAxMDAwMDptZW1vX2R1bXAgIyBkdW1w
cyBhbGwgbWVtb3MgNmIgcGxheWVycyBvbmx5DQoxMDAxMDAwMTp1bmsxMyAjIGFsd2F5cyByZXR1
cm5zIDB4MGUNCg==

--0__=sMAk46hajHSAKoXaEPnlCMg6DWEDQE7McCvT8LwR7rNnzkV6BLWPtnL0
Content-type: application/octet-stream; 
	name="cdslr.cde"
Content-Disposition: attachment; filename="cdslr.cde"
Content-transfer-encoding: base64

IyBTb255IFMtbGluayByZXNwb25zZXMgZm9yIHRoZSBjZHAtY3gyMDANCg0KZGVzYz1Tb255IENE
UC1DWDIwMCBSZWNlaXZlDQpuYW1lPWNkc2xpbmtyIA0KDQp0eXBlPVNMSU5LDQoNCnByZWZpeD0x
MDAxMTAwMAkjMQ0KcHJlZml4PTEwMDExMDAxCSMyDQpwcmVmaXg9MTAwMTEwMTAJIzMNCnByZWZp
eD0xMDAxMTAxMSAjNCANCnByZWZpeD0xMDAxMTEwMCAjNSANCnByZWZpeD0xMDAxMTEwMSAjNiAN
CnByZWZpeD0xMDAxMTExMQkjQUxMDQpzdWZmaXg9DQoNCiMgdGhlIG1lc3NhZ2UgY29kZXM6DQoj
IGxldHRlcnMgaW4gdGhlIGNvZGVzIGluZGljYXRlIHRvIHRoZSBzb2Z0d2FyZSB0aGF0IHRoaXMg
aXMgYSB2YXJpYWJsZSByZWdpb24NCg0KMDAwMDAwMDA6cGxheQ0KMDAwMDAwMDE6c3RvcA0KMDAw
MDAwMTA6cGF1c2UNCjAwMDAwMTAxOmlnbm9yZWQgIyAoZGlzcGxheWVkIHdoZW4gbm8gZGlzYyBh
dCByZXF1ZXN0ZWQgbG9hY3Rpb24pDQowMDAwMDExMDp1bmxvYWRpbmcNCjAwMDAxMDAwOnJlYWR5
DQowMDAwMTAwMTpzdGFydF9vZl90cmFjayAjICh0aGFua3MgdG8gS2FtYWwgTW9zdGFmYSkNCjAw
MDAxMTAwOjMwc190b19lb3QNCjAwMDAxMTEwOmFscmVhZHlfZGlkX3RoYXQgDQowMDAwMTExMTpl
cnJvcg0KMDAwMTAwMDA6bm9fbWVtbyAjIENYOTBFUw0KMDAwMTAwMDE6bm9fZGVsZXRlX2ZpbGUg
IyBDWDkwRVMNCjAwMDEwMDExOm5vX2dyb3VwICMgQ1g5MEVTDQowMDAxMDEwMDppbnZhbGlkX2Rp
c2MgIyB1c2VkIGluIGRpc2MgaW5mbyBxdWVyeSANCjAwMDEwMTAxOmludmFsaWRfZGlzY19vcl90
cmFjayAjIHVzZWQgaW4gdHJhY2sgaW5mbyBxdWVyeSANCjAwMDExMDAwOmRvb3Jfb3Blbg0KMDAw
MTEwMDE6dW5rX3Jlc3AgIyByZXNwb25zZSB0byA2M2RkIC0gb25seSBnZXQgdGhpcyBmb3IgbG9h
ZGVkIGRpc2MsIGVsc2UgMHgwRQ0KMDAwMTExMDA6aW52YWxpZF9kaXNjMiAjIGluIHJlc3BvbnNl
IHRvIFs0OGRkXQ0KMDAwMTExMDE6bm9fY2RfdGV4dA0KMDAwMTExMTE6bWVtb193cml0dGVuDQow
MDEwMDAxMDp1bmsxICMgaW52YWxpZCBkYXRhPw0KMDAxMDExMTA6cG93ZXJfb24NCjAwMTAxMTEx
OnBvd2VyX29mZg0KDQowMTAwMDAwMGRkZGRkZGRkY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2M6bWVtb190ZXh0ICMNCjAxMDAwMDAxZGRkZGRkZGR0dHR0dHR0
dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0
dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHR0dHRvb29vb3R0dDpkZWxldGVfZmlsZSANCjAx
MDAwMDEwZ2dnZ2dnZ2djY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjYzpncm91cF90ZXh0ICMNCjAxMDAwMDExZ2dnZ2dnZ2djY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjYzpncm91cF9kaXNjc19sb3cgIyBieXRlcyBob2xkIGRp
c2MgZmxhZ3MgTFNCIGZpcnN0IGluIGVhY2ggYnl0ZQ0KMDEwMDAxMDBnZ2dnZ2dnZ2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjOmdyb3VwX2Rpc2NzX2hpZ2gg
Iw0KMDEwMDAxMDFnZ2dnZ2dnZ2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjOmdyb3VwX2Rpc2NzX2hpZ2hlciAjIyBlYWNoIGJpdCB0IHJlcHJlc2VudHMgYSB0
cmFjayBvbiB0aGUgZGlzYy4gRWFjaCBieXRlIHNob3VsZCBiZSByZWFkIExTQiBmaXJzdC4gVGhl
cmUgYXJlIG9ubHkgOTkgdHJhY2tzLg0KMDEwMDAxMTF4eHh4eHh4eHl5eXl5eXl5YmJiYmJiYmJC
QkJCQkJCQmJiYmJiYmJiQkJCQkJCQkJiYmJiYmJiYkJCQkJCQkJCYmJiYmJiYmI6Y2RfdGV4dF9p
bmZvICMgeCx5IGFsd2F5cyAweDA5LCBiJ3MgMHgwMCBvciAweEZGDQowMTAwMTAwMGRkZGRkZGRk
eHh4eHh4eHh5eXl5eXl5eWNjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2Njenp6enp6eno6bWVtb190ZXh0MiANCjAxMDAxMDAxeXl5eXl5eXljY2NjY2NjY0NDQ0ND
Q0NDY2NjY2NjY2NDQ0NDQ0NDQ2NjY2NjY2NjQ0NDQ0NDQ0NjY2NjY2NjY0NDQ0NDQ0NDY2NjY2Nj
Y2NDQ0NDQ0NDQ2NjY2NjY2NjQ0NDQ0NDQ0NjY2NjY2NjY0NDQ0NDQ0NDY2NjY2NjY2NDQ0NDQ0ND
QzptZW1vX3RleHQzDQojIHkgPSAweDAyIGZvciBjb250aW51YXRpb24gb2YgdGV4dA0KMDEwMDEw
MTB0dHR0dHR0dHh4eHh4eHh4eHh4eHh4eHhjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjOmNkX3RleHQgI3Q9dHJhY2sNCjAxMDAxMDExbm5ubm5u
bm5jY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjYzpjZF90ZXh0X2V4dHJhICMgbj0gMHgwMg0KMDEwMTAwMDBkZGRkZGRk
ZHR0dHR0dHR0bW1tbW1tbW1zc3Nzc3NzczpwbGF5aW5nICMgW2Rpc2sgaWRdIFtiY2QgdHJhY2td
IFtiY2QgbWluXSBbYmNkIHNlY10NCjAxMDEwMDAxaWlpaWlpaWl0dHR0dHR0dG1tbW1tbW1tc3Nz
c3Nzc3M6dGltZSAjIFtiY2QgaW5kZXhdIFtiY2QgdHJhY2tdIFtiY2QgbWluXSBbYmNkIHNlY10N
CjAxMDEwMDEwZGRkZGRkZGQ6ZGlzcGxheWluZ19kaXNjCSMgW2Rpc2sgaWRdDQowMTAxMDAxMWRk
ZGRkZGRkOm5vX2Rpc2MgIyBbZGlzYyBpZF0gKGRpc3BsYXllZCB3aGVuIG5vIGRpc2MgYXQgcmVx
dWVzdGVkIGxvYWN0aW9uKQ0KMDEwMTAxMDBkZGRkZGRkZDpnb3RvX2Rpc2MJIyBbZGlzayBpZF0N
CjAxMDEwMTAxZGRkZGRkZGQ6bm9fbWVtb190ZXh0ICMgW2Rpc2sgaWRdDQowMTAxMTAwMGRkZGRk
ZGRkOm5vd19hdF9kaXNjCSMgW2Rpc2sgaWRdDQowMTEwMDAwMGRkZGRkZGRkaWlpaWlpaWl0dHR0
dHR0dG1tbW1tbW1tc3Nzc3Nzc3NmZmZmZmZmZjpkaXNjX2luZm8gIyBbZGlzayBpZF0gW2JjZCBp
bmRleGVzP10gW2JjZCB0cmFja3NdIFtiY2QgdG90YWwgbWluXSBbYmNkIHNlY10gW2JjZCBmcmFt
ZXM/XQ0KMDExMDAwMTBkZGRkZGRkZHR0dHR0dHR0bW1tbW1tbW1zc3Nzc3Nzczp0cmFja19pbmZv
ICMgW2Rpc2sgaWRdICBbYmNkIHRyYWNrXSBbYmNkICBtaW5dIFtiY2QgIHNlY10gDQowMTEwMDAw
MXNzc3Nzc3NzeHh4eHh4eHg6cGxheWVyX3R5cGUgIyBbY2FwYWNpdHkgKGluIGRpc2sgaWQgZm9y
bWF0KV0gW3Vua10NCjAxMTAxMDEwY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjYzpwbGF5ZXJfbmFtZQ0KMDExMTAwMDBvb29vb29vcEtBclJvUFBT
eG9vb29vb29kZGRkZGRkZHR0dHR0dHR0Om1vZGUgIyBwPXBsYXlpbmcoMSkgSz1zY2FubmluZygw
KS9kaXNjcyBrbm93biAoMSkgQT0xIGRpc2MoMCkvYWxsIGRpc2NzKDEpIHI9cmVwZWF0MSAoMSkg
Uj1yZXBlYXQgYWxsKDEpIFA9IHByb2dyYW0oMSkgUz1zaHVmZmxlICgxKQ0KMDExMTAwMDFzc3Nz
c3NzczpzdG9yZWQgIyBiaXQgZmllbGRzOiAweDAxPW1lbW8gMHgwMj1kZWxldGUgZmlsZSAweDMw
PWNkdGV4dA0KMDExMTAwMTBjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjYzpzbG90X2luZm8xDQowMTExMDAxMWNjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjOnNsb3RfaW5mbzINCjAxMTEwMTAwY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj
Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2M6c2xvdF9pbmZvMw0KMTAwMDAwMTE6ZG9vcl9j
bG9zZQ0KDQoNCg0K

--0__=sMAk46hajHSAKoXaEPnlCMg6DWEDQE7McCvT8LwR7rNnzkV6BLWPtnL0
Content-type: application/octet-stream; 
	name="Form1.frm"
Content-Disposition: attachment; filename="Form1.frm"
Content-transfer-encoding: base64

VkVSU0lPTiA1LjAwDQpPYmplY3QgPSAiezg2NzFBQzMzLUY5QUMtMTFEMS1BMTgxLTAwNDAwNTVE
QjQ4N30jMS4wIzAiOyAic2xpbmt4Lm9jeCINCkJlZ2luIFZCLkZvcm0gRm9ybTEgDQogICBDYXB0
aW9uICAgICAgICAgPSAgICJGb3JtMSINCiAgIENsaWVudEhlaWdodCAgICA9ICAgNTQ0NQ0KICAg
Q2xpZW50TGVmdCAgICAgID0gICA2MA0KICAgQ2xpZW50VG9wICAgICAgID0gICAzNDUNCiAgIENs
aWVudFdpZHRoICAgICA9ICAgNzI3NQ0KICAgTGlua1RvcGljICAgICAgID0gICAiRm9ybTEiDQog
ICBTY2FsZUhlaWdodCAgICAgPSAgIDU0NDUNCiAgIFNjYWxlV2lkdGggICAgICA9ICAgNzI3NQ0K
ICAgU3RhcnRVcFBvc2l0aW9uID0gICAzICAnV2luZG93cyBEZWZhdWx0DQogICBCZWdpbiBWQi5U
ZXh0Qm94IFRleHQxIA0KICAgICAgSGVpZ2h0ICAgICAgICAgID0gICAyODUNCiAgICAgIExlZnQg
ICAgICAgICAgICA9ICAgMA0KICAgICAgVGFiSW5kZXggICAgICAgID0gICAzDQogICAgICBUZXh0
ICAgICAgICAgICAgPSAgICJUZXh0MSINCiAgICAgIFRvcCAgICAgICAgICAgICA9ICAgMzg0MA0K
ICAgICAgV2lkdGggICAgICAgICAgID0gICAzNDk1DQogICBFbmQNCiAgIEJlZ2luIFZCLkNvbW1h
bmRCdXR0b24gQ29tbWFuZDEgDQogICAgICBDYXB0aW9uICAgICAgICAgPSAgICJTZW5kIENvbW1h
bmQiDQogICAgICBIZWlnaHQgICAgICAgICAgPSAgIDQ5NQ0KICAgICAgTGVmdCAgICAgICAgICAg
ID0gICAwDQogICAgICBUYWJJbmRleCAgICAgICAgPSAgIDINCiAgICAgIFRvcCAgICAgICAgICAg
ICA9ICAgMzAwMA0KICAgICAgV2lkdGggICAgICAgICAgID0gICAyNDE1DQogICBFbmQNCiAgIEJl
Z2luIFZCLkxhYmVsIExhYmVsMiANCiAgICAgIENhcHRpb24gICAgICAgICA9ICAgIkxhYmVsMiIN
CiAgICAgIEhlaWdodCAgICAgICAgICA9ICAgMzc1DQogICAgICBMZWZ0ICAgICAgICAgICAgPSAg
IDANCiAgICAgIFRhYkluZGV4ICAgICAgICA9ICAgMQ0KICAgICAgVG9wICAgICAgICAgICAgID0g
ICA1MDQwDQogICAgICBXaWR0aCAgICAgICAgICAgPSAgIDY5NzUNCiAgIEVuZA0KICAgQmVnaW4g
VkIuTGFiZWwgTGFiZWwxIA0KICAgICAgQ2FwdGlvbiAgICAgICAgID0gICAiTGFiZWwxIg0KICAg
ICAgSGVpZ2h0ICAgICAgICAgID0gICAzNzUNCiAgICAgIExlZnQgICAgICAgICAgICA9ICAgMA0K
ICAgICAgVGFiSW5kZXggICAgICAgID0gICAwDQogICAgICBUb3AgICAgICAgICAgICAgPSAgIDQ1
NjANCiAgICAgIFdpZHRoICAgICAgICAgICA9ICAgNzA5NQ0KICAgRW5kDQogICBCZWdpbiBTTElO
S1hMaWIuU2xpbmt4IFNsaW5reCANCiAgICAgIExlZnQgICAgICAgICAgICA9ICAgMTIwDQogICAg
ICBUb3AgICAgICAgICAgICAgPSAgIDEyMA0KICAgICAgX1ZlcnNpb24gICAgICAgID0gICA2NTUz
Ng0KICAgICAgX0V4dGVudFggICAgICAgID0gICA2Mzc2DQogICAgICBfRXh0ZW50WSAgICAgICAg
PSAgIDMyMDENCiAgICAgIF9TdG9ja1Byb3BzICAgICA9ICAgMA0KICAgRW5kDQpFbmQNCkF0dHJp
YnV0ZSBWQl9OYW1lID0gIkZvcm0xIg0KQXR0cmlidXRlIFZCX0dsb2JhbE5hbWVTcGFjZSA9IEZh
bHNlDQpBdHRyaWJ1dGUgVkJfQ3JlYXRhYmxlID0gRmFsc2UNCkF0dHJpYnV0ZSBWQl9QcmVkZWNs
YXJlZElkID0gVHJ1ZQ0KQXR0cmlidXRlIFZCX0V4cG9zZWQgPSBGYWxzZQ0KRGltIHNlbmRuYW1l
IEFzIFN0cmluZw0KDQpQcml2YXRlIFN1YiBDb21tYW5kMV9DbGljaygpDQogICAgcmVzdWx0ID0g
U2xpbmt4LlNlbmQoc2VuZG5hbWUsIFRleHQxLlRleHQpDQpFbmQgU3ViDQoNClByaXZhdGUgU3Vi
IEZvcm1fTG9hZCgpDQogICAgQ2FsbCBJbml0RGV2aWNlDQpFbmQgU3ViDQoNClByaXZhdGUgU3Vi
IFNsaW5reF9TbGlua2VEZXZpY2VFdmVudChEZXZpY2UgQXMgU3RyaW5nLCBNZXNzYWdlIEFzIFN0
cmluZykNCiAgICBMYWJlbDEuQ2FwdGlvbiA9IERldmljZQ0KICAgIExhYmVsMi5DYXB0aW9uID0g
TWVzc2FnZQ0KICAgIA0KICAgIA0KRW5kIFN1Yg0KUHJpdmF0ZSBTdWIgSW5pdERldmljZSgpDQpE
aW0gZGV2SUQgQXMgTG9uZw0KRGltIHNsaW5rZW51bSBBcyBMb25nDQpEaW0gcG9ydG51bSBBcyBM
b25nDQpEaW0gZGV2ZmlsZSBBcyBTdHJpbmcNCkRpbSBkZXZ0ZXh0IEFzIFN0cmluZw0KDQoNCklm
IChTbGlua3guTnVtU2xpbmtlcyA8IDEpIFRoZW4NCiAgICBNc2dCb3ggKCJUaGUgc2VydmVyIGFz
IGZvdW5kIG5vIFNsaW5rLWVzLiBUaGlzIGFwcGxpY2F0aW9uIGNhbm5vdCBydW4uIikNCiAgICBF
bmQNCkVuZCBJZg0KDQoNCmRldklEID0gMQ0Kc2xpbmtlbnVtID0gMQ0KUmVtIG1hcCB0byBhbGwg
OCBpciBwb3J0cw0KcG9ydG51bSA9ICZIRkZGDQoNCnNlbmRuYW1lID0gImNkIHBsYXllciINClJl
bSBpbnN0ZWFkIG9mIGxvYWRpbmcgYSBkZXZpY2UgZmlsZSBsaWtlIHRoaXM6DQpSZW0gZGV2Zmls
ZSA9IEFwcC5QYXRoICsgIlx0di5jZGUiDQpSZW0geCA9IFNsaW5reC5BZGREZXZpY2Uoc2VuZG5h
bWUsIGRldmZpbGUsIGRldklELCBzbGlua2VudW0sIHBvcnRudW0pDQoNClJlbSB5b3UgY2FuIGFs
c28gcHJvdmlkZSB0aGUgZmlsZSBjb250ZW50cyBhcyB0ZXh0IGxpa2UgdGhpczoNClJlbSB5b3Ug
bXVzdCBhcHBlbmQgYW55IGluY2x1ZGUgZmlsZXMgbWFudWFsbHkgYXMgdGhlIHNlcnZlciB3b24n
dCB0cnkgdG8gcGFyc2UNClJlbSBhbnkgaW5jbHVkZSBmaWxlcyB3aGVuIHlvdSBzZW5kIHRleHQN
CmRldmZpbGUgPSBBcHAuUGF0aCArICJcY2RzbHIuY2RlIg0KT3BlbiBkZXZmaWxlIEZvciBCaW5h
cnkgQXMgIzENCmRldnRleHQgPSBJbnB1dChMT0YoMSksIDEpDQpDbG9zZSAoMSkNCmRldmZpbGUg
PSBBcHAuUGF0aCArICJcY2RzbHMuY2RlIg0KT3BlbiBkZXZmaWxlIEZvciBCaW5hcnkgQXMgIzEN
CmRldnRleHQgPSBkZXZ0ZXh0ICsgSW5wdXQoTE9GKDEpLCAxKQ0KQ2xvc2UgKDEpDQp4ID0gU2xp
bmt4LkFkZERldmljZVRleHQoc2VuZG5hbWUsIGRldnRleHQsIGRldklELCBzbGlua2VudW0sIHBv
cnRudW0pDQpSZW0gdGhpcyBpcyBhZHZhbnRhZ2VvdXMgZm9yIERDT00gc2xpbmstZSBzZXJ2ZXJz
IHNpbmNlIHlvdSBkb24ndCBrbm93IGlmIHRoZXkgd2lsbA0KUmVtIGhhdmUgeW91ciBkZXZpY2Ug
ZmlsZXMgb3Igbm90DQoNCg0KDQpSZW0gc2hvdyB1bm1hdGNoZWQgZGF0YQ0KU2xpbmt4LlJlcG9y
dE5vTWF0Y2ggPSAxDQoNCg0KUmVtIGRlbW9uc3RyYXRlIHRoZSB1c2Ugb2YgbG93LWxldmVsIGNv
bW1hbmRzDQpSZW0gdGhpcyBhbHNvIGNhdXNlcyBsb3dsZXZlbCBldmVudHMgdG8gY29tZSBiYWNr
DQoNClJlbSBpbnN0ZWFkIG9mIGxvYWRpbmcgYSBkZXZpY2UgZmlsZSBsaWtlIHRoaXM6DQpSZW0g
ZGV2ZmlsZSA9IEFwcC5QYXRoICsgIlxsb3dsZXZlbC5jZGUiDQpSZW0geCA9IFNsaW5reC5BZGRE
ZXZpY2UoImxvd2xldmVsIiwgZGV2ZmlsZSwgZGV2SUQsIHNsaW5rZW51bSwgMCkNCg0KUmVtIHlv
dSBjYW4gYWxzbyBwcm92aWRlIHRoZSBmaWxlIGNvbnRlbnRzIGFzIHRleHQgbGlrZSB0aGlzOg0K
UmVtIHggPSBTbGlua3guQWRkRGV2aWNlVGV4dCgibG93bGV2ZWwiLCAidHlwZT1sb3dsZXZlbCIs
IGRldklELCBzbGlua2VudW0sIDApDQpSZW0gdGhpcyBpcyBhZHZhbnRhZ2VvdXMgZm9yIERDT00g
c2xpbmstZSBzZXJ2ZXJzIHNpbmNlIHlvdSBkb24ndCBrbm93IGlmIHRoZXkgd2lsbA0KUmVtIGhh
dmUgeW91ciBkZXZpY2UgZmlsZXMgb3Igbm90DQoNClJlbSB4ID0gU2xpbmt4LlNlbmRFeCgibG93
bGV2ZWw6YmF1ZFszODQwMF0gbG93bGV2ZWw6aXJtbWxbMTFdIGxvd2xldmVsOmlydG9bMTAwMDAw
LjBdIGxvd2xldmVsOmlydHNbMTAwLjBdICIpDQpSZW0geCA9IFNsaW5reC5TZW5kKCJsb3dsZXZl
bCIsICJwYXJyZWFkW10iKQ0KUmVtIHggPSBTbGlua3guU2VuZEV4KCJsb3dsZXZlbDppcnJ4cG9y
dGVuWzE1XSBsb3dsZXZlbDppcnJ4cG9ydHBvbFszMV0iKQ0KDQpFbmQgU3ViDQoNCg==

--0__=sMAk46hajHSAKoXaEPnlCMg6DWEDQE7McCvT8LwR7rNnzkV6BLWPtnL0
Content-type: application/octet-stream; 
	name="Project1.vbp"
Content-Disposition: attachment; filename="Project1.vbp"
Content-transfer-encoding: base64

VHlwZT1FeGUNCkZvcm09Rm9ybTEuZnJtDQpSZWZlcmVuY2U9KlxHezAwMDIwNDMwLTAwMDAtMDAw
MC1DMDAwLTAwMDAwMDAwMDA0Nn0jMi4wIzAjRDpcV0lOTlRcU3lzdGVtMzJcc3Rkb2xlMi50bGIj
T0xFIEF1dG9tYXRpb24NCk9iamVjdD17ODY3MUFDMzMtRjlBQy0xMUQxLUExODEtMDA0MDA1NURC
NDg3fSMxLjAjMDsgc2xpbmt4Lm9jeA0KT2JqZWN0PXtCMDUyOENEMS1GNjdFLTExRDItOEY4RS0w
MEMwNEY0QzNCOUZ9IzEuMCMwOyBDRERCQ29udHJvbC5kbGwNCkljb25Gb3JtPSJGb3JtMSINClN0
YXJ0dXA9IkZvcm0xIg0KQ29tbWFuZDMyPSIiDQpOYW1lPSJQcm9qZWN0MSINCkhlbHBDb250ZXh0
SUQ9IjAiDQpDb21wYXRpYmxlTW9kZT0iMCINCk1ham9yVmVyPTENCk1pbm9yVmVyPTANClJldmlz
aW9uVmVyPTANCkF1dG9JbmNyZW1lbnRWZXI9MA0KU2VydmVyU3VwcG9ydEZpbGVzPTANClZlcnNp
b25Db21wYW55TmFtZT0iU3BhY2VXYXJlIg0KQ29tcGlsYXRpb25UeXBlPTANCk9wdGltaXphdGlv
blR5cGU9MA0KRmF2b3JQZW50aXVtUHJvKHRtKT0wDQpDb2RlVmlld0RlYnVnSW5mbz0wDQpOb0Fs
aWFzaW5nPTANCkJvdW5kc0NoZWNrPTANCk92ZXJmbG93Q2hlY2s9MA0KRmxQb2ludENoZWNrPTAN
CkZESVZDaGVjaz0wDQpVbnJvdW5kZWRGUD0wDQpTdGFydE1vZGU9MA0KVW5hdHRlbmRlZD0wDQpS
ZXRhaW5lZD0wDQpUaHJlYWRQZXJPYmplY3Q9MA0KTWF4TnVtYmVyT2ZUaHJlYWRzPTENCg0KW01T
IFRyYW5zYWN0aW9uIFNlcnZlcl0NCkF1dG9SZWZyZXNoPTENCg==

--0__=sMAk46hajHSAKoXaEPnlCMg6DWEDQE7McCvT8LwR7rNnzkV6BLWPtnL0
Content-type: application/octet-stream; 
	name="Project1.vbw"
Content-Disposition: attachment; filename="Project1.vbw"
Content-transfer-encoding: base64

Rm9ybTEgPSAzNTUsIDE2NiwgOTc5LCA4MzgsICwgLTEsIC0xLCA1MzIsIDQ0OSwgQw0K

--0__=sMAk46hajHSAKoXaEPnlCMg6DWEDQE7McCvT8LwR7rNnzkV6BLWPtnL0--