Path: ns-mx!uunet!spool.mu.edu!news.cs.indiana.edu!lynx!phobos.unm.edu!swalker From: swalker@phobos.unm.edu Newsgroups: comp.binaries.apple2 Subject: Spotlight Demo Message-ID: Date: 19 Oct 91 20:46:41 GMT References: <-x!d07p@lynx.unm.edu> Organization: University of New Mexico, Albuquerque NM Lines: 155 Last one of my pascal demos. This one draws some colors on the screen and passes a "spotlight" over them. Again, source included. Send comments to swalker@phobos.unm.edu By the way, this is for the GS ------------------------cut------------------------------ FiLeStArTfIlEsTaRt ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789() ILIGHT.SHK AoRnAAAACA(4PIAg32EANlQLJ0ytAoRnA8Ci GVvTlzW6DQGfAAAAJ0SCJwwWQEAAblQLAkADAEQAAAAAAAAAdCAAAAgGAAAAAAAA GVvTTnF2DAAPAMAABAAAAoDAAAwYAALADAAAAAAAAAQAbRhGAgAFDAwBcslEBAAC J0iCJwwWAEAAAAAAAAwAAAAAMAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAAAA 3CAAA852fCAAAAAAZV0SFJFUuM1UNNVQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAltEAyBXezNXZ0NFI0JXYgASDgACIgACIwV2cgACIjACIwIDJgASDgACIgACI hRGbgACI(ACIwMGJNADMgACIgACIhBCIgw2cgACINEGIgACIgACIyBCIgAXZgACI kMCINAjMgACIgACIsBCIgEGZgACIwMCIgASDgACIgACIs9mcgACIhBCIgASDgACI gACIsRncgASDgACIgACIk5WZ17UDUitRAwjjCAwAAAAA6AQAAMOAzCAAAAAAAEAA AIAAQUBAJYwWAIAAbBBGAkgBtsgAMsVCBAQCAAAAAMAAAAAAAAAAAAQBAACACAAA AMAAZCAAaAg0hBAAAAwEnlGbAQHaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA(DAA Pey2NwggwEgtCcC4ABAAIABFACDcOcAQgBRAADRgTAhNiVC5eAJciABAAUhOA8EQ rWFg4QJRgoOmEswlDgIAAoQ8KAAMoFIhFDUC40hmAkl0BGGsG2ihCQKCJCgExwBi CEzUeiM0QRFg7qMqqBoOdRVy7z)kRE6pHsKvKRaktDEAIFAjAGBRgJOI7bEuUBvB tB66xJwSFY95vfDcNQl3MYM)ucNTp1rXUF3UtS6CEaM3sN)Hq9OxAYk1VPFIVU1d X9XV(aw(wjbMsEFALsWS1WKTd(s5iG4UzonGmSV6WG6GAkJb5d8aINQY2uZJ7Ocb F(VO0t1xB)9oedyh1xf)zGAbGZd5DetrFr1X3TXdXLFSqNfVCBQA96pwdlCiPF8U 9vS5w6o(DoQujS(vDO6rPvs7cBMpt6G6L7o4W9KLqrAr6oaAAA1o4KNDBQLEKntW EEtwDHHC7(kDGFqiuBPDkbeu7Iqysp1dkVcpnJouAHEADdU(poNHSoaqnzWR2aEr CVuSCgRU4pi0jBoDkTCgAEygBRRZmMkQqgQAgCghKJJlEzKQAAocFEF9V0hmVCKA iQskvG5qyymlC3anKLLn0M7KguckgEgNLHzzMTOVUcNNW1MpzqozENLrgCOuSjBZ 9BRUBFB)W5qgDHI2YZTo4owYDCq3OTTjOMIQogIE304ojABQmCxDUPKGI8aV104g DApyKnjCOMGmwJMEeZ1YDU6ZwLj1OMISVA6FFRIKFhllaVgrAu2k5rl14BwZlhmU 0OQCcLIfgopVGQxVnuAMOjSlcLerlRdKWLII2FPOW8ZlUIK2oA5BAGYhCAUFKQCh QMKQmRRBHEGQFgCchgSAZACcZDe(G6BgCjLRkkPABcEKASBGSFwhhDBCkjgBiD0I N8fhSBOeHiFC8YwQ9WIUupgUDQRrgGJ4pVjvNkjtQRjBBcWxgGnCKAAFFAWY4YHD 1gqmgKEBEEwmcAmGoEgrw2BYqB3WeR8krea64SAu04y1FCERAQBsmECmg4GA9sOo qEAV2GbnDEG0dhabBQZpKEmkSignAQUAGczkPOOo8G3ULDBEDvYgJrB0mdIfFfoM GpXAkypmwSUsDHLJiAVlaDUBV8qYTMQt2XDogoK5UIwWs0HuMISuGWxJehCktbgr FsokR()3bT5CLJ5D96GFLaYhiNu4WLIYkgG0N7e3c5X7leN7GtPge1O6h7u3kmYL BZkj21NYv8a3dXn)ewoJFbtjhXLofVUUAjQpW5Z5t3AiM0QIoGUWDArFAUxfAmkH 00AAR0AABIClHgfKBBKAUIDA5ABAhAGABDpCix2RIlKJOESYCNJwQAAJFjjIIYTA YKQtQDw45AIEBgjYgRxUBIzNO0SwC8AAZMEIHAM0gqQIAWxkVDS4AskY2EqGjx0R IyIAqDgxAAycgJKjLM4shLY6ICQRJAgQs0AaADvlxQ1UYgxc0JwA99AofIELAite xSrFkZlibmgDrN(i7AGFCQ6u5TFBueiGOBQMROOVAASCAZxJQJQyUCg8lAADJD0B ywzeYNwH8AyAkEI0OEGuDCTdwIdGUSjhr2QwxOkECAg1KQfPw1mVkvR16fIkAAMa Ar96iY8)0bGCLAyQgVAGHCKRACwA4L2CaVLWElcMAASIADMggoYB0nzBvRgEYMMG NDv6BCpM6sKWKvRl6LIAYGEuAgODJZytUb4HTN2hgkBYAAuHBTKEACSDHjzAz5Eg (MrunAppS1ePkX4HcQykLTwGLCARCQLxQ3wkgIKZELZQDsCrTt2tDsFSwYAigQAA AJEYCkQ3hR4JRX)lJyzhTeZaEQhpBj226SFA25y0HIAx3aCGJpKNADPehComic8x (9heAAkDP3qK6YoERi(TdIKBEdewRp3KiAf(sbcFW8DBS9BUBCOHAClpGykMajzA EwAs8YG1XqGiCxYFgMIAGoBA1AYEKAGRDCRd1pIHycnBoD6yEcCRGAJjzgrNyNcD En6QYdYCKAkZDhQZA(uO6eshrywM6UmiGA23SQLEIlgseugweJIAOMVgChXDlZVH sDhW(Wl8RAEzEAsnAD4JVB6sdv25TrNUMYrpChJDrxWGZ61hv1QgJMIuHCFlBAsN CoMBM2RQWZ4WdOjtDjwY5wNHIqzBxWl1YcGXGAFxAgkNoQXllH2wRvFg1Guolz(3 rSzASv)qw(bICUW7dBuq3RUO4hguRMnw70NLIAIODBbagjsGdnlTHcpMzWCQGAjw ghjOdguCf3ygEAO0QE03ACA6BrMIJ8o4ssh4AYg5EeoCgbqPrH7DSUCyUcJIHvKc EhZzBCqAkZFgNHgICQEqkbITiQDBolgEb8YREgY8ZECoHHYiRLZBdRkpJDgA8gA4 YABd0hpUIk6DJ5owfkgsVA4EBFcrR6zK8aHgtNQGVKLulxyp50VL5qOMsLR6ac(B wYCtdg9oKBrDLfzjOQSBkiQ7FAVCC84RATjz5U51AVWI(IKFx5PRIS)aJ0nhLYAZ fzJKBSr2DgwosBgBaQCBAYAQEFKkAhmiRjxAEhGADsFoDYAgYak4ARwBBkoEMQCA alIwSI4cHARDd6GD440acGgoIgA2AELGgwDEYtapQIDQF0IAQJEmGDT9xK8R4CEA VkxIIYMgO2o0jFsHAYOHQNNwNyY0WUAnFjcBRBgRmREguvtgxQsFlHq)jayIoDdE 2sCQwBkciD6MFMESeKhYnenUgEgQFgDWMAJBcD0XWfeFDXM(HhYLXwJOFeGENOXk 8HUc5HewCcAgNEpkAcGi45hGZ8r2BsIAjIGNCO0TdPczoUQ7uoKTDL4rzHc9DgGZ EZh4ZMNQYgIIDwHOAcMEwoBNzQKvNGDAXTIUAGRPBwPZgpjGEscuiRYlgDCEFAkF OjgM4REAEnBHkAAIPGg5MBNefh2BfetedYgjrzNtHBv7xpsMAJW9QDAvLBEetHJX 94ZHYK42FUuBQMX1eIKQFdIcgDJPobQ(SRACTDMYMCJNDD8fHWUBRSARUFhvAICj 98nHw4ANsXg8SAxGUzLYtp(UggGNwim88DC1ghYIlPI(AqmgRAkKf8LAQn4PweIs AER4iSKMwx0ANw6diZMha)4cFaXOuuMtEeliQYS4iAIKIigYEAFAWA)V9m1kGgUa FAIEyAtAGgFa1iIM9KnPHMoW)CqCAu7XpAkRHswYAgQDIoDlACEQfGP7jE9tisoa 1iIAAEBiFO1FHAYmBAIG3idE6uif4uBg4sjg4APEACUbBM04iAVfECAcAMEtBRvH HCUfFsS8JEppDCACBtq2FCYAEgCE4A9AFAUD7APR4APZGACRFC4AHCXe4CdjTs12 Ig9ZBQ4BDk0TFu1VDiVFAgGeAAghCCVejAgrEAhAHCrPkEowGubbFAhBAAwEGi8T GAlBACYZXiNfFkmwgqTTAKCjAAgQZCGUACwWkAMTEAERHiLCYyQJBChtLgOAAOAV XkuTokFlECMHJCDdAAiQAABWACzYACyUEMs4ACeE4GzCByHXgAjvaE2lBg1ADCEN eCcNJgIoSiLWBid2jEofRiNCAAwZLIGOEiDQFAAAFg7kAokAggBVWg9UQiLSYoLD ECICEGeHAygayimEYiIKHiCAhiCBHm0whi2gASQbAiyWyimYEGXHAwiaRiNGAAwQ AgkUgwRcFidEIF0CAizUAgiUHzihEiiAFiCAcg7AAi0AHLNDAgwSAwAcBQRcPSpc AC8TDoSAhSjeDgUAAwDfHRefGQ4fFiDIAAoAIjnHIjVAIzjhIzIhJRfiHTtjJJAD HzAhQwbcCCdQKD0fWwdkKx0nQybXQEuTGN0VKiAJGBmvGDXZJHpfAiDAGCIAFCQC GjOmGi6RGAExLjEZPSJQjCoCGruELTEfEiLALjmALzsbHz9sFCFAAwrtAmIMAwju igwQjC4kAgyQiygvGluNEDOJjyEyBmldDCUbKrfUFhcLZA2EFy)vAQwQLzGkGg9X MgUggyBkNDxTEm)wASw0GjCxNw5YGgtnAiBJMR(ZMBfENjAAhgCxNR00KlAqASjm GyCjyAeBIzbicwLjLx6vLRXvAojAGgOQgyxvAAhAAAIaNRmfLTntNjnAEQQ4HBeB Pxg0KRLkVkwqBCd5CEl1GkNKAgBdGCYJGBEfaADTAAsBgCHJHAaLJJSRGAzuHuZz XQe2I2OAAA4bBEhnZCGZQBm(YkQiZEqcoA6paMmfgATBMjLBQxEzAC1cHITHFgjB hAbBHgCHAAIBUAXBZEFlYEhlQnqgIAGJkCcBayU)amYpKFwpGwdi1MzCVOYVPck7 BARCCAI9GVoECA2CEEcrBARMPABKQAXUEgddfqPVcE6MNQfiBpdROA4APAHgIEqO kGYQTIjj0AwxBgnUaej3LAvBMoYXAA2lka49TcahIAAuTAKBEAg4IUTeMBsBhC(g GgrxVAd9SESMAAS9AAI(AIigbqxhSALABoUkTAAADoVkVAAAAowiAAAPpGtVHClQ goLkqGFJFACApq9jAAAapGdeqCufpC9ArCClaoWnSo2rAAAspGdnQAntSo2sAAAv pGNpAAgwpGNqrCG0NMzjqqIxsCv1OoSnAoAzra9KOEuJpqNwsGlHPEqJqqIyrSZ2 AAL8qKIatGOEBCMARofutCYACAGAsGBDCAMApq95AAhMSoWyuGETvC3QEEmJquJA uCdAwCFZPoQwAAxZpGt7wCsaVoNkAAxepGN(wCojPowiAARkrKUAxuBHxaE)LoE9 SsGGyClwMAFAqCRAMEsJqq47yC7zvqD0NoZnVAbAOoQnOszAqu4NvCq6(pGqxKZL wCz8wCj9AAiAdqa7Ss2QAACCAsQTAAyEpuHLSAlABoanquIVAASHSsGO4AfICoEq quoX1CrLDodnSsGa1C3WGoCqputb2CFbHobnSsGd2CSmNqbnpGxZpUSeKofkpArA CoUntA(ACoZnuAzATpcnpKt5AATMpKd6AADPpKN8AADQpKt8AADRpKN94C3TGoA9 AI1UHobkxA(AIoZkyA7AKsfGva0w7ChsTAR9AAT27O1WNAPArOjXOEXM2AzABoZk 2AHBBodk2AKBCsvu3AGB3smupOReAA0VSsmqAAEYqOcmvuE29CLbHoUkAsG1As0p pOtq8CpiNoI94CIBOEoJ5CDBOEsJ4CPBEFnJSsGjAAk)Ss2nAAlASs2mAAlB4s)l AAFDpOd8AD2DxCJCADKHBofnSwmDAAlNVsNiAAFa3SSK6yGGHMxjpy9GAA1oSsmy FRJQKoZnFBcBLoYnvykIAAl0SsW2DDg4OoK9pyNNAA19pO9XAAl(pStjAAV)pSdk JFzAAoTnJBmBAoWnAwUAAoZnJBqBAocnJBsBiwNCSwmTAAmEpSNoAAWFxSpoAAWO 5SUw(yCZFEbXMBvBFofkNBjBGoVnFnJHIAH8PBhBHvn5Ssm4HDDlKoRkPBrBLsWG QBrBLoZnHzbhMAD8QAqBLqUnVwtjAAm0pWBFGCg1pCdDEDt2NodnHzUUAAHCpWNN KDyCCwkiUByBCoXnAwXqAsHkpSNmAAHNSwmUAAXOVwtRAAnR4wvgAA3TpWdVMDgU 4wvrAAHXSwmjMD4XVwtTAA3aVwdlAA3bxW5FAAHfpWNaND4fPwQxAAYvpadPODAw pCdCODkyModnkBECNoSnkBJCNoVnkBMCOzvmSwW5AAY3zapUSwG6AA44xa5VmxPu AoanQDUCBElJnBWCBoYnP33BBAMAQDRCBEvJR3wEAApISw2(RDnJDsTGpBZCDoWn P3XIEAP8M3yDM3WKA0wKSD7XGAJ832SJS02MRDudHEpJS3mGAApfSwG7TDegN0FE rBVCNocnrBbClqcnpatvAAJ5TsBiAAp7patyUDV9SwWmAAJ(pat0AAaApad2RMLv MrYnQbl3uBhCAodnuBjCAsaWpat7AA6LB3CZA0MdXvXaXvAmpC9CXDqTFEjJX3Ya FEmJA0AgYDXXXDMYYzccHEjJH04hp29gZDDiJEsJK0xhy1xhS0maAAKrS02ZZDms MAGAN0Gpb2wh2BsCyoSnq2QdP06hA03haD)CAA7DA0QnAArEA0QobDYGA0AhAAbL S0WYcDENA0QWcD4REocn7BzCFoWnc3RtdDTXGoTnS0m1cDsZGErJXDxCHEnJp2Nw bDseU3QfS024dDZjen8odDvmA0w5AAbocsL7p2N8AArvS0WXfb15AA75)2hRc3p( AAb87WKKgDW(C0TwaDPDgDtKD0RwS7DEeDADEAEAf7RFhDjVhzsycBKA003rH0xr H4kHH4rHJ4vHWCbDKoSnICRDKoYnICXDLoUnFX5GLAJALDRDMEjJM79OHSTH8CjD LCrDCoQkLCvDFoZkOCkDJoUkQCtDJoekA4fULoYkl7WTNEfXp6RVlDd6PEcXp6RW AAfCV4tUAAfEV4tRAAfOV4NLAAfQV4NMAA)llnjnjD0DKEWXbCwDVwdmnDprA4wf nDNtpmBqnDWypCBEoDSzNoTkb6hhAoXknDKEAAPAnDOEFsXGgCMEFoano7bnFEfX hCAEGsTGp6doqDpZHESXNDBEJANA6COEIO6jOrZRrDHEBwA(pqxTBABPV49tsDQX QASEsD2)A4Ays76xN4Uy17EAshtRAwz0CAwAAAAA6AQAAMOAwCAAAAAAAAQBAIAA QsBAJEwWAQAAbBhGAkgBt8gAMsVCBAQCAAAAAMAAAAAAAAAAAAQCAACACAAAAMAA nAAAI4mnhAAAAAABHlETuQFSTFEUAAAAAAAAAAAAAAAAAAAAAAAAAAAA(DAAGKy2 7RgHpwKSOYwUsNBiBxp0Ed(QQZwn5wL5MdyIMBxGEIDFNKSg1hzG4BL6kIxE7QRn ARjGELQosdDkBgs3OXQMJozGBI9FMRaQqczmsxqUPQSK3ETzJ41dga2wDBKnRyTQ MbyMhhyClRl5qXzAuJDlABIyNYq2zpDW5BNQqMwoBBxSRDjnpTTcrZaHthrYNQcm yJTnhSJ3Of3QAaa3BBcgMb08ukzmphr6MI647pTmpCUQEUgQJRSF1BspKUukSJik IDoiKQq8BtCihBFnIIUABp5ZIBos2mh06GCaJTxmIsJHOdyzOQnTKQown(sa5tUN KRkchYCkZaluOb2UDAhN05PyKJywjRTnpCp1JdCeNQpkRSIrA278ypLHhyoy7I)k szjAPGCYQEPAYWIkDCo3()oLwOgOABk)4EEAhDGZUYzrBHIBUyhMj4zAvsNJcfTj JGGAAKvM587ILDq5KjZMNOMCoAUH)(4APNoA94AC)CsaYieKK6wjMglwklRhlEAg EPyHec4QBAqY(2hhlC4uYLtv54TSKDo5eyzvKFGxz(vJZk84gREIbdCwMPJQ4h(r 5YSKLBviQxjjFGIgAjFHcYYIxxvlllDMOOpqkN)OFpUIBCZYqTpBOlwYSC2lhuUq z2IBtrjUPPFxgZGG0Ed4USS49M00CRbVlY0Gs448hBQ0eLjJC4K(ghol5Q4Djhq4 8KjvMAFjg1tH0EgcyhnYO(OzMHSlYFUZk5IwWB4ehemWaFAviAMBBT9gpAopgKTD rsAAIClOIAtMQJWsQ3vCdNWll6FBZZ9IhXwayVhVOOeD9vXXEgVNj2jhRa2RCbRf M(pZrZQw2V1pwuTYbHUj9vLNw5olXLyEQDD3GGUj1vde93963AJUvrXzWFYBVH3W fdVl4ux8jOI4KjRTGdxhHt1AWYaIvoo4jPjJVE8N3M2131kzDLpBefBctdOl70g4 iDqy)MSjSNRFI6BEP)V2jRKbkvC4MILyo6EFcaa6pruNEDxJKoGMQhOpA)iC6jqT 3yq6THunMRJH122Eo6Y2kR7ugoGNqa9os8YE8iaXzTz7GNygFyoO3w1sjZCrXEZ7 jPphv9TcFCtGVB4rzfpVSfX3gKdMg1gi23YM)Km5nB0cIqFPIYQoWccfEWxji7zJ IIvHmgnf4DaHQyTyZ75f1k5oQYyQYxqJAdTr2FAkmuE67kw4aKKmiAhSImKYDgri xaSAdcLadO2d4FA7GcBAWk)khhGDDATaAD)RlG(Az4HQeEQQ4CCfQTiGBCmXYDoH j9DxjAZDggTeoWBBI8RQSM4rI0B5mCLHQDgHSmmDS3BDQYAwF5EPBv(iQpeoVTjh HxQiihMqtItUgQzFSXEIOgFXVMsErYSQICXbwDwj402jPpYEVICjFjzpjBASAAAA A4u8