REBOL [
    Title: "Binary Data in REBOL Scripts"
    Date: 30-May-2000
    File: %bin-data.r
    Purpose: {Example of how to decode binary data in REBOL scripts This example includes a base-64 encoded image. (See bin-save.r for an example of how to create this file.)}
    library: [
        level: 'beginner 
        platform: none 
        type: 'How-to 
        domain: 'file-handling 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
    Version: 1.0.0
    Author: "Anonymous"
]

data: 64#{
R0lGODlhUAIfAOUtAAkEA5iJhYUJA1BAO04EAplDK0ofE8ZMMWgoGjMhGphkV9HH
xMEiAowrFCcMCKhGLKooCXQxH85nTMWJenlZT0wyKjIVDYg3I3E+L24IArlUN1gk
F+FaOZY8J7dLL/Lo5cWmnpygoPBlP6xpWefJw785F6oCAtypnK+HfoxaTst4ZMqZ
jOQ8EP7+/rN1ZZN5b6M8JW5OR+zZ1DowLMpVNrSkoMm1sd25saYaAtvVzxcWFUYZ
EYgaA3MWA3dpX7KXkCwAAAAAUAIfAAAG/0CdcEgsGo/IpFKYWDqf0GgUQJVKE9is
dsvNzrqJ2RdMFlfEYXNlfVazKwO2eD5r0+9482Cg3/v/exgYeHCFfjGIMRQpjDF1
gH8zcYcUMXuJiBSam5opCnyAlgOJi5UxCiOpIwqMCq6qLi4qsbEKlaCJo5iIfzGe
tpmMv66sxC4pl5a7magjsSoqEtAposu3l6iVrcS/x7q6zAoxI7OzsLLQ6dTJmNcD
FKkYAykyLfb3+PYvl4us8OUuzqWD5oLCIUwWqChcyLChw4cQI0qcSLGixYsYMz50
4KAix48cG4a86MCChZEgU3I0uWOHhR0GTKqc+RHASCofX560WZIlTP+XL2Fu6MjT
psyVBjYgiIBgaYQOCGwaSLphQ8ydCh3saBpzpVClCKqKRXDBgNGTPU2yrAozwoWl
FzrIvRC3QAe6DzRo8MC3AIIdHbVWhRvBKmCcWslGuPpSaYTHj5s+vtvxaNCXBsjC
4PvggQcaoGEMdbDBbefFREl3iIDWgFu6kulyBIzZwA6xsCN4hlHgAYwLHjiA5lDA
AMfSwB+gpmIhQgECAALkm45PRgUAFpImvbu0M+8HBS4cEA76wg6bSzt4KLBBo3uM
Q97Ln0+/PsObEWnW9Ij2LFaeqREFoE8urZSWfg7o8BJROpQE03/MTTUVUC1lB5iB
PKklVFNhlbb/WmNkxfVWTFnd1tRhOCXFYVgqZsZaSQmc5JNtJiWwwQWFXeUaXXFx
d+MBNHigAQ0HQAXYjh14RoMGyhVo01ZuIdCfAwmEiCOHTD0lpQUJXNXSVMgl+cBd
6kkgAg3mIZAkDRyIwEFZx13wQFQ4qcndUmpKaZUDVG2QnVwIGKfamH8hQIObbkaw
w1MPsJmojGRlgMEH1FV6zw8EEGDBBjBAZZYDCPT2VnNttnnAX7o1KoIIHtjnqkLx
vSrrrPYJiBGCHOkw0YEryZSVrRvBxJiGCQEIklRWyShUV/cJC5Ra2XWl1oDCgsmi
YmC91gEMMPz10W1gnZfVpkx1SFVShZlE/6OD4KrrVmEboNjclfFuWgBo+HqwmIdy
8QUkBw/U+xJcqwkYJ11MORYWXbYpRVvD7052l5xmclCYenl5xoFoTV1QgAcXVKFV
XH9l5lRmfmbnMAIedCAoc95mV8CqqzYFQ2ceaOxyiAKMYOnP9pDQEXDmjWSBlCUZ
8ADNNNiMc6M00GqfrlJXbfXViM2UlURpQWvSr/jZJJLXaB2l0k6kBfqlWCiOO2HZ
xHrdq3ZqUeWUZJGRZWRjjj1mXNZHs6juhGEl4CyBVlV5F2olpTaVsos+IBwHHHgQ
lt5yFWBXo3Oq+NjmFxTbYEmKFbahY4OxBSJsVtm5rQYizOnheo+9df+jXGImhNaJ
0bLV0omPN4dmimW7qGab7JX2cQG1L9xBBi4ALf0CAPTAAZ18zp0lDG5eUFUEmzH/
GNbuCUH++eiTtB9ixq7vUGpkH2Xsfe6PGy1aOWn4ILJ9VkXifToBidy65iAJFWhT
KxpMwpSSLJPhjSmBydWmBDYjgS3LJcNCAG/agxOz9cRu4GMTmhQYF/Dg6F3f45Fc
xnSe0ZWkNOkKSuowCBaIIewvkfPNmCC4A894rylW2RFdPNAemTzIfyBqHQK6ZJIL
vOks4HLKCTuAAQgqDWSlYdEGCFAA6XmxBhk4QASgaBUYTvExQ2GZvhiYvouYr41w
jCPYboKSXtH/JGsd7JUHj5W1kOAHKap7Vm3ApDsJTegnqekg3M4mI51E61wmAUu8
XGS6lrhkbUB0ynka5xUZGc5rFYJJWCw0m1RxUI9AAaFkOsA81d2oM7br0GCsVEIE
2DFpVzGMbb40oSyiiy7cyUySWKkbKWUABzzIlDI5kqlQPcA4LZmbQgiQAQEIIAPK
xOYGOgAw0hkgATxRJgE6QgABaApjhYnMUDbgxXZOgAEX0MFWYpKAcYozXs6Zinqg
gic5TuSN/gzorOqHxyoAzjJ7bFweyxYgOjrUVjnRDt0eaUhpWdKSU4lgQ2fik7iB
i4EYBOJtIhMTiWqoT0vZpNlk4sjZqChe/+26DQZ1Y7knPesrYMlkh2Koph1+r0Mt
yZZbYBCBTnLES2+LJGSU+Mse2U5OmvMYWU5wghX8YAVYteoPUKAAHuDgAqQZFSd9
EIAXTCCrWJ3ABE4wAQQ0YEl+agoBYlDWF6Dgri/wwVkxkAEYaOAtT7kSAUDwsxyE
4AWIBQGlfuYBCMTkRA6IAQhQ8AMQKKAk4DHNA97CI4FGhGqeDW0c85c//LE0QAwN
EADhByEABS8pGDSks446FcMhcn7tSxC7zlUhvokFpgw0XhCp0lu74UlZlrkliAgD
1Cx+zzNFjVaFtGIbz4XFJdvsQLzIAsvC3M1/fQOmLaXbSMxAK0x2of8XXHrEnacQ
8wI96CLQPtAAAiBgL0T11WJ/1gAI+FCUBKjHz06QgQZwFpY9uIClrLMQB/QABirY
73ROwIPFuIgANcCHDeyrwvAwRU4dEG1DACriEmMtJylRS2mx0hMMvY+TdhzbdDel
o4raBikYJZFWfNU+o0RRMrL8berWAsMgps7Is1zKUCYYr1t6BTnA1Nzi7FKuBiSp
OIIxDGYUmDCTaPAtZIlqll5TLqe85jePjQxtoDWb23XGM3yZmG/mcjNF3Sg88JUv
0GTQgxJUrjerOc8CpNeAzfg0Ahm4gfRAQADH7KYHK6jUCq5pFSqoCQYQgABhK9WB
CiOHAJG+FAH/Jjaxy6XKxAsBLapXLSutZUjFBjJYal+cXPc1CFr8G6SE0BaUByXN
MIdx6I/HkrcVAVFGKrqudcGbU6a4RDGQhfELJ0NlRr25vT1i3tqC6xiEgRcyteNR
bFh5JciosFCAfsuzcuIhOK8QNDl7c29O4+XwdFrP9viAvqczAQi0LC9Aisqg8SFh
e/QgwdviEQFsUJ0bMDwf65QTDWDQAEkL4DM1tUCPPFACAWx6OigQgIgQkIFQ22MF
BHAO7kz3ylaxWtWsjjl9UgJaPcL6j05+aCM1ilpf/fqQu3TJrwKYHSDSbT+/lswk
YdihB3YFp738bpKdvai5QIYxONkKXaIa/xbn5OyEQwXmiExUrtotLlDQBje9lHKB
m60m3D3q+gMOsB5i7pIoVVcSyLpDpDH1hi85wyECqngBHjwgHx3IdAckfAMedIos
oLFlDvAhARzAoAQHKAEPClT1hC8cHxowJwEmfw8M2Fc3NICAAqgjgwxs4F4aKCoB
emDgB0gAAjioFAlov9kNlBwfBL6dqC4n8ZjDXObI14hK7Ee2+tmcj3284/N1bUAn
jeuSkiyj74jiWw41jENlJAxw2cYSSuoUT+jC3QlhEyjmQHlbq2k3Ub83MR6Vuew8
sn9SEEZmplir7fCHI8AUfxcwJHRnFx8zMcXiZnN3AOLTgJvlMVBDVP9wIT484AH5
QE4OkGH3YAN9FTIAEAET1wMCZg8HYE04wAAMkAGNsylyohwEoGj38ADW5AAf1wII
UGHqQgA/QB0aAB0A0AGaNwIoMAKOdwBIiAMmR3CFpxwk14P3QGGS4RnMMyqbYnzJ
l4XvsXw213zA0jXy02AI4mOWRH0V9R/s8lFI9lvcByYKM0toJCHQ9j3+RyHdljBA
lkI39Bo8YhYAACW1wy0CKCbew218CG5KYWDrxzq05G1BFWadUX9ywRRJwhklBGcg
UxmBxUoecIA3g3HrFxwtw4l/FQENoAH5AE6RlQ8uEF90AgBt1wAl2AI3sAIgcAI3
kIs/gBSvgQD/MQh8KjACS7gCDwaCVMCB+bB5OMEDMtgCJwABB+h4lYIBCSZXKAB8
PHBCjQIyRJV8x6eF4Cg2G9FiK7ZSPDZ0bBZBeaQfKgN0E/KOvFQsZGhjMWEiyeJS
clhskMEiI3Uld/M2ZOdt6OcaY7ZAIhJDCuMWvWEXn0go94hAh0h8+DdyZgRMC8R2
H/N1PVIYIMZKc6EmllhSfPgxB8AknQhvi+McbLIen1GKMEAD+bBv+SADPNAATUIF
G9AAsig9lWEiYfF5PzMBJuB2pEMAA4cPJMADUkIFL5APElACz+QAPFBw9kAB9qUU
BCAdUZiNboGEB9ApYLUVWBiOZAkg4whr/+nISPLYYmnJSY4UP+riP9WVVDe1J8xx
UTl2GAgEbBKSZLFxJYaEJ33DIrDVO5lUL851N7oTWPCCJXHBLWTCGfNXNv3obUz3
S5lTLsjBG2Dmf92Wf2g3iQM4GhHAF0QFd5VId50hQi1jbp/RKUJSihAAk0CTAyRn
dedhAA3AA7NYKZURSVUBlJZCAqknF5kBAzxAAtNxAz3wGB3xcPdwA/CUEBlAlS3g
A2kzFFppDyCQYG4RJEFCF5EzlmUJjgSFGGgpbSiRlvHThb31JYLUGBUVRC31c/rD
S7cVIXI5FgnUN6YzI9umFCqCIjYnSsbWfjADduG2LWBZQn2RI43kIv+wgS6BkhmP
aXWxsZC1wxodJFuusRoqxKE2wSi4ozlwppo4A2+FiDcd814NgG/UUQNUIESblR06
OYsycAMLQAI5QAIyQD07pjJDgYwtQAJWdYMtoAHZGBYUR3oalgFyEhVE6owM4Bc7
MJXUEQN80hTRgQ+M1hQF0CmR+EMPQJ7lmYUp8T4elFAK0XxeCJd1QyNec0jVcknR
hB1yuUvVNyG2IqR+aXQ++ZBkAzFd54e5tVxA9jdUACWDiDuCmKEeJqjLVkP9CJkp
mR7y9hrFkmJtkX+TiBXNwUphiomd2Jpt5xmeci4ohQGh0pz5gADRgw8UQCUMGBP9
NYsSIHLB0QH/DfBsAlp0wtkCKeAA44QB+NB4OLIoDXCU99B6HlMApJEPECAcBdAA
BzCNAOAatnSN91ADBBA5kIGbIfZyZ0qWd5RbvPJHcAkU00c2P+Gur1V9LZEiecpb
hvQfvZNTK3IhvFVev4ZdOJJFLlUggNRso8R93YY7mRNo5HIBDaCZ5fUVL2UbIXJl
dFFFSzFvGlkc2coV0CKh+ec9myp8pPoZcwITB6k2Aqp1YwZfxooP56Gc+FBUVtIp
L1ECs0gDGcADLMAC15RyYZEknxOsHAQABIAPOdADeWIAGEYdDdADCQcAGFAPMlAA
PcAmD4ADIlApDwClUJEBJ4APL0AF1JQp/3z4Q2ZarmiKIFOSlmMDLQQLhjGGY5ek
E8JyEtWyS2tJXV/xF7XBrllnLcbWZD9HsCzRjvv3Q1tCqZDjk0DkJ5URXnORcEhz
NJGBRhE0OF+xA4aDqZsFbt0Rby0DG0ezOMkipARzQn5iE2FSsi1zFWRWL/YYIhFA
eEqbDwUAABWQDzlAGnOmHmNEgvgwAlBaHsxzF4vCJhzQAb94Dy6AABUQAzhak03i
AD5AHSCQAZpDRABQk80kVRkgszHpASzwJgggAEtoA77gDC9AAS+6Qn+RtmqLfGy7
pmEoEgTkH2jJYtlxuBe1p0klY9YCOdWFNsLCn3hyIeBifT+3S0znSv8iBTdrkUBo
kUXaIoHq1rAbmhBd0yXLoiE9tRpAphms1Bkepih2MiJ4+02iFLJII0TbgjNIqF0j
NYld8UI35BQdcBv5AFYAAIX3MAAEsBedQXcd0ZtUeXnpxBcREKyW8gIZICRIkwCV
ogEZMCQPgLdcwhYOkAKVAkZ8YY0/IwP2hTGrS67za57HwkjLlx/7ITcSnBOC9CUn
pbcnoSsocZeEZBSGBLnUJWSXuSGLgYZMdkmCWRUvQVKmVTdYwhQnAUMR8xS0s0qf
+xY25Ui9lDIxcjSsMxYp2SMPCy8UGZ8NK3Z+YgDZhjtQoxymkTMvwhNbMYkccgEE
YAD5UFQ2kQ//C0AAfCEnwmEWTmoplxcw9miU02O0OePHzIoPFyAAJUBEXXJ3AODF
0wgqHJKVPwOkpeky8ohq35jGrMZHSOdqXMNaCcUrcIpQPLbGmYuWP7FrL/RbUyF1
rwG5DXZ0fgrBFHQZy3V1JfEucfFhqDoZnwGiMcFsesptvLPA1RUl2cJ/hRKw/wtb
IDsXz/YdJtQB40EDmyNCDYA/B1M4i1LL+YABpAEATYkP/RY621RUDmCd0roZJYOV
zUgdHzC2HZsuQxEDloICPcBz3wrE0/EBmjJLTWspQOoitiG/4Bxz5ymGGsGmr6bO
Nyd947xRjTuXHWFck0QWpkYX9pwaZagg/24oFu3YSBeFqAkcVls3RRoJNW83FaYj
fthyO49HIYZDkE23oXHosTgVRI1YMDsgJjnDq/cCMOrRJmhyIXe8FaO0axtQAyEQ
AjVQA7ZhHgaAizXwAwtwAiVwSh8RADZQ2SBQAzZgAyBQ2rlYAnXGnxgQAwWgARIg
AQUgCBVwIW6jZAQA0y3wAQGgCYjgAzbA2y0wAo1m1C8gAySw3LnocDWQAyiAnpnB
1E29amGzNdh9K6ellrzWlriCnl+IbHMJW6wru49YRigUbKyVdPxZt16R1saDJ84J
KrbDQCGSHr3sFmxXoakSiV2nQr9RL13yhlA2iDgkp0KWfpIYMACwAf++kSUZG4GN
UjkiS44/4djfA4QzqkPIOU4OkAEl0AEcXHR7a7TYRE044G8cfTmOkSkZkAE9AAE8
AOMnvhrYkRAI8GY84DPtJD0yIAD6WhjUtLMQcE09cOI9UEQnoRvUXd20ct0eASwZ
cZ5guL9sNjpVfTY0cY5G8WvDVRWBccPuKkliHhjFsyKRsXM9UYbZ0X/1zLqp5KF2
kh5NcRfx8krhqTA64oiDeRsqhDt+ggV181t+bsKaA2gdcSIbIkvOMSbJOl0O0uav
MSbD1ACfobzdoiZfKS6UpFIf5RYaTVRcd6B3kxxQU9jLo9HDcQAZINQ97rTNObiS
BICb4QHc8nf/dgEaTe7kr5KmtyLlEOFHYgjlA1SO5uhHHAXSH4uGKyEWxqWXAoRK
B2zHKfY4lOTHcGPHQnTBHHq4lwEuySYnOHIa6K1Ov5ogT3K2dt7mU3GqZQFKfXLQ
L6hDnDFeBgRbGL5e/thkXNIYqIcvjkID/TInT0F3fhiqWtLseQNVf+mPSiZ+HrMZ
IlSS48EqA58p4vvquAulZfbwNzRvGkA5QTIkbdIyu87rteLrUQ7sL8ZzKt9gZqNI
6dwf6Kpigyp0vwLuiy4oKdYaMMXVhCtAFcwVytVSLuiPHsOw8P7IsaRZeOEpH5Vs
32eoGpcXIKMjJ2Eng/yWsrUpGIMj6kED/yd7t40BGK8HWJcYqeVloXE2RKWIRjtQ
Qj5M3ycsI760Ix3zmIuYMOIG0J5RyfmNRhvAA7yp8fmQAqP2GxFpJbRbiZ+r0SAz
RmiM8laD7Btx+RaB7OQM82ET6XApzm+8rip2fYjsIIS7yDY/3grDIvoB7ul4uM0O
1kH1GDsgTx9Lx44L6ullwwEql08R4Bz8ek2S7eiHGXb4LDneMmXUdqxRmFBHSZMu
mVZILEnXdMm67Up1J4LCsiW1XVuHRVDWyF5d+irD6Oq2AdTYA9Cp8aYnJ2sU/mY2
/qOx6N9z8pRfHy/fUDXH8m783UMHBA7AkAiwGHYW5S6pFDqExahDWf9dNqtQ6gZh
sAypTy3VirRQmQZEJIJYb5hfMNTCtKftVUPkEjFonerOBJkSuJJ2NhQjOmA6Ovrg
dgwMFC3XOh5oPC4QBhUpz8iOEDYqLS3NDC4eHiJEJ6HM6hJN1xAm3RAuPA48Cloj
FHfIABxOJyvZcLn6Knc7udC4Cjw8CbkiXC10LLjWOnfY6jaekCmz4TYiegh8WuDj
5efhbYSaHxDobvu62uoMDDliKg2CIgcRJlS4kGFDhw8hRpTIcMZEiw+F6LhoDAoA
jWPGEAmJcNSgLFEWhglj5SSgUCQ76gBEZ5YSNaUstdnwpSNHKJNQlcKyTpgcQMTo
LPFi4U2lShdrHj2KRIlqqjV8ChRgE83Ouh1gPm3lcyEaEgTALpQzpgcLOUmMhOnq
4MHDg6y9HnQw0I0SUEuG3CzTZSvtIW9XNV0og64UEllqhK0qd2SSX1PPrgbW5wAF
Pc85EhgD5UaSrHQbLvypnCaVmiAAIf4fT3B0aW1pemVkIGJ5IFVsZWFkIFNtYXJ0
U2F2ZXIhAAA7
}

write/binary %banner.gif data