matthew@sunpix.UUCP ( Sun Visualization Products) (10/23/89)
This was posted to 'comp.sys.apple'. Since it contains excecutables, I've reposted it here. (where it should have been posted correctly the first time). >From cit-vax!tybalt.caltech.edu!toddpw Mon Oct 23 10:00:42 EDT 1989 >Subject: gs finder backgrounder!!! (shrinkit appended, LONG) >Newsgroups: comp.sys.apple Well, I got swamped by homework after that last post, and when I came up for air I see ten people have sent me letters so far. Some of you need BINScii (how are we supposed to capitalize that?) and I'll send you stuff over the weekend. But enough people want it, so: Here it is, the first version Basic/ML combo backgrounder. This is a shrinkit archive called DESKPICTURE.SHK which unpacks to a directory called DESKPICTURE.F with three files in it: DESKPICINSTALL, BKGND8, and DESKPICTURE. DESKPICINSTALL is the basic program you run from finder to install the background. You have to do it every time the system is booted. (Annoying, right? somebody write an NDA quick! or else I will...) The program is one 80 column screen (less actually) and will look right under 40 or 80 columns. If either DESKPICTURE or BKGND8 (both defined as strings in lines 5-6) are not in the directory, the program will tell you that, beep, make you hit a key, and then go back to finder. BKGND8 is 203 bytes of assembly and it just does the tool calls. The basic part BLOADS the picture. BKGND8 is BRK-trapped to the hilt, if anything goes wrong you should hear a sysbeep as it crashes to the monitor BRK handler. DESKPICTURE is a SHRConverted pic I got from the PD ROM in our Mac lab. It's a black & write pic of Kei from dirty pair. A word of warning: any picture you use for DESKPICTURE (go ahead and replace the sample pic) must be in the standard palette 640, because the data BKGND8 passes to the system (according to instructions, it ain't my idea) only includes the pixel data, no SCBs, no palettes. I ran some cheap bit-munging assembly (read: mini-assembler) to get the Kei pic to be in standard palette, and some of the greys got mushed. I'll fix it eventually, but beware. 320 pics may look ok with the dithering but I haven't really tried that yet. In case there are any legal idiots out there, this is FREEWARE. I had fun hacking this out in a couple hours, and I'm not arrogant enough to think it's worth a fee. The information exploited by this code belongs in a tech note, and was given to me by Dave Lyons of Apple. What you do is add a message to the Message Center (part of the Tool Locator) which has a message type of 2. The message data is 6 bytes of message center overhead (looks like a linked list pointer to me), a word containing the value 1, and 32000 (NOT 32K) bytes of picture data. Send any questions/comments/whatever (and maybe the BINSCII format spec??) to Todd Whitesel toddpw @ tybalt.caltech.edu FiLeStArTfIlEsTaRt ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789() ODESKPICTURE.SHKAoRcAAAACA(4PIAgzOFATBgGAoxsAoRcAERM GVvTlzW6EAzbAAAAAoBAJIRWAAAAZBgGAkgEAEAAAAA4AKAAxBAAAAgGAAAAAAAA GVvTfkB2AAAQAEAABAAAA8CAAAw4AYAAAAAAAAwDAAQAZRROAkwDGAAAQk1DAAQC AoBAJIRWAAAAAAAAUAAAFREAQt0UUNUSFJVVvYkLHtkQ4QkTAAgAAAAALDAAAAAA AAwy7jBAIBjwGEgoAAgIFiW4BIKAAIiAQGOAAAgACIKSAIiBoFOAIJQhCIgoAAgI FiW4CAJBLAAAAQ)CIQPA0jUfLAACCI6CAISCoFOAoZQhQiQhAAgAQbQBAAgAAAQq PgfjPofjAIQqPwfjAEQqP4fjAAA9PgP9IhQpIZQpAAA99hA9oIgoAAgICAZ40DAA 0DQAlCgAliECiikBiURAhDAAAIAkIUKAGUKSCIKSAICEQGOAAAgAIRQpDIgoAAgI CAZ4iCAAiMQAhDAAgtPOGVvTxmG2AAAQAEAABAAAA8CAAAw4AEMAAAAAAAAEAAgA ZZRHAgAFeAAAUklFAAACAoBAJIRWAAAAAAAAZAAAFREAQt0UUNUSFJVVvYkLTVER JB1SVR1QCUkUAIAAAAAAACAAWBAAAAQFAMn1CQw2AAQAXsPbziBBmt9ZxCOlCmVj VPQYYiDMDHGcGAMBHHopCJKjV0gBHvP)Af87ZmhMIgaCCmpkNRyHTvi)CVqch5ih IxhlN)lhfhjiHOo)P)F8AOghJRohKfGlSMfARAok)kt8NCBYAwhtUbccY(vqj3RZ ClyEZAWhXXIjUBEsHGyr7MV)DxEcJ11AnUOxL7mtH1lA5UHJWNGjuzfM53k5hJOc MwstB0AvUh1AcA8lTSxDCLnUgwzDQNoMDzEVBlwAQRJNZ9u(j0CEb7GtMCQ1whxs Y4hkzwipNkwtB6JaEESob1bmrhjENH6uf0A38)EIM69eeDTGpAsCF0O4kysqMZ48 zsDQfXT7)(gFULTGYIAhutLPMee)d0AD6YEPPoD7zCbsEmqDGPG8KuaAyMgADyKB ZkZgruDnCobAmtdAxAIEBCyLcwcb3DO))s9YQAPM3gpIzewgEwMiosAPAdEgYCzB oTUGw8B4wE2hIyqTGDMkYIQG5wAfMMCjG2AhAuR8MWuULgQGJsPPDU(4hJiZWTm3 wGA4S9vmZwvSFjGdeMjmgBGMDkSdYCAYJDUPzayT8M)AwPjMwG8kcMjhKBEMDGOF E)vhrWEmM0ul)8mZGVmzDmacG))k51K7gfi9RqFgrTlUipKAmDBh5wXhMwOYpMYB wWnmJFfMGChZcwXhMS)NTMW09y0YAXG1pOYBB3viZ92MW(8uaCsGw4OYhfY3M7bx APELqzs4GwhJ8WOAw8)f4giZcH8ABQit53EQCvzI9GQ7re1RKZXNRbGs7e3dDJIN Z(bMOjXbl7Lr4Rz0EGQKpDtJywvvh6AI6xOmTLCILSDCG4OAGiAz6Lh6ETaQAHA( OhALgAyKCAZB4dg5grGzI)3ts2AmcRglsDgSoREUgHWgMAZ2yz5sKUCsGCQYEQcG BiGw0R4ZZzIaSCBAEMbGHEJGawx4FQD4wxtpiQID0wOij7jnYTaIQAMCwjqOHr8( c20JnwyKHu5nMhXAAiIdASB)sigabHABgnn)fD(BMA2PbFjtfwIAME2sjFAmbzm9 wQADAAgZgyiBJgXAYUSmMAlFB8xvQBQBYAGuwYGPLGDmiLPSQkxsci3HkK1tn9nz URoHZLJ4Mj4S8kl5GMGwAcAjEihfAC2Bw4XQAJiQoSVCdMgQokQmBRpeKkRxbAMA eKHk)raw8YInoVDwRMAWlK5ZiZNaM4hAkonojOEOBorQ7L8gBfpmOem3EIWLAChd C8H4g6PCkijWoBYg7DvHlPtGSS64MzfAgnDbbAGAVhcAjAKSP4HUsUo)0NFEAa2Q TGzntPIDwKwvsOxVZgpaAJZAeXe43ETHmBOgA6xafLfsGraAPTRBhWFmotNA8kB4 fYPbDDMPT1DgAMsOp95jFacrAFVY(BmXg(sS75FsMLDKqBDAArPG7wqGqwq1CDIb wIgYUTDohi0OBcrA3DgROPALKsYJg(CuparAQejKIOLY46OAnMoSyARqgLybRAIG AaAA0CWGjDZGLfkyIoirklIJpg80gb942(R6wnCmdLSI1(qkgjQGfgTwgxxUs1cx GsGZahb8hh5YAinHQa2Ptq8ixi)HsMiqyCReeIoK3cAmsPaDuDbsGiB2B5xnv8iM R5fogZwazJBpTpDg00mUrwPAwmJ6Qvpa1BEukEz6iS2)(jBDvLK40saU4g2QjfjS f28sqBL2GGZMASXSDGGBx7zhgThUB(UtHqeoi5eeYBKNpuQdf2gt)4euDqf1HcY4 otC1)3yQYBaedCprzrTgIrGoSEAvaPlGNR2qAICkKvf3EZjtnE6(6KP5El57L2Vc cztwHV3QR6vibZtaI0wQm7nXhWVuTziAYfzLqlIm0nRplc(mF6vHZBoTnM(zYvtI k2OwVReApmD2xYgArCjIlkvQTTU1pPOm2rDJBQIJRhHsOCl27RMKnv)Rk18Izigq yQyl)BOqHAI2I9hziziB(FVDRfjBpvjc)pCx1mGke06ImmOY4F0)ltIAiJzO7Xuf Tm5hpqPDc7HAZspLbJjrZKTmAMFoBQgsF6)2vffgB8438DwMDEM(mNDAU4BPsfPh gNzHMUQAAi2C)NbA(bD)AA8If8LGNkpFGiMCB8L4BY(wPczmHyoH(bFPRCyEMOY2 A3gIMA8eCAMQBYIDxj(Kq8z5GQB8PAApfQdZCbxD0FN(49D2Bg)ASoPMFAsXwXgT AB)Ym(r4ceaAjsPFTSI4BeYBvlQpfCjBA8nLWv5GViE7qXcB0vGDPq1hJ9fdYuZE A0F7(PbaAGPgwO4BYMRAPDgf4JE5CM(FgxyiFSF6OkfegdAmQ)LGA8hIw37sJj8r IAw2bjKaYXQKmR7z7vXHnKwXQcguzoO5BTJoOT8DPFPmL)r6KL2)A0DnI)IGDxwB XwKwInsXpDYUfACFjjkB)PZUwzHwRqHPgBGIY29P(kSEbjhsAyrKOggKmLfIgqSy jK3AITCziIoAkPqqjiwkgryfD26xAzBSDoQK62kIS7)fKrQCONhbAErIFrI(IQA4 8KAChkp)cltp9ey(CcIFV3KYmQgM(y8OACmGCesJ7nc4RSuUmxKxqEDOYpxpHiha RSBXAworACBUkRaGcLaUxtMDmFAGZe(mUXUCsHYqsgvBqhCogwCxkJb6tCYcTEEg zIyKMZqeCVELGsDwulO(iKLAJrEqk7ZiQGyBhVuBEkxmIBJEZ6PlVy6Jxns5UwwH 486g7CDkFgBFKUzBiILVsyCMa6QGMAyJmwhav0gMkwQp6FcAVCtcJVNQb9ggOH04 Iyg5UuDLCOIv(HbSlQPH4BAGtuLcRrK7MwqR4Aj4KRnA(lCYorgqNvQC8maDVuAL EagcQKmE2GALAIrCzJhuNFgCyX0SMdynnOn8obGkNZwaOgdYC4cIjAgsjIc4lC4y txgmU8npJyejp8fOJyKA21VvDM0XfAo0bIyzQfMGnzJRCI(HTLkc9x0oPzs8XWtJ 43ArnmUuaybCnySVqaHf9AHgJNNR0FNcSPoasooLBw2VnJL2C9bEpsy8rKQJBYmY Dwmjq6PYgQqbbDyEdAbvtJifk3ptzUq7LaS2FITA(vdAHAYPzkxj()PYAMQ8wcA4 PEghIDFAAAMAeAAeyzHBwGCQhZRb3wPNMCMAmtdA5DEC)MwjBagH4TUdC71DCAQh IDkEKT(D)rxhYxUcMSiM4PQA50TIMawY55CoIADMD(NgE8vn3DO)PK(o(BMhotKw QbgEV0Rj6imDAYAdbeUkRgvwDOMsz4QqwziBziBAEDvh7wlVZd8gFEUo6OH8b5KF )njwmhReDuOcTYBt4viDgJ(9eAfucUk0TFLUL3EGbUmyBNA0uAPhou2)m9N9R5zg BTonAR2QHmIKu1RHTTq09EkpatD8Ad88)l0h3MODDGS9lLSA9PvzCh3DZ4GeZ2zv TXuce8BgpsKPTNLc(Pc9AfQVJZCQjI)p3()ebJfHDr8iPQrbvroRYwuM(eimbqe( 45xZuvrygQ7tAGIniI1oASKoojuRm5RAHmI8CkaBHkJgnipfY(Rq)mWYqIVeLcCI Hx)NEsKBEHlA6zP(BQ8ysTCHmEWmGpCJkJGGATYSRwgcGFAAHdK)JiphZU8LpAmf 65oiAEsmM0CDgRgSgpneU8ZJmgCvJE4EikisSm9)OQ5vA3E0kbMgHk55IMmNGnhv EhsOa5rZ4YcExJ4OSloBD7owMYPpojJDUGghmZWQkEPUdGBCkE1cwP(dCktKYG3w 6bKpf86ChMOkVkDIUBQPNREpCIDKISKFAmqqewAJwfwFGZNVBrRWD4zJhAsGaK2n 1OqqHiPYea5BL)KiaWVYgN0ipuhUStoJgk8iFtCIAisKWCLnPDlTiwAl7xokBAN4 KwG(UKAptedLaQkhamQbrVp1w4AtgAmYbI1nKJa7oqT3Usuo8sKNRcOJSHK4HqP9 IqJC4IN9ASjlGIC0mrHfmR9BAqKCYGmSHCoCnzvWL6Ipreu(KoCvRjAaJvEbCKLg kBkw7bgA4Fc95J29qYgKeQhm7Tn3x2qcYosGqAGCjhq6Ka9A)MADSK5v2prPh40Q q6rhtRM1gHBgceQ5BChqq0LaAaaTOCqeVAWo4CWLAzCo6fSS2UieitdZt90iinxh d7llIgLE29HwH2oGIGggZI0rnvfyJcngDrPoqfND4GIiBvZbmAWZ3AaBYe2V6fw( UYOVG4JB(vdAGDQbAAAA()Pe2sdAMCwY)ZQAAwKBADEYMAsAHvpzACMk()QGxgZ8 )e8gYATYwSGEAAYDWMAeAAkzB71YscAgRtt)AEMkS8jfhRokAEKkASRnAQT6DfGw hZki5QBg)awAzkyk4ssAP5JAeggh6DI8QDw7aqDg3QuVDHCInEAnwPAw)KC4r1lg KshwzqOYmPQAATQnHXKrYAfeYBiKC(x97hWY2zh)D9xjh1HiA5JNBC6N(BQu5vAD I76ghHSAXAe)hhhcYwwghsPMMyiGlkxH77jOaf4L(Dwnh1Z7ErCsxBDuMwgE8s9Y Tg6AIxkGTNGMvhYlQhjz)g(s7BZBATw9UnzrAIQGb4IaBfmG)r5B)3ZB)M)rNoCj wMmM8eA7bzyBvqqzNMuvCW7Bpg4YTqBiGjJAqpGzmXohjCSOYiAgXWyihtp9QAgH 84(IqZOwGHIboiMcaoNooqsIgLixAC4BqAPEoDOux8ymo4AAQPMjNtDWA94x3qka 7LRBxX8JPPkE0ZYxpAkiqfuGKIrCwS7dYGQJCxYCaxIBFAaMBtLee4pxG4GSKKA6 H3DoPKomonvNH8IpUrrlgusaTtKSqmnvGvmGApxfpXcUTpFOYhwJBgyCzBwgdEoT ti4Cm5apA6OcyjUYGcqSBPswSwrRfMfZRDICVEd7zT)caB5hVjiwyJiyP(Z9rSi0 U6YAgcIncVBBEcKVqJo7pmkn2SzuiK0nn)StKCDCaAYsXjKWav5MBNqs2zRAadAz mGTzFI2fwLrhxqMPE)hqyQNJTnSJ82CUPLLjdcQgSFVtF4W1XGCYp3jls4a3jcum MQDGAyNCmgnb7lXIgUjidawBwJKtsRx6j9BMYimgVONJQ(xj2Su7DYYsQDuErZc8 ZEAj4K7AICPY6yMJqtRZYCKKpuHnVoSohbofaqrx7j21ujEGsx9uG9WpzjA9iUWU ujWYCSoVNliGg)hAdbQ90BuBcNsXfcvxd69AFkr2aKILgZWGnrycbSIoSCW04IFu f8ayAolfeEab3EItB6Z0FzoOtdfryQ56KqqrvtJiqjhHxC6YyOANEiaAg7k2eBot sQtHzRqZDWqTmQ2ZdtUPhutaCZji3YayH)fMqQoBBg2Y2Upand4iarGYfE0Tl1FS 9H8foG65gghHG)Iq3AkYrWHAmcfAUfydmNLbT1CwFxzmvmNTJmn52AWedRr6XrKC sHNOxd6BEqP53Gzz8DPo2AwGqve0J36BRAFal5Bq(Ev)FFL04ygfGMXlPAwxxdWZ Jlv92aUvc76lD8B5NgEDAZGHuHY3S54PQwZyVI7J3cQ1NJwWAEgB7zmHYD2RwkBj YyDGBM(NDAAA4bkBGDbM))3gb2m5GDQoAbAQL5PKbDH8wbAvD6MIfH5hRgoNAywZ jOWwHUJAIGTgC8A(WE5PkrWMfEP6DAwA7BQFfNO8Od60FYzofDPou8XxE5WYGPHA QY2Dco)BpPKabE2vcp4OfSPgzTqAdyBHZ8eMHpqVg78wAzmO8oaQjAcItYxaKEZU MFP(qiBoOl6Y47fqmcXYADGAYIC9gzOACM6j8r2ejaxVIWQ4OVY4i)CA7gXSb085 h)g93YgNe42YmOOPjGrQb))StuN(JEo6(JkQlQD)8r90FICE3DkJei3AnMQQ4FJj iUKa0pZSuPJoz8hyI(wbmsdmp8BjsQaYtEgDePbaQIwk1Daia(v8qqgOYCWhXCoT Hvv1eQ4LocO4SMwBunx6htphQ2)J8y26hbukdSKrpvrQmN4B6iCCTQClhTySAomN QWcOADwA4g3)LqqSwHD(EcpuvmO2bKaG9f6RwpmBmxfRkGHcB5)44aMAJRDUaiHA nmmcA6AmgYYApOx5uFYwBKJQjjlomr0jtRIAYd6PAfqgDjabeskUJhlBdJCwMfi( kwi7k36sAoHTmBAL2ILkc76jBsMKrCKeHJyysM)2bhv40kDTxN(HkiuM6M7gYEWR zHAggojXksfKBwYNA6QkXTScLjsHiiHP9Q3Q0sEUCY6Lpwh3jlENV7qKcwJ0HbMY AJga(tIgRfK4UN(NQBNlsMTZFZ1SFRrkg6gniBqctNXsDXTAAdum7VdZFAYiIXUC 4OMPAisGAFHPBGo0pjgD8)52YFug8lnNS4rDAzRDQYNrGChWqf7dRDYtzXu6y)n3 74QRc6wwyFwRAPRXxLAoEDiGj19jEYIetiAYiEIoBCrr47goSo0k0XcjU(4HBnVr AgxgIi5CI7jc879ozatqYyQjBQaSHwvJat6he9EfTcdmlSi2Yqu815JxoXn2F08T KGkBXhlZEEopllI(0pyukSKQIRxXBYmJsZGZmZ7pvyiB6qSb8EorXhI3ML)sN2eg NgAHgFp7jmMljJZepcEgwNbs(Y2GAGan2chdNn(rgIyNGMdZwGs4ygnBYuL4RAJC hkcTRrqi(XvEFCXWNJ5DmDQc9of(KbwpJZbg4h5ZMUQc1C8KHEGfOD4WcJMkZ7X4 e2XzI6A08keSHhZdC0FKmtdAxDIN)u9YMMgAXAoKDCM0K8TbGgN8ACMgK8)fADhA zkBgAADAxgJDAB0AIBQA3PozB8N8GMjhwgBwOCKznjReYzRBDLkUnXTmIBcC2Ie0 4)fogDQAJbSMnlAk5gBCBX2YiiwfwBgDBba9(dAq4sA)EWOowdAgH0vqAKKj)z1B qzU4JbgFFEVpJQFzCoy7vuFm3kpFBCywnYAmhxJ6c5KQUKwgrzoie)F(LEAk5iDw ZFiUc()kHxPMhBTg4Txgg1UR8quUU8vmY0EkV9tmP06FcTOiNFkUfSbqnzP6rjlA jtrA4Xl9Br6e3ozPbQnkoDMkfvYB3cuPBkbPgtA2H8vaCqKKDbw1Jw2n5fP6fGul 5eosCoO8vWi7dIlAsHAMiarB2CZTggjZYsKpqyOk5AeQDuijNDrG4PEIAiaoYwhl jHRTHovJ(brg0QW8zj2TOVKpnxPJA0GhHaQOYrnFqQgAjhE0gDhDMMGSQquOQwwo DjizkLTjOOICAgsM8wYQCgJQGmSCNMMeki4OqQwAjgZ5BlSDFEMkoDEGLcgoIk3) KLAgMNNJc0MNvB4CO1IAYbU9AtHKAAAAAAQAAEAAnDwLAAAAAAQyAAAABAAACAAA Qk1DAAQCQMCAJARWAAAAZBgGAkgEAAAAAAAAAkBATVERJB1SVR1QuUkUG9iRE5US uIVRUFERAIQQAAAAAAAAAAAVAQFABAAAAMJA6CgBBkEAAAAAAAAAWAfAAwDAFRkD Qt0UJNUSUNlTMxUQwHAAmCgFEtAALNVRDlEUSVFVG5SRBAgUAYB8GEAEHtkQ4QkT VR1QuUkUAIlROBAAYbU9AZeiAAAAAAQAAEAAjDwLAAAAAAA)IEAACAAAJAAAQkFE AAQCQACAJARWAAAAZBgGAkgEAAAAAAAAAwBATVERJB1SVR1QuUkUE9iRLNVRDlEU T5USMFEVAIATAAgAAAAAAIgYCoCAgDAAbDQ3BIAjUABKECGARQDBMrMZnMQW6gRz USedDGaEREkiQiOLDOBGSgRRBbbMCACEEABAIAgBmhSu3kRzQBHZEIHFcwg2AAGN AJIyZBQAogIIFPAXJSUI8iJIQNZCvAoD8jCCIAFBAcQgeyARjE0QE5YhprjODRKu d0wFAx5QDEwkxJjRALGK1FNkdBALcDFC0FSFHGdYkscEUpdX0CLBkQmyjE1ixgQh QBUeGOUergIDQLNaGiVUilcTAQGCqULKAgE5wDR21tJu7gwhkSeZHNZMC6Ixk4AA AJAMyyNls05hCHpnmKVtcydaUqTC4shze4PINPbLAkUBAJhEK1bGBgkhkIFAaKM0 xsGhDiAbw1FsAU0hQKBNj7T4mAwOUydCe(5Pdof6BKtVAoZEBOCCIbwcYYYRBAGb aJrhPyye4CQi0FAJijiBefiIv4MYDIwo0wYwsAB2oDROOwGyIhMEHK6QjAp3oAxj GUqWJB5(DoJAoxDNqfDiMMIYg60NhQwAsMr(GFcREGBLAR0EkBipBiDRs1hRA8At ZBXBRcEoyxgfBJCyOMKkM65NqUicBAwTBVShMOCESyVMYi0AMMnYPtxyBA06wbCR dcQDrlELKzRsHCn0o4WrUEtjDBAACkUAQBZXAN2QwcBVSDywmTOyMMCowjtNQgCk hIXJmnoOMEDWoYNEdY7olAPdwKBCHYC3BYbAhAAQn0veBEG2YZLEN1oYlltFEgeA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA Ag4O -- Matthew Lee Stier | Sun Microsystems --- RTP, NC 27709-3447 | "Wisconsin Escapee" uucp: sun!mstier or mcnc!rti!sunpix!matthew | phone: (919) 469-8300 fax: (919) 460-8355 |
matthew@sunpix.UUCP ( Sun Visualization Products) (10/26/89)
Another incorrectly posted program. Here it is on 'comp.binaries.apple2'. mstier@sun >From apple!agate!ucbvax!pro-europa.cts.com!jeffn Wed Oct 25 16:41:58 EDT 1989 >Newsgroups: comp.sys.apple >Subject: Re: gs finder backgrounder!!! (shrinkit appended, LONG) Todd P. Whitesel writes: > DESKPICINSTALL is the basic program you run from finder to install the >background. You have to do it every time the system is booted. (Annoying, >right? somebody write an NDA quick! or else I will...) The program is one 80 >column screen (less actually) and will look right under 40 or 80 columns. >If either DESKPICTURE or BKGND8 (both defined as strings in lines 5-6) are not >in the directory, the program will tell you that, beep, make you hit a key, >and then go back to finder. I dissasembled your code to figure out what makes it tick. Well, it's not an NDA but I like this idea better. It's an INIT that you drop into system.setup and it loads the deskpicture everytime you boot. The desktop picture must be in the system.setup directory and called DeskPicture. This init adds less than two seconds to boot time on my system. If the deskpicture is missing or something is wrong with it you will get a system death error message, but that's better than brk... THE DESKPICTURE MUST be unpacked! Freeware. Requires gsos 5.0 or later. Please distribute this, I don't call many places. Cut here ------------------------------------------- FiLeStArTfIlEsTaRt ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789() KDESKPIC.SHK AgBIAAAACA(4OIAgziFAYNRBTQwsAgBIAMBX GVvTlzW6CMCcAAAATUAAJcRWAAAAZNRBAkwFAEAAAAA4AKAAgAAAAAAGAAAAAAAA GVvTagD2AAAQAEAABAAAA8CAAAw4AcLAAAAAAAAAAAQAZNBBAkwFEAAAXk1EAAQC TUAAJcRWAAAAAAAAMAAAFREAQt0UuMUSJ5USAIAVAAAAAAAAAEw4BMOAjDAAAAQA AAAAB0FAAAAACQgCBAAAQAAAAAAAAAAAAAAAAAAAAAQAAAAAABALFREAQt0UuMUS E5USLNVRDlEUOlkLB0l8LCAAFu6SwIOAAnyrwIM403AM0DAAiGQMiACDhDAAAgqI gAR4AAg8oAPAAQPS2QPADIKAAISFZEOAuH(wgS)plD)7EDq7rPf5jnO0yXP9jCa5 03Kpf0IAv0YAIhUAAAA99hA9IBQpAgA9iiESikgAhDAACUIaEUIaAIAoFKwpphhB NCAC3GQIIUoABMSjAAQqAIAoXawhIjpBGcJyIjsOiYwlhDAqdAiEAAQAIhC8AAA9 AkL9VMgoAAgIDnR4n6e4yDK9kHe5lTMoQv(80Pe6lLf9kOKoAgqIgQR4AEQLBQPA CQPAEUKACUKSBIKSAISFrGOAAIwa6DAAAAAAqCQI5PvulT)8zrb70Pf(u2e50X(8 6Cf9zXO5pD)61T)4EUu8AAAAAAAA9BAAAAAAAAAAAAQAf0AAlTcHQv(80Pe6lLf9 unsrgSf6OrMo2DKouGLsNALsKDgCmbe5v7Mou)O(Aow9AAAAtMxBXRVUwmogAMQ9 6Dg9DUPAAkNA1HQLtCfAAkLAAMQ9dAQpBUfAAoC81DgNiAwAAIPAwHQ9xAAEOBQA YbU9A5g)AAAAAAQAAEAAjDwLAAAAAAQwQAAACAAAdAAAUklFAAACW4BAIQRWAAAA ZNRBAkwFAAAAAAAAAsAATVERJB1SVR1QCUkUAIAAAAAAACAAWBAAAAQFAMn1CQw2 AAQAXsPbziBBmt9ZxCOlCmVjVPQYYiDMDHGcGAMBHHopCJKjV0gBHvP)Af87ZmhM IgaCCmpkNRyHTvi)CVqch5ihIxhlN)lhfhjiHOo)P)F8AOghJRohKfGlSMfARAok )kt8NCBYAwhtUbccY(vqj3RZClyEZAWhXXIjUBEsHGyr7MV)DxEcJ11AnUOxL7mt H1lA5UHJWNGjuzfM53k5hJOcMwstB0AvUh1AcA8lTSxDCLnUgwzDQNoMDzEVBlwA QRJNZ9u(j0CEb7GtMCQ1whxsY4hkzwipNkwtB6JaEESob1bmrhjENH6uf0A38)EI M69eeDTGpAsCF0O4kysqMZ48zsDQfXT7)(gFULTGYIAhutLPMee)d0AD6YEPPoD7 zCbsEmqDGPG8KuaAyMgADyKBZkZgruDnCobAmtdAxAIEBCyLcwcb3DO))s9YQAPM 3gpIzewgEwMiosAPAdEgYCzBoTUGw8B4wE2hIyqTGDMkYIQG5wAfMMCjG2AhAuR8 MWuULgQGJsPPDU(4hJiZWTm3wGA4S9vmZwvSFjGdeMjmgBGMDkSdYCAYJDUPzayT 8M)AwPjMwG8kcMjhKBEMDGOFE)vhrWEmM0ul)8mZGVmzDmacG))k51K7gfi9RqFg rTlUipKAmDBh5wXhMwOYpMYBwWnmJFfMGChZcwXhMS)NTMW09y0YAXG1pOYBB3vi Z92MW(8uaCsGw4OYhfY3M7bxAPELqzs4GwhJ8WOAw8)f4giZcH8ABQit53EQCvzI 9GQ7re1RKZXNRbGs7e3dDJINZ(bMOjXbl7Lr4Rz0EGQKpDtJywvvh6AI6xOmTLCI LSDCG4OAGiAz6Lh6ETaQAHA(OhALgAyKCAZB4dg5grGzI)3ts2AmcRglsDgSoREU gHWgMAZ2yz5sKUCsGCQYEQcGBiGw0R4ZZzIaSCBAEMbGHEJGawx4FQD4wxtpiQID 0wOij7jnYTaIQAMCwjqOHr8(c20JnwyKHu5nMhXAAiIdASB)sigabHABgnn)fD(B MA2PbFjtfwIAME2sjFAmbzm9wQADAAgZgyiBJgXAYUSmMAlFB8xvQBQBYAGuwYGP LGDmiLPSQkxsci3HkK1tn9nzURoHZLJ4Mj4S8kl5GMGwAcAjEihfAC2Bw4XQAJiQ oSVCdMgQokQmBRpeKkRxbAMAeKHk)raw8YInoVDwRMAWlK5ZiZNaM4hAkonojOEO BorQ7L8gBfpmOem3EIWLAChdC8H4g6PCkijWoBYg7DvHlPtGSS64MzfAgnDbbAGA VhcAjAKSP4HUsUo)0NFEAa2QTGzntPIDwKwvsOxVZgpaAJZAeXe43ETHmBOgA6xa fLfsGraAPTRBhWFmotNA8kB4fYPbDDMPT1DgAMsOp95jFacrAFVY(BmXg(sS75Fs MLDKqBDAArPG7wqGqwq1CDIbwIgYUTDohi0OBcrA3DgROPALKsYJg(CuparAQejK IOLY46OAnMoSyARqgLybRAIGAaAA0CWGjDZGLfkyIoirklIJpg80gb942(R6wnCm dLSI1(qkgjQGfgTwgxxUs1cxGsGZahb8hh5YAinHQa2Ptq8ixi)HsMiqyCReeIoK 3cAmsPaDuDbsGiB2B5xnv8iMR5fogZwazJBpTpDg00mUrwPAwmJ6Qvpa1BEukEz6 iS2)(jBDvLK40saU4g2QjfjSf28sqBL2GGZMASXSDGGBx7zhgThUB(UtHqeoi5ee YBKNpuQdf2gt)4euDqf1HcY4otC1)3yQYBaedCprzrTgIrGoSEAvaPlGNR2qAICk Kvf3EZjtnE6(6KP5El57L2VccztwHV3QR6vibZtaI0wQm7nXhWVuTziAYfzLqlIm 0nRplc(mF6vHZBoTnM(zYvtIk2OwVReApmD2xYgArCjIlkvQTTU1pPOm2rDJBQIJ RhHsOCl27RMKnv)Rk18IzigqyQyl)BOqHAI2I9hziziB(FVDRfjBpvjc)pCx1mGk e06ImmOY4F0)ltIAiJzO7XufTm5hpqPDc7HAZspLbJjrZKTmAMFoBQgsF6)2vffg B8438DwMDEM(mNDAU4BPsfPhgNzHMUQAAi2C)NbA(bD)AA8If8LGNkpFGiMCB8L4 BY(wPczmHyoH(bFPRCyEMOY2A3gIMA8eCAMQBYIDxj(Kq8z5GQB8PAApfQdZCbxD 0FN(49D2Bg)ASoPMFAsXwXgTAB)Ym(r4ceaAjsPFTSI4BeYBvlQpfCjBA8nLWv5G ViE7qXcB0vGDPq1hJ9fdYuZEA0F7(PbaAGPgwO4BYMRAPDgf4JE5CM(FgxyiFSF6 OkfegdAmQ)LGA8hIw37sJj8rIAw2bjKaYXQKmR7z7vXHnKwXQcguzoO5BTJoOT8D PFPmL)r6KL2)A0DnI)IGDxwBXwKwInsXpDYUfACFjjkB)PZUwzHwRqHPgBGIY29P (kSEbjhsAyrKOggKmLfIgqSyjK3AITCziIoAkPqqjiwkgryfD26xAzBSDoQK62kI S7)fKrQCONhbAErIFrI(IQA48KAChkp)cltp9ey(CcIFV3KYmQgM(y8OACmGCesJ 7nc4RSuUmxKxqEDOYpxpHihaRSBXAworACBUkRaGcLaUxtMDmFAGZe(mUXUCsHYq sgvBqhCogwCxkJb6tCYcTEEgzIyKMZqeCVELGsDwulO(iKLAJrEqk7ZiQGyBhVuB EkxmIBJEZ6PlVy6Jxns5UwwH486g7CDkFgBFKUzBiILVsyCMa6QGMAyJmwhav0gM kwQp6FcAVCtcJVNQb9ggOH04Iyg5UuDLCOIv(HbSlQPH4BAGtuLcRrK7MwqR4Aj4 KRnA(lCYorgqNvQC8maDVuALEagcQKmE2GALAIrCzJhuNFgCyX0SMdynnOn8obGk NZwaOgdYC4cIjAgsjIc4lC4ytxgmU8npJyejp8fOJyKA21VvDM0XfAo0bIyzQfMG nzJRCI(HTLkc9x0oPzs8XWtJ43ArnmUuaybCnySVqaHf9AHgJNNR0FNcSPoasooL Bw2VnJL2C9bEpsy8rKQJBYmYDwmjq6PYgQqbbDyEdAbvtJifk3ptzUq7LaS2FITA (vdAHAYPzkxj()PYAMQ8wcA4PEghIDFAAAMAeAAeyzHBwGCQhZRb3wPNMCMAmtdA 5DEC)MwjBagH4TUdC71DCAQhIDkEKT(D)rxhYxUcMSiM4PQA50TIMawY55CoIADM D(NgE8vn3DO)PK(o(BMhotKwQbgEV0Rj6imDAYAdbeUkRgvwDOMsz4QqwziBziBA EDvh7wlVZd8gFEUo6OH8b5KF)njwmhReDuOcTYBt4viDgJ(9eAfucUk0TFLUL3EG bUmyBNA0uAPhou2)m9N9R5zgBTonAR2QHmIKu1RHTTq09EkpatD8Ad88)l0h3MOD DGS9lLSA9PvzCh3DZ4GeZ2zvTXuce8BgpsKPTNLc(Pc9AfQVJZCQjI)p3()ebJfH Dr8iPQrbvroRYwuM(eimbqe(45xZuvrygQ7tAGIniI1oASKoojuRm5RAHmI8CkaB HkJgnipfY(Rq)mWYqIVeLcCIHx)NEsKBEHlA6zP(BQ8ysTCHmEWmGpCJkJGGATYS RwgcGFAAHdK)JiphZU8LpAmf65oiAEsmM0CDgRgSgpneU8ZJmgCvJE4EikisSm9) OQ5vA3E0kbMgHk55IMmNGnhvEhsOa5rZ4YcExJ4OSloBD7owMYPpojJDUGghmZWQ kEPUdGBCkE1cwP(dCktKYG3w6bKpf86ChMOkVkDIUBQPNREpCIDKISKFAmqqewAJ wfwFGZNVBrRWD4zJhAsGaK2n1OqqHiPYea5BL)KiaWVYgN0ipuhUStoJgk8iFtCI AisKWCLnPDlTiwAl7xokBAN4KwG(UKAptedLaQkhamQbrVp1w4AtgAmYbI1nKJa7 oqT3Usuo8sKNRcOJSHK4HqP9IqJC4IN9ASjlGIC0mrHfmR9BAqKCYGmSHCoCnzvW L6Ipreu(KoCvRjAaJvEbCKLgkBkw7bgA4Fc95J29qYgKeQhm7Tn3x2qcYosGqAGC jhq6Ka9A)MADSK5v2prPh40Qq6rhtRM1gHBgceQ5BChqq0LaAaaTOCqeVAWo4CWL AzCo6fSS2UieitdZt90iinxhd7llIgLE29HwH2oGIGggZI0rnvfyJcngDrPoqfND 4GIiBvZbmAWZ3AaBYe2V6fw(UYOVG4JB(vdAGDQbAAAA()Pe2sdAMCwY)ZQAAwKB ADEYMAsAHvpzACMk()QGxgZ8)e8gYATYwSGEAAYDWMAeAAkzB71YscAgRtt)AEMk S8jfhRokAEKkASRnAQT6DfGwhZki5QBg)awAzkyk4ssAP5JAeggh6DI8QDw7aqDg 3QuVDHCInEAnwPAw)KC4r1lgKshwzqOYmPQAATQnHXKrYAfeYBiKC(x97hWY2zh) D9xjh1HiA5JNBC6N(BQu5vADI76ghHSAXAe)hhhcYwwghsPMMyiGlkxH77jOaf4L (Dwnh1Z7ErCsxBDuMwgE8s9YTg6AIxkGTNGMvhYlQhjz)g(s7BZBATw9UnzrAIQG b4IaBfmG)r5B)3ZB)M)rNoCjwMmM8eA7bzyBvqqzNMuvCW7Bpg4YTqBiGjJAqpGz mXohjCSOYiAgXWyihtp9QAgH84(IqZOwGHIboiMcaoNooqsIgLixAC4BqAPEoDOu x8ymo4AAQPMjNtDWA94x3qka7LRBxX8JPPkE0ZYxpAkiqfuGKIrCwS7dYGQJCxYC axIBFAaMBtLee4pxG4GSKKA6H3DoPKomonvNH8IpUrrlgusaTtKSqmnvGvmGApxf pXcUTpFOYhwJBgyCzBwgdEoTti4Cm5apA6OcyjUYGcqSBPswSwrRfMfZRDICVEd7 zT)caB5hVjiwyJiyP(Z9rSi0U6YAgcIncVBBEcKVqJo7pmkn2SzuiK0nn)StKCDC aAYsXjKWav5MBNqs2zRAadAzmGTzFI2fwLrhxqMPE)hqyQNJTnSJ82CUPLLjdcQg SFVtF4W1XGCYp3jls4a3jcumMQDGAyNCmgnb7lXIgUjidawBwJKtsRx6j9BMYimg VONJQ(xj2Su7DYYsQDuErZc8ZEAj4K7AICPY6yMJqtRZYCKKpuHnVoSohbofaqrx 7j21ujEGsx9uG9WpzjA9iUWUujWYCSoVNliGg)hAdbQ90BuBcNsXfcvxd69AFkr2 aKILgZWGnrycbSIoSCW04IFuf8ayAolfeEab3EItB6Z0FzoOtdfryQ56KqqrvtJi qjhHxC6YyOANEiaAg7k2eBotsQtHzRqZDWqTmQ2ZdtUPhutaCZji3YayH)fMqQoB Bg2Y2Upand4iarGYfE0Tl1FS9H8foG65gghHG)Iq3AkYrWHAmcfAUfydmNLbT1Cw FxzmvmNTJmn52AWedRr6XrKCsHNOxd6BEqP53Gzz8DPo2AwGqve0J36BRAFal5Bq (Ev)FFL04ygfGMXlPAwxxdWZJlv92aUvc76lD8B5NgEDAZGHuHY3S54PQwZyVI7J 3cQ1NJwWAEgB7zmHYD2RwkBjYyDGBM(NDAAA4bkBGDbM))3gb2m5GDQoAbAQL5PK bDH8wbAvD6MIfH5hRgoNAywZjOWwHUJAIGTgC8A(WE5PkrWMfEP6DAwA7BQFfNO8 Od60FYzofDPou8XxE5WYGPHAQY2Dco)BpPKabE2vcp4OfSPgzTqAdyBHZ8eMHpqV g78wAzmO8oaQjAcItYxaKEZUMFP(qiBoOl6Y47fqmcXYADGAYIC9gzOACM6j8r2e jaxVIWQ4OVY4i)CA7gXSb085h)g93YgNe42YmOOPjGrQb))StuN(JEo6(JkQlQD) 8r90FICE3DkJei3AnMQQ4FJjiUKa0pZSuPJoz8hyI(wbmsdmp8BjsQaYtEgDePba QIwk1Daia(v8qqgOYCWhXCoTHvv1eQ4LocO4SMwBunx6htphQ2)J8y26hbukdSKr pvrQmN4B6iCCTQClhTySAomNQWcOADwA4g3)LqqSwHD(EcpuvmO2bKaG9f6RwpmB mxfRkGHcB5)44aMAJRDUaiHAnmmcA6AmgYYApOx5uFYwBKJQjjlomr0jtRIAYd6P AfqgDjabeskUJhlBdJCwMfi(kwi7k36sAoHTmBAL2ILkc76jBsMKrCKeHJyysM)2 bhv40kDTxN(HkiuM6M7gYEWRzHAggojXksfKBwYNA6QkXTScLjsHiiHP9Q3Q0sEU CY6Lpwh3jlENV7qKcwJ0HbMYAJga(tIgRfK4UN(NQBNlsMTZFZ1SFRrkg6gniBqc tNXsDXTAAdum7VdZFAYiIXUC4OMPAisGAFHPBGo0pjgD8)52YFug8lnNS4rDAzRD QYNrGChWqf7dRDYtzXu6y)n374QRc6wwyFwRAPRXxLAoEDiGj19jEYIetiAYiEIo BCrr47goSo0k0XcjU(4HBnVrAgxgIi5CI7jc879ozatqYyQjBQaSHwvJat6he9Ef TcdmlSi2Yqu815JxoXn2F08TKGkBXhlZEEopllI(0pyukSKQIRxXBYmJsZGZmZ7p vyiB6qSb8EorXhI3ML)sN2egNgAHgFp7jmMljJZepcEgwNbs(Y2GAGan2chdNn(r gIyNGMdZwGs4ygnBYuL4RAJChkcTRrqi(XvEFCXWNJ5DmDQc9of(KbwpJZbg4h5Z MUQc1C8KHEGfOD4WcJMkZ7X4e2XzI6A08keSHhZdC0FKmtdAxDIN)u9YMMgAXAoK DCM0K8TbGgN8ACMgK8)fADhAzkBgAADAxgJDAB0AIBQA3PozB8N8GMjhwgBwOCKz njReYzRBDLkUnXTmIBcC2Ie04)fogDQAJbSMnlAk5gBCBX2YiiwfwBgDBba9(dAq 4sA)EWOowdAgH0vqAKKj)z1BqzU4JbgFFEVpJQFzCoy7vuFm3kpFBCywnYAmhxJ6 c5KQUKwgrzoie)F(LEAk5iDwZFiUc()kHxPMhBTg4Txgg1UR8quUU8vmY0EkV9tm P06FcTOiNFkUfSbqnzP6rjlAjtrA4Xl9Br6e3ozPbQnkoDMkfvYB3cuPBkbPgtA2 H8vaCqKKDbw1Jw2n5fP6fGul5eosCoO8vWi7dIlAsHAMiarB2CZTggjZYsKpqyOk 5AeQDuijNDrG4PEIAiaoYwhljHRTHovJ(brg0QW8zj2TOVKpnxPJA0GhHaQOYrnF qQgAjhE0gDhDMMGSQquOQwwoDjizkLTjOOICAgsM8wYQCgJQGmSCNMMeki4OqQwA jgZ5BlSDFEMkoDEGLcgoIk3)KLAgMNNJc0MNvB4CAwEAAAAAAAAAAAAAAAAAAAAA AosD ---- Cut here Jeff |uucp: [ucsd, nosc] ..!crash!pro-europa!jeffn | "If I wanted your opinion, | |inet: jeffn@pro-europa.cts.com | I would have given it | |arpa: crash!pro-europa!jeffn@nosc.mil | to you!" | -- Matthew Lee Stier | Sun Microsystems --- RTP, NC 27709-3447 | "Wisconsin Escapee" uucp: sun!mstier or mcnc!rti!sunpix!matthew | phone: (919) 469-8300 fax: (919) 460-8355 |