Script Library: 1176 scripts
 

bin-data.r

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
halt ;; to terminate script if DO'ne from webpage
Notes