Makesaprintrequest.OnmachinesliketheVersatec,thetitlestringwillappearinthetitleblocksthatseparatepages.ReprintReprintsthecurrentpageimage.ResetQueueClearsouttheprintqueueandthemessagelog.Excessiveuseofthis��pОfтН]НУqОfтНCN�vОb2Н]НЪН▀Н Н"°Н&│Н)RН,╡Н.ХН2TН5┬�Н6кН;Н>ЕНBО`▀Н]Н8НЧН╩�НСНН"╔Н&]Н(лН.HН3пН9�Н:CН=≤НAсНCCО^ДН]Н(Н\Н▀НыН$аН)юН,uН2%Н5IН6ЖН<wН?НA<О]<Н]Н[Н8Н"[Н& Н(шН*≥�Н+ХН04Н32Н8╟Н=s�Н>бНArО[∙Н]НuОYНН┤П!ОV·Н]ННеН"Н╠Н Н#ЦН%▐Н(УН+RН.Н/fН2Н7Н8`Н<Н>dОTВН]Н▀НЧНїНЛН#Н'wН* Н,²Н/÷Н1ёН8dН; Н>EН@√ОSPН]НЩНTН²Н Н ≈Н% Н)Н,XН0>Н2ВН8жН:EН= Н?оОQ╗Н]Н╪Н&Н(ґН*ЁН-Н2≈Н5гН8~Н<╛ОO-НН┤П#ОL╡Н]ННkНeuОIcН]Н'Н�Н vОFНННФН├Н HН"[Н#рН'ЁН*`Н,Н-├Н0HН3╔Н8ТН:ўН<╙Н?ЭНAБОDlН]Н≤НцНН iН"╟Н%УН+kН-ЧН1cН3┤Н7cН:щН=Ў ОBеН]НННвН║НН"Н$╛Н''Н*ЇН.rН/оН2ОН4єН8Н;`Н=шНA-ОAН]НеН╘НaНЄН!Н#dН%&Н*qН2EН5^Н8Н=НН?ХНBЙО?vН]Н┌НЫНН┼НН"Н$ІН'xН)жН2╛Н5ГН8[Н:шНAБО=оН]Н╨НйО;SН]Н^Н╦ Н! wО9╛НnНйН)Н6Н :Н"ЯvО70Н]НННswО5┴НnН└НЦН вvО3 Н]Н╒Н&wО1fНnНйН)Н�Н╧Н!Н'Н,ҐН03Н3Н4bН6бН;√Н>О/ЎНAНшН;Н Н"ҐН$ўН'сvО-CН]wО+⌡НnНY�Н┐НаНzvО) Н]wО'xНnНЩН]Н &Н$JН&Н+ЄН.lН1OН2╟Н7РН9] vО$ЩН]НewО#UНnНFНIНшН"╟�Н#зН&-Н'ФН-бН0░Н3■Н5┘Н7>Н<√Н?іО!ўНAН`НfНфН$4Н)ґН+[Н.kН0Ў Н7ЕН:ЪНA`О НAН2НnНН ∙Н"┘Н$IН',Н(ЕН+EН0°Н3кН7=Н= О_НAН║НvН"НН#aН'╟Н)ІН.u Н5хН8Н<UН@+О╦НAН┼НA Н АН$ Н*©Н/Н0гН3<Н5░Н8кН;дН?└НA╛ОНAН·НУНєН!■Н$о Н*ЫН-╠�Н.зН3╞Н8шН<6Н@іОiНAН/Н╔НН#YН%�Н&1 Н,gvОНН]Нп Н1Н!юwОFНnНс�НЩНeН"Н$sН*|Н-'Н/┤Н5dН7цН:▒Н>fО÷НAНхНvНуНёН#ГН&╣Н,vО$Н]wО|НnН НhН 2Н#yvО �Н] wОYНnНїНН|НДН$Н&©Н)Н.vН1╔Н7цН:8Н;ЯЪ��ю��TVm$≈��InternalMemo3commandmaygeneratepeerpressure.SetLoginMessage<message>Setsthemessagepeoplegetwhentheylogin;saywhatyouwill,butrememberthemessagewillhaveyournameonit.StartUn-suspendstheprinter.StopSuspendstheprinterassoonasitfinishesthecurrentrequest.Wait<requestnumber>Doesnotreturnuntiltheindicatedrequestiscompleted,eithernormallyorabnormally.UsefulforsynchronizingthedeletionofaPDfile.QuitCausestheservertoclosethechatconnection.Ifyouloginattheprinter'sterminal,besuretoquitsothattheterminalcanbeusedtodisplaymessagesagain.DoIhavetouseChattoprintmyPDfiles?Yes,rightnowyoudo.MaybesomeonewillstepforwardtowriteaCedarinterfacethatgoesthroughttheChatprotocol,ortoaddanRPCinterfaceforqueueingprintrequests.Inanycase,whentheInterpressserverbecomesreal,itwilldothetalkingtothePDprinter,soyouwon'thaveto.AccordingtotheChatdocumentation,itoughttobepossibletowriteacommandfileforissuingaprintingrequest.��pОfтН]НУqОfтНCN�wОb0НAН╒НіН#*Н&EvО_╣Н]Н9wО^ НnНRН╠Н Н"└Н$мН(┌Н+▓Н/┬Н1ГН5DН7ШН:ЧН=О\fНAН║НЬНёН!ЙН%%Н(ЕН*КvОYКН]wОXDНn Н÷НЪvОUиН]wОT!НnН┐НБН tН""Н%hН'Н(lН-lН/кН4∙vОQіН]Н╧Н>wОOЪНnНВНlН Н АН#AН)4Н. Н/u Н6|Н:hН@9ОNXНA НZН йН#Н+фН.&Н3sН5,�Н6VН8кvОKщН]wОJ5НnННjНwН %Н#▄Н%ЛН(Ф Н0ЎН2@Н4ВН8tН:Н<lОH▌НAНННЭН ╚Н#▐Н%SН(!Н*─Н/ЫН2└Н4uН7╠Н9_Н>ОFГНAuОC≤Н]Н╟�Н╧НИН╒ННrН!+Н$|Н&╧Н)8vО@IННQНхНПН кН#ЖН(ЇН.√Н1fН4nН9ЎН;▒Н?3�Н@│О>╒Н]НAНNНіН#▀Н&)Н)дН/иН1кН3╦Н6ўН8щН<xНB\О<ШН]НwНШН!gН#RН&Н)qН-BН/Ґ Н6:Н:bН@НCCО;SН]Н ННpНН╟Н!Н#├Н(pН*5Н,ЛН0ЇН3ЧН6┴Н=-Н>эНA<О9╛Н] Н НMН 'Н!цН#╒Н(яН*mН-ы�Н.ПН5?Н7√Н9юН>?�Н?WО8Н]Ъ��}��TVm$╡��--PDBitBltTiming.mesa--MichaelPlass,4-Mar-8411:17:27PDBitBltTiming:DEFINITIONS={ResetBitBltMicroseconds:PUBLICPROC;GetBitBltMicroseconds:PUBLICPROCRETURNS[LONGCARDINAL];}.��wО_,НБНYО]┘Н╣Н,НyНҐН дОZ6Н╣Нd Н$k�Н&P�ОVГН╣Н▒Н%WОS≥Н╣Н┬Н$NН(ЎН0+Н5Z ОPJН╣Ъ��╚��TVm$�@��PDChatServerStub.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September11,19843:54:15pmPDTDIRECTORYPupTypes,PupDefs,PupStream,IO,Rope,Stream,PDUser;PDChatServerStub:CEDARPROGRAMIMPORTSPupDefs,PupStream,Stream,PDUser=BEGINNewConnection:PROCEDURE[stream:IO.STREAM,pupAddress:PupDefs.PupAddress]=TRUSTED{otherGuy:Rope.ROPE_PupDefs.GetHostName[pupAddress];s:Stream.Handle_Stream.FromIOStreams[stream,stream];PDUser.TalkWithUser[s!PupStream.StreamClosing=>CONTINUE];Stream.Delete[s];};pupListener:PupStream.PupListener_PupStream.CreatePupByteStreamListener[local:PupTypes.telnetSoc,proc:NewConnection,ticks:PupStream.SecondsToTocks[300]];END.��xО_,НБО]┘НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▐НБwОX▐НKНН# yН*xОX▐�ОX▐Н*Б�wН+ЎОX▐�ОX▐Н,⌡Н0╗Н5ЁОU@НБyН8ОU@�ОU@ННЁОS≥НСwОS≥НёН║ Н$Н)ОQЯНС�yНьОQЯ�ОQЯН▒uОNёНСwНVОNё�ОNёyНSОNё�ОNёНШwОNёН#yН(YОNё�ОNёН(б�wН)÷ОNё�yОNёН)ЖwН.аОNё�ОNёН/² ОLШНфНO�yН!4ОLШ�ОLШН!МwОLШН'"�ОKTННЎyНFОKT�ОKTНwОKTН ш�Н"hОIґНН├НЛ�НyН2фОHНН!В�Н"УН3yН5²ОH�ОHН6hwН;вОH�ОHН<:�ОF^НОDЇНОAhНСНН'І�О?аНфП&О>ННдО<rННё О:кННўО9#НyО5уНСwН{О5у�О5уЪ��∙��TVm$��PDFileFormat.mesaCreatedMarch14,1983MichaelPlass,April29,198311:01amPDFileFormat:DEFINITIONS=BEGINpasswordValue:CARDINAL=125252B;versionValue:CARDINAL=1B;DeviceCode:TYPE=MACHINEDEPENDENT{invalid(0),raven(1),hornet(2),gnat(3),mig(4),reticleMaker(5),puffin(6),last(LAST[CARDINAL])};Herald:TYPE=MACHINEDEPENDENTRECORD[password(0):CARDINAL_passwordValue,version(1):CARDINAL_versionValue,deviceCode(2):DeviceCode_invalid,sResolution(3):CARDINAL,fResolution(4):CARDINAL,imageSSize(5):CARDINAL,imageFSize(6):CARDINAL,bandSSize(7):CARDINAL,maxLoadWord(8):LONGCARDINAL,copies(10):CARDINAL];Typ:TYPE=MACHINEDEPENDENT{control(0),imaging(2)};ImagingCom:TYPE=MACHINEDEPENDENT{maskSamplesRef(0),maskRunGroupRef(1),maskRectangle(2),maskTrapezoid(3),maskRunGroup(4),maskSamples(5),colorSamples(6)};ControlCom:TYPE=MACHINEDEPENDENT{startImage(0),setPriority(1),setColorInk(2),setColorClear(3),setColorTile(4),endBand(5),endDocument(6),storeLoad(7),deviceCommand(8)};��xО_,НБО]└НБНОНTН▒О[щНБН$НН│НЎН!Н$цwОYbНБyН┴ОYb�ОYbНn wОYbН ╗�yН"█ОYb�ОYbН#FwОVГНС yНщОVГ�ОVГН╗wОVГН!≤�Н#}ОU?НСyНїОU?�ОU?НrwОU?Н b�Н"GОS≤НС yН/ОS≤�ОS≤НХwОS≤Н═�yН┘ОS≤�ОS≤Н≈ОS≤Н$╚wОS≤Н,X�ОQПН ОPHНОN║Н ОLЫНОKRНОI╙НОHН ОF[НyНyОF[�ОF[Н2wН^ОF[�yОF[НаwНЬОF[�ОF[Н[�ОDЄНОB9НСyН ОB9�ОB9НцwОB9Н|�yНaОB9�ОB9НrОB9Н!┤ОB9Н)4wОB9Н.і�О@▒НyНО@▒�О@▒НИwО@▒Н!ы�Н#f О>ЙН yНИО>Й�О>ЙНЁwО>ЙН є�Н"1О=BН Н▀ Н$M�Н%зО; НyН∙О; �О; Н`wН"лО; �О; О9СНyН┼О9С�О9СНUwН"аО9С�О9СО8KН yН^О8K�О8KН)wН"∙О8K�О8KО6єН yН~О6є�О6єНIwН"╣О6є�О6єО4ЭНyНпО4Э�О4ЭН⌡wН"О4Э�О4ЭО3UНyН⌡О3U�О3UНTО3UН"▄wН(цО3U�О3UО1ґН yН�О1ґ�О1ґНйwО0НО-▀НСyНPО-▀�О-▀Н wО-▀На�yНіО-▀�О-▀Н╦О-▀НлwО-▀Н'yН.вО+НС yН╡О+�О+НkwО+Н#�yНО+�О+Н О+Н%.wО+Н,ш�О)hНО'юНО&НО$qНО"йНО!"НО{НОсНОXНС yНeОX�ОXНwОXНж�yН╩ОX�ОXНмОXН$АwОXН,▌�О╠Н О НОaНО╨НОНОkН ОцНОНОtНО мНЪ��╣��TVm$��2transparentFlag:[0..1]=1;opaqueFlag:[0..1]=0;Command:TYPE=MACHINEDEPENDENTRECORD[command(0):SELECTtyp(0:0..1):TypFROMimaging=>[com(0:2..7):ImagingCom,addrHighBits(0:8..15):[0..256)_0],addrHighBitsisusedbythemaskSamplesRefandmaskRunGroupRefcommands.control=>[com(0:2..7):ControlCom,rest(0:8..15):[0..256)_0]restisusedbythesetPriorityandsetColorTilecommands.ENDCASE];SampleArray:TYPE=MACHINEDEPENDENTRECORD[sSize(0):CARDINAL,fSize(1):CARDINALFollowedbytheactualscanlines,eachpaddedouttoaword.];Tile:TYPE=MACHINEDEPENDENTRECORD[phase(0):CARDINAL,sMin(1):CARDINAL,fMin(2):CARDINAL,sSize(3):CARDINAL,fSize(4):CARDINALFollowedbytheactualscanlines,eachpaddedouttoaword.];RunGroup:TYPE=MACHINEDEPENDENTRECORD[sSize(0):CARDINALFollowedbytheRuns.];Run:TYPE=MACHINEDEPENDENTRECORD[fMin(0):CARDINAL,lastRun(1:0..0):BOOLEAN,fSize(1:1..15):NAT];MaskRectangle:TYPE=MACHINEDEPENDENTRECORD[sMin(0):CARDINAL,sSize(1):CARDINAL,fMin(2):CARDINAL,fSize(3):CARDINAL];MaskTrapezoid:TYPE=MACHINEDEPENDENTRECORD[sMin(0):CARDINAL,sSize(1):CARDINAL,fMin(2):CARDINAL,fSize(3):CARDINAL,fMinLast(4):CARDINAL,fSizeLast(5):CARDINAL];��qОg/НEи�wО_,НСН@Н �Н ─О]└НС НЛНG�Н,О[ НСyН0О[ �О[ НИwО[ Н╒�yН┤О[ �О[ Н≤О[ Н#ґО[ Н+ZwО[ Н0л�ОYaН yН┌ОYa�ОYaН!wОYaН UН'eyН*HОYa�ОYaН+wОW╧ННWНЛН$Ы Н-√Н;`Н@1�ОVНХxОTjН'Н┘Н ЯН$Н%эН(( Н2 Н5>ОRцНЗwОQННхН^Н$k Н,╩ Н4╡Н9┐�Н;xОOsН'Н©Н*Н;Н Н"a Н(ЯН+∙Н37yОMлНwОL$НОI╗НСyНҐОI╗�ОI╗НvwОI╗Н/�yНОI╗�ОI╗Н %ОI╗Н%:ОI╗Н,ГwОI╗Н2Y�ОHНyН⌠ОH�ОHН^wНйОH�ОHОFYНyН┬ОFY�ОFYНSxОD╠НН©Н≥НЕН УН$Н'┬Н*╞Н/@Н1╒Н3G�Н4{wОC НО@▌НСyНDО@▌�О@▌НЩwО@▌НІ�yН⌡О@▌�О@▌Н╛О@▌НюО@▌Н'nwО@▌Н,Ю�О>ФНyНО>Ф�О>ФНмwН9О>Ф�О>ФО=>НyН╘О=>�О=>НtwНЮО=>�О=>О;≈НyН·О;≈�О;≈НiwНуО;≈�О;≈О9ОНyН⌠О9О�О9ОН^wНйО9О�О9ОО8GНyН┬О8G�О8GНSxО6÷НН©Н≥НЕН УН$Н'┬Н*╞Н/@Н1╒Н3G�Н4{wО4ЬНО2|НСyНО2|�О2|Н8wО2|НП�yНуО2|�О2|НГО2|Н#ШО2|Н+╗wО2|Н1�О0тНyН⌠О0т�О0тН^xО/-НН©Н≥НЕwО-┘НО+ НСyН┤О+ �О+ Н@wО+ НЫ�yНчО+ �О+ НОО+ Н О+ Н'╠wО+ Н-#�О)bНyН·О)b�О)bНiwНуО)b�О)bО'╨НyНюО'╨�О'╨НywН"aО'╨�О'╨О&НyНбО&�О&Н╙wО$jНО!ОНС yН О!О�О!ОНбwО!ОНz�yН _О!О�О!ОН!qО!ОН&┘О!ОН.2wО!ОН3╔�О GНyН╘О G�О GНtwНЮО G�О GО═НyН⌠О═�О═Н^wНйО═�О═ОЬНyН·ОЬ�ОЬНiwНуОЬ�ОЬОPНyН┬ОP�ОPНSwО╗НО-НС yН)О-�О-НБwО-Н �yН ─О-�О-Н!▒О-Н&╔О-Н.RwО-Н3е�О┘НyН╘О┘�О┘НtwНЮО┘�О┘ОщНyН⌠Ощ�ОщН^wНйОщ�ОщО6НyН·О6�О6НiwНуО6�О6О▌НyН┬О▌�О▌НSwН©О▌�О▌ОФНyНОФ�ОФНИwН!UОФ�ОФО >НyНО >�О >НсwО≈Н��M��TVm$ ��3MaskRunGroup:TYPE=MACHINEDEPENDENTRECORD[sMin:CARDINALFollowedbytheRunGroup];MaskSamples:TYPE=MACHINEDEPENDENTRECORD[sMin:CARDINAL,fMin:CARDINALFollowedbytheSampleArray];MaskRunGroupRef:TYPE=MACHINEDEPENDENTRECORD[addrLowBits:CARDINAL,HighbitsareinthecommandwordsMin:CARDINAL,fMin:CARDINAL];MaskSamplesRef:TYPE=MACHINEDEPENDENTRECORD[addrLowBits:CARDINAL,HighbitsareinthecommandwordsMin:CARDINAL,fMin:CARDINAL];ColorSamples:TYPE=MACHINEDEPENDENTRECORD[sMin:CARDINAL,fMin:CARDINALFollowedbytheSampleArray];Priority:TYPE=MACHINEDEPENDENTRECORD[restfieldofControlComcontainshighorderbitsofpriority.priorityLowBits:CARDINAL];SetColorTile:TYPE=MACHINEDEPENDENTRECORD[restfieldofControlComcontainstransparentFlagoropaqueFlag.addr:LONGCARDINAL];Toner:TYPE=MACHINEDEPENDENT{black(0),cyan(1),magenta(2),yellow(3)};StartImage:TYPE=MACHINEDEPENDENTRECORD[filler(0:0..8):[0..512)_0,leftOverMode(0:9..9):BOOLEAN,feed(0:10..10):BOOLEAN,strip(0:11..11):BOOLEAN,toner(0:12..15):Toner,passBands(1):NAT,nBands(2):NAT,fMinPage(3):CARDINAL,fSizePage(4):CARDINAL];StoreLoad:TYPE=MACHINEDEPENDENTRECORD[��qОg/НEи�wО_,НСyН╨О_,�О_,НswО_,Н+�yН!О_,�О_,Н""О_,Н'6О_,Н.ЦwО_,Н4V�О]┘НyНО]┘�О]┘НяxО[щНН©Н≥НЕwОZ5НОW╨НСyНОW╨�ОW╨НоwОW╨Н┤�yНlОW╨�ОW╨Н ~ОW╨Н%▓ОW╨Н-?wОW╨Н2╡�ОVНyНОV�ОVНяwН=ОV�ОVОTkНyНШОTk�ОTkНфxОRдНН©Н≥НЕ wОQНОN║НСyНАОN║�ОN║Н wОN║Н!S�yН#8ОN║�ОN║Н$IОN║Н)^ОN║Н1wОN║Н6}�ОLЗНyН≤ОLЗ�ОLЗНcwН!оОLЗ�ОLЗxОKRНН■Н НtНН!fН'│wОI╙НyНОI╙�ОI╙НяwН=ОI╙�ОI╙ОHНyНШОH�ОHНфwОF[НОCЮНСyН=ОCЮ�ОCЮНВwОCЮН╞�yН!■ОCЮ�ОCЮН"іОCЮН'╨ОCЮН/gwОCЮН4ы�ОB9НyН≤ОB9�ОB9НcwН!оОB9�ОB9xО@▒НН■Н НtНН!fН'│wО>ЙНyНО>Й�О>ЙНяwН=О>Й�О>ЙО=BНyНШО=B�О=BНфwО;⌡НО9НСyН7О9�О9НПwО9Н╗�yН█О9�О9Н ÷О9Н%ЁО9Н-`wО9Н2с�О7xНyНО7x�О7xНяwН=О7x�О7xО5пНyНШО5п�О5пНфxО4)НН©Н≥НЕ wО2│НО0НСyНlО0�О0Н%wО0Нщ�yНбО0�О0НтО0Н!ХО0Н)∙wО0Н/�xО._НН°Н║НD Н"Н'VН*gН-ОН0|Н2wО,ЇНyНPО,Ї�О,ЇНwО+НО(∙НСyН{О(∙�О(∙Н4wО(∙НЛ�yНрО(∙�О(∙НЦО(∙Н$ВО(∙Н,єwО(∙Н2�xО&МНН°Н║НD Н"Н'VН1Н2й wО%EНyН╨О%E�О%EНsО%EН╙wО#·НО!#НСyН└О!#�О!#Н=wО!#НЖ�yНшО!#�О!#НЛО!#Н!�wО!#Н(ў Н/Н4: О{Н' ОтНС yНhОт�ОтН"wОтНз�yН©От�ОтНяОтН#ЕОтН+▓wОтН1�О,ННШНл�Н!YО┘НyН ┼О┘�О┘Н!CwН&*О┘�О┘ОщНyНОщ�ОщНсwН!╨Ощ�ОщО6НyН0О6�О6НЙwН!яО6�О6О▌НН╘ОГНyН╧ОГ�ОГН║wН.ОГ�ОГО?Н yН О?�О?НСwН─О?�О?О≤НyНkО≤�О≤Н6wН!╒О≤�О≤ОПНyНUОП�ОПН wО IНО нНС yНО н�О нНтwО нН▄�yНqО н�О нН┐О нН#≈О нН+DwО нН0Ї��:��TVm$��4firstAddress(0):LONGCARDINAL,wordCount(2):CARDINALFollowedbythedatawords];END.��qОg/НEи�wО_,НyНаО_,�О_,Н{О_,Н ╡wН&ИО_,�О_,О]┘НyН_О]┘�О]┘Н*xО[щНН©Н≥НЕНКwОZ6НyОW╩НСwН{ОW╩�ОW╩��O��TVm$�I��PDInterpBasic.mesaCopyright(C)1983,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,198410:16:51amPDTPDInterpBasic:DEFINITIONS=BEGINStatus:TYPE={Nilstatus:nil,Normalstatus:betweenPages,constructingImage,transmissionComplete,Printererrors:paperJam,outOfPaper,serverAbort,PDFileErrors:invalidPassword,objectOutOfBounds,missingStartImage,badLoadReference,unrecognisedImagingCommand,loadOutOfBounds,unrecognisedControlCommand,unrecognisedCommandType,unexpectedEOF,runGroupTooLong,bitmapTooBig,deviceCommandTooBig,PDFileWarnings:wrongFormatVersion,unreasonableResolution,unreasonableBandSSize,unreasonableImageSize,unreasonableLoadSize,unreasonableNumberOfCopies,objectOutOfBand,emptyRunGroup,nonZeroFill,imageBoundsExceedPageBounds,tooFewBands,unknownColorTileFlag};PDErrorCode:TYPE=Status[invalidPassword..deviceCommandTooBig];PDWarningCode:TYPE=Status[wrongFormatVersion..unknownColorTileFlag];END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН) Н+WuОZDНБwН╚ОZD�ОZDyН╘ОZD�ОZDН▌ wОZDН х�yН"ґОZD�ОZDН#fwОX²НБyНuОX²�ОX²Н.wОX²НФ�Нл�xОVУНСНQwОUNНxОSїНСНИwОQЪНОPXНОN╠НxОM НСН■wОKbНОI╩Н ОHНxОFlНСНrН4wОDеНОCНОAvНО?оНО>'НО<─НО:ыНО91НО7┼Н О5ЦНО4;НО2■НxО0МНСНrН4wО/EНО-·НО+ВНО*OНО(╗НО'НО%YНО#╡Н О"НО cНО╪НОНОmНСОНБyН%О�ОНъwОН≈�Н|П-ОwНБ yН!Оw�ОwНзwОwН⌠�НxП1yО)НБwНiО)�О)��┼��TVm$"��PDInterpBitmap.mesaMichaelPlass,November9,198310:39amBasicoperationsontwo-dimensionalarraysofpixels.DIRECTORYBitBlt,Inline;PDInterpBitmap:DEFINITIONSIMPORTSInline=BEGINThisinterfaceprovidesmostofthefunctionalityofBitBlt.Toavoidconfusionnomatterhowthemapisphysicallylaidout,termslikeheightandwidthareavoided,andthecoordinatesareexpressedintermsofsandf,forslowandfast.Onadisplay,thesaxisisnormallyvertical,andpointsdown,butonaprinterthatscansinthelongdirection,thefaxiswillpointup.Thediagrambelowtakesthelatterpointofview.--^--f|--|--|+----------------------------+--|||--||rast*bitsPerWord/bitsPerPixel|--|||--||+------------+|--|||||--|||||--|||fSize||--|||||--||sMin|sSize||--||<---->+------------+|--||^|--|||fMin|--|sOrigin|vlines|--|<-------->+----------------------------+--|^originofbuffer--||--||fOrigin--||--||--|v--+-------------------------------------------->--DevicespaceoriginsABitmapDescdescribesawindowintoabuffer,andthebufferitselfmaybepositionedanywhereinaglobaldevicespace.ThewindowinginformationisstoredintheBitmapDescrecord,sothatitmaybeeasilychangedtoaccomplishtranslationandclippingbyrectangles.Thetranslationfeaturemaybeusedfordestinationmapstoconvenientlyimplementbandbuffers.BitmapDesc:TYPE=RECORD[Theseparametersdefineawindowwithinthebuffer,aswellaswherethebufferispositionedindevicespace.sOrigin,fOrigin:INTEGER_0,��xО_:НБО]▓НБН$ННgНТН#:Н&ЫО[КНБН▄ ННЗН$МН)Н*╗yОX°НБwОX°НKН ОUMНБyНйОUM�ОUMН╟ ОUMН!ЙwОUMН' Н+⌡�yН-─ОUM�ОUMН.:xОQЧНСНН█НдН"Н#їН%СН-йН/nН4[Н6xН:Н@ОPWНфННИН5Н0Н° Н%яН(}Н+6Н.ДН1▒Н5ґН8QН;ЩОN╞НфНЩН║НМ Н#Н%VН+`Н-Н0ЄН2W�Н3`Н6Н7OН9vН<zН?ОMНфН�НQН/Н{�Н┐Н fН!рН'|Н,■Н/7Н33Н7Н9wН;k�Н<÷ОKaНфН≤Н.НтН Н' Н%zН'_ОKa�xОKaН(SН+6Н-кН1BН4Н6сН<ОI╧НфНQН²Н4Н╚Н OwОFjНС{ОFjОFjНХ�wОDцНС{ОDцwН┤ОDц�{ОDцНЗ�wОCНС{ОCОCНХ�wОAtНС{ОAtОAtНХ�ОAtНТwО?лНС{О?лО?лНХ�О?лНТ�О?лН.U�wО>%НС{О>%О>%НХ�О>%НТ�|НлО>%�О>%Н6НФ�Н щ Н'G�Н(>{О>%Н0f�wО<}НС{О<}О<}НХ�О<}НТ�О<}Н.U�wО:жНС{О:жО:жНХ�О:жНТ�О:жН#Ъ О:жН2w�wО9.НС{О9.О9.НХ�О9.НТ�О9.Н#Ъ�О9.Н-�О9.Н2w�wО7┤НС{О7┤О7┤НХ�О7┤НТ�О7┤Н#Ъ�О7┤Н-�О7┤Н2w�wО5ъНС{О5ъО5ъНХ�О5ъНТ�О5ъН#Ъ�|Н$вО5ъ�О5ъН%8{О5ъН-�О5ъН2w�wО48НС{О48О48НХ�О48НТ�О48Н#Ъ�О48Н-�О48Н2w�wО2░НС{О2░О2░НХ�О2░НТ�|О2JН {О2░Н#Ъ�|О2JН({О2░Н/-�О2░Н4┴�wО0ИНС{О0ИО0ИНХ�О0ИНТН"О0ИН4┴�wО/AНС{О/AО/AНХ�О/AНТ�О/AН#Ъ�О/AН0f�wО- НС{О- О- НХ�О- НТ�О- Н#Ъ�|Н$вО- �О- Н%8{О- Н0f�wО+РНСО+Р{О+РНХ�|О+╛НЗ{О+РН�О+РН&�|О+╛Н,╔{О+РН2w�wО*KНС{О*KО*KНХН╗П#wО(▄НС{О(▄О(▄НХ�О(▄Н�|О)НщН#Н$rwО&ЕНС{О&ЕО&ЕНХ�О&ЕНТ�wО%=НС{О%=О%=НХ�О%=НТ�|НлО%=�О%=Н-wО#√НС{О#√О#√НХ�О#√НТ�wО!ННС{О!НО!ННХ�О!ННТ�wО GНС{О GО GНХ�О GНТ�wО÷НС{О÷О÷НХП.wОЬНС{ОЬ|О┘НХН≥Н░wОЬН,╔�xО╘НС�Нu НН╙�Н чН%ЄН(z�Н)╞Н-УН0≥Н2ЕН6сН:Н=ОНф Н ННҐ�Н ЯН$ЧН)Н-|Н0@Н6Г Н>9ОZНфН©НeН╠ Н!@Н%╩Н'tН*FН+·Н.▌Н0]Н4Н9cН; ОЁНф Н┬Н+Н DН" Н)JН, Н2оН7ZН:JН<Н?*ОНф Н·ННцН%zН,Н/YwО╪НБ yНО╪�О╪НлwО╪Н┘�yНjО╪�О╪Н>wО╪Н!э�xОНСНж НЄН╞�Н ЦН%╧Н)жН,"Н0iН2"Н4ОН6╗Н:┼Н<жОmНфН2 Н▄Н2Н5wО фНСН)yНuО ф�О фНъwО фН!9�Н"фЪ��=��TVm$ф��2sMin,fMin:INTEGER_0,sSize,fSize:NAT_0,pointer:LONGPOINTER_NIL,rast,lines:CARDINAL_0Storedcontiguously,witheachlinepaddedtoawordboundary,rastwordsperline.Thelongpointerpointstotheactualbits.];Rectangle:TYPE=RECORD[sMin,fMin:INTEGER,sSize,fSize:NAT];RasterWords:PROC[bitmapDesc:BitmapDesc]RETURNS[INT]=INLINE{RETURN[Inline.LongMult[bitmapDesc.rast,bitmapDesc.lines]];};Reshape:PROC[pointer:LONGPOINTER,words:INT,bounds:Rectangle]RETURNS[BitmapDesc];MakesaPixelMapfromthestorageprovided.InsufficientSpace:ERROR;Intersect:PROC[a,b:Rectangle]RETURNS[Rectangle];Computestheintersectionofdevicerectangles.Clear:PROC[bitmapDesc:BitmapDesc];Afastwaytoclearabuffer.ShiftMap:PROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc];TranslatesthebitmapDescindevicespace.ShiftWindow:PROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc];Translatesthewindowindevicespace.Clip:PROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc];FurtherrestrictsthewindowSetWindow:PROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc];ChangesthewindowWindow:PROC[p:BitmapDesc]RETURNS[Rectangle];BufferBounds:PROC[p:BitmapDesc]RETURNS[Rectangle];ReturnsarectangledescribingtheactualboundsofthebufferBoundedWindow:PROC[p:BitmapDesc]RETURNS[Rectangle];p.Window.Intersect[p.BufferBounds]Fill:PROC[dest:BitmapDesc,area:Rectangle,value:CARDINAL,function:Function_[null,null]];Function:TYPE=RECORD[dstFunc:BitBlt.DstFunc,srcFunc:BitBlt.SrcFunc];[null,null]makeszerobitswhite,onebitsblack[or,null]makeszerobitstransparent,onebitsblack[and,null]makeszerobitswhite,onebitsblack��qОg/НEи�wО_,НСНтyНйО_,�О_,Н4wО_,Н▌�Н О]┘НСНЎyН·О]┘�О]┘Н┤wО]┘Н≤�Н%О[щНСyН5О[щ�О[щНОО[щН&wО[щНг�yН!TО[щ�О[щН"<wН#_О[щ�О[щОZ5НСНЛyН║ОZ5�ОZ5НlwОZ5Н\�НИ�xОX▌НСНDНeН aН#┬Н&,Н*ҐН,b�Н-√Н0ГН7*Н9вН=ґОVГНфНFН ННїН#╒Н%GН'⌠Н+ёwОU?НСОQПНБ yНҐОQП�ОQПНvwОQПН.�yНОQП�ОQПНГwОQПН ├Н$иyН(юОQП�ОQПН)*wН.�ОQП�ОQПН.эН2їyН6┤ОQП�ОQПН7pwН8ЩОQП�ОQПН9`�uОN║НБ wН╒ОN║�ОN║yН═ОN║�ОN║НHwОN║НGН#╩ yН+жОN║�ОN║Н,╘wОN║Н1А�yН2DОN║�ОN║Н2ўwН4PОN║�ОN║Н57�yН7ОN║�ОN║Н7├wОN║Н;╦�yОLЗНСwОLЗН`П!Н+gОKRНСuОHНБwНжОH�ОHyНтОH�ОHН{wОHН{yН ОH�ОHНыОHН"wН'-ОH�ОHН( yН,░ОH�ОHН,ЗwН.°ОH�ОHН/xН4я yН;∙ОH�ОHН<iwОF\Н╣xОDЄНСНb�Н≈НЮН Н"jН'wОC НСyН)ОC �ОC НЦwН ;ОC �ОC uО?ЎНБwНО?Ў�О?ЎyНО?Ў�О?ЎНҐwО?ЎНҐН╒Нf yН#+О?Ў�О?ЎН#ЪwО?ЎН)7xО>НСН8Н└Н ІН"YН&\ uО:гНБwНО:г�О:гyНО:г�О:гН╦wО:гНЇН+xО9НС�НuН НоНsНе�НЗuО5пНБwН├О5п�О5пyН└О5п�О5пН+wО5пН+НS Н#bН$цyН&:О5п�О5пН&єwН+zО5п�О5пyН,aО5п�О5пН-5wО5пН2mxО4)НС НyНе Н!Н"╦Н&╩uО0зНБ wН√О0з�О0зyН■О0з�О0зН<wО0зН;Нc Н%sН&тyН(KО0з�О0зН(ЄwН-┼О0з�О0зyН.rО0з�О0зН/FwО0зН4~xО/2НС НyНеН⌡Н AН$DuО+ЦНБwНLО+Ц�О+ЦyНIО+Ц�О+ЦНЯwО+ЦНЯН Н (Н%│ yН,EО+Ц�О+ЦН-wО+ЦН2QxО*<НСНАНПН<uО&МНБwН╞О&М�О&МyНґО&М�О&МНUwО&МНTН| Н$▄Н)Д yН0╘О&М�О&МН1}wО&МН6╣xО%EНСНpН╪uО!ЖНБwНЄО!Ж�О!ЖyН╡О!Ж�О!ЖНYwО!ЖНYН│ yН"⌡О!Ж�О!ЖН#owО!ЖН(їuОїНБwНШОї�ОїyНЬОї�ОїН═wОїН÷Нг yН%БОї�ОїН&ІwОїН+МxО�НСН�Н9Н Н#]Н%╘Н)╧Н.NН/ЯН2>uО╠НБwНъО╠�О╠yНщО╠�О╠Н└wО╠Н└Н╛ yН'фО╠�О╠Н( wО╠Н-рxО НСП"uО╨НБwНХО╨�О╨yНФО╨�О╨Н█wО╨Н█НM Н!]Н$о Н+┴yН/╛О╨�О╨Н0wwН5ЦО╨�О╨Н6©ОН╣Н²�Н*НҐОдНБyНCОд�ОдНЭwОдН╣�yН Од�ОдНnwОдН Н&7Н0�Н5╠xОНСННЁНДНсН!_Н%NН'эН*hОuНСНrНіНвНфН RН'еН*SН,ъО мНСН]Н▒НбН╟Н!=Н%+Н'╨Н*FЪ��Ы��TVm$ь��3[and,complement]makeszerobitstransparent,onebitswhite[xor,null]makeszerobitstransparent,onebitsinvertedetcetera.Transfer:PROC[dest,source:BitmapDesc,function:Function_[null,null]];DoesaBITBLTfromthesourcetothedest,throughtheintersectionofthetwowindows.Doestherightthingifthesourceanddestoverlapinthesamebuffer.Tile:TYPE=RECORD[sOrigin,fOrigin:INTEGER,sSize,fSize:NAT,phase:INTEGER,pointer:LONGPOINTER,rast,lines:CARDINAL];AtileissimilartoaBitmapDesc,butthewindowspecificationsaremoreprimitive,andthereisanadditionalphasespecification.Atileisreplicatedtofilltheplane,withtileshiftedbyphasepixelsinthefdirectioneverysource.sSizelines.CreateTile:PROC[rectangle:Rectangle,phase:INTEGER_0,rasterPointer:LONGPOINTER,scratchPointer:LONGPOINTER_NIL,scratchWords:INT_0]RETURNS[tile:Tile];ThescratchPointerandscratchWordsparametersdescribethespacefortheresults.Therasteristurnedintoatile.Thismayinvolvereplicatingthepatterntomakealargertilethatwillspeedthecoloringoperation,sothesizeoftheresultwillnotingeneralbethesameasthesource.However,therastermaynotalwaysbecopied.TransferTile:PROC[dest:BitmapDesc,tile:Tile,function:Function_[null,null]];Transfersfromthetiledplanetodest.END.��qОg/НEи�xО_,НСН] Н?Н oН#^Н%ЙН-]Н/КН2wО]┘НСН9НmН·Н█Н!Н(▄Н+Н-іО[щНСuОX▐НБwНЛОX▐�ОX▐yНЙОX▐�ОX▐Н▓wОX▐Н▒Н0Н Ы Н) Н.ЭН4Д�Н6qН:xОVГНСН[�}Н▐ОVГ�ОVГНRxОVГНIН┤НсН$Н%їН'ТН+Н0Н2lН9²Н;AН=█ОU@НфНЭНdН╟Н ЫН$|Н%рН(Н,NН.РН1ІН6hН8Н:ZН=дwОQЯНБyН3ОQЯ�ОQЯНЛwОQЯНє�yН┴ОQЯ�ОQЯН]wОQЯНЭ�ОPJНСН)yНuОPJ�ОPJНъwН ╣ОPJ�ОPJОNёНСНЎyН·ОNё�ОNёН┤wНОNё�ОNёОLШНСyНNОLШ�ОLШН╦wН▌ОLШ�ОLШОKTНСyН5ОKT�ОKTНООKTН&wНCОKT�ОKTОIґНСНЛyН║ОIґ�ОIґНlwОHНСxОF^НС�НuНкН6НЁНX�Н█ Н%tН'уН*!Н.В Н7-Н9─ОDЇНф НҐН`НкН7Н!* Н'yН+9 Н3г�Н5IН7÷Н9 Н?+ОCНфНБН/Н(Н$НzН#лН%їН)gН-IН.НН1;�Н2.Н7бОAhНфНHuО>НБ wН-О>�О>yН+О>�О>НсwО>Нр Н ▄ Н'EyН+═О>�О>Н, wО>Н1d�Н2ЯН4~ yН=О>�О>Н=йО<rН╣wНрО<r�О<rНўyНО<r�О<rНмО<rН#wО<rН(і�yН*3О<r�О<rН+wН,>О<r�О<rН-yН6О<r�О<rН6┤wО<rН8ґ�Н::yН;рО<r�О<rН<іwО:кН╣НПxО9#НСНІ Н÷НCН'ґ Н.▀Н3╛Н5ЫН9≤Н;©О7|НфНъН╒НoНзН#Н%Ю�Н'Н*GН-WН0GН4я Н;xО5уНфНiНН╩�НОН шН#0Н&Н(≈Н,6Н.┐Н3╪ Н:Н;дН>О4-НфНiНІНmННfН Н$лН&°Н(ХН,RН.Н0WН5cН;VН=╒О2├НфНІННsНBuО/7НБwНLО/7�О/7yНJО/7�О/7НЯwО/7НЯН╠ Н&аН)≥Н,иН2╪Н8є�Н:1Н=дxО-░НСНИН&НrНxН#Н$©yО*AНБwНiО*A�О*AЪ��■��TVm$і��PDInterpBitmapImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,198411:28:57amPDTDIRECTORYBitBlt,Environment,Inline,PDInterpBitmap,PDBitBltTiming,System;PDInterpBitmapImpl:PROGRAMIMPORTSBitBlt,Inline,SystemEXPORTSPDInterpBitmap,PDBitBltTiming=BEGINBitmapDesc:TYPE=PDInterpBitmap.BitmapDesc;Tile:TYPE=PDInterpBitmap.Tile;Rectangle:TYPE=PDInterpBitmap.Rectangle;Function:TYPE=PDInterpBitmap.Function;bitsPerWord:NAT=Environment.bitsPerWord;lgBitsPerWord:NAT=Environment.logBitsPerWord;wordsPerPage:NAT=Environment.wordsPerPage;lgBitsPerPixel:NAT=0;pixelsPerWord:NAT=bitsPerWord;Someinlinesforbasicbit-hackingoperations.BITAND:PROC[a,b:CARDINAL]RETURNS[CARDINAL]=INLINE{RETURN[Inline.BITAND[a,b]]};Shift:PROC[a:CARDINAL,b:INTEGER]RETURNS[CARDINAL]=INLINE{RETURN[Inline.BITSHIFT[a,b]]};timingBitBlts:BOOLEAN_FALSE;bitBltPulses:System.Pulses_[pulses:0];ResetBitBltMicroseconds:PUBLICPROC={bitBltPulses_[pulses:0];timingBitBlts_TRUE};GetBitBltMicroseconds:PUBLICPROCRETURNS[LONGCARDINAL]={RETURN[System.PulsesToMicroseconds[bitBltPulses]]};BITBLT:PROC[ptr:BitBlt.BBptr]=INLINE{IFtimingBitBltsTHEN{bitBltPulses.pulses_bitBltPulses.pulses-System.GetClockPulses[];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];bitBltPulses.pulses_bitBltPulses.pulses+System.GetClockPulses[];}��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$Н┬Н%Н ╡Н#ЬН)▒Н+эyОX▌НБwОX▌НKН Н#CН'°Н2dОVГН╣ОS≤НБyН╒ОS≤�ОS≤НJОQПНСwОQПНёНРНLyОPHНСwОPHН╣Н!| ОN║НС�yНьОN║�ОN║Н▒wОLЫНБ yНОLЫ�ОLЫНлwОLЫН┘�НjОKRНБyН3ОKR�ОKRНЛwОKRНє�Н┴ОI╙НБ yНҐОI╙�ОI╙НvwОI╙Н.�НОHНБyНCОH�ОHНЭwОHН╣�Н ОF[НБyН_ОF[�ОF[НHwОF[НY�Н>ОDЄНБ yН⌠ОDЄ�ОDЄН|wОDЄН█�НrОCНБyН0ОC�ОCНwОCН*�НОAeНБyНОAe�ОAeНwОAeН�НЬО?ҐНБ yН╙О?Ґ�О?ҐН▓wО?ҐНё�Н┬xО>НБНєНННН} Н#÷ yО<nНСwНqО<n�О<nyНoО<n�О<nНwО<nННШyН©О<n�О<nН┼wН#ЖО<n�О<nyН$чО<n�О<nН%╡wН*eО<n�yО<nН*хwН0ЪО<n�О<nО:гН�yНИО:г�О:гНSwО:гН┘�yН5О:г�О:гН wНО:г�О:гН─yН#UО:г�О:гН$wН'сО:г�О:гН(6Н)╦uО9НСwНжО9�О9yНсО9�О9Н{wО9НzyН│О9�О9НLwН ╦О9�О9Н!■yН#YО9�О9Н#бwН(≥О9�О9yН)─О9�О9Н*TwО9Н/▄�yН/ОО9�О9Н0╨wН6&О9�О9О7xН�yНИО7x�О7xНSwО7xН┘�yН5О7x�О7xН wНО7x�О7xН─yН#UО7x�О7xН$wН(⌠О7x�О7xН(ЖН*xО2│НБ yН╛О2│�О2│НfwО2│Ня�yН^О2│�О2│Н wН"ЭО2│�О2│О/2НБНэН⌡�Н!'Н&'uО+ЦНБwНО+Ц�О+ЦyН О+Ц�О+ЦН╠О+ЦН#аwО+ЦН'i�Н)NН1~�Н3Н8О*<Н╣Н�yН⌠О*<�О*<НLwНЎО*<�О*<Нo�uО&МНБwНЛО&М�О&МyНЙО&М�О&МН▓О&МН"ёО&МН&JwО&МН,U�yН,╦О&М�О&МН-rО&МН0╘wН6ЮО&М�О&МН7г�О%EН╣�yНeО%E�О%EН9wНMО%E�О%EН╠П,yО!ЖНБwНЙО!Ж�О!ЖyНГО!Ж�О!ЖН▐wО!ЖН▌Н╘Н"Д�yН$иО!Ж�О!ЖН%3wО!ЖН)d�yО OНСwО OН yНКО O�О OН╔wО OН╠�ОїНН{�Н Н+�Н,|О�НyНнО��О�Н┬wНжО��О�Н9ОXНyНнОX�ОXН┬wНжОX�ОXН9О╠НyНнО╠�О╠Н┬wНжО╠�О╠Н9О НyНнО �О Н┬wНжО �О Н9ОaНyНнОa�ОaН┬wНжОa�ОaН9О╨НyНнО╨�О╨Н┬wНжО╨�О╨Н9ОНyНнО�ОН┬wНжО�ОН9ОkНyНнОk�ОkН┬wНжОk�ОkН9ОцНyНнОц�ОцН┬wНжОц�ОцН9ОНyНнО�ОН┬wНжО�ОН9ОtНН{�Н Н+�Н-dО мН�Ъ��╔��TVm$є��2ELSEBitBlt.BITBLT[ptr];};Intersect:PUBLICPROC[a,b:Rectangle]RETURNS[Rectangle]={sMin:INTEGER_MAX[a.sMin,b.sMin];fMin:INTEGER_MAX[a.fMin,b.fMin];sMax:INTEGER_MIN[INT[a.sMin]+a.sSize,INT[b.sMin]+b.sSize];fMax:INTEGER_MIN[INT[a.fMin]+a.fSize,INT[b.fMin]+b.fSize];IFsMax<=sMinORfMax<=fMinTHENRETURN[[0,0,0,0]]ELSERETURN[[sMin,fMin,sMax-sMin,fMax-fMin]]};LongZero:PROC[address:LONGPOINTERTOCARDINAL,count:CARDINAL]={IFcount>0THEN{address^_0;Inline.LongCOPY[from:address,nwords:count-1,to:address+1];};};Clear:PUBLICPROC[bitmapDesc:BitmapDesc]={pointer:LONGPOINTER_bitmapDesc.pointer;words:LONGCARDINAL_Inline.LongMult[bitmapDesc.rast,bitmapDesc.lines];WHILEwords>32768DOLongZero[pointer,32768];pointer_pointer+32768;words_words-32768;ENDLOOP;LongZero[pointer,words];};InsufficientSpace:PUBLICERROR=CODE;Reshape:PUBLICPROC[pointer:LONGPOINTER,words:INT,bounds:Rectangle]RETURNS[bitmapDesc:BitmapDesc]={bitsPerPixel:CARDINAL=Shift[1,lgBitsPerPixel];bitsPerLine:NAT=Inline.LongMult[bounds.fSize,bitsPerPixel];Willraiseaboundsfaultiftoomanybitsperline.wordsPerLine:CARDINAL=(bitsPerLine+(bitsPerWord-1))/bitsPerWord;wordsNeeded:INT=Inline.LongMult[wordsPerLine,bounds.sSize];IFwordsNeeded>wordsTHENERRORInsufficientSpace;RETURN[[bounds.sMin,bounds.fMin,0,0,bounds.sSize,bounds.fSize,pointer,wordsPerLine,bounds.sSize]];};ShiftMap:PUBLICPROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc]={p.sOrigin_p.sOrigin+s;p.fOrigin_p.fOrigin+f;RETURN[p]};ShiftWindow:PUBLICPROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc]={��qОg/НEи�yО_,НСwО_,НByНО_,�О_,НеwНО_,�О_,НwО]┘НСuОZ5НБwНОZ5�ОZ5yНОZ5�ОZ5НҐОZ5НнwОZ5НuНZН! yН'ЦОZ5�ОZ5Н(ЇwОZ5Н-О Н5�Н6Э�ОX▌НСyНУОX▌�ОX▌Н_wОX▌Н╧�yНFОX▌�ОX▌НWwНЪОX▌�ОX▌НbН$?ОVФНСyНЙОVФ�ОVФНTwОVФНў�yН;ОVФ�ОVФНLwНТОVФ�ОVФНWН$)ОU?НСyН!ОU?�ОU?Н▀wОU?НЕ�yНrОU?�ОU?Н┐wНжОU?�yОU?Н9wН!DОU?�ОU?Н!╗yН,4ОU?�ОU?Н,·wН.?ОU?�ОU?Н.╒ОS≈НСyНОS≈�ОS≈Н─wОS≈Нз�yНgОS≈�ОS≈НxwНкОS≈�yОS≈Н.wН!9ОS≈�ОS≈Н!²yН,ОS≈�ОS≈Н,}wН.ОS≈�ОS≈Н.┌yОQПНСwОQПН НOНДyНlОQП�ОQПНI�wОQПН║Н"JН$ЮyН(]ОQП�ОQПН)ОQПН,"wОQПН1▐Н3БН5oН6ЭyОPHНСОPHНBwОPHН╞НUН"+ Н)Є ОN║НСuОKRНБwНиОKR�ОKRyНфОKR�ОKRНnwОKRНmyН4ОKR�ОKRНМОKRН#%ОKRН(еОKRН*ъwН1ОKR�ОKRН1СyН6CОKR�ОKRН7wН<zОKR�ОKRН=a�Н?F�yОI╙НСwОI╙Н Нq�Ні�yНшОI╙�ОI╙Н■wОI╙Н═�ОHНН÷�Н,ОF[НН"!Н'cН,╟Н2 Н41 ОDЄНОCНСuО?ҐНБwНО?Ґ�О?ҐyНО?Ґ�О?ҐН╦О?ҐНхwО?ҐНpН#Ц Н+Ч�Н-Ц�О>НСyН5О>�О>НОО>Н&wО>Нг�Н!TО<nНСyНyО<n�О<nН2О<nНjwО<nН %�Н!╡Н6VyО:фНСwО:фНTНa�Н√yН▄О:ф�О:фНr�wО9ННoО7wННм�НZН#�Н О5пНН�Н·Н╚�Н╗yО4(НwН╔О4(�О4(О2│НСН^О0ыНСО-┼НБyНО-┼�О-┼НюО-┼НяwО-┼Н#f�yН%KО-┼�О-┼Н&wН(▓О-┼�О-┼uО+ЦНБwНжО+Ц�О+ЦyНтО+Ц�О+ЦН{О+ЦН▄wО+ЦН3yН"ьО+Ц�О+ЦН#▓О+ЦН&иwН+ФО+Ц�О+ЦН,бyН1HО+Ц�О+ЦН1╡wН3TО+Ц�О+ЦН40Н9┴ yО*;Н╣wО*;НаН4 Н&O�Н(4�О(■НСyНВО(■�О(■НбwО(■Н╡�Н!≈Н&`О&ЛНСyНюО&Л�О&ЛН╗wО&ЛН╧�Н·Н0Q xО%EНННN�Н┐НН"KН#║Н%ВН)╔Н,2Н.┘wО#²НСyН+О#²�О#²НЖwО#²Н Ф�Н"кН6�Н7CО!ЖНСyНО!Ж�О!ЖН└wО!ЖН╙�Н▐Н1Ф yО NНСwО NН НH�Н}yН ┼О N�О NН!CО NН$OwО NН(ЕyОїНСwОїН` Н╧Н(AН)нН+[Н3ьН<JОЪНфНщОXНСuО НБwН├О �О yН└О �О Н+О Н<wО НЦН Н(Н){yН*РО �О Н+\wН02О �О yН1О �О Н1НwО Н7%Н?ё�ОbН╣�О╨НСНО�Н|Нx�Н ]ОНСНД�НqНb�Н GyОkНСwОkН`ОцНСuОtНБ wН√Оt�ОtyН■Оt�ОtН<ОtНLwОtНТН" Н*+Н+▄yН-Оt�ОtН-mwН2CОt�ОtyН3*Оt�ОtН3ЧwОtН96О мН╣�Н ��ъ��TVm$И��3p.sMin_p.sMin+s;p.fMin_p.fMin+f;RETURN[p]};Clip:PUBLICPROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc]={bounds_Intersect[Window[p],bounds];p.sMin_bounds.sMin-p.sOrigin;p.fMin_bounds.fMin-p.fOrigin;p.sSize_bounds.sSize;p.fSize_bounds.fSize;RETURN[p]};SetWindow:PUBLICPROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc]={RETURN[p]};Window:PUBLICPROC[p:BitmapDesc]RETURNS[Rectangle]={RETURN[[p.sOrigin+p.sMin,p.fOrigin+p.fMin,p.sSize,p.fSize]]};BufferBounds:PUBLICPROC[p:BitmapDesc]RETURNS[Rectangle]={RETURN[[p.sOrigin,p.fOrigin,p.lines,Shift[p.rast,lgBitsPerWord-lgBitsPerPixel]]]};BoundedWindow:PUBLICPROC[p:BitmapDesc]RETURNS[Rectangle]={sMin:INTEGER_MAX[p.sOrigin+p.sMin,p.sOrigin];fMin:INTEGER_MAX[p.fOrigin+p.fMin,p.fOrigin];sMax:INTEGER_MIN[p.sOrigin+p.sMin+p.sSize,p.sOrigin+p.lines];fMax:INTEGER_MIN[p.fOrigin+p.fMin+p.fSize,p.fOrigin+Shift[p.rast,lgBitsPerWord-lgBitsPerPixel]];RETURN[[sMin,fMin,MAX[sMax-sMin,0],MAX[fMax-fMin,0]]]};replicator:ARRAY[0..4]OFCARDINAL=[0FFFFH,05555H,01111H,00101H,00001H];Fill:PUBLICPROC[dest:BitmapDesc,area:Rectangle,value:CARDINAL,function:Function]={lgPixelsPerWord:INTEGER=lgBitsPerWord-lgBitsPerPixel;Thefollowingboundingboxiscalculatedintermsofthedestinationbuffer.sMin:INTEGER=MAX[dest.sMin,0,area.sMin-dest.sOrigin];sMax:INTEGER=MIN[dest.sMin+dest.sSize,dest.lines,area.sMin+area.sSize-dest.sOrigin];fMin:INTEGER=MAX[dest.fMin,0,area.fMin-dest.fOrigin];fMax:INTEGER=MIN[dest.fMin+dest.fSize,Shift[dest.rast,lgBitsPerWord-lgBitsPerPixel],area.fMin+area.fSize-dest.fOrigin];replicatedPixel:CARDINAL_Inline.BITAND[value,Shift[1,Shift[1,lgBitsPerPixel]]-1]*replicator[lgBitsPerPixel];��qОg/НEи�wО_7НСН �Н'Нм�Н╡О]░НСН▐�ННЇ�Н°yО[ХНСwО[ХН`ОZ@НСuОVЯНБwНLОVЯ�ОVЯyНIОVЯ�ОVЯНЯОVЯНwОVЯН╘Ня Н$ЮН*9 yН0ЧОVЯ�ОVЯН1рwОVЯН7 Н?┤�ОUJН╣�ОSёНСНс�Н_Н$NОQШНСН �Н'ОPSНСН▐�НОN╛НСН└�НОMНСНy�НyОK]НСwОK]Н`ОI╣НСuОFfНБwН╞ОFf�ОFfyНґОFf�ОFfНUОFfНewОFfН Н!4 Н)DН.² yН5aОFf�ОFfН65wОD©Н╣Н3�Н�yОCНСwОCН`ОApНСuО>!НБwНЄО>!�О>!yН╡О>!�О>!НYО>!НjwО>!НН9 yН'TО>!�О>!Н((wО>!Н-_ Н4┤�Н6l�yО<yНСwО<yН` Н"�НН$Н)В�Н+эН0пН5╧О:рНСuО7┐НБwНШО7┐�О7┐yНЬО7┐�О7┐Н═О7┐Н╠wО7┐Н XН"─ yН* О7┐�О7┐Н+nwО7┐Н0і Н7н�Н9Ё�yО5шНСwО5шН`Нz Н#дН(uО44НфО2▄НСuО/=НБwНъО/=�О/=yНщО/=�О/=Н└О/=Н∙wО/=Н"<Н$d yН,О/=�О/=Н-SwО/=Н2┼ Н9╡�Н;≈�О-√НСyНУО-√�О-√Н_wО-√Н╧�yНFО-√�О-√НWwНЪО-√�О-√НbН%^�Н'CН,B О+ННСyНЙО+Н�О+ННTwО+ННў�yН;О+Н�О+ННLwНТО+Н�О+ННWН%H�Н'-Н,! О*GНСyН!О*G�О*GН▀wО*GНЕ�yНrО*G�О*GН┐wНжО*G�О*GН9Н%5�Н'Н+а�Н-іН2▐Н8▀�Н:pО(÷НСyНО(÷�О(÷Н─wО(÷Нз�yНgО(÷�О(÷НxwНкО(÷�О(÷Н.Н%�Н'Н+═�Н-┘Н2cН8T�Н:9О&ЬНфyО%PНСwО%PН`НyНэО%P�О%PНМwН!■О%P�О%PН!Ь Н)│yН+qО%P�О%PН,┐wН.*О%P�О%PН.█ Н6О#╘НСО ZНБ yН┘О Z�О ZНYwО ZН,yН├О Z�О ZНb�О ZН═wО ZН&[�Н(@Н.НН4\Н9йО╡Н╣uОНБwНХО�ОyНФО�ОН█ОН·wОНEН Н&Н)┤ Н0AyН4dО�ОН5/wН:⌡О�ОН;wОcН╣Н��НЕ�О╪НСyНыО╪�О╪НCwО╪Н!²�Н#┌xОНСНІН┼НmН"Н#└ Н)чН+└Н/2Н0уН3! Н9ЫwОmНyНОm�ОmНpwОmНй�yН╞Оm�ОmНаwН!hОm�ОmН!к Н(bН)ООеНyН2Ое�ОеН°wОеНЖ�yНшОе�ОеНМwН!?Ое�ОеН!╒Н/? ОНвП#ОvНyНШОv�ОvНewОvН©�yНєОv�ОvНІwН!]Оv�ОvН!ю Н(MН)ыОоНyН'Оо�ОоН▒wОоНК�yНпОо�ОоНБwН!4Оо�ОоН!≈Н/О(НвН&~П#О─НСyН╠О─�О─Н|wО─Н!l�Н"ЫyН&нО─�О─Н'┤wН+LО─�О─Н+╞Н/╠Н4zО ыНфНь�Н��f��TVm$■��4bbTableSpace:BitBlt.BBTableSpace;bb:BitBlt.BBptr_BitBlt.AlignedBBTable[@bbTableSpace];IFsMin<sMaxANDfMin<fMaxTHEN{bb^_[dst:[word:dest.pointer+Inline.LongMult[sMin,dest.rast]+Shift[fMin,-lgPixelsPerWord],bit:Inline.BITAND[fMin,Shift[1,lgPixelsPerWord]-1]],dstBpl:dest.rast*bitsPerWord,src:[word:@replicatedPixel,bit:0],srcDesc:[gray[[yOffset:0,widthMinusOne:0,heightMinusOne:0]]],height:sMax-sMin,width:Shift[fMax-fMin,lgBitsPerPixel],flags:[direction:forward,disjoint:TRUE,disjointItems:TRUE,gray:TRUE,srcFunc:function.srcFunc,dstFunc:function.dstFunc]];BITBLT[bb];};};Transfer:PUBLICPROC[dest,source:BitmapDesc,function:Function]={lgPixelsPerWord:INTEGER=lgBitsPerWord-lgBitsPerPixel;sMin:INTEGER=MAX[dest.sOrigin+MAX[dest.sMin,0],source.sOrigin+MAX[source.sMin,0]];sMax:INTEGER=MIN[dest.sOrigin+MIN[dest.sMin+dest.sSize,dest.lines],source.sOrigin+MIN[source.sMin+source.sSize,source.lines]];fMin:INTEGER=MAX[dest.fOrigin+MAX[dest.fMin,0],source.fOrigin+MAX[source.fMin,0]];fMax:INTEGER=MIN[dest.fOrigin+MIN[dest.fMin+dest.fSize,Shift[dest.rast,lgBitsPerWord-lgBitsPerPixel]],source.fOrigin+MIN[source.fMin+source.fSize,Shift[source.rast,lgBitsPerWord-lgBitsPerPixel]]];bbTableSpace:BitBlt.BBTableSpace;bb:BitBlt.BBptr=BitBlt.AlignedBBTable[@bbTableSpace];fMinDest:NAT=fMin-dest.fOrigin;fMinSource:NAT=fMin-source.fOrigin;sStartDest:NAT_sMin-dest.sOrigin;sStartSource:NAT_sMin-source.sOrigin;IFsMin<sMaxANDfMin<fMaxTHEN{bb^_[dstBpl:dest.rast*bitsPerWord,srcDesc:[srcBpl[source.rast*bitsPerWord]],height:sMax-sMin,width:Shift[fMax-fMin,lgBitsPerPixel],flags:[direction:forward,disjoint:TRUE,disjointItems:TRUE,gray:FALSE,srcFunc:function.srcFunc,dstFunc:function.dstFunc]];IFsource.pointer=dest.pointerTHEN{sSize:NAT=sMax-sMin;fSize:NAT=fMax-fMin;IF(fMinSource+fSize)>fMinDestAND(fMinDest+fSize)>fMinSourceAND(sStartSource+sSize)>sStartDestAND(sStartDest+sSize)>sStartSourceTHEN{bb.flags.disjoint_FALSE;--therectanglesoverlap��qОg/НEи�wО_,НСНOО]┘НСННV�НЦП%yО[щНСwО[щН yНО[щ�О[щНжwО[щН)yН$|О[щ�О[щН%5wО[щН(A�ОZ5ННг�НT�ОX▌ННмН2Н#╡�Н%≈Н3╦ Н9s�ОVГНХ НЗН(⌡Н+2yН/ОVГ�ОVГН/юwН3└ОVГ�ОVГН3ГН7ҐОU?НХОS≤ННъОQПННЇНН'Н)╟ОPIНН Н#⌡Н%( Н/нН1ZН<XОN║ННи ОLЗННqН$!ОKRННй НmН$ЯyН*TОKR�ОKRН+ wН-─ОKR�ОKRН.\ yН7ОKR�ОKRН7©wН:1ОKR�ОKRН;yОI╚НХwНОI╚�ОI╚НЯН╒Н*~Н0FОHНyОF\НwНОF\�ОF\НoОDЄНОC НСuО?ЎНБwНЛО?Ў�О?ЎyНЙО?Ў�О?ЎН▓О?ЎНёwО?ЎНJН ИН%╡ Н-аН3╣Н:��Н;Е�О>НСyНыО>�О>НCwО>Н!²�Н#┌О<oНСyНУО<o�О<oН_wО<oН╧�yН·О<o�О<oН╞wНWО<o�О<oН╨yН(+О<o�О<oН)=wН*ДО<o�О<oН+G Н1чО:гНфyНёО:г�О:гНЄwН\О:г�О:гН©Н&бО9 НСyН!О9 �О9 Н▀wО9 НЕ�yНйО9 �О9 НэwН.О9 �О9 Н▒yН(О9 �О9 Н)wН*fО9 �О9 Н*иН8fО7yНфyНёО7y�О7yНЄwНО7y�О7yНjН.чО5яНСyНЙО5я�О5яНTwО5яНў�yН⌠О5я�О5яН╔wНLО5я�О5яН╞yН(О5я�О5яН)'wН*нО5я�О5яН+1 Н1ЎО4*НфyН≤О4*�О4*Н╘wНQО4*�О4*НЄН&╛О2┌НСyНО2┌�О2┌Н─wО2┌Нз�yН©О2┌�О2┌НяwН#О2┌�О2┌Н├yН'ЛО2┌�О2┌Н(ЧwН*PО2┌�О2┌Н*ЁН8;О0шНфН$пyН.╒О0ш�О0шН/ЁwН1О0ш�О0шН1iО/3НфНО-▄НСНOО+ДНСННV�Н;П%О*=НСyН║О*=�О*=Н┼wО*=Н⌡�Н─НЩ�Н ШО(∙НС yНЬО(∙�О(∙НЮwО(∙НЯ�НжН!S�Н"QО&ННС yНШО&Н�О&ННДwО&ННТ�Н│О%FНСyНQО%F�О%FН:wО%FНK�НвyО#÷НСwО#÷Н yНО#÷�О#÷НжwО#÷Н)yН$|О#÷�О#÷Н%5wО#÷Н(A�О!ВННг�НT�О PННъО╗НН П"ОННи ОYННqН$!О╡ННй НmН$ЯyН*TО╡�О╡Н+ wН-─О╡�О╡Н.\ yН7О╡�О╡Н7©wН:1О╡�О╡Н;yО НХwН├О �О НcН Н*ЯН0╦ОcНyО╩НwО╩Н╛ Н≈�Н|yН&ЭО╩�О╩Н'╣wО╩Н*а�ОНyНО�ОНЙwОНШ�НЮ ОlНyНЖОl�ОlНъwОlНП�Ну yОеНwОеНҐyН)ъОе�ОеН*ЁwОеН-yОНХwОНyН,ОО�ОН-цwОvНХyН)иОv�ОvН*┌wОvН-▐�О оН'Н!�yН"▒О о�О оН#JwН&/О о�О оxН',О о�О оН'і�Н(ёН*О Н1@Ъ��├��TVm$²��5IFsStartDest=sStartSourceTHENbb.flags.disjointItems_FALSE;--sodotheitemsIFsStartDest>sStartSourceOR(sStartDest=sStartSourceANDfMinDest>fMinSource)THEN{--reversedirectionbb.flags.direction_backward;bb.srcDesc.srcBpl_bb.dstBpl_-bb.dstBpl;sStartSource_sStartSource+(sSize-1);sStartDest_sStartDest+(sSize-1);};};};bb.dst_[word:dest.pointer+Inline.LongMult[sStartDest,dest.rast]+Shift[fMinDest,-lgPixelsPerWord],bit:Inline.BITAND[fMinDest,Shift[1,lgPixelsPerWord]-1]];bb.src_[word:source.pointer+Inline.LongMult[sStartSource,source.rast]+Shift[fMinSource,-lgPixelsPerWord],bit:Inline.BITAND[fMinSource,Shift[1,lgPixelsPerWord]-1]];BITBLT[bb];};};IsPowerOfTwo:PROC[c:CARDINAL]RETURNS[BOOLEAN]=INLINE{RETURN[BITAND[c,c-1]=0]};largeBitSize:INT_5000;fSizeHint:NAT_100;CreateTile:PUBLICPROC[rectangle:Rectangle,phase:INTEGER_0,rasterPointer:LONGPOINTER,scratchPointer:LONGPOINTER_NIL,scratchWords:INT_0]RETURNS[tile:Tile]={ENABLEInsufficientSpace=>GOTOInsufficientScratch;bitWidth:CARDINAL=Shift[rectangle.fSize,lgBitsPerPixel];bitmapDesc:BitmapDesc=[rectangle.sMin,rectangle.fMin,0,0,rectangle.sSize,rectangle.fSize,rasterPointer,(rectangle.fSize+(pixelsPerWord-1))/pixelsPerWord,rectangle.sSize];IFbitWidth<=16ANDIsPowerOfTwo[bitWidth]ANDbitmapDesc.sSize<16ANDphase=0THEN{small:BitmapDesc_Reshape[scratchPointer,scratchWords,[rectangle.sMin,rectangle.fMin,rectangle.sSize,Shift[16,-lgBitsPerPixel]]];FORfShift:NAT_0,fShift+bitmapDesc.fSizeUNTILfShift>=small.fSizeDOTransfer[small,ShiftMap[bitmapDesc,0,fShift],[null,null]];ENDLOOP;tile_[small.sOrigin,small.fOrigin,small.sSize,small.fSize,0,small.pointer,small.rast,small.lines];}ELSE{fSize:NAT_(fSizeHint+bitmapDesc.fSize-1)/bitmapDesc.fSize*bitmapDesc.fSize;bitsPerLine:NAT_Shift[fSize,lgBitsPerPixel];sSize:NAT_MAX[(((largeBitSize+bitsPerLine-1)/bitsPerLine)/bitmapDesc.sSize)*bitmapDesc.sSize,��qОg/НEи�yО_,Н'wО_,НнyН(О_,�О_,Н(вwО_,Н+ЦН9�yН:■О_,�О_,Н;MwН>2О_,�О_,xН?/О_,�О_,Н?╘�О]┘НЗНЁН≤НДyО[щН'wО[щНнyН'mО[щ�О[щН(J�wО[щН)╒yН9kО[щ�О[щН:>wОZ6НЗyН&_ОZ6�ОZ6Н'wОZ6Н*$�xН+YОZ6�ОZ6Н+р�Н,пН1MwОX▌Н8Н#Р�Н%Н,.Н7+�Н8╦Н>М�ОVГН ОU?Н8Н!�Н"╘Н*▌�Н,s Н2{ Н9 �Н:≈ ОS≤Н�НП ОQЯН8ОPIН'ОN╒НОLЗНН(�Н╣НН$ �Н&Н7і Н=a�ОKSНвН║Н)BН+ьyН/ґОKS�ОKSН0fwН4+ОKS�ОKSН4▌Н;ОI╚НвОHНН�Н·Н Н%О�Н'тН:QОF]Нв�Н╪Н эН,}Н/yН2ХОF]�ОF]Н3║wН7fОF]�ОF]Н7и ОD╣НвН═yОCНwНОC�ОCНoОAfНО?©НСuО<pНБwНнО<p�О<pyНлО<p�О<pНswО<pНsyНnО<p�О<pН9wН$╔О<p�О<pyН%█О<p�О<pН&awО<pН+≤�yН+ШО<p�О<pН,╣wН1°О<p�О<pН2┐�yН4hО<p�О<pН4рwО<pН9�yО:хНСwО:хН`�yНцО:х�О:хН|wНAО:х�О:хНєННг�Н!╛О9!НСО5рНБyНЕО5р�О5рНOwО5рНu�НО4*НБ yН{О4*�О4*НdwО4*Нt�НuО2┌НБ wН-О2┌�О2┌yН+О2┌�О2┌НсО2┌НДwО2┌Н▀ Н%D Н+ЧyН0XО2┌�О2┌Н0бwО2┌Н6�Н7╘Н96 yО0шН╣О0шН╔wНбО0ш�О0шН÷yН#О0ш�О0шН#ЎО0шН&ЖwО0шН,√�yН.#О0ш�О0шН/wН0/О0ш�О0шН1yН:О0ш�О0шН:xwО0шН<·�Н>+yО/4Н╣wО/4НаНЭН6�Н�yО-▄НСwО-▄НН уyН#jО-▄�О-▄Н$X�О-▄Н%╧wО-▄Н'сО+ЕНСyНJО+Е�О+ЕНwО+ЕН�НКН,√О*=НС Н Н ╩�Н"═Н,■Н6Н7іО(√НфН@Н$╟ О&ОНфП2Н1ЙyО%GНСwО%GН НxНyНСО%G�О%GНфwО%GН yН/їО%G�О%GН0zwО%GН2мН=╘�Н>чyО#═НфwО#═НЛНм�Н╡�yНГО#═�О#═Н═wО#═Нґ�О!ЬНН Нс�Н `Н/Н7ЖО QНвН]Н&вН,QyО╘НwО╘НРyНBО╘�О╘Н+wО╘Н<�НиН UyН/зО╘�О╘Н0юwО╘Н4 yОНвwО[ННnН,\Н-ИН2{Н6yОЁНwНЇОЁ�ОЁОННc�НПНЗ Н(√Н/рН7Н8░ ОdНв НBОҐН�yОНСwОНB�ОnНyНЕОn�ОnНнwОnНч�ОфНвПAОНyНяО�ОН╨wОНй�НWН&SОwНyНПОw�ОwНыwОwНИ�yО пНвwН░О п�О пНСПOЪ��0��TVm$`��6bitmapDesc.sSize];large:BitmapDesc_Reshape[scratchPointer,scratchWords,[bitmapDesc.sOrigin+bitmapDesc.sMin,bitmapDesc.fOrigin+bitmapDesc.fMin,sSize,fSize]];finalPhase:CARDINAL;WHILEphase<0DOphase_phase+bitmapDesc.fSizeENDLOOP;phase_phaseMODbitmapDesc.fSize;finalPhase_(phase*(sSize/bitmapDesc.sSize))MODbitmapDesc.fSize;large.sSize_bitmapDesc.sSize;large.fSize_bitmapDesc.fSize;Transfer[large,bitmapDesc,[null,null]];WHILElarge.fSize<fSizeDOfSizePrev:NAT=large.fSize;large.fSize_MIN[fSize,2*fSizePrev];Transfer[large,ShiftMap[large,0,fSizePrev],[null,null]];ENDLOOP;WHILElarge.sSize<sSizeDOsSizePrev:NAT=large.sSize;large.sSize_MIN[sSize,2*sSizePrev];Transfer[large,ShiftMap[large,sSizePrev,phase],[null,null]];{firstPart:BitmapDesc_ShiftMap[large,sSizePrev,phase-bitmapDesc.fSize];firstPart.fSize_bitmapDesc.fSize;Transfer[large,firstPart,[null,null]];};phase_2*phase;WHILEphase>bitmapDesc.fSizeDOphase_phase-bitmapDesc.fSizeENDLOOP;ENDLOOP;tile_[large.sOrigin,large.fOrigin,sSize,fSize,finalPhase,large.pointer,large.rast,large.lines];};EXITSInsufficientScratch=>{tile_[rectangle.sMin,rectangle.fMin,rectangle.sSize,rectangle.fSize,phase,rasterPointer,(rectangle.fSize+(pixelsPerWord-1))/pixelsPerWord,rectangle.sSize];};};TransferTile:PUBLICPROC[dest:BitmapDesc,tile:Tile,function:Function_[null,null]]={bitWidth:CARDINAL=Shift[tile.fSize,lgBitsPerPixel];IFbitWidth=bitsPerWordANDtile.rast=1ANDtile.sSize<=16ANDtile.phase=0THEN{startLine:NAT_MAX[dest.sMin,0];endLine:INTEGER_MIN[dest.sMin+dest.sSize,dest.lines];startPixel:NAT_MAX[dest.fMin,0];endPixel:INTEGER_MIN[dest.fMin+dest.fSize,Shift[dest.rast,lgBitsPerWord-lgBitsPerPixel]];IFendLine>startLineANDendPixel>startPixelTHEN{startBit:NAT_Shift[startPixel,lgBitsPerPixel];bbTableSpace:BitBlt.BBTableSpace;��qОg/НEи�wО_,НвО]┘ННЕ Н°�Н )Н.щО[щНвП$ОZ6НвП#Н,0Н/ШОX▌Н yНОX▌�ОX▌НЮwН LОX▌�ОX▌yОVГНwОVГНeyНїОVГ�ОVГН█�wОVГННН"о�Н$\Н(>�Н*#yН4ТОVГ�ОVГН5ґwН:∙ОVГ�ОVГОU?ННФ�НsyНTОU?�ОU?НfwОU?Н╛ОS≤Н Н°�Н)Н└�Н ╦yН0÷ОS≤�ОS≤Н1╠wОS≤Н3ВОQПН Н╠�Н>ОPIН Ні�Н3ОN║НН& Н$Н'╘yОLЗНwОLЗНeyН! ОLЗ�ОLЗН"─�wОKRН yН╒ОKR�ОKRН┼wОKRН⌡�Н ─ОI╚Н НЇ�yНDОI╚�ОI╚НUwН╗ОI╚�ОI╚Н Н#йОHНН7Н'УН)┌ Н0PН3ЦyОF\НwНЇОF\�ОF\yОDЄНwОDЄНeyН!╟ОDЄ�ОDЄН"√�wОC Н yНґОC �ОC Н∙wОC Ні�Н ▀ОAeН Нб�yНOОAe�ОAeН`wНЁОAe�ОAeН Н#ЮО?ЎНН7Н'У Н.kН3Н6⌡О>Н Н│ Н#9�Н$фН.└ О<oНХО:гН'Нё�Н!0О9 Н'Н H Н%ЦН)vО7xН'О5яННВ�Н└yО4)НwО4)НvНX�Н█yН)^О4)�О4)Н*D�wО4)Н+╔Н/├�Н1Н4Т�Н5РyО2┌НХwН┴О2┌�О2┌yО0зНwНЇО0з�О0зО/3ННc�НПНц Н((Н+СН/╡ Н6╒ О-▀Нв НО+ДНyО*<НСwО*<НгН lН#�О(∙ННc�НПН ЦН*iН3ЦН=SО&ННв НIП2О%FНвО#÷НО!ВНСuО╗НБwНLО╗�О╗yНJО╗�О╗НЯО╗НwО╗Н╘Н#i Н+yН.QН1│Н7tН=\�ОН╣НHНГ�Нл�ОYНСyНJОY�ОYНwОYН�НКН)yО╡НСwО╡Н Нx�Н] yН"aО╡�О╡Н#5wО╡Н%┤Н*Z�Н,?�yН-tО╡�О╡Н.HwО╡Н0 Н6>Н8тyН:╧О╡�О╡Н;▄wО Нф Ны�Н©�yНСО �О Н╛wО Н╧�ОcН yНDОc�ОcН-wОcН>�yНйОc�ОcНэwН ┐Оc�ОcН Ф Н'~О╩НyНЛО╩�О╩НUwО╩Н╟�yН =О╩�О╩Н!NwН"║О╩�О╩Н#Н0║ОН yН{О�ОНdwОНu�yНО�ОНwН ╨О�ОН! Н'╙ОlНyН#Оl�ОlН▄wОlНГ�yН tОl�ОlН!┘wН"ьОl�ОlН#;Н0бОеНвyОНwОН╛yН О�ОН ЮwОН#2yН/О�ОН/╨wОН2ф�ОvНyНXОv�ОvНAwОvНQ�НчН(pО нННqЪ��Б��TVm$!��7bb:BitBlt.BBptr=BitBlt.AlignedBBTable[@bbTableSpace];sOffset:INTEGER_(dest.sOrigin+dest.sMin-tile.sOrigin)MODtile.sSize;fOffset:INTEGER_(dest.fOrigin+dest.fMin-tile.fOrigin)MODtile.fSize;WHILEsOffset<0DOsOffset_sOffset+tile.sSizeENDLOOP;WHILEfOffset<0DOfOffset_fOffset+tile.fSizeENDLOOP;bb^_[dst:[word:dest.pointer+Inline.LongMult[startLine,dest.rast]+startBit/bitsPerWord,bit:startBitMODbitsPerWord],dstBpl:dest.rast*bitsPerWord,src:[word:tile.pointer+sOffset,bit:Shift[fOffset,lgBitsPerPixel]],srcDesc:[gray[[yOffset:sOffset,widthMinusOne:0,heightMinusOne:tile.sSize-1]]],height:endLine-startLine,width:Shift[endPixel-startPixel,lgBitsPerPixel],flags:[direction:forward,disjoint:TRUE,disjointItems:TRUE,gray:TRUE,srcFunc:function.srcFunc,dstFunc:function.dstFunc]];BITBLT[bb];};}ELSE{sMin:INT_dest.sOrigin+dest.sMin;fMin:INT_dest.fOrigin+dest.fMin;source:BitmapDesc;sOrigin:INT_tile.sOrigin;fOrigin:INT_tile.fOrigin;WHILEsOrigin<sMinDOsOrigin_sOrigin+tile.sSize;fOrigin_fOrigin+tile.phase;ENDLOOP;WHILEsOrigin>sMinDOsOrigin_sOrigin-tile.sSize;fOrigin_fOrigin-tile.phase;ENDLOOP;WHILEfOrigin<fMinDOfOrigin_fOrigin+tile.fSizeENDLOOP;WHILEfOrigin>fMinDOfOrigin_fOrigin-tile.fSizeENDLOOP;source_[sOrigin,fOrigin,0,0,tile.sSize,tile.fSize,tile.pointer,tile.rast,tile.lines];WHILEsource.sOrigin<sMin+dest.sSizeDOsource.fOrigin_fOrigin;WHILEsource.fOrigin<fMin+dest.fSizeDOTransfer[dest,source,function];source.fOrigin_source.fOrigin+source.fSize;ENDLOOP;source.sOrigin_source.sOrigin+source.sSize;fOrigin_fOrigin+tile.phase;WHILEfOrigin>fMinDOfOrigin_fOrigin-source.fSizeENDLOOP;ENDLOOP;};};END.��qОg/НEи�wО_,НН║Нx�Н!]П%О]└НyН6О]└�О]└Н═wО]└НЗ�Н!┤П%yН8/О]└�О]└Н9@wО]└Н;┤ О[щНyН+О[щ�О[щН∙wО[щНО�Н!|П%yН8О[щ�О[щН9wО[щН;[ yОZ5НwОZ5НvН�НR�yН ┤ОZ5�ОZ5Н!m�wОZ5Н"нН'u�Н)Н-╘�Н/▌ yН52ОZ5�ОZ5Н5ЛwН:сОZ5�ОZ5yОX▌НwОX▌НvН�НG�yН |ОX▌�ОX▌Н!b�wОX▌Н"цН'_�Н(ЛН-┬�Н/m yН5ОX▌�ОX▌Н5юwН:╗ОX▌�ОX▌ОVФННь�Нe�ОU>Н'НчНCН%ц�Н'╗Н8 Н=б�ОS≈НЗН%KН'БyН,╚ОS≈�ОS≈Н-╪wОS≈Н0ОQПН'НПОPHН'НхН-Н+Н- Н5кОN═Н'Н╛Н%╛Н*╛ Н5QН6чОLЫНЗОKQН'НзОI╙Н'Н┌Н*ўОHН'Нш Н!~Н'yН,eОH�ОHН-wН/▒ОH�ОHН0m yН9ОH�ОHН9пwН<BОH�ОHН=yОF[НЗwН%ОF[�ОF[НН!ЁН,░Н2WОDЁН'yОCНwНОC�ОCН─ОAdНО?ҐН�yО>НСwО>НB�О<mНyНО<m�О<mНpwО<mН√�Н#О:фНyНШО:ф�О:фНewО:фН▀�НО9ННм О7wНyН[О7w�О7wНеwО7wНК�НxО5оНyНPО5о�О5оН╨wО5оНЮ�НmyО4'НwО4'НeНC�НxyН!�О4'�О4'Н!Е�wО2─ННС�Н─Н ^�Н"C О0ьННХ�НuН H�Н"- yО/1НwНЇО/1�О/1yО-┴НwО-┴НeНC�НxyН!�О-┴�О-┴Н!Е�wО+АННС�Н─Н ^�Н![ О*:ННХ�НuН H�Н!E yО(▓НwНЇО(▓�О(▓yО&КНwО&КНeН8�НmyН ЙО&К�О&КН!п�wО&КН#0Н(�Н)░Н.c�Н0H yН5АО&К�О&КН6 wН;┌О&К�О&КyО%CНwО%CНeН8�НmyН ЙО%C�О%CН!п�wО%CН#0Н(�Н)░Н.c�Н/` yН4ЗО%C�О%CН5ЁwН:⌡О%C�О%CО#⌡ННT�НАНzН#╔Н%1Н&Ў Н,╩ Н2╛Н9Ъ О!ТНвyО MНwО MНe Н f�Н! yН,(О M�О MН-�wО╔Н Н�Н≤yОЩНwОЩНv Н"l�Н#║yН.ОЩ�ОЩН.Ч�wОVН' НеН$m ОўН' Н �Н!╘ Н*·�Н,┐yОН'wНхО�ОО_Н Н�Нё Н(ё�Н*┬ОЇННХ�НuН H�Н"- yОНwОНvНI�Н~yН"ШО�ОН#А�wОН%AН*�Н+║Н0t�Н1qyН8ЭО�ОН9╣wН>²О�ОyОhНwНЇОh�ОhОаНОНСyО йНБwНiО й�О йЪ��8��TVm$.��PDInterpMainImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September20,19849:14:01amPDTDIRECTORYPDInterpReader,PDInterpPage,PDRemoteStream,PDQueue,Process,Stream,String,PDInterpOutput;PDInterpMainImpl:PROGRAMIMPORTSPDInterpReader,PDInterpPage,PDRemoteStream,PDQueue,Process,String,PDInterpOutput=BEGINDoFile:PROC[request:PDQueue.Request,requestNumber:CARDINAL,abort:LONGPOINTERTOBOOLEAN]={Action:PROC[stream:Stream.Handle]={reader:PDInterpReader.Handle_PDInterpReader.Open[stream];separator:LONGSTRING_[160];String.Copy[separator,request.requestTime];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.fileName];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.requestor];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;reader.herald.copies_request.copies;WHILEPDInterpPage.InterpretPage[reader,request,abort].okDOIFabort^THENABORTEDENDLOOP;[]_PDInterpReader.Close[reader];};IFrequest.fileName=NILTHENPDInterpOutput.ReprintLastPage[request.copies]ELSE{PDRemoteStream.Read[request.fileName,request.requestor,request.requestorPassword,Action!PDRemoteStream.Error=>{message:LONGSTRING_[160];String.AppendString[message,request.fileName];String.AppendString[message,""];String.AppendString[message,expl];PDQueue.LogMessage[message,requestNumber];CONTINUE;};PDInterpReader.Error=>{message:LONGSTRING_[160];String.AppendString[message,"PDfileerror:"];String.AppendString[message,SELECTcodeFROMinvalidPassword=>"NotaPDfile",objectOutOfBounds=>"Objectoutofbounds",missingStartImage=>"Missingstartimage",badLoadReference=>"Badloadreference",unrecognisedImagingCommand=>"Unrecognisedimagingcommand",loadOutOfBounds=>"Loadoutofbounds",unrecognisedControlCommand=>"Unrecognisedcontrolcommand",unrecognisedCommandType=>"Unrecognisedcommandtype",��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKН!Н*KН5ОН<╗ОVГН╣НюН1ОU?НБyНxОU?�ОU?Н ОU?Н!ШwОU?Н'╚Н2gОS≤Н╣НXН"Н'IН+╧ Н6�yН8ОS≤�ОS≤Н8ҐuОPIНБwНЫОPI�ОPIyНВОPI�ОPIН·wОPIН·НOН)5 yН3┤ОPI�ОPIН4RwН9ЎОPI�ОPIН: yОN║Н╣ОN║Н╔ОN║НFОN║Н`wН!�ОN║�ОN║Н!Х�Н#м�uОLЗНСwНчОLЗ�ОLЗyНэОLЗ�ОLЗН└wНЪОLЗ�ОLЗНbНL Н(�Н)З�ОKRННбН&ы�Н(fОI╚Н yНpОI╚�ОI╚Н)ОI╚НawОI╚Н"R�Н#ъОHНН нyОF\НwОF\Н▓yНОF\�ОF\НИ�wОF\НIН1 �Н2w�yН3^ОF\�ОF\Н4wН8ЪОF\�ОF\ОDЄНН%ШyОC НwОC Н▓yНОC �ОC НИ�wОC НIН1 �Н2w�yН3^ОC �ОC Н4wН8ЪОC �ОC ОAeНН%ШyО?ЎНwО?ЎН▓yНО?Ў�О?ЎНИ�wО?ЎНIН1 �Н2w�yН3^О?Ў�О?ЎН4wН8ЪО?Ў�О?ЎО>ННb�Н ОyО<oНwО<oНeП"Н-4Н2ayН81О<o�О<oН9�О<oН:wwО<oН<yО:гНвО:гН²О:гНІwН#WО:г�О:гО9 ННO�НэО7xНyО5яНСwО5яН НC�yН(О5я�О5яН О5яН!╦wО4)НфП.yО2┌НСwО2┌НB�О0зНП%Н,║О/3НвН$oН(Й�О-▄НН#ХН&}�О+ДН'yНВО+Д�О+ДН╠О+ДН ХwО+ДН%ы�Н'fО*=Н'Н)┌О(∙Н'Н)┌�Н*ЇО&НН'Н)┌О%FН'Н*юyО#·Н'wНaО#·�О#·О!ВН'О OНН#Н%√�О╗Н'yНВО╗�О╗Н╠О╗Н ХwО╗Н%ы�Н'fО�Н'Н)┌Н,╗Н/Н2ЭОYН'yН)┌ОY�ОYН*"wОYН.UyН1°ОY�ОYН2UwО╠Н8Н#MН%БН)d�Н*█Н-О Н8Н%╒Н(8Н-YН/оН1┬ОbН8Н$ёН'9Н- Н0О╩Н8Н$ЩН'▓Н+Н.* ОН8Н,╡Н/GН8╛ОlНОдН8Н$≥Н'.Н+rН-ГН/═ОН8Н,eН.ШН8_ОvНО нН8Н*ьН-nН6сН=4Ъ��6��TVm$а��2unexpectedEOF=>"UnexpectedEOF",runGroupTooLong=>"Rungrouptoolong",bitmapTooBig=>"Bitmaptoobig",deviceCommandTooBig=>"Devicecommandtoobig",ENDCASE=>"??"];String.AppendString[message,"wordIndex:"];String.AppendDecimal[message,wordIndex];String.AppendString[message,"wordCount:"];String.AppendDecimal[message,wordCount];PDQueue.LogMessage[message,requestNumber];CONTINUE;};PDInterpReader.Warning=>{message:LONGSTRING_[160];String.AppendString[message,"PDfilewarning:"];String.AppendString[message,SELECTcodeFROMwrongFormatVersion=>"WrongversionofPDfileformat",unreasonableResolution=>"Unreasonableresolution",unreasonableBandSSize=>"UnreasonablebandSSize",unreasonableImageSize=>"UnreasonableimageSize",unreasonableLoadSize=>"UnreasonableloadSize",unreasonableNumberOfCopies=>"Unreasonablenumberofcopies",objectOutOfBand=>"Objectoutofband",emptyRunGroup=>"Emptyrungroup",nonZeroFill=>"Non-zerofill",imageBoundsExceedPageBounds=>"Imageboundsexceedpagebounds",tooFewBands=>"Toofewbands",unknownColorTileFlag=>"Unknowncolortileflag",ENDCASE=>"??"];String.AppendString[message,"wordIndex:"];String.AppendDecimal[message,wordIndex];String.AppendString[message,"wordCount:"];String.AppendDecimal[message,wordCount];PDQueue.LogMessage[message,requestNumber];RESUME;};];};};Main:PROC={DOPDQueue.DoRequest[DoFile!ABORTED=>CONTINUE;]ENDLOOP};��qОg/НEи�wО_,Н8Н#dН%З Н.LО]└Н8Н%=Н'сН+·Н/═Н2 О[щН8Н"DН$зН*^Н,хОZ5Н8Н(Н*╙Н/ВН6XН8бyОX▌Н8wОX▌Н:Н!пОVФН8ОU>Н'Н)┌�Н*Ї Н2!ОS≈Н'Н*Ц ОQОН'Н)┌�Н*Ї Н2nОPHН'Н*Ц ОN═Н'Н*юyОLЬН'wНaОLЬ�ОLЬОKQН'ОI╘НН$ЭН'▓�ОHН'yНВОH�ОHН╠ОHН ХwОHН%ы�Н'fОFZН'Н)┌Н,╗Н/Н4вОD╡Н'yН)┌ОD╡�ОD╡Н*"wОD╡Н.UyН1°ОD╡�ОD╡Н2UwОCН8Н&fН(ЭН.HН3Н4хН7=Н9їОAcН8Н(�Н*√Н3ЗО?╪Н8Н'ъН*uН3ы О>Н8Н'їН*=Н3║ О<lН8Н' Н)╒Н3 О:еН8Н,2Н.гН8,Н=XО9НО7vН8Н$AН&вН+ЬН.mН0&О5нН8Н#ЪН&∙Н+аН.WО4'Н8 Н БН#wН*IО2Н8Н-MН/БН4юН9═Н>'О0ьНО/0Н8 Н!кН$`Н'СН*■О-┴Н8Н' Н*0Н1LН4иН7(yО+АН8wО+АН:Н!пО*9Н8О(▓Н'Н)┌�Н*Ї Н2!О&ЙН'Н*Ц О%CН'Н)┌�Н*Ї Н2nО#⌡Н'Н*Ц О!СН'Н*юyО LН'wНО L�О LОєН'ОЩНОUНОґНСuО^НБwНО^�О^yНО^�О^НЇwО^НІ�Н⌡�yОЇНСwОНН$Щ�yОgНwОgН/yНдОg�ОgН▐wН#ЧОg�ОgОюН�yОНwОqНС��2��TVm$з��3PDQueue.LogMessage["Booted."];Process.Detach[FORKMain[]];END.��qОg/НEи�wО_,НБО[щНБyН1О[щ�О[щНКwО[щНyОX▐НБwНiОX▐�ОX▐Ъ��>��TVm$�-��PDInterpOutput.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September19,19849:12:44amPDTDIRECTORYPDFileFormat,PDInterpBitmap,PDQueue;PDInterpOutput:DEFINITIONS=BEGINStartImage:PROC[herald:PDFileFormat.Herald,startImage:PDFileFormat.StartImage,request:PDQueue.Request]RETURNS[PDInterpBitmap.BitmapDesc];Calledatthestartofeachpass.Returnsaclearedbufferforthefirstbandonthepage.Onsomedevices(continuousformdevicessuchasaVersatec),theoutputroutinemaywanttoprintaseparatorbarcontainingtheseparatorstring.TheImplshouldcopythestringifitneedstosaveitpasttheStartImagecall.EndBand:PROCRETURNS[PDInterpBitmap.BitmapDesc];Calledattheendofeachband.Returnsaclearedbufferforthenextband.Thebufferreturnedbythecallforthelastbandshouldnotbeused.EndImage:PROC[request:PDQueue.Request];Actuallystartstheprinting.ReprintLastPage:PROC[copies:CARDINAL];Attemptstoreprintthemostrecentpageagain.Thereneedstobesomestuffhereforerrormessagesandrecovery.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WyОX²НБwОX²НKНпН*≈ОUNНБyНаОUN�ОUNНі wОUNН!Ю�yН#еОUN�ОUNН$uОQЪНБ wН└ОQЪ�ОQЪyН┌ОQЪ�ОQЪН)wОQЪН)НJН-@ ОPXН╣Н Н%WyОN╠НСwОN╠НЪxОM НСН7НэН(НFНИН!ОKbНСН�Н9НжНдН!ЛН$8Н'Н*[Н,NН. ОI╩НСНIНЁН; Н"┌Н%юН*HН-eН/�Н0R Н6÷Н8КН=*ОHНфНІННіНЯ�Н%Н$Н&l Н-Н/[Н59Н9ДН<їОFlНфНН1Н}НMН ёН!ЗН%╗Н'LН*;Н+⌠Н.lН0╦ Н7шuОCНБwНDОC�ОCyНAОC�ОCНИОCНХwОCНТxОAvНСН7НэН(НІНYН │О?оНСН�Н9НжНдН!ЛН$8Н'MО>'НСНІН╔ННщН!)Н#©Н%ГН(3Н*©Н.Н2YН4╪Н6▄uО:ыНБwНсО:ы�О:ыyНпО:ы�О:ыНxwН]О:ы�О:ыНюНxО91НСНYНШНGuО5ЦНБwНъО5Ц�О5ЦyНщО5Ц�О5ЦН┘wО5ЦН└yН"▐О5Ц�О5ЦН#ZwН(фО5Ц�О5ЦН))�xО4;НСН╚НPН╨НН"EН&MН)}О0МНБНдНrННФНPН cН#^Н%├Н(БН.═Н1CyО-·НБwНiО-·�О-·��╨��TVm$о��PDInterpOutputViewerImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September26,19845:22:14pmPDTImplementsaCedarPDoutputdevicethatshowsthebitmapinaviewer.DIRECTORYPDFileFormat,PDInterpBitmap,Menus,ImagerPixelMaps,PDInterpOutput,ViewerClasses,ViewerOps,CGContext,Graphics,GraphicsOps,Real,ImagerFrameBuffer,Process,PDTextBitmap,String,PDQueue;PDInterpOutputViewerImpl:PROGRAMIMPORTSMenus,ImagerPixelMaps,ViewerOps,Graphics,GraphicsOps,Real,ImagerFrameBuffer,Process,PDTextBitmap,PDInterpBitmap,StringEXPORTSPDInterpOutput=BEGINviewer:ViewerClasses.Viewer_NIL;pageMap:ImagerPixelMaps.PixelMap_ImagerPixelMaps.Create[0,[0,0,0,0]];currentStartImage:PDFileFormat.StartImage;currentHerald:PDFileFormat.Herald;bandNumber:NAT_0;StartImage:PUBLICPROC[herald:PDFileFormat.Herald,startImage:PDFileFormat.StartImage,request:PDQueue.Request]RETURNS[PDInterpBitmap.BitmapDesc]={bandMap:ImagerPixelMaps.PixelMap;pageMap_ImagerPixelMaps.Create[0,[startImage.passBands*herald.bandSSize,startImage.fMinPage,startImage.nBands*herald.bandSSize,startImage.fSizePage]];currentStartImage_startImage;currentHerald_herald;bandNumber_0;pageMap.Clear;bandMap_pageMap.Clip[[startImage.passBands*herald.bandSSize,startImage.fMinPage,herald.bandSSize,startImage.fSizePage]];RETURN[[sOrigin:bandMap.sOrigin,fOrigin:bandMap.fOrigin,sMin:bandMap.sMin,fMin:bandMap.fMin,sSize:bandMap.sSize,fSize:bandMap.fSize,pointer:bandMap.refRep.pointer,rast:bandMap.refRep.rast,lines:bandMap.refRep.lines]]};EndBand:PUBLICPROCRETURNS[PDInterpBitmap.BitmapDesc]={bandMap:ImagerPixelMaps.PixelMap;bandNumber_bandNumber+1;bandMap_��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WОZ5НБ Н)�Н^Н`НъН"Н&!Н(СН,уН/!Н3÷Н5E�Н6zyОVФНБwОVФНKНпН*≈Н/│ОU?Н╣Нr Н#╣ Н+ Н2уН9ОS≤Н╣НHНЧН%4Н.ЩН3nОPIНБyН фОPI�ОPIН!nОN║НСwОN║НёН█Н&к Н.4Н4tН=ОLЗНфН{Н#╡Н-{Н8ByОKRНСwОKRН╣ ОI╚НС�yНьОI╚�ОI╚Н▒wОF\НСНяН#A�yН$нОF\�ОF\Н%ІwН&ыОF\�ОF\ОC НСНuН(c�Н)ПН:z ОAeНСНўО?ЎНС НOО>НС yНОО>�О>НвwО>НХ�НuuО:гНС wН∙О:г�О:гyН⌠О:г�О:гН:О:гНKwО:гН РН&Н4 О9 НфН"Н'hyО7xНwО7xНН+п�Н-╣�О5яННЎО4)НН �Н О2┌НвП'Н,╙О0шНвП#Н*≤О/3ННE�Нр О-▄ННГ�НtО+ДН Н┤�НО*=Н О(∙ННE�НрП4О&ННвН!Н,%yО%FНwО%FНqО#÷ННmО!ВННbО PННО╗ННОНН ОYННЖ О╡ННXО НН0ОcННйО╩НОНuОдНСwНUОд�ОдyНRОд�ОдНЗОдНОдН╡wОдН%ЎН8~�Н:c�ОННЎОuН Н┤�Н Н%√�Н'{О нННE�Ъ��G��TVm$ы��2pageMap.Clip[[(currentStartImage.passBands+bandNumber)*currentHerald.bandSSize,currentStartImage.fMinPage,currentHerald.bandSSize,currentStartImage.fSizePage]];RETURN[[sOrigin:bandMap.sOrigin,fOrigin:bandMap.fOrigin,sMin:bandMap.sMin,fMin:bandMap.fMin,sSize:bandMap.sSize,fSize:bandMap.fSize,pointer:bandMap.refRep.pointer,rast:bandMap.refRep.rast,lines:bandMap.refRep.lines]]};ShowPage:PROC={data:ViewerData;IFviewer=NILORviewer.destroyedTHENviewer_ViewerOps.CreateViewer[$PDInterpOutputViewerClass,[name:"PDpage",column:left,iconic:TRUE]]ELSEViewerOps.PaintViewer[viewer,client];data_NARROW[viewer.data];data.nextPage_FALSE;data.sShift_-pageMap.sOrigin;data.fShift_-pageMap.fOrigin;DOIFviewer.destroyedORdata.nextPageTHENEXIT;Process.Pause[Process.MsecToTicks[200]];ENDLOOP;};EndImage:PUBLICPROC[request:PDQueue.Request]={separator:LONGSTRING_[160];String.Copy[separator,request.requestTime];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.fileName];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.requestor];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;ShowPage[];IFPDTextBitmap.fontName.length=0THENIFNOTPDTextBitmap.SetFont["[Indigo]<Peach>Fonts>TimesRoman36B.ks",request.requestor,request.requestorPassword]THENERROR;pageMap_pageMap.refRep.Reshape[0,[-1-PDTextBitmap.FontAscent[],-PDTextBitmap.FontAscent[],PDTextBitmap.FontAscent[]+PDTextBitmap.FontDescent[]+2,PDTextBitmap.TextWidth[separator]+2*PDTextBitmap.FontAscent[]]];{bits:PDInterpBitmap.BitmapDesc_[sOrigin:pageMap.sOrigin,fOrigin:pageMap.fOrigin,��qОg/НEи�wО_,НвПOО]┘НвН%▌О[щНвyОZ6НwОZ6НqОX▌ННmОVГННbОU?ННОS≤ННОQПНН ОPIННЖ ОN║ННXОLЗНН0ОKRННйОI╚НОHНuОDЄНСwНОDЄ�ОDЄyНОDЄ�ОDЄНаwОDЄНю�Н╔�ОC НН┐ yОAeНwОAeН╛Н�yНУОAe�ОAeНчОAeН┘wОAeН╨yН*2ОAe�ОAeН*КwОAeН-ВН2\�О?ЎНвП2Н5вН:sН=≥О>НвНFНyН ▌О>�О>Н!GwН#╨О>�О>Н$�yО<oНwО<oНSН)■О:гНН �yН√О:г�О:гНwО:гНu О9 НН╧�yНFО9 �О9 НЪwН ДО9 �О9 О7xН НЎ�НKО5яН НЁ�Н@yО4)НО2┌НwО2┌НҐyН!5О2┌�О2┌Н"�wО2┌Н#iyН,О2┌�О2┌Н,вО2┌Н/ЦwН2⌠О2┌�О2┌О0зНП(yО/3НwНЇО/3�О/3О-▀НuО*<НСwНДО*<�О*<yНБО*<�О*<Н┴О*<Н wО*<Н AН%РН1Ц�Н3х�О(∙Н yНpО(∙�О(∙Н)О(∙НawО(∙Н"R�Н#ъО&МНН нyО%FНwО%FН▓yНО%F�О%FНИ�wО%FНIН1 �Н2w�yН3^О%F�О%FН4wН8ЪО%F�О%FО#·НН%ШyО!ВНwО!ВН▓yНО!В�О!ВНИ�wО!ВНIН1 �Н2w�yН3^О!В�О!ВН4wН8ЪО!В�О!ВО OНН%ШyО╗НwО╗Н▓yНО╗�О╗НИ�wО╗НIН1 �Н2w�yН3^О╗�О╗Н4wН8ЪО╗�О╗О�Н yОYНwОYН╛Н(┌�Н*g�yН+°ОY�ОYН,UОYН/aОYН1wО╠НвП=О НвНКyН/▌О �О Н0GО Н3SwН7eО �О ОbНН �Н Н+БО╩НвОНвП7ОlНвП@ОеН�ОНН0Н**�Н+Ї�ОvН'Н~О нН'Нs��H��TVm$M��3sMin:pageMap.sMin,fMin:pageMap.fMin,sSize:pageMap.sSize,fSize:pageMap.fSize,pointer:pageMap.refRep.pointer,rast:pageMap.refRep.rast,lines:pageMap.refRep.lines];PDInterpBitmap.Fill[bits,[-10000,-10000,20000,20000],1];PDTextBitmap.TextToBitmap[dest:bits,string:separator,function:[and,complement]];};ShowPage[];};ReprintLastPage:PUBLICPROC[copies:CARDINAL]={IFcurrentHerald.password#PDFileFormat.passwordValueTHENRETURN;currentHerald.copies_copies;ShowPage[];};viewerClass:ViewerClasses.ViewerClass_NEW[ViewerClasses.ViewerClassRec_[init:ViewerInit,paint:ViewerPaint,scroll:ViewerScroll,coordSys:bottom,icon:tool]];ViewerData:TYPE=REFViewerDataRep;ViewerDataRep:TYPE=RECORD[sShift:INTEGER_0,fShift:INTEGER_0,nextPage:BOOLEAN_FALSE];HScrollHit:Menus.ClickProc=TRUSTED{viewer:ViewerClasses.Viewer_NARROW[parent];data:ViewerData_NARROW[viewer.data];IFdata=NILTHENRETURN;data.fShift_data.fShift+(IFmouseButton=redTHEN-128ELSE128);IFmouseButton=yellowTHENdata.fShift_-pageMap.fMin;ViewerOps.PaintViewer[viewer,client];};PageHit:Menus.ClickProc=TRUSTED{viewer:ViewerClasses.Viewer_NARROW[parent];data:ViewerData_NARROW[viewer.data];IFdata=NILTHENRETURN;data.nextPage_TRUE;��qОg/НEи�wО_7Н'Н(О]░Н'НО[ХН'Н ОZ@Н'Н ОX≥Н'НiОVЯН'НAОUJН'НшОS╒Н'ОQШНН$еН)ПН.╦Н3Н7╦ОPSНН*╦Н-╠Н2 Н8KН>?ОN╛НХОMНОK]Н ОI╣НuОFfНСwНПОFf�ОFfyННОFf�ОFfН√ОFfН їwОFfН$NyН)YОFf�ОFfН*#wН/▐ОFf�ОFfН0w�Н2\�yОD©НwОD©Н╛Н#_�Н%DyН7╣ОD©�ОD©Н8nОD©Н;zwН@bОD©�ОD©ОCННИ�Н!uОApН О?хНО<yНСНЮН)^�yН*КО<y�О<yН+тwО<yН.+О:рНф�НS�О9*ННЧ О7┐ННО5шНН'О44ННZО2▄НН┌О0ЕНО-√НС yНВО-√�О-√Н╟wО-√Нi�yНNО-√�О-√Н"wО-√Н! О*FНС yНmО*F�О*FН&wО*FНч�yН цО*F�О*FН!≈wО*FН&6�О(÷НyН_О(÷�О(÷НиwО(÷Н$�Н╠О&ВНyНUО&В�О&ВНЎwО&ВН�НіО%PНyНZО%P�О%PНwО%PН�yН!О%P�О%PН!еwО#╗НuО YНС wН╚О Y�О YН╘Н#X�yН%=О Y�О YН%ЖwО YН++�О╡ННБН%R�yН&ъО╡�О╡Н'гwН,9О╡�О╡Н,°О НН┐ Н �yН О �О Н ┐wН$УО �О Н%XyОcНwОcН╛Н╠�yН√Оc�ОcН~ОcН%ОcНКwН$сОc�ОcО╩Н НЁ�Н@ Н!О�Н#т�yН$NО╩�О╩Н$Ї�wО╩Н%У Н.]�Н0ByН2ЇО╩�О╩Н3pwО╩Н6|yН9▀О╩�О╩Н:DwО╩Н<зyОНwОН╛ Н�НЫyН#RО�ОН$wОН' Н-ф�Н/S ОlНН&EОеНuОvНСwНГОv�ОvНЕН!■�yН#yОv�ОvН$2wОvН)g�ОнННБН%R�yН&ъОн�ОнН'гwН,9Он�ОнН,°О&НН┐ Н �yН О&�О&Н ┐wН$УО&�О&Н%XyОНwОН╛Н╠�yН√О�ОН~ОН%ОНКwН$сО�ОО вНН╧�yНFО в�О вНЪwН qО в�О в��█��TVm$▓��4};lfGraphicsData:CGContext.Ref=NARROW[Graphics.NewContext[].data];ViewerInit:ViewerClasses.InitProc=TRUSTED{viewerData:ViewerData_NEW[ViewerDataRep];menu:Menus.Menu_Menus.CreateMenu[1];Menus.InsertMenuEntry[menu,Menus.CreateEntry[name:"<<<-->>>",proc:HScrollHit]];Menus.InsertMenuEntry[menu,Menus.CreateEntry[name:"Page",proc:PageHit]];viewerData.sShift_0;viewerData.fShift_0;self.data_viewerData;self.menu_menu;};ViewerScroll:ViewerClasses.ScrollProc=TRUSTED{data:ViewerData_NARROW[self.data];IFdata=NILORop=queryTHENRETURN[0,100];IFop=thumbTHEN{data.sShift_-pageMap.sOrigin;RETURN[0,100]};IFamount=0THENRETURN[0,100];IFop=downTHENamount_-amount;data.sShift_data.sShift-amount;ViewerOps.PaintViewer[self,client];RETURN[0,100];};OnLFDisplay:PROC[graphics:Graphics.Context]RETURNS[BOOLEAN]={data:CGContext.Ref=NARROW[graphics.data];RETURN[data.device.Show=lfGraphicsData.device.Show]};GetViewerPixelMap:PROC[graphics:Graphics.Context]RETURNS[pixelMap:ImagerPixelMaps.PixelMap]={x,y,w,h:REAL;[x,y]_GraphicsOps.UserToDevice[graphics,0,0];IFGraphicsOps.UserToDevice[graphics,0,1].ty>yTHENERROR;[[xmax:w,ymax:h]]_Graphics.GetBounds[graphics];IFOnLFDisplay[graphics]THEN{sMin:INTEGER_Real.RoundLI[y]-Real.RoundLI[h];pixelMap_ImagerFrameBuffer.LFDisplay[];pixelMap_pixelMap.ShiftMap[-sMin,-Real.RoundLI[x]];pixelMap_pixelMap.Clip[[0,0,Real.RoundLI[h],Real.RoundLI[w]]];}ELSEpixelMap_ImagerPixelMaps.Create[0,[0,0,0,0]];};ViewerPaint:ViewerClasses.PaintProc=TRUSTED{data:ViewerData_NARROW[self.data];pixelMap:ImagerPixelMaps.PixelMap_GetViewerPixelMap[context];pixelMap.Transfer[pageMap.ShiftMap[data.sShift,data.fShift]];��qОg/НEи�wО_,НО[щНСН Н$Х�yН&мО[щ�О[щН'╣wН,'О[щ�О[щН,┼uОX▌НС wНОX▌�ОX▌НН&$�yН( ОX▌�ОX▌Н(бwОX▌Н-В�ОVФН Н╩ Н"F�yН#сОVФ�ОVФН$╩wН&▐ОVФ�ОVФН&РОU?НН_ Ня�Н!]ОS≈НН&GН6{ Н=мОQПНвОPIНН&GН6{Н;┘ОN║Нв ОLЗННВ�Н└ОKRННЛ�НyОI╚ННg�НТ ОHННC�НпОF\НuОC НСwН┬ОC �ОC Н┘Н(ш�yН*юОC �ОC Н+ywОC Н0ў�ОAeНН┐ Н �yН ОAe�ОAeН ┐wОAeН%yyО?ЎНwО?ЎН╛Н╠�yН√О?Ў�О?ЎН~О?ЎН%wО?ЎНZН a�Н"FyН&2О?Ў�О?ЎН&КО?ЎН)ВwО?ЎН/dН1TyО>НwО>Н╛Н╡�Н≈yН О>�О>НбwО>Н нН(9�Н)фyН5rО>�О>Н6FwО>Н:чН<нyО<oНwО<oН╛НЇ�Н°�yНяО<o�О<oН┼О<oН √wО<oН&Н'РyО:гНwО:гН╛Н╡�Н≈yНbО:г�О:гНwО:гН (Н%3�Н&юО9Н НЎ�НK Н"�Н#О7xНН$kyО5пНwО5пНqНaО4)НuО0зНС wНО0з�О0зyНЪО0з�О0зНіwО0зНі Н#ЯyН/GО0з�О0зН0wО0зН5R�yН5ІО0з�О0зН6owН;VО0з�О0зН<=�Н>"�О/2НН┐Н a�yН"FО/2�О/2Н#.wН'═О/2�О/2Н(yО-▀НwО-▀НqН#▐�Н%tО+ЦНuО(■НСwНО(■�О(■yН�О(■�О(■НїwО(■Н!ї Н'РyН3HО(■�О(■Н4wО(■Н9S О&МНфН#�Н$Э�О%EНН▒ННЬyНҐО%E�О%EН▒wНжО%E�О%EО#·ННТН▄�НП'yО!ЖНwО!ЖН╛П)Н/ �Н0?�yН1tО!Ж�О!ЖН2-О!ЖН59wН9KО!Ж�О!ЖО OННЬНрН�Н �Н!·yОїНwОїН╛yН#Ої�ОїН#иwОїН&у�О�НyНО��О�Н│wО�Нш�Н hОXНН?�НлО╠НН?�НлН-!О НН?�НлН'їН)4Н40ОbН�yО╨НwО╨НSН}�Н Н.■ ОНuОдНС wН/Од�ОдН-Н(*�yН*Од�ОдН*иwОдН/Щ�ОНН┐ Н �yН О�ОН ┐wОН%yОuННїН*∙�Н,"О мНП/Н1P ��O��TVm$ш��5};ViewerOps.RegisterViewerClass[$PDInterpOutputViewerClass,viewerClass];currentHerald.password_0;END.��qОg/НEи�wО_,НО[щНСП9Н7�ОX▐НСНї�Н!3yОU@НСwН{ОU@�ОU@��f��TVm$�+��PDInterpPage.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September20,19848:57:18amPDTDIRECTORYPDInterpReader,PDQueue;PDInterpPage:DEFINITIONS=BEGINInterpretPage:PROC[handle:PDInterpReader.Handle,request:PDQueue.Request,abort:LONGPOINTERTOBOOLEAN]RETURNS[ok:BOOLEAN];Interpretsonepage(maybemultiplepasses),andshipsitout.MayraisePDInterpReader.WarningorPDInterpReader.ErrororPDInterpOutput.ErrororPDInterpInput.AbortDoesnotcallPDInterpInput.ReportStatus.ReturnsFALSEupondocumentend.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WyОX²НБwОX²НKН!uОUNНБwН]ОUN�ОUNyН[ОUN�ОUNНA wОUNН {�yН"`ОUN�ОUNН#uОQЪНБwНОQЪ�ОQЪyНОQЪ�ОQЪН╚wОQЪН╙Н!Н0}Н5кОPXН╣yНмОPX�ОPXН├ОPXНЎОPXН_ОPXНywН%ОPX�ОPXyН&�ОPX�ОPXН&тwОPXН,yН.ЦОPX�ОPXН/²wН4└ОPX�ОPXН4Г�xОN╠НС Н$Н╡НЦН LН"Н'WН,6Н.ыН27Н3▌ОM НСН"Н]Н'Н(еН6~ОKbНфН┘Н!>ОI╩НСН[НЎНTОHНСНН%Н┘Н$╒yОDеНБwНiОDе�ОDеЪ��Щ��TVm$�Ж��PDInterpPageImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September20,19849:16:18amPDTLastEditedby:Pier,November30,19836:37pmDIRECTORYEnvironment,Inline,PDFileFormat,PDInterpReader,PDInterpOutput,PDInterpPage,PDInterpBitmap,PDInterpSysCalls,Heap,PDQueue;PDInterpPageImpl:PROGRAMIMPORTSInline,PDInterpReader,PDInterpOutput,PDInterpBitmap,PDInterpSysCalls,HeapEXPORTSPDInterpPage=BEGINCommandBuffer:TYPE=PDInterpReader.CommandBuffer;bitsPerWord:NAT=Environment.bitsPerWord;heapZone:UNCOUNTEDZONE=Heap.systemZone;totalAllocates,totalFrees:INT_0;availCount:NAT;--countofthenumberofleftoverrecordsonthefreelistLeftoverlisttypesLeftoverRef:TYPE=LONGPOINTERTOLeftover;Leftover:TYPE=RECORD[link:LeftoverRef_NIL,commandBuffer:CommandBuffer,colorType:PDInterpReader.ColorType,colorTileLoadAddress:INT_-1,priority:INT];InterpretPage:PUBLICPROC[handle:PDInterpReader.Handle,request:PDQueue.Request,abort:LONGPOINTERTOBOOLEAN]RETURNS[ok:BOOLEAN]={readHead,writeHead,availHead,writeTail:LeftoverRef_NIL;--headsandtailofleftoverlistscurrentColorType:PDInterpReader.ColorType;currentColorTileLoadAddress:INT_-1;currentPriority:INT_-1;leftovers:BOOLEAN;--can'tbefilledinuntilStartImagehashappenedcommandBuffer:CommandBuffer;band:PDInterpBitmap.BitmapDesc;bandMaxS:INT;cachedColorTile:PDInterpBitmap.Tile;cachedColorReference:INT_-1;GetColorTile:PROC={IFcurrentColorTileLoadAddress#cachedColorReferenceTHEN{cachedColorTile_PDInterpReader.ColorTileFromLoad[handle,cachedColorReference_currentColorTileLoadAddress,scratchPointer,scratchWords];};};��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WОZ5НБНЧНEН≤НчН"BН$Н'еН*тyОVФНБwОVФНKНТН#MН,сОU?Н╣НrН#ЇН.~Н9ъОS≤Н╣ОPIНБyН ОPI�ОPIНгОN║НСwОN║НёНЩН%╧Н0vОLЗНфН'yОKRНСwОKRН╣ОI╚НБ�yНгОI╚�ОI╚Н─wОF\НБ yНЙОF\�ОF\НёwОF\Н\�НAОDЄНБyН_ОDЄ�ОDЄНHwОDЄНY�Н>ОC НБyНгОC �ОC НґОC НГwН!ОC �ОC Н"ОAeНБНц yН²ОAe�ОAeНwОAeН!,�Н"╧О?ЎНБ yНWО?Ў�О?ЎН?wНлО?Ў�О?ЎxНиО?Ў�О?ЎНCНwН Н"fН'LН(ОН-╩Н2bН4VН6╒Н9OО<oНБН>Н}wО:гНБyНО:г�О:гНкwО:гН┐�yНiО:г�О:гН"О:гН YО:гН%ЗwО:гН(О9НБyНЙО9�О9НёwО9Н\�yНAО9�О9НwО9НЁ�О7xНСН9 НП�yН|О7x�О7xНewН┬О7x�О7xО5пНС Н≤ О4)НС ННО2│НСyН≥О2│�О2│Н wО2│Н")�Н#ІО0зНСyНaО0з�О0зНкwО/2НСuО+ЦНБwНО+Ц�О+ЦyНО+Ц�О+ЦН╚О+ЦН╪wО+ЦН cН%фН55О*<Н╣Н⌡yНЁО*<�О*<Н lО*<Н#єО*<Н)EО*<Н+_wН0ЪО*<�О*<yН1ФО*<�О*<Н2╨wО*<Н7РyН:иО*<�О*<Н;┌wН@iО*<�О*<О(∙Н╣�Н �О&МНСН≤ Н÷ Н%o Н+╧ Н3o�yН4ЭО&М�О&МН5ЕwН7О&М�О&МxН8О&М�О&МН8Н<╧Н?]О%FНфНiН5wО#·НСН√О!ВНСyН#ҐО!В�О!ВН$&wО!ВН&L�Н'ыО OНСyН╠О O�О OНwО OНA�НнО╗НС yНШО╗�О╗НЄwН⌡О╗�О╗xН≥О╗�О╗НН!БН#╡Н'Н(©Н+У Н3Н5█wО�НС Н≤ ОYНСНКО╠НСyН]О╠�О╠НгwНiО╠�О╠О НСНўОbНСyНYОb�ОbНцwОbН!И�Н#vuО╨НСwНжО╨�О╨yНтО╨�О╨Н{wО╨Н{�Н`�yОНwОН╛Н&Э�Н(АyН6мО�ОН7├wОН:⌠�ОkННW�Н ДП(ОдНХН#у�Н%bН8 ОНХ ОuНО нНЪ��TVm$Ю��2TransferRectangle:PROC[rectangle:PDInterpBitmap.Rectangle]={SELECTcurrentColorTypeFROMnone=>ERROR;clear=>PDInterpBitmap.Fill[band,rectangle,0];ink=>PDInterpBitmap.Fill[band,rectangle,1];opaqueTile=>{GetColorTile[];PDInterpBitmap.TransferTile[band.Clip[rectangle],cachedColorTile];};transparentTile=>{GetColorTile[];PDInterpBitmap.TransferTile[band.Clip[rectangle],cachedColorTile,[or,null]];};ENDCASE=>ERROR;};DoLine:PROCEDURE[sMin,fMin,fSize:CARDINAL]={SELECTcurrentColorTypeFROMnone=>ERROR;clear=>PDInterpBitmap.Fill[band,[sMin:sMin,fMin:fMin,sSize:1,fSize:fSize],0];opaqueTile,ink=>PDInterpBitmap.Fill[band,[sMin:sMin,fMin:fMin,sSize:1,fSize:fSize],1];transparentTile=>PDInterpBitmap.TransferTile[band.Clip[[sMin:sMin,fMin:fMin,sSize:1,fSize:fSize]],cachedColorTile,[or,null]];ENDCASE=>ERROR;};TempColor:PROC[rectangle:PDInterpBitmap.Rectangle]={SELECTcurrentColorTypeFROMnone=>ERROR;clear=>NULL;ink=>NULL;opaqueTile=>{GetColorTile[];PDInterpBitmap.TransferTile[band.Clip[rectangle],cachedColorTile,[xor,complement]];};transparentTile=>GetColorTile[];ENDCASE=>ERROR;};AddLeftover:PROC={IFavailCount=0THEN{totalAllocates_totalAllocates+1;IFwriteHead=NILTHENwriteHead_writeTail_heapZone.NEW[Leftover_[link:NIL,commandBuffer:commandBuffer,colorType:currentColorType,colorTileLoadAddress:currentColorTileLoadAddress,priority:currentPriority]]ELSE{writeTail.link_heapZone.NEW[Leftover_[link:NIL,commandBuffer:commandBuffer,colorType:currentColorType,colorTileLoadAddress:currentColorTileLoadAddress,priority:��qОg/НEи�uО_,НСwНДО_,�О_,yНБО_,�О_,Н┴wО_,Н ┴ Н'BН8I�Н:.�yО]┘НwО]┘НвyН#О]┘�О]┘Н#╨wО[щНН┬yНО[щ�О[щНжwН/О[щ�О[щОZ5ННgНЭН+┴ Н1ЎОX▌НННН*║ Н0жОVФН НHНч�ОU?Н'ОS≈Н'П1Н5ЖОQПН'ОPHНН°Н!1�ОN║Н'ОLЫН'П1Н5ЖОKRНЗНyОI╙Н'yОHНwОHНyНґОH�ОHНfwН!©ОH�ОHОF[НuОDЄНСwНmОDЄ�ОDЄyНkОDЄ�ОDЄНwОDЄН#yН)ОDЄ�ОDЄН)ъwН/KОDЄ�ОDЄН03�Н2�yОCНwОCНвyН#ОC�ОCН#╨wОAeНН┬yНОAe�ОAeНжwН/ОAe�ОAeО?ҐННgНЭН+┴Н/НН3нН7еН; Н?├О>НХНиНЛО<oН Н═Н Н!÷Н2,Н6░Н:qО:гНХНЎН╘Н6Н#Н':О9 НН°О7xН'П,Н3бН7ёН;≥О5яНЗНЕНrН!SН%ыН0sН2РyО4)НwО4)НyНґО4)�О4)НfwН!©О4)�О4)О2┌НuО0зНСwН║О0з�О0зyН÷О0з�О0зНGwО0зНF Н"ЪН4�Н5К�yО/3НwО/3НвyН#О/3�О/3Н#╨wО-▀НН┬yНО-▀�О-▀НжwН/О-▀�О-▀О+ДННgyНЭО+Д�О+ДНЕwН=О+Д�О+ДО*<ННyНО*<�О*<НЩwНUО*<�О*<О(∙Н НHНч�О&МН'О%FН'П1Н5ЖО#·НЗН)О!ВН'О OНН°Н!1yО╗НwО╗НyНґО╗�О╗НfwН!©О╗�О╗О�НuОYНС wН;ОY�ОYyН9ОY�ОYНЮwОYНЮ�Не�yО╠НwО╠Н╛yН╦О╠�О╠НqwО╠Н!}�О НyОbНwОbНҐ yНIОb�ОbН1ОbН ьwОbН$·yН8fОb�ОbН9NwН;!Оb�ОbН;┘О╩НХyН О╩�О╩Н┌wН╔О╩�О╩Н┌ Н(' Н2╚ ОНХН!jОlНХН(▒Н-ЪyОеНwОеНd�ОН'yН&[О�ОН'CwН)О�ОН)zН/yН3╨О�ОН4╒wН5еО�ОН6╒ ОvНЗ Н"~ Н)xО нНЗН&Н8ц��Ц��TVm$╡��3currentPriority]];writeTail_writeTail.link;};}ELSE{availCount_availCount-1;--moveanodefromavailListtowriteListIFwriteHead=NILTHEN{writeHead_writeTail_availHead;availHead_availHead.link;}ELSE{writeTail.link_availHead;writeTail_availHead;availHead_availHead.link;};writeTail^_[link:NIL,commandBuffer:commandBuffer,colorType:currentColorType,colorTileLoadAddress:currentColorTileLoadAddress,priority:currentPriority];};};FreeList:PROC[head:LeftoverRef]={--thisprocoutheresotheUNWINDcancallittempHead:LeftoverRef;UNTILhead=NILDOtempHead_head^.link;heapZone.FREE[@head];totalFrees_totalFrees+1;head_tempHead;ENDLOOP;};CheckAbort:PROC={IFabort^THENERRORABORTED};availCount_0;DOENABLEUNWIND=>{FreeList[readHead];FreeList[writeHead];FreeList[availHead];availCount_0;};IFreadHead#NILANDreadHead.priority<handle.priorityTHEN{tempHead:LeftoverRef_readHead;commandBuffer_readHead.commandBuffer;currentColorTileLoadAddress_readHead.colorTileLoadAddress;currentColorType_readHead.colorType;currentPriority_readHead.priority;nowmovethisrecordfromreadListtoavailListreadHead_readHead.link;tempHead.link_availHead;availHead_tempHead;availCount_availCount+1;}ELSE{commandBuffer_PDInterpReader.Get[handle];currentColorTileLoadAddress_handle.colorTileLoadAddress;currentColorType_handle.colorType;currentPriority_handle.priority;};WITHcommandBufferSELECTFROM��qОg/НEи�wО_,НЗО]└Н'О[щН'ОZ5Н�yОX▌НwОX▌НS�ОVФНxН%3ОVФ�ОVФН%ґН)і�Н*шН.Н1WН6ХН8█yОU>НwОU>НҐ yНIОU>�ОU>Н1ОU>Н ьwОU>Н$·ОS≈НХyОQПНwОQПНd�ОPHН'Н'ОN║НЗОLЫН'ОKQНyНдОKQ�ОKQН ╛wН!оОKQ�ОKQН"╛ Н-Q Н7у ОI╙НХН!jОHНХН(▒Н-ЪОF[НОDЄНuОCНСwНРОC�ОCyНПОC�ОCН≈wНОC�ОCНvНLН&f�Н(K�xН)─ОC�ОCН)ЫН-Н0Н2qН5lН7%Н9qОAeНфНTНЙwО?ҐНН9yО>НwО>Н3yНlО>�О>НUО>НЭwО<nНО:фНyНUО:ф�О:фНwНTО:ф�О:фНЇО9НО7wН yО5оНwНЇО5о�О5оО4(НuО2─НС wНО2─�О2─yНО2─�О2─Н╘wО2─Н╘�Н▌�yН?О2─�О2─Н╗�wО2─Н ФyН%5О2─�О2─Н%НО2─Н(ШО2─Н-░wН3%О2─�О2─Н3ж�О0ыНСyО/1НСО-┼НО-┼Н)wО-┼НнН cН-■О+БНвО*;НyО(⌠НwО(⌠Н╛yНтО(⌠�О(⌠НҐО(⌠НdwО(⌠Н!┼П!yН6О(⌠�О(⌠Н6рwО(⌠Н9ч�О&КННJ Н$��Н%█О%DННA�Н!SО#°НП:О!УНП$О MНП"xО╔ННПНqН Н"-Н%jН*╧Н,^wОЧНОVНО╞НОНО_Н�yО╦НwО╦НS�ОННA�Н!SОiНП8ОаНП"ОНОrНyО йНwО йН╛yН ьО й�О йН!wО йН%╚Ъ��;��TVm$��4stateChange:CommandBuffer.stateChange=>{SELECTstateChange.whatChangedFROMimageStart=>{band_PDInterpOutput.StartImage[handle.herald,handle.image,request];bandMaxS_band.sOrigin+band.sMin+band.sSize;leftovers_handle.image.leftOverMode;IFhandle.image.nBands=0THEN{PDInterpOutput.EndImage[request]};};imageEnd=>{[]_PDInterpOutput.EndBand[];IFreadHead#NILTHENERROR;--DEBUGGINGCHECK!!readHead_writeHead;writeHead_NIL;PDInterpOutput.EndImage[request];FreeList[readHead];--fromthisimageFreeList[writeHead];--fromthisimageFreeList[availHead];availCount_0;RETURN[TRUE];};priorityChange=>NULL;colorChange=>NULL;bandChange=>{CheckAbort[];band_PDInterpOutput.EndBand[];bandMaxS_band.sOrigin+band.sMin+band.sSize;IFreadHead#NILTHENERROR;--DEBUGGINGCHECK!!readHead_writeHead;writeHead_NIL;};loadChange=>NULL;documentEnd=>RETURN[FALSE];ENDCASE=>ERROR;};maskRectangle:CommandBuffer.maskRectangle=>{TransferRectangle[[maskRectangle.sMin,maskRectangle.fMin,maskRectangle.sSize,maskRectangle.fSize]];IFleftoversANDmaskRectangle.sMin+maskRectangle.sSize>bandMaxSTHENAddLeftover[];};maskTrapezoid:CommandBuffer.maskTrapezoid=>{EdgeBlock:TYPE=RECORD[fPos,fIncr:Environment.LongNumber];MakeEdge:PROC[fMinLast,fMin,sSize:CARDINAL]RETURNS[edge:EdgeBlock]={edge.fPos.highbits_fMin;edge.fPos.lowbits_0;edge.fIncr.highbits_fMinLast-fMin;edge.fIncr.lowbits_0;��qОg/НEи�wО_,ННFН/`Н1У�yО]┘Н'wО]┘НЗyН,/О]┘�О]┘Н,ХwО[щН8 Н Н"╗�ОZ5НIНг�Н TП(ОX▌НН$шОVГНIН":�Н#гП"ОU?НIН ь�Н"eyОS≤НIwОS≤НПН*�Н+Ы�yН--ОS≤�ОS≤Н-ГwОQПНП"yН2ЙОQП�ОQПwОPIНIОN║Н8Н╧Н"O�ОLЗНIН■�Н yОKRНIwОKRНПyН$ОKR�ОKRН%ОKRН&╘ОKRН*nwН.─ОKR�ОKRxН/}ОKR�ОKRН/В Н9╘Н?NwОI╚НIОHНI yН"}ОH�ОHН#ewН$┬ОH�ОHОF\НIП!ОDЄНIxН'иОDЄ�ОDЄН(BН+ЫН.▓wОC НIxН(,ОC �ОC Н(іН,]Н.УwОAeНIО?ЎНIyО>НIwО>Н ╣�yН!О>�О>Н!рwН$DО>�О>Н$ї�О<oНIО:гН8 Н"ЁyН%HО:г�О:гН&1wН(┴О:г�О:гО9 Н8 Н!<yН#яО9 �О9 Н$╨wН'О9 �О9 О7xН8 Н!=Н#р�О5пНIО4)НIНг�Н TО2│НIП+yО0зНIwО0зНПyН$О0з�О0зН%О0зН&╘О0зН*nwН.─О0з�О0зxН/}О0з�О0зН/В Н9╘Н?NwО/2НIО-▀НI yН"}О-▀�О-▀Н#ewН$┬О-▀�О-▀О+ЦНIО*<Н8 Н нyН#cО*<�О*<Н$LwН&ёО*<�О*<О(■Н8 Н"yН$╞О(■�О(■Н%┐wО(■Н*�yН*О(■�О(■Н+8wН.О(■�О(■Н.─�yО&МН8wО&МН:yН!пО&М�О&МН"┴wН%АО&М�О&МО%EН'О#·Н НЪН2яН5f�О!ЖН'П&Н/МО OНЗН%yОїН'wОїНнyН]Ої�ОїН0wО�НЗП/yН9tО��О�Н:-wОYНЗ О╠Н'О Н НН3Н5ї�ОbН' yН┘Оb�ОbН>wОbН!Ж�yН#шОb�ОbН$╞wОbН)NН-О╩НЗuОН'wН├О�ОyН└О�ОН,wН!їО�ОН" Н(_Н,5yН0 О�ОН0КwН6WО�ОyН7?О�ОН8wОН=JОlНЗ НA�Н!&�ОдН8Н$v�Н&ОН8Н#Я�Н%~ОuН8Н$о�Н&\Н,Y�Н-WО нН8Н$н�Н&[Ъ��1��TVm$├��5IFsSize>1THENedge.fIncr.li_edge.fIncr.li/sSize;};fMinBox:CARDINAL_MIN[maskTrapezoid.fMin,maskTrapezoid.fMinLast];fMaxBox:CARDINAL_MAX[maskTrapezoid.fMin+maskTrapezoid.fSize,maskTrapezoid.fMinLast+maskTrapezoid.fSizeLast];fSizeBox:CARDINAL_fMaxBox-fMinBox;trapMaxS:CARDINAL_maskTrapezoid.sMin+maskTrapezoid.sSize;s:CARDINAL_maskTrapezoid.sMin;sMinBand:CARDINAL_MIN[band.sOrigin+band.sMin,maskTrapezoid.sMin+maskTrapezoid.sSize];sMaxBand:CARDINAL_MIN[bandMaxS,trapMaxS];calculateinitialedges:minEdge:EdgeBlock_MakeEdge[fMinLast:maskTrapezoid.fMinLast,fMin:maskTrapezoid.fMin,sSize:maskTrapezoid.sSize];maxEdge:EdgeBlock_MakeEdge[fMinLast:maskTrapezoid.fMinLast+maskTrapezoid.fSizeLast,fMin:maskTrapezoid.fMin+maskTrapezoid.fSize,sSize:maskTrapezoid.sSize];TempColor[[sMin:maskTrapezoid.sMin,fMin:fMinBox,sSize:maskTrapezoid.sSize,fSize:fSizeBox]];WHILEs<sMinBandDOminEdge.fPos.lc_minEdge.fPos.lc+minEdge.fIncr.li;maxEdge.fPos.lc_maxEdge.fPos.lc+maxEdge.fIncr.li;s_s+1;ENDLOOP;WHILEs<sMaxBandDODoLine[sMin:s,fMin:minEdge.fPos.highbits,fSize:maxEdge.fPos.highbits-minEdge.fPos.highbits];minEdge.fPos.lc_minEdge.fPos.lc+minEdge.fIncr.li;maxEdge.fPos.lc_maxEdge.fPos.lc+maxEdge.fIncr.li;s_s+1;ENDLOOP;TempColor[[sMin:maskTrapezoid.sMin,fMin:fMinBox,sSize:maskTrapezoid.sSize,fSize:fSizeBox]];IFleftoversANDtrapMaxS>bandMaxSTHENAddLeftover[];};maskRunGroup:CommandBuffer.maskRunGroup=>{s:CARDINAL_maskRunGroup.sMin;sMinBand:CARDINAL_MIN[band.sOrigin+band.sMin,maskRunGroup.sMin+maskRunGroup.sSize];sMaxBand:CARDINAL_MIN[band.sOrigin+band.sMin+band.sSize,maskRunGroup.sMin+maskRunGroup.sSize];run:LONGPOINTERTOPDFileFormat.Run_maskRunGroup.pointer;TempColor[[maskRunGroup.sMin,maskRunGroup.fMin,maskRunGroup.sSize,maskRunGroup.fSize]];WHILEs<sMinBandDOIFrun.lastRunTHENs_s+1;run_run+SIZE[PDFileFormat.Run];��qОg/НEи�yО_,Н8wО_,НъНQ�Н├�yН ╩О_,�О_,Н!twО_,Н$─Н,�Н-╛О]┘Н8О[щН'yНpО[щ�О[щН;wН#їО[щ�yО[щН$╟wН'О[щ�О[щН'wОZ6НЗОX▌Н'yОVГНЗwН0ОVГ�yОVГН9wН!РОVГ�ОVГН"UП'ОU?НЗП0ОS≤Н'yН[ОS≤�ОS≤Н%wН#▒ОS≤�ОS≤Н$ ОQПН'yНЖОQП�ОQПНаwОQПН$╡�Н&>П'ОPIН'yН╘ОPI�ОPIНtwОPIНd�Н ЯОN║Н'yНCОN║�ОN║НwОN║Н$Ч�yН&▀ОN║�ОN║Н'°wН(ООN║�ОN║Н)RОLЗНЗП(ОKSН'yНoОKS�ОKSН:wОKSН%*�yН&ЇОKS�ОKSН'хwН)ОKS�ОKSН)~Н0г xОI╚Н'НпН ©wОHН'Н|Н$a�Н%НОF\НЗН'╡Н+╘Н8БОD╣НЗОC Н'Н╗Н$█�Н&ОAfНЗП/Н7зО?©НЗП'Н2зО>НЗО<pН'Н"хН0Н4Н:+О:хНЗН%(Н) yО9!Н'wО9!Н┬�Н░�НеyН$gО9!�О9!Н%M�wО7yН8Н#K�Н$ьН.Л�Н0яО5рН8Н#w�Н%Н/D�Н1)О4*Н8�Н@�Нм�Нж�Н╩yО2┐Н8wНыО2┐�О2┐yО0шН'wО0шН┬�Н░�НеyН$■О0ш�О0шН%y�wО/4Н8Н".Н#▌Н'┘Н5╠О-█НП-О+ЕН8Н#K�Н$ьН.Л�Н0яО*=Н8Н#w�Н%Н/D�Н1)О(√Н8�Н@�Нм�Нж�Н╩yО&НН8wНыО&Н�О&НО%GН'Н"хН0Н4Н:+О#═НЗН%(Н) yО!ЬН'wО!ЬНнyН]О!Ь�О!ЬН0wО!ЬН!┐yН.ЖО!Ь�О!ЬН/╞wО!ЬН2╪ О QН'О╘НН╟Н43Н6х�ОН'yН╘О�ОНtwОНd�Н ЯОZН'yНCОZ�ОZНwОZН$Ч�yН&▀ОZ�ОZН'°wН(ООZ�ОZН)RОЁНЗП&ОН'yНoО�ОН:wОН%*�yН&ЇО�ОН'хwН)О�ОН)~П"ОdНЗП&О╪Н'yН6О╪�О╪НОО╪Н'О╪Н#хwО╪Н%БН1Щ�ОНЗОmН'Н,⌡ОфНЗН%╦yОН'wОН┬�Н░�НеyН$gО�ОН%M�ОwН8wОwНъ yН"_Оw�ОwН#wОwН&$�Н'-�Н(╨�Н)б�Н+їО пН8Нн�Н[НЯ�yН!жО п�О пН"uwН$QО п�О пН$╣��TVm$╪��6ENDLOOP;WHILEs<sMaxBandDOIFrun.fMin+run.fSize>maskRunGroup.fSizeTHENERROR;DoLine[sMin:s,fMin:run.fMin+maskRunGroup.fOffset,fSize:run.fSize];IFrun.lastRunTHENs_s+1;run_run+SIZE[PDFileFormat.Run];ENDLOOP;TempColor[[maskRunGroup.sMin,maskRunGroup.fMin,maskRunGroup.sSize,maskRunGroup.fSize]];IFleftoversANDmaskRunGroup.loadAddress>=0ANDmaskRunGroup.sMin+maskRunGroup.sSize>bandMaxSTHEN{maskRunGroup.sSize_maskRunGroup.sSize-(s-maskRunGroup.sMin);maskRunGroup.sMin_s;maskRunGroup.runCount_-1;--unused,eventuallyeliminatefromDEFmaskRunGroup.pointer_run;AddLeftover[];};};maskSamples:CommandBuffer.maskSamples=>{rectangle:PDInterpBitmap.Rectangle_PDInterpBitmap.Window[maskSamples.samples];TempColor[rectangle];SELECTcurrentColorTypeFROMnone=>ERROR;clear=>PDInterpBitmap.Transfer[band,maskSamples.samples,[and,complement]];opaqueTile,ink=>PDInterpBitmap.Transfer[band,maskSamples.samples,[or,null]];transparentTile=>{bounds:PDInterpBitmap.Rectangle_PDInterpBitmap.Intersect[rectangle,PDInterpBitmap.Window[band]];scratchWords:INT_Inline.LongMult[bounds.sSize,(bounds.fSize+bitsPerWord-1)/bitsPerWord];buffer:LONGPOINTER_PDInterpSysCalls.AllocateSpace[scratchWords];destDesc:PDInterpBitmap.BitmapDesc_PDInterpBitmap.Reshape[pointer:buffer,words:scratchWords,bounds:bounds];GetColorTile[];PDInterpBitmap.TransferTile[dest:destDesc,tile:cachedColorTile];PDInterpBitmap.Transfer[destDesc,maskSamples.samples,[and,null]];PDInterpBitmap.Transfer[band,destDesc,[or,null]];PDInterpSysCalls.FreeSpace[buffer];};ENDCASE=>ERROR;TempColor[rectangle];IFleftoversANDmaskSamples.loadAddress>=0ANDmaskSamples.samples.sOrigin+maskSamples.samples.sMin+maskSamples.samples.sSize��qОg/НEи�yО_eН8wНыО_e�О_eyО]ЎН'wО]ЎН┬�Н░�НеyН$■О]Ў�О]ЎН%y�О\Н8wО\НъН's�Н(╗yН6О\�О\Н6╪О\Н9хwН=зО\�О\ОZnН8Н".Н#▌Н'┘Н=1ОXгН yОW Н8wОW Нъ yН"_ОW �ОW Н#wОW Н&$�Н'-�Н(╨�Н)б�Н+їОUxН8Нн�Н[НЯ�yН!жОUx�ОUxН"uwН$QОUx�ОUxН$╣yОSпН8wНыОSп�ОSпОR)Н'Н,⌡ОP│НЗН%╦yОNзН'wОNзНнyН]ОNз�ОNзН0wОNзН!┐yН6ОNз�ОNзН6ЦwОM2НЗП-yН:жОM2�ОM2Н;▐wОM2Н>⌡�ОK▀Н8П<ОIЦН8ОH<Н8Н)w�Н+xН-,ОH<�ОH<Н-╔Н3 Н9_ОF■ННHwОDМН8ОCEН8 ОA·Н8О?ЖН'О>NННН0КН3─�О<їН' Н}Н. �О;�НЗП+О9XН'yО7╟Н'wО7╟НЗyН'#О7╟�О7╟Н'эwО6 Н8Н╙yН@О6 �О6 НЫwН#QО6 �О6 О4aН8Н┴НН2 О2╨НН}О1Н8 Н цН#,Н%аО/kНН'ъН*^О-цН8Н"ЎН%T�О,НIН ╒Н1E�О*tНП#О(мНО'&НIyН$LО'&�О'&Н$ІwО'&Н&э�Н(iО%~НП*О#вНIyНЯО#в�О#вН ╙О#вН#БwО"/НП.О ┬НIПBОЮНН ёН%)Н.Н3cО9НIО▒НIП!Н0·Н6ҐОЙНОBНIП!Н1 О⌡НН▐ОСНIН.дН4ДН7cОLНIП#ОєНIyОЩН8wОЩН:yН!пОЩ�ОЩН"┴wН%АОЩ�ОЩОUН'yОґН'wОґНнyН]Оґ�ОґН0wОґН!┐yН4lОґ�ОґН5@wОНЗПNЪ��v��TVm$��7>bandMaxSTHENAddLeftover[];};colorSamples:CommandBuffer.colorSamples=>{PDInterpBitmap.Transfer[band,colorSamples.samples];};deviceCommand:CommandBuffer.deviceCommand=>{};ENDCASE=>NULL;ENDLOOP;};scratchPages:INT=4;scratchWords:INT_scratchPages*Environment.wordsPerPage;scratchPointer:LONGPOINTER_PDInterpSysCalls.AllocateSpace[scratchWords];END.��qОg/НEи�wО_,НЗ�Н.yН О_,�О_,Н ьwО_,Н#Е О]┘Н'О[щННЖН0©Н3U�ОZ6Н'Н*╒ОX▐Н'ОVГН Н Н4ЫН7▌�ОU@Н'yОS≥НwОS≥НyНґОS≥�ОS≥Н√wН НОS≥�ОS≥yОQЯНwН╔ОQЯ�ОQЯОPJНСОLШНБyНJОLШ�ОLШНЄwОLШНз�Н©ОKTНБyНЕОKT�ОKTНOwОKTНu�НП&ОIґНБyНHОIґ�ОIґНОIґН9wОIґН!з�Н#gП-yОF^НБwНiОF^�ОF^Ъ��Y��TVm$�╗��PDInterpReader.mesaCopyright(C)1983,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19849:51:32amPDTLastEditedby:Pier,November22,19832:44pmDIRECTORYPDInterpBasic,PDFileFormat,PDInterpBitmap,Stream;PDInterpReader:DEFINITIONS=BEGINHandledefinitionHandle:TYPE=LONGPOINTERTORep;Rep:TYPE=RECORD[stream:Stream.Handle,herald:PDFileFormat.Herald,image:PDFileFormat.StartImage,bandNumber:CARDINAL,sMinBand:CARDINAL,sSizeBand:CARDINAL,colorType:ColorType,colorTileLoadAddress:INT,priority:INT,loadWords:INT,private:LONGPOINTERTOPrivateRep,index:INT,page:INT,pass:INT,status:PDInterpBasic.Status,warningCount:INT];ColorType:TYPE={none,clear,ink,opaqueTile,transparentTile};PrivateRep:TYPE;ColorTileaccess:ColorTileFromLoad:PROC[handle:Handle,colorTileLoadAddress:INT,scratchPointer:LONGPOINTER_NIL,scratchWords:INT_0]RETURNS[PDInterpBitmap.Tile];ErrorsandSignalsError:ERROR[handle:Handle,code:PDInterpBasic.PDErrorCode,wordIndex,wordCount:INT];Warning:SIGNAL[handle:Handle,code:PDInterpBasic.PDWarningCode,wordIndex,wordCount:INT];FilecontrolOpen:PROC[stream:Stream.Handle]RETURNS[Handle];MayraisePDFileReader.ErrororPDFileReader.WarningAssumesthestreamispositionedatthestartofaPDfile.Close:PROC[handle:Handle]RETURNS[stream:Stream.Handle];DoesaNOTclosethestream.ReadingoperationsGet:PROC[handle:Handle]RETURNS[CommandBuffer];MayraisePDFileReader.ErrororPDFileReader.Warning��xО_:НБО]▓НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН(\Н*їОZCНСННVН╘НОН$SН&░Н)жН,ЕyОX°НБwОX°НK НяН)WН4uОUMНБ wН²ОUM�ОUMyН⌡ОUM�ОUMН│ wОUMН!╩�yН#═ОUM�ОUMН$YxОS╔НБНґ wОQЧНСyНLОQЧ�ОQЧНwОQЧНЎ�yНёОQЧ�ОQЧН\ОQЧН■ОQЧН%5wОQЧН'NОPVНСyНfОPV�ОPVНwОPVНь�yНҐОPV�ОPVН▒wОPVН/�ОN╞ННН ОMННбОK`НН┼ОI╦Н yН�ОI╦�ОI╦НкwН"7ОI╦�ОI╦ОHНyН ОH�ОHНКwН WОH�ОHОFiН yН ОFi�ОFiНуwН AОFi�ОFiОDаН НЪ ОCНyН!&ОC�ОCН!░wН#1ОC�ОCОArНyНrОAr�ОArНэwН~ОAr�ОArО?кН yНyО?к�О?кНБwН└О?к�О?кО>#НyНО>#�О>#НтО>#НО>#Н!╛wО>#Н#ф О<|НyНIО<|�О<|Н╡wНTО<|�О<|О:тНyНдО:т�О:тН.wНпО:т�О:тО9-НyНwО9-�О9-НАwН┐О9-�О9-О7┘ННUО5чНyНО5ч�О5чНИwО46НО0ГН yНbО0Г�О0ГНwО0ГНт�Н╧Н$3Н'щН*÷ Н2)О/?Н yН О/?�О/?НTwН┬О/?�О/?xО+ПНБН╛НyuО*IНСwНвО*I�О*IyНуО*I�О*IН|wО*IН!|Н&ъН,yН:9О*I�О*IН:╒wН<DО*I�О*IО(╒НфyН,О(╒�О(╒НЕО(╒НwО(╒Н$Ў�yН&KО(╒�О(╒Н'3wН(VО(╒�О(╒Н)3yН26О(╒�О(╒Н2÷wО(╒Н4е�Н6RyН7ЙО(╒�О(╒Н8ЎwО&ЗНфxО#╚НБННЎuО"НСwН#О"�О"yН О"�О"НзwО"НІНН$QН(Н:6 О \Нф yН}О \�О \НГwН┴О \�О \НЛ�uО╣НСwНО╣�О╣yНО╣�О╣Н╞wО╣Н�Н!dН&°Н*\О Нф Н yН фО �О Н!0wН"яО �О Н#4�xОЎНБНєuОНСwН$О�ОyН!О�ОНиwОНиН yН'ъО�ОН(ЁwОН-ЙxОoНН3НnН%лН'┘ОхНН│НмН+Н ≈ Н&ЯН(√Н*БН-ЪН/ё�Н0ьН3WuО НСwН9О �О yН7О �О НъwО НчНByН#└О �О Н$XwО Н)░Н.щxОyННН╞НН MО*НБН2 uО┌НСwН%О┌�О┌yН#О┌�О┌НкwО┌НйН.yН"qО┌�О┌Н#EwО┌Н(|xО шНН3НnН%лН'┘��^��TVm$4��2CommandBuffer:TYPE=RECORD[SELECTcmd:*FROMmaskRectangle=>[sMin,fMin,sSize,fSize:CARDINAL],maskTrapezoid=>[sMin,fMin,fMinLast,sSize,fSize,fSizeLast:CARDINAL],maskRunGroup=>[sMin,fMin,sSize,fSize:CARDINAL,fOffset:CARDINAL,--addthistofMinofeachrunrunCount:INT,--numberofrunspointer:LONGPOINTERTOPDFileFormat.Run,loadAddress:INT---1ifnotintheload],maskSamples=>[loadAddress:INT,---1ifnotintheloadsamples:PDInterpBitmap.BitmapDesc],colorSamples=>[samples:PDInterpBitmap.BitmapDesc],deviceCommand=>[deviceCommandPointer:LONGPOINTER,deviceCommandWords:CARDINAL],stateChange=>[whatChanged:WhatChanged,loadChangeStart,loadChangeLength:INT],ENDCASE];WhatChanged:TYPE={imageStart,imageEnd,priorityChange,colorChange,bandChange,loadChange,documentEnd};END.��qОg/НEи�wО^≈НБ yНЙО^≈�О^≈НёwО^≈Н\�yНAО^≈�О^≈Н wО^≈Н$Ё�yО\ОНСwО\ОНфНO�yН└О\О�О\ОН=wО[HННuН �ОY║ННЖНкН √yН$vОY║�ОY║Н%AwОWЫНОVRНН∙Н*�ОT╚ННЖНкН#!Н&КН*╚ yН1ОT╚�ОT╚Н1жwОSНОQ\НН%Н╩�ОO╣ННЖНкН √yН$vОO╣�ОO╣Н%AwН*ґОO╣�ОO╣ОN НyН+ОN �ОN НЖwН bОN �ОN xН!?ОN �ОN Н!╦�Н"ІН%KН'ДН)┴Н,РН.∙Н1╪wОLfНyНзОLf�ОLfНDwНФОLf�ОLfxНбОLf�ОLfН<�Н 9Н%Н&бwОJ©НyНXОJ©�ОJ©НОJ©НHОJ©Н#ИwОJ©Н&ОIНyНgОI�ОIНпxОIНЖН!mН#Н$rН&уН({Н*гwОGpНОEиН Н│Н�ОD!НyНgОD!�ОD!НпwНrОD!�ОD!xН OОD!�ОD!Н х�Н!фН#tН$йН'-Н(сН+wОBzНН╨О@сНО?+ННlН�О=└НН╨О;щНО:5НН┬Н �О8▌НyН$bО8▌�О8▌Н%О8▌Н(SwН-oО8▌�О8▌О6ГНyН#ЪО6Г�О6ГН$иwО5?НО3≤Н Н╪НQ�О1ЯНН9О0IННрyН,О0I�О0IН,└wО.╒НyО,ШНwО+SНСО)╛НСyНzО)╛�О)╛Н3wО)╛НЛ�Ня�О(Н Н7Н!Н*ДН3@ О&]Нв Не О$ІНyО!gНБwНiО!g�О!g��Х��TVm$в��PDInterpReaderImpl.mesaMichaelPlass,December2,19835:11pmLastEditedby:Pier,November22,19832:45pmLastEditedby:Lamming,December9,19831:27pmDIRECTORYEnvironment,Inline,PDInterpBasic,PDFileFormat,PDInterpBitmap,PDInterpReader,PDInterpSysCalls,Heap,Stream;PDInterpReaderImpl:PROGRAMIMPORTSInline,PDInterpBitmap,PDInterpSysCalls,Heap,StreamEXPORTSPDInterpReader=BEGINOPENPDInterpReader;bitsPerWord:NAT=Environment.bitsPerWord;zone:UNCOUNTEDZONE=Heap.systemZone;CheckHerald:PROC[herald:PDFileFormat.Herald]={status:PDInterpBasic.Status_nil;IFherald.maxLoadWord>200000THENstatus_unreasonableLoadSize;IFNOT(herald.copiesIN[1..1000])THENstatus_unreasonableNumberOfCopies;IFNOT(herald.imageSSizeIN[80..32767])ORNOT(herald.imageFSizeIN[80..32767])THENstatus_unreasonableImageSize;IFNOT(herald.bandSSizeIN[8..32767])THENstatus_unreasonableBandSSize;IFNOT(herald.sResolutionIN[10..10000])ORNOT(herald.fResolutionIN[10..10000])THENstatus_unreasonableResolution;IFherald.version#PDFileFormat.versionValueTHENstatus_wrongFormatVersion;IFherald.password#PDFileFormat.passwordValueTHENstatus_invalidPassword;IFstatus#nilTHENError[NIL,status,0,SIZE[PDFileFormat.Herald]];};AllocateSpace:PROC[handle:Handle]={private:Private_handle.private;bufferWords:INT_(Inline.LongMult[handle.herald.bandSSize,(handle.herald.imageFSize+bitsPerWord-1)/bitsPerWord]+100)*2;private.loadPointer_PDInterpSysCalls.AllocateSpace[handle.herald.maxLoadWord+bufferWords];private.loadWordsAllocated_handle.herald.maxLoadWord;private.bufferOriginPointer_private.loadPointer+private.loadWordsAllocated;private.bufferWordsAllocated_bufferWords;private.bufferWordCount_0;};Open:PUBLICPROC[stream:Stream.Handle]RETURNS[handle:Handle]={bytesTransferred:CARDINAL;why:Stream.CompletionCode;sst:Stream.SubSequenceType;��xО_,НБО]└НБН$ННRНъН#%Н&3О[щНБНЧНEН≤НчН"BН$Н'еН*тОZ5НБНЧНEН≤НН%dН&ЯН*7Н-EyОW╨НБwОVНСН°НЖ Н'|Н1ОTkНфН┌Н'ЦН+ЯuОQПНБwНIОQП�ОQПyНFОQП�ОQПННОPIНСwОPIНёНЩН%дН1%Н53yОN║НСwОN║Н╣ ОLЗНС�yНьОLЗ�ОLЗН▒ОLЗНwОLЗН╧ОI╚НСyНqОI╚�ОI╚НYwОI╚Нj�НOОHНСyН╡ОH�ОHН≤ОHНрwОHН ▌�Н"suОDЄНБ wНўОDЄ�ОDЄyН╛ОDЄ�ОDЄНSwОDЄНSН tН.u�Н0Z�ОC НСНCН"_�Н#ЛyОAeНСwОAeН Н -�Н!ayН&ОAe�ОAeН&аwОAeН)мН-є�Н/1yО?ЎНСО?ЎН wО?ЎН² yН\О?Ў�О?ЎНф�wО?ЎН 3 yН&О?Ў�О?ЎН&яwО>ННш�НhyО<oНСО<oН wО<oН²yН!kО<o�О<oН!у�wО<oН#ByО:гНСО:гН(wО:гН*yН"О:г�О:гН"┐�wО:гН#ПyН+5О:г�О:гН+НwО:гН.ШН2я�О9 НфyО7xНСО7xН wО7xН²yН щО7x�О7xН!G�wО7xН"Є yН)IО7x�О7xН*wО7xН-Н0Е�Н2ryО5яНСО5яН wО5яН²yН!╒О5я�О5яН"�wО5яН#yyО4)НСО4)Н(wО4)Н*yН"%О4)�О4)Н"▐�wО4)Н#ЭyН+AО4)�О4)Н+ЗwО4)Н/Н2щ�О2┌НфyО0зНСwО0зН Нz�Н_yН. О0з�О0зН/SwО0зН2_Н66�О/3НфyО-▀НСwО-▀Н Н╟�Н∙yН1О-▀�О-▀Н1ЎwО-▀Н4кН8╒�О+ДНфyО*=НСwО*=Н Нq�НVyНhО*=�О*=Н!wО*=Н-yН!юО*=�О*=Н"╗wН#кО*=�О*=Н$╗Н(вyН*dО*=�О*=Н+wН,ъО*=�О*=Н-BО(∙НСuО%FНБwНSО%F�О%FyНQО%F�О%FНЫwО%FНЬН!\Н&÷�Н(└�О#·НСН Н╠�Н=О!ВНСyН┤О!В�О!ВНЯwО!ВН�НєП)О PНфП=О╗НСНа�ОНфПFОYНСН"�Н#░О╡НСН!І�Н#CН/�О НфОcНСН##�Н$╟О╩НСН ў�Н";ОНСuОеНБwНОе�ОеyНОе�ОеН╦ОеНиwОеНpН Ґ yН*├Ое�ОеН+ZwОеН0▒Н5УН;8�Н=�ОНСyНЯО�ОН╩wН"'О�ООvНСНfО нНСНhЪ��Ц��TVm$С��2herald:PDFileFormat.Herald;heraldPtr:LONGPOINTER=@herald;[bytesTransferred,why,sst]_Stream.GetBlock[stream,[blockPointer:heraldPtr,startIndex:0,stopIndexPlusOne:Environment.bytesPerWord*SIZE[PDFileFormat.Herald]]];IFbytesTransferred<Environment.bytesPerWord*SIZE[PDFileFormat.Herald]THENError[NIL,unexpectedEOF,0,SIZE[PDFileFormat.Herald]];CheckHerald[herald];BEGINprivate:Private_zone.NEW[PrivateRep];handle_zone.NEW[Rep_[stream:stream,herald:herald,image:[0,FALSE,FALSE,FALSE,black,0,0,0,0],bandNumber:0,sMinBand:0,sSizeBand:0,colorType:none,colorTileLoadAddress:-1,priority:0,loadWords:0,private:private,index:0,page:0,pass:0,status:nil,warningCount:0]];handle.index_SIZE[PDFileFormat.Herald];handle.sSizeBand_herald.bandSSize;{ENABLEUNWIND=>{zone.FREE[@private];zone.FREE[@handle];};AllocateSpace[handle];};END;PDInterpSysCalls.SetDisplayLights[107];};Close:PUBLICPROC[handle:Handle]RETURNS[stream:Stream.Handle]={private:Private_handle.private;stream_handle.stream;IFprivate.loadPointer#NILTHENPDInterpSysCalls.FreeSpace[private.loadPointer];zone.FREE[@private];zone.FREE[@handle];PDInterpSysCalls.SetDisplayLights[109];};ColorTileFromLoad:PUBLICPROC[handle:Handle,colorTileLoadAddress:INT,��qОg/НEи�wО_,НСН╠О]┘НС yНvО]┘�О]┘Н/О]┘НfwО]┘Н!�Н"ЛО[щНСН3Н└Н!Ц�Н#pН2╪ Н;ї ОZ6Нф НЇНDОX▌НфyН# ОX▌�ОX▌Н#╛wН%┬ОX▌�ОX▌Н%КyОVГНСwОVГН Н�НSyН/ ОVГ�ОVГН09wН2ОVГ�ОVГН2xyОU?НфwОU?Н▀yНОU?�ОU?НwН*ОU?�ОU?Н Н&▀yН(ОU?�ОU?Н(ЇwН*⌠ОU?�ОU?Н*ЖОS≤НСyОQПНСwОPIНННб�НOyН!hОPI�ОPIН"PwН$$ОPI�ОPIН$┤ОN║НН▀�НyН1ОN║�ОN║НwНМОN║�ОN║НPН"J�Н#в�ОLЗННЪОKRННсОI╚НН⌡yН▀ОI╚�ОI╚НDwН)ОI╚�ОI╚yН ОI╚�ОI╚Н ©wН#єОI╚�ОI╚yН$─ОI╚�ОI╚Н%9wН(ОI╚�ОI╚Н(ШН,ЩН.┼Н0Н1єОHН НОF\НН1ОDЄН НОC Н НОAeНН#7О?ЎНН┐О>Н Н┼О<oНН,О:гННZО9 ННуО7xНН┬О5яННfО4)НН▒�О2┌НО0зНН)�yНІО0з�О0зНUwН1О0з�О0зН∙О/3ННК�НxО-▀Н�yН╣О-▀�О-▀НnО+ДНwО+ДН╨НP�О*<Н'yН@О*<�О*<НЫwН?О*<�О*<Н╒ О(∙Н'yН@О(∙�О(∙НЫwН?О(∙�О(∙Н╒О&МН'О%EНО#·НyО!ЖНwН▄О!Ж�О!ЖО OНСП'ОїНСuОXНБwН(ОX�ОXyН&ОX�ОXНмОXНчwОXН┘Н ИyН&,ОX�ОXН'�wОXН,7Н1└ Н;M�Н=2�О╠НСН Н╠�Н=О НСНc�НП yОbНСwОbН Нi�yН NОb�ОbН!6ОbН"чwО╨НфП0ОНСyНО�ОНеwНО�ОНo ОkНСyНОk�ОkНеwНОk�ОkНoОдНСП'ОНСuО мНБwНфО м�О мyНцО м�О мНkО мН |wО мН$#Н)├Н.ЎyН<ЮО м�О мН=JwН>КО м�О м��╛��TVm$|��3scratchPointer:LONGPOINTER,scratchWords:INT]RETURNS[PDInterpBitmap.Tile]={private:Private=handle.private;tile:LONGPOINTERTOPDFileFormat.Tile=private.loadPointer+colorTileLoadAddress;words:INT=Inline.LongMult[tile.sSize,(tile.fSize+(bitsPerWord-1))/bitsPerWord];bitmap:PDInterpBitmap.BitmapDesc_PDInterpBitmap.Reshape[tile+SIZE[PDFileFormat.Tile],words,[tile.sMin,tile.fMin,tile.sSize,tile.fSize]];RETURN[PDInterpBitmap.CreateTile[rectangle:[tile.sMin,tile.fMin,tile.sSize,tile.fSize],phase:tile.phase,rasterPointer:tile+SIZE[PDFileFormat.Tile],scratchPointer:scratchPointer,scratchWords:scratchWords]];};LongBlockTransfer:PROC[source:LONGPOINTER,count:INT,dest:LONGPOINTER]={WHILEcount>LAST[CARDINAL]DOInline.LongCOPY[source,LAST[CARDINAL],dest];source_source+LAST[CARDINAL];dest_dest+LAST[CARDINAL];count_count-LAST[CARDINAL];ENDLOOP;Inline.LongCOPY[source,count,dest];};Private:TYPE=LONGPOINTERTOPrivateRep;PrivateRep:PUBLICTYPE=RECORD[loadPointer:LONGPOINTER_NIL,loadWordsAllocated:INT_0,bufferOriginPointer:LONGPOINTER_NIL,bufferWordsAllocated:INT_0,bufferWordCount:INT_0];BlockDescription:TYPE=RECORD[pointer:LONGPOINTER,words:CARDINAL];ReadLocate:PROC[handle:Handle,words:INT]RETURNS[blockDescription:BlockDescription]={Thebufferstoragemaygetre-usedwiththenextReadLocateorReadBlock;private:Private_handle.private;bytesWanted:CARDINAL_Environment.bytesPerWord*MIN[words,private.bufferWordsAllocated];bytesTransferred:CARDINAL;why:Stream.CompletionCode;sst:Stream.SubSequenceType;[bytesTransferred,why,sst]_Stream.GetBlock[handle.stream,[blockPointer:��qОg/НEи�wО_,Н╣yНО_,�О_,НтО_,НwН"(О_,�О_,Н#yН,О_,�О_,Н,rwН.О_,�О_,yН.ШО_,�О_,Н/оwО]┘Н╣Н∙�Нz�О[щНСН Н╠�Н√ОZ6НСyНкОZ6�ОZ6Н└ОZ6Н╪ОZ6Н]wОZ6НwН+N�Н-4Н9�ОX▌НфОVГНСyНyОVГ�ОVГНЦwОVГН �ННОU?НфП*ОS≤НСН Н)"ОQПННc�yНHОQП�ОQПНГwНцОQП�ОQПН'ОPIНОN║Н Нz Н│ Н%~ ОLЗНyОKRНСwОKRН`ОI╚Н НZ Нп Н%в Н+тОHНН_ ОF\Н Н≤НЖ�yНэОF\�ОF\Н {wН"WОF\�ОF\Н"╨ОDЄННkОC ННОAeНО?ЎНСuО<oНБwНmО<o�О<oyНkО<o�О<oНwО<oНyН$>О<o�О<oН$ВО<oН(.wН-KО<o�О<oН.'yН2xО<o�О<oН2АwН4┐О<o�О<oН5`yН8ҐО<o�О<oН9vО:гН╣wНрО:г�О:гН╧�Н·�yО9 НСwО9 НTН+�yН`О9 �О9 НwНDО9 �yО9 Н╗wН#чО9 �О9 yН$фО9 �О9 Н%╛�wО7xНyН"ИО7x�О7xН#╒wН%мО7x�yО7xН&1wН,gО7x�О7xН,к�Н-їО5яННT�НАН0�yНО5я�О5яНнwН!ЗО5я�yО5яН"]wН(■О5я�О5яН(В�О4)ННХ�НuНY�yН>О4)�О4)НВwН#О4)�yО4)Н├wН%ҐО4)�О4)Н& �О2┌ННш�НhН?�yН=О2┌�О2┌НЖwН !О2┌�yО2┌Н └wН&╩О2┌�О2┌Н'�yО0зНwН╔О0з�О0зО/3НСН вН%О-▀НСО*<НБyНО*<�О*<Н╪wО*<Нt�yНYО*<�О*<НО*<НJО*<Н"КwО*<Н% О(∙НБ yНxО(∙�О(∙Н О(∙Н0wО(∙Н╒�yН ┤О(∙�О(∙Н![wО(∙Н%Ы�О&МНСyНкО&М�О&МН└О&МН╩Н"B�Н#wН%▀О&М�О&МО%FНСyН О%F�О%FНwwО%FН °�Н")О#·НСyН©О#·�О#·НyО#·Н!╟Н'7�Н(twН*─О#·�О#·О!ВНСyН,О!В�О!ВН√wО!ВН!╪�Н#IО OНСyН╦О O�О OН"wО OНH�Н у�О╗НСОYНБyН"ОY�ОYНшwОYН⌠�yНxОY�ОYН LwОYН$КyН*░ОY�ОYН+IОYН.│wН3²ОY�ОYН4zyН9�ОY�ОYН9кwН?7ОY�ОYН? �uО╠НБ wНЩО╠�О╠yНШО╠�О╠НёwО╠Н╒Н Н%=yН)дО╠�О╠Н*-wН+оО╠�О╠yО НСwО НЪН"│Н-╚�Н/░�xОbНСНІН╔НNН>Н!~Н&'Н)"Н+nН.┐ Н5ШН7Є wО╨НСН Н╠�Н=ОНСyН╘О�ОНtwОН d�Н!ЯyН38О�ОН4IwН5⌡О�ОН5ЪОlНфОдНСyНЯОд�ОдН╩wН"'Од�ОдОНСНfОuНСНhО нНСН3Н└Н!Ц�Н#pН7 ��TVm$z��4private.bufferOriginPointer,startIndex:0,stopIndexPlusOne:bytesWanted]];IFbytesTransferred<bytesWantedTHEN{handle.status_unexpectedEOF;Error[handle,unexpectedEOF,handle.index,words]};blockDescription.pointer_private.bufferOriginPointer;blockDescription.words_private.bufferWordCount_bytesTransferred/Environment.bytesPerWord;handle.index_handle.index+blockDescription.words;};ReadBlock:PROC[handle:Handle,dest:LONGPOINTER,words:INT]={bytesWanted:CARDINAL_Environment.bytesPerWord*words;bytesTransferred:CARDINAL;why:Stream.CompletionCode;sst:Stream.SubSequenceType;[bytesTransferred,why,sst]_Stream.GetBlock[handle.stream,[blockPointer:dest,startIndex:0,stopIndexPlusOne:bytesWanted]];IFbytesTransferred<bytesWantedTHEN{handle.status_unexpectedEOF;Error[handle,unexpectedEOF,handle.index,words]};handle.index_handle.index+bytesTransferred/Environment.bytesPerWord;};CheckBB:PROC[handle:Handle,sMin,fMin,sSize,fSize:CARDINAL,errorWordCount:INT]={IFLONG[sMin]+sSize>handle.herald.imageSSizeORLONG[fMin]+fSize>handle.herald.imageFSizeORfMin<handle.image.fMinPageORfMin+fSize>handle.image.fMinPage+handle.image.fSizePageTHENRaisePDError[handle,objectOutOfBounds,errorWordCount];IFsMin+sSize<=handle.sMinBandORsMin>=handle.sMinBand+handle.sSizeBandTHEN{RaisePDWarning[handle,objectOutOfBand,errorWordCount];};};Get:PUBLICPROC[handle:Handle]RETURNS[CommandBuffer]={private:Private_handle.private;command:PDFileFormat.Command;BadLoadReference:PROC[dataWords:INT]={RaisePDError[handle,badLoadReference,SIZE[PDFileFormat.Command]+dataWords];};IFhandle.priority=LAST[INT]THEN{ans:CommandBuffer.stateChange;ans.loadChangeStart_ans.loadChangeLength_0;handle.sMinBand_handle.sMinBand+handle.sSizeBand;handle.bandNumber_handle.bandNumber+1;handle.priority_0;handle.colorType_ink;ans.whatChanged_bandChange;IFhandle.bandNumber=handle.image.nBandsTHEN{ans.whatChanged_imageEnd;handle.colorType_none;��qОg/НEи�wО_,НфН"А Н)рН+_Н79 yО]┘НСwО]┘Н Н�НS yН&▐О]┘�О]┘Н'HwО]┘Н*U Н36�Н4ц О[щНфН8 Н$ҐН-:ОZ6НСН 5�Н!бОX▌НСНy�Н!Н0а�ОVГНфП*ОU?НСН�Н╔Н"й�Н$╞ОS≤НСuОPIНБwНXОPI�ОPIyНVОPI�ОPIНЩwОPIНЩН`Н$≤yН'УОPI�ОPIН(╞Н+лwН0ХОPI�ОPIН1еyН6KОPI�ОPIН6╣wН8VОPI�ОPIН9>�Н;#�ОN║НСyН╘ОN║�ОN║НtwОN║Н d�Н!ЯОLЗНСyНЯОLЗ�ОLЗН╩wН"'ОLЗ�ОLЗОKRНСНfОI╚НСНhОHНСН3Н└Н!Ц�Н#pН7 ОF\НфН НСН─Н)Z yОDЄНСwОDЄН Н�НS yН&▐ОDЄ�ОDЄН'HwОDЄН*U Н36�Н4ц ОC НфН8 Н$ҐН-:ОAeНСН�Н╔Н"й�Н$╞П*О?ЎНСuО<oНБwН}О<o�О<oyНzО<o�О<oН"wО<oН"Н┘Н#ҐН'²Н+sН/=yН3О<o�О<oН3ИwН9UО<o�О<oО:хН╣yНҐО:х�О:хН'wНхО:х�О:хН╟�Н∙�yО9 НСО9 Н wНО9 �О9 НjНU�Н:Нґ�Н АyО7yНСО7yН(wН■О7y�О7yНВНь�НҐН $�Н!YyО5яНСwО5яН(Н╔�НзyО4)НСwО4)Н(Н╔�Н┼НЯ�Н&Н+╙�Н-▐yО2┌НСwО2┌Н╧Н"VН/yО0зНСwО0зН Н#�ННzНyО/3НСwО/3Н(Н╟НEyН0О/3�О/3Н0©wО/3Н3к�О-▀НН"·Н-ЪО+ДНО*<НСuО&МНБwНО&М�О&МyНО&М�О&МН╨О&МНйwО&МНrНуyН%О&М�О&МН%ЛwО&МН+#Н6x�Н8]�О%FНСН Н╠�Н=О#·НСНнuО!ВНСwН1О!В�О!ВyН.О!В�О!ВНжwО!ВН ж yН(ёО!В�О!ВН) wН*ўО!В�О!ВН+√�Н-{�О OНН ╒yО╗НвwНRО╗�О╗НІП!О�НyОYНСwОYН НИ�yНнОY�ОYН┤wН ЁОY�yОYН!wН#"ОY�ОYyН$ ОY�ОYН$бwОYН'н�О╠ННРО НН╟�Н!=Н/T�Н0АОbНН�Н▌Н*▀�Н,pО╩ННА�Н!nН.J�Н0/ОННS�НЮОlННЮ�НmОдННВ�Н└ yОНwОН╛Н!┬�Н#myН0▒О�ОН1JwОН4V�ОuНН �Н!∙О нННЯ�Н!~��\��TVm$Н��5handle.status_betweenPages;};RETURN[ans];};ReadBlock[handle,@command,SIZE[PDFileFormat.Command]];WITHcommandSELECTFROMimagingCommand:PDFileFormat.Command.imaging=>{IFhandle.colorType=noneTHEN{RaisePDError[handle,missingStartImage,SIZE[PDFileFormat.Command]];ERROR};SELECTimagingCommand.comFROMmaskSamplesRef=>{ans:CommandBuffer.maskSamples;maskSamplesRef:PDFileFormat.MaskSamplesRef;loadAddress:Environment.LongNumber;samples:LONGPOINTERTOPDFileFormat.SampleArray;words:INT;ReadBlock[handle,@maskSamplesRef,SIZE[PDFileFormat.MaskSamplesRef]];loadAddress.highbits_imagingCommand.addrHighBits;loadAddress.lowbits_maskSamplesRef.addrLowBits;ans.loadAddress_loadAddress.li;IFans.loadAddress<0ORans.loadAddress+SIZE[PDFileFormat.SampleArray]>handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskSamplesRef]];samples_private.loadPointer+loadAddress.li;words_Inline.LongMult[samples.sSize,(samples.fSize+(bitsPerWord-1))/bitsPerWord];IFans.loadAddress+SIZE[PDFileFormat.SampleArray]+words>handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskSamplesRef]];CheckBB[handle,maskSamplesRef.sMin,maskSamplesRef.fMin,samples.sSize,samples.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamplesRef]];ans.samples_[sOrigin:maskSamplesRef.sMin,fOrigin:maskSamplesRef.fMin,sMin:0,fMin:0,sSize:samples.sSize,fSize:samples.fSize,pointer:samples+SIZE[PDFileFormat.SampleArray],rast:(samples.fSize+(bitsPerWord-1))/bitsPerWord,lines:samples.sSize];RETURN[ans]};maskRunGroupRef=>{ans:CommandBuffer.maskRunGroup;maskRunGroupRef:PDFileFormat.MaskRunGroupRef;loadAddress:Environment.LongNumber;runGroup:LONGPOINTERTOPDFileFormat.RunGroup;run:LONGPOINTERTOPDFileFormat.Run;s:CARDINAL_0;runCount:CARDINAL_0;��qОg/НEи�wО_,ННF�НсО]└НyО[щНwО[щНqОZ5НОX▌НСН╛yН$фОX▌�ОX▌Н%ewН'BОX▌�ОX▌Н'╔yОVФНСwОVФН⌡yНЭОVФ�ОVФН⌡ОVФНоuОU?Н wН⌡ОU?�ОU?Н≥Н3rН6�yОS≈НwОS≈НҐН!≤�Н#}yН&ПОS≈�ОS≈Н'╘wОS≈Н*╣�ОQПН'Н$дyОPHНЗwНuОPH�ОPHНьyОN║Н'wОLЫН'yОKRНwОKRНХyН(@ОKR�ОKRН(ЗuОI╙Н' wОI╙Н!ЁН$I�ОHН8Н&ОF[Н8Н$VОDЄН8Н!┴ОCН8yНщОC�ОCН√ОCН"мОCН(nwОCН*┬ОAdН8yНЎОAd�ОAdН(wНйОAd�ОAdО?ҐН8Н$ЯyО>НwН├О>�О>НИО<nН8Н&&�Н'╡О:гН8Н%═�Н'-О9Н8Н#W�Н$ДyО7wН8wО7wНъН$Ъ�Н&3�yН'hО7w�О7wН(D�wО7wН)²Н3╪�yО5пНwН├О5п�О5пНИН.²�Н/рyН;'О5п�О5пН;ЮwО4)НyН%оО4)�О4)Н&nwН(JО4)�О4)Н(ґО2│Н8Нc�НПН+©�Н-єО0зН8НE�НрО/2НП-yО-▀Н8wО-▀НъН$Ъ�yН&ДО-▀�О-▀Н'┐wН)_О-▀�О-▀Н)бН;v�Н=[О+ЦН�Н?yН&■О+Ц�О+ЦН'MwО*<НyН%оО*<�О*<Н&nwН(JО*<�О*<Н(ґО(∙Н8Н$ Н2bО&МН Н"т yО%FНwН├О%F�О%FНИyН-МО%F�О%FН.▄wН0hО%F�О%FН0кО#·Н8 Н ╚�Н"8Н'РН6KО!ВНН(XН,ZН-ГН1щН3jН7V О PННК Н&╙О╗НyН О╗�О╗Н ╡wН"▌О╗�О╗Н"ЯН4ЧОНП,Н6ИОZНyО╡Н8wО╡НєОН8uОcН'wОcН"ЩН%⌠�О╪Н8Н&ОН8Н%ЗОlН8Н!┴ОеН8yН ?Ое�ОеН ЬОеН$/ОеН)пwОеН+ЙОН8yНGО�ОН�ОН 8ОН%ыwОН'СОvН8yН╨Оv�ОvН┘wОvН!u�Н#О нН8yНЩО н�О нН хwО нН&╦�Н(E��ё��TVm$z��6words:INT_0;fSize:CARDINAL_0;ReadBlock[handle,@maskRunGroupRef,SIZE[PDFileFormat.MaskRunGroupRef]];loadAddress.highbits_imagingCommand.addrHighBits;loadAddress.lowbits_maskRunGroupRef.addrLowBits;ans.loadAddress_loadAddress.li;IFans.loadAddress<0ORans.loadAddress+SIZE[PDFileFormat.RunGroup]>handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskRunGroupRef]];runGroup_private.loadPointer+loadAddress.li;ans.pointer_run_private.loadPointer+loadAddress.li+SIZE[PDFileFormat.RunGroup];WHILEs<runGroup.sSizeDOIFINT[run-private.loadPointer]>=handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskRunGroupRef]];IFLONG[run.fMin]+run.fSize>fSizeTHENfSize_LONG[run.fMin]+run.fSize;IFrun.lastRunTHENs_s+1;run_run+SIZE[PDFileFormat.Run];ENDLOOP;ans.runCount_runCount;CheckBB[handle,maskRunGroupRef.sMin,maskRunGroupRef.fMin,runGroup.sSize,fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskRunGroupRef]];ans.sMin_maskRunGroupRef.sMin;ans.fMin_ans.fOffset_maskRunGroupRef.fMin;ans.sSize_runGroup.sSize;ans.fSize_fSize;RETURN[ans]};maskRectangle=>{ans:CommandBuffer.maskRectangle;maskRectangle:PDFileFormat.MaskRectangle;ReadBlock[handle,@maskRectangle,SIZE[PDFileFormat.MaskRectangle]];CheckBB[handle,maskRectangle.sMin,maskRectangle.fMin,maskRectangle.sSize,maskRectangle.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskRectangle]];ans.sMin_maskRectangle.sMin;ans.fMin_maskRectangle.fMin;ans.sSize_maskRectangle.sSize;ans.fSize_maskRectangle.fSize;RETURN[ans]};maskTrapezoid=>{ans:CommandBuffer.maskTrapezoid;maskTrapezoid:PDFileFormat.MaskTrapezoid;fMin,fMax:INT;ReadBlock[handle,@maskTrapezoid,SIZE[PDFileFormat.MaskTrapezoid]];fMin_MIN[maskTrapezoid.fMin,maskTrapezoid.fMinLast];��qОg/НEи�wО_,Н8yНЎО_,�О_,Н(wО_,Н N�Н!шО]┘Н8yНО]┘�О]┘НЦwО]┘Н#т�Н%aО[щН8Н$ЯyОZ6НwН├ОZ6�ОZ6НИОX▌Н8Н&&�Н'╡ОVГН8Н%═�Н'-ОU?Н8Н#W�Н$ДyОS≤Н8wОS≤НъН$Ъ�Н&3�yН'hОS≤�ОS≤Н(D�wОS≤Н)²Н3╪�yОQПНwН├ОQП�ОQПНИН-_�Н.⌠yН9ХОQП�ОQПН:║wОPIНyН%оОPI�ОPIН&nwН(JОPI�ОPIН(ґОN║Н8Не�Н!RН- �Н/ОLЗН8 Н I�Н!уН$l�Н%ЬН1г�Н3╛ Н<║�yОKSНwН├ОKS�ОKSНИyОI╚Н8wОI╚Н≥�Н║�Нж yН)╘ОI╚�ОI╚Н*▐�ОHНIОHНПwНЭОH�ОHН_Н.Н0╠yН<ОH�ОHН<©wОF\НyН'ЮОF\�ОF\Н(wН*[ОF\�ОF\Н*ЎyОD╣НIОD╣НПwН ]ОD╣�ОD╣Н юН' �Н(НН.©�Н/ТyН3[ОD╣�ОD╣Н4wОD╣Н7!Н:┬�yОC НwН┬ОC �ОC НКН&5�Н( yОAfНIwОAfНП yН$pОAf�ОAfН%)wОAfН(5�Н)>�Н*к�Н+т�Н-╧О?ЎНIНъ�НlН"�yН#ГО?Ў�О?ЎН$├wН&cО?Ў�О?ЎН&фyО>НIwН ЙО>�О>О<oН8Н!к�Н#XО:хН8Н$ О9 НН)ЭН4'yО7yНwН├О7y�О7yНИyН-МО7y�О7yН.▄wН0hО7y�О7yН0кО5рН8Н�Н ∙О4*Н8НЩ�Н ┼ Н'n�Н(ШО2┐Н8НР�Н О0шН8НГ�Н tyО/3Н8wО/3НєО-▄Н8uО+ДН'wО+ДН ═Н#5�О*=Н8Н&О(∙Н8 Н#!О&НН8Н$ЯyО%GНwН├О%G�О%GНИО#÷Н8Н$ Н1-О!ЬНН'yО PНwН├О P�О PНИyН-МО P�О PН.▄wН0hО P�О PН0кО╘Н8Н�Н ∙ОН8НЩ�Н ┼ОZН8НР�Н О╡Н8НГ�Н tyОН8wОНєОcН8uО╪Н'wО╪Н ║Н#7�ОН8Н&ОmН8 Н#AОеН8Н yН!0Ое�ОеН! wН#;Ое�ОеОН8Н$ЯyОvНwН├Оv�ОvНИО оН8Н╣�yНBО о�О оНSwН іО о�О оН! Н.BЪ��·��TVm$⌡��7fMax_MAX[LONG[maskTrapezoid.fMin]+maskTrapezoid.fSize,LONG[maskTrapezoid.fMinLast]+maskTrapezoid.fSizeLast];CheckBB[handle,maskTrapezoid.sMin,fMin,maskTrapezoid.sSize,fMax-fMin,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskTrapezoid]];ans.sMin_maskTrapezoid.sMin;ans.fMin_maskTrapezoid.fMin;ans.fMinLast_maskTrapezoid.fMinLast;ans.sSize_maskTrapezoid.sSize;ans.fSize_maskTrapezoid.fSize;ans.fSizeLast_maskTrapezoid.fSizeLast;RETURN[ans]};maskRunGroup=>{ans:CommandBuffer.maskRunGroup;maskRunGroup:PDFileFormat.MaskRunGroup;runGroup:PDFileFormat.RunGroup;s:CARDINAL_0;runCount:INT_0;words:INT_0;fMin:CARDINAL_LAST[CARDINAL];fMax:CARDINAL_FIRST[CARDINAL];run:LONGPOINTERTOPDFileFormat.Run;ReadBlock[handle,@maskRunGroup,SIZE[PDFileFormat.MaskRunGroup]];ReadBlock[handle,@runGroup,SIZE[PDFileFormat.RunGroup]];run_private.bufferOriginPointer;private.bufferWordCount_0;WHILEs<runGroup.sSizeDOIFrunCount*SIZE[PDFileFormat.Run]>=private.bufferWordCountTHEN{Readachunk,assumingonerungroupperscanline.words:CARDINAL_(runGroup.sSize-s)*SIZE[PDFileFormat.Run];IFwords+private.bufferWordCount>private.bufferWordsAllocatedTHENRaisePDError[handle,runGroupTooLong,private.bufferWordCount];ReadBlock[handle,run,words];private.bufferWordCount_private.bufferWordCount+words;};IFrun.fMin<fMinTHENfMin_run.fMin;IFLONG[run.fMin]+run.fSize>fMaxTHENfMax_LONG[run.fMin]+run.fSize;IFrun.lastRunTHENs_s+1;runCount_runCount+1;run_run+SIZE[PDFileFormat.Run];ENDLOOP;IFrunCount*SIZE[PDFileFormat.Run]#private.bufferWordCountTHENERROR;ans.runCount_runCount;ans.loadAddress_-1;��qОg/НEи�wО_,Н8НА�yНnО_,�О_,Н─wН!'О_,�yО_,Н!┼wН$ЖО_,�О_,Н%YН2²�Н4┌yО]┘НwНwО]┘�О]┘НзН-·�Н/┐О[щН8Н$ Н1MОZ6НН'9 yОX▌НwН├ОX▌�ОX▌НИyН-МОX▌�ОX▌Н.▄wН0hОX▌�ОX▌Н0кОVГН8Н�Н ∙ОU?Н8НЩ�Н ┼ОS≤Н8Н!}�Н# ОQПН8НР�Н ОPIН8НГ�Н tОN║Н8Н!g�Н"ТyОLЗН8wОLЗНєОKRН8uОI╚Н'wОI╚Н ЛН#┌�ОHН8Н&yН&0ОH�wОHН&vОF\Н8Н#рОDЄН8Н ?ОCН8yН╨ОC�ОCН┘wОCН!u�Н#ОAeН8yНЩОAe�ОAeН gwОAeН"▄�Н$О?ҐН8yНЎО?Ґ�О?ҐН(wО?ҐН N�Н!шО>Н8yН.О>�О>НЫwО>Н#Й�yН%vО>�О>Н&0wН([О>�yО>Н(ЎwН.УО>�О>Н/X�О<nН8yН[О<n�О<nН%wО<nН$�yН%ёО<n�О<nН&\wН(РО<n�yО<nН)UwН/▄О<n�О<nН/О�О:гН8yНGО:г�О:гН�О:гН 8О:гН%ыwО:гН'СО9Н8Н$Я yО7xНwН├О7x�О7xНИО5пН8Н$Я yН-7О5п�О5пН-вwН/ЁО5п�О5пН0О4)Н8Нн�Н[О2│Н8Н(С�Н*─yО0зН8wО0зН≥�Н║�Нж yН)╘О0з�О0зН*▐�О/2НIwО/2НПyН#hО/2�О/2Н$wН%ЦО/2�О/2Н&FН2еО-▀НyН+вО-▀�О-▀Н,░wО-▀Н/²�xО+ЦНZН ь�Н"Н&┐Н,eН.СН1wН5MН7║Н:ЁwО*<НZyН!ЮО*<�О*<Н"╚wО*<Н(°�О(■Н-yН*О(■�О(■Н*╪wН,≤О(■�О(■Н,ШyО&МНZwО&МНН#�Н$СН4╞�О%FН-yН0]О%F�О%FН1wО%FН4"О#·Н-Н*▀О!ВНZН)Н,О OНZН-�Н.╒Н>^�О╗Н-О�НZyОYНIwОYНПН"в�Н$yН'┴ОY�ОYН(BwОYН+NН.к�Н0XyО╠НIО╠НПwН ]О╠�О╠Н юН' �Н(НН.©�Н/ТyН3²О╠�О╠Н4VwО╠Н7cН;�yО НwН┬О �О НКН&5�Н( yОbНIwОbНП yН$pОb�ОbН%)wОbН(5�Н)>�Н*к�Н+т�Н-╧О╩НIН!■�Н#!Н)m�Н+RОНIНъ�НlН"�yН#ГО�ОН$├wН&cО�ОН&фyОlНIwН ЙОl�ОlyОдН8wОдНъyН!WОд�ОдН!ЖwН#рОд�ОдН$5Н0Ё�ОНyН)фО�ОН*ОН-▀wН1²О�ООuН8Н!к�Н#XО нН8Н#W�Н$ДЪ��TVm$��8IFrunCount=0THEN{ans.pointer_NIL;RaisePDWarning[handle,emptyRunGroup,SIZE[PDFileFormat.MaskRunGroup]+SIZE[PDFileFormat.RunGroup]];fMin_fMax;}ELSE{ans.pointer_private.bufferOriginPointer;CheckBB[handle,maskRunGroup.sMin,fMin,runGroup.sSize,fMax-fMin,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskRunGroup]+private.bufferWordCount]};ans.sMin_maskRunGroup.sMin;ans.fMin_fMin;ans.fOffset_0;ans.sSize_runGroup.sSize;ans.fSize_fMax;RETURN[ans];};maskSamples=>{ans:CommandBuffer.maskSamples;maskSamples:PDFileFormat.MaskSamples;samples:PDFileFormat.SampleArray;ReadBlock[handle,@maskSamples,SIZE[PDFileFormat.MaskSamples]];ReadBlock[handle,@samples,SIZE[PDFileFormat.SampleArray]];CheckBB[handle,maskSamples.sMin,maskSamples.fMin,samples.sSize,samples.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamples]+SIZE[PDFileFormat.SampleArray]];ans.loadAddress_-1;{raster:BlockDescription_ReadLocate[handle,Inline.LongMult[samples.sSize,(samples.fSize+(bitsPerWord-1))/bitsPerWord]];ans.samples_PDInterpBitmap.Reshape[raster.pointer,raster.words,[maskSamples.sMin,maskSamples.fMin,samples.sSize,samples.fSize]!PDInterpBitmap.InsufficientSpace=>{RaisePDError[handle,bitmapTooBig,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamples]+SIZE[PDFileFormat.SampleArray]];ERROR}];};RETURN[ans];};colorSamples=>{ans:CommandBuffer.colorSamples;��qОg/НEи�yО_,Н8wО_,НъН!+�Н#�yН$DО_,�О_,Н$ЩwО_,Н( �О]┘НI Н"Z�yН#ГО]┘�О]┘Н$оwН%РО]┘�О]┘О[щНIН*Б yОZ6НwН≈ОZ6�ОZ6НЗyН3┤ОZ6�ОZ6Н4&wН6ОZ6�ОZ6Н6fОX▌НIНф�Н SОVГНI�yОU?Н8wОU?Н┤�ОS≤НI Н"Z�Н#ГОQПНIН&Н3ОН7дОPIН yОN║НwН≈ОN║�ОN║НЗyН/ЧОN║�ОN║Н0²wН2yОN║�ОN║Н2эП3ОLЗНIОKRН8Н�Н ∙ОI╚Н8НЩ�Н ┼ОHН8 Н �Н!╘ОF\Н8НР�Н ОDЄН8НГ�Н tyОC Н8wОC НєОAeН8uО?ЎН' wО?ЎН╒Н"7�О>Н8Н&О<oН8Н".О:гН8НщО9 Н8Н$ЯyО7xНwН├О7x�О7xНИО5яН8Н$ЯyН+жО5я�О5яН,uwН.QО5я�О5яН.ЄО4)Н8Н$ Н0:О2┌Н Н"т yО0шНwН├О0ш�О0шНИyН-МО0ш�О0шН.▄wН0hО0ш�О0шН0кyНCЄО0ш�О0шНDTwНF0О0ш�О0шНF⌠О/3Н8Н#W�Н$ДО-▄Н8Н,О+ДНI�Нж О*=НZО(∙НZО&НН-П,О%FНZО#÷НI Н"╪�Н$IО!ВНZО PНZО╗НZН)НН6 ОН- ОYНZ�НXН3WН5Л�О╡НkН- yО Н >wН"╧О �О Н#yН4 О �О Н4юwН6°О �О Н6ЪyНIХО �О НJ┤wНLcО �О НLфyОcНkwО╩Нk�ОНZОlНIyОеН8wОеНєОН8uОvН'wОvН≈Н"-�О нН8Н&Ъ��:��TVm$Е��9colorSamples:PDFileFormat.ColorSamples;samples:PDFileFormat.SampleArray;ReadBlock[handle,@colorSamples,SIZE[PDFileFormat.ColorSamples]];ReadBlock[handle,@samples,SIZE[PDFileFormat.SampleArray]];CheckBB[handle,colorSamples.sMin,colorSamples.fMin,samples.sSize,samples.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.ColorSamples]+SIZE[PDFileFormat.SampleArray]];{raster:BlockDescription_ReadLocate[handle,Inline.LongMult[samples.sSize,(samples.fSize+(bitsPerWord-1))/bitsPerWord]];ans.samples_PDInterpBitmap.Reshape[raster.pointer,raster.words,[colorSamples.sMin,colorSamples.fMin,samples.sSize,samples.fSize]!PDInterpBitmap.InsufficientSpace=>{RaisePDError[handle,bitmapTooBig,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamples]+SIZE[PDFileFormat.SampleArray]];ERROR}];};RETURN[ans];};ENDCASE=>{RaisePDError[handle,unrecognisedImagingCommand,SIZE[PDFileFormat.Command]];ERROR};};controlCommand:PDFileFormat.Command.control=>{ans:CommandBuffer.stateChange;ans.loadChangeStart_ans.loadChangeLength_0;IFhandle.colorType=noneTHENSELECTcontrolCommand.comFROMstartImage,deviceCommand,storeLoad,endDocument=>NULL;ENDCASE=>{RaisePDError[handle,missingStartImage,SIZE[PDFileFormat.Command]];ERROR};SELECTcontrolCommand.comFROMstartImage=>{startImage:PDFileFormat.StartImage;ReadBlock[handle,@startImage,SIZE[PDFileFormat.StartImage]];IFstartImage.filler#0THEN{RaisePDWarning[handle,nonZeroFill,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StartImage]];};IF(LONG[startImage.passBands]+startImage.nBands)*handle.sSizeBand��qОg/НEи�wО_,Н8Н"О]┘Н8НщО[щН8Н$Я yОZ6НwН├ОZ6�ОZ6НИОX▌Н8Н$ЯyН+жОX▌�ОX▌Н,uwН.QОX▌�ОX▌Н.ЄОVГН8Н$ Н0$ОU?Н Н"т yОS≤НwН├ОS≤�ОS≤НИyН-МОS≤�ОS≤Н.▄wН0hОS≤�ОS≤Н0кyНCуОS≤�ОS≤НDtwНFQОS≤�ОS≤НFЄОQПН8Н,ОPIНI�Нж ОN║НZОLЗНZОKSН-П,ОI╚НZОHНI Н"╪�Н$IОF\НZОDЄНZОC НZН)ьН5Х ОAfН- О?ЎНZ�НXН3WН5Л�О>НkН- yО<oН >wН"╧О<o�О<oН#yН4 О<o�О<oН4юwН6°О<o�О<oН6ЪyНIХО<o�О<oНJ┤wНLcО<o�О<oНLфyО:хНkwО9 Нk�О7yНZО5яНIyО4*Н8wО4*НєО2┌Н8yО0шН'wО0шН)НЎ�О/3Н8Н&жyО-▄НwН├О-▄�О-▄НИyН-МО-▄�О-▄Н.іwН1ЧО-▄�О-▄Н2╞�О+ДНuО*=Н wН-О*=�О*=Н+Н2uН5 �О(∙ННО&ННН!а�Н#NН1e�Н2РyО%FНwО%FНҐН!≤�Н#}yН&ПО%F�О%FН'╘Н*⌡wО%FН/nyН=7О%F�О%FН=ПwО#÷Н' Н8 Н) Н/ь Н8пyН;fО#÷�О#÷Н<NwН>іО#÷�О#÷yО!ВН'wО!ВН)НЎ�О PН8Н&жyО╗НwН├О╗�О╗НИyОН8wОYН8yО╡НwО╡НХyН'╡О╡�О╡Н(kuО Н' wО Н�Н ∙�ОcН8 Н jО╩Н8Н$ЯyН-cО╩�О╩Н.wН/чО╩�О╩Н0AyОН8wОНъН$╪�Н&║�yН'жО�ОН(▐wОН+⌡�ОlНIН*БyОеНwН≈Ое�ОеНЗyН/ЧОе�ОеН0²wН2yОе�ОеН2эОНIyОvН8wО нН�yН└О н�О нН=wНПО н�О нНSП9Ъ��П��TVm$/��10>=handle.herald.imageSSize+handle.sSizeBandORLONG[startImage.fMinPage]+startImage.fSizePage>handle.herald.imageFSizeTHEN{RaisePDWarning[handle,imageBoundsExceedPageBounds,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StartImage]];};IFhandle.colorType#noneANDhandle.bandNumber<handle.image.nBandsTHENRaisePDWarning[handle,tooFewBands,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StartImage]];handle.image_startImage;ans.whatChanged_imageStart;handle.priority_0;handle.colorType_ink;handle.bandNumber_0;handle.sMinBand_startImage.passBands*handle.sSizeBand;IFNOTstartImage.stripTHEN{handle.pass_handle.pass+1};IFstartImage.feedTHEN{handle.page_handle.page+1;handle.pass_1};handle.status_constructingImage;RETURN[ans]};setPriority=>{priorityLow:PDFileFormat.Priority;priority:Environment.LongNumber;ReadBlock[handle,@priorityLow,SIZE[PDFileFormat.Priority]];priority.highbits_controlCommand.rest;priority.lowbits_priorityLow;handle.priority_priority.li;ans.whatChanged_priorityChange;RETURN[ans]};setColorInk=>{handle.colorType_ink;ans.whatChanged_colorChange;RETURN[ans]};setColorClear=>{handle.colorType_clear;ans.whatChanged_colorChange;RETURN[ans]};setColorTile=>{setColorTile:PDFileFormat.SetColorTile;ReadBlock[handle,@setColorTile,SIZE[PDFileFormat.SetColorTile]];handle.colorTileLoadAddress_setColorTile.addr;SELECTcontrolCommand.restFROM0=>handle.colorType_opaqueTile;1=>handle.colorType_transparentTile;ENDCASE=>{handle.colorType_opaqueTile;��qОg/НEwО_,НН═П)yО]┘Н8О]┘НlwНыО]┘�О]┘Н<П)Н:�О[щНyН)зО[щ�О[щН*⌠wО[щН-═�ОZ6НIН*БyОX▌НwН≈ОX▌�ОX▌НЗyН/ЧОX▌�ОX▌Н0²wН2yОX▌�ОX▌Н2эОVГНIyОU?Н8wОU?НъН%╩�Н'═yН+ОU?�ОU?Н+ЕwОU?Н.8Н;�ОS≤НyН'.ОS≤�ОS≤Н'ГwОQПНIН*БyОPIНwН≈ОPI�ОPIНЗyН/ЧОPI�ОPIН0²wН2yОPI�ОPIН2эОN╒Н8Н!·�Н#+ ОLЗН8Н$*�Н%Ї ОKSН8Н"├�Н$ОI╚Н8Н$�Н%═ОHН8Н&�Н'║ОF\Н8Н$5�Н%аП&yОDЄН8ОDЄНъwОDЄНАyН'■ОDЄ�ОDЄН(MwОDЄН+YН3]�Н4Й Н<=�Н>"yОC Н8wОC НъyН${ОC �ОC Н%4wОC Н(@Н0▒�Н2 Н9©�Н;єОAfН Н!^�Н"КО?ЎН8Н!i�Н"ЖyО>Н8wО>НєО<oН8uО:хН' wО:хНИН �О9 Н8Н!FО7yН8НіО5яН8Н$ЯyН.?О5я�О5яН.чwН0╨О5я�О5яН1О4)Н8Н#C�Н$оО2┌Н8Н"Ґ�Н$JО0зН8Н"├�Н$О/3Н8Н$*�Н%ЇyО-▀Н8wО-▀НєО+ДН8uО*<Н' wО*<Н╔Н!:�О(∙Н8Н$�Н%═О&МН8Н$*�Н%ЇyО%FН8wО%FНєО#·Н8uО!ВН'wО!ВНзН"p�О OН8Н$�Н%═О╗Н8Н$*�Н%ЇyО�Н8wО�НєОYН8uО╠Н'wО╠Н Н!÷�О Н8Н!}ОbН8Н$Я yО╩НwН├О╩�О╩НИОН8Н+:�Н,гyОlН8wОlНyН+qОl�ОlН,*wОдНI�Н~НН)О�Н+| ОНI�Н~НН)О�Н+|yОuНIwОuН!KН#А�О нНZН(6�Н)ц Ъ��╘��TVm$��11RaisePDWarning[handle,unknownColorTileFlag,SIZE[PDFileFormat.Command]];};ans.whatChanged_colorChange;RETURN[ans];};endBand=>{handle.priority_LAST[INT];ans.whatChanged_priorityChange;RETURN[ans];};endDocument=>{ans.whatChanged_documentEnd;handle.status_transmissionComplete;RETURN[ans];};storeLoad=>{storeLoad:PDFileFormat.StoreLoad;loadWordsAllocated:LONGCARDINAL_private.loadWordsAllocated;ReadBlock[handle,@storeLoad,SIZE[PDFileFormat.StoreLoad]];IFstoreLoad.firstAddress>loadWordsAllocatedORstoreLoad.firstAddress+storeLoad.wordCount>loadWordsAllocatedORstoreLoad.firstAddress+storeLoad.wordCount>handle.herald.maxLoadWordTHEN{RaisePDError[handle,loadOutOfBounds,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StoreLoad]];ERROR};ReadBlock[handle,private.loadPointer+storeLoad.firstAddress,storeLoad.wordCount];ans.whatChanged_loadChange;ans.loadChangeStart_storeLoad.firstAddress;ans.loadChangeLength_storeLoad.wordCount;handle.loadWords_MAX[handle.loadWords,ans.loadChangeStart+ans.loadChangeLength];handle.colorTileLoadAddress_-1;RETURN[ans];};deviceCommand=>{deviceCommand:CommandBuffer.deviceCommand;wordCount:CARDINAL;block:BlockDescription;ReadBlock[handle,@wordCount,SIZE[CARDINAL]];block_ReadLocate[handle,wordCount];IFblock.words<wordCountTHENRaisePDError[handle,unexpectedEOF,block.words+SIZE[CARDINAL]];deviceCommand.deviceCommandPointer_block.pointer;deviceCommand.deviceCommandWords_block.words;RETURN[deviceCommand];};ENDCASE=>{RaisePDError[handle,unrecognisedControlCommand,��qОg/НEwО_,НZН,ТyО]┘Н-wН ╗О]┘�О]┘Н!О[щНZОZ6Н8Н$*�Н%ЇyОX▌Н8wОX▌НєОVГН8uОU?Н'wОU?НкН`�ОS≤Н8Н"├�yН$ОS≤�ОS≤Н$мwН&ЬОS≤�yОS≤Н'[wН)gОS≤�ОS≤Н)й�ОQПН8Н$*�Н%ЇyОPIН8wОPIНєОN║Н8uОLЗН' wОLЗНыН"n�ОKRН8Н$*�Н%ЇОI╙Н8Н!i�Н"ЖyОHН8wОHНєОF[Н8uОDЄН'wОDЄН°Н 2�ОCН8 Н ОAeН8yН&QОAe�ОAeН' ОAeН*BwОAeН0Щ�О?ЎНО>Н8Н$Я yН-О>�О>Н-╣wН/▒О>�О>Н/ТyО<oН8wО<oНъН(©�Н)СyО:гН8wО:гНlН)L�Н+1Н8ў�О9 НyО7xН8wО7xНlН)L�Н+1Н8ў�О5яНyН+ВО5я�О5яН,╟wО4)НIН)≈yО2┌НwН≈О2┌�О2┌НЗyН/ЧО2┌�О2┌Н0²wН2yО2┌�О2┌Н2эyО0шНwН -О0ш�О0шН ч�О/3Н8Н$ЯП+О-▄НО+ДН8Н$*�Н%Ї О*=Н8Н%Д�Н'pО(∙Н8Н'O�Н(эО&НН8Н$█�yН&О&Н�О&НН'+wН(рО&Н�О&НН)6Н4ЦО%FН�НПО#÷Н8Н+:�Н,гyО!ВН8wО!ВНєО PН8uО╗Н'wО╗Н!;Н#п�ОН8 Н$5ОYН8 yН ООY�ОYН!╨wН'&ОY�ОYО╡Н8НqО Н8Н$Я yН-ХО �О Н.┤wН0cО �yО Н0фwН6ЩО �О Н7`ОcН8НЬ�Н┘Н*ы yО╩Н8wО╩Нъ Н"�Н#ЄyН*РО╩�О╩Н+╚wО╩Н.ЇОН Н$▐yН-О�ОН-╚wН/┤О�yОН/ЙwН6!О�ОН6└ОlН8П"Н2b�Н3О ОеН8Н1Ъ�Н3▄yОН8wОНєОvН8yО нН'wО нН)НЎН. ��т��TVm$(��12SIZE[PDFileFormat.Command]];ERROR};};ENDCASE=>{RaisePDError[handle,unrecognisedCommandType,SIZE[PDFileFormat.Command]];ERROR};};Error:PUBLICERROR[handle:Handle,code:PDInterpBasic.PDErrorCode,wordIndex,wordCount:INT]=CODE;Warning:PUBLICSIGNAL[handle:Handle,code:PDInterpBasic.PDWarningCode,wordIndex,wordCount:INT]=CODE;RaisePDError:PROC[handle:Handle,code:PDInterpBasic.PDErrorCode,words:INT]={handle.status_code;ERRORError[handle,code,handle.index-words,words];};RaisePDWarning:PROC[handle:Handle,code:PDInterpBasic.PDWarningCode,words:INT]={handle.warningCount_handle.warningCount+1;handle.status_code;SIGNALWarning[handle,code,handle.index-words,words];};END.��qОg/НEyО_,НЗwНuО_,�О_,НьyН+эО_,�О_,Н,∙wН/МО_,�О_,Н0²�О]┘НyО[щНwО[щНН°Н)ЙyОZ6НвwНRОZ6�ОZ6НІyН'╧ОZ6�ОZ6Н(swН+кОZ6�ОZ6Н,{�ОX▐НСuОU@НБwНОU@�ОU@yНОU@�ОU@НЇОU@НхwОU@Н]Н!аН&ЫН*╧ОS≥Н╣ НЩ yН╣ОS≥�ОS≥НwН юОS≥�ОS≥Н!ї�yН#█ОS≥�ОS≥Н$WwН&сОS≥�ОS≥uОPJНБwНОPJ�ОPJyНЪОPJ�ОPJНіОPJНЇwОPJН╗Н$Н)CН-ОNёН╣ НЩ yН╣ОNё�ОNёНwН юОNё�ОNёН!ї�yН#█ОNё�ОNёН$WwН&сОNё�ОNёuОKTНБwНRОKT�ОKTyНPОKT�ОKTНЬwОKTНВН![Н&⌠Н*SН<wyОIґН╣wНюОIґ�ОIґН╗�Н█�ОHНСН$�Н╠yОF^НСwОF^Н┴НШН! Н.ОDЇНСuОAhНБ wНBОAh�ОAhyН?ОAh�ОAhНГwОAhНГН#JН(┌Н,BО?аН╣yН;О?а�О?аН╔wНGО?а�О?аН.�Н�О>НСНO�НэН-8�Н/О<rНСН$�Н╠yО:кНСwО:кНДН QН#ПН0oО9#НСyО5уНБwНiО5у�О5у��≤��TVm$y��PDInterpSysCalls.mesaCopyright(C)1983,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19849:54:25amPDTPDInterpSysCalls:DEFINITIONS=BEGINSetDisplayLights:PROC[value:[0..9999]];WriteLine:PROC[string:LONGSTRING];AllocateSpace:PROC[words:INT]RETURNS[LONGPOINTER];FreeSpace:PROC[pointer:LONGPOINTER];BadFreeSpaceRequest:ERROR;END.��xО_,НБО]┘НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н -Н#sН(\Н*їwОX▐НБyНdОX▐�ОX▐НJ wОX▐Н"└�yН$iОX▐�ОX▐Н%"uОU@НБwНОU@�ОU@yН ОU@�ОU@Н╠wОU@Н╟Н"6 uОQЯНБwНТОQЯ�ОQЯyНРОQЯ�ОQЯН≥wОQЯН≥yНKОQЯ�ОQЯНОQЯН"<wН&╘ОQЯ�ОQЯН'�uОNёНБwНSОNё�ОNёyНQОNё�ОNёНЫwОNёНЬyН БОNё�ОNёН!KwН"МОNё�ОNёyН#уОNё�ОNёН$╘wОNёН)Ю�yН*CОNё�ОNёН*ЭОNёН.4wН3QОNё�ОNёН3Є�uОKTНБwНОKT�ОKTyНОKT�ОKTН╩wОKTН╩yН`ОKT�ОKTН ОKTН#QwН(mОKT�ОKTН(п�uОHНБwН'ОH�ОHyН$ОH�ОHНщwН!6ОH�ОHyОDЇНБwНiОDЇ�ОDЇ��P��TVm$��PDInterpSysCallsDevelImpl.mesaMichaelPlass,November30,198310:21amDIRECTORYEnvironment,Space,PDInterpSysCalls,ProcessorFace;PDInterpSysCallsDevelImpl:MONITORIMPORTSSpace,ProcessorFaceEXPORTSPDInterpSysCalls=BEGINSetDisplayLights:PUBLICPROC[value:[0..9999]]={ProcessorFace.SetMP[value]};AllocateSpace:PUBLICENTRYPROC[words:INT]RETURNS[LONGPOINTER]={ENABLEUNWIND=>NULL;pages:CARDINAL_(words+Environment.wordsPerPage)/Environment.wordsPerPage;RETURN[Space.ScratchMap[pages]]};FreeSpace:PUBLICENTRYPROC[pointer:LONGPOINTER]={ENABLEUNWIND=>NULL;[]_Space.Unmap[pointer];};BadFreeSpaceRequest:PUBLICERROR=CODE;END.��xО_,НБО]┘НБН$ННgН ╔Н#ЙН'╙yО[щНБwО[щНKНТН#DН.╔ ОZ6НБyН ╨ОZ6�ОZ6Н!кОX▐НСwОX▐НёНСyОVГНСwОVГН╣ОU@НБ�yНгОU@�ОU@Н─uОQЯНБwНОQЯ�ОQЯyН ОQЯ�ОQЯН╠ОQЯНаwОQЯН"iН&О Н,Ґ�Н.╒uОNёНБwНSОNё�ОNёyНQОNё�ОNёНЫОNёН ОNёН!░wОNёН%7yН* ОNё�ОNёН*┼wН,,ОNё�ОNёyН-ОNё�ОNёН-ГwОNёН3�yН3┌ОNё�ОNёН4;ОNёН7swН<▐ОNё�ОNёН=w�Н?\�yОLШНСОLШНwОLШНҐyНRОLШ�ОLШН;wН!▓ОLШ�ОLШОKTНСyН7ОKT�ОKTНwОKTНС�ОIґНфП:yОHНСwОHН`ОF^НСuОCНБwНОC�ОCyНОC�ОCН╩ОCНлОCНRwОCН"ЗyН(÷ОC�ОCН)XОCН,▐wН1╛ОC�ОCН2■�Н4y�yОAhНСОAhНwОAhНҐyНRОAh�ОAhН;wН!▓ОAh�ОAhО?аНСН>�НкО>НСО:кНБyН3О:к�О:кНзО:кН!КwО:кН&│�yН(fО:к�О:кН)1wН+╛О:к�О:кyО7|НБwНiО7|�О7|Ъ��^��TVm$q��PDQueue.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September13,19849:07:25amPDTPDQueue:DEFINITIONS=BEGINThismodulemanagesthequeueforthepeachprinter.Ifadiskisavailable,asimplemechanismisprovidedhereforperiodicallysavingthestateofthequeueonthedisk,sobootingtheserverwillnotloseitall.Inanycase,thequeuelivesinmainmemory,andconsistsmostlyoffullpathnamesofthefiles,togetherwithalittlebitofinformationaboutwhorequestedtheprint,etc.Thereisalsosomestuffhereforloggingwhathasbeengoingon,andforaccessingthelog.Request:TYPE=RECORD[fileName:LONGSTRING,i.e.,"[Indigo]<platemaker>foo.pd!33".requestTime:LONGSTRING,requestor:LONGSTRING,requestorPassword:LONGSTRING,separator:LONGSTRING,Tobeprintedbetweenjobs,ifpossible.copies:CARDINAL];Reset:PROC;Resetsthequeue.QueueRequest:PROC[request:Request]RETURNS[requestNumber:INT];Returns-1ifthequeueisfull.Reprint:PROC[copies:CARDINAL];DoRequest:PROC[action:PROC[request:Request,requestNumber:CARDINAL,abort:LONGPOINTERTOBOOLEAN]];Waitsifqueueisempty;actionshouldreturnorraiseABORTEDifabort^becomestrue.IfthestringsintheRequestareNIL,therequestistoreprintasmuchasthepreviousrequestasispossiblewithoutalotofrecomputation.CheckRequest:PROC[requestNumber:CARDINAL,action:PROC[request:Request,status:RequestStatus]];RequestStatus:TYPE={notFound,canceled,waiting,printing};CancelRequest:PROC[requestNumber:CARDINAL]RETURNS[ok:BOOLEAN];Looksforamatchingrequest(fileNameandrequestor),andremovesitfromthequeue.CountRequests:PROCRETURNS[requestCount:NAT];Numberofoutstandingrequests.EnumerateRequests:PROC[action:PROC[requestNumber:CARDINAL,request:Request,status:RequestStatus]RETURNS[continue:BOOLEAN]];��xО_:НБО]▓НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WwОX°НБyНҐОX°�ОX°Н╒ wОX°Нэ�yНаОX°�ОX°Н {xОVТНСНН╧НBН ▌Н$rН& Н(ФН,ҐН2Н3▓�Н4фН7╘Н9 Н?�ОUMНфНЖНОН[Н#ЎН&╧Н(АН0Н48Н6┘Н9╧Н;\Н=╗ОSіНфН╧ННAНЗНяН"Н%ЪН(■Н*ЬН-ўН/Н1чН3╩Н6TН9⌡Н;ГОQЧНфНкНqНщНZН!ЧН&ЛН+4Н,вН/MН2_Н6┬Н8+Н:wОPWНфННЧ�Н3Н\Н dН" Н)YН-Н/ТН5ъН8+Н;нОN╟НфН╘ННАНKН ^Н#YН%─Н*KН-■Н0 Н33Н6ЙН95Н;ыОMНфНіНРwОI╧НСyНфОI╧�ОI╧НwОI╧Н7�yНОI╧�ОI╧НПwОI╧Н!▐�ОHНyН~ОH�ОHН8ОHНowН!эОH�ОHxОFjНН═wОDцНyНlОDц�ОDцН%ОDцН]wН#иОDц�ОDцОCН yН▓ОC�ОCНKОCН┌wН!ООC�ОCОAtНyНОAt�ОAtНоОAtН#wН'sОAt�ОAtО?лН yНpО?л�О?лН)О?лНawН!нО?л�О?лxО>$НН2НН≈Н"ЁН%вН'-wО<}НyН╛О<}�О<}НwwО:уНuО7├НСwНDО7├�О7├yНBО7├�О7├НЙwНeО7├�О7├xО5ъНН5Н│uО2░НСwН▒О2░�О2░yН▌О2░�О2░Н6wО2░Н6Н#ГyН)ёО2░�О2░Н*wwО2░Н/ўyН:dО2░�О2░Н:мwН<oО2░�О2░Н<р�xО0ХНННцННeН!IН"╣uО-≥НСwНbО-≥�О-≥yН`О-≥�О-≥НwО-≥НyНО-≥�О-≥НщwН%IО-≥�О-≥Н%╛�uО*JНСwНО*J�О*JyН}О*J�О*JН$wО*JН$yН!О*J�О*JН!юwО*JН$юН*qН0" yН:tО*J�О*JН;?wН@╚О*J�О*JО(ёНфyНчО(ё�О(ёН≤О(ёНоО(ёНpО(ёН!┼wН'*О(ё�О(ёН'█xО&ШННЯНHН+Н≈Н"Н&Н*cН.wН00}Н3kО&Ш�О&ШН46xО&ШН9|Н:рО%TНвН'О#╛НН▓НчН2НьН$Н$=}Н&▒О#╛�О#╛Н'mxН(╛О#╛�О#╛Н)┬Н+тН0tН1ЮН3┘Н7ОН9╗Н=VН?О"НвНН╨НsН ъН%чН*Ї�Н+ЛН-ТН/≈ uОІНСwНeОІ�ОІyНbОІ�ОІН wОІН yН(©ОІ�ОІН)┴wН.УОІ�ОІН/рyН4dОІ�ОІН5wОІН8ОНфНwНхОgН yНlОg�ОgН%wОgНч�Н!ц Н)8Н/+Н4V uОНСwН╪О�ОyН╨О�ОНbwОНayН)О�ОН)АwН/MО�ОyН05О�ОН1 wОН6@yН9О�ОН9яwН>╦О�ОН?�xОpНН(НO�Н└Н iН% Н+KН-Н Н4∙Н78Н<\Н=ЄОиНвН#uОzНСwНщОz�ОzyНшОz�ОzН┐ОzН┌wОzН$▌ yН-ТОz�ОzН.щwН0iОz�ОzН0л�xОсНН>НБ Н!)uО┐НСwН╘О┐�О┐yНїО┐�О┐НOwО┐Н!NyН&CО┐�О┐Н&КwО┐Н)ЙyН4═О┐�О┐Н5jwН:жО┐�О┐Н;ЁО эНфНwНх yН%О э�О эН%МwО эН+% yН1їО э�О эН2`wН7GО э�О эН7╚Ъ��s��TVm$��2RegisterDisk:PROC[read,write:PROC[address:LONGPOINTER,nwords:CARDINAL],maxWords:CARDINAL];Periodicallycallsthewriteproc;callsthereadprocatstartuptime.Ifthisisnevercalled,thequeuelivesonlyinmainmemoryandislostatboottime.RegisterTTY:PROC[writeLine:PROC[LONGSTRING]];Registersaprocfordisplayingmessages.GetSuspended:PROCRETURNS[BOOLEAN];SetSuspended:PROC[suspended:BOOLEAN]RETURNS[old:BOOLEAN];SettingsuspendedtoTRUEwillstopprintingafterthecurrentjobfinishes.LogMessage:PROC[message:LONGSTRING,requestNumber:INT_-1,userName:LONGSTRING_NIL];Addstimestamp.Messageisalsooutputtotheprinter'sTTY,ifpresentandenabled.SetLogState:PROC[logging:BOOLEAN]RETURNS[old:BOOLEAN];SettingloggingtoFALSEpreventsmessagesfrombeingloggedontheTTY,topreventinterferencewithtypein.Unprintedmessageswillbeprintedwhenloggingisre-enabled.EnumerateMessages:PROC[PROC[message:LONGSTRING]RETURNS[continue:BOOLEAN]];Replayshistoryforasfarbackaswecanremember.END.��qОg/НEи�uО^≈НСwН²О^≈�О^≈yН⌡О^≈�О^≈НCwО^≈НBН!yН%О^≈�О^≈Н%ЇwО^≈Н(ІyН.}О^≈�О^≈Н/6О^≈Н2mwН7┼О^≈�О^≈Н8fyО\ОНфwНЩО\О�О\ОН`�Н=yН ╔О\О�О\ОН!pwН&эО\О�О\ОН'?�xО[HННmН┤НсН#2Н&╞Н)иН,Н/Н2Н3цН8MН<2Н=юН@YОY║НвНoН╗НТН!ьН$щН'ьН)~Н,КН2Н4ЄН6Н8╛Н:PН=VuОVRНС wНЇОVR�ОVRyНЄОVR�ОVRН\wОVRН\ yН$lОVR�ОVRН%wОVRН(�yН(wОVR�ОVRН)0ОVRН,gwН0тОVR�ОVRН17xОT╚ННм�ННН- Н%┘uОQ\НСwНdОQ\�ОQ\yНaОQ\�ОQ\Н ОQ\НwОQ\Н$�yН$wОQ\�ОQ\Н%0wН*ОQ\�ОQ\Н*{�uОO╣НСwН-ОO╣�ОO╣yН*ОO╣�ОO╣НрwОO╣Ня yН%hОO╣�ОO╣Н&!wН+ОO╣�ОO╣yН+ПОO╣�ОO╣Н,дwОO╣Н1ШyН5BОO╣�ОO╣Н5ШwН:БОO╣�ОO╣Н;E�xОN НН╡Н}НіОN �ОN Н _xОN Н#MН%ЦН(╪Н-ыН1Н3XН8Н:NuОJ©НС wНqОJ©�ОJ©yНoОJ©�ОJ©НwОJ©НyН#JОJ©�ОJ©Н$ОJ©Н';wН+їОJ©�ОJ©Н,└ yН6жОJ©�ОJ©Н7@wОJ©Н9f�Н:РОIНфyНпОI�ОIН┴ОIНаwОIН!╡�yН#?ОI�ОIН$'wН%JОI�ОIН%ґ�xОGpННkНtН@Н#╦Н%#Н'ПН,/Н-тН0 }Н5fОGp�ОGpН6xН7ёОGp�ОGpН8─Н9жН>xОEиНвuОBzНС wНgОBz�ОBzyНdОBz�ОBzНwОBzНyН"фОBz�ОBzН#wН(fОBz�ОBzyН)MОBz�ОBzН*!wОBzН/YyН2÷ОBz�ОBzН3XwН8?ОBz�ОBzН8╒�xО@сНН╡Н}}Н"О@с�О@сНрxО@сН"WН'⌠Н-QН0▐Н40Н8tН:g}Н<ЁО@с�О@сН=mxН>ЯО@с�О@сН?мО?+НвН▐НБН"чН'аН.)Н3ГН6|Н8KН<АО=└НвН╒Н uО:5НСwНО:5�О:5yНО:5�О:5НҐwО:5Н!╪�yН"О:5�О:5Н"гwН%BО:5�О:5Н%іyН+vО:5�О:5Н,/О:5Н/gwН3тО:5�О:5yН4╩О:5�О:5Н5▐wО:5Н:г yО8▌НфwНfО8▌�О8▌НиxО6ГННН┌Н╘Н bН"┼Н%яН'┼Н)░Н,yО3≤НСwН{О3≤�О3≤Ъ��╒��TVm$ч��PDQueueImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September27,19847:29:39amPDTDIRECTORYTime,Checksum,Environment,Inline,PDInterpSysCalls,PDQueue,String;PDQueueImpl:MONITORIMPORTSTime,Checksum,Inline,PDInterpSysCalls,StringEXPORTSPDQueue=BEGINRequest:TYPE=PDQueue.Request;readProc:PROC[address:LONGPOINTER,nwords:CARDINAL]_NIL;writeProc:PROC[address:LONGPOINTER,nwords:CARDINAL]_NIL;maxStateWords:CARDINAL_16*1024;deferSaving:BOOLEAN_FALSE;state:LONGPOINTERTOStringSeqRep_NIL;messages:LONGPOINTERTOStringSeqRep_NIL;StringSeqRep:TYPE=MACHINEDEPENDENTRECORD[nStrings:CARDINAL,end:CARDINAL,mark:CARDINAL,nMarked:CARDINAL,nDiscarded:CARDINAL_0,check:CARDINAL,nWords:CARDINAL,stringSpace:SEQUENCECOMPUTEDCARDINALOFWORD];StringRep:TYPE=RECORD[nChars:CARDINAL,char:PACKEDARRAY[0..0)OFCHAR];Validate:INTERNALPROC[s:LONGPOINTERTOStringSeqRep]RETURNS[ok:BOOLEAN]={nStrings:CARDINAL_0;nMarked:CARDINAL_0;offset:CARDINAL_0;IFs.check#CalculateCheck[s]THENRETURN[FALSE];IFs.mark>s.endTHENRETURN[FALSE];WHILEoffset<s.endDOwords:CARDINAL;nStrings_nStrings+1;IFoffset>s.markANDnMarked=0THENRETURN[FALSE];IFoffset>=s.markTHENnMarked_nMarked+1;��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKНAН!SН)ЭН.UН9ІОVГН╣ОS≈НБyН∙ОS≈�ОS≈НіОQПНСwОQПНёН≥Н!╚Н&Н1fyОPHНСwОPHН╣ОN║НС�yНьОN║�ОN║Н▒wОKRНСyНфОKR�ОKRНН�wН║ОKR�ОKRНryН!~ОKR�wОKRН!дОHНСyН3ОH�ОHНшwОHНзyН ║ОH�ОHН!ZОHН$▒wН)ўОH�ОHН*┼yН/вОH�ОHН0╒wН6ОH�ОHН6Ж�yН8┌ОH�ОHН9kwН:▌ОH�ОHОDЄНС yН√ОDЄ�ОDЄН>wОDЄН=yН!ОDЄ�ОDЄН!ҐОDЄН$ТwН*ОDЄ�ОDЄН*НyН0:ОDЄ�ОDЄН1wН6qОDЄ�ОDЄН7Y�yН8ФОDЄ�ОDЄН9нwН:ЯОDЄ�ОDЄОAeНС yНKОAe�ОAeНwОAeН"�Н#■О>НСyНВО>�О>Н╟wО>Н�yН ╘О>�О>Н!bwН$GО>�О>О<nНСyН·О<n�О<nНWО<nН▌О<nН/wО<nН IН) �yН*≈О<n�О<nН+─wН,ёО<n�О<nО:фНСyНHО:ф�О:фНО:фН9О:фН зwО:фН"ТН+╣�yН-BО:ф�О:фН.*wН/MО:ф�О:фО7wНСyН.О7w�О7wНГwО7wН÷�yН└О7w�О7wН √О7wН%╙О7wН-WwО7wН2й�О5пНyНАО5п�О5пН╛wНО5п�О5пО4(НyН5О4(�О4(Н�wНlО4(�О4(О2│НyНО2│�О2│НэwНHО2│�О2│О0ыНyНpО0ы�О0ыН;wНїО0ы�О0ыО/2Н yНгО/2�О/2Н▓wО/2Н!┌�Н#О-┼НyН_О-┼�О-┼Н*wН√О-┼�О-┼О+БНyНЄО+Б�О+БНwНКО+Б�О+БО*;НyНгО*;�О*;НfО*;Н!▀Н(⌠О*;Н/NО*;Н1hwО(⌠НО%DНС yНЗО%D�О%DНЁwО%DНl�yНQО%D�О%DН%wО%DН"ц�О#²НyН;О#²�О#²НwНrО#²�О#²О!УНyН▌О!У�О!УН5О!УНчwО!УН └yН#ТО!У�О!УН$я�О!УН&wО NНuОЪНСwНэОЪ�ОЪyНзОЪ�ОЪНDОЪНlwОЪН!yН"ЬОЪ�ОЪН#╡ОЪН&ИОЪН,┼wОЪН.єyН7хОЪ�ОЪН8°wОЪН=тyОWНфwНfОW�ОWНN�Н3�О╟НyНАО╟�О╟Н╛wО╟Н°�Н!)ОНyНpО�ОН;wОН +�Н!╦ОaНyНIОa�ОaНwОaН�Н▒yО╧НwО╧Н╛Нi�НNyН&bО╧�О╧Н'О╧Н*(wО╧Н/■�yН/ВО╧�О╧Н0╟wН3∙О╧�О╧Н3Ь�yОНwОН╛Н�НOyНБО�ОН⌡ОН!╗wОН'�yН'wО�ОН(0wН+О�ОН+x�yОjНwОjНeН0�НeyНЬОj�ОjН ч�wОцНyН°Оц�ОцНgwНсОц�ОцОННy�НН!i�Н#NyОsНwОsНҐН┬�Н╪yН +Оs�ОsН ЪwОsН#QН)C�Н+(�yН,]Оs�ОsН-ОsН0#wОsН5▐�yН5РОs�ОsН6╚wН9░Оs�ОsН9С�yО лНwО лНҐН┬НyН!▄О л�О лН"EwО лН%QН+D�Н,пН2ц�Н4╗Ъ��┐��TVm$в��2words_(s[offset]+Environment.bytesPerWord-1)/Environment.bytesPerWord+1;offset_offset+words;ENDLOOP;IFoffset#s.endTHENRETURN[FALSE];IFnStrings#s.nStringsTHENRETURN[FALSE];IFnMarked#s.nMarkedTHENRETURN[FALSE];RETURN[TRUE]};DiscardMessages:INTERNALPROC[maxWords:CARDINAL]={WHILEmessages.end>maxWordsDODiscard[messages,1]ENDLOOP;};Discard:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,n:CARDINAL]={newStart:CARDINAL_StringOffset[s,n];Inline.LongCOPY[from:@(s[newStart]),nwords:s.end-newStart,to:@(s[0])];s.nStrings_s.nStrings-n;s.end_s.mark_s.end-newStart;s.nDiscarded_s.nDiscarded+n;};StringOffset:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,n:CARDINAL]RETURNS[offset:CARDINAL]={offset_0;IFn=0THENRETURN;IFn>s.nStringsTHENERROR;FORi:NATIN[0..n)DOoffset_NextStringOffset[s,offset];ENDLOOP;};NextStringOffset:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,offset:CARDINAL]RETURNS[CARDINAL]=INLINE{IFoffset>=s.endTHENERRORELSE{words:CARDINAL_(s[offset]+Environment.bytesPerWord-1)/Environment.bytesPerWord+1;IFwords>s.end-offsetTHENERROR;offset_offset+words;RETURN[offset];};};Append:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,string:LONGSTRING]={body:LONGPOINTERTOStringRep;chars:CARDINAL_IFstring=NILTHEN0ELSEstring.length;words:CARDINAL_(string.length+Environment.bytesPerWord-1)/Environment.bytesPerWord+1;��qОg/НEи�wО_,НН"�О]┘НХПBО[щННЮ�НmН8�Н yОZ6НwНЇОZ6�ОZ6yОX▌НwОX▌Н╛Нv�Н\yНООX▌�ОX▌Н╗ОX▌Н!ЄwОX▌Н' �yН'└ОX▌�ОX▌Н(=wН+"ОX▌�ОX▌Н+┘�yОVГНwОVГН╛Н�НТ yН"3ОVГ�ОVГН"ЛОVГН%ЫwОVГН+e�yН+хОVГ�ОVГН,│wН/fОVГ�ОVГН/и�yОU?НwОU?Н╛Н·�Н┐yН#QОU?�ОU?Н$ ОU?Н'wОU?Н,┐�yН,ФОU?�ОU?Н-÷wН0└ОU?�ОU?Н0Г�yОS≤НwОS≤Нq�yНтОS≤�ОS≤Н█wН�ОS≤�ОS≤ОQПНuОN║НСwН>ОN║�ОN║yН;ОN║�ОN║Н╔ОN║Н"мwОN║Н&u yН.AОN║�ОN║Н/wН4wОN║�ОN║Н5_�Н7D�yОLЗНwОLЗНeНк�Н!�yН'ПОLЗ�ОLЗН(у�wОLЗН*6Н5_yН6ВОLЗ�ОLЗН7╟wН<≤ОLЗ�ОLЗОKRНuОHНСwН└ОH�ОHyН│ОH�ОHНКОHНwОHН ╨yН"÷ОH�ОHН#YОHН&░ОHН,1wОHН.KН7dyН9)ОH�ОHН9СwН?_ОH�ОHОF\Нф�Н╚�ОDЄНyН:ОDЄ�ОDЄНwОDЄНУ�Н!┌Н*yОC НН"!Н+тН1!Н:ҐОAeНвО?ЎН НC�Нп Н!�Н" О>НН≈�Н$Н⌠�Н О<oНН*�НІН$э�Н&аО:гНuО7xНСwНFО7x�О7xyНCО7x�О7xНґО7xНуwО7xН#}yН%bО7x�О7xН&О7xН)RО7xН.СwО7xН1 Н:'yО5яНфwНЩО5я�О5яyНДО5я�О5яН╦wО5яНПyН#≈О5я�О5яН$bwН)нО5я�О5яН*І�Н,⌡�О4)ННо�Н\yО2┌НwО2┌Н╛�НВ�Нэ�yНО2┌�О2┌НиО2┌НжwН!ЎО2┌�О2┌yО0зНwО0зН╛�НВ�Н+ yНjО0з�О0зН#О0зН!0wН%AО0з�О0зyО/3НwО/3НРyНSО/3�О/3Н;О/3НLwО/3Н#yН╙О/3�О/3Н ▐�wО-▀ННЮ�НmН&KyО+ДНwНЇО+Д�О+ДО*<НuО&МНСwН3О&М�О&МyН1О&М�О&МН⌡О&МН"цwО&МН&jyН(OО&М�О&МН)О&МН,@О&МН1АwО&МН3ЗН=yО%FНфwНЩО%F�О%FyНДО%F�О%FН╦wО%FНП�yНSО%F�О%FН wН%┼О%F�О%FН&q�yН(VО%F�О%FН(юwО%FН,Р�yО#·НwО#·Н╛НvНyН÷О#·�О#·НXО#·Н"dО!ВНwО!ВНS�О OНyН°О O�О OНgwО OН W�О╗НХПByО�НwО�НҐНй�НЧyН#QО��О�Н$ О�Н'wН+(О��О�ОYННЮ�НmН8�Н yО╠НwО╠Н┌О НОbНuОНСwНXО�ОyНUО�ОН©ОНГwОН ▐yН"tО�ОН#-ОН&dОН,wОН.Н79yН;┬О�ОН<AОlНфwН3Оl�ОlН�НЪ�ОдНyНЭОд�ОдН╣ОдНЛОдН █wОдН"ї ОНyНО�ОНщwОНм�yНZО�ОНд�wОН!Н$в�yН&╪О�ОН'╔ОН)LwОН-�yН.FО�ОН.ЪwОН1∙ ОuНyН▀Оu�ОuНUwОuНF�О нНвПF�� TVm$п��3IFs.mark#s.endTHENERROR;IFs.end+words>s.nWordsTHENERROR;body_LOOPHOLE[@(s[s.end])];body.nChars_chars;FORi:NATIN[0..chars)DObody.char[i]_string[i];ENDLOOP;IFcharsMOD2=1THENbody.char[chars]_'\000;s.mark_s.end_s.end+words;s.nStrings_s.nStrings+1;};AppendToString:INTERNALPROC[string:LONGSTRING,s:LONGPOINTERTOStringSeqRep,offset:CARDINAL]={body:LONGPOINTERTOStringRep;IFoffset>=s.endTHENERROR;IFoffset+(s[offset]+Environment.bytesPerWord-1)/Environment.bytesPerWord+1>s.endTHENERROR;body_LOOPHOLE[@(s[offset])];FORi:NATIN[0..body.nChars)DOstring[string.length]_body.char[i];string.length_string.length+1;ENDLOOP;};MoveToString:INTERNALPROC[string:LONGSTRING,s:LONGPOINTERTOStringSeqRep,offset:CARDINAL]={string.length_0;AppendToString[string,s,offset];};GetNumberDiscardedMessages:ENTRYPROCRETURNS[CARDINAL]={IFmessages=NILTHENRestore[];RETURN[messages.nDiscarded];};GetString:ENTRYPROC[string:LONGSTRING,s:LONGPOINTERTOStringSeqRep,n:CARDINAL]RETURNS[ok:BOOLEAN]={string.length_0;IFn<s.nDiscardedTHENRETURN[TRUE];IFn-s.nDiscarded>=s.nStringsTHENRETURN[FALSE];AppendToString[string,s,StringOffset[s,n-s.nDiscarded]];RETURN[TRUE];};MoveMarkedStrings:INTERNALPROC[from,to:LONGPOINTERTOStringSeqRep]={nwords:CARDINAL_from.end-from.mark;IFto.nWords<to.mark+nwordsTHENERROR;to.nStrings_to.nStrings-to.nMarked;to.nMarked_0;��qОg/НEи�yО_,НwО_,Н╛Н�Н�yН⌠О_,�О_,НLО_,Н"XwН&iО_,�О_,yО]└НwО]└Н╛ Н(�Н]yН$oО]└�О]└Н%(О]└Н(4wН,FО]└�О]└О[щНН┌�yНО[щ�О[щНхwН^О[щ�О[щНаОZ5Н Н�Н═yОX▌НwОX▌НРyНSОX▌�ОX▌Н;ОX▌НLwОX▌Н# yН!СОX▌�ОX▌Н"ы�wОVФНН═�Н- yОU?НwНЇОU?�ОU?yОS≈НwОS≈Н╛yН@ОS≈�ОS≈НQwОS≈Н≤�Нл�Н╠�yНФОS≈�ОS≈Н ÷wОS≈Н#╛Н-Ц�Н/pОQПННs�Н�Н⌠�Н ОPHН НC�Нп Н!�Н"УОN║НuОKRНС wН╟ОKR�ОKRyНґОKR�ОKRНОKRН"?wОKRН%ФyН*≥ОKR�ОKRН+RОKRН.┴wН2ЖОKR�ОKRН3сyН5TОKR�ОKRН6ОKRН9EОKRН>ФwОI╙НфНъyН$ОI╙�ОI╙НОwН%[ОI╙�ОI╙Н&B�Н('�ОHНyНЭОH�ОHН╣ОHНЛОHН █wОHН"ї yОF[НwОF[Н╛НvНyН÷ОF[�ОF[НXОF[Н"dwН&vОF[�ОF[yОDЄНwОCНвПHОAeНв�НyН÷ОAe�ОAeНXОAeНdwН vОAe�ОAeО?ҐНН┌�yНО?Ґ�О?ҐНхwН^О?Ґ�О?ҐНа yО>НwО>НРyНSО>�О>Н;О>НLwО>Н#yН&mО>�О>Н'S�wО<nНН!�Н"²О:гННЬ�Н┘Н&h�Н(MyО9НwНЇО9�О9О7xНuО4)НСwНїО4)�О4)yН╔О4)�О4)НО4)Н!7wО4)Н$чyН)░О4)�О4)Н*IО4)Н-│wН1МО4)�О4)Н2йyН4LО4)�О4)Н5О4)Н8=О4)Н=щwО2│НфНъyН$О2│�О2│НОwН%[О2│�О2│Н&B�Н('�О0зННГ�НtО/2НН!√Н"ЖО-▀НuО*<НСwН#┌О*<�О*<yН$─О*<�О*<Н%9О*<Н)О*<Н,ўwО*<Н2╧�yН3О*<�О*<Н3ГwН9SО*<�О*<Н:;�Н< �yО(■НwО(■Н╛Н┤�yНlО(■�О(■НUО(■НЭwО(■Н"б yО&МНwО&МНqО%EНuО!ЖНСwНнО!Ж�О!ЖyНлО!Ж�О!ЖН┘О!ЖНRwО!ЖНЫyН$╛О!Ж�О!ЖН%eО!ЖН(°wН- О!Ж�О!ЖН-ФyН/hО!Ж�О!ЖН0!О!ЖН3XО!ЖН8ЫwО OНфНъyНєО O�О OНowН"шО O�О OyН#бО O�О OН$√wО OН)нyН,╔О O�О OН-^wН2EО O�О OН3-�Н5�ОїННГ�НtyОЪНwОЪН╛�НВ�Н+yНPОЪ�ОЪН ОЪН#wОЪН(┌�yН(ЕОЪ�ОЪН)÷wН,ОЪ�ОЪН,t�yОXНwОXН╛ НН і yН&ЕОX�ОXН'÷ОXН*╚wОXН0�yН0zОX�ОXН14wН4ОX�ОXН4|�О╟НН!√Н"ЖН+МyО НwО Нq�yНтО �О Н█wН�О �О Нc�ОaНuОНСwН.О�ОyН+О�ОН∙ОН$ҐwОН(eН,┤yН.╞О�ОН/hОН2÷ОН8@wОkНфНЙ�Но�ОцНyНQОц�ОцНwОцН�Н ≥yОНwОН╛Нd�Н≤ yН']О�ОН(ОН+"wН/4О�ООtН НИ�Нv Н"[�Н#Y О мН Нx�Н��#��TVm$з��4to.end_to.mark;Inline.LongCOPY[from:@(from[from.mark]),nwords:nwords,to:@(to[to.mark])];to.nStrings_to.nStrings+from.nMarked;to.nMarked_from.nMarked;to.end_to.end+nwords;to.nStrings_to.nStrings+from.nMarked;from.nStrings_from.nStrings-from.nMarked;from.nMarked_0;from.end_from.mark;};CalculateCheck:INTERNALPROC[s:LONGPOINTERTOStringSeqRep]RETURNS[CARDINAL]={cs:CARDINAL_Checksum.ComputeChecksum[nWords:5,p:s];cs_Checksum.ComputeChecksum[cs:cs,nWords:1,p:s+6];RETURN[cs];};Save:INTERNALPROC={IFstate=NILTHENERROR;DiscardMessages[state.nWords-state.end];MoveMarkedStrings[from:messages,to:state];state.check_CalculateCheck[state];IFNOTValidate[state]THENERROR;IFwriteProc#NILTHENwriteProc[state,SIZE[StringSeqRep[state.end]]];MoveMarkedStrings[from:state,to:messages];};Restore:INTERNALPROC={IFstate#NILTHENERROR;IFreadProc#NILTHEN{temp:LONGPOINTERTOStringSeqRep_PDInterpSysCalls.AllocateSpace[256];readProc[temp,256];IFtemp.check=CalculateCheck[temp]THEN{words:CARDINAL_SIZE[StringSeqRep[temp.end]];wordsAllocated:CARDINAL_MAX[maxStateWords,words+255]/256*256;IFwordsAllocated<=maxStateWordsTHEN{state_PDInterpSysCalls.AllocateSpace[wordsAllocated];readProc[state,words];state.nWords_wordsAllocated-SIZE[StringSeqRep[0]];IFValidate[state]THEN{AllocMessages[];MoveMarkedStrings[from:state,to:messages];}ELSE{PDInterpSysCalls.FreeSpace[state];state_NIL};};��qОg/НEи�wО_,НН=�НйО]┘НН"!Н/CН4░Н9╪О[щНвОZ6Н НИ�Нv Н"[�Н$@ОX▌Н Нx�НОVГНН=�НйН�НХОU?Н НИ�Нv Н"[�Н$@ОS≤НН╒�Н/ОQПНН1�НЎОPHННЖ�Н┐ ОN║НuОKRНС wНAОKR�ОKRyН?ОKR�ОKRН╘ОKRН!яwОKRН%xyН']ОKR�ОKRН(ОKRН+NОKRН0ОwОKRН3 yОI╚НфwОI╚Нр�yН5ОI╚�ОI╚Н�wНlОI╚�ОI╚НS�Н!8�ОHНyН!ОH�ОHНЛwОHНэ�НiН5цН7PН9ОF\НН╗�Н5Н*ШН,ВН2їН44Н5ЫyОDЄНwОDЄНqОCНuО?ҐНСwНюО?Ґ�О?ҐyНЎО?Ґ�О?ҐН'О?ҐНPwО?ҐНВ�Н э�yО>НwО>Н╛Нщ�yНбО>�О>Н╙О>НRО>Н wН$(О>�О>О<nНП(О:гНН#oН)╒Н+йО9Н НЙ�НwyО7xНО7xН╛wО7xНўyН ▐О7x�О7xН!HО7xН$UwН(fО7x�О7xyО5пНwО5пН╛Ну�yН╨О5п�О5пНёО5пНJwО5пН#yН,║О5п�О5пН-@wН/О5п�О5пН/─О4)НН#oН&ЬН) О2│НuО/2НСwН└О/2�О/2yН┌О/2�О/2НКО/2НwО/2Н ╩�Н"═�yО-▀НwО-▀Н╛Нщ�yНбО-▀�О-▀Н╙О-▀НRО-▀Н wН$(О-▀�О-▀yО+ЦНwО+ЦН╛Нr�yНWО+Ц�О+ЦН@О+ЦНГwО+ЦН"╛�О*<НyНО*<�О*<НяО*<Н О*<Н"╙wО*<Н$цН-┘�О(■НХП$О&МН Н°yО%EНwО%EНҐ НШ�НЮyН-uО%E�О%EН..wО%EН1:�О#·Н'yНґО#·�О#·НxwО#·Н"h�yН#УО#·�О#·Н$■wН&pО#·�О#·Н&сО!ЖН'yН!RО!Ж�О!ЖН"wО!ЖН( �yН) О!Ж�О!ЖН*╛wН,SО!Ж�О!ЖН,І О OНЗyОїН'wОїНн Н"─Н%yН.ТОї�ОїН/ўwОїН2╨�О�Н8Нi�НЖП/ОXН8Н"fО╠Н8Н!s�Н"ЪyН,їО╠�О╠Н-FwН/"О╠�О╠Н/┘yО Н8wО НъyН#юО �О Н$zwО Н'├�ОbНIО╨НIН+ЁН/=Н1d ОНI�yОkН8wОkН┤�ОдНIП"ОНIНz�yН О�ОН ОwОuНIО мН8Ъ��K��TVm$л��5};PDInterpSysCalls.FreeSpace[temp];temp_NIL;};IFstate=NILTHENInternalReset[];};AllocMessages:INTERNALPROC={wordsAllocated:CARDINAL_SIZE[StringSeqRep[state.nWords]];IFmessages#NILTHEN{PDInterpSysCalls.FreeSpace[messages];messages_NIL};messages_PDInterpSysCalls.AllocateSpace[wordsAllocated];messages.nWords_wordsAllocated-SIZE[StringSeqRep[0]];messages.nStrings_messages.end_messages.mark_messages.nMarked_messages.nDiscarded_0;};InternalReset:INTERNALPROC={IFstate#NILTHEN{PDInterpSysCalls.FreeSpace[state];state_NIL};state_PDInterpSysCalls.AllocateSpace[maxStateWords];state.nWords_maxStateWords-SIZE[StringSeqRep[0]];state.nStrings_state.end_state.mark_state.nMarked_state.nDiscarded_0;AllocMessages[];};Reset:PUBLICENTRYPROC={InternalReset[]};newRequest:CONDITION;stringsPerRequest:CARDINAL=6;requestLimit:CARDINAL_1000;Requestsarenumberedmodulothisnumber.ReqNumberFromStringNumber:PROC[stringNumber:CARDINAL]RETURNS[requestNumber:CARDINAL]={requestNumber_(stringNumber/stringsPerRequest)MODrequestLimit;};DecodeCopies:PROC[tag:LONGSTRING]RETURNS[copies:CARDINAL]={copies_ORD[tag[2]]*256+ORD[tag[3]];};QueueRequest:PUBLICENTRYPROC[request:Request]RETURNS[requestNumber:INT]={ENABLEUNWIND=>NULL;tag:LONGSTRING_[4];IFstate=NILTHENRestore[];IFstate.nStrings>=stringsPerRequest*requestLimitTHENRETURN[-1];requestNumber_ReqNumberFromStringNumber[state.nStrings+state.nDiscarded];��qОg/НEи�wО_,Н'О]┘НП!О[щНН÷�yН,О[щ�О[щНwН7О[щ�О[щОZ5НyОX▌НwОX▌Н╛Нщ�yНбОX▌�ОX▌Н╙ОX▌НRwОX▌Н ОVФНuОS≈НСwНгОS≈�ОS≈yНеОS≈�ОS≈Н/ОS≈Н!WwОS≈Н$Ч�Н&Ц�ОQПНyН0ОQП�ОQПНШwОQПН#К�yН%xОQП�ОQПН&wН'СОQП�ОQПН(VyОPHНwОPHН╛Н┤�yНlОPH�ОPHНUОPHНЭwОPHН"бП&Н;⌠ОN║Нв�yНdОN║�ОN║НMwНpОN║�ОN║Н �ОLЗННЮ�НmП/ОKRННЙ�НwyН)ОKR�ОKRН)ҐwН+≥ОKR�ОKRН+ЭОI╙НН�НёН( �Н)√Н2ь�Н4eН@�ОHНвН п�Н"\ОF\НuОC НСwНУОC �ОC yНСОC �ОC Н]ОC Н ┘wОC Н$,�Н&�yОAeНwОAeН╛Нщ�yНбОAe�ОAeН╙ОAeНRwОAeН П#Н6>Н9o�yН:ЭОAe�ОAeН;ЕwН=ОAe�ОAeН=╦�О?ЎНН5�НбП.О>НН?�Нл yН&═О>�О>Н'?wН)О>�О>Н)~О<oН Нl�НЫН"Є�Н$A Н*ы�Н,eН5\�Н6ИО:гНв�НdО9 НО7xНuО4)НСwНDО4)�О4)yНBО4)�О4)НЙНЮО4)НfwО4)Н"�Н#СО0зНС yН/О0з�О0зНЗwНВО0з�О0зО-▀НСyН≈О-▀�О-▀НbwО-▀Н#R�Н%7О*<НСyН┤О*<�О*<НRwО*<Н B�Н!оxО(∙НН╒НЖН!&Н%ЯН(┼uО%EНСwН#≤О%E�О%EyН$√О%E�О%EН%=wО%EН(= yН1СО%E�О%EН2ЎwН8*О%E�О%EyН9О%E�О%EН9ЕwО#·НфyН{О#·�О#·НFwН"╡О#·�О#·Н#≥�Н%�О!ВННщ�НjyН3█О!В�О!ВН4·wО!ВН6ЕО OНuО�НСwНYО��О�yНWО��О�НЪwО�НЧyН!$О��О�Н!щО�Н%wН)│О��О�yН*hО��О�Н+<wО�Н0tyН5О��О�Н6JwН;ІО��О�Н<²�Н>┌�ОYНН3�yНюОY�ОYН°wНVОY�ОYН╧yН#yОY�ОYН$VwН&ОY�ОYН&sО╠НuОbНСwН▒Оb�ОbyН▌Оb�ОbН6ОbНGОbН#мwОbН'tН-%yН2БОb�ОbН3ІwО╩НфyН{О╩�О╩НЕwН┤О╩�О╩Нn�Н!S�yОНОН)wОНнyН cО�ОН!LwН#ёО�ООlНyНгОl�ОlН─ОlНЇwОlН╗�Н 5yОдНwОдН╛Нщ�yНбОд�ОдН╙ОдНRwОдН yОНwОН╛ НН╘yН3О�ОН3сОН6ъwОН<LОuННщ�О нНвП;Ъ��b��TVm$2��6String.AppendString[tag,""];String.AppendChar[tag,VAL[Inline.HighByte[CARDINAL[request.copies]]]];String.AppendChar[tag,VAL[Inline.LowByte[CARDINAL[request.copies]]]];Append[state,tag];Append[state,request.fileName];Append[state,request.requestTime];Append[state,request.requestor];Append[state,request.requestorPassword];Append[state,request.separator];IFstringsPerRequest#6THENERROR;BEGINmsg:LONGSTRING_[250];String.AppendString[msg,request.fileName];IFrequest.copies#1THEN{String.AppendString[msg,"("];String.AppendDecimal[msg,request.copies];String.AppendString[msg,"copies)"];};InternalLogMessage[msg,requestNumber,request.requestor];END;IFNOTdeferSavingTHENSave[];--savewillbedonewhencurrentrequestfinishes.NOTIFYnewRequest;};reprintCopies:CARDINAL_0;Reprint:PUBLICENTRYPROC[copies:CARDINAL]={reprintCopies_reprintCopies+copies;NOTIFYnewRequest;};printingSuspended:BOOLEAN_FALSE;GetSuspended:PUBLICENTRYPROCRETURNS[BOOLEAN]={RETURN[printingSuspended]};SetSuspended:PUBLICENTRYPROC[suspended:BOOLEAN]RETURNS[old:BOOLEAN]={old_printingSuspended;printingSuspended_suspended;NOTIFYnewRequest;};abortCurrent:BOOLEAN;FirstRequest:ENTRYPROCRETURNS[requestNumber:CARDINAL]={ENABLEUNWIND=>NULL;IFstate=NILTHENRestore[];requestNumber_ReqNumberFromStringNumber[state.nDiscarded];};FindRequest:ENTRYPROC[requestNumber:CARDINAL,tag:LONGSTRING,��qОg/НEи�wО_,НН"R�Н$О]┘НyН!╛О]┘�О]┘Н"wwН$О]┘�О]┘Н$fyН.EО]┘�О]┘Н/wН4{О]┘�О]┘Н4ъО[щНyН!╛О[щ�О[щН"wwН$О[щ�О[щН$fyН-КО[щ�О[щН.ІwН4"О[щ�О[щН4┘ОZ5НН╨ОX▌НН╨ОVФНН╨ОU?НН╨ОS≈НН╨ОQПНН╨yОPHНwОPHН╛Нж�Н!╩�yН"ПОPH�ОPHН#╘ОPHН&╣wН*фОPH�ОPHyОN║НwОLЫНyНrОLЫ�ОLЫН+ОLЫНbwОLЫН!S�Н"ЮОKRНН$ЩyОI╙НwОI╙НҐyН!єОI╙�ОI╙Н"]wОI╙Н%i�ОHН'Н'�Н(BОF[Н'Н(nОDЄН'Н'�Н(B ОCН'ОAeНН$╦ Н.ИyО?ҐНwН²О?Ґ�О?ҐyО>НО>НҐwО>Н© yН!JО>�О>Н"wО>Н%xН)∙О>�О>Н*�Н+Н-ШН0░Н2`Н5·Н9 О<nНХН┬yО:гНwО:гНЩ О9НО5пНС yНО5п�О5пНжwО5пН ф�Н"SuО2│НСwНbО2│�О2│yН`О2│�О2│НО2│НО2│Н÷wО2│Н#FyН(QО2│�О2│Н)wН.┬О2│�О2│Н/o�Н1T�О0зННё�Н0Н%н�Н'ЄyО/2НwО/2НЩ О-▀НО*<НСyН'О*<�О*<НАwО*<Н#L�yН$ыО*<�О*<Н%▓wН(wО*<�О*<uО&МНСwНdО&М�О&МyНaО&М�О&МН О&МНО&МН#═О&МН'GwО&МН-S�yН-ІО&М�О&МН.owН3VО&М�О&МН4>�Н6#�yН6сО&М�О&МН7їwО%EНфuО#·НСwН-О#·�О#·yН*О#·�О#·НрО#·НЦО#·Н#iwО#·Н' yН.їО#·�О#·Н/`wН4GО#·�О#·yН5/О#·�О#·Н6wО#·Н;:yО!ЖНфwНfО!Ж�О!ЖНN�Н3�О OННn�НШОїНН©�Н L yО�НwО�НЩ ОXНО НСyНЄО �О НmwНTО �О uО╨НСwН}О╨�О╨yНzО╨�О╨Н3О╨НО╨Н!╗wО╨Н'ЁyН2iО╨�О╨Н33wН8÷О╨�О╨Н9┤�Н;l�yОНОН)wОНнyН cО�ОН!LwН#ёО�ОyОkНwОkН╛Нщ�yНбОk�ОkН╙ОkНRwОkН ОдННщ�НjП,ОНuО мНС wН[О м�О мyНYО м�О мНО мНъwО мН!├yН,;О м�О мН-wН2rО м�О мН3OyН6О м�О мН6йО мН:wН>nО м�О м��9��TVm$К��7request:Request]={ENABLEUNWIND=>NULL;stringNumber:CARDINAL_requestNumber*stringsPerRequest;offset:CARDINAL_0;IFstate=NILTHENRestore[];WHILEstringNumber<state.nDiscardedDOstringNumber_stringNumber+requestLimit*stringsPerRequestENDLOOP;IFstringNumber-state.nDiscarded>=state.nStringsTHENRETURN;offset_StringOffset[state,stringNumber-state.nDiscarded];MoveToString[tag,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.fileName,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestTime,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestor,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestorPassword,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.separator,state,offset];IFstringsPerRequest#6THENERROR;};GetRequest:ENTRYPROC[request:Request]RETURNS[requestNumber:INT,copies:CARDINAL]={ENABLEUNWIND=>NULL;tag:LONGSTRING_[4];IFstate=NILTHENRestore[];DOoffset:CARDINAL_0;WHILEprintingSuspendedOR(state.nStrings=0ANDreprintCopies=0)DOWAITnewRequestENDLOOP;abortCurrent_FALSE;IFreprintCopies#0THEN{requestNumber_-1;copies_reprintCopies;reprintCopies_0;RETURN;};requestNumber_ReqNumberFromStringNumber[state.nDiscarded];MoveToString[tag,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.fileName,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestTime,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestor,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestorPassword,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.separator,state,offset];copies_DecodeCopies[tag];IFstringsPerRequest#6THENERROR;IFtag[0]='THENEXIT;��qОg/НEи�wО_,НфННп�Н╣�yО]┘НО]┘Н)wО]┘НнyН cО]┘�О]┘Н!LwН#ёО]┘�О]┘О[щНyНXО[щ�О[щН"wО[щН#�Н$═ОZ5НyНIОZ5�ОZ5НwОZ5Н�Н▒yОX▌НwОX▌Н╛Нщ�yНбОX▌�ОX▌Н╙ОX▌НRwОX▌Н yОVФНwОVФНeН ?�Н!tyН+бОVФ�ОVФН,ї�wОVФН.Н6Б�Н8oОU?Нв�Н╪yН)-ОU?�ОU?Н)ФwН.нОU?�ОU?yОS≤НwОS≤Н╛Н'хН*^ yН2еОS≤�ОS≤Н3~ОS≤Н6▀wН;sОS≤�ОS≤ОQПННо�Н\Н#{ОPIННіН"0Н&вН*╒�Н,/Н:5ОN║НН'Н*▐Н/7Н3�ОLЗНвН!чОKRНП!Н(СН,}Н1$Н4О�ОI╚НвН!чОHНН'Н*ёН/JН3�ОF\НвН!чОDЄНП'Н,²Н0&Н4нН8≥�ОC НвН!чОAfНН&ЬН*│yО?ЎНwО?ЎН╛Нж�Н!╩�yН"ПО?Ў�О?ЎН#╘О?ЎН&╣wН*фО?Ў�О?ЎО>НuО:хНС wНБО:х�О:хyНЮО:х�О:хН≥О:хНfwО:хН!Н&©yН,{О:х�О:хН-OwО:хН2┤yН=<О:х�О:хН=╔wН?GО:х�О:хО9 НфyНnО9 �О9 Н9wН╔О9 �О9 Н▄�Нq�yО7yНО7yН)wО7yНнyН cО7y�О7yН!LwН#ёО7y�О7yО5яНyНгО5я�О5яН─О5яНЇwО5яН╗�Н 5yО4*НwО4*Н╛Нщ�yНбО4*�О4*Н╙О4*НRwО4*Н yО2┌НwО0шНyНZО0ш�О0шН%wО0шН �Н!╒yО/3НwО/3НvyН%1О/3�О/3Н&�wО/3Н'fН0G�Н2,�yН3aО/3�О/3Н44wО/3Н6┤Н?%�О-▄НХyН√О-▄�О-▄Н|�О-▄НщwО-▄Нr yН%5О-▄�О-▄Н%НwН*жО-▄�О-▄О+ДНН]�yНЙО+Д�О+ДНёwН"┤О+Д�О+ДyО*=НwО*=НҐН[�Н!@�yН"uО*=�О*=Н#.wО*=Н&;�О(∙Н'Н Ъ�Н"▄О&НН'НU�НБ О%FН'Не�Н!RyО#÷Н'wНО#÷�О#÷О!ВН'О PННН�Н {П,О╗НН ╦Н$AН(ХН,Ё�Н.@Н<GОНН)Н,═Н1HН5�ОYНХН#ОО╡НП!Н+Н.▌Н35Н7��О НХН#ООcНН)+Н,ЄН1[Н5&�О╪НХН#ООНП'Н.ўН28Н6ъН:╙�ОmНХН#ООеНН) Н,▓ОННD�НяyОvНwОvНҐН!Г�Н#л�yН%Оv�ОvН%╨ОvН(фwН,ьОv�ОvyО оНwО оНҐН|�Нa�yНбО о�О оН{О оН!┬wН$8О о�О о��Р��TVm$��8Discard[state,stringsPerRequest];WHILEstate.nDiscarded>=stringsPerRequest*requestLimitDOstate.nDiscarded_state.nDiscarded-stringsPerRequest*requestLimit;ENDLOOP;ENDLOOP;};RemoveRequest:ENTRYPROC[requestNumber:CARDINAL]={ENABLEUNWIND=>NULL;IFstate=NILTHENRestore[];IFrequestNumber#ReqNumberFromStringNumber[state.nDiscarded]THENERROR;Discard[state,stringsPerRequest];deferSaving_FALSE;Save[];};DeferSaving:ENTRYPROC={ENABLEUNWIND=>NULL;deferSaving_TRUE;};DoDeferredSave:ENTRYPROC={ENABLEUNWIND=>NULL;deferSaving_FALSE;Save[];};DoRequest:PUBLICPROC[action:PROC[request:Request,requestNumber:CARDINAL,abort:LONGPOINTERTOBOOLEAN]]={fileName:LONGSTRING_[80];requestTime:LONGSTRING_[20];requestor:LONGSTRING_[80];requestorPassword:LONGSTRING_[80];separator:LONGSTRING_[80];requestNumber:INT;body:LONGPOINTERTOStringRep;copies:CARDINAL;aborted:BOOLEAN_FALSE;[requestNumber,copies]_GetRequest[[fileName,requestTime,requestor,requestorPassword,separator,0]];deferSaving_TRUE;DeferSaving[];IFrequestNumber<0THEN{LogMessage["Reprint."];action[[NIL,NIL,NIL,NIL,NIL,copies],NAT.LAST,@abortCurrent!ABORTED=>{aborted_TRUE;CONTINUE}];LogMessage["Reprintcompleted."];DoDeferredSave[];}ELSE{��qОg/НEи�wО_,Н Н■yО]┘НwО]┘НvН#дН&ZyН9кО]┘�О]┘Н:╟�wО[щН'Н!t�Н#Н-O�ОZ6НЗyОX▌Н'wНхОX▌�ОX▌yОVГНwНЇОVГ�ОVГОU?НuОQПНСwНbОQП�ОQПyН`ОQП�ОQПНОQПНФwОQПН#█yН.BОQП�ОQПН/ wН4yОQП�ОQПН5a�Н7F�yОPHНОPHН)wОPHНнyН cОPH�ОPHН!LwН#ёОPH�ОPHyОN║НwОN║Н╛Нщ�yНбОN║�ОN║Н╙ОN║НRwОN║Н yОLЫНwОLЫН╛Н└�Н iП+yОKRНвОKRН²wНўОKR�ОKRОI╚Н Н┐ОHН Н▐�yНОH�ОHНуwН╨ОH�ОHОF\НОDЄНuОAeНС wН:ОAe�ОAeyН7ОAe�ОAeНЯОAeНЎwОAeН!e�Н#J�yО?ҐНО?ҐН)wО?ҐНнyН cО?Ґ�О?ҐН!LwН#ёО?Ґ�О?ҐО>Н Н▐�yНО>�О>НуwНHО>�О>О<nНuО9НС wН╨О9�О9yНЇО9�О9НqО9Н >wО9Н#Е�Н%й�yО7xНО7xН)wО7xНнyН cО7x�О7xН!LwН#ёО7x�О7xО5пН Н▐�yНО5п�О5пНуwН╨О5п�О5пО4)НО2│НuО/2НСwНО/2�О/2yН}О/2�О/2Н$О/2Н5wО/2Н эyН%яО/2�О/2Н&ywО/2Н)xН/)Н4ш yО-▀НфwНЩО-▀�О-▀НыyНРО-▀�О-▀Н╚О-▀Н БО-▀Н&┐О-▀Н(²wН.=О-▀�О-▀Н.║�Н/┬�Н1m�О+ЦНyН~О+Ц�О+ЦН8О+ЦНowО+ЦН"`�Н#МО*<НyНlО*<�О*<Н%О*<Н]wО*<Н$N�Н%шО(■Н yН▓О(■�О(■НKО(■Н┌wО(■Н"t�Н$�О&МНyНО&М�О&МНоО&МН#wО&МН'В�Н)└О%EН yНpО%E�О%EН)О%EНawО%EН"R�Н#ъО#·Н yНVО#·�О#·НюwНbО#·�О#·О!ЖНyНЭО!Ж�О!ЖН╣О!ЖНЛО!ЖН █wО!ЖН"ї О OНyН╛О O�О OНwwНЦО O�О OОїНyН┴Ої�ОїНBwОїНў�yН ;Ої�ОїН ТwН#ыОї�ОїО�НН≤Н"*�Н#ЇН1ИН:/ ОXНвНг Н&О╠Н Н▐�yНО╠�О╠НуwНHО╠�О╠О Н yОbНwОbН╛Н└�Н╧�yН НОb�ОbН!їwОbН$Ё�О╨НОНyНpО�ОНXwН{О�ОyНXО�ОН@wНcО�ОyН@О�ОН (wН!KО�ОyН"(О�ОН#wН$3О�ОyН%О�ОН%ЫwН'О�ОН'ЬyН,БО�ОН-йwН/WО�yОН/ўwН2⌠О�ОН3oН=�yОkНХwОkНН≈Н$S�yН%ЮОk�ОkН&≥wН)Оk�ОkyН* Оk�ОkН*тwН0CОk�ОkН0СОдНН"▓ОНОuН�yО мНwО мНS��√��TVm$c��9body_LOOPHOLE[@(state[0])];IFbody.nChars#4THENERROR;body.char[1]_'P;LogMessage["Started.",requestNumber,requestor];action[[fileName,requestTime,requestor,requestorPassword,separator,copies],requestNumber,@abortCurrent!ABORTED=>{aborted_TRUE;CONTINUE}];IFabortedTHENLogMessage["Aborted.",requestNumber,requestor]ELSELogMessage["Completed.",requestNumber,requestor];RemoveRequest[requestNumber];};};CancelRequest:PUBLICENTRYPROC[requestNumber:CARDINAL]RETURNS[ok:BOOLEAN]={stringNumber:CARDINAL_requestNumber*stringsPerRequest;body:LONGPOINTERTOStringRep;IFstate=NILTHENRestore[];WHILEstringNumber<state.nDiscardedDOstringNumber_stringNumber+requestLimit*stringsPerRequestENDLOOP;IFstringNumber-state.nDiscarded>=state.nStringsTHENRETURN[FALSE];body_LOOPHOLE[@(state[StringOffset[state,stringNumber-state.nDiscarded]])];IFbody.nChars#4THENERROR;IFbody.char[0]#'THENRETURN[FALSE];body.char[0]_'X;IFstringNumber=state.nDiscardedTHENabortCurrent_TRUE;RETURN[TRUE];};RequestStatus:TYPE=PDQueue.RequestStatus;CheckRequest:PUBLICPROC[requestNumber:CARDINAL,action:PROC[request:Request,status:RequestStatus]]={tag:LONGSTRING_[4];status:RequestStatus;fileName:LONGSTRING_[80];requestTime:LONGSTRING_[20];requestor:LONGSTRING_[80];requestorPassword:LONGSTRING_[80];separator:LONGSTRING_[80];tag.length_0;FindRequest[requestNumber,tag,[fileName,requestTime,requestor,requestorPassword,separator,0]];IFtag.length=0THENstatus_notFoundELSEIFtag[0]='XTHENstatus_canceledELSEIFtag[1]='PTHENstatus_printingELSEstatus_waiting;action[[fileName,requestTime,requestor,requestorPassword,separator,DecodeCopies[tag]],status];};��qОg/НEи�wО_,НН⌠�yН О_,�О_,НыwН oО_,�О_,Н рyО]└НwО]└НҐ Нк�Н ╠�yН!ЕО]└�О]└Н"·О]└Н%╚wН)╪О]└�О]└О[щННМ�НzОZ5НН# Н-к ОX▌ННиН( Н.|Н:l ОVФНХНр Н%Н.╚�yН/╗ОVФ�ОVФН0|wОVФН5бН8WН>�yОU?НХwНОU?�ОU?yНОU?�ОU?НщwН LОU?�ОU?Н ЭyОS≈НwОS≈НҐyНхОS≈�ОS≈Н│wОS≈Н▌Н.б Н8С yОQПНwОQПНdН)< Н3m ОPHНОN║НОLЫНuОI╙НСwН╪ОI╙�ОI╙yН╨ОI╙�ОI╙НbОI╙НsОI╙Н#ЫwОI╙Н'═yН2UОI╙�ОI╙Н3 wН8▄ОI╙�ОI╙yН9tОI╙�ОI╙Н:HwОHНфyН²ОH�ОHНWwН>ОH�ОHН%�Н �ОF[НyНXОF[�ОF[Н"wОF[Н#�Н$═ОDЁНyНЭОDЁ�ОDЁН╣ОDЁНЛОDЁН █wОDЁН"ї yОCНwОCН╛Нщ�yНбОC�ОCН╙ОCНRwОCН yОAdНwОAdНeН ?�Н!tyН+бОAd�ОAdН,ї�wО?╪ННО�Н|П+yО>НwНЇО>�О>yО<mНwО<mН╛Н'хН*^ yН2еО<m�О<mН3~О<mН6▀wО<mН;В�yН<ZО<m�О<mН=wН?ЬО<m�О<mН@[�О:фНН┌�yНО:ф�О:фНхwН^О:ф�О:фНаО9НвП"yО7wНwО7wН╛ Н╨�Н÷�yНтО7w�О7wН █О7wН#≥wН'╚О7w�О7wyО5оНwО5оН╛Н┐�Нh�yНиО5о�О5оН ┌О5оН#▐wО5оН(Ш�yН)^О5о�О5оН*wН,ЭО5о�О5оН-_�О4'ННэ�НiyО2─НwО2─Н╛Н┘�НkyН)╦О2─�О2─Н*qwО2─Н-~Н5е�yН7RО2─�О2─Н8wН:}О2─�О2─yО0ьНwО0ьНq�yНтО0ь�О0ьН█wН�О0ь�О0ьНc�О/1НО+АНС yН[О+А�О+АНwО+АНл�Н╡uО*:НСwНeО*:�О*:yНbО*:�О*:Н О*:НwО*:Н"бyН-wО*:�О*:Н.BwН3ўО*:�О*:Н4┼yН9О*:�О*:Н9дwО(⌠НфНwН(Н!yН+-�Н-�О&КНyНгО&К�О&КН─О&КНЇwО&КН╗�Н 5О%CННU О#°НyН~О#°�О#°Н8О#°НowО#°Н"`�Н#МО!ТНyНlО!Т�О!ТН%О!ТН]wО!ТН$N�Н%шО MН yН▓О M�О MНKО MН┌wО MН"t�Н$�О╔НyНО╔�О╔НоО╔Н#wО╔Н'В�Н)└ОЩН yНpОЩ�ОЩН)ОЩНawОЩН"R�Н#ъОVН НZ�НГОўНН%EН'Ф Н.╒Н6И ОНвНг Н&yО_НwО_Н╛ Н�НФ�yНО_�О_НтwО_Н!ЮН%Ї�Н'DyО╦НО╦НSwО╦НЗН╨�Н÷yН┘О╦�О╦Н >wО╦Н#JН'!�Н(ўyОНОНSwОНЗН╨�Н÷yНMО�ОН wОН#Н&И�Н(vyОhНwОhНSН*�НЇОаНН╦Н%Ч Н,jН8Z ОНвН 6ОrН��D��TVm$⌡��10CountRequests:PUBLICENTRYPROCRETURNS[requestCount:NAT]={IFstate=NILTHENRestore[];requestCount_state.nStrings/stringsPerRequest;};EnumerateRequests:PUBLICPROC[action:PROC[requestNumber:CARDINAL,request:Request,status:RequestStatus]RETURNS[continue:BOOLEAN]]={firstRequest:NAT_FirstRequest[];nRequests:NAT_CountRequests[];requestNumber:NAT_firstRequestMODrequestLimit;THROUGH[0..nRequests)DOcontinue:BOOLEAN_TRUE;myAction:PROC[request:Request,status:RequestStatus]={IFstatus=printingORstatus=waitingTHENcontinue_action[requestNumber,request,status];};CheckRequest[requestNumberMODrequestLimit,myAction];IFNOTcontinueTHENEXIT;requestNumber_(requestNumber+1)MODrequestLimit;ENDLOOP;};RegisterDisk:PUBLICENTRYPROC[read,write:PROC[address:LONGPOINTER,nwords:CARDINAL],maxWords:CARDINAL]={IFstate#NILTHEN{PDInterpSysCalls.FreeSpace[state];state_NIL;};readProc_read;writeProc_write;maxStateWords_maxWords;};LogMessage:PUBLICENTRYPROC[message:LONGSTRING,requestNumber:INT_-1,userName:LONGSTRING_NIL]={InternalLogMessage[message,requestNumber,userName];};InternalLogMessage:INTERNALPROC[message:LONGSTRING,requestNumber:INT_-1,userName:LONGSTRING_NIL]={msg:LONGSTRING_[250];Time.AppendCurrent[msg];msg[msg.length]_';msg.length_msg.length+1;IFrequestNumber>=0THEN{String.AppendChar[msg,'R];FORi:CARDINAL_requestLimit/10,i/10WHILEi#0DOString.AppendDecimal[msg,(requestNumber/i)MOD10];ENDLOOP;String.AppendChar[msg,'];};String.AppendString[msg,message];��qОg/НEuО_,НСwНщО_,�О_,yНшО_,�О_,Н┐О_,Н⌠О_,Н$О_,Н'аwО_,Н-м yН73О_,�О_,Н8wН9╗О_,�О_,Н:▐�Н<u�yО]┘НwО]┘Н╛Нщ�yНбО]┘�О]┘Н╙О]┘НRwО]┘Н О[щНН▌�НП!ОZ5НuОVФНСwН╘ОVФ�ОVФyНїОVФ�ОVФНOОVФН"_wОVФН&yН*ЭОVФ�ОVФН+ёwОVФН.ёyН9XОVФ�ОVФН:#wН?▐ОVФ�ОVФОU?НфННеН! yН*gОU?�ОU?Н+;wОU?Н0s yН6УОU?�ОU?Н7ўwН<∙ОU?�ОU?Н<Ь�Н=Ю�Н?е�ОS≤НyН+ОS≤�ОS≤НwОS≤Н$�Н╠ОQПН yН"ОQП�ОQПН wОQПН�Н╗ОPIН yНVОPI�ОPIН?wОPIН P�Н!щyН)┴ОPI�ОPIН*⌡wОPIН,АyОN║НwОN║Н▓ yН"rОN║�ОN║Н#X�wОLЗНyН5ОLЗ�ОLЗННwОLЗН!Y�yН"ФОLЗ�ОLЗН#÷wН&ОLЗ�ОLЗОKRНyНДОKR�ОKRН▄wОKRН▀Н%<Н*НН/> Н8▐�Н:t�yОI╙Н'wОI╙НнН╔�Н┼yН#лОI╙�ОI╙Н$╗�wОI╙Н&Н)ь�Н+ҐyН0░ОI╙�ОI╙Н1IwОI╙Н4UН9Ш�ОHНЗН&"Н+NОF\Н'ОC НyН'ФОC �ОC Н(ЬwОC Н+>Н3╠ yОAeНОAeНҐwОAeН©yНeОAe�ОAeН ОAeН#+wН%шОAe�ОAeО?ЎННН�Н { Н*м�Н,╡yН.`О?Ў�О?ЎН/rwО?ЎН1╦yО>НwНЇО>�О>О<oНuО9НСwН²О9�О9yН⌡О9�О9НCО9НSО9Н"зwО9Н&│Н*WyН.NО9�О9Н.УwО9Н1УyН7╩О9�О9Н8uО9Н;╛wН@иО9�О9О7xНфyНО7x�О7xНчwНJО7x�О7xНґ�Н┴yН%РО7x�О7xН&ҐwН,)О7x�О7xН-�Н.Ж�yО5яНwО5яН╛Нщ�yНбО5я�О5яН╙О5яНRwО5яН �О4)НП"О2┌ННG�yНсО2┌�О2┌Н╪wНъО2┌�О2┌О0зНО/3ННк�НXО-▀НН.�Н╩О+ДННЦ�НpО*<НuО&МНС wНqО&М�О&МyНoО&М�О&МНО&МН'О&МН"ўwО&МН&UyН,┴О&М�О&МН-BО&МН0ywН4ФО&М�О&МН5ц yО%FНфwО%FНV�НЦНИyНСО%F�О%FН╛О%FН"ДwО%FН'у�yН)bО%F�О%FН*JwН+mО%F�О%FН,T�Н.:�О#·НН% Н/M О!ВНuО╗НСwН"О╗�О╗yН О╗�О╗Н┼О╗Н$╡wО╗Н(YyН.█О╗�О╗Н/FО╗Н2}wН6ЙО╗�О╗Н7г yО�НфwО�НV�НЦНИyНСО��О�Н╛О�Н"ДwО�Н'у�yН)bО��О�Н*JwН+mО��О�Н,T�Н.:�ОYНyН`ОY�ОYНОYНQwОYНB�Н оО╠НО НН�Н╔�Н┌�Н ─ Н'o�Н(Э Н/К�Н1яyОbНwОbН╛Н└Н!�yН"NОb�ОbН#wОbН&�О╩НН$WyОНwОНyНdО�ОН/wОН �Н!╛Н,0yН/)О�ОН0CwОН3┼yН6┌О�ОН7h�wОlН'Н(nyН4MОl�ОlН5_wОlН7╔yОдН'wНхОд�ОдОНН$W�Н%3ОuНО нНН"К��╒��TVm$н��11IFuserName#NILTHEN{String.AppendString[msg,"("];String.AppendString[msg,userName];String.AppendChar[msg,')];};IFstate=NILTHENRestore[];DiscardMessages[messages.nWords-SIZE[StringBody[msg.length]]];Append[messages,msg];TryToPrintMessages[];};loggingMessages:BOOLEAN_FALSE;firstUnprintedMessage:CARDINAL_0;writeLineProc:PROC[LONGSTRING]_NIL;RegisterTTY:PUBLICENTRYPROC[writeLine:PROC[LONGSTRING]]={writeLineProc_writeLine;};TryToPrintMessages:INTERNALPROC={msg:LONGSTRING_[250];GetMsg:INTERNALPROC[n:CARDINAL]RETURNS[ok:BOOLEAN]={msg.length_0;IFn<messages.nDiscardedTHENRETURN[TRUE];IFn-messages.nDiscarded>=messages.nStringsTHENRETURN[FALSE];AppendToString[msg,messages,StringOffset[messages,n-messages.nDiscarded]];RETURN[TRUE];};IFNOTloggingMessagesORwriteLineProc=NILTHENRETURN;FORi:CARDINAL_firstUnprintedMessage,i+1UNTILNOTGetMsg[i]DOwriteLineProc[msg!ABORTED=>CONTINUE];firstUnprintedMessage_i+1;ENDLOOP;};SetLogState:PUBLICENTRYPROC[logging:BOOLEAN]RETURNS[old:BOOLEAN]={old_loggingMessages;loggingMessages_logging;IFmessages#NILTHENTryToPrintMessages[];};EnumerateMessages:PUBLICPROC[action:PROC[message:LONGSTRING]RETURNS[continue:BOOLEAN]]={msg:LONGSTRING_[250];FORi:CARDINAL_GetNumberDiscardedMessages[],i+1UNTILNOTGetString[msg,messages,i]DOIFNOTaction[msg].continueTHENEXIT;ENDLOOP;};��qОg/НEyО_,НwО_,Н╛yНО_,�О_,НО_,Н╘wО_,Н"n�О]└НН$Щ�Н&1О[щНН$Щ ОZ5НН$WОX▌НyОVФНwОVФН╛Нщ�yНбОVФ�ОVФН╙ОVФНRwОVФН ОU>НyН(XОU>�ОU>Н(ВwН*сОU>�ОU>Н+6ОS≈ННeОQОНОPHНОLЬНСyНнОLЬ�ОLЬН┤wОLЬН!Р�yН#ОLЬ�ОLЬН$8wН'ОLЬ�ОLЬОKQНСyНyОKQ�ОKQН DwОKQН&5�Н'аОI╘НС yНMОI╘�ОI╘НТwНpОI╘�yОI╘НсОI╘Н!цwН&0ОI╘�ОI╘Н'�yН(╔ОI╘�ОI╘Н)█wН*╟ОI╘�ОI╘uОFZНС wНЇОFZ�ОFZyНЄОFZ�ОFZН\ОFZНmОFZН"СwОFZН& yН-╚ОFZ�ОFZН.SwН0нОFZ�yОFZН11ОFZН5"wН9▐ОFZ�ОFZН9Р�Н:ы�Н<Ў�ОD╡ННЕ�Нq ОCНuО?╪НСwН}О?╪�О?╪yН{О?╪�О?╪НЕО?╪Н% wО?╪Н(Є�Н*≥�О>НyН`О>�О>НО>НQwО>НB�Н оuО<lНwНвО<l�О<lyНуО<l�О<lН?О<lНgwО<lН#yН%5О<l�О<lН&�wН+lО<l�О<lyН,TО<l�О<lН-(wО<lН2_yН57О<l�О<lН5ПwН:вО<l�О<lН;Ў�Н=ё�О:еН Н�Н▓yО9НwО9НҐ�Н�Н<yН&5О9�О9Н&НО9Н)ЗwО9Н/g�yН/йО9�О9Н0┐wН2УО9�О9Н3X�yО7vНwО7vНҐН$УН'▀yН2²О7v�О7vН3VО7vН6bwО7vН;о�yН<2О7v�О7vН<КwН?пО7v�О7vН@3�О5нНН"ЄН(ХО4'НХyО2НwО2Н┌�yНЕО2�О2Н·wНО2�О2Нt�О0ьНyО/0НО/0Н╛wО/0НўyН"О/0�О/0Н"Л�wО/0Н$DН-$�yН/ О/0�О/0Н/РО/0Н1≥О/0Н5^wН:FО/0�О/0yО-┬НwО-┬НРyНSО-┬�О-┬НwО-┬Н�Н⌡Н.�yН0ЫО-┬�О-┬Н1чО-┬Н5'wО-┬Н8)yН>═О-┬�О-┬Н?┘�wО+АНН Ї�yН!╣О+А�О+АН"┬wО+АН'нyН*dО+А�О+АН+/wН0·О+А�О+АН1�О*9НН#"�Н$╞yО(▓НwНЇО(▓�О(▓О&ЙНuО#⌡НС wНgО#⌡�О#⌡yНdО#⌡�О#⌡НО#⌡НО#⌡Н"ёwО#⌡Н&JyН,О#⌡�О#⌡Н,ЎwН1╔О#⌡�О#⌡yН2▄О#⌡�О#⌡Н3`wО#⌡Н8≤yО!СНфwНfО!С�О!СНN�Н3�О LННn�НШОєННe�НРyОЩНwОЩН╛Н┤�yНlОЩ�ОЩНUОЩНЭwОЩН"бОUНuОНСwНО�ОyНО�ОНҐОН"нwОН&uyН+jО�ОН,wН.█О�ОН.ПyН4юО�ОН5zОН8╠wН=О�ОyО^НфwО^Нр yНTО^�О^Н wН#ТО^�О^Н$X�Н%?�Н'$�ОЇНyН`ОЇ�ОЇНОЇНQwОЇНB�Н оyОНwОНРyНSО�ОНwОН�Н⌡Н4yН6ЗО�ОН7ЮОН;)wОhНв НGН#{yН$фОh�ОhН%╛�ОюНОюНҐwОюН©yН&vОю�ОюН'/ОюН*;wН,КОю�ОюyОНwНЇО�ООqН��TVm$д��12END.��qОg/НEyО_lНСwН{О_l�О_lЪ��TVm$��PDRemoteStream.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19841:58:46pmPDTDIRECTORYStreamUSING[Handle];PDRemoteStream:DEFINITIONS=BEGINLookup:PROC[fileName:LONGSTRING,createDate:LONGSTRING,name,password:LONGSTRING]RETURNS[bytes:INT];Ifsuccessful,explandsfileNametoincludespecificversion.Ifunsuccessful,raisesError,below.Read:PROC[fileName:LONGSTRING,name,password:LONGSTRING,action:PROC[Stream.Handle]];MayraiseError,below.Error:ERROR[expl:LONGSTRING,retryable:BOOLEAN];retryableisahintthatitmaybeworthittotryagainlater.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН(\Н*їyОX²НБwОX²НKyНЧОX²�ОX²НЦwОX²НGОUNНБyНїОUN�ОUNН▄ wОUNН"ф�yН$╚ОUN�ОUNН%euОQЪНСwНxОQЪ�ОQЪyНvОQЪ�ОQЪНwОQЪН yН ЗОQЪ�ОQЪН!ЁОQЪН$КwН)XОQЪ�ОQЪН*4 yН1┴ОQЪ�ОQЪН2BОQЪН5zwН9ФОQЪ�ОQЪН:цОPXНфyН=ОPX�ОPXНЖОPXН.wН ОPX�ОPXyН!┌ОPX�ОPXН"VwОPXН'█yН+ЧОPX�ОPXН,hwН. ОPX�ОPXН.m�xОN╠НН▓ НН ╣Н&~Н(#Н,оН1█ОM НН▓Н⌠Н RН$_uОI╩НСwНВОI╩�ОI╩yНУОI╩�ОI╩Н°wОI╩Н° yНyОI╩�ОI╩Н 2ОI╩Н#jwН'вОI╩�ОI╩Н(ЁН,кyН3BОI╩�ОI╩Н3ШОI╩Н72wН;÷ОI╩�ОI╩Н<|yОHНфwНИОH�ОHНLxОFlНН3НnН{uОCНСwН#ОC�ОCyН ОC�ОCНзwОCНІyН≈ОC�ОCНPОCН!┤wН%ТОC�ОCН&я yН-ОC�ОCН-йwН2╠ОC�ОCН3�xОAvНН═Н�НAНН ФН"=Н%-Н&ЩН*йН,"Н-гН/ЕН3°yО>'НСwН{О>'�О>'Ъ��1��TVm$⌠��PDRemoteStreamStub.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September5,198410:18:39pmPDTDIRECTORYIO,Stream,STP,Rope,PDRemoteStream,String,Commander,PDQueue;PDRemoteStreamStub:PROGRAMIMPORTSRope,STP,String,Stream,Commander,PDQueue,IOEXPORTSPDRemoteStream=BEGINError:PUBLICERROR[expl:LONGSTRING,retryable:BOOL]=CODE;RopeFromString:PROC[string:LONGSTRING]RETURNS[Rope.ROPE]={i:INTEGER_-1;fet:SAFEPROCRETURNS[CHAR]=TRUSTED{RETURN[string[i_i+1]]};IFstring=NILTHENRETURN[NIL];RETURN[Rope.FromProc[string.length,fet]];};Rs:PROC[string:LONGSTRING]RETURNS[Rope.ROPE]=RopeFromString;AppendRope:PROC[string:LONGSTRING,rope:Rope.ROPE]={action:Rope.ActionType=TRUSTED{string[string.length]_c;string.length_string.length+1;};[]_rope.Map[action:action];};Retryable:PROC[code:STP.ErrorCode]RETURNS[BOOL]={RETURN[SELECTcodeFROMconnectionTimedOut,connectionRejected,connectionClosed,noConnection,noNameLookupResponse=>TRUE,ENDCASE=>FALSE]};Lookup:PUBLICPROC[fileName:LONGSTRING,createDate:LONGSTRING,name,password:LONGSTRING]RETURNS[bytes:INT]={bytes_MyLookup[fileName,createDate,name,password!STP.Error=>TRUSTED{expl:LONGSTRING_[80];AppendRope[expl,error];ERRORError[expl:expl,retryable:Retryable[code]]};];};ParseTest:PROC[fileName:Rope.ROPE]RETURNS[server,rest:Rope.ROPE]={f:LONGSTRING_[80];s:LONGSTRING_[80];��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н -Н#sН) Н+WyОX▌НБОX▌НKwН▒ОX▌�ОX▌НmyНyОX▌�ОX▌НwНyОX▌�ОX▌Н UН$bН0Н4v ОVГН╣ОS≤НБyНjОS≤�ОS≤НОQПНСwОQПНёyН╟ОQП�ОQПНOwН╟ОQП�ОQПН█Н!ЩН' Н/NН6yОPIНСwОPIН╣ ОN║НС�yНьОN║�ОN║Н▒wОKRНСyН ОKR�ОKRНхОKRНыwОKRНoyН"OОKR�ОKRН#ОKRН&@wН*ґОKR�ОKRН+┴ yН1иОKR�ОKRН2┌wН4ТОKR�ОKRН5э�yН7аОKR�ОKRН8▄wН;ОKR�ОKRuОHНС wНзОH�ОHyНьОH�ОHН─wОHНyН$1ОH�ОHН$ЙОHН("wН,▐ОH�ОHyН-vОH�ОHН.JwОHН3┌yН7mОH�ОHН8AwН:~ОH�ОHН;f�Н=K�ОF[НyНeОF[�ОF[НоwОF[Н)�НІОDЄНyН░ОDЄ�ОDЄН/ОDЄНЫОDЄН═wОDЄН"╛�yН#ОDЄ�ОDЄН#зwН&gОDЄ�ОDЄН'O�yН)4ОDЄ�ОDЄН)МwОDЄН/"�yН/рОDЄ�ОDЄН0іwОDЄН5?yОCНwОCН╛Н│�yНfОC�ОCНOОCНЖОCН ╪wОCН&(�yН&▀ОC�ОCН'twН(≈ОC�ОCН(З�yОAeНwОAeНqН*ВО?ҐНuО<nНСwН─О<n�О<nyН~О<n�О<nН%wО<nН%yНвО<n�О<nН░О<nНхwН$5О<n�О<nyН%О<n�О<nН%ПwО<nН+(yН/О<n�О<nН/ГwН2$О<n�О<nН3�Н4ЯuО9НС wНgО9�О9yНdО9�О9НwО9НyН!ЎО9�О9Н"wО9Н%ўwН*О9�О9Н*ЬН.║yН2*О9�О9Н2ЩwН5;О9�О9Н6"�Н8�О7xНН√Н"·�yН$┐О7x�О7xН%<wО7xН*q�О5пНН!�Н"²О4)ННЬ�Н┘Н&h�Н(MО2│НО0зННO�НэН √О/2НuО+ЦНСwНёО+Ц�О+ЦyН═О+Ц�О+ЦНHwО+ЦНHyНkО+Ц�О+ЦН wН!kО+Ц�О+ЦН!б yН(ЪО+Ц�О+ЦН)сwО+ЦН/ �yН/nО+Ц�О+ЦН0'wН2≥О+Ц�О+ЦН3─�Н5e�yО*<НwО*<Нq�yНтО*<�О*<НswО*<НїyН НО*<�О*<Н!їwО*<Н$МН2kО(■НвН8Н(qН8[yН:ЯО(■�О(■Н;╙wН>О(■�О(■yО&МНвwО&МНзyНoО&М�О&МН(wН О&М�О&МО%EНuО!ЖНСwНxО!Ж�О!ЖyНvО!Ж�О!ЖНО!ЖН.wО!ЖНж yН%ЁО!Ж�О!ЖН&lО!ЖН)ёwН.О!Ж�О!ЖН.М yН6AО!Ж�О!ЖН6ШО!ЖН:2wН>÷О!Ж�О!ЖО OНфНчyНUО O�О OНО OН EwН$╡О O�О OyН% О O�О OН&mwО OН+╔yН0О O�О OН0─wН2!О O�О OН3 �Н4Н�О╗НН≤�Н%Н%▐ Н,цН0зН6ь�yО�НwНО��О�НmН!yНІО��О�НowО�Н#є�ОYН'yНєОY�ОYН]ОYН∙wОYН#├�Н%О╠Н'Н"ЮyО Н'wО Н╪ Н"мН&) Н,iОbН'О╨НОНuОдНСwНФОд�ОдyНЦОд�ОдН▀wОдН▀ Н"hyН%ПОд�ОдН&дwН)Од�ОдyН)ИОд�ОдН*╪wОдН/ТН4╪Н7жyН;_Од�ОдН<3wН>pОд�ОдН?W�ОНф�ОuНyН{Оu�ОuН4ОuНlwОuН]�НЙО нНyН├О н�О нН?О нНwwО нНh�НУ��*��TVm$��2r:LONGSTRING_[80];AppendRope[f,fileName];ParseName[f,s,r];server_Rs[s];rest_Rs[r];};ParseName:PUBLICPROC[fileName,server,rest:LONGSTRING]={state:NAT_0;server.length_0;rest.length_0;FORi:NATIN[0..fileName.length)DOc:CHAR_fileName[i];charType:NAT_SELECTcFROM'[=>0,'/=>1,']=>2,'<=>3,'>=>4,'!=>5,IN['0..'9],IN['a..'z],IN['A..'Z]=>6,'-,'+,'$,'.,''=>6ENDCASE=>Error[expl:"Illegalcharacterinfilename",retryable:FALSE];SELECTstate*7+charTypeFROM0*7+0=>state_1;0*7+1=>state_7;1*7+6=>{server[server.length]_c;server.length_server.length+1};1*7+2=>state_2;2*7+3=>{state_3;rest[rest.length]_'<;rest.length_rest.length+1};3*7+6,3*7+4=>{rest[rest.length]_c;rest.length_rest.length+1};3*7+5=>{state_4;rest[rest.length]_c;rest.length_rest.length+1};4*7+6=>{rest[rest.length]_c;rest.length_rest.length+1;IFcIN['0..'9]THENstate_5ELSEIFc='lORc='LORc='hORc='HTHENstate_6ELSEstate_9};5*7+6=>{rest[rest.length]_c;rest.length_rest.length+1;IFcNOTIN['0..'9]THENstate_9};7*7+6=>{server[server.length]_c;server.length_server.length+1};7*7+1=>{state_8;rest[rest.length]_'<;rest.length_rest.length+1};7*8+6=>{rest[rest.length]_c;rest.length_rest.length+1};7*8+1=>{rest[rest.length]_'>;rest.length_rest.length+1};��qОg/НEи�wО_,НyН├О_,�О_,Н?О_,НwwО_,Нh�НУО]┘ННЇ О[щННzНзОZ5НН�Н·ОX▌НН╔�Н2ОVФНuОS≈НСwНаОS≈�ОS≈yНЎОS≈�ОS≈НfОS≈НwwОS≈Н! Н'зН,?yН/YОS≈�ОS≈Н0ОS≈Н3JwН7ЇОS≈�ОS≈Н8·�Н:┐�ОQПНyН╞ОQП�ОQПН≈wОQПН╗�Н5ОPHНН�Н╙ОN║Н Н╡�Н?yОLЫНwОLЫНРyНSОLЫ�ОLЫН;ОLЫНLwОLЫН#yН(lОLЫ�ОLЫН)R�wОKRНyНўОKR�ОKRНywОKRН▀�НОI╙НyНёОI╙�ОI╙Н▄wОI╙Н°�yН )ОI╙�ОI╙Н хwОI╙Н$Э�yН&ОI╙�ОI╙Н&тwОHН'НfНЭОF[Н'НЄНIОDЄН'НfНЭОCН'НЄНIОAeН'НЄНIО?ҐН'Н}НyО>Н'wО>НЩyН`О>�О>Нй�wО>Н7yН#yО>�О>Н#Б�wО>Н%OН)ИН,~О<nН'НуНjНOНшН Н"і�yО:гН'wО:гН)НЎ Н&оН+╛Н1∙Н3C Н9П yО9НЗwН≤О9�О9НШ�yО7xНwО7xНХyН%kО7x�О7xН&$wО5пН'НмНcН!■�Н#!О4)Н'НмНcН!■�Н#!О2│Н'НмНcН+{�Н-Н.═Н6╨�Н8FО0зНЗ�НъО/2Н'НмНcН!■�Н#!О-▀Н'НмНcН"D�Н#яН%Н/�Н0²Н2ё Н9Q�Н:ч О+ДНЗ�НъО*<Н'О(■Н'НмНcН(є�Н*1Н+й Н2w�Н4 Н:╡�Н<≈О&МН'НмНcН"D�Н#яН%Н/�Н0²Н25 Н8Ц�Н:p О%FНЗ�НъО#·Н'НмНc�О!ВН8Н"и�Н$VН%Н Н,°�Н.) Н4в�Н6╪yО OН8wО OНъ�yНЧО O�О OНh�wО OНуyН!ЮО O�О OН"≥wО OН%╔Н(ж�Н*c�yО╗Н8О╗Н┤wО╗Н.�НM�Н!2yН"rО╗�О╗Н#N�wО╗Н$і�Н%ф�Н'╚yН)oО╗�О╗Н*K�wО╗Н+ё�Н,б�Н.╗yН0KО╗�О╗Н1'�wО╗Н2─yН6xО╗�О╗Н71wО╗Н:=Н=n�Н>Ш�yО�Н8wО�Н┤Н╦�Н!E�ОYН8О╠Н'НмНc�О Н8Н"и�Н$VН%Н Н,°�Н.) Н4в�Н6╪yОbН8wОbНъ�yНЧОb�ОbНГОbНwОbН вyН$БОb�ОbН%⌡wОbН(їН+ь�Н-e�О╨Н8ОН'НмНcН+{�Н-Н.═Н6╨�Н8FОlНЗ�НъОдН'НмНcН"D�Н#яН%Н/�Н0²Н2ё Н9Q�Н:ч ОНЗ�НъОuН'НмНcН(є�Н*1Н+й Н2w�Н4 Н:╡�Н<≈О нН'НмНcН(є�Н*1Н,7 Н2Е�Н4r Н; �Н=Ъ��║��TVm$;��37*8+5=>{state_4;rest[rest.length]_c;rest.length_rest.length+1};ENDCASE=>Error[expl:"Illegalfilename",retryable:FALSE];ENDLOOP;SELECTstateFROM3,8=>{rest[rest.length]_'!;rest[rest.length+1]_'H;rest.length_rest.length+2};5,6=>NULL;ENDCASE=>Error[expl:"Illegalfilename",retryable:FALSE];};MyLookup:PROC[fileName,createDate,name,password:LONGSTRING]RETURNS[bytes:INT_0]={server:LONGSTRING_[80];rest:LONGSTRING_[80];stp:STP.Handle_STP.Create[];open:BOOL_FALSE;BEGINENABLEUNWIND=>{IFopenTHENstp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.Destroy};expandedName:LONGSTRING_[80];success:BOOLEAN_FALSE;NoteFileProc:STP.NoteFileProcType=TRUSTED{fileInfo:STP.FileInfo_stp.GetFileInfo[];continue_no;success_TRUE;AppendRope[expandedName,file];bytes_fileInfo.size;createDate.length_0;AppendRope[createDate,fileInfo.create];};desiredProps:STP.DesiredProperties_ALL[FALSE];desiredProps[directory]_TRUE;desiredProps[nameBody]_TRUE;desiredProps[version]_TRUE;desiredProps[createDate]_TRUE;desiredProps[size]_TRUE;ParseName[fileName,server,rest];String.AppendChar[expandedName,'[];String.AppendString[expandedName,server];String.AppendChar[expandedName,']];[]_stp.Open[Rs[server]];open_TRUE;stp.Login[Rs[name],Rs[password]];stp.SetDesiredProperties[desiredProps];stp.Enumerate[Rs[rest],NoteFileProc];stp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.Destroy;IFsuccessTHEN{String.Copy[to:fileName,from:expandedName]}ELSEError[expl:"Filenotfound",retryable:FALSE];END;��qОg/НEи�wО_,Н'НмНcН"D�Н#яН%Н/�Н0²Н25 Н8Ц�Н:p О]┘НЗ�НъyО[щН'wО[щН)НЎ Н&оН+╛ Н2Z yН8≥О[щ�О[щН9SwН<7О[щ�О[щН<⌡�yОZ6НwНЇОZ6�ОZ6yОX▌НwОX▌НвyНОX▌�ОX▌НаwОVГНН╒�НвНmН$ў�Н&;Н( Н3╛�Н59Н7╞ Н>]�ОU?НХ Н√�Н{ОS≤НН╒�НвyНmОS≤�ОS≤НUwНґОS≤�ОS≤yОQПНwОQПННґ Н$ЎН)⌡ Н0H yН6┬ОQП�ОQПН7AwН:&ОQП�ОQПН:┴�ОPIНuОLЗНСwНОLЗ�ОLЗyН|ОLЗ�ОLЗН$wОLЗН# Н"ъ Н*Н.+yН4╒ОLЗ�ОLЗН5[ОLЗН8▓wН<ЪОLЗ�ОLЗyОKRНфwОKRНрyНBОKR�ОKRН╛wОKRНр�Н _Н!В�Н#э�ОI╚НyН┼ОI╚�ОI╚НCОI╚Н{wОI╚Н l�Н!ЫОHНyНОH�ОHНьОHНwОHН�Н █ОF\НyН╪ОF\�ОF\Н[wН╪ОF\�ОF\ННС�yН─ОF\�ОF\НwН ─ОF\�ОF\Н ьОDЄНyНПОDЄ�ОDЄН╘wОDЄН═�yН-ОDЄ�ОDЄНФwНкОDЄ�ОDЄyОCНОCН;ОCН`wОCН"Н$ �}ОAeНxОAeНф}НОAe�ОAeНЎxОAeНо Н#О�}Н%ОAe�ОAeН%ЎxН'1ОAe�ОAeН'┴Н+=}Н-сОAe�ОAeН.▄xОAeН3ю�}Н4pОAe�ОAeН5;xН:єОAe�ОAeН;UО?ҐНН?�Н╛ wО>НО<nНyНgО<n�О<nН О<nН#WwО<nН(H�Н)уО:гНyНBО:г�О:гНШwО:гН g�yН!ТО:г�О:гН"ґwН%▓О:г�О:гuО9НwНО9�О9yНО9�О9Н╣wН О9�О9Н mН+Г�yН-лО9�О9Н.┘wО9Н3╨�О7xН'yН┴О7x�О7xН(wН┴О7x�О7xНЮН$7�Н%дО5пН'Нм�НZО4)Н'Нз�yНgО4)�О4)Н wН ⌠О4)�О4)О2│Н'Н)ЄО0зН'Н╩�НH О/2Н'Н"�Н#°О-┼Н'Н&ЇО+ЦН'О*;НyНЄО*;�О*;НSwНЄО*;�О*;Н Н+*�yН,ЇО*;�О*;Н-┼wН.ЩО*;�yО*;Н/`wН2ЧО*;�О*;Н3a�О(■НН#O�yН$шО(■�О(■Н%∙wН(О(■�О(■О&ЛНН$V�yН%ЦО&Л�О&ЛН&°wН)О&Л�О&ЛО%EНН"E�yН#яО%E�О%EН$▀wН&ЩО%E�О%EО#²НН$X�yН%ЕО#²�О#²Н&·wН)О#²�О#²О!ЖНН (�yН!╣О!Ж�О!ЖН"nwН$АО!Ж�О!ЖО NНН"▌Н&СОїНН+LН,▄ОЪНП!Н+РОXНН+LН,▄О╟НН`�НМОНН┬�yНО�ОНнwНAО�ООaНН!r О╧НП'ОНН#Y ОjН НT�yНRОj�ОjНЯwНRОj�ОjН╘Н"]yН$СОj�ОjН%╛wОjН*А�yН+▒Оj�ОjН,\wН1кОj�ОjН2|xОцНН?�Н╛yОНwОНҐyНpО�ОН)wОН6Н)█Н/ФН3ф yОtНwОtНd НuН"ЩН%rН*┬ yН0гОt�ОtН1│wН4eОt�ОtН4и�yО лНwН²О л�О л��ї��TVm$Є��4};Read:PUBLICPROC[fileName:LONGSTRING,name,password:LONGSTRING,action:PROC[Stream.Handle]]={MyRead[fileName,name,password,action!STP.Error=>TRUSTED{expl:LONGSTRING_[80];AppendRope[expl,error];ERRORError[expl:expl,retryable:Retryable[code]]};];};MyRead:PROC[fileName:LONGSTRING,name,password:LONGSTRING,action:PROC[Stream.Handle]]={server:LONGSTRING_[80];rest:LONGSTRING_[80];stp:STP.Handle_STP.Create[];open:BOOL_FALSE;stream:Stream.Handle;BEGINENABLEUNWIND=>{IFopenTHENstp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.DestroyIFstream#NILTHEN{stream.Delete;stream_NIL};};ParseName[fileName,server,rest];[]_stp.Open[Rs[server]];open_TRUE;stp.Login[Rs[name],Rs[password]];stream_Stream.FromIOStreams[stp.CreateRemoteStream[Rs[rest],read],NIL];action[stream];stp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.Destroy;stream.Delete;stream_NILEND;};PeachLogCommand:Commander.CommandProc=TRUSTED{out_cmd.out;PDQueue.RegisterTTY[WriteLine];[]_PDQueue.SetLogState[TRUE];};out:IO.STREAM_NIL;WriteLine:PROC[line:LONGSTRING]~{out.PutRope[Rs[line]];out.PutRope["\n"];};Commander.Register["PeachLog",PeachLogCommand,""];��qОg/НEи�wО_,НuО[щНСwНВО[щ�О[щyНУО[щ�О[щН°О[щНґwО[щНT yН$1О[щ�О[щН$КО[щН("wН,▐О[щ�О[щН-kН1┐yН7ЗО[щ�О[щН8ЁО[щН;КwН@WО[щ�О[щОZ6НфyНXОZ6�ОZ6НЪwН{ОZ6�ОZ6НчН$ �Н%О�ОX▌ННАН"ЫН)OН-g�yОVГНwНОVГ�ОVГНmН!yНІОVГ�ОVГНowОVГН#є�ОU?Н'yНєОU?�ОU?Н]ОU?Н∙wОU?Н#├�Н%ОS≤Н'Н"ЮyОQПН'wОQПН╪ Н"мН&) Н,iОPIН'ОN║НОLЗНuОI╙НСwНЩОI╙�ОI╙yНШОI╙�ОI╙НёwОI╙Н╒ yН!ОI╙�ОI╙Н"8ОI╙Н%pwН)щОI╙�ОI╙Н*╧Н.яyН5HОI╙�ОI╙Н6ОI╙Н98wН=╔ОI╙�ОI╙ОHНфyНXОH�ОHНЪwН{ОH�ОHНчН$ �Н%О�ОF\НyН┼ОF\�ОF\НCОF\Н{wОF\Н l�Н!ЫОDЄНyНОDЄ�ОDЄНьОDЄНwОDЄН�Н █ОC НyН╪ОC �ОC Н[wН╪ОC �ОC ННС�yН─ОC �ОC НwН ─ОC �ОC Н ьОAeНyНПОAe�ОAeН╘wОAeН═�yН-ОAe�ОAeНФwНкОAe�ОAeО?ЎННН yО>НО>Н;О>Н`wО>Н"Н$ �}О<oНxО<oНф}НО<o�О<oНЎxО<oНо Н#О�}Н%О<o�О<oН%ЎxН'1О<o�О<oН'┴Н+=}Н-сО<o�О<oН.▄xО<oН3ю�}Н4pО<o�О<oН5;xН:єО<o�О<oН;UО:гНН?�Н╛ yО9НwО9НҐН-�yНО9�О9НШО9Н╒wО9Н#gН-:Н1╚�yН37О9�О9Н4 wН5CО9�О9Н5С�О7xНО5пНН"▌Н&СО4)НН`�НМО2│НН┬�yНО2│�О2│НнwНAО2│�О2│О0зНН!r О/2НН├�НП5Н>yО-▀НХwНТО-▀�О-▀НW�О+ДНО*<Н НT�yНRО*<�О*<НЯwНRО*<�О*<Н╘Н"]yН$СО*<�О*<Н%╛wО*<Н*А�yН+▒О*<�О*<Н,\wН1кО*<�О*<Н2|xО(■НН?�Н╛wО&МН О%EНН├�yНО%E�О%EНШО#·НwН²О#·�О#·О!ЖНuОїНСwНжОї�ОїНсН/�yН0ИОї�ОїН1╒wОїН6в�О�ННz�НОXНО╠ННO�НэyН#▒О╠�О╠Н$JwН&ҐО╠�О╠Н' �О НО╨НСyНБО╨�О╨НLwО╨НҐ�yНJО╨�О╨Н2wНUО╨�О╨uОНСwНО�ОyНО�ОН╙wОН╙yН=О�ОНЖОН#.wН'⌡О�ОН(┌�Н*�ОkНОдНОНО мНСН&Н2РЪ��S��TVm$3��5END.��qОg/НEи�yО^≈НСwН{О^≈�О^≈Ъ��TVm$��PDStrikeFormat.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.LastchangedbyDougWyatt,August23,19823:34pmLastchangedbyMichaelPlass,September19,19841:12:52pmPDTPDStrikeFormat:DEFINITIONS={Header:TYPE=MACHINEDEPENDENTRECORD[format(0):Format,min(1),max(2):CHARACTER,--minimum,maximumcharactercodesmaxwidth(3):CARDINAL--maximumspacingwidthofanycharacter];Flag:TYPE=MACHINEDEPENDENT{F(0),T(1)};Format:TYPE=MACHINEDEPENDENTRECORD[oneBit:Flag,--alwaysTindex:Flag,--Fforsimplestrike,Tforstrikeindexfixed:Flag,--Tifallcharactershavesamewidthkerned:Flag,--TifKerned,FifPlainunused:[0..7777B]--shouldbe0];BoundingBox:TYPE=MACHINEDEPENDENTRECORD[fbbox(0),fbboy(1):INTEGER,--boundingboxoffsetsfbbdx(2),fbbdy(3):INTEGER--boundingboxsize];Body:TYPE=MACHINEDEPENDENTRECORD[length(0):CARDINAL,--numberofwordsinstrikebodyascent(1),descent(2):INTEGER,--scanlinesaboveandbelowthebaselinexoffset(3):INTEGER,--always0(obsolete)raster(4):CARDINAL--numberofwordsperscanlineinthestrikefollowedbybitmap(raster*(ascent+descent)words)followedbyXTable(toendofbody)];WidthEntry:TYPE=MACHINEDEPENDENTRECORD[offset,width:[0..377B]];nullWidthEntry:WidthEntry=[377B,377B];XTable:TYPE=RECORD[SEQUENCECOMPUTEDCARDINALOFCARDINAL];WTable:TYPE=RECORD[SEQUENCECOMPUTEDCARDINALOFWidthEntry];PlainStrike:TYPE=MACHINEDEPENDENTRECORD[header:Header,--commontoallstrikefontsbody:Body];KernedStrike:TYPE=MACHINEDEPENDENTRECORD[header:Header,--commontoallstrikefontsbox:BoundingBox,--thefontboundingboxbody:Body--theactualstrike��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБНЧНEННтН!HН%ХН(%Н+kН.zОZ5НБНЧНEННaН"AН(щН+Н.`Н3IН5■wОVФНБyНЁОVФ�ОVФН≥ wОVФН!с�Н#╦�ОS≈НБyН;ОS≈�ОS≈НТwОS≈Нґ�yН▓ОS≈�ОS≈НёОS≈Н╦ОS≈Н'ewН,SОS≈�ОS≈ОQПНС Н▀ОPHНС yНbОPH�ОPHН-wН!÷ОPH�ОPHxН"|ОPH�ОPHН"У�Н#СН*SН0╟Н6⌡wОN║НСyНqОN║�ОN║Н<xОN║Н ,Н!ёН(Н,вН0┐Н2&Н4©wОLЫНСОI╙НБyН─ОI╙�ОI╙Н9wОI╙НР�yНвОI╙�ОI╙НХОI╙НЩwОI╙Н%╙�yН&ZОI╙�wОI╙Н'yН)⌠ОI╙�wОI╙Н*LОF[НБyНEОF[�ОF[НЧwОF[НІ�yН⌡ОF[�ОF[НґОF[НаОF[Н'nwН,\ОF[�ОF[ОDЄНСНрxНNОDЄ�ОDЄНх�НеН�wОCНСН7xНЄОC�ОCН.�Н+�Н▄НЄН!ДН%Ч�Н'jН)▓Н-TwОAeНСНЙxНgОAe�ОAeНЮ�Нч�НJН═Н⌡ Н% Н(1Н+⌡wО?ҐНСН xН├О?Ґ�О?ҐНЪ�НЩ�НiН©Н"м�Н$-Н%└wО>НСН6 xН┴О>�О>Н�Н�Н"FН$�wО<nНСО9НБyНО9�О9НҐwО9Нv�yН[О9�О9НlО9Н#│О9Н+.wН0О9�О9О7wНСНФyНЗО7w�О7wНcwН"9О7w�О7wxН#О7w�О7wН#▐�Н$█Н*pН-wО5пНСНЯyНО5п�О5пН{wО5пxН#YО5п�О5пН#с�Н$пН*ЁН-_wО4(НСО0ыНБyНЗО0ы�О0ыНЁwО0ыНk�yНPО0ы�О0ыНbО0ыНvО0ыН&#wН+О0ы�О0ыО/2НС yНIО/2�О/2НwН─О/2�О/2xН]О/2�О/2Нж�НтН$╧Н&\Н*1Н+вН/≥wО-┼НСyН∙О-┼�О-┼НЪwН"уО-┼�О-┼xН#╡О-┼�О-┼Н$+�Н%)Н*ъН.╙Н1NН5Н7dwО+ЦНС yН▀О+Ц�О+ЦНУwНкО+Ц�О+ЦxНїО+Ц�О+ЦН!�НН#x�Н$╛ wО*;НС yНзО*;�О*;Н╔xО*;Н√Н Н#РН%∙Н)jН+ЎН0ПН2√Н4БО(■НСН@НН≥Н+╟О&ЛНСН@ННБН�Н!▌Н#2wО%EНСО!ЖНБ yНРО!Ж�О!ЖН╚wО!ЖНc�yНHО!Ж�О!ЖНZО!ЖН"nО!ЖН*wН/ О!Ж�О!ЖН/mН7f О NНБНF Н э�Н"аОЪНБyНEОЪ�ОЪНЧwОЪНЇ�yН°ОЪ�ОЪНpwН┼ОЪ�yОЪНМОЪН%╠ОЪН,сОЪН3▌ОЪН5╗wН;ъОЪ�ОЪН<B�ОXНБyН²ОX�ОXНVwОXН�yНТОX�ОXНгwНБОX�yОXНEОXН& ОXН-+ОXН3ФwОXН6�ОНБyНaО�ОНwОНс�yН╦О�ОНйОН!чОН)▀wН.yО�ООaНСНСxН+Оa�ОaН╔�Н╒Н" Н#╡Н%ґН)owО╧НСНЙОНСОцНБyНшОц�ОцН■wОцНM�yН2Оц�ОцНCОцН#WОцН+wН/СОц�ОцОНСНСxН+О�ОН╔�Н╒Н" Н#╡Н%ґН)owОtНСН#xН%Оt�ОtН·�Н°Н ХН#╨Н)°wО лНСНЙxН┴О л�О лН�Н�НLН \Ъ��п��TVm$Ы��2followedbyWTable];}.��qОg/НEи�xО_,НСН@НwО]┘НСОZ6НБЪ��TVm$� ��PDTextBitmap.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September19,19849:12:44amPDTDIRECTORYPDInterpBitmap;PDTextBitmap:DEFINITIONS=BEGINSetFont:PROC[fontFileName:LONGSTRING,userName,password:LONGSTRING]RETURNS[ok:BOOLEAN];fontFileNameshouldbeafullfilenameofakernedstrike(ks)font;iffileisnotavalidksfile,okisfalse.MayraisePDRemoteStream.Error;Example:"[Indigo]<AltoFonts>TimesRoman18.ks"Warning:thismoduleisnotmonitored,soavoidchangingfontswhileothercallsarebeingmade.fontName:READONLYLONGSTRING;FontAscent:PROCRETURNS[INTEGER];FontDescent:PROCRETURNS[INTEGER];TextWidth:PROC[string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST]RETURNS[INTEGER];TextToBitmap:PROC[dest:PDInterpBitmap.BitmapDesc,string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST,function:PDInterpBitmap.Function];Putsthetextintothebitmap,assumingastrike-fontorientationofthecharacters(i.e.,thelineoftextrunsinthefastdirection).Thetextwillbeplacedsothefirstcharacterhasitsreferencepointattheoriginofthebitmap.Thetextwillbeclippedtothedestinationbounds.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WyОX²НБwОX²НKОUNНБyНлОUN�ОUNН╡ wОUNН Л�yН"яОUN�ОUNН#┼uОQЪНБwН╘ОQЪ�ОQЪyНїОQЪ�ОQЪНOwОQЪНN yН"ОQЪ�ОQЪН"ҐОQЪН%ТwН*aОQЪ�ОQЪН+>Н2&yН8²ОQЪ�ОQЪН9VОQЪН<▌wН@ШОQЪ�ОQЪyОPXН╣wОPXНаyН≤ОPX�ОPXНQwН8ОPX�ОPXН⌡�xОN╠НСНxНЎН█�Н бН#8Н%▄Н)0Н*т�Н,Н0|Н4?Н7Н:LН;╒Н=ВН?bОM Нф�НШНAННҐН╧Н$ОKbНСН"Н]ОI╩НСН П$ОHНСНН╞НeНяН"4 Н(ИН*╒Н.5Н4Н7YН:ЦН>cОFlНфНН╩wОCНБyНАОC�ОCН╣ОCНЩОCН НwН%ZОC�ОCuО?оНБ wН╟О?о�О?оyНґО?о�О?оНUО?оНUwО?оН `�yН цО?о�О?оН!-wН&О?о�О?оН&f�uО<─НБ wНvО<─�О<─yНsО<─�О<─НО<─НwО<─Н!&�yН!┴О<─�О<─Н!СwН&иО<─�О<─Н',�uО91НБwНYО91�О91yНVО91�О91НЧwО91НЩyН╟О91�О91НiО91Н"═wН' О91�О91Н'ЙyН+sО91�О91Н,[wО91Н.l�Н/ЫН1├yН69О91�О91Н7!wО91Н92�yН:©О91�О91Н;╗wН=4О91�yО91Н=▄wН@qО91�О91yО7┼Н╣wО7┼На�yН$О7┼�О7┼Н█wНdО7┼�О7┼Нг�uО4;НБwН╒О4;�О4;yН═О4;�О4;НHwО4;НGН Н2YyН6╘О4;�О4;Н7bО4;Н:≥wН?О4;�О4;О2■Н╣yН>О2■�О2■Н'wО2■Н7�НдНQyНО2■�О2■НМwО2■Н Ч�yН"┼О2■�О2■Н#swН%�О2■�yО2■Н%WwН(<О2■�О2■Н)Н/xО0МНСНН\Н#НИН5Н#Н(Н�Н*# Н0╛ Н7└Н9(Н;t О/EНфНйНН╨Н^Н$Н!,Н"рН%Н'І Н.═Н1cН4*Н6©Н8▐Н<ҐН>vО-·НфН∙Н─НЖНрН$▓Н( Н)ўН+ЗН/ХН1▄Н3ьН93Н;ЖН>ҐО+ВНфН√Н'НлН Н"ПyО(╗НБwНiО(╗�О(╗��TVm$Ё��PDTextBitmapImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September26,19845:33:47pmPDTDIRECTORYEnvironment,PDInterpBitmap,PDInterpSysCalls,PDTextBitmap,Stream,PDStrikeFormat,PDRemoteStream,Inline,String;PDTextBitmapImpl:PROGRAMIMPORTSPDInterpBitmap,PDInterpSysCalls,PDRemoteStream,Stream,Inline,StringEXPORTSPDTextBitmap=BEGINfontName:PUBLICLONGSTRING_[120];bc:CHAR=';ec:CHAR='~;charBitmap:ARRAYCHAR[bc..ec]OFPDInterpBitmap.BitmapDesc;charWidth:ARRAYCHAR[bc..ec]OFINTEGER;fontAscent:INTEGER_0;fontDescent:INTEGER_0;ksFontBuffer:LONGPOINTER_NIL;bytesPerWord:NAT=Environment.bytesPerWord;nilBitmap:PDInterpBitmap.BitmapDesc=[sOrigin:0,fOrigin:0,sMin:0,fMin:0,sSize:0,fSize:0,pointer:NIL,rast:0,lines:0];BadFont:ERROR=CODE;SetFont:PUBLICPROC[fontFileName:LONGSTRING,userName,password:LONGSTRING]RETURNS[ok:BOOLEAN_FALSE]={cr:LONGSTRING_[40];nameCopy:LONGSTRING_[120];NameCopy:PROCRETURNS[LONGSTRING]={String.Copy[nameCopy,fontFileName];RETURN[nameCopy]};bytes:INT_PDRemoteStream.Lookup[NameCopy[],cr,userName,password];newBuffer:LONGPOINTER_NIL;bytesRead:INT_0;readFile:PROC[stream:Stream.Handle]={bytesRead_Stream.GetBlock[stream,[blockPointer:newBuffer,startIndex:0,stopIndexPlusOne:bytes]].bytesTransferred;};IFksFontBuffer#NILTHEN{FORc:CHARIN[bc..ec]DOcharBitmap[c]_nilBitmap;charWidth[c]_0��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKНТН)╩Н5ОVГН╣НюНpН+Н/mОS≤НБyНєОS≤�ОS≤НLОQПНСwОQПНёН!jН,кН8oН=zОPIНфyОN║НСwОN║Н╣Н %�yН" ОN║�ОN║Н"дwОKRНБyНАОKR�ОKRН┴ОKRН≥ОKRН┼wОKRН#{�Н%ОI╚НБyНAОI╚�ОI╚НwОI╚Н�Н�НЮ�ОHНБyН ОH�ОHНКwОHНЩ�НБОF\НБ yН╩ОF\�ОF\Н▌ОF\НawН╨ОF\�ОF\НyН#UОF\�ОF\Н$2�wОF\Н%oОDЄНБ yН,ОDЄ�ОDЄНЪОDЄНрwН+ОDЄ�ОDЄН▌yН"фОDЄ�ОDЄН#ё�ОDЄН$ЮwН* ОDЄ�ОDЄОC НБ yНLОC �ОC НІwОC Н�Н²ОAeНБyНОAe�ОAeНrwОAeНм�НYО?ЎНБyНбО?Ў�О?ЎН{О?ЎНЁwО?ЎН!T�yН"АО?Ў�О?ЎН#иwН$ЛО?Ў�О?ЎО>НБyНRО>�О>Н;wО>НL�Н1О<oНБ Н╪Н'І�Н)⌡�О:гНСНJО9НСН?О7xНСНУО5пНСНЙО4)НСНъО2│НСНтО0зНСyН5О0з�О0зНwНAО0з�О0зО/2НСНО-▀НСНї�О+ЦНСО(■НБyНО(■�О(■НеwО(■Н║�yН├О(■�О(■НQwНмО(■�О(■uО%EНБwН╘О%E�О%EyНїО%E�О%EНOО%EН_wО%EН yН&╪О%E�О%EН'uО%EН*ґwН/О%E�О%EН/ЖН6ъyН=VО%E�О%EН>О#·Н╣wН"О#·�О#·yН О#·�О#·НщwО#·НyНЛО#·�О#·Н╔wО#·Н$�yН%·О#·�О#·Н&WwН)<О#·�О#·Н*#�Н,�О!ЖНСyНО!Ж�О!ЖНиО!ЖНwО!ЖНР�НО OНСyН\О O�О OНО OНMwО OН!>�Н"кuОїНСwНtОї�ОїyНrОї�ОїНОїНwОїН"%�yН"┬Ої�ОїН#AОїН&xwН*ЕОї�ОїН+м�Н-╡�О�НН!л yОXНwОXНq О╠НО НСyНО �О НkwО Н░�НП!Н1╠Н3╛Н:∙ ОbНС yН%Оb�ОbНъОbНwОbН!Ї�yН#DОb�ОbН$,wН%OОb�ОbО╨НС yНО╨�О╨Н┘wО╨Н╚�Н8ОНСyНзО�ОН┌wНЩО�ОН`НJ Н)�Н*Ь�ОkННЁ�Н@Н*▄ Н3x Н:┴ ОдНвНdН!>ОНyОuНСwОuН Н�yНФОu�ОuНоОuНvwОuН#<�yО мНwО мНРyН▀О м�О мНVО мНgwО мН>yН!зО м�О мН"ю�wО мН$ Н,А�Н.n Н5HН=y�Н?�Ъ��'��TVm$D��2ENDLOOP;PDInterpSysCalls.FreeSpace[ksFontBuffer];fontAscent_fontDescent_0;ksFontBuffer_NIL};fontName.length_0;newBuffer_PDInterpSysCalls.AllocateSpace[(bytes+bytesPerWord-1)/bytesPerWord];PDRemoteStream.Read[fontFileName,userName,password,readFile];IFbytesRead#bytesTHEN{PDInterpSysCalls.FreeSpace[newBuffer];RETURN[FALSE]};ok_TRUE;ParseFont[fontFileName,newBuffer,bytes!BadFont=>{ok_FALSE;CONTINUE};];IFokTHEN{ksFontBuffer_newBuffer;}ELSE{FORc:CHARIN[bc..ec]DOcharBitmap[c]_nilBitmap;charWidth[c]_0ENDLOOP;PDInterpSysCalls.FreeSpace[newBuffer];fontAscent_fontDescent_0;String.Copy[to:fontName,from:fontFileName];};};ParseFont:PUBLICPROC[fontFileName:LONGSTRING,buffer:LONGPOINTER,bytes:INT]={wordIndex:INT_0;ReadBlock:PROC[dest:LONGPOINTER,words:CARDINAL,wordOffset:INT_-1]={IFwordOffset>=0THENwordIndex_wordOffset;Inline.LongCOPY[from:buffer+wordIndex,nwords:words,to:dest];wordIndex_wordIndex+words;};strike:PDInterpBitmap.BitmapDesc_nilBitmap;defaultCharBitmap:PDInterpBitmap.BitmapDesc_nilBitmap;defaultCharWidth:INTEGER_0;header:PDStrikeFormat.Header;ReadBlock[@header,SIZE[PDStrikeFormat.Header],0];IFheader.format.oneBit#TTHENERRORBadFont;IFheader.format.index#FTHENERRORBadFont;IFheader.format.unused#0THENERRORBadFont;IFheader.format.kerned=TTHEN{boundingBox:PDStrikeFormat.BoundingBox;body:PDStrikeFormat.Body;xInSegment,prevXInSegment:CARDINAL;xInSegmentOffset:INT;widthEntryOffset:INT;��qОg/НEи�yО_eНвwНxО_e�О_eО]ЎНП)О\Н НУ�Н┌ Н#/�Н$╪ОZnННk�yНЬОZn�ОZnНАwОXгНОWНСН├�НОUxНСН╛�ОSпНфПDОR)НСП!Н(аН/╙Н5Ъ yОP│НСwОP│Н НI�Н.yНцОP│�ОP│Н|wОP│Н"┬�ОNзНП&yОM2НwОM2Нq�yНтОM2�ОM2Н█wНrОM2�ОM2ОK┼НОIЦНСНН�yН{ОIЦ�ОIЦН4wНїОIЦ�ОIЦОH;НСН └ Н'√xОF■Н�Н#НЇНMНЫ�}Н fОF■�ОF■Н!xН$ОF■�ОF■}Н%ОF■�ОF■Н%ъxН+HОF■�ОF■Н+Ы�wОDЛНyОCDНСwОCDН yН∙ОCD�ОCDНOwОCDН[�ОA²ННk�НЬ О?УН�yО>NНСwО>NНB�yО<іНwО<іНРyН▀О<і�О<іНVО<іНgwО<іН>yН!зО<і�О<іН"ю�wО<іН$ Н,А�Н.n Н5HН=y�Н?�yО:ЪНвwНxО:Ъ�О:ЪО9WНП&О7╟Н НУ�Н┌ Н#/�Н$╪О6НН╚Н#┴Н'i О4`НО2╧НСuО/jНБwНЪО/j�О/jyНЩО/j�О/jНєО/jН╣wО/jН\ yН(О/j�О/jН(кО/jН,wН0oО/j�О/jН1KyН5СО/j�О/jН6ґО/jН9ДwН?О/j�О/jО-бН╣yНбО-б�О-бН,wНнО-б�О-бН╣�Н �О,НС yН]О,�О,НгwО,НМ�НyuО*sНСwНiО*s�О*syНgО*s�О*sНwО*sНyНнО*s�О*sН ┬О*sН#©wН(эО*s�О*sН)╦yН.>О*s�О*sН/ wН4uО*s�О*sН5R yН<РО*s�О*sН=\wО*sН?┌�О(лНфНв�Н╪�yО'$НwО'$Н╛ НсНh�yН²О'$�О'$Н VwО'$Н#bН*S�Н+Ю О%}НН"!Н.uН3бН8'Н:NО#уННУ�Н│Н"r�Н$WО"-НО ├НСН,Н'&�Н(Ё ОчНСНSН/L�Н0ы О7НСyНдО7�О7Н.wО7Н"┬�Н$О▐НСНСОГНСyН ОГ�ОГН╛wН ┬ОГ�ОГН КН0╡yО@НСwО@Н Н╗�yН!█О@�wО@yН"йО@�О@Н#└О@Н&░wО@Н+&yО≤НСwО≤Н Н�yН СО≤�wО≤yН"0О≤�О≤Н"ИО≤Н%ЖwО≤Н*▀yОЯНСwОЯН Н �Н!Р�yН#&ОЯ�ОЯН#ъОЯН&ЛwОЯН+│yОIНСwОIН Нъ�yН!дОI�wОIyН#ОI�ОIН#╩wОIН&г�О║ННОЗННЭОRН НЧyН&ОR�ОRН&эwН,HОR�ОRО╚НyНҐО╚�О╚Н'wН иО╚�О╚ОНyНPО�ОН╨wН [О�О��w��TVm$��3widthEntry:PDStrikeFormat.WidthEntry;bodyOffset:INT;ReadBlock[@boundingBox,SIZE[PDStrikeFormat.BoundingBox]];bodyOffset_wordIndex;ReadBlock[@body,SIZE[PDStrikeFormat.Body]];fontAscent_body.ascent;fontDescent_body.descent;strike_[sOrigin:-body.ascent,fOrigin:0,sMin:0,fMin:0,sSize:body.ascent+body.descent,fSize:body.raster*Environment.bitsPerWord,pointer:buffer+wordIndex,rast:body.raster,lines:body.ascent+body.descent];wordIndex_wordIndex+strike.rast*strike.lines;widthEntryOffset_wordIndex+(header.max-header.min+3)*SIZE[CARDINAL];IFwidthEntryOffset#bodyOffset+body.lengthTHENERRORBadFont;ReadBlock[@prevXInSegment,SIZE[CARDINAL]];xInSegmentOffset_wordIndex;FORchar:CHARIN[header.min..header.max]DOcharPixels:PDInterpBitmap.BitmapDesc_strike;ReadBlock[@xInSegment,SIZE[CARDINAL],xInSegmentOffset];xInSegmentOffset_xInSegmentOffset+SIZE[CARDINAL];ReadBlock[@widthEntry,SIZE[PDStrikeFormat.WidthEntry],widthEntryOffset];widthEntryOffset_widthEntryOffset+SIZE[PDStrikeFormat.WidthEntry];IFwidthEntry#PDStrikeFormat.nullWidthEntryTHEN{IFwidthEntry.width>header.maxwidthTHENERRORBadFont;charPixels.fOrigin_widthEntry.offset+boundingBox.fbbox-prevXInSegment;charPixels.fMin_prevXInSegment;charPixels.fSize_xInSegment-prevXInSegment;IFcharIN[bc..ec]THEN{charBitmap[char]_charPixels;charWidth[char]_widthEntry.width;};};prevXInSegment_xInSegment;ENDLOOP;ReadBlock[@xInSegment,SIZE[CARDINAL],xInSegmentOffset];xInSegmentOffset_xInSegmentOffset+SIZE[CARDINAL];ReadBlock[@widthEntry,SIZE[PDStrikeFormat.WidthEntry],widthEntryOffset];widthEntryOffset_widthEntryOffset+SIZE[PDStrikeFormat.WidthEntry];IFwidthEntry#PDStrikeFormat.nullWidthEntryTHEN{strike.fOrigin_widthEntry.offset+boundingBox.fbbox-prevXInSegment;��qОg/НEи�wО_,Н Н╠О]┘Н yН О]┘�О]┘НwНіО]┘�О]┘О[щНyН$ О[щ�О[щН$©wН&⌡О[щ�О[щН&ЧОZ5Н Н!�Нў ОX▌НyНОX▌�ОX▌НЄwН!▒ОX▌�ОX▌Н!ТОVФН НУ�Н┌ОU?Н Н╠�Н>ОS≈ННд�НQ�ОQПННmОPHННbОN║ННОLЫННОKRННОI╙ННЖП$ОHННXОF[НН0ОDЄННйОCНОAeННУ�Н│Н"r�Н$WО?ҐННж�О>НвП$yН-YО>�О>Н-ЬwН/тО>�yО>Н07wН6nО>�О>Н6я�yО<nНwО<nН╛Н~�Н!c Н(�Н*d yН1ОО<n�О<nН2╗О<nН5╣wО<nН:JО:гНyН&2О:г�О:гН&яwН(ґО:г�yО:гН)wН/GО:г�О:гН/╙О9ННD�Ня yО7xНwО7xНРyН{О7x�О7xНFО7xНXwО7xН/yН.╟О7x�О7xН/∙�wО5пН НН. �Н/≈О4)НyН%IО4)�О4)Н%ИwН'еО4)�yО4)Н((wН._О4)�О4)Н.б�Н/·О2│НН U�Н!БН-"�yН/О2│�О2│Н/іwН1┌О2│�yО2│Н1ЕwН8О2│�О2│Н8�О0зНyН$эО0з�О0зН%{wН'WО0з�О0зН'╨О/2НХО-▀ННХ�Н!tН,F�yО+ДНХwНdО+Д�О+ДНгyО*<НwО*<НҐ НП�НуyН3ЙО*<�О*<Н4єwО*<Н7╟�yО(∙Н'wО(∙НнН#І�Н$КyН/іО(∙�О(∙Н0_О(∙Н3lwО(∙Н8О&МН'Н"N�О%FНЗП3О#·Н'Н Ы�Н"├О!ВН'Н Ц�Н"pyО OН'wО OНнyНчО O�О OНH�wО OНЄyН"PО O�О OН# wО OН&�О╗Н8Н#И�Н%v О�Н8Н#Z�Н$ГОYН8О╠Н'О Н Н╟�Н!= yОbНwНЇОb�ОbО╨НyН#8О╨�О╨Н#вwН%ЄО╨�yО╨Н&wН,NО╨�О╨Н,╠�Н-█ОННD�НяН+�yН,ЖО�ОН-∙wН/qО�yОН/тwН6О�ОН6n�ОkНyН"кОk�ОkН#jwН%FОk�ОkН%╘ОдНвОННж�НcН*5�yН,О�ОН,╧wН.√О�ОН.ЫyОuНwОuН╛ Нъ�НдyН1ыОu�ОuН2▓wОuН5÷�О нН Н{�НП3Ъ��╘��TVm$╧��4strike.fMin_prevXInSegment;strike.fSize_xInSegment-prevXInSegment;defaultCharBitmap_strike;defaultCharWidth_widthEntry.width;}ELSEERRORBadFont;}ELSEERRORBadFont;FORchar:CHARIN[bc..ec]DOIFcharBitmap[char].pointer=NILTHEN{charBitmap[char]_defaultCharBitmap;charWidth[char]_defaultCharWidth;};ENDLOOP;IFwordIndex*bytesPerWord#bytesTHENERRORBadFont;};FontAscent:PUBLICPROCRETURNS[INTEGER]={RETURN[fontAscent]};FontDescent:PUBLICPROCRETURNS[INTEGER]={RETURN[fontDescent]};TextWidth:PUBLICPROC[string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST]RETURNS[textWidth:INTEGER]={textWidth_0;FORi:NATIN[start..start+length)DOIFi>=string.lengthTHENEXITELSE{char:CHAR_string[i];IFcharIN[bc..ec]THENtextWidth_textWidth+charWidth[char];};ENDLOOP;};TextToBitmap:PUBLICPROC[dest:PDInterpBitmap.BitmapDesc,string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST,function:PDInterpBitmap.Function]={w:INTEGER_0;FORi:NATIN[start..start+length)DOIFi>=string.lengthTHENEXITELSE{char:CHAR_string[i];IFcharIN[bc..ec]THEN{bitmap:PDInterpBitmap.BitmapDesc_charBitmap[char];bitmap.fOrigin_bitmap.fOrigin+w;PDInterpBitmap.Transfer[dest,bitmap,function];w_w+charWidth[char];};};ENDLOOP;};END.��qОg/НEи�wО_,Н Н%�Н╡О]└НН�Н°О[щНН Э�Н"┴ОZ5НН m�Н!ЗОX▌Н�yОVФНОVФНSwОVФНИОU>Н�yОS≈НСОS≈НBwОS≈НьyОQОНСwОQОНАyНjОQО�ОQОН5ОQОНGwОQОНyН!╧ОQО�ОQОН"÷�ОPHНwОPHН╛Н#Ы�yН%чОPH�ОPHН&фОPHН(nwОPHН,3�ОN═ННг�Н!TОLЫНН8�Н еОKQНyОI╘НwН╔ОI╘�ОI╘yОHНСwОHН Н"ў�Н$⌠yН('ОH�ОHН(ЮОHН+ЛwОHН0┌ОFZНСuОCНБ wН╟ОC�ОCyНґОC�ОCНUОCНfОCН wОCН%�yН%|ОC�ОCН%ФwН*╪ОC�ОCН+ё�Н-┬�yН.9ОC�ОCН/wОCН3╔ uО?╪НБ wНvО?╪�О?╪yНsО?╪�О?╪НО?╪Н,О?╪НсwО?╪Н%ч�yН&BО?╪�О?╪Н&╚wН+┌О?╪�О?╪Н,i�Н.N�yН.ЧО?╪�О?╪Н/рwО?╪Н4kuО<mНБwНYО<m�О<myНVО<m�О<mНЧО<mНwО<mНІyН#hО<m�О<mН$!О<mН'YwН+еО<m�О<mН,╒yН0+О<m�О<mН1wО<mН3%�Н4╠Н6>yН:ЯО<m�О<mН;зwО<mН=К�yО:еН╣wН*О:е�yО:еН│wНfО:е�О:еyНNО:е�О:еН"wО:еНY yН#ўО:е�О:еН$wН(НО:е�О:еН)у�Н+╩�О9НСНk�НЬyО7vНСwО7vНАyНBО7v�О7vН*О7vН;wО7vНyН&OО7v�О7vН'5�О5оНwО5оН╛�Н⌠Н(yН О5о�О5оН дО5оН#пО4'НwО4'НS�О2НyН÷О2�О2НjwО2Н|�Н yО0ьНwО0ьНҐyНмО0ь�О0ьН6�wО0ьНёyН ?О0ь�О0ьН ЬwО0ьН$Н*}�Н, Н2┌�Н4gО/0НyО-┴НwН╔О-┴�О-┴О+АНСuО(▓НБwН╒О(▓�О(▓yН═О(▓�О(▓НHО(▓НYwО(▓Н!�Н$юН7yН;aО(▓�О(▓Н<О&ЙН╣wН"О&Й�О&ЙНЧyН┤О&Й�О&ЙНpwО&ЙН│�НН⌡yН#NО&Й�О&ЙН$6wО&ЙН&G�yН'тО&Й�О&ЙН(╪wН*IО&Й�yО&ЙН*═wН-┘О&Й�О&ЙН.bО%CН╣Н B�Н"'�О#⌡НСyННО#⌡�О#⌡НXwО#⌡НЁ�Н@yО!ТНСwО!ТНАyНBО!Т�О!ТН*О!ТН;wО!ТНyН&OО!Т�О!ТН'5�О LНwО LН╛�Н⌠Н(yН О L�О LН дО LН#пО╔НwО╔НS�ОЩНyН÷ОЩ�ОЩНjwОЩН|�Н yОVНwОVНҐyНмОV�ОVН6�wОVНёyН ?ОV�ОVН ЬwОVН$�ОўН'НSН.M�Н/зОН' Н ─�Н" Н+f�Н-KО_Н'Н*Н/ ОЇН'�Н╘�Н5�НЇ�Н°ОН'ОhНyОюНwН╔Ою�ОюОНСyО йНБwНiО й�О й��┌��TVm$[��PDUser.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19841:58:46pmPDTDIRECTORYStreamUSING[Handle];PDUser:DEFINITIONS=BEGINThismoduleprovidesachat-styleuserinterfacetothepeachprinter.Normallyoneinstanceofthiswillberunningontheprinter'stty,andaninstancewillexistforeachopenChatconnection.Thismodule,however,doesnotcreateanyinstances.TalkWithUser:PROC[stream:Stream.Handle];Exitswhenuserquitsortheconnectionisbroken.Assumesabi-directionalstream.END.��xО_:НБ О]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН(\Н*їyОX²НБwОX²НKyНЧОX²�ОX²НЦwОX²НGОUNНБyН²ОUN�ОUNН┐ wОUNНҐ�yН╒ОUN�ОUNН[xОSїНСНН╧НП�Н$ Н%2Н(Н-║Н/FН1▓Н5iН:╟ОQЪНфНTН⌠Н7НоН dН"4Н'HН);Н+┤Н0нН30Н5тН7гН=ОPXНфНН,НSН▒Н П Н(▒Н+║Н0╞Н65Н99Н;²ОN╠НфН_ uОKbНСwН{ОKb�ОKbyНyОKb�ОKbН wОKbН Н#mxОI╩НН ННН JН"Н$O Н+Н,ОHНН│�Н╣ Н!ЙyОDеНСwН{ОDе�ОDеЪ��Ю��TVm$�Т��PDUserImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September27,19849:33:14amPDTDIRECTORYPDQueue,PDUser,Process,Stream,Time,PDRemoteStream,NameInfoDefs,String;PDUserImpl:PROGRAMIMPORTSPDQueue,Process,Stream,Time,PDRemoteStream,NameInfoDefs,StringEXPORTSPDUser=BEGINhelloMsg:LONGSTRING_"PeachPDPrintServer";CommandCode:TYPE={login,cancel,check,help,listQueue,messages,print,reprint,resetQueue,setLoginMessage,start,stop,wait,quit,ambiguous,illegal};commandTable:ARRAYCommandCode[login..quit]OFLONGSTRING_[login:"Login",cancel:"Cancel",check:"Check",help:"Help",listQueue:"ListQueue",messages:"Messages",print:"Print",reprint:"Reprint",resetQueue:"ResetQueue",setLoginMessage:"SetLoginMessage",start:"Start",stop:"Stop",wait:"Wait",quit:"Quit"];Upper:PROC[ch:CHAR]RETURNS[CHAR]=INLINE{RETURN[IFchIN['a..'z]THENch-('a-'A)ELSEch]};defaultRegistry:LONGSTRING_".pa"L;loginMessage:LONGSTRING_[160];TalkWithUser:PUBLICPROC[stream:Stream.Handle]={ENABLEStream.EndOfStream,Stream.TimeOut=>GOTOQuit;command:LONGSTRING_[80];user:LONGSTRING_[80];password:LONGSTRING_[80];account:LONGSTRING_[80];loggedIn:BOOLEAN_FALSE;quitting:BOOLEAN_FALSE;��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKНН"·Н'уН,ЮН0жОVГН╣НkОS≤НБ yНuОS≤�ОS≤НОQПНСwОQПНёН]Н"⌠Н'·Н+∙Н78ОPIНфyОN║НСwОN║Н╣ОLЗНС�yНьОLЗ�ОLЗН▒wОI╚НСyНiОI╚�ОI╚Н"ОI╚НZwОI╚Н K�Н!ьН&▀Н)�Н,sОF\НСyНVОF\�ОF\НwОF\Нг�Н ╛Н%2Н)╧Н-СН1f Н7ХН>ОDЄНфН╟ Н;Н),Н,■Н/ФН38Н6t ОC НфО?ЎНСyН*О?Ў�О?ЎНЩwО?ЎНпyН0┤О?Ў�О?ЎН1d�О?ЎН2║О?ЎН6▓wО?ЎН;┐�Н=�О>ННШО<oНН╛О:гНН_О9 НН≤О7xН Н╗О5яННY О4)ННФО2┌НН О0зН Н╠О/3ННО-▀НН▌О+ДННwО*<ННwО(∙ННbО&МНuО#·НСwН▒О#·�О#·yН▐О#·�О#·Н6wО#·Н6yНЫО#·�О#·НдwНQО#·�О#·yН 9О#·�О#·Н! wО#·Н&D�yН&їО#·�О#·Н'rwН*�О#·�О#·Н*Г�yН,лО#·�О#·Н-6wО#·Н1h�yО!ВНwО!ВНq�yНтО!В�О!ВН>�wО!ВН{yНaО!В�О!ВНк�wО!ВН8yН""О!В�О!ВН"шwО!ВН%ГН'м�Н(кН*ф�Н+дyН."О!В�О!ВН.шwО!ВН1qО OНО�НСyНЪО��О�Н╦О�НОwО�Н#Ю�Н%mО╠НСyНИО╠�О╠Н╒О╠НыwО╠Н"й�Н$WuОbНСwН{Оb�ОbyНyОb�ОbН ОbН1wОbН"ьН(% Н1Н�Н3с�yО╨НwО╨Н)Н%╪ Н0*yН2©О╨�О╨Н3ґwО╨Н6єОНyНъО�ОН≤ОНоwОН"ю�Н$MОkНyНwОk�ОkН0ОkНhwОkНY�Н ФОдНyН{Од�ОдН4ОдНlwОдН"]�Н#ЙОНyН∙О�ОНNОН┘wОН!w�Н#ОuНyН9Оu�ОuНРwОuН]�yН ЙОu�ОuН!ёwН$┬Оu�ОuО мНyН╚О м�О мНdwО мНо�yН \О м�О мН!wН#ЗО м�О м��└��TVm$╠��2accessAllowed:BOOLEAN_TRUE;echo:BOOLEAN_TRUE;flushed:BOOLEAN_FALSE;commandCode:CommandCode;lastRequest:INT_-1;PutChar:PROC[char:CHAR]={Stream.PutChar[stream,char];flushed_FALSE;};PutString:PROC[string:LONGSTRING]={Stream.PutString[stream,string];flushed_FALSE;};PutLine:PROC={PutChar['\n];PutChar['\012];};PutOK:PROC={PutLine[];PutChar['o];PutChar['k];PutLine[];};PutXXX:PROC={PutChar['];PutChar['X];PutChar['X];PutChar['X];PutLine[];};sep:CHAR_';DelHit:ERROR=CODE;SendNow:PROC={Stream.SendNow[stream];flushed_TRUE};GetChar:PROCRETURNS[CHAR]={c:CHAR;ignore:INT_0;IFNOTflushedTHENSendNow[];WHILEignore>=0DOmark:NAT_0;timingMark:NAT=5;timingMarkReply:NAT=6;dataMark:NAT=1;c_Stream.GetChar[stream!Stream.SSTChange=>{mark_sst;CONTINUE};];SELECTmarkFROM0=>NULL;dataMark=>{ignore_1};timingMark=>{ignore_1;Stream.SetSST[stream,timingMarkReply]};ENDCASE=>ignore_2;ignore_ignore-1;��qОg/НEи�wО_,Н yНО_,�О_,Н8wО_,Н"є�yН$0О_,�О_,Н$ЙwН'\О_,�О_,О]┘НyНеО]┘�О]┘Н~wО]┘НИ�yНvО]┘�О]┘Н/wН!╒О]┘�О]┘О[щНyН]О[щ�О[щНwО[щН┌�yН О[щ�О[щН хwН#╛О[щ�О[щОZ5ННОX▌НyНрОX▌�ОX▌Н<wОX▌Нb�НОuОVФНwНОVФ�ОVФyНОVФ�ОVФН╘wОVФН╗yН ∙ОVФ�ОVФН!`wН#МОVФ�ОVФН$у�Н&╨�ОU?НН#ҐОS≈ННУ�yН┌ОS≈�ОS≈Н;wН ОS≈�ОS≈ОQПНuОPHНwНиОPH�ОPHyНгОPH�ОPHНnwОPHНnyН" ОPH�ОPHН"ыОPHН&wН*~ОPH�ОPHН+e�Н-J�ОN║НН$cОLЫННУ�yН┌ОLЫ�ОLЫН;wН ОLЫ�ОLЫОKRНuОI╙НwНкОI╙�ОI╙yНиОI╙�ОI╙НqwОI╙Нp�НU�ОHНОF[НОDЄНuОCНwН?ОC�ОCyН=ОC�ОCНДwОCНД�Ни�ОAeН О?ҐНО>НО<nН О:гНuО9НwНО9�О9yНО9�О9Н©wО9НЎ�Нё�О7xННKО5пНО4)НО2│НО0зН О/2НО-▀НyНСО-▀�О-▀НЎwО-▀Нп�Н\�Н9�О+ЦНyНО+Ц�О+ЦНуwО+ЦН╠�yН√О+Ц�О+ЦНawН!эО+Ц�О+ЦuО*<НwН╗О*<�О*<yНіО*<�О*<НMwО*<НM�Н2Н/НН4м�yН6ZО*<�О*<Н7wН9├О*<�О*<Н:6�uО(■НwНО(■�О(■yНО(■�О(■Н©О(■Н©wО(■Н"й�yН#-О(■�О(■Н#ЬwН&├О(■�О(■Н'm�Н)R�О&ЛНyНўО&Л�О&ЛНywНО&Л�О&ЛО%EНyНрО%E�О%EН<wО%EНb�НОyО#²НО#²НҐwО#²Н©yН÷О#²�О#²НXwО#²Н"d yО!ЖНwО!ЖНvН╨Н O�yН!└О!Ж�О!ЖН"j�wО NН'yН3О N�О NНwО NН,�Н╧ОїН' yН5Ої�ОїН wОїН".�Н$ОЪН'yН"ЎОЪ�ОЪН#іwОЪН%Ї�Н'°ОXН'yНЮОX�ОXНхwОXН ы�Н"ЎО╟Н'�НF�НсО Н8�Н5Н&<Н(яН-�Н.╒yН1О �О Н1БwН7QО �О Н8�ОaН8yО╨Н'wО╨НЗyН█О╨�О╨Н FwОН8�НmyНО�ОНКwН BО�ООkН8НxН" Н'�Н(▌ОцН8 Н мН#bН(V�Н)ЦН+▒ОНyОtН8wОtН:Н!пН&�Н'═О мН'Нj�НВН!;�Н"8Ъ��i��TVm$ ��3ENDLOOP;IFc='\177THEN{PutXXX[];ERRORDelHit};RETURN[c]};GetStringToSpace:PROC[string:LONGSTRING,stopper1:CHAR_',stopper2:CHAR_']={c:CHAR_GetChar[];dashCount:NAT_0;inComment:BOOLEAN_FALSE;commentHit:BOOLEAN_FALSE;string.length_0;UNTILstring.length=string.maxlengthOR(NOTinCommentAND(c=stopper1ORc=stopper2))ORc='\nDOIFc='H-100BORc='A-100BTHEN{IFcommentHitTHEN{PutXXX[];ERRORDelHit};IFstring.length>0THEN{IFechoTHENPutChar[c];string.length_string.length-1;};}ELSEIFc='W-100BTHEN{IFcommentHitTHEN{PutXXX[];ERRORDelHit};WHILEstring.length>0DOIFechoTHENPutChar['H-100B];string.length_string.length-1;ENDLOOP;}ELSE{IFechoTHENPutChar[c];IFc='-THEN{commentHit_TRUE;dashCount_dashCount+1;IFdashCount=2THEN{inComment_NOTinComment;dashCount_0;};}ELSE{WHILEdashCount>0DOIFNOTinCommentTHEN{string[string.length]_'-;string.length_string.length+1;};dashCount_dashCount-1;ENDLOOP;IFNOTinCommentTHEN{string[string.length]_c;string.length_string.length+1;};};};��qОg/НEи�yО_eН'wНхО_e�О_eyО]ЎНwО]ЎНҐ�Нэ�НаyН_О]Ў�О]ЎНwО]ЎН!$ yН(╩О]Ў�О]ЎН)twО]ЎН-QyО\НwО\Н┌ОZnНuОXгНwНОXг�ОXгyНОXг�ОXгН╪wОXгН"╩yН'nОXг�ОXгН('ОXгН+^wН/кОXг�ОXгН0╗yН6╪ОXг�ОXгН7┤wОXгН:≥�Н<%�Н=�Н=чyНCРОXг�ОXгНDҐwОXгНGо�НI\�ОXгНKї�ОWНв�Н╪�ОUxНyНўОUx�ОUxНywОUxН▀�Н ОSпН yН─ОSп�ОSпНiwОSпНz�Н!ОR)Н yН$ОR)�ОR)НщwОR)Н#I�yН$жОR)�ОR)Н%▐wН(tОR)�ОR)ОP│Н yН┴ОP│�ОP│НCwОP│Н#ў�yН%;ОP│�ОP│Н%ТwН(ыОP│�ОP│ОNзННЬ�Н┘yОM2НwОM2НDН!&�Н#yОK┼НwОK┼НJ�yНдОK┼�ОK┼Н╛wОK┼НфyН"[ОK┼�ОK┼Н#/wОK┼Н%│ yН-▒ОK┼�ОK┼Н.m�wОK┼Н/фyОIЦНwОIЦНJyН≥ОIЦ�ОIЦН�ОH;Н'wОH;НнНNНJ�НHyН!еОH;�ОH;Н"║�wОH;Н#ЫН&yН(^�Н)\yН,ыОH;�ОH;Н-▓wОH;Н0·�yОF■Н8wОF■Нъ yН"зОF■�ОF■Н#⌠wОF■Н&÷ yН.5ОF■�ОF■Н.ОwОF■Н2кyОDЛН8wОDЛНъН"б�Н#Ж�yН%+ОDЛ�ОDЛН%ДwОDЛН(П�yОCDНIwОCDНПyН 7ОCD�ОCDН ПwОCDН#Щ ОA²НIН#,�Н$╦Н,⌡�Н-≥О?УНIО>NН8�yО<іН'Н[wО<іНН┌Н ю�Н!ҐyН%:О<і�О<іН%СwО<іН(Ъ�yО:ЧН8wО:ЧНъ yН"зО:Ч�О:ЧН#⌠wО:ЧН&÷ yН.5О:Ч�О:ЧН.ОwО:ЧН2кyО9WН8wО9WН≥Н%{�Н&╟�yН'ЕО9W�О9WН(й�О7╞НIwО7╞НПyН 7О7╞�О7╞Н ПwО7╞Н#Щ Н+R�Н,OО6НIН#,�Н$╦Н,⌡�Н-≥yО4`НIwН ЙО4`�О4`О2╧Н8�yО1Н'wО1Нv�yО/iН8wО/iНъyН&О/i�О/iНъwО/iН!К yО-бН8wО-бНъ�НЧ�НЦyН9О-б�О-бНРwО-бН"Ъ�О,НI Н#D�yН$пО,�О,Н%┼wН'ЭО,�О,О*sНIН":�Н#гН*╦�Н,·yО(кНIwО(кНПН#Б�Н%г�yН&ШО(к�О(кН'ЄwО(кН*а�О'#НZН$П�yН&|О'#�О'#Н'ewО'#Н) О%|НZН$K�Н%ьО#тНZО"-НI�yО ┘Н8wО ┘Н┤�yОщНIwОщН╙Н&⌡�Н'п�yН)Ощ�ОщН)Й�О6НZО6НwО6Н"yН)≥О6�О6Н*RwО6Н-_�О▌НkН+f�Н,СОГНkН'N�Н(шН0Ґ�Н2╒О?НkО≤НZН$K�Н%ьН,й�Н-гyОПНZwН"ШОП�ОПyОHНIОHНПwОHНСyН'┬ОH�ОHН(AwОHН+M�О║НZН)U�Н*АОЫНZН%=�Н&йН.╛�Н0▒ОRНZО╙НIОН8Ъ��╞��TVm$^��4c_GetChar[];ENDLOOP;IFstring.length<=string.maxlengthTHENsep_cELSEsep_';IFstring.length=0ANDsep#'\nTHEN{PutChar[sep];GetStringToSpace[string,stopper1,stopper2];};};GetStringToCR:PROC[string:LONGSTRING]={GetStringToSpace[string,'\n,'\n];};GetNumber:PROC[default:INT_1]RETURNS[value:INT_0]={string:LONGSTRING_[80];GetStringToSpace[string];FORi:NATIN[0..string.length)DOc:CHAR_string[i];IFcIN['0..'9]THEN{value_value*10+(c-'0)}ELSE{PutString["Notanumber!"];PutLine[];ERRORDelHit};ENDLOOP;IFstring.length=0THENvalue_default;};PutNumber:PROC[value:INT,w:INTEGER_4]={IFvalue<0THEN{PutChar['-];value_-value;w_w-1};IFvalue>=10THEN{PutNumber[value/10,w-1];value_valueMOD10;w_1};WHILEw>1DOPutChar['];w_w-1;ENDLOOP;PutChar['0+value];};Confirm:PROCRETURNS[yes:BOOLEAN]={response:LONGSTRING_[10];GetStringToSpace[response];IFString.Compare[response,"Yes",FALSE]=0THEN{RETURN[TRUE]}ELSEIFresponse.length=0ORUpper[response[0]]#'NTHEN{PutLine[];PutString["Sorry,youmustsayYesinjusttherightway."];PutLine[];RETURN[FALSE]}ELSEPutXXX[]};GetCommand:PROC={nMatches:NAT_0;matchLength:NAT_0;commandCode_illegal;PutString[">>"];GetStringToSpace[command];IFcommand.length=0THEN{PutLine[];GetCommand[]}��qОg/НEи�wО_,Н'�НF�Нс yО]┘Н'wНхО]┘�О]┘yО[щНwО[щНҐН÷Н!5yН+≈О[щ�О[щН,PwО[щН/\Н1я�Н3^�yН4}О[щ�О[щН57wО[щН7лН:A�Н;н�Н<╚�yОZ5НwОZ5НҐН÷�Н └�yН!╧ОZ5�ОZ5Н"▄wОZ5Н$ъН'T�Н)9yН+█ОZ5�ОZ5Н,FwОZ5Н/R�ОX▌Н'ОVФН'Н&═Н,⌠ ОU?Н'ОS≈НuОQПНwНОQП�ОQПyН}ОQП�ОQПН$wОQПН!$yН%жОQП�ОQПН&▐ОQПН)гwН.4ОQП�ОQПН/�Н1��ОPHНН$▐Н';ОN║НuОLЫНwНСОLЫ�ОLЫyНЯОLЫ�ОLЫН≤wОLЫН≤yН$ОLЫ�ОLЫН$┤wОLЫН&ґ�Н(:yН)яОLЫ�ОLЫН*╔wОLЫН/щyН4cОLЫ�ОLЫН4мwОLЫН6С�Н8─Н:�Н;Щ�ОKRНyНeОKR�ОKRНОKRНUwОKRН"F�Н#сОI╙НyОHНwОHНyНdОH�ОHНMОHН]wОHН4yН(SОH�ОHН)8�wОF[Н'yН©ОF[�ОF[Н┼wОF[Н°�Н) yОDЄН'wОDЄНн�yНМОDЄ�ОDЄНW�wОDЄНдyНнОDЄ�ОDЄН ┬wОDЄН#■Н'Н�Н){Н-%�Н.YН0>�Н2#yОCН'wОCНvН"YН%*�Н&T Н-┤ yН4ОC�ОCН4бwОCН8·yОAeН'wНхОAe�ОAeyО?ҐНwО?ҐНҐН÷�Н └�yН!╧О?Ґ�О?ҐН"rwО?ҐН%Н)(�Н*╣О>НuО<nНwНщО<n�О<nyНшО<n�О<nН┌wО<nН┌yН#О<n�О<nН#rwН%О<n�О<nН%ПyН'КО<n�О<nН(UwО<nН-╟�Н/<Н0т�Н2╧�yО:гНwО:гНҐНf�Н⌡�yНпО:г�О:гН┴wО:гН ∙Н(яН,z�Н.Н2є�Н4&�Н5╡yО9НwО9НҐНfНЭyНАО9�О9Н wО9Н"іН0ьН4aН8 �Н9≈yН=AО9�О9Н>RwО7xНХНG�Ни�НVyО5пНwО5пНv�НЬ�Н-�yНbО5п�О5пНG�wО4)Н'Н\О2│Н'�Н╘�Н5�НЇ�Н╣yО0зН'wНхО0з�О0зО/2НО-▀НuО+ЦНwНвО+Ц�О+ЦyНтО+Ц�О+ЦН|О+ЦН|wО+ЦН"┤yН%бО+Ц�О+ЦН&{wН+bО+Ц�О+ЦН,J�Н./�О*<НyН4О*<�О*<НМО*<Н$wО*<Н$�Н%╒О(■НyО&МНwО&МНҐН&┌yН*ЯО&М�О&МН+╙wН.▐О&М�О&МН/v�Н1[�yН2░О&М�О&МН3IwО&МН6U�yО%EН'wО%EН⌠�yНЖО%E�О%EН╞wН "О%E�О%EО#·Н'�yО!ЖНО!ЖНdwО!ЖНН#Ґ�Н%ё�yН&вО!Ж�О!ЖН'Є�wО!ЖН)Н4д�Н6╘yН8╗О!Ж�О!ЖН9bwО!ЖН<n�О OН' ОїН'Н!МН$єН(Н*kН-!Н.оН1qН3пН7"О�Н' yОXН'wОXН⌠�yНЖОX�ОXН╞wН ■ОX�ОXО╠Н'�yО НwО НdОaНuО╨Н wН(О╨�О╨yН%О╨�О╨НмwО╨Нм�Н!╡�ОНyНоО�ОН╦wОНи�Н VОkНyНМОk�ОkНуwОkН Ф�Н"sОцН Н°�Н )ОНОtНyО мНwО мНҐ Н!+�Н#�yН$DО м�О мН$ЩwО мН( Н/<Ъ��≥��TVm$©��5ELSE{FORcmd:CommandCodeIN[login..quit]DOcandidate:LONGSTRING_commandTable[cmd];IFcommand.length<=candidate.lengthTHEN{matchLength_0;FORi:NATIN[0..command.length)DOIFUpper[command[i]]=Upper[candidate[i]]THENmatchLength_i+1ELSEEXIT;ENDLOOP;IFmatchLength=command.lengthTHEN{commandCode_cmd;nMatches_nMatches+1;IFNOTloggedInTHENEXIT};};ENDLOOP;IFnMatches>1THENcommandCode_ambiguousELSEIFcommandCode<=quitTHEN{candidate:LONGSTRING_commandTable[commandCode];FORi:NATIN[command.length..candidate.length)DOPutChar[candidate[i]];ENDLOOP;};};};PutRequestStatus:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={PutString[request.requestTime];PutChar['];PutString[request.fileName];IFrequest.copies#1THEN{PutString["("];PutNumber[request.copies,1];PutString["copies)"];};PutString["("];PutString[request.requestor];PutString[")"];SELECTstatusFROMcanceled=>PutString["Cancelled"];waiting=>PutString["Waiting"];printing=>PutString["Printing"];ENDCASE=>NULL;PutLine[];};DoCommand:PROC={GetCommand[];IFNOTloggedInANDcommandCode#loginANDcommandCode#quitTHEN{PutLine[];PutString["Loginfirst,please"];��qОg/НEи�yО_,НwО_,Нd�yО]┘Н'wО]┘НН· yН'┤О]┘�О]┘Н'Я�wО]┘Н)^yН0╞О]┘�О]┘Н1∙�wО[щН8 yНГО[щ�О[щН ═О[щН#ьwО[щН(и�Н*VyОZ5Н8wОZ5Нъ Н%MН'БyН2%ОZ5�ОZ5Н2чwОZ5Н5К�ОX▌НI Н#ї�Н%4yОVФНIwОVФН7yН≤ОVФ�ОVФН ─ОVФН"▒wОVФН$hyН1ОVФ�ОVФН1В�ОU?НZwОU?НН+)�Н-yН9 ОU?�ОU?Н9цwОS≤Н- Н&▀�Н(yОQПНZОQПН ╘wН#YОQП�ОQПyОPIНZwН"ШОPI�ОPIyОN║НIwОN║НП Н%N�Н'3 yН1║ОN║�ОN║Н2ZwОN║Н5f�ОLЗНZ Н&А�Н(mОKRНZН#⌡�Н%(Н+h�Н-MyОI╙НZОI╙НwОI╙Н"yН'©ОI╙�ОI╙Н(xОI╙Н+└wОHНZОF[НIyОDЄН8wНыОDЄ�ОDЄyОCН'wОCНнН�Н C�yН!xОC�ОCН"1wОCН%= Н.д�Н0QyОAeН'ОAeНvwОAeН Н%ёН(9yН+ОAe�ОAeН+жwОAeН.Б�О?ҐН8 yНГО?Ґ�О?ҐН ═О?ҐН#ьwО?ҐН(и�Н*VyО>Н8wО>Н&yН├О>�О>НoО>Н ─wО>Н"VП"yН8О>�О>Н8Т�wО<nНIyО:гНIwН ЙО:г�О:гО9Н8О7xН'О5пНuО4)НwНїО4)�О4)yН╔О4)�О4)НMwО4)Н"LН'ЩН3ЦО2│НвН#]�Н%B�О0зНО/2ННKО-▀НyО+ЦНwО+ЦНҐ Н⌠�Н!x�yН"ґО+Ц�О+ЦН#fwО+ЦН&r�О*<Н' НZО(■Н'Н'цО&МН' НZН#О%EН'О#·Н НIО!ЖНО OННбyОїНwОїНХyН©Ої�ОїНxwО�Н'НбНWОXН'НЗН░О╠Н'НiНЧyО Н'wО Н)yНЎО �О Н їwН"ЪО �О ОbН О╨НuОНwНдО�ОyНбО�ОНjwОНi�Н!N�ОkНyОдНОдНҐwОдН©yНzОд�ОдН MwОдН"═ Н,&�Н.yН1┬Од�ОдН2\wОдН4ў Н>5�ОНХyОН╡wОНw�ОuН' О мН'Н!вН%��F��TVm$▓��6PutLine[];}ELSE{SELECTcommandCodeFROMlogin=>{registryMissing:BOOLEAN_TRUE;PutString["--User--"];GetStringToSpace[user];FORi:NATDECREASINGIN[0..user.length)DOIFuser[i]='.THEN{registryMissing_FALSE;EXIT};ENDLOOP;IFregistryMissingTHEN{String.AppendString[user,defaultRegistry];PutString[defaultRegistry];};PutString["--Password--"];echo_FALSE;GetStringToSpace[password!UNWIND=>echo_TRUE];echo_TRUE;IFsep#'\nTHEN{PutString["--Account--"];GetStringToSpace[account];};PutString["--Authenticating..."];SendNow[];SELECTNameInfoDefs.Authenticate[user,password]FROMindividual=>{PutString["OK"];loggedIn_TRUE};allDown=>{PutString["allGVserversdown;I'llhavetotrustyou."];loggedIn_TRUE};badPwd=>{PutString["badpassword"];loggedIn_FALSE};ENDCASE=>{PutString["badname"];loggedIn_FALSE};PutLine[];IFloginMessage.length>0THEN{PutString[loginMessage];PutLine[];};};print=>{fileName:LONGSTRING_[80];separator:LONGSTRING_[80];time:LONGSTRING_[40];requestNumber:INT_0;createDate:LONGSTRING_[40];bytes:INT_0;copies:INT_1;IFNOTaccessAllowedTHEN{PutLine[];PutString["Sorry,youarenotallowedtoqueuerequestsatthistime"];};PutString["--File--"];��qОg/НEи�wО_,Н' О]┘Н'�yО[щНwО[щНd�yОZ5Н'wОZ5НЗ yН%─ОZ5�ОZ5Н&9wОX▌Н8Н╣НJ�ОVФНIyН%GОVФ�ОVФН&�wОVФН+l�yН,ЫОVФ�ОVФН-╡wН0$ОVФ�ОVФОU?НI Н"|Н'ЁОS≈НIyОQПНIwОQПН7yН≤ОQП�ОQПН ─ОQПН"▒ ОQПН*©wОQПН,√yН5ьОQП�ОQПН6Ў�ОPHНZwОPHНН#$�Н% yН&=ОPH�ОPHН&ЖwОPHН*Н48�yН5еОPH�ОPHН6~wН9cОPH�ОPHyН:`ОPH�ОPHН;wН=ОPH�ОPHН=а�yОN║НZwН"ШОN║�ОN║yОLЫНIwОLЫНПyН&uОLЫ�ОLЫН'.wОLЫН*;�ОKRНZН-XОI╙НZОHНZОF[НI Н"|Н*jОDЄНIН░�yН ОDЄ�ОDЄН жwН#╩ОDЄ�ОDЄОCНIН,▓�yН-░ОC�ОCН.uwОCН35Н5йН9�yН:·ОC�ОCН;WwН=иОC�ОCН>-�ОAeНIН░�yН ОAe�ОAeН жwН#HОAe�ОAeyО?ҐНIwО?ҐНПНe�Н!JyН#·О?Ґ�О?ҐН$WwО?ҐН'c�О>НZ Н$█ Н+МО<nНZО:гНZО9НI Н"|Н#С Н-DН.нО7xНI yО5пНIwО5пН Н4≥yН:ЫО5п�О5пН;╡wО4)НZ Н#эН&rН2Н7я�yН9^О4)�О4)Н:wН<┼О4)�О4)Н=:�О2│НZН"ИН%~Н.нН1yН6 Н:NН<uН?╪О0зН-Н!^Н%ЗН+╣�yН-AО0з�О0зН-ШwН0mО0з�О0зН1�О/2НZН"╗Н%=Н/U Н6ъН< �yО-▀Н-wН!кО-▀�О-▀Н"{�yО+ЦНZwО+ЦН#\Н%РН0 Н5UН;�yН<²О+Ц�О+ЦН=VwН@;О+Ц�О+ЦН@Л�О*<НI yО(■НIwО(■НПН)y�Н*ў�yН+БО(■�О(■Н,°wО(■Н/╗�О&МНZО%EНZ О#·НZО!ЖНIО OН8Н═Н5�ОїНIyН!цОї�ОїН"|ОїН%ЄwОїН*╔�Н,2О�НI yН!╣О��О�Н"nО�Н%іwО�Н*≈�Н,$ОXНIyНХОX�ОXН║ОXН"ьwОXН'и�Н)VО╠НI yН%⌡О╠�О╠Н&wО╠Н(+�Н)╦О НI yН"·О �О Н#WО Н&▌wО Н+─�Н-ОbНIyНWОb�ОbНюwОbН!Ф�Н#sО╨НIyНЯО╨�О╨Н [wО╨Н"─�Н$ yОНIОНПwОНСyН(ТО�ОН)ґwОН,╧�ОkНZ ОдНZН(!Н*ьН-+Н/═Н4ІН6dН:┬Н?АОН-Н нОuНZО мНI Н"|Н'9Ъ��^��TVm$И��7GetStringToSpace[fileName];IFsep#'\nTHEN{PutString["--Copies--"];copies_MIN[GetNumber[default:1],CARDINAL.LAST];};IFsep#'\nTHEN{PutString["--Title--"];GetStringToCR[separator];};bytes_PDRemoteStream.Lookup[fileName,createDate,user,password!PDRemoteStream.Error=>{PutLine[];PutString["Error:"];PutString[expl];PutLine[];GOTOBad;};];Time.AppendCurrent[time];requestNumber_PDQueue.QueueRequest[[fileName,time,user,password,separator,copies]];IFrequestNumber<0THEN{PutLine[];PutString["Printqueuefull,requestdenied."];PutLine[];GOTOBad;};PutLine[];PutString["Printrequest"];PutNumber[requestNumber,0];PutString["queuedfor"];PutString[fileName];PutString["of"];PutString[createDate];PutString["("];PutNumber[bytes];PutString["bytes)"];PutLine[];BEGINmsg:LONGSTRING_[160];String.AppendString[msg,"Versionof"];String.AppendString[msg,createDate];String.AppendString[msg,";"];String.AppendLongNumber[msg,bytes];String.AppendString[msg,"bytes."];PDQueue.LogMessage[msg,requestNumber];END;lastRequest_requestNumber;EXITSBad=>NULL};check=>{��qОg/НEи�wО_,НIyО]┘НIwО]┘НПНe�Н!JyН$"О]┘�О]┘Н$шwО]┘Н'Х�О[щНZ Н$█ Н+ОZ5НZН!┬�yН#ОZ5�ОZ5Н$'wН%yОZ5�ОZ5Н%эН2ёyН4⌠ОZ5�ОZ5Н5^wН:йОZ5�yОZ5Н;"wН>ОZ5�ОZ5Н>j�ОX▌НZyОVФНIwОVФНПНe�Н!JyН$"ОVФ�ОVФН$шwОVФН'Х�ОU?НZ Н$█Н)╧ОS≈НZОQПНZОPHНIНщ�Н jН6Л Н> ОN║НН"�ОLЫНZН,-Н.б�ОKRНk ОI╙НkН*HОHНkОF[Нk yОDЄНkwОDЄН#PОCНkОAeНZО?ҐНIО>НIН%"�Н&ўН<цО<nННmН%ц Н,yО:гНIwО:гНПН&и�Н'Ч�yН)2О:г�О:гН)КwО:гН,Ь�О9НZ О7xНZН'|Н+═Н.┐Н3W О5пНZ yО4)НZwО4)Н!?О2│НZО0зНI О/2НIН%kН*?О-▀НIН,ХО+ЦНI Н"|Н'gН)╔О*<НIО(■НI Н"|Н$5О&МНIО%EНI Н"|О#·НIО!ЖНI Н"|О NНI yОїНIwОЪНZyН ІОЪ�ОЪН!oОЪН$їwОЪН)≤�Н+%ОXНZН-AН3Н4юО╟НZН-AО НZН-AН.ООaНZН1кО╨НZН-A�Н.vОНZН.yОkНZwНБОk�ОkОцНI Н"·�Н$+ yОНIwОНН!УyН$┼О�ОН%swОtНIО мН8НН╞��TVm$╦��8requestNumber:INT;action:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={PutLine[];PutNumber[requestNumber,5];PutChar['];IFstatus=notFoundTHEN{PutString["notfound."];PutLine[];}ELSEPutRequestStatus[request,status];};PutString["--RequestNumber<"];IFlastRequest#-1THENPutNumber[lastRequest,1];PutString[">--"];lastRequest_requestNumber_GetNumber[default:lastRequest];IFrequestNumber=-1THENPutLine[]ELSEIFABS[requestNumber]>NAT.LASTTHENaction[[NIL,NIL,NIL,NIL,NIL,1],notFound]ELSEPDQueue.CheckRequest[requestNumber,action];};cancel=>{requestNumber:INT;PutString["--RequestNumber--"];requestNumber_GetNumber[default:-1];IFrequestNumber=-1THENPutLine[]ELSE{owner:LONGSTRING_[80];action:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={IFstatus#notFoundTHEN{String.AppendString[owner,request.requestor];};};PDQueue.CheckRequest[requestNumber,action];PutLine[];IFPDQueue.CancelRequest[requestNumber].okTHEN{msg:LONGSTRING_[80];String.AppendString[msg,"Cancelledby"];String.AppendString[msg,user];PDQueue.LogMessage[msg,requestNumber,IFowner.length=0THENNILELSEowner];PutString["Printrequestcancelled."];}ELSE{PutString["Nosuchrequestinqueue."]};PutLine[];};};listQueue=>{action:PROC[requestNumber:CARDINAL,request:PDQueue.Request,status:PDQueue.RequestStatus]RETURNS��qОg/НEи�wО_,НI yН%⌡О_,�О_,Н&wН'іО_,�О_,О]┘НIyНшО]┘�О]┘Н ┌wО]┘Н#┌Н)3Н5О[щНН+╒�Н-┤�ОZ6НZ ОX▌НZН.ЫОVГНZН#▐yОU?НZwОU?НН"ь�Н$ҐyН+*ОU?�ОU?Н+ЦwОU?Н.О�ОS≤Нk Н'#Н)≤ОQПНk ОPIНk�yОN║НZwОN║Н ╘Н0╙ОLЗНZОKRНI Н"|Н(х yОI╙НIwОI╙НП Н$E�Н&*yН'ьОI╙�ОI╙Н(▒wОI╙Н+·Н:╧ОHНI Н$ОF[НI Н"·�Н$+Н.�Н/░ОDЄНyОC НIwОC НПН&и�Н(ўyН*\ОC �ОC Н+wОC Н.!yОAeНIОAeН≤ОAeН ?wН"kОAe�ОAeН"н Н- �yН.>ОAe�ОAeН/'wН0ЁОAe�yОAeН1ОAeН4twО?ЎНyН vО?Ў�О?ЎН!_wН"┌О?Ў�yО?ЎН"зwН$ФО?Ў�yО?ЎН%>wН'IО?Ў�yО?ЎН'║wН)ґО?Ў�yО?ЎН*wН,О?Ў�О?ЎН,iН.YyО>НIwО>Н≤П#Н7УО<oНIО:гН8НgНЭ�О9 НI yН%⌡О9 �О9 Н&wН'іО9 �О9 О7xНI Н"|Н(хН/CО5яНIН%"�Н&ўН3uyО4)НIwО4)НПН&и�Н(ўyН*\О4)�О4)Н+wО4)Н.!yО2┌НIwО2┌Н≤�О0зНZyН"О0з�О0зН"╨О0зН%РwО0зН*Ц�Н,pО/3НZyН!ЛО/3�О/3Н"■wО/3Н%⌠Н+DН7*О-▀Н-Н-Ё�Н/≤�yО+ДНkwО+ДН!Н$И�Н&оyН-;О+Д�О+ДН-ТwО+ДН1��О*<Н!|Н2ўО(∙Н!|О&МНkО%FНZП#Н6╦О#·НZ yО!ВНZwО!ВНП'yН:┘О!В�О!ВН;>wО!ВН>J�О OНkyН"гО O�О OН#│О OН&╦wО OН+╘�Н-6О╗НkН/R Н6dН8_О�НkН/RОYНkН0░ yН:аОY�ОYН;+�wО╠Н > yН*┼О╠�О╠Н+CО╠Н.OО╠Н0ъwО╠Н4.О НkН)█Н.aОbНk�yО╩НZwО╩Н ╘ Н*kН-°Н2qН4 ОНZ ОlНZОдНIОН8НbН!В�ОuНIyНшОu�ОuН ┌wОuН#┌yН.7Оu�ОuН/wН4nОu�ОuН5JО нНН(Н,RyН;ьО н�О нН<╛��TVm$▒��9[continue:BOOLEAN_TRUE]={PutNumber[requestNumber,5];PutChar['];PutRequestStatus[request,status];};PutLine[];IFPDQueue.GetSuspended[]THEN{PutString["***Printingissuspended***"];PutLine[];};PDQueue.EnumerateRequests[action];};messages=>{action:PROC[message:LONGSTRING]RETURNS[continue:BOOLEAN_TRUE]={IFMatch[message]THEN{PutString[message];PutLine[];};};key:LONGSTRING_[80];Match:PROC[message:LONGSTRING]RETURNS[BOOLEAN]={keyLength:CARDINAL_key.length;IFmessage.length<keyLengthTHENRETURN[FALSE];FORi:NATIN[0..message.length-key.length)DOj:CARDINAL_0;WHILEj#keyLengthANDUpper[message[i+j]]=key[j]DOj_j+1ENDLOOP;IFj=key.lengthTHENRETURN[TRUE];ENDLOOP;RETURN[FALSE];};IFsep#'\nTHEN{PutString["--matchingstring--"];GetStringToCR[key];FORi:NATIN[0..key.length)DOkey[i]_Upper[key[i]]ENDLOOP;};PutLine[];PDQueue.EnumerateMessages[action];};start=>{IFPDQueue.SetSuspended[FALSE].old=TRUETHEN{PDQueue.LogMessage["Printingstarted.",,user];};PutOK[];};stop=>{IFPDQueue.SetSuspended[TRUE].old=FALSETHEN{��qОg/НEи�wО_,Н yН"·О_,�О_,Н#XwО_,Н(ц�yН*PО_,�О_,Н+ wН-{О_,�О_,Н.c�Н0H�О]┘НZН.ЫО[щНZН#▐ОZ5НZН-[ОX▌НZОVФНI yОU?НIwОU?НПyН-&ОU?�ОU?Н-ъwОU?Н0К�ОS≈НZ Н%Н'їН,ТН.`Н5ОQПНZ ОPHНZОN║НIП"ОLЫНIОKRН8НН!╘�ОI╙НIyНшОI╙�ОI╙Н ┌wОI╙Н#┌yН)ІОI╙�ОI╙Н*oОI╙Н-іwН2ОI╙�ОI╙yН2ШОI╙�ОI╙Н3оwОI╙Н9 yОHНwОHН"@�yН#мОH�ОHН$├wН&ЫОH�ОHН'Ю�Н)е�yОF[НZwОF[Н yН(КОF[�ОF[Н)єwОF[Н,╟�ОDЄНkОCНk ОAeНkО?ҐНZО>НIyНXО>�О>НО>Н"HwО>Н':�Н(фuО<nНIwН4О<n�О<nyН 2О<n�О<nН зwО<nН#ыyН* О<n�О<nН*фО<nН-ЧwН2jО<n�О<nyН3RО<n�О<nН4&wО<nН9^�yН9аО<n�О<nН:zwН?aО<n�О<nО:гН�Н�О9НZ yН$ёО9�О9Н%nwО9Н+^�Н,К yО7xНZwО7xН Н(f�Н) yН0iО7x�О7xН1#О7xН4/wО7xН9⌡�yН9ЧО7x�О7xН:╦wН=°О7x�О7xН=Ъ�yО5пНZwО5пН HyН!╘О5п�О5пН"▒О5пН$╒wО5пН&yyН8╟О5п�О5пН9√�wО4)НkyН лО4)�О4)Н!≈wО4)Н'┤�Н)yО2│НkwО2│Н#л�Н$Є�Н&≥yН-hО2│�О2│Н.;wО2│Н0▌Н=o�О0зН >yН#ЩО0з�О0зН$Ц�wО/3Н!|�Н"d�Н#Я�Н$ь�Н&Ґ�yО-▀Н!|wН'О-▀�О-▀yО+ДНkwО+ДН!yН)yО+Д�О+ДН*2О+ДН->wО+ДН2╚�yН3О+Д�О+ДН3гwН69О+Д�О+ДН6²�yО*<НkО(∙НZwО(∙Н"г�yН#*О(∙�О(∙Н#ЦwН&хО(∙�О(∙Н'+�О&МНZyО%EНIwО%EНПНe�Н!JyН#·О%E�О%EН$WwО%EН'c�О#·НZ Н$█ Н+~Н0GО!ЖНZyО OНZwО OН HyН!╘О O�О OН"▒О OН$╒wО OН&yyН/WО O�О OН0=�wО OН1²Н5\�Н6ИyО╗Н-wН#нО╗�О╗О�НZОYНI О╠НIП"О НIОbН8НHНщ�yО╨НIwО╨НПyН+эО╨�О╨Н,∙wН/zО╨�О╨Н/щН2·�yН4┐О╨�О╨Н5<О╨Н83wО╨Н;Ы�ОНZН1AОkНZОдНIОНIОuН8Н1Нг�yО мНIwО мНПyН+эО м�О мН,∙wН/О м�О мН/kН2,�yН4О м�О мН4йО мН83wО мН;Ы�Ъ��ъ��TVm$Ь��10PDQueue.LogMessage["Printingsuspended.",,user];};PutOK[];};setLoginMessage=>{old:LONGSTRING_[160];String.Copy[old,loginMessage];PutChar['];GetStringToCR[loginMessage];loginMessage.length_MIN[loginMessage.length,loginMessage.maxlength-3-user.length];String.AppendString[loginMessage,"("];String.AppendString[loginMessage,user];String.AppendChar[loginMessage,')];PutLine[];PutString["Oldmessagewas:"];PutString[old];PutLine[];PDQueue.LogMessage[loginMessage];};reprint=>{ncopies:INT_0;confirm:BOOLEAN_TRUE;PutString["--Numberofcopies--"];ncopies_GetNumber[default:0];IFncopies>1THEN{PutString["--Confirmreprintofmultiplecopies--"];confirm_Confirm[];};IFconfirmTHEN{msg:LONGSTRING_[50];String.AppendString[msg,"Reprintrequestfor"];String.AppendLongDecimal[msg,ncopies];IFncopies=1THENString.AppendString[msg,"copy"]ELSEString.AppendString[msg,"copies"];PDQueue.LogMessage[msg,,user];PDQueue.Reprint[ncopies];PutOK[];}ELSEPutXXX[];};resetQueue=>{PutString["--Doyoureallywanttoresettheentirequeue?--"];IFConfirm[]THEN{PutOK[];PDQueue.Reset[];PDQueue.LogMessage["Queuereset",,user];};};help,illegal=>{PutLine[];��qОg/НEwО_,НZН1AО]┘НZО[щНIОZ5НIОX▌Н8Н#яН&f�ОVФНIyН,ОVФ�ОVФНЕОVФН"wОVФН'�Н(⌡ОU?НIН%┼ ОS≈НIН!~ОQПНIОPHНIН'р�yН)_ОPH�ОPHН*pwН+цОPH�ОPHН,&ОN║НП&ОLЗНIП!Н0и�Н1ЧОKRНIП!Н0иОI╙НIН0$ОHНI ОF[НI Н$╨Н*Н-6ОDЄНIОCНI ОAeНIП!О?ҐНIО>Н8НйН _�О<nНIyН ЇО<n�О<nН!!wО<nН#G�Н$тО:гНIyН НО:г�О:гН!їwО:гН'�yН(÷О:г�О:гН)XwН+кО:г�О:гО9НI Н"|Н(ВН*╟Н/яО7xНIН >�Н!кН.▓yО5пНIwО5пНПН!Е�Н#�yН$OО5п�О5пН%wО5пН(�О4)НZ Н$█Н+Н/═Н1YН6сН;ТО2│НZН"├�Н$ О0зНZyО/2НIwО/2НПyН"О/2�О/2Н"уwО/2Н%А�О-▀НZyН ІО-▀�О-▀Н!oО-▀Н$їwО-▀Н)≤�Н+%О+ЦНZН-AН3Н7щН:О*<НZН1╪yО(■НZwО(■НН#Ж�Н%ш�yН'О(■�О(■Н'иwО(■Н*жН:Ґ�Н;ЯyО&МНZwО&МН ╘Н0░�Н1еО%EНZО#·НZО!ЖНZО OНZ�yОїНIwОїН≤О�НIОXН8 Н kН#��О╟НI Н"|Н%нН(┘Н,OН/╛Н1ZН4║Н7�Н:ЛО НyОbНIwОbНПyН#EОb�ОbН#ЧwОbН' �О╨НZОНZОkНZН0e ОдНZОНIОuН8Н╚Н ЇН#L�О мНI Ъ��S��TVm$щ��11PutString["Validcommandsare:"];FORcmd:CommandCodeIN[login..quit]DOcandidate:LONGSTRING_commandTable[cmd];PutString[candidate];IFcmd#quitTHENPutString[","];ENDLOOP;PutLine[];};quit=>{loggedIn_FALSE;PutLine[];SendNow[];quitting_TRUE};wait=>{requestNumber:INT_lastRequest;requestStatus:PDQueue.RequestStatus_waiting;action:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={requestStatus_status;};toldUserThatItIsPrinting:BOOLEAN_FALSE;DoPrintingMsg:PROC={IFrequestStatus=printingANDNOTtoldUserThatItIsPrintingTHEN{PutString["Printing..."];toldUserThatItIsPrinting_TRUE;};};IFsep#'\nTHEN{PutString["--RequestNumber<"];IFlastRequest#-1THENPutNumber[lastRequest,1];PutString[">--"];lastRequest_requestNumber_GetNumber[default:lastRequest];};PutLine[];IFrequestNumberIN[0..NAT.LAST]THEN{PDQueue.CheckRequest[requestNumber,action];IFrequestStatus=waitingTHEN{PutString["Waiting..."];};DoPrintingMsg[];UNTILrequestStatus=notFoundORrequestStatus=canceledDOSendNow[];Process.Pause[Process.MsecToTicks[10000]];PDQueue.CheckRequest[requestNumber,action];DoPrintingMsg[];PutChar['.];ENDLOOP;PutString["Done."];PutLine[];};};ambiguous=>{��qОg/НEwО_,НIН%ґН,▓Н/_yО]┘НIwО]┘Н7Н!ю yН+╘О]┘�О]┘Н,�wО]┘Н-─yН4рО]┘�О]┘Н5╦�wО[щНZ yН$ О[щ�О[щН$цО[щН'ЗwО[щН,К�Н.xОZ5НZyОX▌НZwОX▌НН"�Н#ЖyН&зОX▌�ОX▌Н'■wОX▌Н*═Н2+yОVФНZwН"ШОVФ�ОVФОU?НI ОS≈НIОQПН8НН╠Н%�yН&╙ОQП�ОQПН'cwН*HОQП�ОQПН+E Н1г Н9aН>▌�yОPIНwН6ОPI�ОPIНГ�ОN║Н8Н1Нг�ОLЗНI yН%⌡ОLЗ�ОLЗН&wОLЗН(+�Н)╦ОKRНI Н$,Н3O�Н4эОI╙НIyНшОI╙�ОI╙Н ┌wОI╙Н#┌Н)3Н5ОHНН+╒�Н-┤�ОF\НZН%д�Н'QОDЄНZОC НIyН*НОC �ОC Н+╗wОC Н1�yН2═ОC �ОC Н3YwН6>ОC �ОC uОAeНIwН$┼ОAe�ОAeyН%┬ОAe�ОAeН&/wОAeН)/�Н+�yО?ЎНZwО?ЎНН'k�Н)PyН.▓О?Ў�О?ЎН/fО?ЎН1╦wО>Н-yН-YО>�О>Н.wО>Н1�О<oНkО:гНkН.≈�yН0$О:г�О:гН0щwН3PО:г�О:гО9 НkО7xНZyО5яНIwО5яНПНe�Н!JyН#·О5я�О5яН$WwО5яН'c�О4)НZ Н$█Н*ы yО2┌НZwО2┌Н Н&V�Н(;yН)ИО2┌�О2┌Н*╒wО2┌Н-╞Н<йО0зНZ Н&1О/3НZ Н$╞�Н&<Н0�Н1║О-▀Н-О+ДНZО*<НI yО(∙НIwО(∙НПyН&иО(∙�О(∙Н'3�wО(∙Н(═yН*bО(∙�О(∙Н+KwН,вО(∙�yО(∙Н-/wН0О(∙�О(∙yН0ШО(∙�О(∙Н1ЄwО(∙Н4ю�О&МНZП#Н6╦yО%FНZwО%FНН'k�Н)PyН.$О%F�О%FН.щwО%FН1И�О#·НkО!ВНkО OНZyО╗НZwО╗Н!┴Н)Р�Н+вyН2DО╗�О╗Н3 �wО╗Н4xН<Б�О�Н-yН#хО��О�Н$ў�wОYНk О╠НkП*О НkП#Н8иОbНkО╩НkyОНkwН%О�ООlНZОдНZ ОНZОuНIО нН8Н 3Н"и��n��TVm$j��12PutLine[];PutString["Ambiguouscommand(typeHelp<CR>forhelp)"];PutLine[];};ENDCASE=>ERROR;};};stream.options.signalSSTChange_TRUE;PutLine[];PutString[helloMsg];PutLine[];UNTILloggedInORquittingDODoCommand[!DelHit=>CONTINUE]ENDLOOP;WHILEloggedInDODoCommand[!DelHit=>CONTINUE]ENDLOOP;EXITSQuit=>NULL;};END.��qОg/НEwО_,НI О]┘НIН)VН/ЇН3AН:Н<YО[щНI ОZ6НIyОX▐Н8wОX▐Н:yН!пОX▐�ОX▐Н"┴wН%АОX▐�ОX▐ОVГН'ОU@НОS≥НН&А�yН(nОS≥�ОS≥Н)'wН+≥ОS≥�ОS≥ОQЯН ОPJНОNёН yОLШНwОLШН3yННОLШ�ОLШНй�wОLШН"yН$OОLШ�ОLШН%5�wОLШН&√ Н0Н4ўyН7DОLШ�ОLШН8wН=~ОLШ�ОLШyОKTНвwНxОKT�ОKTyОIґНwОIґНeyН ОIґ�ОIґН�wОIґНg Н(АН-yН0ОIґ�ОIґН0ъwН6OОIґ�ОIґyН76ОIґ�ОIґН7ОwН<вОIґ�ОIґyОHНwОHНьН yН·ОH�ОHН┤wНчОH�ОHОF^НyОCНСwН{ОC�ОCЪ��0��TVm$�Я��--PeachSourcesTemp.df--Copyright(C)1984,XeroxCorporation.Allrightsreserved.--MichaelPlass,1-Oct-8413:07:12--PeachPDPrintServerSourcesExports[Ivy]<Plass>Peach>Top>ReleaseAs[Indigo]<Peach>Top>PeachSourcesTemp.df1-Oct-8413:09:20PDTExports[ivy]<Plass>Peach>Documentation>ReleaseAs[Indigo]<Peach>Documentation>PeachDoc.tioga!124-Sep-8411:26:07PDTPeachDoc.press!124-Sep-8411:26:16PDTExports[ivy]<Plass>Peach>PeachSources>ReleaseAs[Indigo]<Peach>PeachSources>PDBitBltTiming.mesa!14-Mar-8411:21:20PSTPDFileFormat.mesa!118-Nov-839:54:35PSTPDInterpBasic.mesa!14-Sep-8410:17:00PDTPDInterpBitmap.mesa!117-Nov-8312:15:22PSTPDInterpBitmapImpl.mesa!14-Sep-8411:30:44PDTPDInterpMainImpl.mesa!120-Sep-849:14:55PDTPDInterpOutput.mesa!120-Sep-849:03:31PDTPDInterpPage.mesa!120-Sep-848:58:46PDTPDInterpPageImpl.mesa!120-Sep-849:17:50PDTPDInterpReader.mesa!14-Sep-849:51:57PDTPDInterpReaderImpl.mesa!113-Sep-8411:35:11PDTPDInterpSysCalls.mesa!14-Sep-849:55:12PDTPDInterpSysCallsDevelImpl.mesa!130-Nov-8310:22:04PSTPDQueue.mesa!113-Sep-8413:18:40PDTPDQueueImpl.mesa!127-Sep-847:48:29PDTPDUser.mesa!14-Sep-8415:05:56PDTPDUserImpl.mesa!127-Sep-849:33:14PDTPDRemoteStream.mesa!17-Sep-8416:13:26PDTPDStrikeFormat.mesa!119-Sep-8413:13:14PDTPDTextBitmap.mesa!119-Sep-8411:30:08PDTPDTextBitmapImpl.mesa!126-Sep-8417:39:54PDTPDRemoteStreamStub.mesa!113-Sep-8413:41:44PDTPDChatServerStub.mesa!113-Sep-8411:34:55PDTPDInterpOutputViewerImpl.mesa!126-Sep-8417:22:14PDT��wО_,НБНYО]┘Н╣Н,НўН#НаН!ЦН*│Н,сН0╙О[щН╣Н,НyНҐН bОZ6Н╣Н,Н.НёННeОVГН╣НкН%≤Н,/ОS≥НҐН)фН/kН5ОPJН╣НкН,GОNёН╣ОKTНҐН(Н.mН4ОIґНҐН(Н.┐Н4ОF^Н╣НкН+ОDЇН╣ОAhНҐН)дН/кН5eО?аНҐН)?Н0┼Н5sО>НҐН)@Н.ЭН4∙О<rНҐН)xН0?Н5ьО:кНҐН*цН0Н6О9#НҐН*Н1 Н5ЖО7|НҐН)oН0_Н5HО5уНҐН(ЧН/НН4вО4-НҐН)еН0╣Н5·О2├НҐН)ЯН01Н5О0ъНҐН*4Н0═Н69О/7НҐН)▌Н/мН4ІО-░НҐН*╦Н1Н7О+ИНҐ Н) Н/uН5О*AНҐН)пН0юН5╘О( НҐН(РН.ґН4GО&СНҐН)4Н0%Н5О%KНҐН*ыН0■Н6.О#єНҐН)aН/мН5fО!ЩНҐН)┌Н/НН5┬О UНҐН*IН0╣Н6OОНҐН+Н1sН7О_НҐН)щН0IН5БО╦НҐН+IН1╣Н7OЪ�� TVm$_�� Ъ TIMESROMAN��ЧФ��ЪLAUREL��ЧФ��ЪGACHA��Ч÷�� Ъ TIMESROMAN��Ч÷�� Ъ TIMESROMAN��ЧФ��Ъ TIMESROMAN��Ч÷��ЪLAUREL��Ч÷��Ъ TIMESROMAN��Ч÷��Ъ TIMESROMAN��Ч÷��Ъ TIMESROMAN��ЧY��Ъ HELVETICA��ЧФ��ЪLOGO��Щ┤��Ъ HELVETICA��Ч÷��Ъ HELVETICA��Ч��h��┬��▌��i��≤��к��!��ф��'��▌��(��+�� 2��*��9��>��┬��E��&��L��8��S��÷��[��b��m��i��╣��p��ё��w��▄��|��Ё��}��S��│��├��▌��▄��&��▒��Э��≤��║��≥�� ⌡��║��[��ї��a��╛��Ю��╡��©��╧��Ґ��©��╙��а��г��Є��к�� р��-��в��{��ч��c��Е��3��К��Я��Х��Ь��}��Щ��ь��М��:��G��_��╙��P��#��Ф��*��╙��1��⌠��8��█��>��D��w��J��o��Q��Q��W��B��^��`��e��╡��l��Б��m��S��p��N��w��s��}��w��└��╒��┼��Б��▀��▓��т��⌠��A��≤��'��·��$��є��Я��╚��c��╠��Ё��╦��=��Ґ��и��ц��С��й��J��о��Г��у��D��ы��Л��ъ��Д��Ь��И��^��Н��v��П��с�У��j/Ы�_Ж��²┬kp��ЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪ0[ivy]<Plass>Peach>Documentation>PeachDoc.tioga!1��#Monday, October 1, 1984 1:28 pm PDT��

InternalMemo1XEROXToFromImagingInterest^.paMichaelPlassPlass.paSubjectDatePeachPDprintersSeptember24,19849:12:15amPDTPeachPDprintersandhowtousethemWhatisaPeachprinter?APeachprinterisaprinterthatisrunningunderthecontrolofthePeachexperimentalprintersoftware.ThePeachsoftwareiswritteninMesa11andrunsunderthePilotoperatingsystemonaDicentra.TheDicentra(whichisbasicallyastripped-downDandylionrunningonaMultibus)mayormaynothaveadiskattached;ifitdoeshaveone,itisusedonlyasagiantbufferforthepageimage,andhasnofilesystem.PeachprintersprintPDfiles,andnothingelse.OK,thenwhatisaPDfile?APDfileisafileinPrinterDependentformat.See[Indigo]Docs>*.pressforinformationontheformatofPDfilesandhowtoprintthemonAlto/Slotmachines.However,youshouldactuallynotneedtoknowanythingaboutPDfiles,exceptperhapsthattheyareawayforanInterpressimplementationtogetthebitstoaprinter.Also,ifyouareinterestedinmakingVLSIplots,youneedtomakePDfilesdirectlyfromChipNDale,sincewedon'tunderstandyethowtoexpressoverlappingtransparentcolorsinadevice-independentway.WhatPeachprintersarethere?RightnowtherearetwoPeachprinters.OneisadisklessoneconnectedtoaRaventhathasbeenmodifiedtorunat384spotsperinchinsteadof300;itsnameisMelbaanditcanbefoundinroom2322ofbuilding35.TheotheroneisCSL's4-colorVersatecplotter.IfyouusedearlierversionofthePeachsoftwarethatusedRPCasaprotocol,youwereusedtocallingthismachinebythenameofBelle;however,theDicentra'srealnameisSleepy,andthisiswhatyoumustcallitnow.Maybewecangetthenameofthismachinechanged,sincePeachprintersaresupposedtobenamedaftervarietiesofpeaches.HowdoItalktoaPeachprinter?TotalktoaPeachprinter,youuseChat.ThismeansyoucanuseaPeachprinterfromanyenvironmentthatcanusethePup/telnetprotocol,includingCedar,pОfтН]НУqОfтНCNrОfЧН{sОbН]ОbН2PqО`eН]О`eН2PН7сО^ЎН2PsОTяН]ОTяН2PqОS*Н]НМНVОS*Н2PН9нНН< Н>Н@√О<Н]НєНBН$ўН'▓Н+═Н1%Н2²Н7[Н9Н<йН>╩НA~О:[Н]НbНцНН!,Н%╙Н'╡Н(чН/dН2>Н7ГНН>zО+yН]Н&НMН ЖН%dН*mН,тН0#Н1дН5uН;Н>ЛНASО)рН]Н╟НъН╟Н цН#Н$FН' Н)`Н+S Н1Ї Н;≤Н=JН?∙НAВО(+Н]НН]НСН▌НН!нН$6 Н*∙Н,XН1UН5Н8ФН;╠Н?"Н@ЕО&┐Н]НТННН╔ Н'┐Н+Н-aН1 Н8cН:нН=УН?еО$эН] НГ Н Н$Н%йН&ТН3uО!█Н]Н'НIНSН ╠vО>ННЧН Н°Н ЫН#ґН'╧Н-╪Н0иН2=Н3pН8xН;,НA╦НCoО≈Н]Н╚НwНКНFН$ Н%мН(bН)ЫН,█Н0 Н2|Н5┼Н:<Н;СН?Н@ыОПН]НеННдНН·Н▀Н#∙Н%@Н(ЕН,'Н-эН3RН6Н8ЮН<|Н?$Н@▄ОHН]НЩН|Н ╩Н"7Н$ГН(Н,ZН1Н2нН5'Н9#Н>∙НA]О║Н]НшН╚НЖНъН ЇН$*Н'┬Н)XН-ъН0╒Н6HН8eН:ГН>хН@ёОЗН]Н?Нє Н ,Н"ИН&ўН(Н,НН/╚Н2RН3дН7&Н9ЦН=QН?БНA=ОRН]Н4Н≈Н]НАН |Н$vН&jН)GН/Н5 Н8ЇН<ТНBEО╚Н]НgННН▄Н"хН(*Н)ЦuО\Н]НўН·НіНsН,НaН!┐vОННiНCННaН ┤Н%■Н(nН+Н/┘Н2бН7)Н:Н<╠Н?IН@√О fН]НэН1Н© Н#╩Н&wН(ПН+RН-÷ Н4sН:'Н@)Ъ╔TVm$DInternalMemo2Tajo,Alto,Lisp,Smalltalk,Vaxc,andevenvisDLSoveraphoneline.YoucanalsotalktoaPeachprinterusingtheprinter'sterminal(usuallyaglassTTY),ifithasone.ThepeachprinterqueuestherequeststhatitreceivesviaitsChatconnections,andprocessesthemoneatatime.Therequestsspecifyafullpathname,i.e.,print[Indigo]384>TestPattern.pdandwhentheprinterisreadytoprintthefile,itwillretrieveitusingthePup/FTPprotocol.IfyouarerunningCedar,youcanstartupSTPServerandhavethePeachprintergetyourPDfiledirectlyfromyourdisk.Forexample,ifyouhadcreatedthefile[]<>Users>BCDull.pa>Chip.pdonthemachineXyz,youwouldsayprint[Xyz]Users>BCDull.pa>Chip.pdtothechattool.WhatdoIsay?Thefirstthingyoudoislogin,justasifyouwerechattingtoanIFS(ifyouarechattingfromCedar,theChatprogramwillloginforyou).YourusercredentialswillbesavedsotheservercanusethemwhenitgoestofetchyourPDfile.NextsayHelptogetthelistofpossiblecommands.Youwillprobablybeabletoplayitbyearfromthere,butjustforcompleteness,herearethecommandsandwhattheydo:Login[]Tellstheserverwhoyouare.CancelCancelstheindicatedrequest.CheckTellsthestatusoftheindicatedrequest.Notethatiftherequesthasfinishedprinting,thestatuswillbe"notfound".HelpGivesalistofcommands.ListQueueDisplaysthecurrentqueueofrequests,andtellsifprintingissuspended.MessagesThePeachprinterkeepsalogofmessagesthatmaybeofinterest;theyaredisplayedontheprinter'sterminalastheyaregenerated.Thiscommandmaybeusedtoexamineallorpartofthemessagelog.Onlymessagescontainingthestringwillbeshown(sorry,nopatternmatching).Anemptystringwillgetyoueverything.Twointerestingstringstouseareyourusername(toseewhathappenedtoallyourrequests),andarequestnumber(e.g.,R033),tofindoutwhathappenedtoaparticularrequest.PrintMakesaprintrequest.OnmachinesliketheVersatec,thetitlestringwillappearinthetitleblocksthatseparatepages.ReprintReprintsthecurrentpageimage.ResetQueueClearsouttheprintqueueandthemessagelog.Excessiveuseofthis��pОfтН]НУqОfтНCN�vОb2Н]НЪН▀Н Н"°Н&│Н)RН,╡Н.ХН2TН5┬�Н6кН;Н>ЕНBО`▀Н]Н8НЧН╩�НСНН"╔Н&]Н(лН.HН3пН9�Н:CН=≤НAсНCCО^ДН]Н(Н\Н▀НыН$аН)юН,uН2%Н5IН6ЖН<wН?НA<О]<Н]Н[Н8Н"[Н& Н(шН*≥�Н+ХН04Н32Н8╟Н=s�Н>бНArО[∙Н]НuОYНН┤П!ОV·Н]ННеН"Н╠Н Н#ЦН%▐Н(УН+RН.Н/fН2Н7Н8`Н<Н>dОTВН]Н▀НЧНїНЛН#Н'wН* Н,²Н/÷Н1ёН8dН; Н>EН@√ОSPН]НЩНTН²Н Н ≈Н% Н)Н,XН0>Н2ВН8жН:EН= Н?оОQ╗Н]Н╪Н&Н(ґН*ЁН-Н2≈Н5гН8~Н<╛ОO-НН┤П#ОL╡Н]ННkНeuОIcН]Н'Н�Н vОFНННФН├Н HН"[Н#рН'ЁН*`Н,Н-├Н0HН3╔Н8ТН:ўН<╙Н?ЭНAБОDlН]Н≤НцНН iН"╟Н%УН+kН-ЧН1cН3┤Н7cН:щН=Ў ОBеН]НННвН║НН"Н$╛Н''Н*ЇН.rН/оН2ОН4єН8Н;`Н=шНA-ОAН]НеН╘НaНЄН!Н#dН%&Н*qН2EН5^Н8Н=НН?ХНBЙО?vН]Н┌НЫНН┼НН"Н$ІН'xН)жН2╛Н5ГН8[Н:шНAБО=оН]Н╨НйО;SН]Н^Н╦ Н! wО9╛НnНйН)Н6Н :Н"ЯvО70Н]НННswО5┴НnН└НЦН вvО3 Н]Н╒Н&wО1fНnНйН)Н�Н╧Н!Н'Н,ҐН03Н3Н4bН6бН;√Н>О/ЎНAНшН;Н Н"ҐН$ўН'сvО-CН]wО+⌡НnНY�Н┐НаНzvО) Н]wО'xНnНЩН]Н &Н$JН&Н+ЄН.lН1OН2╟Н7РН9] vО$ЩН]НewО#UНnНFНIНшН"╟�Н#зН&-Н'ФН-бН0░Н3■Н5┘Н7>Н<√Н?іО!ўНAН`НfНфН$4Н)ґН+[Н.kН0Ў Н7ЕН:ЪНA`О НAН2НnНН ∙Н"┘Н$IН',Н(ЕН+EН0°Н3кН7=Н= О_НAН║НvН"НН#aН'╟Н)ІН.u Н5хН8Н<UН@+О╦НAН┼НA Н АН$ Н*©Н/Н0гН3<Н5░Н8кН;дН?└НA╛ОНAН·НУНєН!■Н$о Н*ЫН-╠�Н.зН3╞Н8шН<6Н@іОiНAН/Н╔НН#YН%�Н&1 Н,gvОНН]Нп Н1Н!юwОFНnНс�НЩНeН"Н$sН*|Н-'Н/┤Н5dН7цН:▒Н>fО÷НAНхНvНуНёН#ГН&╣Н,vО$Н]wО|НnН НhН 2Н#yvО �Н] wОYНnНїНН|НДН$Н&©Н)Н.vН1╔Н7цН:8Н;ЯЪ��ю��TVm$≈��InternalMemo3commandmaygeneratepeerpressure.SetLoginMessage<message>Setsthemessagepeoplegetwhentheylogin;saywhatyouwill,butrememberthemessagewillhaveyournameonit.StartUn-suspendstheprinter.StopSuspendstheprinterassoonasitfinishesthecurrentrequest.Wait<requestnumber>Doesnotreturnuntiltheindicatedrequestiscompleted,eithernormallyorabnormally.UsefulforsynchronizingthedeletionofaPDfile.QuitCausestheservertoclosethechatconnection.Ifyouloginattheprinter'sterminal,besuretoquitsothattheterminalcanbeusedtodisplaymessagesagain.DoIhavetouseChattoprintmyPDfiles?Yes,rightnowyoudo.MaybesomeonewillstepforwardtowriteaCedarinterfacethatgoesthroughttheChatprotocol,ortoaddanRPCinterfaceforqueueingprintrequests.Inanycase,whentheInterpressserverbecomesreal,itwilldothetalkingtothePDprinter,soyouwon'thaveto.AccordingtotheChatdocumentation,itoughttobepossibletowriteacommandfileforissuingaprintingrequest.��pОfтН]НУqОfтНCN�wОb0НAН╒НіН#*Н&EvО_╣Н]Н9wО^ НnНRН╠Н Н"└Н$мН(┌Н+▓Н/┬Н1ГН5DН7ШН:ЧН=О\fНAН║НЬНёН!ЙН%%Н(ЕН*КvОYКН]wОXDНn Н÷НЪvОUиН]wОT!НnН┐НБН tН""Н%hН'Н(lН-lН/кН4∙vОQіН]Н╧Н>wОOЪНnНВНlН Н АН#AН)4Н. Н/u Н6|Н:hН@9ОNXНA НZН йН#Н+фН.&Н3sН5,�Н6VН8кvОKщН]wОJ5НnННjНwН %Н#▄Н%ЛН(Ф Н0ЎН2@Н4ВН8tН:Н<lОH▌НAНННЭН ╚Н#▐Н%SН(!Н*─Н/ЫН2└Н4uН7╠Н9_Н>ОFГНAuОC≤Н]Н╟�Н╧НИН╒ННrН!+Н$|Н&╧Н)8vО@IННQНхНПН кН#ЖН(ЇН.√Н1fН4nН9ЎН;▒Н?3�Н@│О>╒Н]НAНNНіН#▀Н&)Н)дН/иН1кН3╦Н6ўН8щН<xНB\О<ШН]НwНШН!gН#RН&Н)qН-BН/Ґ Н6:Н:bН@НCCО;SН]Н ННpНН╟Н!Н#├Н(pН*5Н,ЛН0ЇН3ЧН6┴Н=-Н>эНA<О9╛Н] Н НMН 'Н!цН#╒Н(яН*mН-ы�Н.ПН5?Н7√Н9юН>?�Н?WО8Н]Ъ��}��TVm$╡��--PDBitBltTiming.mesa--MichaelPlass,4-Mar-8411:17:27PDBitBltTiming:DEFINITIONS={ResetBitBltMicroseconds:PUBLICPROC;GetBitBltMicroseconds:PUBLICPROCRETURNS[LONGCARDINAL];}.��wО_,НБНYО]┘Н╣Н,НyНҐН дОZ6Н╣Нd Н$k�Н&P�ОVГН╣Н▒Н%WОS≥Н╣Н┬Н$NН(ЎН0+Н5Z ОPJН╣Ъ��╚��TVm$�@��PDChatServerStub.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September11,19843:54:15pmPDTDIRECTORYPupTypes,PupDefs,PupStream,IO,Rope,Stream,PDUser;PDChatServerStub:CEDARPROGRAMIMPORTSPupDefs,PupStream,Stream,PDUser=BEGINNewConnection:PROCEDURE[stream:IO.STREAM,pupAddress:PupDefs.PupAddress]=TRUSTED{otherGuy:Rope.ROPE_PupDefs.GetHostName[pupAddress];s:Stream.Handle_Stream.FromIOStreams[stream,stream];PDUser.TalkWithUser[s!PupStream.StreamClosing=>CONTINUE];Stream.Delete[s];};pupListener:PupStream.PupListener_PupStream.CreatePupByteStreamListener[local:PupTypes.telnetSoc,proc:NewConnection,ticks:PupStream.SecondsToTocks[300]];END.��xО_,НБО]┘НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▐НБwОX▐НKНН# yН*xОX▐�ОX▐Н*Б�wН+ЎОX▐�ОX▐Н,⌡Н0╗Н5ЁОU@НБyН8ОU@�ОU@ННЁОS≥НСwОS≥НёН║ Н$Н)ОQЯНС�yНьОQЯ�ОQЯН▒uОNёНСwНVОNё�ОNёyНSОNё�ОNёНШwОNёН#yН(YОNё�ОNёН(б�wН)÷ОNё�yОNёН)ЖwН.аОNё�ОNёН/² ОLШНфНO�yН!4ОLШ�ОLШН!МwОLШН'"�ОKTННЎyНFОKT�ОKTНwОKTН ш�Н"hОIґНН├НЛ�НyН2фОHНН!В�Н"УН3yН5²ОH�ОHН6hwН;вОH�ОHН<:�ОF^НОDЇНОAhНСНН'І�О?аНфП&О>ННдО<rННё О:кННўО9#НyО5уНСwН{О5у�О5уЪ��∙��TVm$��PDFileFormat.mesaCreatedMarch14,1983MichaelPlass,April29,198311:01amPDFileFormat:DEFINITIONS=BEGINpasswordValue:CARDINAL=125252B;versionValue:CARDINAL=1B;DeviceCode:TYPE=MACHINEDEPENDENT{invalid(0),raven(1),hornet(2),gnat(3),mig(4),reticleMaker(5),puffin(6),last(LAST[CARDINAL])};Herald:TYPE=MACHINEDEPENDENTRECORD[password(0):CARDINAL_passwordValue,version(1):CARDINAL_versionValue,deviceCode(2):DeviceCode_invalid,sResolution(3):CARDINAL,fResolution(4):CARDINAL,imageSSize(5):CARDINAL,imageFSize(6):CARDINAL,bandSSize(7):CARDINAL,maxLoadWord(8):LONGCARDINAL,copies(10):CARDINAL];Typ:TYPE=MACHINEDEPENDENT{control(0),imaging(2)};ImagingCom:TYPE=MACHINEDEPENDENT{maskSamplesRef(0),maskRunGroupRef(1),maskRectangle(2),maskTrapezoid(3),maskRunGroup(4),maskSamples(5),colorSamples(6)};ControlCom:TYPE=MACHINEDEPENDENT{startImage(0),setPriority(1),setColorInk(2),setColorClear(3),setColorTile(4),endBand(5),endDocument(6),storeLoad(7),deviceCommand(8)};��xО_,НБО]└НБНОНTН▒О[щНБН$НН│НЎН!Н$цwОYbНБyН┴ОYb�ОYbНn wОYbН ╗�yН"█ОYb�ОYbН#FwОVГНС yНщОVГ�ОVГН╗wОVГН!≤�Н#}ОU?НСyНїОU?�ОU?НrwОU?Н b�Н"GОS≤НС yН/ОS≤�ОS≤НХwОS≤Н═�yН┘ОS≤�ОS≤Н≈ОS≤Н$╚wОS≤Н,X�ОQПН ОPHНОN║Н ОLЫНОKRНОI╙НОHН ОF[НyНyОF[�ОF[Н2wН^ОF[�yОF[НаwНЬОF[�ОF[Н[�ОDЄНОB9НСyН ОB9�ОB9НцwОB9Н|�yНaОB9�ОB9НrОB9Н!┤ОB9Н)4wОB9Н.і�О@▒НyНО@▒�О@▒НИwО@▒Н!ы�Н#f О>ЙН yНИО>Й�О>ЙНЁwО>ЙН є�Н"1О=BН Н▀ Н$M�Н%зО; НyН∙О; �О; Н`wН"лО; �О; О9СНyН┼О9С�О9СНUwН"аО9С�О9СО8KН yН^О8K�О8KН)wН"∙О8K�О8KО6єН yН~О6є�О6єНIwН"╣О6є�О6єО4ЭНyНпО4Э�О4ЭН⌡wН"О4Э�О4ЭО3UНyН⌡О3U�О3UНTО3UН"▄wН(цО3U�О3UО1ґН yН�О1ґ�О1ґНйwО0НО-▀НСyНPО-▀�О-▀Н wО-▀На�yНіО-▀�О-▀Н╦О-▀НлwО-▀Н'yН.вО+НС yН╡О+�О+НkwО+Н#�yНО+�О+Н О+Н%.wО+Н,ш�О)hНО'юНО&НО$qНО"йНО!"НО{НОсНОXНС yНeОX�ОXНwОXНж�yН╩ОX�ОXНмОXН$АwОXН,▌�О╠Н О НОaНО╨НОНОkН ОцНОНОtНО мНЪ��╣��TVm$��2transparentFlag:[0..1]=1;opaqueFlag:[0..1]=0;Command:TYPE=MACHINEDEPENDENTRECORD[command(0):SELECTtyp(0:0..1):TypFROMimaging=>[com(0:2..7):ImagingCom,addrHighBits(0:8..15):[0..256)_0],addrHighBitsisusedbythemaskSamplesRefandmaskRunGroupRefcommands.control=>[com(0:2..7):ControlCom,rest(0:8..15):[0..256)_0]restisusedbythesetPriorityandsetColorTilecommands.ENDCASE];SampleArray:TYPE=MACHINEDEPENDENTRECORD[sSize(0):CARDINAL,fSize(1):CARDINALFollowedbytheactualscanlines,eachpaddedouttoaword.];Tile:TYPE=MACHINEDEPENDENTRECORD[phase(0):CARDINAL,sMin(1):CARDINAL,fMin(2):CARDINAL,sSize(3):CARDINAL,fSize(4):CARDINALFollowedbytheactualscanlines,eachpaddedouttoaword.];RunGroup:TYPE=MACHINEDEPENDENTRECORD[sSize(0):CARDINALFollowedbytheRuns.];Run:TYPE=MACHINEDEPENDENTRECORD[fMin(0):CARDINAL,lastRun(1:0..0):BOOLEAN,fSize(1:1..15):NAT];MaskRectangle:TYPE=MACHINEDEPENDENTRECORD[sMin(0):CARDINAL,sSize(1):CARDINAL,fMin(2):CARDINAL,fSize(3):CARDINAL];MaskTrapezoid:TYPE=MACHINEDEPENDENTRECORD[sMin(0):CARDINAL,sSize(1):CARDINAL,fMin(2):CARDINAL,fSize(3):CARDINAL,fMinLast(4):CARDINAL,fSizeLast(5):CARDINAL];��qОg/НEи�wО_,НСН@Н �Н ─О]└НС НЛНG�Н,О[ НСyН0О[ �О[ НИwО[ Н╒�yН┤О[ �О[ Н≤О[ Н#ґО[ Н+ZwО[ Н0л�ОYaН yН┌ОYa�ОYaН!wОYaН UН'eyН*HОYa�ОYaН+wОW╧ННWНЛН$Ы Н-√Н;`Н@1�ОVНХxОTjН'Н┘Н ЯН$Н%эН(( Н2 Н5>ОRцНЗwОQННхН^Н$k Н,╩ Н4╡Н9┐�Н;xОOsН'Н©Н*Н;Н Н"a Н(ЯН+∙Н37yОMлНwОL$НОI╗НСyНҐОI╗�ОI╗НvwОI╗Н/�yНОI╗�ОI╗Н %ОI╗Н%:ОI╗Н,ГwОI╗Н2Y�ОHНyН⌠ОH�ОHН^wНйОH�ОHОFYНyН┬ОFY�ОFYНSxОD╠НН©Н≥НЕН УН$Н'┬Н*╞Н/@Н1╒Н3G�Н4{wОC НО@▌НСyНDО@▌�О@▌НЩwО@▌НІ�yН⌡О@▌�О@▌Н╛О@▌НюО@▌Н'nwО@▌Н,Ю�О>ФНyНО>Ф�О>ФНмwН9О>Ф�О>ФО=>НyН╘О=>�О=>НtwНЮО=>�О=>О;≈НyН·О;≈�О;≈НiwНуО;≈�О;≈О9ОНyН⌠О9О�О9ОН^wНйО9О�О9ОО8GНyН┬О8G�О8GНSxО6÷НН©Н≥НЕН УН$Н'┬Н*╞Н/@Н1╒Н3G�Н4{wО4ЬНО2|НСyНО2|�О2|Н8wО2|НП�yНуО2|�О2|НГО2|Н#ШО2|Н+╗wО2|Н1�О0тНyН⌠О0т�О0тН^xО/-НН©Н≥НЕwО-┘НО+ НСyН┤О+ �О+ Н@wО+ НЫ�yНчО+ �О+ НОО+ Н О+ Н'╠wО+ Н-#�О)bНyН·О)b�О)bНiwНуО)b�О)bО'╨НyНюО'╨�О'╨НywН"aО'╨�О'╨О&НyНбО&�О&Н╙wО$jНО!ОНС yН О!О�О!ОНбwО!ОНz�yН _О!О�О!ОН!qО!ОН&┘О!ОН.2wО!ОН3╔�О GНyН╘О G�О GНtwНЮО G�О GО═НyН⌠О═�О═Н^wНйО═�О═ОЬНyН·ОЬ�ОЬНiwНуОЬ�ОЬОPНyН┬ОP�ОPНSwО╗НО-НС yН)О-�О-НБwО-Н �yН ─О-�О-Н!▒О-Н&╔О-Н.RwО-Н3е�О┘НyН╘О┘�О┘НtwНЮО┘�О┘ОщНyН⌠Ощ�ОщН^wНйОщ�ОщО6НyН·О6�О6НiwНуО6�О6О▌НyН┬О▌�О▌НSwН©О▌�О▌ОФНyНОФ�ОФНИwН!UОФ�ОФО >НyНО >�О >НсwО≈Н��M��TVm$ ��3MaskRunGroup:TYPE=MACHINEDEPENDENTRECORD[sMin:CARDINALFollowedbytheRunGroup];MaskSamples:TYPE=MACHINEDEPENDENTRECORD[sMin:CARDINAL,fMin:CARDINALFollowedbytheSampleArray];MaskRunGroupRef:TYPE=MACHINEDEPENDENTRECORD[addrLowBits:CARDINAL,HighbitsareinthecommandwordsMin:CARDINAL,fMin:CARDINAL];MaskSamplesRef:TYPE=MACHINEDEPENDENTRECORD[addrLowBits:CARDINAL,HighbitsareinthecommandwordsMin:CARDINAL,fMin:CARDINAL];ColorSamples:TYPE=MACHINEDEPENDENTRECORD[sMin:CARDINAL,fMin:CARDINALFollowedbytheSampleArray];Priority:TYPE=MACHINEDEPENDENTRECORD[restfieldofControlComcontainshighorderbitsofpriority.priorityLowBits:CARDINAL];SetColorTile:TYPE=MACHINEDEPENDENTRECORD[restfieldofControlComcontainstransparentFlagoropaqueFlag.addr:LONGCARDINAL];Toner:TYPE=MACHINEDEPENDENT{black(0),cyan(1),magenta(2),yellow(3)};StartImage:TYPE=MACHINEDEPENDENTRECORD[filler(0:0..8):[0..512)_0,leftOverMode(0:9..9):BOOLEAN,feed(0:10..10):BOOLEAN,strip(0:11..11):BOOLEAN,toner(0:12..15):Toner,passBands(1):NAT,nBands(2):NAT,fMinPage(3):CARDINAL,fSizePage(4):CARDINAL];StoreLoad:TYPE=MACHINEDEPENDENTRECORD[��qОg/НEи�wО_,НСyН╨О_,�О_,НswО_,Н+�yН!О_,�О_,Н""О_,Н'6О_,Н.ЦwО_,Н4V�О]┘НyНО]┘�О]┘НяxО[щНН©Н≥НЕwОZ5НОW╨НСyНОW╨�ОW╨НоwОW╨Н┤�yНlОW╨�ОW╨Н ~ОW╨Н%▓ОW╨Н-?wОW╨Н2╡�ОVНyНОV�ОVНяwН=ОV�ОVОTkНyНШОTk�ОTkНфxОRдНН©Н≥НЕ wОQНОN║НСyНАОN║�ОN║Н wОN║Н!S�yН#8ОN║�ОN║Н$IОN║Н)^ОN║Н1wОN║Н6}�ОLЗНyН≤ОLЗ�ОLЗНcwН!оОLЗ�ОLЗxОKRНН■Н НtНН!fН'│wОI╙НyНОI╙�ОI╙НяwН=ОI╙�ОI╙ОHНyНШОH�ОHНфwОF[НОCЮНСyН=ОCЮ�ОCЮНВwОCЮН╞�yН!■ОCЮ�ОCЮН"іОCЮН'╨ОCЮН/gwОCЮН4ы�ОB9НyН≤ОB9�ОB9НcwН!оОB9�ОB9xО@▒НН■Н НtНН!fН'│wО>ЙНyНО>Й�О>ЙНяwН=О>Й�О>ЙО=BНyНШО=B�О=BНфwО;⌡НО9НСyН7О9�О9НПwО9Н╗�yН█О9�О9Н ÷О9Н%ЁО9Н-`wО9Н2с�О7xНyНО7x�О7xНяwН=О7x�О7xО5пНyНШО5п�О5пНфxО4)НН©Н≥НЕ wО2│НО0НСyНlО0�О0Н%wО0Нщ�yНбО0�О0НтО0Н!ХО0Н)∙wО0Н/�xО._НН°Н║НD Н"Н'VН*gН-ОН0|Н2wО,ЇНyНPО,Ї�О,ЇНwО+НО(∙НСyН{О(∙�О(∙Н4wО(∙НЛ�yНрО(∙�О(∙НЦО(∙Н$ВО(∙Н,єwО(∙Н2�xО&МНН°Н║НD Н"Н'VН1Н2й wО%EНyН╨О%E�О%EНsО%EН╙wО#·НО!#НСyН└О!#�О!#Н=wО!#НЖ�yНшО!#�О!#НЛО!#Н!�wО!#Н(ў Н/Н4: О{Н' ОтНС yНhОт�ОтН"wОтНз�yН©От�ОтНяОтН#ЕОтН+▓wОтН1�О,ННШНл�Н!YО┘НyН ┼О┘�О┘Н!CwН&*О┘�О┘ОщНyНОщ�ОщНсwН!╨Ощ�ОщО6НyН0О6�О6НЙwН!яО6�О6О▌НН╘ОГНyН╧ОГ�ОГН║wН.ОГ�ОГО?Н yН О?�О?НСwН─О?�О?О≤НyНkО≤�О≤Н6wН!╒О≤�О≤ОПНyНUОП�ОПН wО IНО нНС yНО н�О нНтwО нН▄�yНqО н�О нН┐О нН#≈О нН+DwО нН0Ї��:��TVm$��4firstAddress(0):LONGCARDINAL,wordCount(2):CARDINALFollowedbythedatawords];END.��qОg/НEи�wО_,НyНаО_,�О_,Н{О_,Н ╡wН&ИО_,�О_,О]┘НyН_О]┘�О]┘Н*xО[щНН©Н≥НЕНКwОZ6НyОW╩НСwН{ОW╩�ОW╩��O��TVm$�I��PDInterpBasic.mesaCopyright(C)1983,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,198410:16:51amPDTPDInterpBasic:DEFINITIONS=BEGINStatus:TYPE={Nilstatus:nil,Normalstatus:betweenPages,constructingImage,transmissionComplete,Printererrors:paperJam,outOfPaper,serverAbort,PDFileErrors:invalidPassword,objectOutOfBounds,missingStartImage,badLoadReference,unrecognisedImagingCommand,loadOutOfBounds,unrecognisedControlCommand,unrecognisedCommandType,unexpectedEOF,runGroupTooLong,bitmapTooBig,deviceCommandTooBig,PDFileWarnings:wrongFormatVersion,unreasonableResolution,unreasonableBandSSize,unreasonableImageSize,unreasonableLoadSize,unreasonableNumberOfCopies,objectOutOfBand,emptyRunGroup,nonZeroFill,imageBoundsExceedPageBounds,tooFewBands,unknownColorTileFlag};PDErrorCode:TYPE=Status[invalidPassword..deviceCommandTooBig];PDWarningCode:TYPE=Status[wrongFormatVersion..unknownColorTileFlag];END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН) Н+WuОZDНБwН╚ОZD�ОZDyН╘ОZD�ОZDН▌ wОZDН х�yН"ґОZD�ОZDН#fwОX²НБyНuОX²�ОX²Н.wОX²НФ�Нл�xОVУНСНQwОUNНxОSїНСНИwОQЪНОPXНОN╠НxОM НСН■wОKbНОI╩Н ОHНxОFlНСНrН4wОDеНОCНОAvНО?оНО>'НО<─НО:ыНО91НО7┼Н О5ЦНО4;НО2■НxО0МНСНrН4wО/EНО-·НО+ВНО*OНО(╗НО'НО%YНО#╡Н О"НО cНО╪НОНОmНСОНБyН%О�ОНъwОН≈�Н|П-ОwНБ yН!Оw�ОwНзwОwН⌠�НxП1yО)НБwНiО)�О)��┼��TVm$"��PDInterpBitmap.mesaMichaelPlass,November9,198310:39amBasicoperationsontwo-dimensionalarraysofpixels.DIRECTORYBitBlt,Inline;PDInterpBitmap:DEFINITIONSIMPORTSInline=BEGINThisinterfaceprovidesmostofthefunctionalityofBitBlt.Toavoidconfusionnomatterhowthemapisphysicallylaidout,termslikeheightandwidthareavoided,andthecoordinatesareexpressedintermsofsandf,forslowandfast.Onadisplay,thesaxisisnormallyvertical,andpointsdown,butonaprinterthatscansinthelongdirection,thefaxiswillpointup.Thediagrambelowtakesthelatterpointofview.--^--f|--|--|+----------------------------+--|||--||rast*bitsPerWord/bitsPerPixel|--|||--||+------------+|--|||||--|||||--|||fSize||--|||||--||sMin|sSize||--||<---->+------------+|--||^|--|||fMin|--|sOrigin|vlines|--|<-------->+----------------------------+--|^originofbuffer--||--||fOrigin--||--||--|v--+-------------------------------------------->--DevicespaceoriginsABitmapDescdescribesawindowintoabuffer,andthebufferitselfmaybepositionedanywhereinaglobaldevicespace.ThewindowinginformationisstoredintheBitmapDescrecord,sothatitmaybeeasilychangedtoaccomplishtranslationandclippingbyrectangles.Thetranslationfeaturemaybeusedfordestinationmapstoconvenientlyimplementbandbuffers.BitmapDesc:TYPE=RECORD[Theseparametersdefineawindowwithinthebuffer,aswellaswherethebufferispositionedindevicespace.sOrigin,fOrigin:INTEGER_0,��xО_:НБО]▓НБН$ННgНТН#:Н&ЫО[КНБН▄ ННЗН$МН)Н*╗yОX°НБwОX°НKН ОUMНБyНйОUM�ОUMН╟ ОUMН!ЙwОUMН' Н+⌡�yН-─ОUM�ОUMН.:xОQЧНСНН█НдН"Н#їН%СН-йН/nН4[Н6xН:Н@ОPWНфННИН5Н0Н° Н%яН(}Н+6Н.ДН1▒Н5ґН8QН;ЩОN╞НфНЩН║НМ Н#Н%VН+`Н-Н0ЄН2W�Н3`Н6Н7OН9vН<zН?ОMНфН�НQН/Н{�Н┐Н fН!рН'|Н,■Н/7Н33Н7Н9wН;k�Н<÷ОKaНфН≤Н.НтН Н' Н%zН'_ОKa�xОKaН(SН+6Н-кН1BН4Н6сН<ОI╧НфНQН²Н4Н╚Н OwОFjНС{ОFjОFjНХ�wОDцНС{ОDцwН┤ОDц�{ОDцНЗ�wОCНС{ОCОCНХ�wОAtНС{ОAtОAtНХ�ОAtНТwО?лНС{О?лО?лНХ�О?лНТ�О?лН.U�wО>%НС{О>%О>%НХ�О>%НТ�|НлО>%�О>%Н6НФ�Н щ Н'G�Н(>{О>%Н0f�wО<}НС{О<}О<}НХ�О<}НТ�О<}Н.U�wО:жНС{О:жО:жНХ�О:жНТ�О:жН#Ъ О:жН2w�wО9.НС{О9.О9.НХ�О9.НТ�О9.Н#Ъ�О9.Н-�О9.Н2w�wО7┤НС{О7┤О7┤НХ�О7┤НТ�О7┤Н#Ъ�О7┤Н-�О7┤Н2w�wО5ъНС{О5ъО5ъНХ�О5ъНТ�О5ъН#Ъ�|Н$вО5ъ�О5ъН%8{О5ъН-�О5ъН2w�wО48НС{О48О48НХ�О48НТ�О48Н#Ъ�О48Н-�О48Н2w�wО2░НС{О2░О2░НХ�О2░НТ�|О2JН {О2░Н#Ъ�|О2JН({О2░Н/-�О2░Н4┴�wО0ИНС{О0ИО0ИНХ�О0ИНТН"О0ИН4┴�wО/AНС{О/AО/AНХ�О/AНТ�О/AН#Ъ�О/AН0f�wО- НС{О- О- НХ�О- НТ�О- Н#Ъ�|Н$вО- �О- Н%8{О- Н0f�wО+РНСО+Р{О+РНХ�|О+╛НЗ{О+РН�О+РН&�|О+╛Н,╔{О+РН2w�wО*KНС{О*KО*KНХН╗П#wО(▄НС{О(▄О(▄НХ�О(▄Н�|О)НщН#Н$rwО&ЕНС{О&ЕО&ЕНХ�О&ЕНТ�wО%=НС{О%=О%=НХ�О%=НТ�|НлО%=�О%=Н-wО#√НС{О#√О#√НХ�О#√НТ�wО!ННС{О!НО!ННХ�О!ННТ�wО GНС{О GО GНХ�О GНТ�wО÷НС{О÷О÷НХП.wОЬНС{ОЬ|О┘НХН≥Н░wОЬН,╔�xО╘НС�Нu НН╙�Н чН%ЄН(z�Н)╞Н-УН0≥Н2ЕН6сН:Н=ОНф Н ННҐ�Н ЯН$ЧН)Н-|Н0@Н6Г Н>9ОZНфН©НeН╠ Н!@Н%╩Н'tН*FН+·Н.▌Н0]Н4Н9cН; ОЁНф Н┬Н+Н DН" Н)JН, Н2оН7ZН:JН<Н?*ОНф Н·ННцН%zН,Н/YwО╪НБ yНО╪�О╪НлwО╪Н┘�yНjО╪�О╪Н>wО╪Н!э�xОНСНж НЄН╞�Н ЦН%╧Н)жН,"Н0iН2"Н4ОН6╗Н:┼Н<жОmНфН2 Н▄Н2Н5wО фНСН)yНuО ф�О фНъwО фН!9�Н"фЪ��=��TVm$ф��2sMin,fMin:INTEGER_0,sSize,fSize:NAT_0,pointer:LONGPOINTER_NIL,rast,lines:CARDINAL_0Storedcontiguously,witheachlinepaddedtoawordboundary,rastwordsperline.Thelongpointerpointstotheactualbits.];Rectangle:TYPE=RECORD[sMin,fMin:INTEGER,sSize,fSize:NAT];RasterWords:PROC[bitmapDesc:BitmapDesc]RETURNS[INT]=INLINE{RETURN[Inline.LongMult[bitmapDesc.rast,bitmapDesc.lines]];};Reshape:PROC[pointer:LONGPOINTER,words:INT,bounds:Rectangle]RETURNS[BitmapDesc];MakesaPixelMapfromthestorageprovided.InsufficientSpace:ERROR;Intersect:PROC[a,b:Rectangle]RETURNS[Rectangle];Computestheintersectionofdevicerectangles.Clear:PROC[bitmapDesc:BitmapDesc];Afastwaytoclearabuffer.ShiftMap:PROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc];TranslatesthebitmapDescindevicespace.ShiftWindow:PROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc];Translatesthewindowindevicespace.Clip:PROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc];FurtherrestrictsthewindowSetWindow:PROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc];ChangesthewindowWindow:PROC[p:BitmapDesc]RETURNS[Rectangle];BufferBounds:PROC[p:BitmapDesc]RETURNS[Rectangle];ReturnsarectangledescribingtheactualboundsofthebufferBoundedWindow:PROC[p:BitmapDesc]RETURNS[Rectangle];p.Window.Intersect[p.BufferBounds]Fill:PROC[dest:BitmapDesc,area:Rectangle,value:CARDINAL,function:Function_[null,null]];Function:TYPE=RECORD[dstFunc:BitBlt.DstFunc,srcFunc:BitBlt.SrcFunc];[null,null]makeszerobitswhite,onebitsblack[or,null]makeszerobitstransparent,onebitsblack[and,null]makeszerobitswhite,onebitsblack��qОg/НEи�wО_,НСНтyНйО_,�О_,Н4wО_,Н▌�Н О]┘НСНЎyН·О]┘�О]┘Н┤wО]┘Н≤�Н%О[щНСyН5О[щ�О[щНОО[щН&wО[щНг�yН!TО[щ�О[щН"<wН#_О[щ�О[щОZ5НСНЛyН║ОZ5�ОZ5НlwОZ5Н\�НИ�xОX▌НСНDНeН aН#┬Н&,Н*ҐН,b�Н-√Н0ГН7*Н9вН=ґОVГНфНFН ННїН#╒Н%GН'⌠Н+ёwОU?НСОQПНБ yНҐОQП�ОQПНvwОQПН.�yНОQП�ОQПНГwОQПН ├Н$иyН(юОQП�ОQПН)*wН.�ОQП�ОQПН.эН2їyН6┤ОQП�ОQПН7pwН8ЩОQП�ОQПН9`�uОN║НБ wН╒ОN║�ОN║yН═ОN║�ОN║НHwОN║НGН#╩ yН+жОN║�ОN║Н,╘wОN║Н1А�yН2DОN║�ОN║Н2ўwН4PОN║�ОN║Н57�yН7ОN║�ОN║Н7├wОN║Н;╦�yОLЗНСwОLЗН`П!Н+gОKRНСuОHНБwНжОH�ОHyНтОH�ОHН{wОHН{yН ОH�ОHНыОHН"wН'-ОH�ОHН( yН,░ОH�ОHН,ЗwН.°ОH�ОHН/xН4я yН;∙ОH�ОHН<iwОF\Н╣xОDЄНСНb�Н≈НЮН Н"jН'wОC НСyН)ОC �ОC НЦwН ;ОC �ОC uО?ЎНБwНО?Ў�О?ЎyНО?Ў�О?ЎНҐwО?ЎНҐН╒Нf yН#+О?Ў�О?ЎН#ЪwО?ЎН)7xО>НСН8Н└Н ІН"YН&\ uО:гНБwНО:г�О:гyНО:г�О:гН╦wО:гНЇН+xО9НС�НuН НоНsНе�НЗuО5пНБwН├О5п�О5пyН└О5п�О5пН+wО5пН+НS Н#bН$цyН&:О5п�О5пН&єwН+zО5п�О5пyН,aО5п�О5пН-5wО5пН2mxО4)НС НyНе Н!Н"╦Н&╩uО0зНБ wН√О0з�О0зyН■О0з�О0зН<wО0зН;Нc Н%sН&тyН(KО0з�О0зН(ЄwН-┼О0з�О0зyН.rО0з�О0зН/FwО0зН4~xО/2НС НyНеН⌡Н AН$DuО+ЦНБwНLО+Ц�О+ЦyНIО+Ц�О+ЦНЯwО+ЦНЯН Н (Н%│ yН,EО+Ц�О+ЦН-wО+ЦН2QxО*<НСНАНПН<uО&МНБwН╞О&М�О&МyНґО&М�О&МНUwО&МНTН| Н$▄Н)Д yН0╘О&М�О&МН1}wО&МН6╣xО%EНСНpН╪uО!ЖНБwНЄО!Ж�О!ЖyН╡О!Ж�О!ЖНYwО!ЖНYН│ yН"⌡О!Ж�О!ЖН#owО!ЖН(їuОїНБwНШОї�ОїyНЬОї�ОїН═wОїН÷Нг yН%БОї�ОїН&ІwОїН+МxО�НСН�Н9Н Н#]Н%╘Н)╧Н.NН/ЯН2>uО╠НБwНъО╠�О╠yНщО╠�О╠Н└wО╠Н└Н╛ yН'фО╠�О╠Н( wО╠Н-рxО НСП"uО╨НБwНХО╨�О╨yНФО╨�О╨Н█wО╨Н█НM Н!]Н$о Н+┴yН/╛О╨�О╨Н0wwН5ЦО╨�О╨Н6©ОН╣Н²�Н*НҐОдНБyНCОд�ОдНЭwОдН╣�yН Од�ОдНnwОдН Н&7Н0�Н5╠xОНСННЁНДНсН!_Н%NН'эН*hОuНСНrНіНвНфН RН'еН*SН,ъО мНСН]Н▒НбН╟Н!=Н%+Н'╨Н*FЪ��Ы��TVm$ь��3[and,complement]makeszerobitstransparent,onebitswhite[xor,null]makeszerobitstransparent,onebitsinvertedetcetera.Transfer:PROC[dest,source:BitmapDesc,function:Function_[null,null]];DoesaBITBLTfromthesourcetothedest,throughtheintersectionofthetwowindows.Doestherightthingifthesourceanddestoverlapinthesamebuffer.Tile:TYPE=RECORD[sOrigin,fOrigin:INTEGER,sSize,fSize:NAT,phase:INTEGER,pointer:LONGPOINTER,rast,lines:CARDINAL];AtileissimilartoaBitmapDesc,butthewindowspecificationsaremoreprimitive,andthereisanadditionalphasespecification.Atileisreplicatedtofilltheplane,withtileshiftedbyphasepixelsinthefdirectioneverysource.sSizelines.CreateTile:PROC[rectangle:Rectangle,phase:INTEGER_0,rasterPointer:LONGPOINTER,scratchPointer:LONGPOINTER_NIL,scratchWords:INT_0]RETURNS[tile:Tile];ThescratchPointerandscratchWordsparametersdescribethespacefortheresults.Therasteristurnedintoatile.Thismayinvolvereplicatingthepatterntomakealargertilethatwillspeedthecoloringoperation,sothesizeoftheresultwillnotingeneralbethesameasthesource.However,therastermaynotalwaysbecopied.TransferTile:PROC[dest:BitmapDesc,tile:Tile,function:Function_[null,null]];Transfersfromthetiledplanetodest.END.��qОg/НEи�xО_,НСН] Н?Н oН#^Н%ЙН-]Н/КН2wО]┘НСН9НmН·Н█Н!Н(▄Н+Н-іО[щНСuОX▐НБwНЛОX▐�ОX▐yНЙОX▐�ОX▐Н▓wОX▐Н▒Н0Н Ы Н) Н.ЭН4Д�Н6qН:xОVГНСН[�}Н▐ОVГ�ОVГНRxОVГНIН┤НсН$Н%їН'ТН+Н0Н2lН9²Н;AН=█ОU@НфНЭНdН╟Н ЫН$|Н%рН(Н,NН.РН1ІН6hН8Н:ZН=дwОQЯНБyН3ОQЯ�ОQЯНЛwОQЯНє�yН┴ОQЯ�ОQЯН]wОQЯНЭ�ОPJНСН)yНuОPJ�ОPJНъwН ╣ОPJ�ОPJОNёНСНЎyН·ОNё�ОNёН┤wНОNё�ОNёОLШНСyНNОLШ�ОLШН╦wН▌ОLШ�ОLШОKTНСyН5ОKT�ОKTНООKTН&wНCОKT�ОKTОIґНСНЛyН║ОIґ�ОIґНlwОHНСxОF^НС�НuНкН6НЁНX�Н█ Н%tН'уН*!Н.В Н7-Н9─ОDЇНф НҐН`НкН7Н!* Н'yН+9 Н3г�Н5IН7÷Н9 Н?+ОCНфНБН/Н(Н$НzН#лН%їН)gН-IН.НН1;�Н2.Н7бОAhНфНHuО>НБ wН-О>�О>yН+О>�О>НсwО>Нр Н ▄ Н'EyН+═О>�О>Н, wО>Н1d�Н2ЯН4~ yН=О>�О>Н=йО<rН╣wНрО<r�О<rНўyНО<r�О<rНмО<rН#wО<rН(і�yН*3О<r�О<rН+wН,>О<r�О<rН-yН6О<r�О<rН6┤wО<rН8ґ�Н::yН;рО<r�О<rН<іwО:кН╣НПxО9#НСНІ Н÷НCН'ґ Н.▀Н3╛Н5ЫН9≤Н;©О7|НфНъН╒НoНзН#Н%Ю�Н'Н*GН-WН0GН4я Н;xО5уНфНiНН╩�НОН шН#0Н&Н(≈Н,6Н.┐Н3╪ Н:Н;дН>О4-НфНiНІНmННfН Н$лН&°Н(ХН,RН.Н0WН5cН;VН=╒О2├НфНІННsНBuО/7НБwНLО/7�О/7yНJО/7�О/7НЯwО/7НЯН╠ Н&аН)≥Н,иН2╪Н8є�Н:1Н=дxО-░НСНИН&НrНxН#Н$©yО*AНБwНiО*A�О*AЪ��■��TVm$і��PDInterpBitmapImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,198411:28:57amPDTDIRECTORYBitBlt,Environment,Inline,PDInterpBitmap,PDBitBltTiming,System;PDInterpBitmapImpl:PROGRAMIMPORTSBitBlt,Inline,SystemEXPORTSPDInterpBitmap,PDBitBltTiming=BEGINBitmapDesc:TYPE=PDInterpBitmap.BitmapDesc;Tile:TYPE=PDInterpBitmap.Tile;Rectangle:TYPE=PDInterpBitmap.Rectangle;Function:TYPE=PDInterpBitmap.Function;bitsPerWord:NAT=Environment.bitsPerWord;lgBitsPerWord:NAT=Environment.logBitsPerWord;wordsPerPage:NAT=Environment.wordsPerPage;lgBitsPerPixel:NAT=0;pixelsPerWord:NAT=bitsPerWord;Someinlinesforbasicbit-hackingoperations.BITAND:PROC[a,b:CARDINAL]RETURNS[CARDINAL]=INLINE{RETURN[Inline.BITAND[a,b]]};Shift:PROC[a:CARDINAL,b:INTEGER]RETURNS[CARDINAL]=INLINE{RETURN[Inline.BITSHIFT[a,b]]};timingBitBlts:BOOLEAN_FALSE;bitBltPulses:System.Pulses_[pulses:0];ResetBitBltMicroseconds:PUBLICPROC={bitBltPulses_[pulses:0];timingBitBlts_TRUE};GetBitBltMicroseconds:PUBLICPROCRETURNS[LONGCARDINAL]={RETURN[System.PulsesToMicroseconds[bitBltPulses]]};BITBLT:PROC[ptr:BitBlt.BBptr]=INLINE{IFtimingBitBltsTHEN{bitBltPulses.pulses_bitBltPulses.pulses-System.GetClockPulses[];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];BitBlt.BITBLT[ptr];bitBltPulses.pulses_bitBltPulses.pulses+System.GetClockPulses[];}��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$Н┬Н%Н ╡Н#ЬН)▒Н+эyОX▌НБwОX▌НKН Н#CН'°Н2dОVГН╣ОS≤НБyН╒ОS≤�ОS≤НJОQПНСwОQПНёНРНLyОPHНСwОPHН╣Н!| ОN║НС�yНьОN║�ОN║Н▒wОLЫНБ yНОLЫ�ОLЫНлwОLЫН┘�НjОKRНБyН3ОKR�ОKRНЛwОKRНє�Н┴ОI╙НБ yНҐОI╙�ОI╙НvwОI╙Н.�НОHНБyНCОH�ОHНЭwОHН╣�Н ОF[НБyН_ОF[�ОF[НHwОF[НY�Н>ОDЄНБ yН⌠ОDЄ�ОDЄН|wОDЄН█�НrОCНБyН0ОC�ОCНwОCН*�НОAeНБyНОAe�ОAeНwОAeН�НЬО?ҐНБ yН╙О?Ґ�О?ҐН▓wО?ҐНё�Н┬xО>НБНєНННН} Н#÷ yО<nНСwНqО<n�О<nyНoО<n�О<nНwО<nННШyН©О<n�О<nН┼wН#ЖО<n�О<nyН$чО<n�О<nН%╡wН*eО<n�yО<nН*хwН0ЪО<n�О<nО:гН�yНИО:г�О:гНSwО:гН┘�yН5О:г�О:гН wНО:г�О:гН─yН#UО:г�О:гН$wН'сО:г�О:гН(6Н)╦uО9НСwНжО9�О9yНсО9�О9Н{wО9НzyН│О9�О9НLwН ╦О9�О9Н!■yН#YО9�О9Н#бwН(≥О9�О9yН)─О9�О9Н*TwО9Н/▄�yН/ОО9�О9Н0╨wН6&О9�О9О7xН�yНИО7x�О7xНSwО7xН┘�yН5О7x�О7xН wНО7x�О7xН─yН#UО7x�О7xН$wН(⌠О7x�О7xН(ЖН*xО2│НБ yН╛О2│�О2│НfwО2│Ня�yН^О2│�О2│Н wН"ЭО2│�О2│О/2НБНэН⌡�Н!'Н&'uО+ЦНБwНО+Ц�О+ЦyН О+Ц�О+ЦН╠О+ЦН#аwО+ЦН'i�Н)NН1~�Н3Н8О*<Н╣Н�yН⌠О*<�О*<НLwНЎО*<�О*<Нo�uО&МНБwНЛО&М�О&МyНЙО&М�О&МН▓О&МН"ёО&МН&JwО&МН,U�yН,╦О&М�О&МН-rО&МН0╘wН6ЮО&М�О&МН7г�О%EН╣�yНeО%E�О%EН9wНMО%E�О%EН╠П,yО!ЖНБwНЙО!Ж�О!ЖyНГО!Ж�О!ЖН▐wО!ЖН▌Н╘Н"Д�yН$иО!Ж�О!ЖН%3wО!ЖН)d�yО OНСwО OН yНКО O�О OН╔wО OН╠�ОїНН{�Н Н+�Н,|О�НyНнО��О�Н┬wНжО��О�Н9ОXНyНнОX�ОXН┬wНжОX�ОXН9О╠НyНнО╠�О╠Н┬wНжО╠�О╠Н9О НyНнО �О Н┬wНжО �О Н9ОaНyНнОa�ОaН┬wНжОa�ОaН9О╨НyНнО╨�О╨Н┬wНжО╨�О╨Н9ОНyНнО�ОН┬wНжО�ОН9ОkНyНнОk�ОkН┬wНжОk�ОkН9ОцНyНнОц�ОцН┬wНжОц�ОцН9ОНyНнО�ОН┬wНжО�ОН9ОtНН{�Н Н+�Н-dО мН�Ъ��╔��TVm$є��2ELSEBitBlt.BITBLT[ptr];};Intersect:PUBLICPROC[a,b:Rectangle]RETURNS[Rectangle]={sMin:INTEGER_MAX[a.sMin,b.sMin];fMin:INTEGER_MAX[a.fMin,b.fMin];sMax:INTEGER_MIN[INT[a.sMin]+a.sSize,INT[b.sMin]+b.sSize];fMax:INTEGER_MIN[INT[a.fMin]+a.fSize,INT[b.fMin]+b.fSize];IFsMax<=sMinORfMax<=fMinTHENRETURN[[0,0,0,0]]ELSERETURN[[sMin,fMin,sMax-sMin,fMax-fMin]]};LongZero:PROC[address:LONGPOINTERTOCARDINAL,count:CARDINAL]={IFcount>0THEN{address^_0;Inline.LongCOPY[from:address,nwords:count-1,to:address+1];};};Clear:PUBLICPROC[bitmapDesc:BitmapDesc]={pointer:LONGPOINTER_bitmapDesc.pointer;words:LONGCARDINAL_Inline.LongMult[bitmapDesc.rast,bitmapDesc.lines];WHILEwords>32768DOLongZero[pointer,32768];pointer_pointer+32768;words_words-32768;ENDLOOP;LongZero[pointer,words];};InsufficientSpace:PUBLICERROR=CODE;Reshape:PUBLICPROC[pointer:LONGPOINTER,words:INT,bounds:Rectangle]RETURNS[bitmapDesc:BitmapDesc]={bitsPerPixel:CARDINAL=Shift[1,lgBitsPerPixel];bitsPerLine:NAT=Inline.LongMult[bounds.fSize,bitsPerPixel];Willraiseaboundsfaultiftoomanybitsperline.wordsPerLine:CARDINAL=(bitsPerLine+(bitsPerWord-1))/bitsPerWord;wordsNeeded:INT=Inline.LongMult[wordsPerLine,bounds.sSize];IFwordsNeeded>wordsTHENERRORInsufficientSpace;RETURN[[bounds.sMin,bounds.fMin,0,0,bounds.sSize,bounds.fSize,pointer,wordsPerLine,bounds.sSize]];};ShiftMap:PUBLICPROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc]={p.sOrigin_p.sOrigin+s;p.fOrigin_p.fOrigin+f;RETURN[p]};ShiftWindow:PUBLICPROC[p:BitmapDesc,s,f:INTEGER]RETURNS[BitmapDesc]={��qОg/НEи�yО_,НСwО_,НByНО_,�О_,НеwНО_,�О_,НwО]┘НСuОZ5НБwНОZ5�ОZ5yНОZ5�ОZ5НҐОZ5НнwОZ5НuНZН! yН'ЦОZ5�ОZ5Н(ЇwОZ5Н-О Н5�Н6Э�ОX▌НСyНУОX▌�ОX▌Н_wОX▌Н╧�yНFОX▌�ОX▌НWwНЪОX▌�ОX▌НbН$?ОVФНСyНЙОVФ�ОVФНTwОVФНў�yН;ОVФ�ОVФНLwНТОVФ�ОVФНWН$)ОU?НСyН!ОU?�ОU?Н▀wОU?НЕ�yНrОU?�ОU?Н┐wНжОU?�yОU?Н9wН!DОU?�ОU?Н!╗yН,4ОU?�ОU?Н,·wН.?ОU?�ОU?Н.╒ОS≈НСyНОS≈�ОS≈Н─wОS≈Нз�yНgОS≈�ОS≈НxwНкОS≈�yОS≈Н.wН!9ОS≈�ОS≈Н!²yН,ОS≈�ОS≈Н,}wН.ОS≈�ОS≈Н.┌yОQПНСwОQПН НOНДyНlОQП�ОQПНI�wОQПН║Н"JН$ЮyН(]ОQП�ОQПН)ОQПН,"wОQПН1▐Н3БН5oН6ЭyОPHНСОPHНBwОPHН╞НUН"+ Н)Є ОN║НСuОKRНБwНиОKR�ОKRyНфОKR�ОKRНnwОKRНmyН4ОKR�ОKRНМОKRН#%ОKRН(еОKRН*ъwН1ОKR�ОKRН1СyН6CОKR�ОKRН7wН<zОKR�ОKRН=a�Н?F�yОI╙НСwОI╙Н Нq�Ні�yНшОI╙�ОI╙Н■wОI╙Н═�ОHНН÷�Н,ОF[НН"!Н'cН,╟Н2 Н41 ОDЄНОCНСuО?ҐНБwНО?Ґ�О?ҐyНО?Ґ�О?ҐН╦О?ҐНхwО?ҐНpН#Ц Н+Ч�Н-Ц�О>НСyН5О>�О>НОО>Н&wО>Нг�Н!TО<nНСyНyО<n�О<nН2О<nНjwО<nН %�Н!╡Н6VyО:фНСwО:фНTНa�Н√yН▄О:ф�О:фНr�wО9ННoО7wННм�НZН#�Н О5пНН�Н·Н╚�Н╗yО4(НwН╔О4(�О4(О2│НСН^О0ыНСО-┼НБyНО-┼�О-┼НюО-┼НяwО-┼Н#f�yН%KО-┼�О-┼Н&wН(▓О-┼�О-┼uО+ЦНБwНжО+Ц�О+ЦyНтО+Ц�О+ЦН{О+ЦН▄wО+ЦН3yН"ьО+Ц�О+ЦН#▓О+ЦН&иwН+ФО+Ц�О+ЦН,бyН1HО+Ц�О+ЦН1╡wН3TО+Ц�О+ЦН40Н9┴ yО*;Н╣wО*;НаН4 Н&O�Н(4�О(■НСyНВО(■�О(■НбwО(■Н╡�Н!≈Н&`О&ЛНСyНюО&Л�О&ЛН╗wО&ЛН╧�Н·Н0Q xО%EНННN�Н┐НН"KН#║Н%ВН)╔Н,2Н.┘wО#²НСyН+О#²�О#²НЖwО#²Н Ф�Н"кН6�Н7CО!ЖНСyНО!Ж�О!ЖН└wО!ЖН╙�Н▐Н1Ф yО NНСwО NН НH�Н}yН ┼О N�О NН!CО NН$OwО NН(ЕyОїНСwОїН` Н╧Н(AН)нН+[Н3ьН<JОЪНфНщОXНСuО НБwН├О �О yН└О �О Н+О Н<wО НЦН Н(Н){yН*РО �О Н+\wН02О �О yН1О �О Н1НwО Н7%Н?ё�ОbН╣�О╨НСНО�Н|Нx�Н ]ОНСНД�НqНb�Н GyОkНСwОkН`ОцНСuОtНБ wН√Оt�ОtyН■Оt�ОtН<ОtНLwОtНТН" Н*+Н+▄yН-Оt�ОtН-mwН2CОt�ОtyН3*Оt�ОtН3ЧwОtН96О мН╣�Н ��ъ��TVm$И��3p.sMin_p.sMin+s;p.fMin_p.fMin+f;RETURN[p]};Clip:PUBLICPROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc]={bounds_Intersect[Window[p],bounds];p.sMin_bounds.sMin-p.sOrigin;p.fMin_bounds.fMin-p.fOrigin;p.sSize_bounds.sSize;p.fSize_bounds.fSize;RETURN[p]};SetWindow:PUBLICPROC[p:BitmapDesc,bounds:Rectangle]RETURNS[BitmapDesc]={RETURN[p]};Window:PUBLICPROC[p:BitmapDesc]RETURNS[Rectangle]={RETURN[[p.sOrigin+p.sMin,p.fOrigin+p.fMin,p.sSize,p.fSize]]};BufferBounds:PUBLICPROC[p:BitmapDesc]RETURNS[Rectangle]={RETURN[[p.sOrigin,p.fOrigin,p.lines,Shift[p.rast,lgBitsPerWord-lgBitsPerPixel]]]};BoundedWindow:PUBLICPROC[p:BitmapDesc]RETURNS[Rectangle]={sMin:INTEGER_MAX[p.sOrigin+p.sMin,p.sOrigin];fMin:INTEGER_MAX[p.fOrigin+p.fMin,p.fOrigin];sMax:INTEGER_MIN[p.sOrigin+p.sMin+p.sSize,p.sOrigin+p.lines];fMax:INTEGER_MIN[p.fOrigin+p.fMin+p.fSize,p.fOrigin+Shift[p.rast,lgBitsPerWord-lgBitsPerPixel]];RETURN[[sMin,fMin,MAX[sMax-sMin,0],MAX[fMax-fMin,0]]]};replicator:ARRAY[0..4]OFCARDINAL=[0FFFFH,05555H,01111H,00101H,00001H];Fill:PUBLICPROC[dest:BitmapDesc,area:Rectangle,value:CARDINAL,function:Function]={lgPixelsPerWord:INTEGER=lgBitsPerWord-lgBitsPerPixel;Thefollowingboundingboxiscalculatedintermsofthedestinationbuffer.sMin:INTEGER=MAX[dest.sMin,0,area.sMin-dest.sOrigin];sMax:INTEGER=MIN[dest.sMin+dest.sSize,dest.lines,area.sMin+area.sSize-dest.sOrigin];fMin:INTEGER=MAX[dest.fMin,0,area.fMin-dest.fOrigin];fMax:INTEGER=MIN[dest.fMin+dest.fSize,Shift[dest.rast,lgBitsPerWord-lgBitsPerPixel],area.fMin+area.fSize-dest.fOrigin];replicatedPixel:CARDINAL_Inline.BITAND[value,Shift[1,Shift[1,lgBitsPerPixel]]-1]*replicator[lgBitsPerPixel];��qОg/НEи�wО_7НСН �Н'Нм�Н╡О]░НСН▐�ННЇ�Н°yО[ХНСwО[ХН`ОZ@НСuОVЯНБwНLОVЯ�ОVЯyНIОVЯ�ОVЯНЯОVЯНwОVЯН╘Ня Н$ЮН*9 yН0ЧОVЯ�ОVЯН1рwОVЯН7 Н?┤�ОUJН╣�ОSёНСНс�Н_Н$NОQШНСН �Н'ОPSНСН▐�НОN╛НСН└�НОMНСНy�НyОK]НСwОK]Н`ОI╣НСuОFfНБwН╞ОFf�ОFfyНґОFf�ОFfНUОFfНewОFfН Н!4 Н)DН.² yН5aОFf�ОFfН65wОD©Н╣Н3�Н�yОCНСwОCН`ОApНСuО>!НБwНЄО>!�О>!yН╡О>!�О>!НYО>!НjwО>!НН9 yН'TО>!�О>!Н((wО>!Н-_ Н4┤�Н6l�yО<yНСwО<yН` Н"�НН$Н)В�Н+эН0пН5╧О:рНСuО7┐НБwНШО7┐�О7┐yНЬО7┐�О7┐Н═О7┐Н╠wО7┐Н XН"─ yН* О7┐�О7┐Н+nwО7┐Н0і Н7н�Н9Ё�yО5шНСwО5шН`Нz Н#дН(uО44НфО2▄НСuО/=НБwНъО/=�О/=yНщО/=�О/=Н└О/=Н∙wО/=Н"<Н$d yН,О/=�О/=Н-SwО/=Н2┼ Н9╡�Н;≈�О-√НСyНУО-√�О-√Н_wО-√Н╧�yНFО-√�О-√НWwНЪО-√�О-√НbН%^�Н'CН,B О+ННСyНЙО+Н�О+ННTwО+ННў�yН;О+Н�О+ННLwНТО+Н�О+ННWН%H�Н'-Н,! О*GНСyН!О*G�О*GН▀wО*GНЕ�yНrО*G�О*GН┐wНжО*G�О*GН9Н%5�Н'Н+а�Н-іН2▐Н8▀�Н:pО(÷НСyНО(÷�О(÷Н─wО(÷Нз�yНgО(÷�О(÷НxwНкО(÷�О(÷Н.Н%�Н'Н+═�Н-┘Н2cН8T�Н:9О&ЬНфyО%PНСwО%PН`НyНэО%P�О%PНМwН!■О%P�О%PН!Ь Н)│yН+qО%P�О%PН,┐wН.*О%P�О%PН.█ Н6О#╘НСО ZНБ yН┘О Z�О ZНYwО ZН,yН├О Z�О ZНb�О ZН═wО ZН&[�Н(@Н.НН4\Н9йО╡Н╣uОНБwНХО�ОyНФО�ОН█ОН·wОНEН Н&Н)┤ Н0AyН4dО�ОН5/wН:⌡О�ОН;wОcН╣Н��НЕ�О╪НСyНыО╪�О╪НCwО╪Н!²�Н#┌xОНСНІН┼НmН"Н#└ Н)чН+└Н/2Н0уН3! Н9ЫwОmНyНОm�ОmНpwОmНй�yН╞Оm�ОmНаwН!hОm�ОmН!к Н(bН)ООеНyН2Ое�ОеН°wОеНЖ�yНшОе�ОеНМwН!?Ое�ОеН!╒Н/? ОНвП#ОvНyНШОv�ОvНewОvН©�yНєОv�ОvНІwН!]Оv�ОvН!ю Н(MН)ыОоНyН'Оо�ОоН▒wОоНК�yНпОо�ОоНБwН!4Оо�ОоН!≈Н/О(НвН&~П#О─НСyН╠О─�О─Н|wО─Н!l�Н"ЫyН&нО─�О─Н'┤wН+LО─�О─Н+╞Н/╠Н4zО ыНфНь�Н��f��TVm$■��4bbTableSpace:BitBlt.BBTableSpace;bb:BitBlt.BBptr_BitBlt.AlignedBBTable[@bbTableSpace];IFsMin<sMaxANDfMin<fMaxTHEN{bb^_[dst:[word:dest.pointer+Inline.LongMult[sMin,dest.rast]+Shift[fMin,-lgPixelsPerWord],bit:Inline.BITAND[fMin,Shift[1,lgPixelsPerWord]-1]],dstBpl:dest.rast*bitsPerWord,src:[word:@replicatedPixel,bit:0],srcDesc:[gray[[yOffset:0,widthMinusOne:0,heightMinusOne:0]]],height:sMax-sMin,width:Shift[fMax-fMin,lgBitsPerPixel],flags:[direction:forward,disjoint:TRUE,disjointItems:TRUE,gray:TRUE,srcFunc:function.srcFunc,dstFunc:function.dstFunc]];BITBLT[bb];};};Transfer:PUBLICPROC[dest,source:BitmapDesc,function:Function]={lgPixelsPerWord:INTEGER=lgBitsPerWord-lgBitsPerPixel;sMin:INTEGER=MAX[dest.sOrigin+MAX[dest.sMin,0],source.sOrigin+MAX[source.sMin,0]];sMax:INTEGER=MIN[dest.sOrigin+MIN[dest.sMin+dest.sSize,dest.lines],source.sOrigin+MIN[source.sMin+source.sSize,source.lines]];fMin:INTEGER=MAX[dest.fOrigin+MAX[dest.fMin,0],source.fOrigin+MAX[source.fMin,0]];fMax:INTEGER=MIN[dest.fOrigin+MIN[dest.fMin+dest.fSize,Shift[dest.rast,lgBitsPerWord-lgBitsPerPixel]],source.fOrigin+MIN[source.fMin+source.fSize,Shift[source.rast,lgBitsPerWord-lgBitsPerPixel]]];bbTableSpace:BitBlt.BBTableSpace;bb:BitBlt.BBptr=BitBlt.AlignedBBTable[@bbTableSpace];fMinDest:NAT=fMin-dest.fOrigin;fMinSource:NAT=fMin-source.fOrigin;sStartDest:NAT_sMin-dest.sOrigin;sStartSource:NAT_sMin-source.sOrigin;IFsMin<sMaxANDfMin<fMaxTHEN{bb^_[dstBpl:dest.rast*bitsPerWord,srcDesc:[srcBpl[source.rast*bitsPerWord]],height:sMax-sMin,width:Shift[fMax-fMin,lgBitsPerPixel],flags:[direction:forward,disjoint:TRUE,disjointItems:TRUE,gray:FALSE,srcFunc:function.srcFunc,dstFunc:function.dstFunc]];IFsource.pointer=dest.pointerTHEN{sSize:NAT=sMax-sMin;fSize:NAT=fMax-fMin;IF(fMinSource+fSize)>fMinDestAND(fMinDest+fSize)>fMinSourceAND(sStartSource+sSize)>sStartDestAND(sStartDest+sSize)>sStartSourceTHEN{bb.flags.disjoint_FALSE;--therectanglesoverlap��qОg/НEи�wО_,НСНOО]┘НСННV�НЦП%yО[щНСwО[щН yНО[щ�О[щНжwО[щН)yН$|О[щ�О[щН%5wО[щН(A�ОZ5ННг�НT�ОX▌ННмН2Н#╡�Н%≈Н3╦ Н9s�ОVГНХ НЗН(⌡Н+2yН/ОVГ�ОVГН/юwН3└ОVГ�ОVГН3ГН7ҐОU?НХОS≤ННъОQПННЇНН'Н)╟ОPIНН Н#⌡Н%( Н/нН1ZН<XОN║ННи ОLЗННqН$!ОKRННй НmН$ЯyН*TОKR�ОKRН+ wН-─ОKR�ОKRН.\ yН7ОKR�ОKRН7©wН:1ОKR�ОKRН;yОI╚НХwНОI╚�ОI╚НЯН╒Н*~Н0FОHНyОF\НwНОF\�ОF\НoОDЄНОC НСuО?ЎНБwНЛО?Ў�О?ЎyНЙО?Ў�О?ЎН▓О?ЎНёwО?ЎНJН ИН%╡ Н-аН3╣Н:��Н;Е�О>НСyНыО>�О>НCwО>Н!²�Н#┌О<oНСyНУО<o�О<oН_wО<oН╧�yН·О<o�О<oН╞wНWО<o�О<oН╨yН(+О<o�О<oН)=wН*ДО<o�О<oН+G Н1чО:гНфyНёО:г�О:гНЄwН\О:г�О:гН©Н&бО9 НСyН!О9 �О9 Н▀wО9 НЕ�yНйО9 �О9 НэwН.О9 �О9 Н▒yН(О9 �О9 Н)wН*fО9 �О9 Н*иН8fО7yНфyНёО7y�О7yНЄwНО7y�О7yНjН.чО5яНСyНЙО5я�О5яНTwО5яНў�yН⌠О5я�О5яН╔wНLО5я�О5яН╞yН(О5я�О5яН)'wН*нО5я�О5яН+1 Н1ЎО4*НфyН≤О4*�О4*Н╘wНQО4*�О4*НЄН&╛О2┌НСyНО2┌�О2┌Н─wО2┌Нз�yН©О2┌�О2┌НяwН#О2┌�О2┌Н├yН'ЛО2┌�О2┌Н(ЧwН*PО2┌�О2┌Н*ЁН8;О0шНфН$пyН.╒О0ш�О0шН/ЁwН1О0ш�О0шН1iО/3НфНО-▄НСНOО+ДНСННV�Н;П%О*=НСyН║О*=�О*=Н┼wО*=Н⌡�Н─НЩ�Н ШО(∙НС yНЬО(∙�О(∙НЮwО(∙НЯ�НжН!S�Н"QО&ННС yНШО&Н�О&ННДwО&ННТ�Н│О%FНСyНQО%F�О%FН:wО%FНK�НвyО#÷НСwО#÷Н yНО#÷�О#÷НжwО#÷Н)yН$|О#÷�О#÷Н%5wО#÷Н(A�О!ВННг�НT�О PННъО╗НН П"ОННи ОYННqН$!О╡ННй НmН$ЯyН*TО╡�О╡Н+ wН-─О╡�О╡Н.\ yН7О╡�О╡Н7©wН:1О╡�О╡Н;yО НХwН├О �О НcН Н*ЯН0╦ОcНyО╩НwО╩Н╛ Н≈�Н|yН&ЭО╩�О╩Н'╣wО╩Н*а�ОНyНО�ОНЙwОНШ�НЮ ОlНyНЖОl�ОlНъwОlНП�Ну yОеНwОеНҐyН)ъОе�ОеН*ЁwОеН-yОНХwОНyН,ОО�ОН-цwОvНХyН)иОv�ОvН*┌wОvН-▐�О оН'Н!�yН"▒О о�О оН#JwН&/О о�О оxН',О о�О оН'і�Н(ёН*О Н1@Ъ��├��TVm$²��5IFsStartDest=sStartSourceTHENbb.flags.disjointItems_FALSE;--sodotheitemsIFsStartDest>sStartSourceOR(sStartDest=sStartSourceANDfMinDest>fMinSource)THEN{--reversedirectionbb.flags.direction_backward;bb.srcDesc.srcBpl_bb.dstBpl_-bb.dstBpl;sStartSource_sStartSource+(sSize-1);sStartDest_sStartDest+(sSize-1);};};};bb.dst_[word:dest.pointer+Inline.LongMult[sStartDest,dest.rast]+Shift[fMinDest,-lgPixelsPerWord],bit:Inline.BITAND[fMinDest,Shift[1,lgPixelsPerWord]-1]];bb.src_[word:source.pointer+Inline.LongMult[sStartSource,source.rast]+Shift[fMinSource,-lgPixelsPerWord],bit:Inline.BITAND[fMinSource,Shift[1,lgPixelsPerWord]-1]];BITBLT[bb];};};IsPowerOfTwo:PROC[c:CARDINAL]RETURNS[BOOLEAN]=INLINE{RETURN[BITAND[c,c-1]=0]};largeBitSize:INT_5000;fSizeHint:NAT_100;CreateTile:PUBLICPROC[rectangle:Rectangle,phase:INTEGER_0,rasterPointer:LONGPOINTER,scratchPointer:LONGPOINTER_NIL,scratchWords:INT_0]RETURNS[tile:Tile]={ENABLEInsufficientSpace=>GOTOInsufficientScratch;bitWidth:CARDINAL=Shift[rectangle.fSize,lgBitsPerPixel];bitmapDesc:BitmapDesc=[rectangle.sMin,rectangle.fMin,0,0,rectangle.sSize,rectangle.fSize,rasterPointer,(rectangle.fSize+(pixelsPerWord-1))/pixelsPerWord,rectangle.sSize];IFbitWidth<=16ANDIsPowerOfTwo[bitWidth]ANDbitmapDesc.sSize<16ANDphase=0THEN{small:BitmapDesc_Reshape[scratchPointer,scratchWords,[rectangle.sMin,rectangle.fMin,rectangle.sSize,Shift[16,-lgBitsPerPixel]]];FORfShift:NAT_0,fShift+bitmapDesc.fSizeUNTILfShift>=small.fSizeDOTransfer[small,ShiftMap[bitmapDesc,0,fShift],[null,null]];ENDLOOP;tile_[small.sOrigin,small.fOrigin,small.sSize,small.fSize,0,small.pointer,small.rast,small.lines];}ELSE{fSize:NAT_(fSizeHint+bitmapDesc.fSize-1)/bitmapDesc.fSize*bitmapDesc.fSize;bitsPerLine:NAT_Shift[fSize,lgBitsPerPixel];sSize:NAT_MAX[(((largeBitSize+bitsPerLine-1)/bitsPerLine)/bitmapDesc.sSize)*bitmapDesc.sSize,��qОg/НEи�yО_,Н'wО_,НнyН(О_,�О_,Н(вwО_,Н+ЦН9�yН:■О_,�О_,Н;MwН>2О_,�О_,xН?/О_,�О_,Н?╘�О]┘НЗНЁН≤НДyО[щН'wО[щНнyН'mО[щ�О[щН(J�wО[щН)╒yН9kО[щ�О[щН:>wОZ6НЗyН&_ОZ6�ОZ6Н'wОZ6Н*$�xН+YОZ6�ОZ6Н+р�Н,пН1MwОX▌Н8Н#Р�Н%Н,.Н7+�Н8╦Н>М�ОVГН ОU?Н8Н!�Н"╘Н*▌�Н,s Н2{ Н9 �Н:≈ ОS≤Н�НП ОQЯН8ОPIН'ОN╒НОLЗНН(�Н╣НН$ �Н&Н7і Н=a�ОKSНвН║Н)BН+ьyН/ґОKS�ОKSН0fwН4+ОKS�ОKSН4▌Н;ОI╚НвОHНН�Н·Н Н%О�Н'тН:QОF]Нв�Н╪Н эН,}Н/yН2ХОF]�ОF]Н3║wН7fОF]�ОF]Н7и ОD╣НвН═yОCНwНОC�ОCНoОAfНО?©НСuО<pНБwНнО<p�О<pyНлО<p�О<pНswО<pНsyНnО<p�О<pН9wН$╔О<p�О<pyН%█О<p�О<pН&awО<pН+≤�yН+ШО<p�О<pН,╣wН1°О<p�О<pН2┐�yН4hО<p�О<pН4рwО<pН9�yО:хНСwО:хН`�yНцО:х�О:хН|wНAО:х�О:хНєННг�Н!╛О9!НСО5рНБyНЕО5р�О5рНOwО5рНu�НО4*НБ yН{О4*�О4*НdwО4*Нt�НuО2┌НБ wН-О2┌�О2┌yН+О2┌�О2┌НсО2┌НДwО2┌Н▀ Н%D Н+ЧyН0XО2┌�О2┌Н0бwО2┌Н6�Н7╘Н96 yО0шН╣О0шН╔wНбО0ш�О0шН÷yН#О0ш�О0шН#ЎО0шН&ЖwО0шН,√�yН.#О0ш�О0шН/wН0/О0ш�О0шН1yН:О0ш�О0шН:xwО0шН<·�Н>+yО/4Н╣wО/4НаНЭН6�Н�yО-▄НСwО-▄НН уyН#jО-▄�О-▄Н$X�О-▄Н%╧wО-▄Н'сО+ЕНСyНJО+Е�О+ЕНwО+ЕН�НКН,√О*=НС Н Н ╩�Н"═Н,■Н6Н7іО(√НфН@Н$╟ О&ОНфП2Н1ЙyО%GНСwО%GН НxНyНСО%G�О%GНфwО%GН yН/їО%G�О%GН0zwО%GН2мН=╘�Н>чyО#═НфwО#═НЛНм�Н╡�yНГО#═�О#═Н═wО#═Нґ�О!ЬНН Нс�Н `Н/Н7ЖО QНвН]Н&вН,QyО╘НwО╘НРyНBО╘�О╘Н+wО╘Н<�НиН UyН/зО╘�О╘Н0юwО╘Н4 yОНвwО[ННnН,\Н-ИН2{Н6yОЁНwНЇОЁ�ОЁОННc�НПНЗ Н(√Н/рН7Н8░ ОdНв НBОҐН�yОНСwОНB�ОnНyНЕОn�ОnНнwОnНч�ОфНвПAОНyНяО�ОН╨wОНй�НWН&SОwНyНПОw�ОwНыwОwНИ�yО пНвwН░О п�О пНСПOЪ��0��TVm$`��6bitmapDesc.sSize];large:BitmapDesc_Reshape[scratchPointer,scratchWords,[bitmapDesc.sOrigin+bitmapDesc.sMin,bitmapDesc.fOrigin+bitmapDesc.fMin,sSize,fSize]];finalPhase:CARDINAL;WHILEphase<0DOphase_phase+bitmapDesc.fSizeENDLOOP;phase_phaseMODbitmapDesc.fSize;finalPhase_(phase*(sSize/bitmapDesc.sSize))MODbitmapDesc.fSize;large.sSize_bitmapDesc.sSize;large.fSize_bitmapDesc.fSize;Transfer[large,bitmapDesc,[null,null]];WHILElarge.fSize<fSizeDOfSizePrev:NAT=large.fSize;large.fSize_MIN[fSize,2*fSizePrev];Transfer[large,ShiftMap[large,0,fSizePrev],[null,null]];ENDLOOP;WHILElarge.sSize<sSizeDOsSizePrev:NAT=large.sSize;large.sSize_MIN[sSize,2*sSizePrev];Transfer[large,ShiftMap[large,sSizePrev,phase],[null,null]];{firstPart:BitmapDesc_ShiftMap[large,sSizePrev,phase-bitmapDesc.fSize];firstPart.fSize_bitmapDesc.fSize;Transfer[large,firstPart,[null,null]];};phase_2*phase;WHILEphase>bitmapDesc.fSizeDOphase_phase-bitmapDesc.fSizeENDLOOP;ENDLOOP;tile_[large.sOrigin,large.fOrigin,sSize,fSize,finalPhase,large.pointer,large.rast,large.lines];};EXITSInsufficientScratch=>{tile_[rectangle.sMin,rectangle.fMin,rectangle.sSize,rectangle.fSize,phase,rasterPointer,(rectangle.fSize+(pixelsPerWord-1))/pixelsPerWord,rectangle.sSize];};};TransferTile:PUBLICPROC[dest:BitmapDesc,tile:Tile,function:Function_[null,null]]={bitWidth:CARDINAL=Shift[tile.fSize,lgBitsPerPixel];IFbitWidth=bitsPerWordANDtile.rast=1ANDtile.sSize<=16ANDtile.phase=0THEN{startLine:NAT_MAX[dest.sMin,0];endLine:INTEGER_MIN[dest.sMin+dest.sSize,dest.lines];startPixel:NAT_MAX[dest.fMin,0];endPixel:INTEGER_MIN[dest.fMin+dest.fSize,Shift[dest.rast,lgBitsPerWord-lgBitsPerPixel]];IFendLine>startLineANDendPixel>startPixelTHEN{startBit:NAT_Shift[startPixel,lgBitsPerPixel];bbTableSpace:BitBlt.BBTableSpace;��qОg/НEи�wО_,НвО]┘ННЕ Н°�Н )Н.щО[щНвП$ОZ6НвП#Н,0Н/ШОX▌Н yНОX▌�ОX▌НЮwН LОX▌�ОX▌yОVГНwОVГНeyНїОVГ�ОVГН█�wОVГННН"о�Н$\Н(>�Н*#yН4ТОVГ�ОVГН5ґwН:∙ОVГ�ОVГОU?ННФ�НsyНTОU?�ОU?НfwОU?Н╛ОS≤Н Н°�Н)Н└�Н ╦yН0÷ОS≤�ОS≤Н1╠wОS≤Н3ВОQПН Н╠�Н>ОPIН Ні�Н3ОN║НН& Н$Н'╘yОLЗНwОLЗНeyН! ОLЗ�ОLЗН"─�wОKRН yН╒ОKR�ОKRН┼wОKRН⌡�Н ─ОI╚Н НЇ�yНDОI╚�ОI╚НUwН╗ОI╚�ОI╚Н Н#йОHНН7Н'УН)┌ Н0PН3ЦyОF\НwНЇОF\�ОF\yОDЄНwОDЄНeyН!╟ОDЄ�ОDЄН"√�wОC Н yНґОC �ОC Н∙wОC Ні�Н ▀ОAeН Нб�yНOОAe�ОAeН`wНЁОAe�ОAeН Н#ЮО?ЎНН7Н'У Н.kН3Н6⌡О>Н Н│ Н#9�Н$фН.└ О<oНХО:гН'Нё�Н!0О9 Н'Н H Н%ЦН)vО7xН'О5яННВ�Н└yО4)НwО4)НvНX�Н█yН)^О4)�О4)Н*D�wО4)Н+╔Н/├�Н1Н4Т�Н5РyО2┌НХwН┴О2┌�О2┌yО0зНwНЇО0з�О0зО/3ННc�НПНц Н((Н+СН/╡ Н6╒ О-▀Нв НО+ДНyО*<НСwО*<НгН lН#�О(∙ННc�НПН ЦН*iН3ЦН=SО&ННв НIП2О%FНвО#÷НО!ВНСuО╗НБwНLО╗�О╗yНJО╗�О╗НЯО╗НwО╗Н╘Н#i Н+yН.QН1│Н7tН=\�ОН╣НHНГ�Нл�ОYНСyНJОY�ОYНwОYН�НКН)yО╡НСwО╡Н Нx�Н] yН"aО╡�О╡Н#5wО╡Н%┤Н*Z�Н,?�yН-tО╡�О╡Н.HwО╡Н0 Н6>Н8тyН:╧О╡�О╡Н;▄wО Нф Ны�Н©�yНСО �О Н╛wО Н╧�ОcН yНDОc�ОcН-wОcН>�yНйОc�ОcНэwН ┐Оc�ОcН Ф Н'~О╩НyНЛО╩�О╩НUwО╩Н╟�yН =О╩�О╩Н!NwН"║О╩�О╩Н#Н0║ОН yН{О�ОНdwОНu�yНО�ОНwН ╨О�ОН! Н'╙ОlНyН#Оl�ОlН▄wОlНГ�yН tОl�ОlН!┘wН"ьОl�ОlН#;Н0бОеНвyОНwОН╛yН О�ОН ЮwОН#2yН/О�ОН/╨wОН2ф�ОvНyНXОv�ОvНAwОvНQ�НчН(pО нННqЪ��Б��TVm$!��7bb:BitBlt.BBptr=BitBlt.AlignedBBTable[@bbTableSpace];sOffset:INTEGER_(dest.sOrigin+dest.sMin-tile.sOrigin)MODtile.sSize;fOffset:INTEGER_(dest.fOrigin+dest.fMin-tile.fOrigin)MODtile.fSize;WHILEsOffset<0DOsOffset_sOffset+tile.sSizeENDLOOP;WHILEfOffset<0DOfOffset_fOffset+tile.fSizeENDLOOP;bb^_[dst:[word:dest.pointer+Inline.LongMult[startLine,dest.rast]+startBit/bitsPerWord,bit:startBitMODbitsPerWord],dstBpl:dest.rast*bitsPerWord,src:[word:tile.pointer+sOffset,bit:Shift[fOffset,lgBitsPerPixel]],srcDesc:[gray[[yOffset:sOffset,widthMinusOne:0,heightMinusOne:tile.sSize-1]]],height:endLine-startLine,width:Shift[endPixel-startPixel,lgBitsPerPixel],flags:[direction:forward,disjoint:TRUE,disjointItems:TRUE,gray:TRUE,srcFunc:function.srcFunc,dstFunc:function.dstFunc]];BITBLT[bb];};}ELSE{sMin:INT_dest.sOrigin+dest.sMin;fMin:INT_dest.fOrigin+dest.fMin;source:BitmapDesc;sOrigin:INT_tile.sOrigin;fOrigin:INT_tile.fOrigin;WHILEsOrigin<sMinDOsOrigin_sOrigin+tile.sSize;fOrigin_fOrigin+tile.phase;ENDLOOP;WHILEsOrigin>sMinDOsOrigin_sOrigin-tile.sSize;fOrigin_fOrigin-tile.phase;ENDLOOP;WHILEfOrigin<fMinDOfOrigin_fOrigin+tile.fSizeENDLOOP;WHILEfOrigin>fMinDOfOrigin_fOrigin-tile.fSizeENDLOOP;source_[sOrigin,fOrigin,0,0,tile.sSize,tile.fSize,tile.pointer,tile.rast,tile.lines];WHILEsource.sOrigin<sMin+dest.sSizeDOsource.fOrigin_fOrigin;WHILEsource.fOrigin<fMin+dest.fSizeDOTransfer[dest,source,function];source.fOrigin_source.fOrigin+source.fSize;ENDLOOP;source.sOrigin_source.sOrigin+source.sSize;fOrigin_fOrigin+tile.phase;WHILEfOrigin>fMinDOfOrigin_fOrigin-source.fSizeENDLOOP;ENDLOOP;};};END.��qОg/НEи�wО_,НН║Нx�Н!]П%О]└НyН6О]└�О]└Н═wО]└НЗ�Н!┤П%yН8/О]└�О]└Н9@wО]└Н;┤ О[щНyН+О[щ�О[щН∙wО[щНО�Н!|П%yН8О[щ�О[щН9wО[щН;[ yОZ5НwОZ5НvН�НR�yН ┤ОZ5�ОZ5Н!m�wОZ5Н"нН'u�Н)Н-╘�Н/▌ yН52ОZ5�ОZ5Н5ЛwН:сОZ5�ОZ5yОX▌НwОX▌НvН�НG�yН |ОX▌�ОX▌Н!b�wОX▌Н"цН'_�Н(ЛН-┬�Н/m yН5ОX▌�ОX▌Н5юwН:╗ОX▌�ОX▌ОVФННь�Нe�ОU>Н'НчНCН%ц�Н'╗Н8 Н=б�ОS≈НЗН%KН'БyН,╚ОS≈�ОS≈Н-╪wОS≈Н0ОQПН'НПОPHН'НхН-Н+Н- Н5кОN═Н'Н╛Н%╛Н*╛ Н5QН6чОLЫНЗОKQН'НзОI╙Н'Н┌Н*ўОHН'Нш Н!~Н'yН,eОH�ОHН-wН/▒ОH�ОHН0m yН9ОH�ОHН9пwН<BОH�ОHН=yОF[НЗwН%ОF[�ОF[НН!ЁН,░Н2WОDЁН'yОCНwНОC�ОCН─ОAdНО?ҐН�yО>НСwО>НB�О<mНyНО<m�О<mНpwО<mН√�Н#О:фНyНШО:ф�О:фНewО:фН▀�НО9ННм О7wНyН[О7w�О7wНеwО7wНК�НxО5оНyНPО5о�О5оН╨wО5оНЮ�НmyО4'НwО4'НeНC�НxyН!�О4'�О4'Н!Е�wО2─ННС�Н─Н ^�Н"C О0ьННХ�НuН H�Н"- yО/1НwНЇО/1�О/1yО-┴НwО-┴НeНC�НxyН!�О-┴�О-┴Н!Е�wО+АННС�Н─Н ^�Н![ О*:ННХ�НuН H�Н!E yО(▓НwНЇО(▓�О(▓yО&КНwО&КНeН8�НmyН ЙО&К�О&КН!п�wО&КН#0Н(�Н)░Н.c�Н0H yН5АО&К�О&КН6 wН;┌О&К�О&КyО%CНwО%CНeН8�НmyН ЙО%C�О%CН!п�wО%CН#0Н(�Н)░Н.c�Н/` yН4ЗО%C�О%CН5ЁwН:⌡О%C�О%CО#⌡ННT�НАНzН#╔Н%1Н&Ў Н,╩ Н2╛Н9Ъ О!ТНвyО MНwО MНe Н f�Н! yН,(О M�О MН-�wО╔Н Н�Н≤yОЩНwОЩНv Н"l�Н#║yН.ОЩ�ОЩН.Ч�wОVН' НеН$m ОўН' Н �Н!╘ Н*·�Н,┐yОН'wНхО�ОО_Н Н�Нё Н(ё�Н*┬ОЇННХ�НuН H�Н"- yОНwОНvНI�Н~yН"ШО�ОН#А�wОН%AН*�Н+║Н0t�Н1qyН8ЭО�ОН9╣wН>²О�ОyОhНwНЇОh�ОhОаНОНСyО йНБwНiО й�О йЪ��8��TVm$.��PDInterpMainImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September20,19849:14:01amPDTDIRECTORYPDInterpReader,PDInterpPage,PDRemoteStream,PDQueue,Process,Stream,String,PDInterpOutput;PDInterpMainImpl:PROGRAMIMPORTSPDInterpReader,PDInterpPage,PDRemoteStream,PDQueue,Process,String,PDInterpOutput=BEGINDoFile:PROC[request:PDQueue.Request,requestNumber:CARDINAL,abort:LONGPOINTERTOBOOLEAN]={Action:PROC[stream:Stream.Handle]={reader:PDInterpReader.Handle_PDInterpReader.Open[stream];separator:LONGSTRING_[160];String.Copy[separator,request.requestTime];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.fileName];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.requestor];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;reader.herald.copies_request.copies;WHILEPDInterpPage.InterpretPage[reader,request,abort].okDOIFabort^THENABORTEDENDLOOP;[]_PDInterpReader.Close[reader];};IFrequest.fileName=NILTHENPDInterpOutput.ReprintLastPage[request.copies]ELSE{PDRemoteStream.Read[request.fileName,request.requestor,request.requestorPassword,Action!PDRemoteStream.Error=>{message:LONGSTRING_[160];String.AppendString[message,request.fileName];String.AppendString[message,""];String.AppendString[message,expl];PDQueue.LogMessage[message,requestNumber];CONTINUE;};PDInterpReader.Error=>{message:LONGSTRING_[160];String.AppendString[message,"PDfileerror:"];String.AppendString[message,SELECTcodeFROMinvalidPassword=>"NotaPDfile",objectOutOfBounds=>"Objectoutofbounds",missingStartImage=>"Missingstartimage",badLoadReference=>"Badloadreference",unrecognisedImagingCommand=>"Unrecognisedimagingcommand",loadOutOfBounds=>"Loadoutofbounds",unrecognisedControlCommand=>"Unrecognisedcontrolcommand",unrecognisedCommandType=>"Unrecognisedcommandtype",��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKН!Н*KН5ОН<╗ОVГН╣НюН1ОU?НБyНxОU?�ОU?Н ОU?Н!ШwОU?Н'╚Н2gОS≤Н╣НXН"Н'IН+╧ Н6�yН8ОS≤�ОS≤Н8ҐuОPIНБwНЫОPI�ОPIyНВОPI�ОPIН·wОPIН·НOН)5 yН3┤ОPI�ОPIН4RwН9ЎОPI�ОPIН: yОN║Н╣ОN║Н╔ОN║НFОN║Н`wН!�ОN║�ОN║Н!Х�Н#м�uОLЗНСwНчОLЗ�ОLЗyНэОLЗ�ОLЗН└wНЪОLЗ�ОLЗНbНL Н(�Н)З�ОKRННбН&ы�Н(fОI╚Н yНpОI╚�ОI╚Н)ОI╚НawОI╚Н"R�Н#ъОHНН нyОF\НwОF\Н▓yНОF\�ОF\НИ�wОF\НIН1 �Н2w�yН3^ОF\�ОF\Н4wН8ЪОF\�ОF\ОDЄНН%ШyОC НwОC Н▓yНОC �ОC НИ�wОC НIН1 �Н2w�yН3^ОC �ОC Н4wН8ЪОC �ОC ОAeНН%ШyО?ЎНwО?ЎН▓yНО?Ў�О?ЎНИ�wО?ЎНIН1 �Н2w�yН3^О?Ў�О?ЎН4wН8ЪО?Ў�О?ЎО>ННb�Н ОyО<oНwО<oНeП"Н-4Н2ayН81О<o�О<oН9�О<oН:wwО<oН<yО:гНвО:гН²О:гНІwН#WО:г�О:гО9 ННO�НэО7xНyО5яНСwО5яН НC�yН(О5я�О5яН О5яН!╦wО4)НфП.yО2┌НСwО2┌НB�О0зНП%Н,║О/3НвН$oН(Й�О-▄НН#ХН&}�О+ДН'yНВО+Д�О+ДН╠О+ДН ХwО+ДН%ы�Н'fО*=Н'Н)┌О(∙Н'Н)┌�Н*ЇО&НН'Н)┌О%FН'Н*юyО#·Н'wНaО#·�О#·О!ВН'О OНН#Н%√�О╗Н'yНВО╗�О╗Н╠О╗Н ХwО╗Н%ы�Н'fО�Н'Н)┌Н,╗Н/Н2ЭОYН'yН)┌ОY�ОYН*"wОYН.UyН1°ОY�ОYН2UwО╠Н8Н#MН%БН)d�Н*█Н-О Н8Н%╒Н(8Н-YН/оН1┬ОbН8Н$ёН'9Н- Н0О╩Н8Н$ЩН'▓Н+Н.* ОН8Н,╡Н/GН8╛ОlНОдН8Н$≥Н'.Н+rН-ГН/═ОН8Н,eН.ШН8_ОvНО нН8Н*ьН-nН6сН=4Ъ��6��TVm$а��2unexpectedEOF=>"UnexpectedEOF",runGroupTooLong=>"Rungrouptoolong",bitmapTooBig=>"Bitmaptoobig",deviceCommandTooBig=>"Devicecommandtoobig",ENDCASE=>"??"];String.AppendString[message,"wordIndex:"];String.AppendDecimal[message,wordIndex];String.AppendString[message,"wordCount:"];String.AppendDecimal[message,wordCount];PDQueue.LogMessage[message,requestNumber];CONTINUE;};PDInterpReader.Warning=>{message:LONGSTRING_[160];String.AppendString[message,"PDfilewarning:"];String.AppendString[message,SELECTcodeFROMwrongFormatVersion=>"WrongversionofPDfileformat",unreasonableResolution=>"Unreasonableresolution",unreasonableBandSSize=>"UnreasonablebandSSize",unreasonableImageSize=>"UnreasonableimageSize",unreasonableLoadSize=>"UnreasonableloadSize",unreasonableNumberOfCopies=>"Unreasonablenumberofcopies",objectOutOfBand=>"Objectoutofband",emptyRunGroup=>"Emptyrungroup",nonZeroFill=>"Non-zerofill",imageBoundsExceedPageBounds=>"Imageboundsexceedpagebounds",tooFewBands=>"Toofewbands",unknownColorTileFlag=>"Unknowncolortileflag",ENDCASE=>"??"];String.AppendString[message,"wordIndex:"];String.AppendDecimal[message,wordIndex];String.AppendString[message,"wordCount:"];String.AppendDecimal[message,wordCount];PDQueue.LogMessage[message,requestNumber];RESUME;};];};};Main:PROC={DOPDQueue.DoRequest[DoFile!ABORTED=>CONTINUE;]ENDLOOP};��qОg/НEи�wО_,Н8Н#dН%З Н.LО]└Н8Н%=Н'сН+·Н/═Н2 О[щН8Н"DН$зН*^Н,хОZ5Н8Н(Н*╙Н/ВН6XН8бyОX▌Н8wОX▌Н:Н!пОVФН8ОU>Н'Н)┌�Н*Ї Н2!ОS≈Н'Н*Ц ОQОН'Н)┌�Н*Ї Н2nОPHН'Н*Ц ОN═Н'Н*юyОLЬН'wНaОLЬ�ОLЬОKQН'ОI╘НН$ЭН'▓�ОHН'yНВОH�ОHН╠ОHН ХwОHН%ы�Н'fОFZН'Н)┌Н,╗Н/Н4вОD╡Н'yН)┌ОD╡�ОD╡Н*"wОD╡Н.UyН1°ОD╡�ОD╡Н2UwОCН8Н&fН(ЭН.HН3Н4хН7=Н9їОAcН8Н(�Н*√Н3ЗО?╪Н8Н'ъН*uН3ы О>Н8Н'їН*=Н3║ О<lН8Н' Н)╒Н3 О:еН8Н,2Н.гН8,Н=XО9НО7vН8Н$AН&вН+ЬН.mН0&О5нН8Н#ЪН&∙Н+аН.WО4'Н8 Н БН#wН*IО2Н8Н-MН/БН4юН9═Н>'О0ьНО/0Н8 Н!кН$`Н'СН*■О-┴Н8Н' Н*0Н1LН4иН7(yО+АН8wО+АН:Н!пО*9Н8О(▓Н'Н)┌�Н*Ї Н2!О&ЙН'Н*Ц О%CН'Н)┌�Н*Ї Н2nО#⌡Н'Н*Ц О!СН'Н*юyО LН'wНО L�О LОєН'ОЩНОUНОґНСuО^НБwНО^�О^yНО^�О^НЇwО^НІ�Н⌡�yОЇНСwОНН$Щ�yОgНwОgН/yНдОg�ОgН▐wН#ЧОg�ОgОюН�yОНwОqНС��2��TVm$з��3PDQueue.LogMessage["Booted."];Process.Detach[FORKMain[]];END.��qОg/НEи�wО_,НБО[щНБyН1О[щ�О[щНКwО[щНyОX▐НБwНiОX▐�ОX▐Ъ��>��TVm$�-��PDInterpOutput.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September19,19849:12:44amPDTDIRECTORYPDFileFormat,PDInterpBitmap,PDQueue;PDInterpOutput:DEFINITIONS=BEGINStartImage:PROC[herald:PDFileFormat.Herald,startImage:PDFileFormat.StartImage,request:PDQueue.Request]RETURNS[PDInterpBitmap.BitmapDesc];Calledatthestartofeachpass.Returnsaclearedbufferforthefirstbandonthepage.Onsomedevices(continuousformdevicessuchasaVersatec),theoutputroutinemaywanttoprintaseparatorbarcontainingtheseparatorstring.TheImplshouldcopythestringifitneedstosaveitpasttheStartImagecall.EndBand:PROCRETURNS[PDInterpBitmap.BitmapDesc];Calledattheendofeachband.Returnsaclearedbufferforthenextband.Thebufferreturnedbythecallforthelastbandshouldnotbeused.EndImage:PROC[request:PDQueue.Request];Actuallystartstheprinting.ReprintLastPage:PROC[copies:CARDINAL];Attemptstoreprintthemostrecentpageagain.Thereneedstobesomestuffhereforerrormessagesandrecovery.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WyОX²НБwОX²НKНпН*≈ОUNНБyНаОUN�ОUNНі wОUNН!Ю�yН#еОUN�ОUNН$uОQЪНБ wН└ОQЪ�ОQЪyН┌ОQЪ�ОQЪН)wОQЪН)НJН-@ ОPXН╣Н Н%WyОN╠НСwОN╠НЪxОM НСН7НэН(НFНИН!ОKbНСН�Н9НжНдН!ЛН$8Н'Н*[Н,NН. ОI╩НСНIНЁН; Н"┌Н%юН*HН-eН/�Н0R Н6÷Н8КН=*ОHНфНІННіНЯ�Н%Н$Н&l Н-Н/[Н59Н9ДН<їОFlНфНН1Н}НMН ёН!ЗН%╗Н'LН*;Н+⌠Н.lН0╦ Н7шuОCНБwНDОC�ОCyНAОC�ОCНИОCНХwОCНТxОAvНСН7НэН(НІНYН │О?оНСН�Н9НжНдН!ЛН$8Н'MО>'НСНІН╔ННщН!)Н#©Н%ГН(3Н*©Н.Н2YН4╪Н6▄uО:ыНБwНсО:ы�О:ыyНпО:ы�О:ыНxwН]О:ы�О:ыНюНxО91НСНYНШНGuО5ЦНБwНъО5Ц�О5ЦyНщО5Ц�О5ЦН┘wО5ЦН└yН"▐О5Ц�О5ЦН#ZwН(фО5Ц�О5ЦН))�xО4;НСН╚НPН╨НН"EН&MН)}О0МНБНдНrННФНPН cН#^Н%├Н(БН.═Н1CyО-·НБwНiО-·�О-·��╨��TVm$о��PDInterpOutputViewerImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September26,19845:22:14pmPDTImplementsaCedarPDoutputdevicethatshowsthebitmapinaviewer.DIRECTORYPDFileFormat,PDInterpBitmap,Menus,ImagerPixelMaps,PDInterpOutput,ViewerClasses,ViewerOps,CGContext,Graphics,GraphicsOps,Real,ImagerFrameBuffer,Process,PDTextBitmap,String,PDQueue;PDInterpOutputViewerImpl:PROGRAMIMPORTSMenus,ImagerPixelMaps,ViewerOps,Graphics,GraphicsOps,Real,ImagerFrameBuffer,Process,PDTextBitmap,PDInterpBitmap,StringEXPORTSPDInterpOutput=BEGINviewer:ViewerClasses.Viewer_NIL;pageMap:ImagerPixelMaps.PixelMap_ImagerPixelMaps.Create[0,[0,0,0,0]];currentStartImage:PDFileFormat.StartImage;currentHerald:PDFileFormat.Herald;bandNumber:NAT_0;StartImage:PUBLICPROC[herald:PDFileFormat.Herald,startImage:PDFileFormat.StartImage,request:PDQueue.Request]RETURNS[PDInterpBitmap.BitmapDesc]={bandMap:ImagerPixelMaps.PixelMap;pageMap_ImagerPixelMaps.Create[0,[startImage.passBands*herald.bandSSize,startImage.fMinPage,startImage.nBands*herald.bandSSize,startImage.fSizePage]];currentStartImage_startImage;currentHerald_herald;bandNumber_0;pageMap.Clear;bandMap_pageMap.Clip[[startImage.passBands*herald.bandSSize,startImage.fMinPage,herald.bandSSize,startImage.fSizePage]];RETURN[[sOrigin:bandMap.sOrigin,fOrigin:bandMap.fOrigin,sMin:bandMap.sMin,fMin:bandMap.fMin,sSize:bandMap.sSize,fSize:bandMap.fSize,pointer:bandMap.refRep.pointer,rast:bandMap.refRep.rast,lines:bandMap.refRep.lines]]};EndBand:PUBLICPROCRETURNS[PDInterpBitmap.BitmapDesc]={bandMap:ImagerPixelMaps.PixelMap;bandNumber_bandNumber+1;bandMap_��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WОZ5НБ Н)�Н^Н`НъН"Н&!Н(СН,уН/!Н3÷Н5E�Н6zyОVФНБwОVФНKНпН*≈Н/│ОU?Н╣Нr Н#╣ Н+ Н2уН9ОS≤Н╣НHНЧН%4Н.ЩН3nОPIНБyН фОPI�ОPIН!nОN║НСwОN║НёН█Н&к Н.4Н4tН=ОLЗНфН{Н#╡Н-{Н8ByОKRНСwОKRН╣ ОI╚НС�yНьОI╚�ОI╚Н▒wОF\НСНяН#A�yН$нОF\�ОF\Н%ІwН&ыОF\�ОF\ОC НСНuН(c�Н)ПН:z ОAeНСНўО?ЎНС НOО>НС yНОО>�О>НвwО>НХ�НuuО:гНС wН∙О:г�О:гyН⌠О:г�О:гН:О:гНKwО:гН РН&Н4 О9 НфН"Н'hyО7xНwО7xНН+п�Н-╣�О5яННЎО4)НН �Н О2┌НвП'Н,╙О0шНвП#Н*≤О/3ННE�Нр О-▄ННГ�НtО+ДН Н┤�НО*=Н О(∙ННE�НрП4О&ННвН!Н,%yО%FНwО%FНqО#÷ННmО!ВННbО PННО╗ННОНН ОYННЖ О╡ННXО НН0ОcННйО╩НОНuОдНСwНUОд�ОдyНRОд�ОдНЗОдНОдН╡wОдН%ЎН8~�Н:c�ОННЎОuН Н┤�Н Н%√�Н'{О нННE�Ъ��G��TVm$ы��2pageMap.Clip[[(currentStartImage.passBands+bandNumber)*currentHerald.bandSSize,currentStartImage.fMinPage,currentHerald.bandSSize,currentStartImage.fSizePage]];RETURN[[sOrigin:bandMap.sOrigin,fOrigin:bandMap.fOrigin,sMin:bandMap.sMin,fMin:bandMap.fMin,sSize:bandMap.sSize,fSize:bandMap.fSize,pointer:bandMap.refRep.pointer,rast:bandMap.refRep.rast,lines:bandMap.refRep.lines]]};ShowPage:PROC={data:ViewerData;IFviewer=NILORviewer.destroyedTHENviewer_ViewerOps.CreateViewer[$PDInterpOutputViewerClass,[name:"PDpage",column:left,iconic:TRUE]]ELSEViewerOps.PaintViewer[viewer,client];data_NARROW[viewer.data];data.nextPage_FALSE;data.sShift_-pageMap.sOrigin;data.fShift_-pageMap.fOrigin;DOIFviewer.destroyedORdata.nextPageTHENEXIT;Process.Pause[Process.MsecToTicks[200]];ENDLOOP;};EndImage:PUBLICPROC[request:PDQueue.Request]={separator:LONGSTRING_[160];String.Copy[separator,request.requestTime];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.fileName];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;String.AppendString[separator,request.requestor];THROUGH[0..2)DOString.AppendChar[separator,']ENDLOOP;ShowPage[];IFPDTextBitmap.fontName.length=0THENIFNOTPDTextBitmap.SetFont["[Indigo]<Peach>Fonts>TimesRoman36B.ks",request.requestor,request.requestorPassword]THENERROR;pageMap_pageMap.refRep.Reshape[0,[-1-PDTextBitmap.FontAscent[],-PDTextBitmap.FontAscent[],PDTextBitmap.FontAscent[]+PDTextBitmap.FontDescent[]+2,PDTextBitmap.TextWidth[separator]+2*PDTextBitmap.FontAscent[]]];{bits:PDInterpBitmap.BitmapDesc_[sOrigin:pageMap.sOrigin,fOrigin:pageMap.fOrigin,��qОg/НEи�wО_,НвПOО]┘НвН%▌О[щНвyОZ6НwОZ6НqОX▌ННmОVГННbОU?ННОS≤ННОQПНН ОPIННЖ ОN║ННXОLЗНН0ОKRННйОI╚НОHНuОDЄНСwНОDЄ�ОDЄyНОDЄ�ОDЄНаwОDЄНю�Н╔�ОC НН┐ yОAeНwОAeН╛Н�yНУОAe�ОAeНчОAeН┘wОAeН╨yН*2ОAe�ОAeН*КwОAeН-ВН2\�О?ЎНвП2Н5вН:sН=≥О>НвНFНyН ▌О>�О>Н!GwН#╨О>�О>Н$�yО<oНwО<oНSН)■О:гНН �yН√О:г�О:гНwО:гНu О9 НН╧�yНFО9 �О9 НЪwН ДО9 �О9 О7xН НЎ�НKО5яН НЁ�Н@yО4)НО2┌НwО2┌НҐyН!5О2┌�О2┌Н"�wО2┌Н#iyН,О2┌�О2┌Н,вО2┌Н/ЦwН2⌠О2┌�О2┌О0зНП(yО/3НwНЇО/3�О/3О-▀НuО*<НСwНДО*<�О*<yНБО*<�О*<Н┴О*<Н wО*<Н AН%РН1Ц�Н3х�О(∙Н yНpО(∙�О(∙Н)О(∙НawО(∙Н"R�Н#ъО&МНН нyО%FНwО%FН▓yНО%F�О%FНИ�wО%FНIН1 �Н2w�yН3^О%F�О%FН4wН8ЪО%F�О%FО#·НН%ШyО!ВНwО!ВН▓yНО!В�О!ВНИ�wО!ВНIН1 �Н2w�yН3^О!В�О!ВН4wН8ЪО!В�О!ВО OНН%ШyО╗НwО╗Н▓yНО╗�О╗НИ�wО╗НIН1 �Н2w�yН3^О╗�О╗Н4wН8ЪО╗�О╗О�Н yОYНwОYН╛Н(┌�Н*g�yН+°ОY�ОYН,UОYН/aОYН1wО╠НвП=О НвНКyН/▌О �О Н0GО Н3SwН7eО �О ОbНН �Н Н+БО╩НвОНвП7ОlНвП@ОеН�ОНН0Н**�Н+Ї�ОvН'Н~О нН'Нs��H��TVm$M��3sMin:pageMap.sMin,fMin:pageMap.fMin,sSize:pageMap.sSize,fSize:pageMap.fSize,pointer:pageMap.refRep.pointer,rast:pageMap.refRep.rast,lines:pageMap.refRep.lines];PDInterpBitmap.Fill[bits,[-10000,-10000,20000,20000],1];PDTextBitmap.TextToBitmap[dest:bits,string:separator,function:[and,complement]];};ShowPage[];};ReprintLastPage:PUBLICPROC[copies:CARDINAL]={IFcurrentHerald.password#PDFileFormat.passwordValueTHENRETURN;currentHerald.copies_copies;ShowPage[];};viewerClass:ViewerClasses.ViewerClass_NEW[ViewerClasses.ViewerClassRec_[init:ViewerInit,paint:ViewerPaint,scroll:ViewerScroll,coordSys:bottom,icon:tool]];ViewerData:TYPE=REFViewerDataRep;ViewerDataRep:TYPE=RECORD[sShift:INTEGER_0,fShift:INTEGER_0,nextPage:BOOLEAN_FALSE];HScrollHit:Menus.ClickProc=TRUSTED{viewer:ViewerClasses.Viewer_NARROW[parent];data:ViewerData_NARROW[viewer.data];IFdata=NILTHENRETURN;data.fShift_data.fShift+(IFmouseButton=redTHEN-128ELSE128);IFmouseButton=yellowTHENdata.fShift_-pageMap.fMin;ViewerOps.PaintViewer[viewer,client];};PageHit:Menus.ClickProc=TRUSTED{viewer:ViewerClasses.Viewer_NARROW[parent];data:ViewerData_NARROW[viewer.data];IFdata=NILTHENRETURN;data.nextPage_TRUE;��qОg/НEи�wО_7Н'Н(О]░Н'НО[ХН'Н ОZ@Н'Н ОX≥Н'НiОVЯН'НAОUJН'НшОS╒Н'ОQШНН$еН)ПН.╦Н3Н7╦ОPSНН*╦Н-╠Н2 Н8KН>?ОN╛НХОMНОK]Н ОI╣НuОFfНСwНПОFf�ОFfyННОFf�ОFfН√ОFfН їwОFfН$NyН)YОFf�ОFfН*#wН/▐ОFf�ОFfН0w�Н2\�yОD©НwОD©Н╛Н#_�Н%DyН7╣ОD©�ОD©Н8nОD©Н;zwН@bОD©�ОD©ОCННИ�Н!uОApН О?хНО<yНСНЮН)^�yН*КО<y�О<yН+тwО<yН.+О:рНф�НS�О9*ННЧ О7┐ННО5шНН'О44ННZО2▄НН┌О0ЕНО-√НС yНВО-√�О-√Н╟wО-√Нi�yНNО-√�О-√Н"wО-√Н! О*FНС yНmО*F�О*FН&wО*FНч�yН цО*F�О*FН!≈wО*FН&6�О(÷НyН_О(÷�О(÷НиwО(÷Н$�Н╠О&ВНyНUО&В�О&ВНЎwО&ВН�НіО%PНyНZО%P�О%PНwО%PН�yН!О%P�О%PН!еwО#╗НuО YНС wН╚О Y�О YН╘Н#X�yН%=О Y�О YН%ЖwО YН++�О╡ННБН%R�yН&ъО╡�О╡Н'гwН,9О╡�О╡Н,°О НН┐ Н �yН О �О Н ┐wН$УО �О Н%XyОcНwОcН╛Н╠�yН√Оc�ОcН~ОcН%ОcНКwН$сОc�ОcО╩Н НЁ�Н@ Н!О�Н#т�yН$NО╩�О╩Н$Ї�wО╩Н%У Н.]�Н0ByН2ЇО╩�О╩Н3pwО╩Н6|yН9▀О╩�О╩Н:DwО╩Н<зyОНwОН╛ Н�НЫyН#RО�ОН$wОН' Н-ф�Н/S ОlНН&EОеНuОvНСwНГОv�ОvНЕН!■�yН#yОv�ОvН$2wОvН)g�ОнННБН%R�yН&ъОн�ОнН'гwН,9Он�ОнН,°О&НН┐ Н �yН О&�О&Н ┐wН$УО&�О&Н%XyОНwОН╛Н╠�yН√О�ОН~ОН%ОНКwН$сО�ОО вНН╧�yНFО в�О вНЪwН qО в�О в��█��TVm$▓��4};lfGraphicsData:CGContext.Ref=NARROW[Graphics.NewContext[].data];ViewerInit:ViewerClasses.InitProc=TRUSTED{viewerData:ViewerData_NEW[ViewerDataRep];menu:Menus.Menu_Menus.CreateMenu[1];Menus.InsertMenuEntry[menu,Menus.CreateEntry[name:"<<<-->>>",proc:HScrollHit]];Menus.InsertMenuEntry[menu,Menus.CreateEntry[name:"Page",proc:PageHit]];viewerData.sShift_0;viewerData.fShift_0;self.data_viewerData;self.menu_menu;};ViewerScroll:ViewerClasses.ScrollProc=TRUSTED{data:ViewerData_NARROW[self.data];IFdata=NILORop=queryTHENRETURN[0,100];IFop=thumbTHEN{data.sShift_-pageMap.sOrigin;RETURN[0,100]};IFamount=0THENRETURN[0,100];IFop=downTHENamount_-amount;data.sShift_data.sShift-amount;ViewerOps.PaintViewer[self,client];RETURN[0,100];};OnLFDisplay:PROC[graphics:Graphics.Context]RETURNS[BOOLEAN]={data:CGContext.Ref=NARROW[graphics.data];RETURN[data.device.Show=lfGraphicsData.device.Show]};GetViewerPixelMap:PROC[graphics:Graphics.Context]RETURNS[pixelMap:ImagerPixelMaps.PixelMap]={x,y,w,h:REAL;[x,y]_GraphicsOps.UserToDevice[graphics,0,0];IFGraphicsOps.UserToDevice[graphics,0,1].ty>yTHENERROR;[[xmax:w,ymax:h]]_Graphics.GetBounds[graphics];IFOnLFDisplay[graphics]THEN{sMin:INTEGER_Real.RoundLI[y]-Real.RoundLI[h];pixelMap_ImagerFrameBuffer.LFDisplay[];pixelMap_pixelMap.ShiftMap[-sMin,-Real.RoundLI[x]];pixelMap_pixelMap.Clip[[0,0,Real.RoundLI[h],Real.RoundLI[w]]];}ELSEpixelMap_ImagerPixelMaps.Create[0,[0,0,0,0]];};ViewerPaint:ViewerClasses.PaintProc=TRUSTED{data:ViewerData_NARROW[self.data];pixelMap:ImagerPixelMaps.PixelMap_GetViewerPixelMap[context];pixelMap.Transfer[pageMap.ShiftMap[data.sShift,data.fShift]];��qОg/НEи�wО_,НО[щНСН Н$Х�yН&мО[щ�О[щН'╣wН,'О[щ�О[щН,┼uОX▌НС wНОX▌�ОX▌НН&$�yН( ОX▌�ОX▌Н(бwОX▌Н-В�ОVФН Н╩ Н"F�yН#сОVФ�ОVФН$╩wН&▐ОVФ�ОVФН&РОU?НН_ Ня�Н!]ОS≈НН&GН6{ Н=мОQПНвОPIНН&GН6{Н;┘ОN║Нв ОLЗННВ�Н└ОKRННЛ�НyОI╚ННg�НТ ОHННC�НпОF\НuОC НСwН┬ОC �ОC Н┘Н(ш�yН*юОC �ОC Н+ywОC Н0ў�ОAeНН┐ Н �yН ОAe�ОAeН ┐wОAeН%yyО?ЎНwО?ЎН╛Н╠�yН√О?Ў�О?ЎН~О?ЎН%wО?ЎНZН a�Н"FyН&2О?Ў�О?ЎН&КО?ЎН)ВwО?ЎН/dН1TyО>НwО>Н╛Н╡�Н≈yН О>�О>НбwО>Н нН(9�Н)фyН5rО>�О>Н6FwО>Н:чН<нyО<oНwО<oН╛НЇ�Н°�yНяО<o�О<oН┼О<oН √wО<oН&Н'РyО:гНwО:гН╛Н╡�Н≈yНbО:г�О:гНwО:гН (Н%3�Н&юО9Н НЎ�НK Н"�Н#О7xНН$kyО5пНwО5пНqНaО4)НuО0зНС wНО0з�О0зyНЪО0з�О0зНіwО0зНі Н#ЯyН/GО0з�О0зН0wО0зН5R�yН5ІО0з�О0зН6owН;VО0з�О0зН<=�Н>"�О/2НН┐Н a�yН"FО/2�О/2Н#.wН'═О/2�О/2Н(yО-▀НwО-▀НqН#▐�Н%tО+ЦНuО(■НСwНО(■�О(■yН�О(■�О(■НїwО(■Н!ї Н'РyН3HО(■�О(■Н4wО(■Н9S О&МНфН#�Н$Э�О%EНН▒ННЬyНҐО%E�О%EН▒wНжО%E�О%EО#·ННТН▄�НП'yО!ЖНwО!ЖН╛П)Н/ �Н0?�yН1tО!Ж�О!ЖН2-О!ЖН59wН9KО!Ж�О!ЖО OННЬНрН�Н �Н!·yОїНwОїН╛yН#Ої�ОїН#иwОїН&у�О�НyНО��О�Н│wО�Нш�Н hОXНН?�НлО╠НН?�НлН-!О НН?�НлН'їН)4Н40ОbН�yО╨НwО╨НSН}�Н Н.■ ОНuОдНС wН/Од�ОдН-Н(*�yН*Од�ОдН*иwОдН/Щ�ОНН┐ Н �yН О�ОН ┐wОН%yОuННїН*∙�Н,"О мНП/Н1P ��O��TVm$ш��5};ViewerOps.RegisterViewerClass[$PDInterpOutputViewerClass,viewerClass];currentHerald.password_0;END.��qОg/НEи�wО_,НО[щНСП9Н7�ОX▐НСНї�Н!3yОU@НСwН{ОU@�ОU@��f��TVm$�+��PDInterpPage.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September20,19848:57:18amPDTDIRECTORYPDInterpReader,PDQueue;PDInterpPage:DEFINITIONS=BEGINInterpretPage:PROC[handle:PDInterpReader.Handle,request:PDQueue.Request,abort:LONGPOINTERTOBOOLEAN]RETURNS[ok:BOOLEAN];Interpretsonepage(maybemultiplepasses),andshipsitout.MayraisePDInterpReader.WarningorPDInterpReader.ErrororPDInterpOutput.ErrororPDInterpInput.AbortDoesnotcallPDInterpInput.ReportStatus.ReturnsFALSEupondocumentend.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WyОX²НБwОX²НKН!uОUNНБwН]ОUN�ОUNyН[ОUN�ОUNНA wОUNН {�yН"`ОUN�ОUNН#uОQЪНБwНОQЪ�ОQЪyНОQЪ�ОQЪН╚wОQЪН╙Н!Н0}Н5кОPXН╣yНмОPX�ОPXН├ОPXНЎОPXН_ОPXНywН%ОPX�ОPXyН&�ОPX�ОPXН&тwОPXН,yН.ЦОPX�ОPXН/²wН4└ОPX�ОPXН4Г�xОN╠НС Н$Н╡НЦН LН"Н'WН,6Н.ыН27Н3▌ОM НСН"Н]Н'Н(еН6~ОKbНфН┘Н!>ОI╩НСН[НЎНTОHНСНН%Н┘Н$╒yОDеНБwНiОDе�ОDеЪ��Щ��TVm$�Ж��PDInterpPageImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September20,19849:16:18amPDTLastEditedby:Pier,November30,19836:37pmDIRECTORYEnvironment,Inline,PDFileFormat,PDInterpReader,PDInterpOutput,PDInterpPage,PDInterpBitmap,PDInterpSysCalls,Heap,PDQueue;PDInterpPageImpl:PROGRAMIMPORTSInline,PDInterpReader,PDInterpOutput,PDInterpBitmap,PDInterpSysCalls,HeapEXPORTSPDInterpPage=BEGINCommandBuffer:TYPE=PDInterpReader.CommandBuffer;bitsPerWord:NAT=Environment.bitsPerWord;heapZone:UNCOUNTEDZONE=Heap.systemZone;totalAllocates,totalFrees:INT_0;availCount:NAT;--countofthenumberofleftoverrecordsonthefreelistLeftoverlisttypesLeftoverRef:TYPE=LONGPOINTERTOLeftover;Leftover:TYPE=RECORD[link:LeftoverRef_NIL,commandBuffer:CommandBuffer,colorType:PDInterpReader.ColorType,colorTileLoadAddress:INT_-1,priority:INT];InterpretPage:PUBLICPROC[handle:PDInterpReader.Handle,request:PDQueue.Request,abort:LONGPOINTERTOBOOLEAN]RETURNS[ok:BOOLEAN]={readHead,writeHead,availHead,writeTail:LeftoverRef_NIL;--headsandtailofleftoverlistscurrentColorType:PDInterpReader.ColorType;currentColorTileLoadAddress:INT_-1;currentPriority:INT_-1;leftovers:BOOLEAN;--can'tbefilledinuntilStartImagehashappenedcommandBuffer:CommandBuffer;band:PDInterpBitmap.BitmapDesc;bandMaxS:INT;cachedColorTile:PDInterpBitmap.Tile;cachedColorReference:INT_-1;GetColorTile:PROC={IFcurrentColorTileLoadAddress#cachedColorReferenceTHEN{cachedColorTile_PDInterpReader.ColorTileFromLoad[handle,cachedColorReference_currentColorTileLoadAddress,scratchPointer,scratchWords];};};��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WОZ5НБНЧНEН≤НчН"BН$Н'еН*тyОVФНБwОVФНKНТН#MН,сОU?Н╣НrН#ЇН.~Н9ъОS≤Н╣ОPIНБyН ОPI�ОPIНгОN║НСwОN║НёНЩН%╧Н0vОLЗНфН'yОKRНСwОKRН╣ОI╚НБ�yНгОI╚�ОI╚Н─wОF\НБ yНЙОF\�ОF\НёwОF\Н\�НAОDЄНБyН_ОDЄ�ОDЄНHwОDЄНY�Н>ОC НБyНгОC �ОC НґОC НГwН!ОC �ОC Н"ОAeНБНц yН²ОAe�ОAeНwОAeН!,�Н"╧О?ЎНБ yНWО?Ў�О?ЎН?wНлО?Ў�О?ЎxНиО?Ў�О?ЎНCНwН Н"fН'LН(ОН-╩Н2bН4VН6╒Н9OО<oНБН>Н}wО:гНБyНО:г�О:гНкwО:гН┐�yНiО:г�О:гН"О:гН YО:гН%ЗwО:гН(О9НБyНЙО9�О9НёwО9Н\�yНAО9�О9НwО9НЁ�О7xНСН9 НП�yН|О7x�О7xНewН┬О7x�О7xО5пНС Н≤ О4)НС ННО2│НСyН≥О2│�О2│Н wО2│Н")�Н#ІО0зНСyНaО0з�О0зНкwО/2НСuО+ЦНБwНО+Ц�О+ЦyНО+Ц�О+ЦН╚О+ЦН╪wО+ЦН cН%фН55О*<Н╣Н⌡yНЁО*<�О*<Н lО*<Н#єО*<Н)EО*<Н+_wН0ЪО*<�О*<yН1ФО*<�О*<Н2╨wО*<Н7РyН:иО*<�О*<Н;┌wН@iО*<�О*<О(∙Н╣�Н �О&МНСН≤ Н÷ Н%o Н+╧ Н3o�yН4ЭО&М�О&МН5ЕwН7О&М�О&МxН8О&М�О&МН8Н<╧Н?]О%FНфНiН5wО#·НСН√О!ВНСyН#ҐО!В�О!ВН$&wО!ВН&L�Н'ыО OНСyН╠О O�О OНwО OНA�НнО╗НС yНШО╗�О╗НЄwН⌡О╗�О╗xН≥О╗�О╗НН!БН#╡Н'Н(©Н+У Н3Н5█wО�НС Н≤ ОYНСНКО╠НСyН]О╠�О╠НгwНiО╠�О╠О НСНўОbНСyНYОb�ОbНцwОbН!И�Н#vuО╨НСwНжО╨�О╨yНтО╨�О╨Н{wО╨Н{�Н`�yОНwОН╛Н&Э�Н(АyН6мО�ОН7├wОН:⌠�ОkННW�Н ДП(ОдНХН#у�Н%bН8 ОНХ ОuНО нНЪ��TVm$Ю��2TransferRectangle:PROC[rectangle:PDInterpBitmap.Rectangle]={SELECTcurrentColorTypeFROMnone=>ERROR;clear=>PDInterpBitmap.Fill[band,rectangle,0];ink=>PDInterpBitmap.Fill[band,rectangle,1];opaqueTile=>{GetColorTile[];PDInterpBitmap.TransferTile[band.Clip[rectangle],cachedColorTile];};transparentTile=>{GetColorTile[];PDInterpBitmap.TransferTile[band.Clip[rectangle],cachedColorTile,[or,null]];};ENDCASE=>ERROR;};DoLine:PROCEDURE[sMin,fMin,fSize:CARDINAL]={SELECTcurrentColorTypeFROMnone=>ERROR;clear=>PDInterpBitmap.Fill[band,[sMin:sMin,fMin:fMin,sSize:1,fSize:fSize],0];opaqueTile,ink=>PDInterpBitmap.Fill[band,[sMin:sMin,fMin:fMin,sSize:1,fSize:fSize],1];transparentTile=>PDInterpBitmap.TransferTile[band.Clip[[sMin:sMin,fMin:fMin,sSize:1,fSize:fSize]],cachedColorTile,[or,null]];ENDCASE=>ERROR;};TempColor:PROC[rectangle:PDInterpBitmap.Rectangle]={SELECTcurrentColorTypeFROMnone=>ERROR;clear=>NULL;ink=>NULL;opaqueTile=>{GetColorTile[];PDInterpBitmap.TransferTile[band.Clip[rectangle],cachedColorTile,[xor,complement]];};transparentTile=>GetColorTile[];ENDCASE=>ERROR;};AddLeftover:PROC={IFavailCount=0THEN{totalAllocates_totalAllocates+1;IFwriteHead=NILTHENwriteHead_writeTail_heapZone.NEW[Leftover_[link:NIL,commandBuffer:commandBuffer,colorType:currentColorType,colorTileLoadAddress:currentColorTileLoadAddress,priority:currentPriority]]ELSE{writeTail.link_heapZone.NEW[Leftover_[link:NIL,commandBuffer:commandBuffer,colorType:currentColorType,colorTileLoadAddress:currentColorTileLoadAddress,priority:��qОg/НEи�uО_,НСwНДО_,�О_,yНБО_,�О_,Н┴wО_,Н ┴ Н'BН8I�Н:.�yО]┘НwО]┘НвyН#О]┘�О]┘Н#╨wО[щНН┬yНО[щ�О[щНжwН/О[щ�О[щОZ5ННgНЭН+┴ Н1ЎОX▌НННН*║ Н0жОVФН НHНч�ОU?Н'ОS≈Н'П1Н5ЖОQПН'ОPHНН°Н!1�ОN║Н'ОLЫН'П1Н5ЖОKRНЗНyОI╙Н'yОHНwОHНyНґОH�ОHНfwН!©ОH�ОHОF[НuОDЄНСwНmОDЄ�ОDЄyНkОDЄ�ОDЄНwОDЄН#yН)ОDЄ�ОDЄН)ъwН/KОDЄ�ОDЄН03�Н2�yОCНwОCНвyН#ОC�ОCН#╨wОAeНН┬yНОAe�ОAeНжwН/ОAe�ОAeО?ҐННgНЭН+┴Н/НН3нН7еН; Н?├О>НХНиНЛО<oН Н═Н Н!÷Н2,Н6░Н:qО:гНХНЎН╘Н6Н#Н':О9 НН°О7xН'П,Н3бН7ёН;≥О5яНЗНЕНrН!SН%ыН0sН2РyО4)НwО4)НyНґО4)�О4)НfwН!©О4)�О4)О2┌НuО0зНСwН║О0з�О0зyН÷О0з�О0зНGwО0зНF Н"ЪН4�Н5К�yО/3НwО/3НвyН#О/3�О/3Н#╨wО-▀НН┬yНО-▀�О-▀НжwН/О-▀�О-▀О+ДННgyНЭО+Д�О+ДНЕwН=О+Д�О+ДО*<ННyНО*<�О*<НЩwНUО*<�О*<О(∙Н НHНч�О&МН'О%FН'П1Н5ЖО#·НЗН)О!ВН'О OНН°Н!1yО╗НwО╗НyНґО╗�О╗НfwН!©О╗�О╗О�НuОYНС wН;ОY�ОYyН9ОY�ОYНЮwОYНЮ�Не�yО╠НwО╠Н╛yН╦О╠�О╠НqwО╠Н!}�О НyОbНwОbНҐ yНIОb�ОbН1ОbН ьwОbН$·yН8fОb�ОbН9NwН;!Оb�ОbН;┘О╩НХyН О╩�О╩Н┌wН╔О╩�О╩Н┌ Н(' Н2╚ ОНХН!jОlНХН(▒Н-ЪyОеНwОеНd�ОН'yН&[О�ОН'CwН)О�ОН)zН/yН3╨О�ОН4╒wН5еО�ОН6╒ ОvНЗ Н"~ Н)xО нНЗН&Н8ц��Ц��TVm$╡��3currentPriority]];writeTail_writeTail.link;};}ELSE{availCount_availCount-1;--moveanodefromavailListtowriteListIFwriteHead=NILTHEN{writeHead_writeTail_availHead;availHead_availHead.link;}ELSE{writeTail.link_availHead;writeTail_availHead;availHead_availHead.link;};writeTail^_[link:NIL,commandBuffer:commandBuffer,colorType:currentColorType,colorTileLoadAddress:currentColorTileLoadAddress,priority:currentPriority];};};FreeList:PROC[head:LeftoverRef]={--thisprocoutheresotheUNWINDcancallittempHead:LeftoverRef;UNTILhead=NILDOtempHead_head^.link;heapZone.FREE[@head];totalFrees_totalFrees+1;head_tempHead;ENDLOOP;};CheckAbort:PROC={IFabort^THENERRORABORTED};availCount_0;DOENABLEUNWIND=>{FreeList[readHead];FreeList[writeHead];FreeList[availHead];availCount_0;};IFreadHead#NILANDreadHead.priority<handle.priorityTHEN{tempHead:LeftoverRef_readHead;commandBuffer_readHead.commandBuffer;currentColorTileLoadAddress_readHead.colorTileLoadAddress;currentColorType_readHead.colorType;currentPriority_readHead.priority;nowmovethisrecordfromreadListtoavailListreadHead_readHead.link;tempHead.link_availHead;availHead_tempHead;availCount_availCount+1;}ELSE{commandBuffer_PDInterpReader.Get[handle];currentColorTileLoadAddress_handle.colorTileLoadAddress;currentColorType_handle.colorType;currentPriority_handle.priority;};WITHcommandBufferSELECTFROM��qОg/НEи�wО_,НЗО]└Н'О[щН'ОZ5Н�yОX▌НwОX▌НS�ОVФНxН%3ОVФ�ОVФН%ґН)і�Н*шН.Н1WН6ХН8█yОU>НwОU>НҐ yНIОU>�ОU>Н1ОU>Н ьwОU>Н$·ОS≈НХyОQПНwОQПНd�ОPHН'Н'ОN║НЗОLЫН'ОKQНyНдОKQ�ОKQН ╛wН!оОKQ�ОKQН"╛ Н-Q Н7у ОI╙НХН!jОHНХН(▒Н-ЪОF[НОDЄНuОCНСwНРОC�ОCyНПОC�ОCН≈wНОC�ОCНvНLН&f�Н(K�xН)─ОC�ОCН)ЫН-Н0Н2qН5lН7%Н9qОAeНфНTНЙwО?ҐНН9yО>НwО>Н3yНlО>�О>НUО>НЭwО<nНО:фНyНUО:ф�О:фНwНTО:ф�О:фНЇО9НО7wН yО5оНwНЇО5о�О5оО4(НuО2─НС wНО2─�О2─yНО2─�О2─Н╘wО2─Н╘�Н▌�yН?О2─�О2─Н╗�wО2─Н ФyН%5О2─�О2─Н%НО2─Н(ШО2─Н-░wН3%О2─�О2─Н3ж�О0ыНСyО/1НСО-┼НО-┼Н)wО-┼НнН cН-■О+БНвО*;НyО(⌠НwО(⌠Н╛yНтО(⌠�О(⌠НҐО(⌠НdwО(⌠Н!┼П!yН6О(⌠�О(⌠Н6рwО(⌠Н9ч�О&КННJ Н$��Н%█О%DННA�Н!SО#°НП:О!УНП$О MНП"xО╔ННПНqН Н"-Н%jН*╧Н,^wОЧНОVНО╞НОНО_Н�yО╦НwО╦НS�ОННA�Н!SОiНП8ОаНП"ОНОrНyО йНwО йН╛yН ьО й�О йН!wО йН%╚Ъ��;��TVm$��4stateChange:CommandBuffer.stateChange=>{SELECTstateChange.whatChangedFROMimageStart=>{band_PDInterpOutput.StartImage[handle.herald,handle.image,request];bandMaxS_band.sOrigin+band.sMin+band.sSize;leftovers_handle.image.leftOverMode;IFhandle.image.nBands=0THEN{PDInterpOutput.EndImage[request]};};imageEnd=>{[]_PDInterpOutput.EndBand[];IFreadHead#NILTHENERROR;--DEBUGGINGCHECK!!readHead_writeHead;writeHead_NIL;PDInterpOutput.EndImage[request];FreeList[readHead];--fromthisimageFreeList[writeHead];--fromthisimageFreeList[availHead];availCount_0;RETURN[TRUE];};priorityChange=>NULL;colorChange=>NULL;bandChange=>{CheckAbort[];band_PDInterpOutput.EndBand[];bandMaxS_band.sOrigin+band.sMin+band.sSize;IFreadHead#NILTHENERROR;--DEBUGGINGCHECK!!readHead_writeHead;writeHead_NIL;};loadChange=>NULL;documentEnd=>RETURN[FALSE];ENDCASE=>ERROR;};maskRectangle:CommandBuffer.maskRectangle=>{TransferRectangle[[maskRectangle.sMin,maskRectangle.fMin,maskRectangle.sSize,maskRectangle.fSize]];IFleftoversANDmaskRectangle.sMin+maskRectangle.sSize>bandMaxSTHENAddLeftover[];};maskTrapezoid:CommandBuffer.maskTrapezoid=>{EdgeBlock:TYPE=RECORD[fPos,fIncr:Environment.LongNumber];MakeEdge:PROC[fMinLast,fMin,sSize:CARDINAL]RETURNS[edge:EdgeBlock]={edge.fPos.highbits_fMin;edge.fPos.lowbits_0;edge.fIncr.highbits_fMinLast-fMin;edge.fIncr.lowbits_0;��qОg/НEи�wО_,ННFН/`Н1У�yО]┘Н'wО]┘НЗyН,/О]┘�О]┘Н,ХwО[щН8 Н Н"╗�ОZ5НIНг�Н TП(ОX▌НН$шОVГНIН":�Н#гП"ОU?НIН ь�Н"eyОS≤НIwОS≤НПН*�Н+Ы�yН--ОS≤�ОS≤Н-ГwОQПНП"yН2ЙОQП�ОQПwОPIНIОN║Н8Н╧Н"O�ОLЗНIН■�Н yОKRНIwОKRНПyН$ОKR�ОKRН%ОKRН&╘ОKRН*nwН.─ОKR�ОKRxН/}ОKR�ОKRН/В Н9╘Н?NwОI╚НIОHНI yН"}ОH�ОHН#ewН$┬ОH�ОHОF\НIП!ОDЄНIxН'иОDЄ�ОDЄН(BН+ЫН.▓wОC НIxН(,ОC �ОC Н(іН,]Н.УwОAeНIО?ЎНIyО>НIwО>Н ╣�yН!О>�О>Н!рwН$DО>�О>Н$ї�О<oНIО:гН8 Н"ЁyН%HО:г�О:гН&1wН(┴О:г�О:гО9 Н8 Н!<yН#яО9 �О9 Н$╨wН'О9 �О9 О7xН8 Н!=Н#р�О5пНIО4)НIНг�Н TО2│НIП+yО0зНIwО0зНПyН$О0з�О0зН%О0зН&╘О0зН*nwН.─О0з�О0зxН/}О0з�О0зН/В Н9╘Н?NwО/2НIО-▀НI yН"}О-▀�О-▀Н#ewН$┬О-▀�О-▀О+ЦНIО*<Н8 Н нyН#cО*<�О*<Н$LwН&ёО*<�О*<О(■Н8 Н"yН$╞О(■�О(■Н%┐wО(■Н*�yН*О(■�О(■Н+8wН.О(■�О(■Н.─�yО&МН8wО&МН:yН!пО&М�О&МН"┴wН%АО&М�О&МО%EН'О#·Н НЪН2яН5f�О!ЖН'П&Н/МО OНЗН%yОїН'wОїНнyН]Ої�ОїН0wО�НЗП/yН9tО��О�Н:-wОYНЗ О╠Н'О Н НН3Н5ї�ОbН' yН┘Оb�ОbН>wОbН!Ж�yН#шОb�ОbН$╞wОbН)NН-О╩НЗuОН'wН├О�ОyН└О�ОН,wН!їО�ОН" Н(_Н,5yН0 О�ОН0КwН6WО�ОyН7?О�ОН8wОН=JОlНЗ НA�Н!&�ОдН8Н$v�Н&ОН8Н#Я�Н%~ОuН8Н$о�Н&\Н,Y�Н-WО нН8Н$н�Н&[Ъ��1��TVm$├��5IFsSize>1THENedge.fIncr.li_edge.fIncr.li/sSize;};fMinBox:CARDINAL_MIN[maskTrapezoid.fMin,maskTrapezoid.fMinLast];fMaxBox:CARDINAL_MAX[maskTrapezoid.fMin+maskTrapezoid.fSize,maskTrapezoid.fMinLast+maskTrapezoid.fSizeLast];fSizeBox:CARDINAL_fMaxBox-fMinBox;trapMaxS:CARDINAL_maskTrapezoid.sMin+maskTrapezoid.sSize;s:CARDINAL_maskTrapezoid.sMin;sMinBand:CARDINAL_MIN[band.sOrigin+band.sMin,maskTrapezoid.sMin+maskTrapezoid.sSize];sMaxBand:CARDINAL_MIN[bandMaxS,trapMaxS];calculateinitialedges:minEdge:EdgeBlock_MakeEdge[fMinLast:maskTrapezoid.fMinLast,fMin:maskTrapezoid.fMin,sSize:maskTrapezoid.sSize];maxEdge:EdgeBlock_MakeEdge[fMinLast:maskTrapezoid.fMinLast+maskTrapezoid.fSizeLast,fMin:maskTrapezoid.fMin+maskTrapezoid.fSize,sSize:maskTrapezoid.sSize];TempColor[[sMin:maskTrapezoid.sMin,fMin:fMinBox,sSize:maskTrapezoid.sSize,fSize:fSizeBox]];WHILEs<sMinBandDOminEdge.fPos.lc_minEdge.fPos.lc+minEdge.fIncr.li;maxEdge.fPos.lc_maxEdge.fPos.lc+maxEdge.fIncr.li;s_s+1;ENDLOOP;WHILEs<sMaxBandDODoLine[sMin:s,fMin:minEdge.fPos.highbits,fSize:maxEdge.fPos.highbits-minEdge.fPos.highbits];minEdge.fPos.lc_minEdge.fPos.lc+minEdge.fIncr.li;maxEdge.fPos.lc_maxEdge.fPos.lc+maxEdge.fIncr.li;s_s+1;ENDLOOP;TempColor[[sMin:maskTrapezoid.sMin,fMin:fMinBox,sSize:maskTrapezoid.sSize,fSize:fSizeBox]];IFleftoversANDtrapMaxS>bandMaxSTHENAddLeftover[];};maskRunGroup:CommandBuffer.maskRunGroup=>{s:CARDINAL_maskRunGroup.sMin;sMinBand:CARDINAL_MIN[band.sOrigin+band.sMin,maskRunGroup.sMin+maskRunGroup.sSize];sMaxBand:CARDINAL_MIN[band.sOrigin+band.sMin+band.sSize,maskRunGroup.sMin+maskRunGroup.sSize];run:LONGPOINTERTOPDFileFormat.Run_maskRunGroup.pointer;TempColor[[maskRunGroup.sMin,maskRunGroup.fMin,maskRunGroup.sSize,maskRunGroup.fSize]];WHILEs<sMinBandDOIFrun.lastRunTHENs_s+1;run_run+SIZE[PDFileFormat.Run];��qОg/НEи�yО_,Н8wО_,НъНQ�Н├�yН ╩О_,�О_,Н!twО_,Н$─Н,�Н-╛О]┘Н8О[щН'yНpО[щ�О[щН;wН#їО[щ�yО[щН$╟wН'О[щ�О[щН'wОZ6НЗОX▌Н'yОVГНЗwН0ОVГ�yОVГН9wН!РОVГ�ОVГН"UП'ОU?НЗП0ОS≤Н'yН[ОS≤�ОS≤Н%wН#▒ОS≤�ОS≤Н$ ОQПН'yНЖОQП�ОQПНаwОQПН$╡�Н&>П'ОPIН'yН╘ОPI�ОPIНtwОPIНd�Н ЯОN║Н'yНCОN║�ОN║НwОN║Н$Ч�yН&▀ОN║�ОN║Н'°wН(ООN║�ОN║Н)RОLЗНЗП(ОKSН'yНoОKS�ОKSН:wОKSН%*�yН&ЇОKS�ОKSН'хwН)ОKS�ОKSН)~Н0г xОI╚Н'НпН ©wОHН'Н|Н$a�Н%НОF\НЗН'╡Н+╘Н8БОD╣НЗОC Н'Н╗Н$█�Н&ОAfНЗП/Н7зО?©НЗП'Н2зО>НЗО<pН'Н"хН0Н4Н:+О:хНЗН%(Н) yО9!Н'wО9!Н┬�Н░�НеyН$gО9!�О9!Н%M�wО7yН8Н#K�Н$ьН.Л�Н0яО5рН8Н#w�Н%Н/D�Н1)О4*Н8�Н@�Нм�Нж�Н╩yО2┐Н8wНыО2┐�О2┐yО0шН'wО0шН┬�Н░�НеyН$■О0ш�О0шН%y�wО/4Н8Н".Н#▌Н'┘Н5╠О-█НП-О+ЕН8Н#K�Н$ьН.Л�Н0яО*=Н8Н#w�Н%Н/D�Н1)О(√Н8�Н@�Нм�Нж�Н╩yО&НН8wНыО&Н�О&НО%GН'Н"хН0Н4Н:+О#═НЗН%(Н) yО!ЬН'wО!ЬНнyН]О!Ь�О!ЬН0wО!ЬН!┐yН.ЖО!Ь�О!ЬН/╞wО!ЬН2╪ О QН'О╘НН╟Н43Н6х�ОН'yН╘О�ОНtwОНd�Н ЯОZН'yНCОZ�ОZНwОZН$Ч�yН&▀ОZ�ОZН'°wН(ООZ�ОZН)RОЁНЗП&ОН'yНoО�ОН:wОН%*�yН&ЇО�ОН'хwН)О�ОН)~П"ОdНЗП&О╪Н'yН6О╪�О╪НОО╪Н'О╪Н#хwО╪Н%БН1Щ�ОНЗОmН'Н,⌡ОфНЗН%╦yОН'wОН┬�Н░�НеyН$gО�ОН%M�ОwН8wОwНъ yН"_Оw�ОwН#wОwН&$�Н'-�Н(╨�Н)б�Н+їО пН8Нн�Н[НЯ�yН!жО п�О пН"uwН$QО п�О пН$╣��TVm$╪��6ENDLOOP;WHILEs<sMaxBandDOIFrun.fMin+run.fSize>maskRunGroup.fSizeTHENERROR;DoLine[sMin:s,fMin:run.fMin+maskRunGroup.fOffset,fSize:run.fSize];IFrun.lastRunTHENs_s+1;run_run+SIZE[PDFileFormat.Run];ENDLOOP;TempColor[[maskRunGroup.sMin,maskRunGroup.fMin,maskRunGroup.sSize,maskRunGroup.fSize]];IFleftoversANDmaskRunGroup.loadAddress>=0ANDmaskRunGroup.sMin+maskRunGroup.sSize>bandMaxSTHEN{maskRunGroup.sSize_maskRunGroup.sSize-(s-maskRunGroup.sMin);maskRunGroup.sMin_s;maskRunGroup.runCount_-1;--unused,eventuallyeliminatefromDEFmaskRunGroup.pointer_run;AddLeftover[];};};maskSamples:CommandBuffer.maskSamples=>{rectangle:PDInterpBitmap.Rectangle_PDInterpBitmap.Window[maskSamples.samples];TempColor[rectangle];SELECTcurrentColorTypeFROMnone=>ERROR;clear=>PDInterpBitmap.Transfer[band,maskSamples.samples,[and,complement]];opaqueTile,ink=>PDInterpBitmap.Transfer[band,maskSamples.samples,[or,null]];transparentTile=>{bounds:PDInterpBitmap.Rectangle_PDInterpBitmap.Intersect[rectangle,PDInterpBitmap.Window[band]];scratchWords:INT_Inline.LongMult[bounds.sSize,(bounds.fSize+bitsPerWord-1)/bitsPerWord];buffer:LONGPOINTER_PDInterpSysCalls.AllocateSpace[scratchWords];destDesc:PDInterpBitmap.BitmapDesc_PDInterpBitmap.Reshape[pointer:buffer,words:scratchWords,bounds:bounds];GetColorTile[];PDInterpBitmap.TransferTile[dest:destDesc,tile:cachedColorTile];PDInterpBitmap.Transfer[destDesc,maskSamples.samples,[and,null]];PDInterpBitmap.Transfer[band,destDesc,[or,null]];PDInterpSysCalls.FreeSpace[buffer];};ENDCASE=>ERROR;TempColor[rectangle];IFleftoversANDmaskSamples.loadAddress>=0ANDmaskSamples.samples.sOrigin+maskSamples.samples.sMin+maskSamples.samples.sSize��qОg/НEи�yО_eН8wНыО_e�О_eyО]ЎН'wО]ЎН┬�Н░�НеyН$■О]Ў�О]ЎН%y�О\Н8wО\НъН's�Н(╗yН6О\�О\Н6╪О\Н9хwН=зО\�О\ОZnН8Н".Н#▌Н'┘Н=1ОXгН yОW Н8wОW Нъ yН"_ОW �ОW Н#wОW Н&$�Н'-�Н(╨�Н)б�Н+їОUxН8Нн�Н[НЯ�yН!жОUx�ОUxН"uwН$QОUx�ОUxН$╣yОSпН8wНыОSп�ОSпОR)Н'Н,⌡ОP│НЗН%╦yОNзН'wОNзНнyН]ОNз�ОNзН0wОNзН!┐yН6ОNз�ОNзН6ЦwОM2НЗП-yН:жОM2�ОM2Н;▐wОM2Н>⌡�ОK▀Н8П<ОIЦН8ОH<Н8Н)w�Н+xН-,ОH<�ОH<Н-╔Н3 Н9_ОF■ННHwОDМН8ОCEН8 ОA·Н8О?ЖН'О>NННН0КН3─�О<їН' Н}Н. �О;�НЗП+О9XН'yО7╟Н'wО7╟НЗyН'#О7╟�О7╟Н'эwО6 Н8Н╙yН@О6 �О6 НЫwН#QО6 �О6 О4aН8Н┴НН2 О2╨НН}О1Н8 Н цН#,Н%аО/kНН'ъН*^О-цН8Н"ЎН%T�О,НIН ╒Н1E�О*tНП#О(мНО'&НIyН$LО'&�О'&Н$ІwО'&Н&э�Н(iО%~НП*О#вНIyНЯО#в�О#вН ╙О#вН#БwО"/НП.О ┬НIПBОЮНН ёН%)Н.Н3cО9НIО▒НIП!Н0·Н6ҐОЙНОBНIП!Н1 О⌡НН▐ОСНIН.дН4ДН7cОLНIП#ОєНIyОЩН8wОЩН:yН!пОЩ�ОЩН"┴wН%АОЩ�ОЩОUН'yОґН'wОґНнyН]Оґ�ОґН0wОґН!┐yН4lОґ�ОґН5@wОНЗПNЪ��v��TVm$��7>bandMaxSTHENAddLeftover[];};colorSamples:CommandBuffer.colorSamples=>{PDInterpBitmap.Transfer[band,colorSamples.samples];};deviceCommand:CommandBuffer.deviceCommand=>{};ENDCASE=>NULL;ENDLOOP;};scratchPages:INT=4;scratchWords:INT_scratchPages*Environment.wordsPerPage;scratchPointer:LONGPOINTER_PDInterpSysCalls.AllocateSpace[scratchWords];END.��qОg/НEи�wО_,НЗ�Н.yН О_,�О_,Н ьwО_,Н#Е О]┘Н'О[щННЖН0©Н3U�ОZ6Н'Н*╒ОX▐Н'ОVГН Н Н4ЫН7▌�ОU@Н'yОS≥НwОS≥НyНґОS≥�ОS≥Н√wН НОS≥�ОS≥yОQЯНwН╔ОQЯ�ОQЯОPJНСОLШНБyНJОLШ�ОLШНЄwОLШНз�Н©ОKTНБyНЕОKT�ОKTНOwОKTНu�НП&ОIґНБyНHОIґ�ОIґНОIґН9wОIґН!з�Н#gП-yОF^НБwНiОF^�ОF^Ъ��Y��TVm$�╗��PDInterpReader.mesaCopyright(C)1983,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19849:51:32amPDTLastEditedby:Pier,November22,19832:44pmDIRECTORYPDInterpBasic,PDFileFormat,PDInterpBitmap,Stream;PDInterpReader:DEFINITIONS=BEGINHandledefinitionHandle:TYPE=LONGPOINTERTORep;Rep:TYPE=RECORD[stream:Stream.Handle,herald:PDFileFormat.Herald,image:PDFileFormat.StartImage,bandNumber:CARDINAL,sMinBand:CARDINAL,sSizeBand:CARDINAL,colorType:ColorType,colorTileLoadAddress:INT,priority:INT,loadWords:INT,private:LONGPOINTERTOPrivateRep,index:INT,page:INT,pass:INT,status:PDInterpBasic.Status,warningCount:INT];ColorType:TYPE={none,clear,ink,opaqueTile,transparentTile};PrivateRep:TYPE;ColorTileaccess:ColorTileFromLoad:PROC[handle:Handle,colorTileLoadAddress:INT,scratchPointer:LONGPOINTER_NIL,scratchWords:INT_0]RETURNS[PDInterpBitmap.Tile];ErrorsandSignalsError:ERROR[handle:Handle,code:PDInterpBasic.PDErrorCode,wordIndex,wordCount:INT];Warning:SIGNAL[handle:Handle,code:PDInterpBasic.PDWarningCode,wordIndex,wordCount:INT];FilecontrolOpen:PROC[stream:Stream.Handle]RETURNS[Handle];MayraisePDFileReader.ErrororPDFileReader.WarningAssumesthestreamispositionedatthestartofaPDfile.Close:PROC[handle:Handle]RETURNS[stream:Stream.Handle];DoesaNOTclosethestream.ReadingoperationsGet:PROC[handle:Handle]RETURNS[CommandBuffer];MayraisePDFileReader.ErrororPDFileReader.Warning��xО_:НБО]▓НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН(\Н*їОZCНСННVН╘НОН$SН&░Н)жН,ЕyОX°НБwОX°НK НяН)WН4uОUMНБ wН²ОUM�ОUMyН⌡ОUM�ОUMН│ wОUMН!╩�yН#═ОUM�ОUMН$YxОS╔НБНґ wОQЧНСyНLОQЧ�ОQЧНwОQЧНЎ�yНёОQЧ�ОQЧН\ОQЧН■ОQЧН%5wОQЧН'NОPVНСyНfОPV�ОPVНwОPVНь�yНҐОPV�ОPVН▒wОPVН/�ОN╞ННН ОMННбОK`НН┼ОI╦Н yН�ОI╦�ОI╦НкwН"7ОI╦�ОI╦ОHНyН ОH�ОHНКwН WОH�ОHОFiН yН ОFi�ОFiНуwН AОFi�ОFiОDаН НЪ ОCНyН!&ОC�ОCН!░wН#1ОC�ОCОArНyНrОAr�ОArНэwН~ОAr�ОArО?кН yНyО?к�О?кНБwН└О?к�О?кО>#НyНО>#�О>#НтО>#НО>#Н!╛wО>#Н#ф О<|НyНIО<|�О<|Н╡wНTО<|�О<|О:тНyНдО:т�О:тН.wНпО:т�О:тО9-НyНwО9-�О9-НАwН┐О9-�О9-О7┘ННUО5чНyНО5ч�О5чНИwО46НО0ГН yНbО0Г�О0ГНwО0ГНт�Н╧Н$3Н'щН*÷ Н2)О/?Н yН О/?�О/?НTwН┬О/?�О/?xО+ПНБН╛НyuО*IНСwНвО*I�О*IyНуО*I�О*IН|wО*IН!|Н&ъН,yН:9О*I�О*IН:╒wН<DО*I�О*IО(╒НфyН,О(╒�О(╒НЕО(╒НwО(╒Н$Ў�yН&KО(╒�О(╒Н'3wН(VО(╒�О(╒Н)3yН26О(╒�О(╒Н2÷wО(╒Н4е�Н6RyН7ЙО(╒�О(╒Н8ЎwО&ЗНфxО#╚НБННЎuО"НСwН#О"�О"yН О"�О"НзwО"НІНН$QН(Н:6 О \Нф yН}О \�О \НГwН┴О \�О \НЛ�uО╣НСwНО╣�О╣yНО╣�О╣Н╞wО╣Н�Н!dН&°Н*\О Нф Н yН фО �О Н!0wН"яО �О Н#4�xОЎНБНєuОНСwН$О�ОyН!О�ОНиwОНиН yН'ъО�ОН(ЁwОН-ЙxОoНН3НnН%лН'┘ОхНН│НмН+Н ≈ Н&ЯН(√Н*БН-ЪН/ё�Н0ьН3WuО НСwН9О �О yН7О �О НъwО НчНByН#└О �О Н$XwО Н)░Н.щxОyННН╞НН MО*НБН2 uО┌НСwН%О┌�О┌yН#О┌�О┌НкwО┌НйН.yН"qО┌�О┌Н#EwО┌Н(|xО шНН3НnН%лН'┘��^��TVm$4��2CommandBuffer:TYPE=RECORD[SELECTcmd:*FROMmaskRectangle=>[sMin,fMin,sSize,fSize:CARDINAL],maskTrapezoid=>[sMin,fMin,fMinLast,sSize,fSize,fSizeLast:CARDINAL],maskRunGroup=>[sMin,fMin,sSize,fSize:CARDINAL,fOffset:CARDINAL,--addthistofMinofeachrunrunCount:INT,--numberofrunspointer:LONGPOINTERTOPDFileFormat.Run,loadAddress:INT---1ifnotintheload],maskSamples=>[loadAddress:INT,---1ifnotintheloadsamples:PDInterpBitmap.BitmapDesc],colorSamples=>[samples:PDInterpBitmap.BitmapDesc],deviceCommand=>[deviceCommandPointer:LONGPOINTER,deviceCommandWords:CARDINAL],stateChange=>[whatChanged:WhatChanged,loadChangeStart,loadChangeLength:INT],ENDCASE];WhatChanged:TYPE={imageStart,imageEnd,priorityChange,colorChange,bandChange,loadChange,documentEnd};END.��qОg/НEи�wО^≈НБ yНЙО^≈�О^≈НёwО^≈Н\�yНAО^≈�О^≈Н wО^≈Н$Ё�yО\ОНСwО\ОНфНO�yН└О\О�О\ОН=wО[HННuН �ОY║ННЖНкН √yН$vОY║�ОY║Н%AwОWЫНОVRНН∙Н*�ОT╚ННЖНкН#!Н&КН*╚ yН1ОT╚�ОT╚Н1жwОSНОQ\НН%Н╩�ОO╣ННЖНкН √yН$vОO╣�ОO╣Н%AwН*ґОO╣�ОO╣ОN НyН+ОN �ОN НЖwН bОN �ОN xН!?ОN �ОN Н!╦�Н"ІН%KН'ДН)┴Н,РН.∙Н1╪wОLfНyНзОLf�ОLfНDwНФОLf�ОLfxНбОLf�ОLfН<�Н 9Н%Н&бwОJ©НyНXОJ©�ОJ©НОJ©НHОJ©Н#ИwОJ©Н&ОIНyНgОI�ОIНпxОIНЖН!mН#Н$rН&уН({Н*гwОGpНОEиН Н│Н�ОD!НyНgОD!�ОD!НпwНrОD!�ОD!xН OОD!�ОD!Н х�Н!фН#tН$йН'-Н(сН+wОBzНН╨О@сНО?+ННlН�О=└НН╨О;щНО:5НН┬Н �О8▌НyН$bО8▌�О8▌Н%О8▌Н(SwН-oО8▌�О8▌О6ГНyН#ЪО6Г�О6ГН$иwО5?НО3≤Н Н╪НQ�О1ЯНН9О0IННрyН,О0I�О0IН,└wО.╒НyО,ШНwО+SНСО)╛НСyНzО)╛�О)╛Н3wО)╛НЛ�Ня�О(Н Н7Н!Н*ДН3@ О&]Нв Не О$ІНyО!gНБwНiО!g�О!g��Х��TVm$в��PDInterpReaderImpl.mesaMichaelPlass,December2,19835:11pmLastEditedby:Pier,November22,19832:45pmLastEditedby:Lamming,December9,19831:27pmDIRECTORYEnvironment,Inline,PDInterpBasic,PDFileFormat,PDInterpBitmap,PDInterpReader,PDInterpSysCalls,Heap,Stream;PDInterpReaderImpl:PROGRAMIMPORTSInline,PDInterpBitmap,PDInterpSysCalls,Heap,StreamEXPORTSPDInterpReader=BEGINOPENPDInterpReader;bitsPerWord:NAT=Environment.bitsPerWord;zone:UNCOUNTEDZONE=Heap.systemZone;CheckHerald:PROC[herald:PDFileFormat.Herald]={status:PDInterpBasic.Status_nil;IFherald.maxLoadWord>200000THENstatus_unreasonableLoadSize;IFNOT(herald.copiesIN[1..1000])THENstatus_unreasonableNumberOfCopies;IFNOT(herald.imageSSizeIN[80..32767])ORNOT(herald.imageFSizeIN[80..32767])THENstatus_unreasonableImageSize;IFNOT(herald.bandSSizeIN[8..32767])THENstatus_unreasonableBandSSize;IFNOT(herald.sResolutionIN[10..10000])ORNOT(herald.fResolutionIN[10..10000])THENstatus_unreasonableResolution;IFherald.version#PDFileFormat.versionValueTHENstatus_wrongFormatVersion;IFherald.password#PDFileFormat.passwordValueTHENstatus_invalidPassword;IFstatus#nilTHENError[NIL,status,0,SIZE[PDFileFormat.Herald]];};AllocateSpace:PROC[handle:Handle]={private:Private_handle.private;bufferWords:INT_(Inline.LongMult[handle.herald.bandSSize,(handle.herald.imageFSize+bitsPerWord-1)/bitsPerWord]+100)*2;private.loadPointer_PDInterpSysCalls.AllocateSpace[handle.herald.maxLoadWord+bufferWords];private.loadWordsAllocated_handle.herald.maxLoadWord;private.bufferOriginPointer_private.loadPointer+private.loadWordsAllocated;private.bufferWordsAllocated_bufferWords;private.bufferWordCount_0;};Open:PUBLICPROC[stream:Stream.Handle]RETURNS[handle:Handle]={bytesTransferred:CARDINAL;why:Stream.CompletionCode;sst:Stream.SubSequenceType;��xО_,НБО]└НБН$ННRНъН#%Н&3О[щНБНЧНEН≤НчН"BН$Н'еН*тОZ5НБНЧНEН≤НН%dН&ЯН*7Н-EyОW╨НБwОVНСН°НЖ Н'|Н1ОTkНфН┌Н'ЦН+ЯuОQПНБwНIОQП�ОQПyНFОQП�ОQПННОPIНСwОPIНёНЩН%дН1%Н53yОN║НСwОN║Н╣ ОLЗНС�yНьОLЗ�ОLЗН▒ОLЗНwОLЗН╧ОI╚НСyНqОI╚�ОI╚НYwОI╚Нj�НOОHНСyН╡ОH�ОHН≤ОHНрwОHН ▌�Н"suОDЄНБ wНўОDЄ�ОDЄyН╛ОDЄ�ОDЄНSwОDЄНSН tН.u�Н0Z�ОC НСНCН"_�Н#ЛyОAeНСwОAeН Н -�Н!ayН&ОAe�ОAeН&аwОAeН)мН-є�Н/1yО?ЎНСО?ЎН wО?ЎН² yН\О?Ў�О?ЎНф�wО?ЎН 3 yН&О?Ў�О?ЎН&яwО>ННш�НhyО<oНСО<oН wО<oН²yН!kО<o�О<oН!у�wО<oН#ByО:гНСО:гН(wО:гН*yН"О:г�О:гН"┐�wО:гН#ПyН+5О:г�О:гН+НwО:гН.ШН2я�О9 НфyО7xНСО7xН wО7xН²yН щО7x�О7xН!G�wО7xН"Є yН)IО7x�О7xН*wО7xН-Н0Е�Н2ryО5яНСО5яН wО5яН²yН!╒О5я�О5яН"�wО5яН#yyО4)НСО4)Н(wО4)Н*yН"%О4)�О4)Н"▐�wО4)Н#ЭyН+AО4)�О4)Н+ЗwО4)Н/Н2щ�О2┌НфyО0зНСwО0зН Нz�Н_yН. О0з�О0зН/SwО0зН2_Н66�О/3НфyО-▀НСwО-▀Н Н╟�Н∙yН1О-▀�О-▀Н1ЎwО-▀Н4кН8╒�О+ДНфyО*=НСwО*=Н Нq�НVyНhО*=�О*=Н!wО*=Н-yН!юО*=�О*=Н"╗wН#кО*=�О*=Н$╗Н(вyН*dО*=�О*=Н+wН,ъО*=�О*=Н-BО(∙НСuО%FНБwНSО%F�О%FyНQО%F�О%FНЫwО%FНЬН!\Н&÷�Н(└�О#·НСН Н╠�Н=О!ВНСyН┤О!В�О!ВНЯwО!ВН�НєП)О PНфП=О╗НСНа�ОНфПFОYНСН"�Н#░О╡НСН!І�Н#CН/�О НфОcНСН##�Н$╟О╩НСН ў�Н";ОНСuОеНБwНОе�ОеyНОе�ОеН╦ОеНиwОеНpН Ґ yН*├Ое�ОеН+ZwОеН0▒Н5УН;8�Н=�ОНСyНЯО�ОН╩wН"'О�ООvНСНfО нНСНhЪ��Ц��TVm$С��2herald:PDFileFormat.Herald;heraldPtr:LONGPOINTER=@herald;[bytesTransferred,why,sst]_Stream.GetBlock[stream,[blockPointer:heraldPtr,startIndex:0,stopIndexPlusOne:Environment.bytesPerWord*SIZE[PDFileFormat.Herald]]];IFbytesTransferred<Environment.bytesPerWord*SIZE[PDFileFormat.Herald]THENError[NIL,unexpectedEOF,0,SIZE[PDFileFormat.Herald]];CheckHerald[herald];BEGINprivate:Private_zone.NEW[PrivateRep];handle_zone.NEW[Rep_[stream:stream,herald:herald,image:[0,FALSE,FALSE,FALSE,black,0,0,0,0],bandNumber:0,sMinBand:0,sSizeBand:0,colorType:none,colorTileLoadAddress:-1,priority:0,loadWords:0,private:private,index:0,page:0,pass:0,status:nil,warningCount:0]];handle.index_SIZE[PDFileFormat.Herald];handle.sSizeBand_herald.bandSSize;{ENABLEUNWIND=>{zone.FREE[@private];zone.FREE[@handle];};AllocateSpace[handle];};END;PDInterpSysCalls.SetDisplayLights[107];};Close:PUBLICPROC[handle:Handle]RETURNS[stream:Stream.Handle]={private:Private_handle.private;stream_handle.stream;IFprivate.loadPointer#NILTHENPDInterpSysCalls.FreeSpace[private.loadPointer];zone.FREE[@private];zone.FREE[@handle];PDInterpSysCalls.SetDisplayLights[109];};ColorTileFromLoad:PUBLICPROC[handle:Handle,colorTileLoadAddress:INT,��qОg/НEи�wО_,НСН╠О]┘НС yНvО]┘�О]┘Н/О]┘НfwО]┘Н!�Н"ЛО[щНСН3Н└Н!Ц�Н#pН2╪ Н;ї ОZ6Нф НЇНDОX▌НфyН# ОX▌�ОX▌Н#╛wН%┬ОX▌�ОX▌Н%КyОVГНСwОVГН Н�НSyН/ ОVГ�ОVГН09wН2ОVГ�ОVГН2xyОU?НфwОU?Н▀yНОU?�ОU?НwН*ОU?�ОU?Н Н&▀yН(ОU?�ОU?Н(ЇwН*⌠ОU?�ОU?Н*ЖОS≤НСyОQПНСwОPIНННб�НOyН!hОPI�ОPIН"PwН$$ОPI�ОPIН$┤ОN║НН▀�НyН1ОN║�ОN║НwНМОN║�ОN║НPН"J�Н#в�ОLЗННЪОKRННсОI╚НН⌡yН▀ОI╚�ОI╚НDwН)ОI╚�ОI╚yН ОI╚�ОI╚Н ©wН#єОI╚�ОI╚yН$─ОI╚�ОI╚Н%9wН(ОI╚�ОI╚Н(ШН,ЩН.┼Н0Н1єОHН НОF\НН1ОDЄН НОC Н НОAeНН#7О?ЎНН┐О>Н Н┼О<oНН,О:гННZО9 ННуО7xНН┬О5яННfО4)НН▒�О2┌НО0зНН)�yНІО0з�О0зНUwН1О0з�О0зН∙О/3ННК�НxО-▀Н�yН╣О-▀�О-▀НnО+ДНwО+ДН╨НP�О*<Н'yН@О*<�О*<НЫwН?О*<�О*<Н╒ О(∙Н'yН@О(∙�О(∙НЫwН?О(∙�О(∙Н╒О&МН'О%EНО#·НyО!ЖНwН▄О!Ж�О!ЖО OНСП'ОїНСuОXНБwН(ОX�ОXyН&ОX�ОXНмОXНчwОXН┘Н ИyН&,ОX�ОXН'�wОXН,7Н1└ Н;M�Н=2�О╠НСН Н╠�Н=О НСНc�НП yОbНСwОbН Нi�yН NОb�ОbН!6ОbН"чwО╨НфП0ОНСyНО�ОНеwНО�ОНo ОkНСyНОk�ОkНеwНОk�ОkНoОдНСП'ОНСuО мНБwНфО м�О мyНцО м�О мНkО мН |wО мН$#Н)├Н.ЎyН<ЮО м�О мН=JwН>КО м�О м��╛��TVm$|��3scratchPointer:LONGPOINTER,scratchWords:INT]RETURNS[PDInterpBitmap.Tile]={private:Private=handle.private;tile:LONGPOINTERTOPDFileFormat.Tile=private.loadPointer+colorTileLoadAddress;words:INT=Inline.LongMult[tile.sSize,(tile.fSize+(bitsPerWord-1))/bitsPerWord];bitmap:PDInterpBitmap.BitmapDesc_PDInterpBitmap.Reshape[tile+SIZE[PDFileFormat.Tile],words,[tile.sMin,tile.fMin,tile.sSize,tile.fSize]];RETURN[PDInterpBitmap.CreateTile[rectangle:[tile.sMin,tile.fMin,tile.sSize,tile.fSize],phase:tile.phase,rasterPointer:tile+SIZE[PDFileFormat.Tile],scratchPointer:scratchPointer,scratchWords:scratchWords]];};LongBlockTransfer:PROC[source:LONGPOINTER,count:INT,dest:LONGPOINTER]={WHILEcount>LAST[CARDINAL]DOInline.LongCOPY[source,LAST[CARDINAL],dest];source_source+LAST[CARDINAL];dest_dest+LAST[CARDINAL];count_count-LAST[CARDINAL];ENDLOOP;Inline.LongCOPY[source,count,dest];};Private:TYPE=LONGPOINTERTOPrivateRep;PrivateRep:PUBLICTYPE=RECORD[loadPointer:LONGPOINTER_NIL,loadWordsAllocated:INT_0,bufferOriginPointer:LONGPOINTER_NIL,bufferWordsAllocated:INT_0,bufferWordCount:INT_0];BlockDescription:TYPE=RECORD[pointer:LONGPOINTER,words:CARDINAL];ReadLocate:PROC[handle:Handle,words:INT]RETURNS[blockDescription:BlockDescription]={Thebufferstoragemaygetre-usedwiththenextReadLocateorReadBlock;private:Private_handle.private;bytesWanted:CARDINAL_Environment.bytesPerWord*MIN[words,private.bufferWordsAllocated];bytesTransferred:CARDINAL;why:Stream.CompletionCode;sst:Stream.SubSequenceType;[bytesTransferred,why,sst]_Stream.GetBlock[handle.stream,[blockPointer:��qОg/НEи�wО_,Н╣yНО_,�О_,НтО_,НwН"(О_,�О_,Н#yН,О_,�О_,Н,rwН.О_,�О_,yН.ШО_,�О_,Н/оwО]┘Н╣Н∙�Нz�О[щНСН Н╠�Н√ОZ6НСyНкОZ6�ОZ6Н└ОZ6Н╪ОZ6Н]wОZ6НwН+N�Н-4Н9�ОX▌НфОVГНСyНyОVГ�ОVГНЦwОVГН �ННОU?НфП*ОS≤НСН Н)"ОQПННc�yНHОQП�ОQПНГwНцОQП�ОQПН'ОPIНОN║Н Нz Н│ Н%~ ОLЗНyОKRНСwОKRН`ОI╚Н НZ Нп Н%в Н+тОHНН_ ОF\Н Н≤НЖ�yНэОF\�ОF\Н {wН"WОF\�ОF\Н"╨ОDЄННkОC ННОAeНО?ЎНСuО<oНБwНmО<o�О<oyНkО<o�О<oНwО<oНyН$>О<o�О<oН$ВО<oН(.wН-KО<o�О<oН.'yН2xО<o�О<oН2АwН4┐О<o�О<oН5`yН8ҐО<o�О<oН9vО:гН╣wНрО:г�О:гН╧�Н·�yО9 НСwО9 НTН+�yН`О9 �О9 НwНDО9 �yО9 Н╗wН#чО9 �О9 yН$фО9 �О9 Н%╛�wО7xНyН"ИО7x�О7xН#╒wН%мО7x�yО7xН&1wН,gО7x�О7xН,к�Н-їО5яННT�НАН0�yНО5я�О5яНнwН!ЗО5я�yО5яН"]wН(■О5я�О5яН(В�О4)ННХ�НuНY�yН>О4)�О4)НВwН#О4)�yО4)Н├wН%ҐО4)�О4)Н& �О2┌ННш�НhН?�yН=О2┌�О2┌НЖwН !О2┌�yО2┌Н └wН&╩О2┌�О2┌Н'�yО0зНwН╔О0з�О0зО/3НСН вН%О-▀НСО*<НБyНО*<�О*<Н╪wО*<Нt�yНYО*<�О*<НО*<НJО*<Н"КwО*<Н% О(∙НБ yНxО(∙�О(∙Н О(∙Н0wО(∙Н╒�yН ┤О(∙�О(∙Н![wО(∙Н%Ы�О&МНСyНкО&М�О&МН└О&МН╩Н"B�Н#wН%▀О&М�О&МО%FНСyН О%F�О%FНwwО%FН °�Н")О#·НСyН©О#·�О#·НyО#·Н!╟Н'7�Н(twН*─О#·�О#·О!ВНСyН,О!В�О!ВН√wО!ВН!╪�Н#IО OНСyН╦О O�О OН"wО OНH�Н у�О╗НСОYНБyН"ОY�ОYНшwОYН⌠�yНxОY�ОYН LwОYН$КyН*░ОY�ОYН+IОYН.│wН3²ОY�ОYН4zyН9�ОY�ОYН9кwН?7ОY�ОYН? �uО╠НБ wНЩО╠�О╠yНШО╠�О╠НёwО╠Н╒Н Н%=yН)дО╠�О╠Н*-wН+оО╠�О╠yО НСwО НЪН"│Н-╚�Н/░�xОbНСНІН╔НNН>Н!~Н&'Н)"Н+nН.┐ Н5ШН7Є wО╨НСН Н╠�Н=ОНСyН╘О�ОНtwОН d�Н!ЯyН38О�ОН4IwН5⌡О�ОН5ЪОlНфОдНСyНЯОд�ОдН╩wН"'Од�ОдОНСНfОuНСНhО нНСН3Н└Н!Ц�Н#pН7 ��TVm$z��4private.bufferOriginPointer,startIndex:0,stopIndexPlusOne:bytesWanted]];IFbytesTransferred<bytesWantedTHEN{handle.status_unexpectedEOF;Error[handle,unexpectedEOF,handle.index,words]};blockDescription.pointer_private.bufferOriginPointer;blockDescription.words_private.bufferWordCount_bytesTransferred/Environment.bytesPerWord;handle.index_handle.index+blockDescription.words;};ReadBlock:PROC[handle:Handle,dest:LONGPOINTER,words:INT]={bytesWanted:CARDINAL_Environment.bytesPerWord*words;bytesTransferred:CARDINAL;why:Stream.CompletionCode;sst:Stream.SubSequenceType;[bytesTransferred,why,sst]_Stream.GetBlock[handle.stream,[blockPointer:dest,startIndex:0,stopIndexPlusOne:bytesWanted]];IFbytesTransferred<bytesWantedTHEN{handle.status_unexpectedEOF;Error[handle,unexpectedEOF,handle.index,words]};handle.index_handle.index+bytesTransferred/Environment.bytesPerWord;};CheckBB:PROC[handle:Handle,sMin,fMin,sSize,fSize:CARDINAL,errorWordCount:INT]={IFLONG[sMin]+sSize>handle.herald.imageSSizeORLONG[fMin]+fSize>handle.herald.imageFSizeORfMin<handle.image.fMinPageORfMin+fSize>handle.image.fMinPage+handle.image.fSizePageTHENRaisePDError[handle,objectOutOfBounds,errorWordCount];IFsMin+sSize<=handle.sMinBandORsMin>=handle.sMinBand+handle.sSizeBandTHEN{RaisePDWarning[handle,objectOutOfBand,errorWordCount];};};Get:PUBLICPROC[handle:Handle]RETURNS[CommandBuffer]={private:Private_handle.private;command:PDFileFormat.Command;BadLoadReference:PROC[dataWords:INT]={RaisePDError[handle,badLoadReference,SIZE[PDFileFormat.Command]+dataWords];};IFhandle.priority=LAST[INT]THEN{ans:CommandBuffer.stateChange;ans.loadChangeStart_ans.loadChangeLength_0;handle.sMinBand_handle.sMinBand+handle.sSizeBand;handle.bandNumber_handle.bandNumber+1;handle.priority_0;handle.colorType_ink;ans.whatChanged_bandChange;IFhandle.bandNumber=handle.image.nBandsTHEN{ans.whatChanged_imageEnd;handle.colorType_none;��qОg/НEи�wО_,НфН"А Н)рН+_Н79 yО]┘НСwО]┘Н Н�НS yН&▐О]┘�О]┘Н'HwО]┘Н*U Н36�Н4ц О[щНфН8 Н$ҐН-:ОZ6НСН 5�Н!бОX▌НСНy�Н!Н0а�ОVГНфП*ОU?НСН�Н╔Н"й�Н$╞ОS≤НСuОPIНБwНXОPI�ОPIyНVОPI�ОPIНЩwОPIНЩН`Н$≤yН'УОPI�ОPIН(╞Н+лwН0ХОPI�ОPIН1еyН6KОPI�ОPIН6╣wН8VОPI�ОPIН9>�Н;#�ОN║НСyН╘ОN║�ОN║НtwОN║Н d�Н!ЯОLЗНСyНЯОLЗ�ОLЗН╩wН"'ОLЗ�ОLЗОKRНСНfОI╚НСНhОHНСН3Н└Н!Ц�Н#pН7 ОF\НфН НСН─Н)Z yОDЄНСwОDЄН Н�НS yН&▐ОDЄ�ОDЄН'HwОDЄН*U Н36�Н4ц ОC НфН8 Н$ҐН-:ОAeНСН�Н╔Н"й�Н$╞П*О?ЎНСuО<oНБwН}О<o�О<oyНzО<o�О<oН"wО<oН"Н┘Н#ҐН'²Н+sН/=yН3О<o�О<oН3ИwН9UО<o�О<oО:хН╣yНҐО:х�О:хН'wНхО:х�О:хН╟�Н∙�yО9 НСО9 Н wНО9 �О9 НjНU�Н:Нґ�Н АyО7yНСО7yН(wН■О7y�О7yНВНь�НҐН $�Н!YyО5яНСwО5яН(Н╔�НзyО4)НСwО4)Н(Н╔�Н┼НЯ�Н&Н+╙�Н-▐yО2┌НСwО2┌Н╧Н"VН/yО0зНСwО0зН Н#�ННzНyО/3НСwО/3Н(Н╟НEyН0О/3�О/3Н0©wО/3Н3к�О-▀НН"·Н-ЪО+ДНО*<НСuО&МНБwНО&М�О&МyНО&М�О&МН╨О&МНйwО&МНrНуyН%О&М�О&МН%ЛwО&МН+#Н6x�Н8]�О%FНСН Н╠�Н=О#·НСНнuО!ВНСwН1О!В�О!ВyН.О!В�О!ВНжwО!ВН ж yН(ёО!В�О!ВН) wН*ўО!В�О!ВН+√�Н-{�О OНН ╒yО╗НвwНRО╗�О╗НІП!О�НyОYНСwОYН НИ�yНнОY�ОYН┤wН ЁОY�yОYН!wН#"ОY�ОYyН$ ОY�ОYН$бwОYН'н�О╠ННРО НН╟�Н!=Н/T�Н0АОbНН�Н▌Н*▀�Н,pО╩ННА�Н!nН.J�Н0/ОННS�НЮОlННЮ�НmОдННВ�Н└ yОНwОН╛Н!┬�Н#myН0▒О�ОН1JwОН4V�ОuНН �Н!∙О нННЯ�Н!~��\��TVm$Н��5handle.status_betweenPages;};RETURN[ans];};ReadBlock[handle,@command,SIZE[PDFileFormat.Command]];WITHcommandSELECTFROMimagingCommand:PDFileFormat.Command.imaging=>{IFhandle.colorType=noneTHEN{RaisePDError[handle,missingStartImage,SIZE[PDFileFormat.Command]];ERROR};SELECTimagingCommand.comFROMmaskSamplesRef=>{ans:CommandBuffer.maskSamples;maskSamplesRef:PDFileFormat.MaskSamplesRef;loadAddress:Environment.LongNumber;samples:LONGPOINTERTOPDFileFormat.SampleArray;words:INT;ReadBlock[handle,@maskSamplesRef,SIZE[PDFileFormat.MaskSamplesRef]];loadAddress.highbits_imagingCommand.addrHighBits;loadAddress.lowbits_maskSamplesRef.addrLowBits;ans.loadAddress_loadAddress.li;IFans.loadAddress<0ORans.loadAddress+SIZE[PDFileFormat.SampleArray]>handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskSamplesRef]];samples_private.loadPointer+loadAddress.li;words_Inline.LongMult[samples.sSize,(samples.fSize+(bitsPerWord-1))/bitsPerWord];IFans.loadAddress+SIZE[PDFileFormat.SampleArray]+words>handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskSamplesRef]];CheckBB[handle,maskSamplesRef.sMin,maskSamplesRef.fMin,samples.sSize,samples.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamplesRef]];ans.samples_[sOrigin:maskSamplesRef.sMin,fOrigin:maskSamplesRef.fMin,sMin:0,fMin:0,sSize:samples.sSize,fSize:samples.fSize,pointer:samples+SIZE[PDFileFormat.SampleArray],rast:(samples.fSize+(bitsPerWord-1))/bitsPerWord,lines:samples.sSize];RETURN[ans]};maskRunGroupRef=>{ans:CommandBuffer.maskRunGroup;maskRunGroupRef:PDFileFormat.MaskRunGroupRef;loadAddress:Environment.LongNumber;runGroup:LONGPOINTERTOPDFileFormat.RunGroup;run:LONGPOINTERTOPDFileFormat.Run;s:CARDINAL_0;runCount:CARDINAL_0;��qОg/НEи�wО_,ННF�НсО]└НyО[щНwО[щНqОZ5НОX▌НСН╛yН$фОX▌�ОX▌Н%ewН'BОX▌�ОX▌Н'╔yОVФНСwОVФН⌡yНЭОVФ�ОVФН⌡ОVФНоuОU?Н wН⌡ОU?�ОU?Н≥Н3rН6�yОS≈НwОS≈НҐН!≤�Н#}yН&ПОS≈�ОS≈Н'╘wОS≈Н*╣�ОQПН'Н$дyОPHНЗwНuОPH�ОPHНьyОN║Н'wОLЫН'yОKRНwОKRНХyН(@ОKR�ОKRН(ЗuОI╙Н' wОI╙Н!ЁН$I�ОHН8Н&ОF[Н8Н$VОDЄН8Н!┴ОCН8yНщОC�ОCН√ОCН"мОCН(nwОCН*┬ОAdН8yНЎОAd�ОAdН(wНйОAd�ОAdО?ҐН8Н$ЯyО>НwН├О>�О>НИО<nН8Н&&�Н'╡О:гН8Н%═�Н'-О9Н8Н#W�Н$ДyО7wН8wО7wНъН$Ъ�Н&3�yН'hО7w�О7wН(D�wО7wН)²Н3╪�yО5пНwН├О5п�О5пНИН.²�Н/рyН;'О5п�О5пН;ЮwО4)НyН%оО4)�О4)Н&nwН(JО4)�О4)Н(ґО2│Н8Нc�НПН+©�Н-єО0зН8НE�НрО/2НП-yО-▀Н8wО-▀НъН$Ъ�yН&ДО-▀�О-▀Н'┐wН)_О-▀�О-▀Н)бН;v�Н=[О+ЦН�Н?yН&■О+Ц�О+ЦН'MwО*<НyН%оО*<�О*<Н&nwН(JО*<�О*<Н(ґО(∙Н8Н$ Н2bО&МН Н"т yО%FНwН├О%F�О%FНИyН-МО%F�О%FН.▄wН0hО%F�О%FН0кО#·Н8 Н ╚�Н"8Н'РН6KО!ВНН(XН,ZН-ГН1щН3jН7V О PННК Н&╙О╗НyН О╗�О╗Н ╡wН"▌О╗�О╗Н"ЯН4ЧОНП,Н6ИОZНyО╡Н8wО╡НєОН8uОcН'wОcН"ЩН%⌠�О╪Н8Н&ОН8Н%ЗОlН8Н!┴ОеН8yН ?Ое�ОеН ЬОеН$/ОеН)пwОеН+ЙОН8yНGО�ОН�ОН 8ОН%ыwОН'СОvН8yН╨Оv�ОvН┘wОvН!u�Н#О нН8yНЩО н�О нН хwО нН&╦�Н(E��ё��TVm$z��6words:INT_0;fSize:CARDINAL_0;ReadBlock[handle,@maskRunGroupRef,SIZE[PDFileFormat.MaskRunGroupRef]];loadAddress.highbits_imagingCommand.addrHighBits;loadAddress.lowbits_maskRunGroupRef.addrLowBits;ans.loadAddress_loadAddress.li;IFans.loadAddress<0ORans.loadAddress+SIZE[PDFileFormat.RunGroup]>handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskRunGroupRef]];runGroup_private.loadPointer+loadAddress.li;ans.pointer_run_private.loadPointer+loadAddress.li+SIZE[PDFileFormat.RunGroup];WHILEs<runGroup.sSizeDOIFINT[run-private.loadPointer]>=handle.loadWordsTHENBadLoadReference[SIZE[PDFileFormat.MaskRunGroupRef]];IFLONG[run.fMin]+run.fSize>fSizeTHENfSize_LONG[run.fMin]+run.fSize;IFrun.lastRunTHENs_s+1;run_run+SIZE[PDFileFormat.Run];ENDLOOP;ans.runCount_runCount;CheckBB[handle,maskRunGroupRef.sMin,maskRunGroupRef.fMin,runGroup.sSize,fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskRunGroupRef]];ans.sMin_maskRunGroupRef.sMin;ans.fMin_ans.fOffset_maskRunGroupRef.fMin;ans.sSize_runGroup.sSize;ans.fSize_fSize;RETURN[ans]};maskRectangle=>{ans:CommandBuffer.maskRectangle;maskRectangle:PDFileFormat.MaskRectangle;ReadBlock[handle,@maskRectangle,SIZE[PDFileFormat.MaskRectangle]];CheckBB[handle,maskRectangle.sMin,maskRectangle.fMin,maskRectangle.sSize,maskRectangle.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskRectangle]];ans.sMin_maskRectangle.sMin;ans.fMin_maskRectangle.fMin;ans.sSize_maskRectangle.sSize;ans.fSize_maskRectangle.fSize;RETURN[ans]};maskTrapezoid=>{ans:CommandBuffer.maskTrapezoid;maskTrapezoid:PDFileFormat.MaskTrapezoid;fMin,fMax:INT;ReadBlock[handle,@maskTrapezoid,SIZE[PDFileFormat.MaskTrapezoid]];fMin_MIN[maskTrapezoid.fMin,maskTrapezoid.fMinLast];��qОg/НEи�wО_,Н8yНЎО_,�О_,Н(wО_,Н N�Н!шО]┘Н8yНО]┘�О]┘НЦwО]┘Н#т�Н%aО[щН8Н$ЯyОZ6НwН├ОZ6�ОZ6НИОX▌Н8Н&&�Н'╡ОVГН8Н%═�Н'-ОU?Н8Н#W�Н$ДyОS≤Н8wОS≤НъН$Ъ�Н&3�yН'hОS≤�ОS≤Н(D�wОS≤Н)²Н3╪�yОQПНwН├ОQП�ОQПНИН-_�Н.⌠yН9ХОQП�ОQПН:║wОPIНyН%оОPI�ОPIН&nwН(JОPI�ОPIН(ґОN║Н8Не�Н!RН- �Н/ОLЗН8 Н I�Н!уН$l�Н%ЬН1г�Н3╛ Н<║�yОKSНwН├ОKS�ОKSНИyОI╚Н8wОI╚Н≥�Н║�Нж yН)╘ОI╚�ОI╚Н*▐�ОHНIОHНПwНЭОH�ОHН_Н.Н0╠yН<ОH�ОHН<©wОF\НyН'ЮОF\�ОF\Н(wН*[ОF\�ОF\Н*ЎyОD╣НIОD╣НПwН ]ОD╣�ОD╣Н юН' �Н(НН.©�Н/ТyН3[ОD╣�ОD╣Н4wОD╣Н7!Н:┬�yОC НwН┬ОC �ОC НКН&5�Н( yОAfНIwОAfНП yН$pОAf�ОAfН%)wОAfН(5�Н)>�Н*к�Н+т�Н-╧О?ЎНIНъ�НlН"�yН#ГО?Ў�О?ЎН$├wН&cО?Ў�О?ЎН&фyО>НIwН ЙО>�О>О<oН8Н!к�Н#XО:хН8Н$ О9 НН)ЭН4'yО7yНwН├О7y�О7yНИyН-МО7y�О7yН.▄wН0hО7y�О7yН0кО5рН8Н�Н ∙О4*Н8НЩ�Н ┼ Н'n�Н(ШО2┐Н8НР�Н О0шН8НГ�Н tyО/3Н8wО/3НєО-▄Н8uО+ДН'wО+ДН ═Н#5�О*=Н8Н&О(∙Н8 Н#!О&НН8Н$ЯyО%GНwН├О%G�О%GНИО#÷Н8Н$ Н1-О!ЬНН'yО PНwН├О P�О PНИyН-МО P�О PН.▄wН0hО P�О PН0кО╘Н8Н�Н ∙ОН8НЩ�Н ┼ОZН8НР�Н О╡Н8НГ�Н tyОН8wОНєОcН8uО╪Н'wО╪Н ║Н#7�ОН8Н&ОmН8 Н#AОеН8Н yН!0Ое�ОеН! wН#;Ое�ОеОН8Н$ЯyОvНwН├Оv�ОvНИО оН8Н╣�yНBО о�О оНSwН іО о�О оН! Н.BЪ��·��TVm$⌡��7fMax_MAX[LONG[maskTrapezoid.fMin]+maskTrapezoid.fSize,LONG[maskTrapezoid.fMinLast]+maskTrapezoid.fSizeLast];CheckBB[handle,maskTrapezoid.sMin,fMin,maskTrapezoid.sSize,fMax-fMin,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskTrapezoid]];ans.sMin_maskTrapezoid.sMin;ans.fMin_maskTrapezoid.fMin;ans.fMinLast_maskTrapezoid.fMinLast;ans.sSize_maskTrapezoid.sSize;ans.fSize_maskTrapezoid.fSize;ans.fSizeLast_maskTrapezoid.fSizeLast;RETURN[ans]};maskRunGroup=>{ans:CommandBuffer.maskRunGroup;maskRunGroup:PDFileFormat.MaskRunGroup;runGroup:PDFileFormat.RunGroup;s:CARDINAL_0;runCount:INT_0;words:INT_0;fMin:CARDINAL_LAST[CARDINAL];fMax:CARDINAL_FIRST[CARDINAL];run:LONGPOINTERTOPDFileFormat.Run;ReadBlock[handle,@maskRunGroup,SIZE[PDFileFormat.MaskRunGroup]];ReadBlock[handle,@runGroup,SIZE[PDFileFormat.RunGroup]];run_private.bufferOriginPointer;private.bufferWordCount_0;WHILEs<runGroup.sSizeDOIFrunCount*SIZE[PDFileFormat.Run]>=private.bufferWordCountTHEN{Readachunk,assumingonerungroupperscanline.words:CARDINAL_(runGroup.sSize-s)*SIZE[PDFileFormat.Run];IFwords+private.bufferWordCount>private.bufferWordsAllocatedTHENRaisePDError[handle,runGroupTooLong,private.bufferWordCount];ReadBlock[handle,run,words];private.bufferWordCount_private.bufferWordCount+words;};IFrun.fMin<fMinTHENfMin_run.fMin;IFLONG[run.fMin]+run.fSize>fMaxTHENfMax_LONG[run.fMin]+run.fSize;IFrun.lastRunTHENs_s+1;runCount_runCount+1;run_run+SIZE[PDFileFormat.Run];ENDLOOP;IFrunCount*SIZE[PDFileFormat.Run]#private.bufferWordCountTHENERROR;ans.runCount_runCount;ans.loadAddress_-1;��qОg/НEи�wО_,Н8НА�yНnО_,�О_,Н─wН!'О_,�yО_,Н!┼wН$ЖО_,�О_,Н%YН2²�Н4┌yО]┘НwНwО]┘�О]┘НзН-·�Н/┐О[щН8Н$ Н1MОZ6НН'9 yОX▌НwН├ОX▌�ОX▌НИyН-МОX▌�ОX▌Н.▄wН0hОX▌�ОX▌Н0кОVГН8Н�Н ∙ОU?Н8НЩ�Н ┼ОS≤Н8Н!}�Н# ОQПН8НР�Н ОPIН8НГ�Н tОN║Н8Н!g�Н"ТyОLЗН8wОLЗНєОKRН8uОI╚Н'wОI╚Н ЛН#┌�ОHН8Н&yН&0ОH�wОHН&vОF\Н8Н#рОDЄН8Н ?ОCН8yН╨ОC�ОCН┘wОCН!u�Н#ОAeН8yНЩОAe�ОAeН gwОAeН"▄�Н$О?ҐН8yНЎО?Ґ�О?ҐН(wО?ҐН N�Н!шО>Н8yН.О>�О>НЫwО>Н#Й�yН%vО>�О>Н&0wН([О>�yО>Н(ЎwН.УО>�О>Н/X�О<nН8yН[О<n�О<nН%wО<nН$�yН%ёО<n�О<nН&\wН(РО<n�yО<nН)UwН/▄О<n�О<nН/О�О:гН8yНGО:г�О:гН�О:гН 8О:гН%ыwО:гН'СО9Н8Н$Я yО7xНwН├О7x�О7xНИО5пН8Н$Я yН-7О5п�О5пН-вwН/ЁО5п�О5пН0О4)Н8Нн�Н[О2│Н8Н(С�Н*─yО0зН8wО0зН≥�Н║�Нж yН)╘О0з�О0зН*▐�О/2НIwО/2НПyН#hО/2�О/2Н$wН%ЦО/2�О/2Н&FН2еО-▀НyН+вО-▀�О-▀Н,░wО-▀Н/²�xО+ЦНZН ь�Н"Н&┐Н,eН.СН1wН5MН7║Н:ЁwО*<НZyН!ЮО*<�О*<Н"╚wО*<Н(°�О(■Н-yН*О(■�О(■Н*╪wН,≤О(■�О(■Н,ШyО&МНZwО&МНН#�Н$СН4╞�О%FН-yН0]О%F�О%FН1wО%FН4"О#·Н-Н*▀О!ВНZН)Н,О OНZН-�Н.╒Н>^�О╗Н-О�НZyОYНIwОYНПН"в�Н$yН'┴ОY�ОYН(BwОYН+NН.к�Н0XyО╠НIО╠НПwН ]О╠�О╠Н юН' �Н(НН.©�Н/ТyН3²О╠�О╠Н4VwО╠Н7cН;�yО НwН┬О �О НКН&5�Н( yОbНIwОbНП yН$pОb�ОbН%)wОbН(5�Н)>�Н*к�Н+т�Н-╧О╩НIН!■�Н#!Н)m�Н+RОНIНъ�НlН"�yН#ГО�ОН$├wН&cО�ОН&фyОlНIwН ЙОl�ОlyОдН8wОдНъyН!WОд�ОдН!ЖwН#рОд�ОдН$5Н0Ё�ОНyН)фО�ОН*ОН-▀wН1²О�ООuН8Н!к�Н#XО нН8Н#W�Н$ДЪ��TVm$��8IFrunCount=0THEN{ans.pointer_NIL;RaisePDWarning[handle,emptyRunGroup,SIZE[PDFileFormat.MaskRunGroup]+SIZE[PDFileFormat.RunGroup]];fMin_fMax;}ELSE{ans.pointer_private.bufferOriginPointer;CheckBB[handle,maskRunGroup.sMin,fMin,runGroup.sSize,fMax-fMin,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskRunGroup]+private.bufferWordCount]};ans.sMin_maskRunGroup.sMin;ans.fMin_fMin;ans.fOffset_0;ans.sSize_runGroup.sSize;ans.fSize_fMax;RETURN[ans];};maskSamples=>{ans:CommandBuffer.maskSamples;maskSamples:PDFileFormat.MaskSamples;samples:PDFileFormat.SampleArray;ReadBlock[handle,@maskSamples,SIZE[PDFileFormat.MaskSamples]];ReadBlock[handle,@samples,SIZE[PDFileFormat.SampleArray]];CheckBB[handle,maskSamples.sMin,maskSamples.fMin,samples.sSize,samples.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamples]+SIZE[PDFileFormat.SampleArray]];ans.loadAddress_-1;{raster:BlockDescription_ReadLocate[handle,Inline.LongMult[samples.sSize,(samples.fSize+(bitsPerWord-1))/bitsPerWord]];ans.samples_PDInterpBitmap.Reshape[raster.pointer,raster.words,[maskSamples.sMin,maskSamples.fMin,samples.sSize,samples.fSize]!PDInterpBitmap.InsufficientSpace=>{RaisePDError[handle,bitmapTooBig,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamples]+SIZE[PDFileFormat.SampleArray]];ERROR}];};RETURN[ans];};colorSamples=>{ans:CommandBuffer.colorSamples;��qОg/НEи�yО_,Н8wО_,НъН!+�Н#�yН$DО_,�О_,Н$ЩwО_,Н( �О]┘НI Н"Z�yН#ГО]┘�О]┘Н$оwН%РО]┘�О]┘О[щНIН*Б yОZ6НwН≈ОZ6�ОZ6НЗyН3┤ОZ6�ОZ6Н4&wН6ОZ6�ОZ6Н6fОX▌НIНф�Н SОVГНI�yОU?Н8wОU?Н┤�ОS≤НI Н"Z�Н#ГОQПНIН&Н3ОН7дОPIН yОN║НwН≈ОN║�ОN║НЗyН/ЧОN║�ОN║Н0²wН2yОN║�ОN║Н2эП3ОLЗНIОKRН8Н�Н ∙ОI╚Н8НЩ�Н ┼ОHН8 Н �Н!╘ОF\Н8НР�Н ОDЄН8НГ�Н tyОC Н8wОC НєОAeН8uО?ЎН' wО?ЎН╒Н"7�О>Н8Н&О<oН8Н".О:гН8НщО9 Н8Н$ЯyО7xНwН├О7x�О7xНИО5яН8Н$ЯyН+жО5я�О5яН,uwН.QО5я�О5яН.ЄО4)Н8Н$ Н0:О2┌Н Н"т yО0шНwН├О0ш�О0шНИyН-МО0ш�О0шН.▄wН0hО0ш�О0шН0кyНCЄО0ш�О0шНDTwНF0О0ш�О0шНF⌠О/3Н8Н#W�Н$ДО-▄Н8Н,О+ДНI�Нж О*=НZО(∙НZО&НН-П,О%FНZО#÷НI Н"╪�Н$IО!ВНZО PНZО╗НZН)НН6 ОН- ОYНZ�НXН3WН5Л�О╡НkН- yО Н >wН"╧О �О Н#yН4 О �О Н4юwН6°О �О Н6ЪyНIХО �О НJ┤wНLcО �О НLфyОcНkwО╩Нk�ОНZОlНIyОеН8wОеНєОН8uОvН'wОvН≈Н"-�О нН8Н&Ъ��:��TVm$Е��9colorSamples:PDFileFormat.ColorSamples;samples:PDFileFormat.SampleArray;ReadBlock[handle,@colorSamples,SIZE[PDFileFormat.ColorSamples]];ReadBlock[handle,@samples,SIZE[PDFileFormat.SampleArray]];CheckBB[handle,colorSamples.sMin,colorSamples.fMin,samples.sSize,samples.fSize,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.ColorSamples]+SIZE[PDFileFormat.SampleArray]];{raster:BlockDescription_ReadLocate[handle,Inline.LongMult[samples.sSize,(samples.fSize+(bitsPerWord-1))/bitsPerWord]];ans.samples_PDInterpBitmap.Reshape[raster.pointer,raster.words,[colorSamples.sMin,colorSamples.fMin,samples.sSize,samples.fSize]!PDInterpBitmap.InsufficientSpace=>{RaisePDError[handle,bitmapTooBig,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.MaskSamples]+SIZE[PDFileFormat.SampleArray]];ERROR}];};RETURN[ans];};ENDCASE=>{RaisePDError[handle,unrecognisedImagingCommand,SIZE[PDFileFormat.Command]];ERROR};};controlCommand:PDFileFormat.Command.control=>{ans:CommandBuffer.stateChange;ans.loadChangeStart_ans.loadChangeLength_0;IFhandle.colorType=noneTHENSELECTcontrolCommand.comFROMstartImage,deviceCommand,storeLoad,endDocument=>NULL;ENDCASE=>{RaisePDError[handle,missingStartImage,SIZE[PDFileFormat.Command]];ERROR};SELECTcontrolCommand.comFROMstartImage=>{startImage:PDFileFormat.StartImage;ReadBlock[handle,@startImage,SIZE[PDFileFormat.StartImage]];IFstartImage.filler#0THEN{RaisePDWarning[handle,nonZeroFill,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StartImage]];};IF(LONG[startImage.passBands]+startImage.nBands)*handle.sSizeBand��qОg/НEи�wО_,Н8Н"О]┘Н8НщО[щН8Н$Я yОZ6НwН├ОZ6�ОZ6НИОX▌Н8Н$ЯyН+жОX▌�ОX▌Н,uwН.QОX▌�ОX▌Н.ЄОVГН8Н$ Н0$ОU?Н Н"т yОS≤НwН├ОS≤�ОS≤НИyН-МОS≤�ОS≤Н.▄wН0hОS≤�ОS≤Н0кyНCуОS≤�ОS≤НDtwНFQОS≤�ОS≤НFЄОQПН8Н,ОPIНI�Нж ОN║НZОLЗНZОKSН-П,ОI╚НZОHНI Н"╪�Н$IОF\НZОDЄНZОC НZН)ьН5Х ОAfН- О?ЎНZ�НXН3WН5Л�О>НkН- yО<oН >wН"╧О<o�О<oН#yН4 О<o�О<oН4юwН6°О<o�О<oН6ЪyНIХО<o�О<oНJ┤wНLcО<o�О<oНLфyО:хНkwО9 Нk�О7yНZО5яНIyО4*Н8wО4*НєО2┌Н8yО0шН'wО0шН)НЎ�О/3Н8Н&жyО-▄НwН├О-▄�О-▄НИyН-МО-▄�О-▄Н.іwН1ЧО-▄�О-▄Н2╞�О+ДНuО*=Н wН-О*=�О*=Н+Н2uН5 �О(∙ННО&ННН!а�Н#NН1e�Н2РyО%FНwО%FНҐН!≤�Н#}yН&ПО%F�О%FН'╘Н*⌡wО%FН/nyН=7О%F�О%FН=ПwО#÷Н' Н8 Н) Н/ь Н8пyН;fО#÷�О#÷Н<NwН>іО#÷�О#÷yО!ВН'wО!ВН)НЎ�О PН8Н&жyО╗НwН├О╗�О╗НИyОН8wОYН8yО╡НwО╡НХyН'╡О╡�О╡Н(kuО Н' wО Н�Н ∙�ОcН8 Н jО╩Н8Н$ЯyН-cО╩�О╩Н.wН/чО╩�О╩Н0AyОН8wОНъН$╪�Н&║�yН'жО�ОН(▐wОН+⌡�ОlНIН*БyОеНwН≈Ое�ОеНЗyН/ЧОе�ОеН0²wН2yОе�ОеН2эОНIyОvН8wО нН�yН└О н�О нН=wНПО н�О нНSП9Ъ��П��TVm$/��10>=handle.herald.imageSSize+handle.sSizeBandORLONG[startImage.fMinPage]+startImage.fSizePage>handle.herald.imageFSizeTHEN{RaisePDWarning[handle,imageBoundsExceedPageBounds,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StartImage]];};IFhandle.colorType#noneANDhandle.bandNumber<handle.image.nBandsTHENRaisePDWarning[handle,tooFewBands,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StartImage]];handle.image_startImage;ans.whatChanged_imageStart;handle.priority_0;handle.colorType_ink;handle.bandNumber_0;handle.sMinBand_startImage.passBands*handle.sSizeBand;IFNOTstartImage.stripTHEN{handle.pass_handle.pass+1};IFstartImage.feedTHEN{handle.page_handle.page+1;handle.pass_1};handle.status_constructingImage;RETURN[ans]};setPriority=>{priorityLow:PDFileFormat.Priority;priority:Environment.LongNumber;ReadBlock[handle,@priorityLow,SIZE[PDFileFormat.Priority]];priority.highbits_controlCommand.rest;priority.lowbits_priorityLow;handle.priority_priority.li;ans.whatChanged_priorityChange;RETURN[ans]};setColorInk=>{handle.colorType_ink;ans.whatChanged_colorChange;RETURN[ans]};setColorClear=>{handle.colorType_clear;ans.whatChanged_colorChange;RETURN[ans]};setColorTile=>{setColorTile:PDFileFormat.SetColorTile;ReadBlock[handle,@setColorTile,SIZE[PDFileFormat.SetColorTile]];handle.colorTileLoadAddress_setColorTile.addr;SELECTcontrolCommand.restFROM0=>handle.colorType_opaqueTile;1=>handle.colorType_transparentTile;ENDCASE=>{handle.colorType_opaqueTile;��qОg/НEwО_,НН═П)yО]┘Н8О]┘НlwНыО]┘�О]┘Н<П)Н:�О[щНyН)зО[щ�О[щН*⌠wО[щН-═�ОZ6НIН*БyОX▌НwН≈ОX▌�ОX▌НЗyН/ЧОX▌�ОX▌Н0²wН2yОX▌�ОX▌Н2эОVГНIyОU?Н8wОU?НъН%╩�Н'═yН+ОU?�ОU?Н+ЕwОU?Н.8Н;�ОS≤НyН'.ОS≤�ОS≤Н'ГwОQПНIН*БyОPIНwН≈ОPI�ОPIНЗyН/ЧОPI�ОPIН0²wН2yОPI�ОPIН2эОN╒Н8Н!·�Н#+ ОLЗН8Н$*�Н%Ї ОKSН8Н"├�Н$ОI╚Н8Н$�Н%═ОHН8Н&�Н'║ОF\Н8Н$5�Н%аП&yОDЄН8ОDЄНъwОDЄНАyН'■ОDЄ�ОDЄН(MwОDЄН+YН3]�Н4Й Н<=�Н>"yОC Н8wОC НъyН${ОC �ОC Н%4wОC Н(@Н0▒�Н2 Н9©�Н;єОAfН Н!^�Н"КО?ЎН8Н!i�Н"ЖyО>Н8wО>НєО<oН8uО:хН' wО:хНИН �О9 Н8Н!FО7yН8НіО5яН8Н$ЯyН.?О5я�О5яН.чwН0╨О5я�О5яН1О4)Н8Н#C�Н$оО2┌Н8Н"Ґ�Н$JО0зН8Н"├�Н$О/3Н8Н$*�Н%ЇyО-▀Н8wО-▀НєО+ДН8uО*<Н' wО*<Н╔Н!:�О(∙Н8Н$�Н%═О&МН8Н$*�Н%ЇyО%FН8wО%FНєО#·Н8uО!ВН'wО!ВНзН"p�О OН8Н$�Н%═О╗Н8Н$*�Н%ЇyО�Н8wО�НєОYН8uО╠Н'wО╠Н Н!÷�О Н8Н!}ОbН8Н$Я yО╩НwН├О╩�О╩НИОН8Н+:�Н,гyОlН8wОlНyН+qОl�ОlН,*wОдНI�Н~НН)О�Н+| ОНI�Н~НН)О�Н+|yОuНIwОuН!KН#А�О нНZН(6�Н)ц Ъ��╘��TVm$��11RaisePDWarning[handle,unknownColorTileFlag,SIZE[PDFileFormat.Command]];};ans.whatChanged_colorChange;RETURN[ans];};endBand=>{handle.priority_LAST[INT];ans.whatChanged_priorityChange;RETURN[ans];};endDocument=>{ans.whatChanged_documentEnd;handle.status_transmissionComplete;RETURN[ans];};storeLoad=>{storeLoad:PDFileFormat.StoreLoad;loadWordsAllocated:LONGCARDINAL_private.loadWordsAllocated;ReadBlock[handle,@storeLoad,SIZE[PDFileFormat.StoreLoad]];IFstoreLoad.firstAddress>loadWordsAllocatedORstoreLoad.firstAddress+storeLoad.wordCount>loadWordsAllocatedORstoreLoad.firstAddress+storeLoad.wordCount>handle.herald.maxLoadWordTHEN{RaisePDError[handle,loadOutOfBounds,SIZE[PDFileFormat.Command]+SIZE[PDFileFormat.StoreLoad]];ERROR};ReadBlock[handle,private.loadPointer+storeLoad.firstAddress,storeLoad.wordCount];ans.whatChanged_loadChange;ans.loadChangeStart_storeLoad.firstAddress;ans.loadChangeLength_storeLoad.wordCount;handle.loadWords_MAX[handle.loadWords,ans.loadChangeStart+ans.loadChangeLength];handle.colorTileLoadAddress_-1;RETURN[ans];};deviceCommand=>{deviceCommand:CommandBuffer.deviceCommand;wordCount:CARDINAL;block:BlockDescription;ReadBlock[handle,@wordCount,SIZE[CARDINAL]];block_ReadLocate[handle,wordCount];IFblock.words<wordCountTHENRaisePDError[handle,unexpectedEOF,block.words+SIZE[CARDINAL]];deviceCommand.deviceCommandPointer_block.pointer;deviceCommand.deviceCommandWords_block.words;RETURN[deviceCommand];};ENDCASE=>{RaisePDError[handle,unrecognisedControlCommand,��qОg/НEwО_,НZН,ТyО]┘Н-wН ╗О]┘�О]┘Н!О[щНZОZ6Н8Н$*�Н%ЇyОX▌Н8wОX▌НєОVГН8uОU?Н'wОU?НкН`�ОS≤Н8Н"├�yН$ОS≤�ОS≤Н$мwН&ЬОS≤�yОS≤Н'[wН)gОS≤�ОS≤Н)й�ОQПН8Н$*�Н%ЇyОPIН8wОPIНєОN║Н8uОLЗН' wОLЗНыН"n�ОKRН8Н$*�Н%ЇОI╙Н8Н!i�Н"ЖyОHН8wОHНєОF[Н8uОDЄН'wОDЄН°Н 2�ОCН8 Н ОAeН8yН&QОAe�ОAeН' ОAeН*BwОAeН0Щ�О?ЎНО>Н8Н$Я yН-О>�О>Н-╣wН/▒О>�О>Н/ТyО<oН8wО<oНъН(©�Н)СyО:гН8wО:гНlН)L�Н+1Н8ў�О9 НyО7xН8wО7xНlН)L�Н+1Н8ў�О5яНyН+ВО5я�О5яН,╟wО4)НIН)≈yО2┌НwН≈О2┌�О2┌НЗyН/ЧО2┌�О2┌Н0²wН2yО2┌�О2┌Н2эyО0шНwН -О0ш�О0шН ч�О/3Н8Н$ЯП+О-▄НО+ДН8Н$*�Н%Ї О*=Н8Н%Д�Н'pО(∙Н8Н'O�Н(эО&НН8Н$█�yН&О&Н�О&НН'+wН(рО&Н�О&НН)6Н4ЦО%FН�НПО#÷Н8Н+:�Н,гyО!ВН8wО!ВНєО PН8uО╗Н'wО╗Н!;Н#п�ОН8 Н$5ОYН8 yН ООY�ОYН!╨wН'&ОY�ОYО╡Н8НqО Н8Н$Я yН-ХО �О Н.┤wН0cО �yО Н0фwН6ЩО �О Н7`ОcН8НЬ�Н┘Н*ы yО╩Н8wО╩Нъ Н"�Н#ЄyН*РО╩�О╩Н+╚wО╩Н.ЇОН Н$▐yН-О�ОН-╚wН/┤О�yОН/ЙwН6!О�ОН6└ОlН8П"Н2b�Н3О ОеН8Н1Ъ�Н3▄yОН8wОНєОvН8yО нН'wО нН)НЎН. ��т��TVm$(��12SIZE[PDFileFormat.Command]];ERROR};};ENDCASE=>{RaisePDError[handle,unrecognisedCommandType,SIZE[PDFileFormat.Command]];ERROR};};Error:PUBLICERROR[handle:Handle,code:PDInterpBasic.PDErrorCode,wordIndex,wordCount:INT]=CODE;Warning:PUBLICSIGNAL[handle:Handle,code:PDInterpBasic.PDWarningCode,wordIndex,wordCount:INT]=CODE;RaisePDError:PROC[handle:Handle,code:PDInterpBasic.PDErrorCode,words:INT]={handle.status_code;ERRORError[handle,code,handle.index-words,words];};RaisePDWarning:PROC[handle:Handle,code:PDInterpBasic.PDWarningCode,words:INT]={handle.warningCount_handle.warningCount+1;handle.status_code;SIGNALWarning[handle,code,handle.index-words,words];};END.��qОg/НEyО_,НЗwНuО_,�О_,НьyН+эО_,�О_,Н,∙wН/МО_,�О_,Н0²�О]┘НyО[щНwО[щНН°Н)ЙyОZ6НвwНRОZ6�ОZ6НІyН'╧ОZ6�ОZ6Н(swН+кОZ6�ОZ6Н,{�ОX▐НСuОU@НБwНОU@�ОU@yНОU@�ОU@НЇОU@НхwОU@Н]Н!аН&ЫН*╧ОS≥Н╣ НЩ yН╣ОS≥�ОS≥НwН юОS≥�ОS≥Н!ї�yН#█ОS≥�ОS≥Н$WwН&сОS≥�ОS≥uОPJНБwНОPJ�ОPJyНЪОPJ�ОPJНіОPJНЇwОPJН╗Н$Н)CН-ОNёН╣ НЩ yН╣ОNё�ОNёНwН юОNё�ОNёН!ї�yН#█ОNё�ОNёН$WwН&сОNё�ОNёuОKTНБwНRОKT�ОKTyНPОKT�ОKTНЬwОKTНВН![Н&⌠Н*SН<wyОIґН╣wНюОIґ�ОIґН╗�Н█�ОHНСН$�Н╠yОF^НСwОF^Н┴НШН! Н.ОDЇНСuОAhНБ wНBОAh�ОAhyН?ОAh�ОAhНГwОAhНГН#JН(┌Н,BО?аН╣yН;О?а�О?аН╔wНGО?а�О?аН.�Н�О>НСНO�НэН-8�Н/О<rНСН$�Н╠yО:кНСwО:кНДН QН#ПН0oО9#НСyО5уНБwНiО5у�О5у��≤��TVm$y��PDInterpSysCalls.mesaCopyright(C)1983,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19849:54:25amPDTPDInterpSysCalls:DEFINITIONS=BEGINSetDisplayLights:PROC[value:[0..9999]];WriteLine:PROC[string:LONGSTRING];AllocateSpace:PROC[words:INT]RETURNS[LONGPOINTER];FreeSpace:PROC[pointer:LONGPOINTER];BadFreeSpaceRequest:ERROR;END.��xО_,НБО]┘НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н -Н#sН(\Н*їwОX▐НБyНdОX▐�ОX▐НJ wОX▐Н"└�yН$iОX▐�ОX▐Н%"uОU@НБwНОU@�ОU@yН ОU@�ОU@Н╠wОU@Н╟Н"6 uОQЯНБwНТОQЯ�ОQЯyНРОQЯ�ОQЯН≥wОQЯН≥yНKОQЯ�ОQЯНОQЯН"<wН&╘ОQЯ�ОQЯН'�uОNёНБwНSОNё�ОNёyНQОNё�ОNёНЫwОNёНЬyН БОNё�ОNёН!KwН"МОNё�ОNёyН#уОNё�ОNёН$╘wОNёН)Ю�yН*CОNё�ОNёН*ЭОNёН.4wН3QОNё�ОNёН3Є�uОKTНБwНОKT�ОKTyНОKT�ОKTН╩wОKTН╩yН`ОKT�ОKTН ОKTН#QwН(mОKT�ОKTН(п�uОHНБwН'ОH�ОHyН$ОH�ОHНщwН!6ОH�ОHyОDЇНБwНiОDЇ�ОDЇ��P��TVm$��PDInterpSysCallsDevelImpl.mesaMichaelPlass,November30,198310:21amDIRECTORYEnvironment,Space,PDInterpSysCalls,ProcessorFace;PDInterpSysCallsDevelImpl:MONITORIMPORTSSpace,ProcessorFaceEXPORTSPDInterpSysCalls=BEGINSetDisplayLights:PUBLICPROC[value:[0..9999]]={ProcessorFace.SetMP[value]};AllocateSpace:PUBLICENTRYPROC[words:INT]RETURNS[LONGPOINTER]={ENABLEUNWIND=>NULL;pages:CARDINAL_(words+Environment.wordsPerPage)/Environment.wordsPerPage;RETURN[Space.ScratchMap[pages]]};FreeSpace:PUBLICENTRYPROC[pointer:LONGPOINTER]={ENABLEUNWIND=>NULL;[]_Space.Unmap[pointer];};BadFreeSpaceRequest:PUBLICERROR=CODE;END.��xО_,НБО]┘НБН$ННgН ╔Н#ЙН'╙yО[щНБwО[щНKНТН#DН.╔ ОZ6НБyН ╨ОZ6�ОZ6Н!кОX▐НСwОX▐НёНСyОVГНСwОVГН╣ОU@НБ�yНгОU@�ОU@Н─uОQЯНБwНОQЯ�ОQЯyН ОQЯ�ОQЯН╠ОQЯНаwОQЯН"iН&О Н,Ґ�Н.╒uОNёНБwНSОNё�ОNёyНQОNё�ОNёНЫОNёН ОNёН!░wОNёН%7yН* ОNё�ОNёН*┼wН,,ОNё�ОNёyН-ОNё�ОNёН-ГwОNёН3�yН3┌ОNё�ОNёН4;ОNёН7swН<▐ОNё�ОNёН=w�Н?\�yОLШНСОLШНwОLШНҐyНRОLШ�ОLШН;wН!▓ОLШ�ОLШОKTНСyН7ОKT�ОKTНwОKTНС�ОIґНфП:yОHНСwОHН`ОF^НСuОCНБwНОC�ОCyНОC�ОCН╩ОCНлОCНRwОCН"ЗyН(÷ОC�ОCН)XОCН,▐wН1╛ОC�ОCН2■�Н4y�yОAhНСОAhНwОAhНҐyНRОAh�ОAhН;wН!▓ОAh�ОAhО?аНСН>�НкО>НСО:кНБyН3О:к�О:кНзО:кН!КwО:кН&│�yН(fО:к�О:кН)1wН+╛О:к�О:кyО7|НБwНiО7|�О7|Ъ��^��TVm$q��PDQueue.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September13,19849:07:25amPDTPDQueue:DEFINITIONS=BEGINThismodulemanagesthequeueforthepeachprinter.Ifadiskisavailable,asimplemechanismisprovidedhereforperiodicallysavingthestateofthequeueonthedisk,sobootingtheserverwillnotloseitall.Inanycase,thequeuelivesinmainmemory,andconsistsmostlyoffullpathnamesofthefiles,togetherwithalittlebitofinformationaboutwhorequestedtheprint,etc.Thereisalsosomestuffhereforloggingwhathasbeengoingon,andforaccessingthelog.Request:TYPE=RECORD[fileName:LONGSTRING,i.e.,"[Indigo]<platemaker>foo.pd!33".requestTime:LONGSTRING,requestor:LONGSTRING,requestorPassword:LONGSTRING,separator:LONGSTRING,Tobeprintedbetweenjobs,ifpossible.copies:CARDINAL];Reset:PROC;Resetsthequeue.QueueRequest:PROC[request:Request]RETURNS[requestNumber:INT];Returns-1ifthequeueisfull.Reprint:PROC[copies:CARDINAL];DoRequest:PROC[action:PROC[request:Request,requestNumber:CARDINAL,abort:LONGPOINTERTOBOOLEAN]];Waitsifqueueisempty;actionshouldreturnorraiseABORTEDifabort^becomestrue.IfthestringsintheRequestareNIL,therequestistoreprintasmuchasthepreviousrequestasispossiblewithoutalotofrecomputation.CheckRequest:PROC[requestNumber:CARDINAL,action:PROC[request:Request,status:RequestStatus]];RequestStatus:TYPE={notFound,canceled,waiting,printing};CancelRequest:PROC[requestNumber:CARDINAL]RETURNS[ok:BOOLEAN];Looksforamatchingrequest(fileNameandrequestor),andremovesitfromthequeue.CountRequests:PROCRETURNS[requestCount:NAT];Numberofoutstandingrequests.EnumerateRequests:PROC[action:PROC[requestNumber:CARDINAL,request:Request,status:RequestStatus]RETURNS[continue:BOOLEAN]];��xО_:НБО]▓НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WwОX°НБyНҐОX°�ОX°Н╒ wОX°Нэ�yНаОX°�ОX°Н {xОVТНСНН╧НBН ▌Н$rН& Н(ФН,ҐН2Н3▓�Н4фН7╘Н9 Н?�ОUMНфНЖНОН[Н#ЎН&╧Н(АН0Н48Н6┘Н9╧Н;\Н=╗ОSіНфН╧ННAНЗНяН"Н%ЪН(■Н*ЬН-ўН/Н1чН3╩Н6TН9⌡Н;ГОQЧНфНкНqНщНZН!ЧН&ЛН+4Н,вН/MН2_Н6┬Н8+Н:wОPWНфННЧ�Н3Н\Н dН" Н)YН-Н/ТН5ъН8+Н;нОN╟НфН╘ННАНKН ^Н#YН%─Н*KН-■Н0 Н33Н6ЙН95Н;ыОMНфНіНРwОI╧НСyНфОI╧�ОI╧НwОI╧Н7�yНОI╧�ОI╧НПwОI╧Н!▐�ОHНyН~ОH�ОHН8ОHНowН!эОH�ОHxОFjНН═wОDцНyНlОDц�ОDцН%ОDцН]wН#иОDц�ОDцОCН yН▓ОC�ОCНKОCН┌wН!ООC�ОCОAtНyНОAt�ОAtНоОAtН#wН'sОAt�ОAtО?лН yНpО?л�О?лН)О?лНawН!нО?л�О?лxО>$НН2НН≈Н"ЁН%вН'-wО<}НyН╛О<}�О<}НwwО:уНuО7├НСwНDО7├�О7├yНBО7├�О7├НЙwНeО7├�О7├xО5ъНН5Н│uО2░НСwН▒О2░�О2░yН▌О2░�О2░Н6wО2░Н6Н#ГyН)ёО2░�О2░Н*wwО2░Н/ўyН:dО2░�О2░Н:мwН<oО2░�О2░Н<р�xО0ХНННцННeН!IН"╣uО-≥НСwНbО-≥�О-≥yН`О-≥�О-≥НwО-≥НyНО-≥�О-≥НщwН%IО-≥�О-≥Н%╛�uО*JНСwНО*J�О*JyН}О*J�О*JН$wО*JН$yН!О*J�О*JН!юwО*JН$юН*qН0" yН:tО*J�О*JН;?wН@╚О*J�О*JО(ёНфyНчО(ё�О(ёН≤О(ёНоО(ёНpО(ёН!┼wН'*О(ё�О(ёН'█xО&ШННЯНHН+Н≈Н"Н&Н*cН.wН00}Н3kО&Ш�О&ШН46xО&ШН9|Н:рО%TНвН'О#╛НН▓НчН2НьН$Н$=}Н&▒О#╛�О#╛Н'mxН(╛О#╛�О#╛Н)┬Н+тН0tН1ЮН3┘Н7ОН9╗Н=VН?О"НвНН╨НsН ъН%чН*Ї�Н+ЛН-ТН/≈ uОІНСwНeОІ�ОІyНbОІ�ОІН wОІН yН(©ОІ�ОІН)┴wН.УОІ�ОІН/рyН4dОІ�ОІН5wОІН8ОНфНwНхОgН yНlОg�ОgН%wОgНч�Н!ц Н)8Н/+Н4V uОНСwН╪О�ОyН╨О�ОНbwОНayН)О�ОН)АwН/MО�ОyН05О�ОН1 wОН6@yН9О�ОН9яwН>╦О�ОН?�xОpНН(НO�Н└Н iН% Н+KН-Н Н4∙Н78Н<\Н=ЄОиНвН#uОzНСwНщОz�ОzyНшОz�ОzН┐ОzН┌wОzН$▌ yН-ТОz�ОzН.щwН0iОz�ОzН0л�xОсНН>НБ Н!)uО┐НСwН╘О┐�О┐yНїО┐�О┐НOwО┐Н!NyН&CО┐�О┐Н&КwО┐Н)ЙyН4═О┐�О┐Н5jwН:жО┐�О┐Н;ЁО эНфНwНх yН%О э�О эН%МwО эН+% yН1їО э�О эН2`wН7GО э�О эН7╚Ъ��s��TVm$��2RegisterDisk:PROC[read,write:PROC[address:LONGPOINTER,nwords:CARDINAL],maxWords:CARDINAL];Periodicallycallsthewriteproc;callsthereadprocatstartuptime.Ifthisisnevercalled,thequeuelivesonlyinmainmemoryandislostatboottime.RegisterTTY:PROC[writeLine:PROC[LONGSTRING]];Registersaprocfordisplayingmessages.GetSuspended:PROCRETURNS[BOOLEAN];SetSuspended:PROC[suspended:BOOLEAN]RETURNS[old:BOOLEAN];SettingsuspendedtoTRUEwillstopprintingafterthecurrentjobfinishes.LogMessage:PROC[message:LONGSTRING,requestNumber:INT_-1,userName:LONGSTRING_NIL];Addstimestamp.Messageisalsooutputtotheprinter'sTTY,ifpresentandenabled.SetLogState:PROC[logging:BOOLEAN]RETURNS[old:BOOLEAN];SettingloggingtoFALSEpreventsmessagesfrombeingloggedontheTTY,topreventinterferencewithtypein.Unprintedmessageswillbeprintedwhenloggingisre-enabled.EnumerateMessages:PROC[PROC[message:LONGSTRING]RETURNS[continue:BOOLEAN]];Replayshistoryforasfarbackaswecanremember.END.��qОg/НEи�uО^≈НСwН²О^≈�О^≈yН⌡О^≈�О^≈НCwО^≈НBН!yН%О^≈�О^≈Н%ЇwО^≈Н(ІyН.}О^≈�О^≈Н/6О^≈Н2mwН7┼О^≈�О^≈Н8fyО\ОНфwНЩО\О�О\ОН`�Н=yН ╔О\О�О\ОН!pwН&эО\О�О\ОН'?�xО[HННmН┤НсН#2Н&╞Н)иН,Н/Н2Н3цН8MН<2Н=юН@YОY║НвНoН╗НТН!ьН$щН'ьН)~Н,КН2Н4ЄН6Н8╛Н:PН=VuОVRНС wНЇОVR�ОVRyНЄОVR�ОVRН\wОVRН\ yН$lОVR�ОVRН%wОVRН(�yН(wОVR�ОVRН)0ОVRН,gwН0тОVR�ОVRН17xОT╚ННм�ННН- Н%┘uОQ\НСwНdОQ\�ОQ\yНaОQ\�ОQ\Н ОQ\НwОQ\Н$�yН$wОQ\�ОQ\Н%0wН*ОQ\�ОQ\Н*{�uОO╣НСwН-ОO╣�ОO╣yН*ОO╣�ОO╣НрwОO╣Ня yН%hОO╣�ОO╣Н&!wН+ОO╣�ОO╣yН+ПОO╣�ОO╣Н,дwОO╣Н1ШyН5BОO╣�ОO╣Н5ШwН:БОO╣�ОO╣Н;E�xОN НН╡Н}НіОN �ОN Н _xОN Н#MН%ЦН(╪Н-ыН1Н3XН8Н:NuОJ©НС wНqОJ©�ОJ©yНoОJ©�ОJ©НwОJ©НyН#JОJ©�ОJ©Н$ОJ©Н';wН+їОJ©�ОJ©Н,└ yН6жОJ©�ОJ©Н7@wОJ©Н9f�Н:РОIНфyНпОI�ОIН┴ОIНаwОIН!╡�yН#?ОI�ОIН$'wН%JОI�ОIН%ґ�xОGpННkНtН@Н#╦Н%#Н'ПН,/Н-тН0 }Н5fОGp�ОGpН6xН7ёОGp�ОGpН8─Н9жН>xОEиНвuОBzНС wНgОBz�ОBzyНdОBz�ОBzНwОBzНyН"фОBz�ОBzН#wН(fОBz�ОBzyН)MОBz�ОBzН*!wОBzН/YyН2÷ОBz�ОBzН3XwН8?ОBz�ОBzН8╒�xО@сНН╡Н}}Н"О@с�О@сНрxО@сН"WН'⌠Н-QН0▐Н40Н8tН:g}Н<ЁО@с�О@сН=mxН>ЯО@с�О@сН?мО?+НвН▐НБН"чН'аН.)Н3ГН6|Н8KН<АО=└НвН╒Н uО:5НСwНО:5�О:5yНО:5�О:5НҐwО:5Н!╪�yН"О:5�О:5Н"гwН%BО:5�О:5Н%іyН+vО:5�О:5Н,/О:5Н/gwН3тО:5�О:5yН4╩О:5�О:5Н5▐wО:5Н:г yО8▌НфwНfО8▌�О8▌НиxО6ГННН┌Н╘Н bН"┼Н%яН'┼Н)░Н,yО3≤НСwН{О3≤�О3≤Ъ��╒��TVm$ч��PDQueueImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September27,19847:29:39amPDTDIRECTORYTime,Checksum,Environment,Inline,PDInterpSysCalls,PDQueue,String;PDQueueImpl:MONITORIMPORTSTime,Checksum,Inline,PDInterpSysCalls,StringEXPORTSPDQueue=BEGINRequest:TYPE=PDQueue.Request;readProc:PROC[address:LONGPOINTER,nwords:CARDINAL]_NIL;writeProc:PROC[address:LONGPOINTER,nwords:CARDINAL]_NIL;maxStateWords:CARDINAL_16*1024;deferSaving:BOOLEAN_FALSE;state:LONGPOINTERTOStringSeqRep_NIL;messages:LONGPOINTERTOStringSeqRep_NIL;StringSeqRep:TYPE=MACHINEDEPENDENTRECORD[nStrings:CARDINAL,end:CARDINAL,mark:CARDINAL,nMarked:CARDINAL,nDiscarded:CARDINAL_0,check:CARDINAL,nWords:CARDINAL,stringSpace:SEQUENCECOMPUTEDCARDINALOFWORD];StringRep:TYPE=RECORD[nChars:CARDINAL,char:PACKEDARRAY[0..0)OFCHAR];Validate:INTERNALPROC[s:LONGPOINTERTOStringSeqRep]RETURNS[ok:BOOLEAN]={nStrings:CARDINAL_0;nMarked:CARDINAL_0;offset:CARDINAL_0;IFs.check#CalculateCheck[s]THENRETURN[FALSE];IFs.mark>s.endTHENRETURN[FALSE];WHILEoffset<s.endDOwords:CARDINAL;nStrings_nStrings+1;IFoffset>s.markANDnMarked=0THENRETURN[FALSE];IFoffset>=s.markTHENnMarked_nMarked+1;��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKНAН!SН)ЭН.UН9ІОVГН╣ОS≈НБyН∙ОS≈�ОS≈НіОQПНСwОQПНёН≥Н!╚Н&Н1fyОPHНСwОPHН╣ОN║НС�yНьОN║�ОN║Н▒wОKRНСyНфОKR�ОKRНН�wН║ОKR�ОKRНryН!~ОKR�wОKRН!дОHНСyН3ОH�ОHНшwОHНзyН ║ОH�ОHН!ZОHН$▒wН)ўОH�ОHН*┼yН/вОH�ОHН0╒wН6ОH�ОHН6Ж�yН8┌ОH�ОHН9kwН:▌ОH�ОHОDЄНС yН√ОDЄ�ОDЄН>wОDЄН=yН!ОDЄ�ОDЄН!ҐОDЄН$ТwН*ОDЄ�ОDЄН*НyН0:ОDЄ�ОDЄН1wН6qОDЄ�ОDЄН7Y�yН8ФОDЄ�ОDЄН9нwН:ЯОDЄ�ОDЄОAeНС yНKОAe�ОAeНwОAeН"�Н#■О>НСyНВО>�О>Н╟wО>Н�yН ╘О>�О>Н!bwН$GО>�О>О<nНСyН·О<n�О<nНWО<nН▌О<nН/wО<nН IН) �yН*≈О<n�О<nН+─wН,ёО<n�О<nО:фНСyНHО:ф�О:фНО:фН9О:фН зwО:фН"ТН+╣�yН-BО:ф�О:фН.*wН/MО:ф�О:фО7wНСyН.О7w�О7wНГwО7wН÷�yН└О7w�О7wН √О7wН%╙О7wН-WwО7wН2й�О5пНyНАО5п�О5пН╛wНО5п�О5пО4(НyН5О4(�О4(Н�wНlО4(�О4(О2│НyНО2│�О2│НэwНHО2│�О2│О0ыНyНpО0ы�О0ыН;wНїО0ы�О0ыО/2Н yНгО/2�О/2Н▓wО/2Н!┌�Н#О-┼НyН_О-┼�О-┼Н*wН√О-┼�О-┼О+БНyНЄО+Б�О+БНwНКО+Б�О+БО*;НyНгО*;�О*;НfО*;Н!▀Н(⌠О*;Н/NО*;Н1hwО(⌠НО%DНС yНЗО%D�О%DНЁwО%DНl�yНQО%D�О%DН%wО%DН"ц�О#²НyН;О#²�О#²НwНrО#²�О#²О!УНyН▌О!У�О!УН5О!УНчwО!УН └yН#ТО!У�О!УН$я�О!УН&wО NНuОЪНСwНэОЪ�ОЪyНзОЪ�ОЪНDОЪНlwОЪН!yН"ЬОЪ�ОЪН#╡ОЪН&ИОЪН,┼wОЪН.єyН7хОЪ�ОЪН8°wОЪН=тyОWНфwНfОW�ОWНN�Н3�О╟НyНАО╟�О╟Н╛wО╟Н°�Н!)ОНyНpО�ОН;wОН +�Н!╦ОaНyНIОa�ОaНwОaН�Н▒yО╧НwО╧Н╛Нi�НNyН&bО╧�О╧Н'О╧Н*(wО╧Н/■�yН/ВО╧�О╧Н0╟wН3∙О╧�О╧Н3Ь�yОНwОН╛Н�НOyНБО�ОН⌡ОН!╗wОН'�yН'wО�ОН(0wН+О�ОН+x�yОjНwОjНeН0�НeyНЬОj�ОjН ч�wОцНyН°Оц�ОцНgwНсОц�ОцОННy�НН!i�Н#NyОsНwОsНҐН┬�Н╪yН +Оs�ОsН ЪwОsН#QН)C�Н+(�yН,]Оs�ОsН-ОsН0#wОsН5▐�yН5РОs�ОsН6╚wН9░Оs�ОsН9С�yО лНwО лНҐН┬НyН!▄О л�О лН"EwО лН%QН+D�Н,пН2ц�Н4╗Ъ��┐��TVm$в��2words_(s[offset]+Environment.bytesPerWord-1)/Environment.bytesPerWord+1;offset_offset+words;ENDLOOP;IFoffset#s.endTHENRETURN[FALSE];IFnStrings#s.nStringsTHENRETURN[FALSE];IFnMarked#s.nMarkedTHENRETURN[FALSE];RETURN[TRUE]};DiscardMessages:INTERNALPROC[maxWords:CARDINAL]={WHILEmessages.end>maxWordsDODiscard[messages,1]ENDLOOP;};Discard:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,n:CARDINAL]={newStart:CARDINAL_StringOffset[s,n];Inline.LongCOPY[from:@(s[newStart]),nwords:s.end-newStart,to:@(s[0])];s.nStrings_s.nStrings-n;s.end_s.mark_s.end-newStart;s.nDiscarded_s.nDiscarded+n;};StringOffset:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,n:CARDINAL]RETURNS[offset:CARDINAL]={offset_0;IFn=0THENRETURN;IFn>s.nStringsTHENERROR;FORi:NATIN[0..n)DOoffset_NextStringOffset[s,offset];ENDLOOP;};NextStringOffset:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,offset:CARDINAL]RETURNS[CARDINAL]=INLINE{IFoffset>=s.endTHENERRORELSE{words:CARDINAL_(s[offset]+Environment.bytesPerWord-1)/Environment.bytesPerWord+1;IFwords>s.end-offsetTHENERROR;offset_offset+words;RETURN[offset];};};Append:INTERNALPROC[s:LONGPOINTERTOStringSeqRep,string:LONGSTRING]={body:LONGPOINTERTOStringRep;chars:CARDINAL_IFstring=NILTHEN0ELSEstring.length;words:CARDINAL_(string.length+Environment.bytesPerWord-1)/Environment.bytesPerWord+1;��qОg/НEи�wО_,НН"�О]┘НХПBО[щННЮ�НmН8�Н yОZ6НwНЇОZ6�ОZ6yОX▌НwОX▌Н╛Нv�Н\yНООX▌�ОX▌Н╗ОX▌Н!ЄwОX▌Н' �yН'└ОX▌�ОX▌Н(=wН+"ОX▌�ОX▌Н+┘�yОVГНwОVГН╛Н�НТ yН"3ОVГ�ОVГН"ЛОVГН%ЫwОVГН+e�yН+хОVГ�ОVГН,│wН/fОVГ�ОVГН/и�yОU?НwОU?Н╛Н·�Н┐yН#QОU?�ОU?Н$ ОU?Н'wОU?Н,┐�yН,ФОU?�ОU?Н-÷wН0└ОU?�ОU?Н0Г�yОS≤НwОS≤Нq�yНтОS≤�ОS≤Н█wН�ОS≤�ОS≤ОQПНuОN║НСwН>ОN║�ОN║yН;ОN║�ОN║Н╔ОN║Н"мwОN║Н&u yН.AОN║�ОN║Н/wН4wОN║�ОN║Н5_�Н7D�yОLЗНwОLЗНeНк�Н!�yН'ПОLЗ�ОLЗН(у�wОLЗН*6Н5_yН6ВОLЗ�ОLЗН7╟wН<≤ОLЗ�ОLЗОKRНuОHНСwН└ОH�ОHyН│ОH�ОHНКОHНwОHН ╨yН"÷ОH�ОHН#YОHН&░ОHН,1wОHН.KН7dyН9)ОH�ОHН9СwН?_ОH�ОHОF\Нф�Н╚�ОDЄНyН:ОDЄ�ОDЄНwОDЄНУ�Н!┌Н*yОC НН"!Н+тН1!Н:ҐОAeНвО?ЎН НC�Нп Н!�Н" О>НН≈�Н$Н⌠�Н О<oНН*�НІН$э�Н&аО:гНuО7xНСwНFО7x�О7xyНCО7x�О7xНґО7xНуwО7xН#}yН%bО7x�О7xН&О7xН)RО7xН.СwО7xН1 Н:'yО5яНфwНЩО5я�О5яyНДО5я�О5яН╦wО5яНПyН#≈О5я�О5яН$bwН)нО5я�О5яН*І�Н,⌡�О4)ННо�Н\yО2┌НwО2┌Н╛�НВ�Нэ�yНО2┌�О2┌НиО2┌НжwН!ЎО2┌�О2┌yО0зНwО0зН╛�НВ�Н+ yНjО0з�О0зН#О0зН!0wН%AО0з�О0зyО/3НwО/3НРyНSО/3�О/3Н;О/3НLwО/3Н#yН╙О/3�О/3Н ▐�wО-▀ННЮ�НmН&KyО+ДНwНЇО+Д�О+ДО*<НuО&МНСwН3О&М�О&МyН1О&М�О&МН⌡О&МН"цwО&МН&jyН(OО&М�О&МН)О&МН,@О&МН1АwО&МН3ЗН=yО%FНфwНЩО%F�О%FyНДО%F�О%FН╦wО%FНП�yНSО%F�О%FН wН%┼О%F�О%FН&q�yН(VО%F�О%FН(юwО%FН,Р�yО#·НwО#·Н╛НvНyН÷О#·�О#·НXО#·Н"dО!ВНwО!ВНS�О OНyН°О O�О OНgwО OН W�О╗НХПByО�НwО�НҐНй�НЧyН#QО��О�Н$ О�Н'wН+(О��О�ОYННЮ�НmН8�Н yО╠НwО╠Н┌О НОbНuОНСwНXО�ОyНUО�ОН©ОНГwОН ▐yН"tО�ОН#-ОН&dОН,wОН.Н79yН;┬О�ОН<AОlНфwН3Оl�ОlН�НЪ�ОдНyНЭОд�ОдН╣ОдНЛОдН █wОдН"ї ОНyНО�ОНщwОНм�yНZО�ОНд�wОН!Н$в�yН&╪О�ОН'╔ОН)LwОН-�yН.FО�ОН.ЪwОН1∙ ОuНyН▀Оu�ОuНUwОuНF�О нНвПF�� TVm$п��3IFs.mark#s.endTHENERROR;IFs.end+words>s.nWordsTHENERROR;body_LOOPHOLE[@(s[s.end])];body.nChars_chars;FORi:NATIN[0..chars)DObody.char[i]_string[i];ENDLOOP;IFcharsMOD2=1THENbody.char[chars]_'\000;s.mark_s.end_s.end+words;s.nStrings_s.nStrings+1;};AppendToString:INTERNALPROC[string:LONGSTRING,s:LONGPOINTERTOStringSeqRep,offset:CARDINAL]={body:LONGPOINTERTOStringRep;IFoffset>=s.endTHENERROR;IFoffset+(s[offset]+Environment.bytesPerWord-1)/Environment.bytesPerWord+1>s.endTHENERROR;body_LOOPHOLE[@(s[offset])];FORi:NATIN[0..body.nChars)DOstring[string.length]_body.char[i];string.length_string.length+1;ENDLOOP;};MoveToString:INTERNALPROC[string:LONGSTRING,s:LONGPOINTERTOStringSeqRep,offset:CARDINAL]={string.length_0;AppendToString[string,s,offset];};GetNumberDiscardedMessages:ENTRYPROCRETURNS[CARDINAL]={IFmessages=NILTHENRestore[];RETURN[messages.nDiscarded];};GetString:ENTRYPROC[string:LONGSTRING,s:LONGPOINTERTOStringSeqRep,n:CARDINAL]RETURNS[ok:BOOLEAN]={string.length_0;IFn<s.nDiscardedTHENRETURN[TRUE];IFn-s.nDiscarded>=s.nStringsTHENRETURN[FALSE];AppendToString[string,s,StringOffset[s,n-s.nDiscarded]];RETURN[TRUE];};MoveMarkedStrings:INTERNALPROC[from,to:LONGPOINTERTOStringSeqRep]={nwords:CARDINAL_from.end-from.mark;IFto.nWords<to.mark+nwordsTHENERROR;to.nStrings_to.nStrings-to.nMarked;to.nMarked_0;��qОg/НEи�yО_,НwО_,Н╛Н�Н�yН⌠О_,�О_,НLО_,Н"XwН&iО_,�О_,yО]└НwО]└Н╛ Н(�Н]yН$oО]└�О]└Н%(О]└Н(4wН,FО]└�О]└О[щНН┌�yНО[щ�О[щНхwН^О[щ�О[щНаОZ5Н Н�Н═yОX▌НwОX▌НРyНSОX▌�ОX▌Н;ОX▌НLwОX▌Н# yН!СОX▌�ОX▌Н"ы�wОVФНН═�Н- yОU?НwНЇОU?�ОU?yОS≈НwОS≈Н╛yН@ОS≈�ОS≈НQwОS≈Н≤�Нл�Н╠�yНФОS≈�ОS≈Н ÷wОS≈Н#╛Н-Ц�Н/pОQПННs�Н�Н⌠�Н ОPHН НC�Нп Н!�Н"УОN║НuОKRНС wН╟ОKR�ОKRyНґОKR�ОKRНОKRН"?wОKRН%ФyН*≥ОKR�ОKRН+RОKRН.┴wН2ЖОKR�ОKRН3сyН5TОKR�ОKRН6ОKRН9EОKRН>ФwОI╙НфНъyН$ОI╙�ОI╙НОwН%[ОI╙�ОI╙Н&B�Н('�ОHНyНЭОH�ОHН╣ОHНЛОHН █wОHН"ї yОF[НwОF[Н╛НvНyН÷ОF[�ОF[НXОF[Н"dwН&vОF[�ОF[yОDЄНwОCНвПHОAeНв�НyН÷ОAe�ОAeНXОAeНdwН vОAe�ОAeО?ҐНН┌�yНО?Ґ�О?ҐНхwН^О?Ґ�О?ҐНа yО>НwО>НРyНSО>�О>Н;О>НLwО>Н#yН&mО>�О>Н'S�wО<nНН!�Н"²О:гННЬ�Н┘Н&h�Н(MyО9НwНЇО9�О9О7xНuО4)НСwНїО4)�О4)yН╔О4)�О4)НО4)Н!7wО4)Н$чyН)░О4)�О4)Н*IО4)Н-│wН1МО4)�О4)Н2йyН4LО4)�О4)Н5О4)Н8=О4)Н=щwО2│НфНъyН$О2│�О2│НОwН%[О2│�О2│Н&B�Н('�О0зННГ�НtО/2НН!√Н"ЖО-▀НuО*<НСwН#┌О*<�О*<yН$─О*<�О*<Н%9О*<Н)О*<Н,ўwО*<Н2╧�yН3О*<�О*<Н3ГwН9SО*<�О*<Н:;�Н< �yО(■НwО(■Н╛Н┤�yНlО(■�О(■НUО(■НЭwО(■Н"б yО&МНwО&МНqО%EНuО!ЖНСwНнО!Ж�О!ЖyНлО!Ж�О!ЖН┘О!ЖНRwО!ЖНЫyН$╛О!Ж�О!ЖН%eО!ЖН(°wН- О!Ж�О!ЖН-ФyН/hО!Ж�О!ЖН0!О!ЖН3XО!ЖН8ЫwО OНфНъyНєО O�О OНowН"шО O�О OyН#бО O�О OН$√wО OН)нyН,╔О O�О OН-^wН2EО O�О OН3-�Н5�ОїННГ�НtyОЪНwОЪН╛�НВ�Н+yНPОЪ�ОЪН ОЪН#wОЪН(┌�yН(ЕОЪ�ОЪН)÷wН,ОЪ�ОЪН,t�yОXНwОXН╛ НН і yН&ЕОX�ОXН'÷ОXН*╚wОXН0�yН0zОX�ОXН14wН4ОX�ОXН4|�О╟НН!√Н"ЖН+МyО НwО Нq�yНтО �О Н█wН�О �О Нc�ОaНuОНСwН.О�ОyН+О�ОН∙ОН$ҐwОН(eН,┤yН.╞О�ОН/hОН2÷ОН8@wОkНфНЙ�Но�ОцНyНQОц�ОцНwОцН�Н ≥yОНwОН╛Нd�Н≤ yН']О�ОН(ОН+"wН/4О�ООtН НИ�Нv Н"[�Н#Y О мН Нx�Н��#��TVm$з��4to.end_to.mark;Inline.LongCOPY[from:@(from[from.mark]),nwords:nwords,to:@(to[to.mark])];to.nStrings_to.nStrings+from.nMarked;to.nMarked_from.nMarked;to.end_to.end+nwords;to.nStrings_to.nStrings+from.nMarked;from.nStrings_from.nStrings-from.nMarked;from.nMarked_0;from.end_from.mark;};CalculateCheck:INTERNALPROC[s:LONGPOINTERTOStringSeqRep]RETURNS[CARDINAL]={cs:CARDINAL_Checksum.ComputeChecksum[nWords:5,p:s];cs_Checksum.ComputeChecksum[cs:cs,nWords:1,p:s+6];RETURN[cs];};Save:INTERNALPROC={IFstate=NILTHENERROR;DiscardMessages[state.nWords-state.end];MoveMarkedStrings[from:messages,to:state];state.check_CalculateCheck[state];IFNOTValidate[state]THENERROR;IFwriteProc#NILTHENwriteProc[state,SIZE[StringSeqRep[state.end]]];MoveMarkedStrings[from:state,to:messages];};Restore:INTERNALPROC={IFstate#NILTHENERROR;IFreadProc#NILTHEN{temp:LONGPOINTERTOStringSeqRep_PDInterpSysCalls.AllocateSpace[256];readProc[temp,256];IFtemp.check=CalculateCheck[temp]THEN{words:CARDINAL_SIZE[StringSeqRep[temp.end]];wordsAllocated:CARDINAL_MAX[maxStateWords,words+255]/256*256;IFwordsAllocated<=maxStateWordsTHEN{state_PDInterpSysCalls.AllocateSpace[wordsAllocated];readProc[state,words];state.nWords_wordsAllocated-SIZE[StringSeqRep[0]];IFValidate[state]THEN{AllocMessages[];MoveMarkedStrings[from:state,to:messages];}ELSE{PDInterpSysCalls.FreeSpace[state];state_NIL};};��qОg/НEи�wО_,НН=�НйО]┘НН"!Н/CН4░Н9╪О[щНвОZ6Н НИ�Нv Н"[�Н$@ОX▌Н Нx�НОVГНН=�НйН�НХОU?Н НИ�Нv Н"[�Н$@ОS≤НН╒�Н/ОQПНН1�НЎОPHННЖ�Н┐ ОN║НuОKRНС wНAОKR�ОKRyН?ОKR�ОKRН╘ОKRН!яwОKRН%xyН']ОKR�ОKRН(ОKRН+NОKRН0ОwОKRН3 yОI╚НфwОI╚Нр�yН5ОI╚�ОI╚Н�wНlОI╚�ОI╚НS�Н!8�ОHНyН!ОH�ОHНЛwОHНэ�НiН5цН7PН9ОF\НН╗�Н5Н*ШН,ВН2їН44Н5ЫyОDЄНwОDЄНqОCНuО?ҐНСwНюО?Ґ�О?ҐyНЎО?Ґ�О?ҐН'О?ҐНPwО?ҐНВ�Н э�yО>НwО>Н╛Нщ�yНбО>�О>Н╙О>НRО>Н wН$(О>�О>О<nНП(О:гНН#oН)╒Н+йО9Н НЙ�НwyО7xНО7xН╛wО7xНўyН ▐О7x�О7xН!HО7xН$UwН(fО7x�О7xyО5пНwО5пН╛Ну�yН╨О5п�О5пНёО5пНJwО5пН#yН,║О5п�О5пН-@wН/О5п�О5пН/─О4)НН#oН&ЬН) О2│НuО/2НСwН└О/2�О/2yН┌О/2�О/2НКО/2НwО/2Н ╩�Н"═�yО-▀НwО-▀Н╛Нщ�yНбО-▀�О-▀Н╙О-▀НRО-▀Н wН$(О-▀�О-▀yО+ЦНwО+ЦН╛Нr�yНWО+Ц�О+ЦН@О+ЦНГwО+ЦН"╛�О*<НyНО*<�О*<НяО*<Н О*<Н"╙wО*<Н$цН-┘�О(■НХП$О&МН Н°yО%EНwО%EНҐ НШ�НЮyН-uО%E�О%EН..wО%EН1:�О#·Н'yНґО#·�О#·НxwО#·Н"h�yН#УО#·�О#·Н$■wН&pО#·�О#·Н&сО!ЖН'yН!RО!Ж�О!ЖН"wО!ЖН( �yН) О!Ж�О!ЖН*╛wН,SО!Ж�О!ЖН,І О OНЗyОїН'wОїНн Н"─Н%yН.ТОї�ОїН/ўwОїН2╨�О�Н8Нi�НЖП/ОXН8Н"fО╠Н8Н!s�Н"ЪyН,їО╠�О╠Н-FwН/"О╠�О╠Н/┘yО Н8wО НъyН#юО �О Н$zwО Н'├�ОbНIО╨НIН+ЁН/=Н1d ОНI�yОkН8wОkН┤�ОдНIП"ОНIНz�yН О�ОН ОwОuНIО мН8Ъ��K��TVm$л��5};PDInterpSysCalls.FreeSpace[temp];temp_NIL;};IFstate=NILTHENInternalReset[];};AllocMessages:INTERNALPROC={wordsAllocated:CARDINAL_SIZE[StringSeqRep[state.nWords]];IFmessages#NILTHEN{PDInterpSysCalls.FreeSpace[messages];messages_NIL};messages_PDInterpSysCalls.AllocateSpace[wordsAllocated];messages.nWords_wordsAllocated-SIZE[StringSeqRep[0]];messages.nStrings_messages.end_messages.mark_messages.nMarked_messages.nDiscarded_0;};InternalReset:INTERNALPROC={IFstate#NILTHEN{PDInterpSysCalls.FreeSpace[state];state_NIL};state_PDInterpSysCalls.AllocateSpace[maxStateWords];state.nWords_maxStateWords-SIZE[StringSeqRep[0]];state.nStrings_state.end_state.mark_state.nMarked_state.nDiscarded_0;AllocMessages[];};Reset:PUBLICENTRYPROC={InternalReset[]};newRequest:CONDITION;stringsPerRequest:CARDINAL=6;requestLimit:CARDINAL_1000;Requestsarenumberedmodulothisnumber.ReqNumberFromStringNumber:PROC[stringNumber:CARDINAL]RETURNS[requestNumber:CARDINAL]={requestNumber_(stringNumber/stringsPerRequest)MODrequestLimit;};DecodeCopies:PROC[tag:LONGSTRING]RETURNS[copies:CARDINAL]={copies_ORD[tag[2]]*256+ORD[tag[3]];};QueueRequest:PUBLICENTRYPROC[request:Request]RETURNS[requestNumber:INT]={ENABLEUNWIND=>NULL;tag:LONGSTRING_[4];IFstate=NILTHENRestore[];IFstate.nStrings>=stringsPerRequest*requestLimitTHENRETURN[-1];requestNumber_ReqNumberFromStringNumber[state.nStrings+state.nDiscarded];��qОg/НEи�wО_,Н'О]┘НП!О[щНН÷�yН,О[щ�О[щНwН7О[щ�О[щОZ5НyОX▌НwОX▌Н╛Нщ�yНбОX▌�ОX▌Н╙ОX▌НRwОX▌Н ОVФНuОS≈НСwНгОS≈�ОS≈yНеОS≈�ОS≈Н/ОS≈Н!WwОS≈Н$Ч�Н&Ц�ОQПНyН0ОQП�ОQПНШwОQПН#К�yН%xОQП�ОQПН&wН'СОQП�ОQПН(VyОPHНwОPHН╛Н┤�yНlОPH�ОPHНUОPHНЭwОPHН"бП&Н;⌠ОN║Нв�yНdОN║�ОN║НMwНpОN║�ОN║Н �ОLЗННЮ�НmП/ОKRННЙ�НwyН)ОKR�ОKRН)ҐwН+≥ОKR�ОKRН+ЭОI╙НН�НёН( �Н)√Н2ь�Н4eН@�ОHНвН п�Н"\ОF\НuОC НСwНУОC �ОC yНСОC �ОC Н]ОC Н ┘wОC Н$,�Н&�yОAeНwОAeН╛Нщ�yНбОAe�ОAeН╙ОAeНRwОAeН П#Н6>Н9o�yН:ЭОAe�ОAeН;ЕwН=ОAe�ОAeН=╦�О?ЎНН5�НбП.О>НН?�Нл yН&═О>�О>Н'?wН)О>�О>Н)~О<oН Нl�НЫН"Є�Н$A Н*ы�Н,eН5\�Н6ИО:гНв�НdО9 НО7xНuО4)НСwНDО4)�О4)yНBО4)�О4)НЙНЮО4)НfwО4)Н"�Н#СО0зНС yН/О0з�О0зНЗwНВО0з�О0зО-▀НСyН≈О-▀�О-▀НbwО-▀Н#R�Н%7О*<НСyН┤О*<�О*<НRwО*<Н B�Н!оxО(∙НН╒НЖН!&Н%ЯН(┼uО%EНСwН#≤О%E�О%EyН$√О%E�О%EН%=wО%EН(= yН1СО%E�О%EН2ЎwН8*О%E�О%EyН9О%E�О%EН9ЕwО#·НфyН{О#·�О#·НFwН"╡О#·�О#·Н#≥�Н%�О!ВННщ�НjyН3█О!В�О!ВН4·wО!ВН6ЕО OНuО�НСwНYО��О�yНWО��О�НЪwО�НЧyН!$О��О�Н!щО�Н%wН)│О��О�yН*hО��О�Н+<wО�Н0tyН5О��О�Н6JwН;ІО��О�Н<²�Н>┌�ОYНН3�yНюОY�ОYН°wНVОY�ОYН╧yН#yОY�ОYН$VwН&ОY�ОYН&sО╠НuОbНСwН▒Оb�ОbyН▌Оb�ОbН6ОbНGОbН#мwОbН'tН-%yН2БОb�ОbН3ІwО╩НфyН{О╩�О╩НЕwН┤О╩�О╩Нn�Н!S�yОНОН)wОНнyН cО�ОН!LwН#ёО�ООlНyНгОl�ОlН─ОlНЇwОlН╗�Н 5yОдНwОдН╛Нщ�yНбОд�ОдН╙ОдНRwОдН yОНwОН╛ НН╘yН3О�ОН3сОН6ъwОН<LОuННщ�О нНвП;Ъ��b��TVm$2��6String.AppendString[tag,""];String.AppendChar[tag,VAL[Inline.HighByte[CARDINAL[request.copies]]]];String.AppendChar[tag,VAL[Inline.LowByte[CARDINAL[request.copies]]]];Append[state,tag];Append[state,request.fileName];Append[state,request.requestTime];Append[state,request.requestor];Append[state,request.requestorPassword];Append[state,request.separator];IFstringsPerRequest#6THENERROR;BEGINmsg:LONGSTRING_[250];String.AppendString[msg,request.fileName];IFrequest.copies#1THEN{String.AppendString[msg,"("];String.AppendDecimal[msg,request.copies];String.AppendString[msg,"copies)"];};InternalLogMessage[msg,requestNumber,request.requestor];END;IFNOTdeferSavingTHENSave[];--savewillbedonewhencurrentrequestfinishes.NOTIFYnewRequest;};reprintCopies:CARDINAL_0;Reprint:PUBLICENTRYPROC[copies:CARDINAL]={reprintCopies_reprintCopies+copies;NOTIFYnewRequest;};printingSuspended:BOOLEAN_FALSE;GetSuspended:PUBLICENTRYPROCRETURNS[BOOLEAN]={RETURN[printingSuspended]};SetSuspended:PUBLICENTRYPROC[suspended:BOOLEAN]RETURNS[old:BOOLEAN]={old_printingSuspended;printingSuspended_suspended;NOTIFYnewRequest;};abortCurrent:BOOLEAN;FirstRequest:ENTRYPROCRETURNS[requestNumber:CARDINAL]={ENABLEUNWIND=>NULL;IFstate=NILTHENRestore[];requestNumber_ReqNumberFromStringNumber[state.nDiscarded];};FindRequest:ENTRYPROC[requestNumber:CARDINAL,tag:LONGSTRING,��qОg/НEи�wО_,НН"R�Н$О]┘НyН!╛О]┘�О]┘Н"wwН$О]┘�О]┘Н$fyН.EО]┘�О]┘Н/wН4{О]┘�О]┘Н4ъО[щНyН!╛О[щ�О[щН"wwН$О[щ�О[щН$fyН-КО[щ�О[щН.ІwН4"О[щ�О[щН4┘ОZ5НН╨ОX▌НН╨ОVФНН╨ОU?НН╨ОS≈НН╨ОQПНН╨yОPHНwОPHН╛Нж�Н!╩�yН"ПОPH�ОPHН#╘ОPHН&╣wН*фОPH�ОPHyОN║НwОLЫНyНrОLЫ�ОLЫН+ОLЫНbwОLЫН!S�Н"ЮОKRНН$ЩyОI╙НwОI╙НҐyН!єОI╙�ОI╙Н"]wОI╙Н%i�ОHН'Н'�Н(BОF[Н'Н(nОDЄН'Н'�Н(B ОCН'ОAeНН$╦ Н.ИyО?ҐНwН²О?Ґ�О?ҐyО>НО>НҐwО>Н© yН!JО>�О>Н"wО>Н%xН)∙О>�О>Н*�Н+Н-ШН0░Н2`Н5·Н9 О<nНХН┬yО:гНwО:гНЩ О9НО5пНС yНО5п�О5пНжwО5пН ф�Н"SuО2│НСwНbО2│�О2│yН`О2│�О2│НО2│НО2│Н÷wО2│Н#FyН(QО2│�О2│Н)wН.┬О2│�О2│Н/o�Н1T�О0зННё�Н0Н%н�Н'ЄyО/2НwО/2НЩ О-▀НО*<НСyН'О*<�О*<НАwО*<Н#L�yН$ыО*<�О*<Н%▓wН(wО*<�О*<uО&МНСwНdО&М�О&МyНaО&М�О&МН О&МНО&МН#═О&МН'GwО&МН-S�yН-ІО&М�О&МН.owН3VО&М�О&МН4>�Н6#�yН6сО&М�О&МН7їwО%EНфuО#·НСwН-О#·�О#·yН*О#·�О#·НрО#·НЦО#·Н#iwО#·Н' yН.їО#·�О#·Н/`wН4GО#·�О#·yН5/О#·�О#·Н6wО#·Н;:yО!ЖНфwНfО!Ж�О!ЖНN�Н3�О OННn�НШОїНН©�Н L yО�НwО�НЩ ОXНО НСyНЄО �О НmwНTО �О uО╨НСwН}О╨�О╨yНzО╨�О╨Н3О╨НО╨Н!╗wО╨Н'ЁyН2iО╨�О╨Н33wН8÷О╨�О╨Н9┤�Н;l�yОНОН)wОНнyН cО�ОН!LwН#ёО�ОyОkНwОkН╛Нщ�yНбОk�ОkН╙ОkНRwОkН ОдННщ�НjП,ОНuО мНС wН[О м�О мyНYО м�О мНО мНъwО мН!├yН,;О м�О мН-wН2rО м�О мН3OyН6О м�О мН6йО мН:wН>nО м�О м��9��TVm$К��7request:Request]={ENABLEUNWIND=>NULL;stringNumber:CARDINAL_requestNumber*stringsPerRequest;offset:CARDINAL_0;IFstate=NILTHENRestore[];WHILEstringNumber<state.nDiscardedDOstringNumber_stringNumber+requestLimit*stringsPerRequestENDLOOP;IFstringNumber-state.nDiscarded>=state.nStringsTHENRETURN;offset_StringOffset[state,stringNumber-state.nDiscarded];MoveToString[tag,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.fileName,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestTime,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestor,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestorPassword,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.separator,state,offset];IFstringsPerRequest#6THENERROR;};GetRequest:ENTRYPROC[request:Request]RETURNS[requestNumber:INT,copies:CARDINAL]={ENABLEUNWIND=>NULL;tag:LONGSTRING_[4];IFstate=NILTHENRestore[];DOoffset:CARDINAL_0;WHILEprintingSuspendedOR(state.nStrings=0ANDreprintCopies=0)DOWAITnewRequestENDLOOP;abortCurrent_FALSE;IFreprintCopies#0THEN{requestNumber_-1;copies_reprintCopies;reprintCopies_0;RETURN;};requestNumber_ReqNumberFromStringNumber[state.nDiscarded];MoveToString[tag,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.fileName,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestTime,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestor,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.requestorPassword,state,offset];offset_NextStringOffset[state,offset];MoveToString[request.separator,state,offset];copies_DecodeCopies[tag];IFstringsPerRequest#6THENERROR;IFtag[0]='THENEXIT;��qОg/НEи�wО_,НфННп�Н╣�yО]┘НО]┘Н)wО]┘НнyН cО]┘�О]┘Н!LwН#ёО]┘�О]┘О[щНyНXО[щ�О[щН"wО[щН#�Н$═ОZ5НyНIОZ5�ОZ5НwОZ5Н�Н▒yОX▌НwОX▌Н╛Нщ�yНбОX▌�ОX▌Н╙ОX▌НRwОX▌Н yОVФНwОVФНeН ?�Н!tyН+бОVФ�ОVФН,ї�wОVФН.Н6Б�Н8oОU?Нв�Н╪yН)-ОU?�ОU?Н)ФwН.нОU?�ОU?yОS≤НwОS≤Н╛Н'хН*^ yН2еОS≤�ОS≤Н3~ОS≤Н6▀wН;sОS≤�ОS≤ОQПННо�Н\Н#{ОPIННіН"0Н&вН*╒�Н,/Н:5ОN║НН'Н*▐Н/7Н3�ОLЗНвН!чОKRНП!Н(СН,}Н1$Н4О�ОI╚НвН!чОHНН'Н*ёН/JН3�ОF\НвН!чОDЄНП'Н,²Н0&Н4нН8≥�ОC НвН!чОAfНН&ЬН*│yО?ЎНwО?ЎН╛Нж�Н!╩�yН"ПО?Ў�О?ЎН#╘О?ЎН&╣wН*фО?Ў�О?ЎО>НuО:хНС wНБО:х�О:хyНЮО:х�О:хН≥О:хНfwО:хН!Н&©yН,{О:х�О:хН-OwО:хН2┤yН=<О:х�О:хН=╔wН?GО:х�О:хО9 НфyНnО9 �О9 Н9wН╔О9 �О9 Н▄�Нq�yО7yНО7yН)wО7yНнyН cО7y�О7yН!LwН#ёО7y�О7yО5яНyНгО5я�О5яН─О5яНЇwО5яН╗�Н 5yО4*НwО4*Н╛Нщ�yНбО4*�О4*Н╙О4*НRwО4*Н yО2┌НwО0шНyНZО0ш�О0шН%wО0шН �Н!╒yО/3НwО/3НvyН%1О/3�О/3Н&�wО/3Н'fН0G�Н2,�yН3aО/3�О/3Н44wО/3Н6┤Н?%�О-▄НХyН√О-▄�О-▄Н|�О-▄НщwО-▄Нr yН%5О-▄�О-▄Н%НwН*жО-▄�О-▄О+ДНН]�yНЙО+Д�О+ДНёwН"┤О+Д�О+ДyО*=НwО*=НҐН[�Н!@�yН"uО*=�О*=Н#.wО*=Н&;�О(∙Н'Н Ъ�Н"▄О&НН'НU�НБ О%FН'Не�Н!RyО#÷Н'wНО#÷�О#÷О!ВН'О PННН�Н {П,О╗НН ╦Н$AН(ХН,Ё�Н.@Н<GОНН)Н,═Н1HН5�ОYНХН#ОО╡НП!Н+Н.▌Н35Н7��О НХН#ООcНН)+Н,ЄН1[Н5&�О╪НХН#ООНП'Н.ўН28Н6ъН:╙�ОmНХН#ООеНН) Н,▓ОННD�НяyОvНwОvНҐН!Г�Н#л�yН%Оv�ОvН%╨ОvН(фwН,ьОv�ОvyО оНwО оНҐН|�Нa�yНбО о�О оН{О оН!┬wН$8О о�О о��Р��TVm$��8Discard[state,stringsPerRequest];WHILEstate.nDiscarded>=stringsPerRequest*requestLimitDOstate.nDiscarded_state.nDiscarded-stringsPerRequest*requestLimit;ENDLOOP;ENDLOOP;};RemoveRequest:ENTRYPROC[requestNumber:CARDINAL]={ENABLEUNWIND=>NULL;IFstate=NILTHENRestore[];IFrequestNumber#ReqNumberFromStringNumber[state.nDiscarded]THENERROR;Discard[state,stringsPerRequest];deferSaving_FALSE;Save[];};DeferSaving:ENTRYPROC={ENABLEUNWIND=>NULL;deferSaving_TRUE;};DoDeferredSave:ENTRYPROC={ENABLEUNWIND=>NULL;deferSaving_FALSE;Save[];};DoRequest:PUBLICPROC[action:PROC[request:Request,requestNumber:CARDINAL,abort:LONGPOINTERTOBOOLEAN]]={fileName:LONGSTRING_[80];requestTime:LONGSTRING_[20];requestor:LONGSTRING_[80];requestorPassword:LONGSTRING_[80];separator:LONGSTRING_[80];requestNumber:INT;body:LONGPOINTERTOStringRep;copies:CARDINAL;aborted:BOOLEAN_FALSE;[requestNumber,copies]_GetRequest[[fileName,requestTime,requestor,requestorPassword,separator,0]];deferSaving_TRUE;DeferSaving[];IFrequestNumber<0THEN{LogMessage["Reprint."];action[[NIL,NIL,NIL,NIL,NIL,copies],NAT.LAST,@abortCurrent!ABORTED=>{aborted_TRUE;CONTINUE}];LogMessage["Reprintcompleted."];DoDeferredSave[];}ELSE{��qОg/НEи�wО_,Н Н■yО]┘НwО]┘НvН#дН&ZyН9кО]┘�О]┘Н:╟�wО[щН'Н!t�Н#Н-O�ОZ6НЗyОX▌Н'wНхОX▌�ОX▌yОVГНwНЇОVГ�ОVГОU?НuОQПНСwНbОQП�ОQПyН`ОQП�ОQПНОQПНФwОQПН#█yН.BОQП�ОQПН/ wН4yОQП�ОQПН5a�Н7F�yОPHНОPHН)wОPHНнyН cОPH�ОPHН!LwН#ёОPH�ОPHyОN║НwОN║Н╛Нщ�yНбОN║�ОN║Н╙ОN║НRwОN║Н yОLЫНwОLЫН╛Н└�Н iП+yОKRНвОKRН²wНўОKR�ОKRОI╚Н Н┐ОHН Н▐�yНОH�ОHНуwН╨ОH�ОHОF\НОDЄНuОAeНС wН:ОAe�ОAeyН7ОAe�ОAeНЯОAeНЎwОAeН!e�Н#J�yО?ҐНО?ҐН)wО?ҐНнyН cО?Ґ�О?ҐН!LwН#ёО?Ґ�О?ҐО>Н Н▐�yНО>�О>НуwНHО>�О>О<nНuО9НС wН╨О9�О9yНЇО9�О9НqО9Н >wО9Н#Е�Н%й�yО7xНО7xН)wО7xНнyН cО7x�О7xН!LwН#ёО7x�О7xО5пН Н▐�yНО5п�О5пНуwН╨О5п�О5пО4)НО2│НuО/2НСwНО/2�О/2yН}О/2�О/2Н$О/2Н5wО/2Н эyН%яО/2�О/2Н&ywО/2Н)xН/)Н4ш yО-▀НфwНЩО-▀�О-▀НыyНРО-▀�О-▀Н╚О-▀Н БО-▀Н&┐О-▀Н(²wН.=О-▀�О-▀Н.║�Н/┬�Н1m�О+ЦНyН~О+Ц�О+ЦН8О+ЦНowО+ЦН"`�Н#МО*<НyНlО*<�О*<Н%О*<Н]wО*<Н$N�Н%шО(■Н yН▓О(■�О(■НKО(■Н┌wО(■Н"t�Н$�О&МНyНО&М�О&МНоО&МН#wО&МН'В�Н)└О%EН yНpО%E�О%EН)О%EНawО%EН"R�Н#ъО#·Н yНVО#·�О#·НюwНbО#·�О#·О!ЖНyНЭО!Ж�О!ЖН╣О!ЖНЛО!ЖН █wО!ЖН"ї О OНyН╛О O�О OНwwНЦО O�О OОїНyН┴Ої�ОїНBwОїНў�yН ;Ої�ОїН ТwН#ыОї�ОїО�НН≤Н"*�Н#ЇН1ИН:/ ОXНвНг Н&О╠Н Н▐�yНО╠�О╠НуwНHО╠�О╠О Н yОbНwОbН╛Н└�Н╧�yН НОb�ОbН!їwОbН$Ё�О╨НОНyНpО�ОНXwН{О�ОyНXО�ОН@wНcО�ОyН@О�ОН (wН!KО�ОyН"(О�ОН#wН$3О�ОyН%О�ОН%ЫwН'О�ОН'ЬyН,БО�ОН-йwН/WО�yОН/ўwН2⌠О�ОН3oН=�yОkНХwОkНН≈Н$S�yН%ЮОk�ОkН&≥wН)Оk�ОkyН* Оk�ОkН*тwН0CОk�ОkН0СОдНН"▓ОНОuН�yО мНwО мНS��√��TVm$c��9body_LOOPHOLE[@(state[0])];IFbody.nChars#4THENERROR;body.char[1]_'P;LogMessage["Started.",requestNumber,requestor];action[[fileName,requestTime,requestor,requestorPassword,separator,copies],requestNumber,@abortCurrent!ABORTED=>{aborted_TRUE;CONTINUE}];IFabortedTHENLogMessage["Aborted.",requestNumber,requestor]ELSELogMessage["Completed.",requestNumber,requestor];RemoveRequest[requestNumber];};};CancelRequest:PUBLICENTRYPROC[requestNumber:CARDINAL]RETURNS[ok:BOOLEAN]={stringNumber:CARDINAL_requestNumber*stringsPerRequest;body:LONGPOINTERTOStringRep;IFstate=NILTHENRestore[];WHILEstringNumber<state.nDiscardedDOstringNumber_stringNumber+requestLimit*stringsPerRequestENDLOOP;IFstringNumber-state.nDiscarded>=state.nStringsTHENRETURN[FALSE];body_LOOPHOLE[@(state[StringOffset[state,stringNumber-state.nDiscarded]])];IFbody.nChars#4THENERROR;IFbody.char[0]#'THENRETURN[FALSE];body.char[0]_'X;IFstringNumber=state.nDiscardedTHENabortCurrent_TRUE;RETURN[TRUE];};RequestStatus:TYPE=PDQueue.RequestStatus;CheckRequest:PUBLICPROC[requestNumber:CARDINAL,action:PROC[request:Request,status:RequestStatus]]={tag:LONGSTRING_[4];status:RequestStatus;fileName:LONGSTRING_[80];requestTime:LONGSTRING_[20];requestor:LONGSTRING_[80];requestorPassword:LONGSTRING_[80];separator:LONGSTRING_[80];tag.length_0;FindRequest[requestNumber,tag,[fileName,requestTime,requestor,requestorPassword,separator,0]];IFtag.length=0THENstatus_notFoundELSEIFtag[0]='XTHENstatus_canceledELSEIFtag[1]='PTHENstatus_printingELSEstatus_waiting;action[[fileName,requestTime,requestor,requestorPassword,separator,DecodeCopies[tag]],status];};��qОg/НEи�wО_,НН⌠�yН О_,�О_,НыwН oО_,�О_,Н рyО]└НwО]└НҐ Нк�Н ╠�yН!ЕО]└�О]└Н"·О]└Н%╚wН)╪О]└�О]└О[щННМ�НzОZ5НН# Н-к ОX▌ННиН( Н.|Н:l ОVФНХНр Н%Н.╚�yН/╗ОVФ�ОVФН0|wОVФН5бН8WН>�yОU?НХwНОU?�ОU?yНОU?�ОU?НщwН LОU?�ОU?Н ЭyОS≈НwОS≈НҐyНхОS≈�ОS≈Н│wОS≈Н▌Н.б Н8С yОQПНwОQПНdН)< Н3m ОPHНОN║НОLЫНuОI╙НСwН╪ОI╙�ОI╙yН╨ОI╙�ОI╙НbОI╙НsОI╙Н#ЫwОI╙Н'═yН2UОI╙�ОI╙Н3 wН8▄ОI╙�ОI╙yН9tОI╙�ОI╙Н:HwОHНфyН²ОH�ОHНWwН>ОH�ОHН%�Н �ОF[НyНXОF[�ОF[Н"wОF[Н#�Н$═ОDЁНyНЭОDЁ�ОDЁН╣ОDЁНЛОDЁН █wОDЁН"ї yОCНwОCН╛Нщ�yНбОC�ОCН╙ОCНRwОCН yОAdНwОAdНeН ?�Н!tyН+бОAd�ОAdН,ї�wО?╪ННО�Н|П+yО>НwНЇО>�О>yО<mНwО<mН╛Н'хН*^ yН2еО<m�О<mН3~О<mН6▀wО<mН;В�yН<ZО<m�О<mН=wН?ЬО<m�О<mН@[�О:фНН┌�yНО:ф�О:фНхwН^О:ф�О:фНаО9НвП"yО7wНwО7wН╛ Н╨�Н÷�yНтО7w�О7wН █О7wН#≥wН'╚О7w�О7wyО5оНwО5оН╛Н┐�Нh�yНиО5о�О5оН ┌О5оН#▐wО5оН(Ш�yН)^О5о�О5оН*wН,ЭО5о�О5оН-_�О4'ННэ�НiyО2─НwО2─Н╛Н┘�НkyН)╦О2─�О2─Н*qwО2─Н-~Н5е�yН7RО2─�О2─Н8wН:}О2─�О2─yО0ьНwО0ьНq�yНтО0ь�О0ьН█wН�О0ь�О0ьНc�О/1НО+АНС yН[О+А�О+АНwО+АНл�Н╡uО*:НСwНeО*:�О*:yНbО*:�О*:Н О*:НwО*:Н"бyН-wО*:�О*:Н.BwН3ўО*:�О*:Н4┼yН9О*:�О*:Н9дwО(⌠НфНwН(Н!yН+-�Н-�О&КНyНгО&К�О&КН─О&КНЇwО&КН╗�Н 5О%CННU О#°НyН~О#°�О#°Н8О#°НowО#°Н"`�Н#МО!ТНyНlО!Т�О!ТН%О!ТН]wО!ТН$N�Н%шО MН yН▓О M�О MНKО MН┌wО MН"t�Н$�О╔НyНО╔�О╔НоО╔Н#wО╔Н'В�Н)└ОЩН yНpОЩ�ОЩН)ОЩНawОЩН"R�Н#ъОVН НZ�НГОўНН%EН'Ф Н.╒Н6И ОНвНг Н&yО_НwО_Н╛ Н�НФ�yНО_�О_НтwО_Н!ЮН%Ї�Н'DyО╦НО╦НSwО╦НЗН╨�Н÷yН┘О╦�О╦Н >wО╦Н#JН'!�Н(ўyОНОНSwОНЗН╨�Н÷yНMО�ОН wОН#Н&И�Н(vyОhНwОhНSН*�НЇОаНН╦Н%Ч Н,jН8Z ОНвН 6ОrН��D��TVm$⌡��10CountRequests:PUBLICENTRYPROCRETURNS[requestCount:NAT]={IFstate=NILTHENRestore[];requestCount_state.nStrings/stringsPerRequest;};EnumerateRequests:PUBLICPROC[action:PROC[requestNumber:CARDINAL,request:Request,status:RequestStatus]RETURNS[continue:BOOLEAN]]={firstRequest:NAT_FirstRequest[];nRequests:NAT_CountRequests[];requestNumber:NAT_firstRequestMODrequestLimit;THROUGH[0..nRequests)DOcontinue:BOOLEAN_TRUE;myAction:PROC[request:Request,status:RequestStatus]={IFstatus=printingORstatus=waitingTHENcontinue_action[requestNumber,request,status];};CheckRequest[requestNumberMODrequestLimit,myAction];IFNOTcontinueTHENEXIT;requestNumber_(requestNumber+1)MODrequestLimit;ENDLOOP;};RegisterDisk:PUBLICENTRYPROC[read,write:PROC[address:LONGPOINTER,nwords:CARDINAL],maxWords:CARDINAL]={IFstate#NILTHEN{PDInterpSysCalls.FreeSpace[state];state_NIL;};readProc_read;writeProc_write;maxStateWords_maxWords;};LogMessage:PUBLICENTRYPROC[message:LONGSTRING,requestNumber:INT_-1,userName:LONGSTRING_NIL]={InternalLogMessage[message,requestNumber,userName];};InternalLogMessage:INTERNALPROC[message:LONGSTRING,requestNumber:INT_-1,userName:LONGSTRING_NIL]={msg:LONGSTRING_[250];Time.AppendCurrent[msg];msg[msg.length]_';msg.length_msg.length+1;IFrequestNumber>=0THEN{String.AppendChar[msg,'R];FORi:CARDINAL_requestLimit/10,i/10WHILEi#0DOString.AppendDecimal[msg,(requestNumber/i)MOD10];ENDLOOP;String.AppendChar[msg,'];};String.AppendString[msg,message];��qОg/НEuО_,НСwНщО_,�О_,yНшО_,�О_,Н┐О_,Н⌠О_,Н$О_,Н'аwО_,Н-м yН73О_,�О_,Н8wН9╗О_,�О_,Н:▐�Н<u�yО]┘НwО]┘Н╛Нщ�yНбО]┘�О]┘Н╙О]┘НRwО]┘Н О[щНН▌�НП!ОZ5НuОVФНСwН╘ОVФ�ОVФyНїОVФ�ОVФНOОVФН"_wОVФН&yН*ЭОVФ�ОVФН+ёwОVФН.ёyН9XОVФ�ОVФН:#wН?▐ОVФ�ОVФОU?НфННеН! yН*gОU?�ОU?Н+;wОU?Н0s yН6УОU?�ОU?Н7ўwН<∙ОU?�ОU?Н<Ь�Н=Ю�Н?е�ОS≤НyН+ОS≤�ОS≤НwОS≤Н$�Н╠ОQПН yН"ОQП�ОQПН wОQПН�Н╗ОPIН yНVОPI�ОPIН?wОPIН P�Н!щyН)┴ОPI�ОPIН*⌡wОPIН,АyОN║НwОN║Н▓ yН"rОN║�ОN║Н#X�wОLЗНyН5ОLЗ�ОLЗННwОLЗН!Y�yН"ФОLЗ�ОLЗН#÷wН&ОLЗ�ОLЗОKRНyНДОKR�ОKRН▄wОKRН▀Н%<Н*НН/> Н8▐�Н:t�yОI╙Н'wОI╙НнН╔�Н┼yН#лОI╙�ОI╙Н$╗�wОI╙Н&Н)ь�Н+ҐyН0░ОI╙�ОI╙Н1IwОI╙Н4UН9Ш�ОHНЗН&"Н+NОF\Н'ОC НyН'ФОC �ОC Н(ЬwОC Н+>Н3╠ yОAeНОAeНҐwОAeН©yНeОAe�ОAeН ОAeН#+wН%шОAe�ОAeО?ЎННН�Н { Н*м�Н,╡yН.`О?Ў�О?ЎН/rwО?ЎН1╦yО>НwНЇО>�О>О<oНuО9НСwН²О9�О9yН⌡О9�О9НCО9НSО9Н"зwО9Н&│Н*WyН.NО9�О9Н.УwО9Н1УyН7╩О9�О9Н8uО9Н;╛wН@иО9�О9О7xНфyНО7x�О7xНчwНJО7x�О7xНґ�Н┴yН%РО7x�О7xН&ҐwН,)О7x�О7xН-�Н.Ж�yО5яНwО5яН╛Нщ�yНбО5я�О5яН╙О5яНRwО5яН �О4)НП"О2┌ННG�yНсО2┌�О2┌Н╪wНъО2┌�О2┌О0зНО/3ННк�НXО-▀НН.�Н╩О+ДННЦ�НpО*<НuО&МНС wНqО&М�О&МyНoО&М�О&МНО&МН'О&МН"ўwО&МН&UyН,┴О&М�О&МН-BО&МН0ywН4ФО&М�О&МН5ц yО%FНфwО%FНV�НЦНИyНСО%F�О%FН╛О%FН"ДwО%FН'у�yН)bО%F�О%FН*JwН+mО%F�О%FН,T�Н.:�О#·НН% Н/M О!ВНuО╗НСwН"О╗�О╗yН О╗�О╗Н┼О╗Н$╡wО╗Н(YyН.█О╗�О╗Н/FО╗Н2}wН6ЙО╗�О╗Н7г yО�НфwО�НV�НЦНИyНСО��О�Н╛О�Н"ДwО�Н'у�yН)bО��О�Н*JwН+mО��О�Н,T�Н.:�ОYНyН`ОY�ОYНОYНQwОYНB�Н оО╠НО НН�Н╔�Н┌�Н ─ Н'o�Н(Э Н/К�Н1яyОbНwОbН╛Н└Н!�yН"NОb�ОbН#wОbН&�О╩НН$WyОНwОНyНdО�ОН/wОН �Н!╛Н,0yН/)О�ОН0CwОН3┼yН6┌О�ОН7h�wОlН'Н(nyН4MОl�ОlН5_wОlН7╔yОдН'wНхОд�ОдОНН$W�Н%3ОuНО нНН"К��╒��TVm$н��11IFuserName#NILTHEN{String.AppendString[msg,"("];String.AppendString[msg,userName];String.AppendChar[msg,')];};IFstate=NILTHENRestore[];DiscardMessages[messages.nWords-SIZE[StringBody[msg.length]]];Append[messages,msg];TryToPrintMessages[];};loggingMessages:BOOLEAN_FALSE;firstUnprintedMessage:CARDINAL_0;writeLineProc:PROC[LONGSTRING]_NIL;RegisterTTY:PUBLICENTRYPROC[writeLine:PROC[LONGSTRING]]={writeLineProc_writeLine;};TryToPrintMessages:INTERNALPROC={msg:LONGSTRING_[250];GetMsg:INTERNALPROC[n:CARDINAL]RETURNS[ok:BOOLEAN]={msg.length_0;IFn<messages.nDiscardedTHENRETURN[TRUE];IFn-messages.nDiscarded>=messages.nStringsTHENRETURN[FALSE];AppendToString[msg,messages,StringOffset[messages,n-messages.nDiscarded]];RETURN[TRUE];};IFNOTloggingMessagesORwriteLineProc=NILTHENRETURN;FORi:CARDINAL_firstUnprintedMessage,i+1UNTILNOTGetMsg[i]DOwriteLineProc[msg!ABORTED=>CONTINUE];firstUnprintedMessage_i+1;ENDLOOP;};SetLogState:PUBLICENTRYPROC[logging:BOOLEAN]RETURNS[old:BOOLEAN]={old_loggingMessages;loggingMessages_logging;IFmessages#NILTHENTryToPrintMessages[];};EnumerateMessages:PUBLICPROC[action:PROC[message:LONGSTRING]RETURNS[continue:BOOLEAN]]={msg:LONGSTRING_[250];FORi:CARDINAL_GetNumberDiscardedMessages[],i+1UNTILNOTGetString[msg,messages,i]DOIFNOTaction[msg].continueTHENEXIT;ENDLOOP;};��qОg/НEyО_,НwО_,Н╛yНО_,�О_,НО_,Н╘wО_,Н"n�О]└НН$Щ�Н&1О[щНН$Щ ОZ5НН$WОX▌НyОVФНwОVФН╛Нщ�yНбОVФ�ОVФН╙ОVФНRwОVФН ОU>НyН(XОU>�ОU>Н(ВwН*сОU>�ОU>Н+6ОS≈ННeОQОНОPHНОLЬНСyНнОLЬ�ОLЬН┤wОLЬН!Р�yН#ОLЬ�ОLЬН$8wН'ОLЬ�ОLЬОKQНСyНyОKQ�ОKQН DwОKQН&5�Н'аОI╘НС yНMОI╘�ОI╘НТwНpОI╘�yОI╘НсОI╘Н!цwН&0ОI╘�ОI╘Н'�yН(╔ОI╘�ОI╘Н)█wН*╟ОI╘�ОI╘uОFZНС wНЇОFZ�ОFZyНЄОFZ�ОFZН\ОFZНmОFZН"СwОFZН& yН-╚ОFZ�ОFZН.SwН0нОFZ�yОFZН11ОFZН5"wН9▐ОFZ�ОFZН9Р�Н:ы�Н<Ў�ОD╡ННЕ�Нq ОCНuО?╪НСwН}О?╪�О?╪yН{О?╪�О?╪НЕО?╪Н% wО?╪Н(Є�Н*≥�О>НyН`О>�О>НО>НQwО>НB�Н оuО<lНwНвО<l�О<lyНуО<l�О<lН?О<lНgwО<lН#yН%5О<l�О<lН&�wН+lО<l�О<lyН,TО<l�О<lН-(wО<lН2_yН57О<l�О<lН5ПwН:вО<l�О<lН;Ў�Н=ё�О:еН Н�Н▓yО9НwО9НҐ�Н�Н<yН&5О9�О9Н&НО9Н)ЗwО9Н/g�yН/йО9�О9Н0┐wН2УО9�О9Н3X�yО7vНwО7vНҐН$УН'▀yН2²О7v�О7vН3VО7vН6bwО7vН;о�yН<2О7v�О7vН<КwН?пО7v�О7vН@3�О5нНН"ЄН(ХО4'НХyО2НwО2Н┌�yНЕО2�О2Н·wНО2�О2Нt�О0ьНyО/0НО/0Н╛wО/0НўyН"О/0�О/0Н"Л�wО/0Н$DН-$�yН/ О/0�О/0Н/РО/0Н1≥О/0Н5^wН:FО/0�О/0yО-┬НwО-┬НРyНSО-┬�О-┬НwО-┬Н�Н⌡Н.�yН0ЫО-┬�О-┬Н1чО-┬Н5'wО-┬Н8)yН>═О-┬�О-┬Н?┘�wО+АНН Ї�yН!╣О+А�О+АН"┬wО+АН'нyН*dО+А�О+АН+/wН0·О+А�О+АН1�О*9НН#"�Н$╞yО(▓НwНЇО(▓�О(▓О&ЙНuО#⌡НС wНgО#⌡�О#⌡yНdО#⌡�О#⌡НО#⌡НО#⌡Н"ёwО#⌡Н&JyН,О#⌡�О#⌡Н,ЎwН1╔О#⌡�О#⌡yН2▄О#⌡�О#⌡Н3`wО#⌡Н8≤yО!СНфwНfО!С�О!СНN�Н3�О LННn�НШОєННe�НРyОЩНwОЩН╛Н┤�yНlОЩ�ОЩНUОЩНЭwОЩН"бОUНuОНСwНО�ОyНО�ОНҐОН"нwОН&uyН+jО�ОН,wН.█О�ОН.ПyН4юО�ОН5zОН8╠wН=О�ОyО^НфwО^Нр yНTО^�О^Н wН#ТО^�О^Н$X�Н%?�Н'$�ОЇНyН`ОЇ�ОЇНОЇНQwОЇНB�Н оyОНwОНРyНSО�ОНwОН�Н⌡Н4yН6ЗО�ОН7ЮОН;)wОhНв НGН#{yН$фОh�ОhН%╛�ОюНОюНҐwОюН©yН&vОю�ОюН'/ОюН*;wН,КОю�ОюyОНwНЇО�ООqН��TVm$д��12END.��qОg/НEyО_lНСwН{О_l�О_lЪ��TVm$��PDRemoteStream.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19841:58:46pmPDTDIRECTORYStreamUSING[Handle];PDRemoteStream:DEFINITIONS=BEGINLookup:PROC[fileName:LONGSTRING,createDate:LONGSTRING,name,password:LONGSTRING]RETURNS[bytes:INT];Ifsuccessful,explandsfileNametoincludespecificversion.Ifunsuccessful,raisesError,below.Read:PROC[fileName:LONGSTRING,name,password:LONGSTRING,action:PROC[Stream.Handle]];MayraiseError,below.Error:ERROR[expl:LONGSTRING,retryable:BOOLEAN];retryableisahintthatitmaybeworthittotryagainlater.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН(\Н*їyОX²НБwОX²НKyНЧОX²�ОX²НЦwОX²НGОUNНБyНїОUN�ОUNН▄ wОUNН"ф�yН$╚ОUN�ОUNН%euОQЪНСwНxОQЪ�ОQЪyНvОQЪ�ОQЪНwОQЪН yН ЗОQЪ�ОQЪН!ЁОQЪН$КwН)XОQЪ�ОQЪН*4 yН1┴ОQЪ�ОQЪН2BОQЪН5zwН9ФОQЪ�ОQЪН:цОPXНфyН=ОPX�ОPXНЖОPXН.wН ОPX�ОPXyН!┌ОPX�ОPXН"VwОPXН'█yН+ЧОPX�ОPXН,hwН. ОPX�ОPXН.m�xОN╠НН▓ НН ╣Н&~Н(#Н,оН1█ОM НН▓Н⌠Н RН$_uОI╩НСwНВОI╩�ОI╩yНУОI╩�ОI╩Н°wОI╩Н° yНyОI╩�ОI╩Н 2ОI╩Н#jwН'вОI╩�ОI╩Н(ЁН,кyН3BОI╩�ОI╩Н3ШОI╩Н72wН;÷ОI╩�ОI╩Н<|yОHНфwНИОH�ОHНLxОFlНН3НnН{uОCНСwН#ОC�ОCyН ОC�ОCНзwОCНІyН≈ОC�ОCНPОCН!┤wН%ТОC�ОCН&я yН-ОC�ОCН-йwН2╠ОC�ОCН3�xОAvНН═Н�НAНН ФН"=Н%-Н&ЩН*йН,"Н-гН/ЕН3°yО>'НСwН{О>'�О>'Ъ��1��TVm$⌠��PDRemoteStreamStub.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September5,198410:18:39pmPDTDIRECTORYIO,Stream,STP,Rope,PDRemoteStream,String,Commander,PDQueue;PDRemoteStreamStub:PROGRAMIMPORTSRope,STP,String,Stream,Commander,PDQueue,IOEXPORTSPDRemoteStream=BEGINError:PUBLICERROR[expl:LONGSTRING,retryable:BOOL]=CODE;RopeFromString:PROC[string:LONGSTRING]RETURNS[Rope.ROPE]={i:INTEGER_-1;fet:SAFEPROCRETURNS[CHAR]=TRUSTED{RETURN[string[i_i+1]]};IFstring=NILTHENRETURN[NIL];RETURN[Rope.FromProc[string.length,fet]];};Rs:PROC[string:LONGSTRING]RETURNS[Rope.ROPE]=RopeFromString;AppendRope:PROC[string:LONGSTRING,rope:Rope.ROPE]={action:Rope.ActionType=TRUSTED{string[string.length]_c;string.length_string.length+1;};[]_rope.Map[action:action];};Retryable:PROC[code:STP.ErrorCode]RETURNS[BOOL]={RETURN[SELECTcodeFROMconnectionTimedOut,connectionRejected,connectionClosed,noConnection,noNameLookupResponse=>TRUE,ENDCASE=>FALSE]};Lookup:PUBLICPROC[fileName:LONGSTRING,createDate:LONGSTRING,name,password:LONGSTRING]RETURNS[bytes:INT]={bytes_MyLookup[fileName,createDate,name,password!STP.Error=>TRUSTED{expl:LONGSTRING_[80];AppendRope[expl,error];ERRORError[expl:expl,retryable:Retryable[code]]};];};ParseTest:PROC[fileName:Rope.ROPE]RETURNS[server,rest:Rope.ROPE]={f:LONGSTRING_[80];s:LONGSTRING_[80];��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н -Н#sН) Н+WyОX▌НБОX▌НKwН▒ОX▌�ОX▌НmyНyОX▌�ОX▌НwНyОX▌�ОX▌Н UН$bН0Н4v ОVГН╣ОS≤НБyНjОS≤�ОS≤НОQПНСwОQПНёyН╟ОQП�ОQПНOwН╟ОQП�ОQПН█Н!ЩН' Н/NН6yОPIНСwОPIН╣ ОN║НС�yНьОN║�ОN║Н▒wОKRНСyН ОKR�ОKRНхОKRНыwОKRНoyН"OОKR�ОKRН#ОKRН&@wН*ґОKR�ОKRН+┴ yН1иОKR�ОKRН2┌wН4ТОKR�ОKRН5э�yН7аОKR�ОKRН8▄wН;ОKR�ОKRuОHНС wНзОH�ОHyНьОH�ОHН─wОHНyН$1ОH�ОHН$ЙОHН("wН,▐ОH�ОHyН-vОH�ОHН.JwОHН3┌yН7mОH�ОHН8AwН:~ОH�ОHН;f�Н=K�ОF[НyНeОF[�ОF[НоwОF[Н)�НІОDЄНyН░ОDЄ�ОDЄН/ОDЄНЫОDЄН═wОDЄН"╛�yН#ОDЄ�ОDЄН#зwН&gОDЄ�ОDЄН'O�yН)4ОDЄ�ОDЄН)МwОDЄН/"�yН/рОDЄ�ОDЄН0іwОDЄН5?yОCНwОCН╛Н│�yНfОC�ОCНOОCНЖОCН ╪wОCН&(�yН&▀ОC�ОCН'twН(≈ОC�ОCН(З�yОAeНwОAeНqН*ВО?ҐНuО<nНСwН─О<n�О<nyН~О<n�О<nН%wО<nН%yНвО<n�О<nН░О<nНхwН$5О<n�О<nyН%О<n�О<nН%ПwО<nН+(yН/О<n�О<nН/ГwН2$О<n�О<nН3�Н4ЯuО9НС wНgО9�О9yНdО9�О9НwО9НyН!ЎО9�О9Н"wО9Н%ўwН*О9�О9Н*ЬН.║yН2*О9�О9Н2ЩwН5;О9�О9Н6"�Н8�О7xНН√Н"·�yН$┐О7x�О7xН%<wО7xН*q�О5пНН!�Н"²О4)ННЬ�Н┘Н&h�Н(MО2│НО0зННO�НэН √О/2НuО+ЦНСwНёО+Ц�О+ЦyН═О+Ц�О+ЦНHwО+ЦНHyНkО+Ц�О+ЦН wН!kО+Ц�О+ЦН!б yН(ЪО+Ц�О+ЦН)сwО+ЦН/ �yН/nО+Ц�О+ЦН0'wН2≥О+Ц�О+ЦН3─�Н5e�yО*<НwО*<Нq�yНтО*<�О*<НswО*<НїyН НО*<�О*<Н!їwО*<Н$МН2kО(■НвН8Н(qН8[yН:ЯО(■�О(■Н;╙wН>О(■�О(■yО&МНвwО&МНзyНoО&М�О&МН(wН О&М�О&МО%EНuО!ЖНСwНxО!Ж�О!ЖyНvО!Ж�О!ЖНО!ЖН.wО!ЖНж yН%ЁО!Ж�О!ЖН&lО!ЖН)ёwН.О!Ж�О!ЖН.М yН6AО!Ж�О!ЖН6ШО!ЖН:2wН>÷О!Ж�О!ЖО OНфНчyНUО O�О OНО OН EwН$╡О O�О OyН% О O�О OН&mwО OН+╔yН0О O�О OН0─wН2!О O�О OН3 �Н4Н�О╗НН≤�Н%Н%▐ Н,цН0зН6ь�yО�НwНО��О�НmН!yНІО��О�НowО�Н#є�ОYН'yНєОY�ОYН]ОYН∙wОYН#├�Н%О╠Н'Н"ЮyО Н'wО Н╪ Н"мН&) Н,iОbН'О╨НОНuОдНСwНФОд�ОдyНЦОд�ОдН▀wОдН▀ Н"hyН%ПОд�ОдН&дwН)Од�ОдyН)ИОд�ОдН*╪wОдН/ТН4╪Н7жyН;_Од�ОдН<3wН>pОд�ОдН?W�ОНф�ОuНyН{Оu�ОuН4ОuНlwОuН]�НЙО нНyН├О н�О нН?О нНwwО нНh�НУ��*��TVm$��2r:LONGSTRING_[80];AppendRope[f,fileName];ParseName[f,s,r];server_Rs[s];rest_Rs[r];};ParseName:PUBLICPROC[fileName,server,rest:LONGSTRING]={state:NAT_0;server.length_0;rest.length_0;FORi:NATIN[0..fileName.length)DOc:CHAR_fileName[i];charType:NAT_SELECTcFROM'[=>0,'/=>1,']=>2,'<=>3,'>=>4,'!=>5,IN['0..'9],IN['a..'z],IN['A..'Z]=>6,'-,'+,'$,'.,''=>6ENDCASE=>Error[expl:"Illegalcharacterinfilename",retryable:FALSE];SELECTstate*7+charTypeFROM0*7+0=>state_1;0*7+1=>state_7;1*7+6=>{server[server.length]_c;server.length_server.length+1};1*7+2=>state_2;2*7+3=>{state_3;rest[rest.length]_'<;rest.length_rest.length+1};3*7+6,3*7+4=>{rest[rest.length]_c;rest.length_rest.length+1};3*7+5=>{state_4;rest[rest.length]_c;rest.length_rest.length+1};4*7+6=>{rest[rest.length]_c;rest.length_rest.length+1;IFcIN['0..'9]THENstate_5ELSEIFc='lORc='LORc='hORc='HTHENstate_6ELSEstate_9};5*7+6=>{rest[rest.length]_c;rest.length_rest.length+1;IFcNOTIN['0..'9]THENstate_9};7*7+6=>{server[server.length]_c;server.length_server.length+1};7*7+1=>{state_8;rest[rest.length]_'<;rest.length_rest.length+1};7*8+6=>{rest[rest.length]_c;rest.length_rest.length+1};7*8+1=>{rest[rest.length]_'>;rest.length_rest.length+1};��qОg/НEи�wО_,НyН├О_,�О_,Н?О_,НwwО_,Нh�НУО]┘ННЇ О[щННzНзОZ5НН�Н·ОX▌НН╔�Н2ОVФНuОS≈НСwНаОS≈�ОS≈yНЎОS≈�ОS≈НfОS≈НwwОS≈Н! Н'зН,?yН/YОS≈�ОS≈Н0ОS≈Н3JwН7ЇОS≈�ОS≈Н8·�Н:┐�ОQПНyН╞ОQП�ОQПН≈wОQПН╗�Н5ОPHНН�Н╙ОN║Н Н╡�Н?yОLЫНwОLЫНРyНSОLЫ�ОLЫН;ОLЫНLwОLЫН#yН(lОLЫ�ОLЫН)R�wОKRНyНўОKR�ОKRНywОKRН▀�НОI╙НyНёОI╙�ОI╙Н▄wОI╙Н°�yН )ОI╙�ОI╙Н хwОI╙Н$Э�yН&ОI╙�ОI╙Н&тwОHН'НfНЭОF[Н'НЄНIОDЄН'НfНЭОCН'НЄНIОAeН'НЄНIО?ҐН'Н}НyО>Н'wО>НЩyН`О>�О>Нй�wО>Н7yН#yО>�О>Н#Б�wО>Н%OН)ИН,~О<nН'НуНjНOНшН Н"і�yО:гН'wО:гН)НЎ Н&оН+╛Н1∙Н3C Н9П yО9НЗwН≤О9�О9НШ�yО7xНwО7xНХyН%kО7x�О7xН&$wО5пН'НмНcН!■�Н#!О4)Н'НмНcН!■�Н#!О2│Н'НмНcН+{�Н-Н.═Н6╨�Н8FО0зНЗ�НъО/2Н'НмНcН!■�Н#!О-▀Н'НмНcН"D�Н#яН%Н/�Н0²Н2ё Н9Q�Н:ч О+ДНЗ�НъО*<Н'О(■Н'НмНcН(є�Н*1Н+й Н2w�Н4 Н:╡�Н<≈О&МН'НмНcН"D�Н#яН%Н/�Н0²Н25 Н8Ц�Н:p О%FНЗ�НъО#·Н'НмНc�О!ВН8Н"и�Н$VН%Н Н,°�Н.) Н4в�Н6╪yО OН8wО OНъ�yНЧО O�О OНh�wО OНуyН!ЮО O�О OН"≥wО OН%╔Н(ж�Н*c�yО╗Н8О╗Н┤wО╗Н.�НM�Н!2yН"rО╗�О╗Н#N�wО╗Н$і�Н%ф�Н'╚yН)oО╗�О╗Н*K�wО╗Н+ё�Н,б�Н.╗yН0KО╗�О╗Н1'�wО╗Н2─yН6xО╗�О╗Н71wО╗Н:=Н=n�Н>Ш�yО�Н8wО�Н┤Н╦�Н!E�ОYН8О╠Н'НмНc�О Н8Н"и�Н$VН%Н Н,°�Н.) Н4в�Н6╪yОbН8wОbНъ�yНЧОb�ОbНГОbНwОbН вyН$БОb�ОbН%⌡wОbН(їН+ь�Н-e�О╨Н8ОН'НмНcН+{�Н-Н.═Н6╨�Н8FОlНЗ�НъОдН'НмНcН"D�Н#яН%Н/�Н0²Н2ё Н9Q�Н:ч ОНЗ�НъОuН'НмНcН(є�Н*1Н+й Н2w�Н4 Н:╡�Н<≈О нН'НмНcН(є�Н*1Н,7 Н2Е�Н4r Н; �Н=Ъ��║��TVm$;��37*8+5=>{state_4;rest[rest.length]_c;rest.length_rest.length+1};ENDCASE=>Error[expl:"Illegalfilename",retryable:FALSE];ENDLOOP;SELECTstateFROM3,8=>{rest[rest.length]_'!;rest[rest.length+1]_'H;rest.length_rest.length+2};5,6=>NULL;ENDCASE=>Error[expl:"Illegalfilename",retryable:FALSE];};MyLookup:PROC[fileName,createDate,name,password:LONGSTRING]RETURNS[bytes:INT_0]={server:LONGSTRING_[80];rest:LONGSTRING_[80];stp:STP.Handle_STP.Create[];open:BOOL_FALSE;BEGINENABLEUNWIND=>{IFopenTHENstp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.Destroy};expandedName:LONGSTRING_[80];success:BOOLEAN_FALSE;NoteFileProc:STP.NoteFileProcType=TRUSTED{fileInfo:STP.FileInfo_stp.GetFileInfo[];continue_no;success_TRUE;AppendRope[expandedName,file];bytes_fileInfo.size;createDate.length_0;AppendRope[createDate,fileInfo.create];};desiredProps:STP.DesiredProperties_ALL[FALSE];desiredProps[directory]_TRUE;desiredProps[nameBody]_TRUE;desiredProps[version]_TRUE;desiredProps[createDate]_TRUE;desiredProps[size]_TRUE;ParseName[fileName,server,rest];String.AppendChar[expandedName,'[];String.AppendString[expandedName,server];String.AppendChar[expandedName,']];[]_stp.Open[Rs[server]];open_TRUE;stp.Login[Rs[name],Rs[password]];stp.SetDesiredProperties[desiredProps];stp.Enumerate[Rs[rest],NoteFileProc];stp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.Destroy;IFsuccessTHEN{String.Copy[to:fileName,from:expandedName]}ELSEError[expl:"Filenotfound",retryable:FALSE];END;��qОg/НEи�wО_,Н'НмНcН"D�Н#яН%Н/�Н0²Н25 Н8Ц�Н:p О]┘НЗ�НъyО[щН'wО[щН)НЎ Н&оН+╛ Н2Z yН8≥О[щ�О[щН9SwН<7О[щ�О[щН<⌡�yОZ6НwНЇОZ6�ОZ6yОX▌НwОX▌НвyНОX▌�ОX▌НаwОVГНН╒�НвНmН$ў�Н&;Н( Н3╛�Н59Н7╞ Н>]�ОU?НХ Н√�Н{ОS≤НН╒�НвyНmОS≤�ОS≤НUwНґОS≤�ОS≤yОQПНwОQПННґ Н$ЎН)⌡ Н0H yН6┬ОQП�ОQПН7AwН:&ОQП�ОQПН:┴�ОPIНuОLЗНСwНОLЗ�ОLЗyН|ОLЗ�ОLЗН$wОLЗН# Н"ъ Н*Н.+yН4╒ОLЗ�ОLЗН5[ОLЗН8▓wН<ЪОLЗ�ОLЗyОKRНфwОKRНрyНBОKR�ОKRН╛wОKRНр�Н _Н!В�Н#э�ОI╚НyН┼ОI╚�ОI╚НCОI╚Н{wОI╚Н l�Н!ЫОHНyНОH�ОHНьОHНwОHН�Н █ОF\НyН╪ОF\�ОF\Н[wН╪ОF\�ОF\ННС�yН─ОF\�ОF\НwН ─ОF\�ОF\Н ьОDЄНyНПОDЄ�ОDЄН╘wОDЄН═�yН-ОDЄ�ОDЄНФwНкОDЄ�ОDЄyОCНОCН;ОCН`wОCН"Н$ �}ОAeНxОAeНф}НОAe�ОAeНЎxОAeНо Н#О�}Н%ОAe�ОAeН%ЎxН'1ОAe�ОAeН'┴Н+=}Н-сОAe�ОAeН.▄xОAeН3ю�}Н4pОAe�ОAeН5;xН:єОAe�ОAeН;UО?ҐНН?�Н╛ wО>НО<nНyНgО<n�О<nН О<nН#WwО<nН(H�Н)уО:гНyНBО:г�О:гНШwО:гН g�yН!ТО:г�О:гН"ґwН%▓О:г�О:гuО9НwНО9�О9yНО9�О9Н╣wН О9�О9Н mН+Г�yН-лО9�О9Н.┘wО9Н3╨�О7xН'yН┴О7x�О7xН(wН┴О7x�О7xНЮН$7�Н%дО5пН'Нм�НZО4)Н'Нз�yНgО4)�О4)Н wН ⌠О4)�О4)О2│Н'Н)ЄО0зН'Н╩�НH О/2Н'Н"�Н#°О-┼Н'Н&ЇО+ЦН'О*;НyНЄО*;�О*;НSwНЄО*;�О*;Н Н+*�yН,ЇО*;�О*;Н-┼wН.ЩО*;�yО*;Н/`wН2ЧО*;�О*;Н3a�О(■НН#O�yН$шО(■�О(■Н%∙wН(О(■�О(■О&ЛНН$V�yН%ЦО&Л�О&ЛН&°wН)О&Л�О&ЛО%EНН"E�yН#яО%E�О%EН$▀wН&ЩО%E�О%EО#²НН$X�yН%ЕО#²�О#²Н&·wН)О#²�О#²О!ЖНН (�yН!╣О!Ж�О!ЖН"nwН$АО!Ж�О!ЖО NНН"▌Н&СОїНН+LН,▄ОЪНП!Н+РОXНН+LН,▄О╟НН`�НМОНН┬�yНО�ОНнwНAО�ООaНН!r О╧НП'ОНН#Y ОjН НT�yНRОj�ОjНЯwНRОj�ОjН╘Н"]yН$СОj�ОjН%╛wОjН*А�yН+▒Оj�ОjН,\wН1кОj�ОjН2|xОцНН?�Н╛yОНwОНҐyНpО�ОН)wОН6Н)█Н/ФН3ф yОtНwОtНd НuН"ЩН%rН*┬ yН0гОt�ОtН1│wН4eОt�ОtН4и�yО лНwН²О л�О л��ї��TVm$Є��4};Read:PUBLICPROC[fileName:LONGSTRING,name,password:LONGSTRING,action:PROC[Stream.Handle]]={MyRead[fileName,name,password,action!STP.Error=>TRUSTED{expl:LONGSTRING_[80];AppendRope[expl,error];ERRORError[expl:expl,retryable:Retryable[code]]};];};MyRead:PROC[fileName:LONGSTRING,name,password:LONGSTRING,action:PROC[Stream.Handle]]={server:LONGSTRING_[80];rest:LONGSTRING_[80];stp:STP.Handle_STP.Create[];open:BOOL_FALSE;stream:Stream.Handle;BEGINENABLEUNWIND=>{IFopenTHENstp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.DestroyIFstream#NILTHEN{stream.Delete;stream_NIL};};ParseName[fileName,server,rest];[]_stp.Open[Rs[server]];open_TRUE;stp.Login[Rs[name],Rs[password]];stream_Stream.FromIOStreams[stp.CreateRemoteStream[Rs[rest],read],NIL];action[stream];stp.Close[!STP.Error=>TRUSTED{CONTINUE}];stp_stp.Destroy;stream.Delete;stream_NILEND;};PeachLogCommand:Commander.CommandProc=TRUSTED{out_cmd.out;PDQueue.RegisterTTY[WriteLine];[]_PDQueue.SetLogState[TRUE];};out:IO.STREAM_NIL;WriteLine:PROC[line:LONGSTRING]~{out.PutRope[Rs[line]];out.PutRope["\n"];};Commander.Register["PeachLog",PeachLogCommand,""];��qОg/НEи�wО_,НuО[щНСwНВО[щ�О[щyНУО[щ�О[щН°О[щНґwО[щНT yН$1О[щ�О[щН$КО[щН("wН,▐О[щ�О[щН-kН1┐yН7ЗО[щ�О[щН8ЁО[щН;КwН@WО[щ�О[щОZ6НфyНXОZ6�ОZ6НЪwН{ОZ6�ОZ6НчН$ �Н%О�ОX▌ННАН"ЫН)OН-g�yОVГНwНОVГ�ОVГНmН!yНІОVГ�ОVГНowОVГН#є�ОU?Н'yНєОU?�ОU?Н]ОU?Н∙wОU?Н#├�Н%ОS≤Н'Н"ЮyОQПН'wОQПН╪ Н"мН&) Н,iОPIН'ОN║НОLЗНuОI╙НСwНЩОI╙�ОI╙yНШОI╙�ОI╙НёwОI╙Н╒ yН!ОI╙�ОI╙Н"8ОI╙Н%pwН)щОI╙�ОI╙Н*╧Н.яyН5HОI╙�ОI╙Н6ОI╙Н98wН=╔ОI╙�ОI╙ОHНфyНXОH�ОHНЪwН{ОH�ОHНчН$ �Н%О�ОF\НyН┼ОF\�ОF\НCОF\Н{wОF\Н l�Н!ЫОDЄНyНОDЄ�ОDЄНьОDЄНwОDЄН�Н █ОC НyН╪ОC �ОC Н[wН╪ОC �ОC ННС�yН─ОC �ОC НwН ─ОC �ОC Н ьОAeНyНПОAe�ОAeН╘wОAeН═�yН-ОAe�ОAeНФwНкОAe�ОAeО?ЎННН yО>НО>Н;О>Н`wО>Н"Н$ �}О<oНxО<oНф}НО<o�О<oНЎxО<oНо Н#О�}Н%О<o�О<oН%ЎxН'1О<o�О<oН'┴Н+=}Н-сО<o�О<oН.▄xО<oН3ю�}Н4pО<o�О<oН5;xН:єО<o�О<oН;UО:гНН?�Н╛ yО9НwО9НҐН-�yНО9�О9НШО9Н╒wО9Н#gН-:Н1╚�yН37О9�О9Н4 wН5CО9�О9Н5С�О7xНО5пНН"▌Н&СО4)НН`�НМО2│НН┬�yНО2│�О2│НнwНAО2│�О2│О0зНН!r О/2НН├�НП5Н>yО-▀НХwНТО-▀�О-▀НW�О+ДНО*<Н НT�yНRО*<�О*<НЯwНRО*<�О*<Н╘Н"]yН$СО*<�О*<Н%╛wО*<Н*А�yН+▒О*<�О*<Н,\wН1кО*<�О*<Н2|xО(■НН?�Н╛wО&МН О%EНН├�yНО%E�О%EНШО#·НwН²О#·�О#·О!ЖНuОїНСwНжОї�ОїНсН/�yН0ИОї�ОїН1╒wОїН6в�О�ННz�НОXНО╠ННO�НэyН#▒О╠�О╠Н$JwН&ҐО╠�О╠Н' �О НО╨НСyНБО╨�О╨НLwО╨НҐ�yНJО╨�О╨Н2wНUО╨�О╨uОНСwНО�ОyНО�ОН╙wОН╙yН=О�ОНЖОН#.wН'⌡О�ОН(┌�Н*�ОkНОдНОНО мНСН&Н2РЪ��S��TVm$3��5END.��qОg/НEи�yО^≈НСwН{О^≈�О^≈Ъ��TVm$��PDStrikeFormat.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.LastchangedbyDougWyatt,August23,19823:34pmLastchangedbyMichaelPlass,September19,19841:12:52pmPDTPDStrikeFormat:DEFINITIONS={Header:TYPE=MACHINEDEPENDENTRECORD[format(0):Format,min(1),max(2):CHARACTER,--minimum,maximumcharactercodesmaxwidth(3):CARDINAL--maximumspacingwidthofanycharacter];Flag:TYPE=MACHINEDEPENDENT{F(0),T(1)};Format:TYPE=MACHINEDEPENDENTRECORD[oneBit:Flag,--alwaysTindex:Flag,--Fforsimplestrike,Tforstrikeindexfixed:Flag,--Tifallcharactershavesamewidthkerned:Flag,--TifKerned,FifPlainunused:[0..7777B]--shouldbe0];BoundingBox:TYPE=MACHINEDEPENDENTRECORD[fbbox(0),fbboy(1):INTEGER,--boundingboxoffsetsfbbdx(2),fbbdy(3):INTEGER--boundingboxsize];Body:TYPE=MACHINEDEPENDENTRECORD[length(0):CARDINAL,--numberofwordsinstrikebodyascent(1),descent(2):INTEGER,--scanlinesaboveandbelowthebaselinexoffset(3):INTEGER,--always0(obsolete)raster(4):CARDINAL--numberofwordsperscanlineinthestrikefollowedbybitmap(raster*(ascent+descent)words)followedbyXTable(toendofbody)];WidthEntry:TYPE=MACHINEDEPENDENTRECORD[offset,width:[0..377B]];nullWidthEntry:WidthEntry=[377B,377B];XTable:TYPE=RECORD[SEQUENCECOMPUTEDCARDINALOFCARDINAL];WTable:TYPE=RECORD[SEQUENCECOMPUTEDCARDINALOFWidthEntry];PlainStrike:TYPE=MACHINEDEPENDENTRECORD[header:Header,--commontoallstrikefontsbody:Body];KernedStrike:TYPE=MACHINEDEPENDENTRECORD[header:Header,--commontoallstrikefontsbox:BoundingBox,--thefontboundingboxbody:Body--theactualstrike��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБНЧНEННтН!HН%ХН(%Н+kН.zОZ5НБНЧНEННaН"AН(щН+Н.`Н3IН5■wОVФНБyНЁОVФ�ОVФН≥ wОVФН!с�Н#╦�ОS≈НБyН;ОS≈�ОS≈НТwОS≈Нґ�yН▓ОS≈�ОS≈НёОS≈Н╦ОS≈Н'ewН,SОS≈�ОS≈ОQПНС Н▀ОPHНС yНbОPH�ОPHН-wН!÷ОPH�ОPHxН"|ОPH�ОPHН"У�Н#СН*SН0╟Н6⌡wОN║НСyНqОN║�ОN║Н<xОN║Н ,Н!ёН(Н,вН0┐Н2&Н4©wОLЫНСОI╙НБyН─ОI╙�ОI╙Н9wОI╙НР�yНвОI╙�ОI╙НХОI╙НЩwОI╙Н%╙�yН&ZОI╙�wОI╙Н'yН)⌠ОI╙�wОI╙Н*LОF[НБyНEОF[�ОF[НЧwОF[НІ�yН⌡ОF[�ОF[НґОF[НаОF[Н'nwН,\ОF[�ОF[ОDЄНСНрxНNОDЄ�ОDЄНх�НеН�wОCНСН7xНЄОC�ОCН.�Н+�Н▄НЄН!ДН%Ч�Н'jН)▓Н-TwОAeНСНЙxНgОAe�ОAeНЮ�Нч�НJН═Н⌡ Н% Н(1Н+⌡wО?ҐНСН xН├О?Ґ�О?ҐНЪ�НЩ�НiН©Н"м�Н$-Н%└wО>НСН6 xН┴О>�О>Н�Н�Н"FН$�wО<nНСО9НБyНО9�О9НҐwО9Нv�yН[О9�О9НlО9Н#│О9Н+.wН0О9�О9О7wНСНФyНЗО7w�О7wНcwН"9О7w�О7wxН#О7w�О7wН#▐�Н$█Н*pН-wО5пНСНЯyНО5п�О5пН{wО5пxН#YО5п�О5пН#с�Н$пН*ЁН-_wО4(НСО0ыНБyНЗО0ы�О0ыНЁwО0ыНk�yНPО0ы�О0ыНbО0ыНvО0ыН&#wН+О0ы�О0ыО/2НС yНIО/2�О/2НwН─О/2�О/2xН]О/2�О/2Нж�НтН$╧Н&\Н*1Н+вН/≥wО-┼НСyН∙О-┼�О-┼НЪwН"уО-┼�О-┼xН#╡О-┼�О-┼Н$+�Н%)Н*ъН.╙Н1NН5Н7dwО+ЦНС yН▀О+Ц�О+ЦНУwНкО+Ц�О+ЦxНїО+Ц�О+ЦН!�НН#x�Н$╛ wО*;НС yНзО*;�О*;Н╔xО*;Н√Н Н#РН%∙Н)jН+ЎН0ПН2√Н4БО(■НСН@НН≥Н+╟О&ЛНСН@ННБН�Н!▌Н#2wО%EНСО!ЖНБ yНРО!Ж�О!ЖН╚wО!ЖНc�yНHО!Ж�О!ЖНZО!ЖН"nО!ЖН*wН/ О!Ж�О!ЖН/mН7f О NНБНF Н э�Н"аОЪНБyНEОЪ�ОЪНЧwОЪНЇ�yН°ОЪ�ОЪНpwН┼ОЪ�yОЪНМОЪН%╠ОЪН,сОЪН3▌ОЪН5╗wН;ъОЪ�ОЪН<B�ОXНБyН²ОX�ОXНVwОXН�yНТОX�ОXНгwНБОX�yОXНEОXН& ОXН-+ОXН3ФwОXН6�ОНБyНaО�ОНwОНс�yН╦О�ОНйОН!чОН)▀wН.yО�ООaНСНСxН+Оa�ОaН╔�Н╒Н" Н#╡Н%ґН)owО╧НСНЙОНСОцНБyНшОц�ОцН■wОцНM�yН2Оц�ОцНCОцН#WОцН+wН/СОц�ОцОНСНСxН+О�ОН╔�Н╒Н" Н#╡Н%ґН)owОtНСН#xН%Оt�ОtН·�Н°Н ХН#╨Н)°wО лНСНЙxН┴О л�О лН�Н�НLН \Ъ��п��TVm$Ы��2followedbyWTable];}.��qОg/НEи�xО_,НСН@НwО]┘НСОZ6НБЪ��TVm$� ��PDTextBitmap.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September19,19849:12:44amPDTDIRECTORYPDInterpBitmap;PDTextBitmap:DEFINITIONS=BEGINSetFont:PROC[fontFileName:LONGSTRING,userName,password:LONGSTRING]RETURNS[ok:BOOLEAN];fontFileNameshouldbeafullfilenameofakernedstrike(ks)font;iffileisnotavalidksfile,okisfalse.MayraisePDRemoteStream.Error;Example:"[Indigo]<AltoFonts>TimesRoman18.ks"Warning:thismoduleisnotmonitored,soavoidchangingfontswhileothercallsarebeingmade.fontName:READONLYLONGSTRING;FontAscent:PROCRETURNS[INTEGER];FontDescent:PROCRETURNS[INTEGER];TextWidth:PROC[string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST]RETURNS[INTEGER];TextToBitmap:PROC[dest:PDInterpBitmap.BitmapDesc,string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST,function:PDInterpBitmap.Function];Putsthetextintothebitmap,assumingastrike-fontorientationofthecharacters(i.e.,thelineoftextrunsinthefastdirection).Thetextwillbeplacedsothefirstcharacterhasitsreferencepointattheoriginofthebitmap.Thetextwillbeclippedtothedestinationbounds.END.��xО_:НБО]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н чН$$Н) Н+WyОX²НБwОX²НKОUNНБyНлОUN�ОUNН╡ wОUNН Л�yН"яОUN�ОUNН#┼uОQЪНБwН╘ОQЪ�ОQЪyНїОQЪ�ОQЪНOwОQЪНN yН"ОQЪ�ОQЪН"ҐОQЪН%ТwН*aОQЪ�ОQЪН+>Н2&yН8²ОQЪ�ОQЪН9VОQЪН<▌wН@ШОQЪ�ОQЪyОPXН╣wОPXНаyН≤ОPX�ОPXНQwН8ОPX�ОPXН⌡�xОN╠НСНxНЎН█�Н бН#8Н%▄Н)0Н*т�Н,Н0|Н4?Н7Н:LН;╒Н=ВН?bОM Нф�НШНAННҐН╧Н$ОKbНСН"Н]ОI╩НСН П$ОHНСНН╞НeНяН"4 Н(ИН*╒Н.5Н4Н7YН:ЦН>cОFlНфНН╩wОCНБyНАОC�ОCН╣ОCНЩОCН НwН%ZОC�ОCuО?оНБ wН╟О?о�О?оyНґО?о�О?оНUО?оНUwО?оН `�yН цО?о�О?оН!-wН&О?о�О?оН&f�uО<─НБ wНvО<─�О<─yНsО<─�О<─НО<─НwО<─Н!&�yН!┴О<─�О<─Н!СwН&иО<─�О<─Н',�uО91НБwНYО91�О91yНVО91�О91НЧwО91НЩyН╟О91�О91НiО91Н"═wН' О91�О91Н'ЙyН+sО91�О91Н,[wО91Н.l�Н/ЫН1├yН69О91�О91Н7!wО91Н92�yН:©О91�О91Н;╗wН=4О91�yО91Н=▄wН@qО91�О91yО7┼Н╣wО7┼На�yН$О7┼�О7┼Н█wНdО7┼�О7┼Нг�uО4;НБwН╒О4;�О4;yН═О4;�О4;НHwО4;НGН Н2YyН6╘О4;�О4;Н7bО4;Н:≥wН?О4;�О4;О2■Н╣yН>О2■�О2■Н'wО2■Н7�НдНQyНО2■�О2■НМwО2■Н Ч�yН"┼О2■�О2■Н#swН%�О2■�yО2■Н%WwН(<О2■�О2■Н)Н/xО0МНСНН\Н#НИН5Н#Н(Н�Н*# Н0╛ Н7└Н9(Н;t О/EНфНйНН╨Н^Н$Н!,Н"рН%Н'І Н.═Н1cН4*Н6©Н8▐Н<ҐН>vО-·НфН∙Н─НЖНрН$▓Н( Н)ўН+ЗН/ХН1▄Н3ьН93Н;ЖН>ҐО+ВНфН√Н'НлН Н"ПyО(╗НБwНiО(╗�О(╗��TVm$Ё��PDTextBitmapImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September26,19845:33:47pmPDTDIRECTORYEnvironment,PDInterpBitmap,PDInterpSysCalls,PDTextBitmap,Stream,PDStrikeFormat,PDRemoteStream,Inline,String;PDTextBitmapImpl:PROGRAMIMPORTSPDInterpBitmap,PDInterpSysCalls,PDRemoteStream,Stream,Inline,StringEXPORTSPDTextBitmap=BEGINfontName:PUBLICLONGSTRING_[120];bc:CHAR=';ec:CHAR='~;charBitmap:ARRAYCHAR[bc..ec]OFPDInterpBitmap.BitmapDesc;charWidth:ARRAYCHAR[bc..ec]OFINTEGER;fontAscent:INTEGER_0;fontDescent:INTEGER_0;ksFontBuffer:LONGPOINTER_NIL;bytesPerWord:NAT=Environment.bytesPerWord;nilBitmap:PDInterpBitmap.BitmapDesc=[sOrigin:0,fOrigin:0,sMin:0,fMin:0,sSize:0,fSize:0,pointer:NIL,rast:0,lines:0];BadFont:ERROR=CODE;SetFont:PUBLICPROC[fontFileName:LONGSTRING,userName,password:LONGSTRING]RETURNS[ok:BOOLEAN_FALSE]={cr:LONGSTRING_[40];nameCopy:LONGSTRING_[120];NameCopy:PROCRETURNS[LONGSTRING]={String.Copy[nameCopy,fontFileName];RETURN[nameCopy]};bytes:INT_PDRemoteStream.Lookup[NameCopy[],cr,userName,password];newBuffer:LONGPOINTER_NIL;bytesRead:INT_0;readFile:PROC[stream:Stream.Handle]={bytesRead_Stream.GetBlock[stream,[blockPointer:newBuffer,startIndex:0,stopIndexPlusOne:bytes]].bytesTransferred;};IFksFontBuffer#NILTHEN{FORc:CHARIN[bc..ec]DOcharBitmap[c]_nilBitmap;charWidth[c]_0��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKНТН)╩Н5ОVГН╣НюНpН+Н/mОS≤НБyНєОS≤�ОS≤НLОQПНСwОQПНёН!jН,кН8oН=zОPIНфyОN║НСwОN║Н╣Н %�yН" ОN║�ОN║Н"дwОKRНБyНАОKR�ОKRН┴ОKRН≥ОKRН┼wОKRН#{�Н%ОI╚НБyНAОI╚�ОI╚НwОI╚Н�Н�НЮ�ОHНБyН ОH�ОHНКwОHНЩ�НБОF\НБ yН╩ОF\�ОF\Н▌ОF\НawН╨ОF\�ОF\НyН#UОF\�ОF\Н$2�wОF\Н%oОDЄНБ yН,ОDЄ�ОDЄНЪОDЄНрwН+ОDЄ�ОDЄН▌yН"фОDЄ�ОDЄН#ё�ОDЄН$ЮwН* ОDЄ�ОDЄОC НБ yНLОC �ОC НІwОC Н�Н²ОAeНБyНОAe�ОAeНrwОAeНм�НYО?ЎНБyНбО?Ў�О?ЎН{О?ЎНЁwО?ЎН!T�yН"АО?Ў�О?ЎН#иwН$ЛО?Ў�О?ЎО>НБyНRО>�О>Н;wО>НL�Н1О<oНБ Н╪Н'І�Н)⌡�О:гНСНJО9НСН?О7xНСНУО5пНСНЙО4)НСНъО2│НСНтО0зНСyН5О0з�О0зНwНAО0з�О0зО/2НСНО-▀НСНї�О+ЦНСО(■НБyНО(■�О(■НеwО(■Н║�yН├О(■�О(■НQwНмО(■�О(■uО%EНБwН╘О%E�О%EyНїО%E�О%EНOО%EН_wО%EН yН&╪О%E�О%EН'uО%EН*ґwН/О%E�О%EН/ЖН6ъyН=VО%E�О%EН>О#·Н╣wН"О#·�О#·yН О#·�О#·НщwО#·НyНЛО#·�О#·Н╔wО#·Н$�yН%·О#·�О#·Н&WwН)<О#·�О#·Н*#�Н,�О!ЖНСyНО!Ж�О!ЖНиО!ЖНwО!ЖНР�НО OНСyН\О O�О OНО OНMwО OН!>�Н"кuОїНСwНtОї�ОїyНrОї�ОїНОїНwОїН"%�yН"┬Ої�ОїН#AОїН&xwН*ЕОї�ОїН+м�Н-╡�О�НН!л yОXНwОXНq О╠НО НСyНО �О НkwО Н░�НП!Н1╠Н3╛Н:∙ ОbНС yН%Оb�ОbНъОbНwОbН!Ї�yН#DОb�ОbН$,wН%OОb�ОbО╨НС yНО╨�О╨Н┘wО╨Н╚�Н8ОНСyНзО�ОН┌wНЩО�ОН`НJ Н)�Н*Ь�ОkННЁ�Н@Н*▄ Н3x Н:┴ ОдНвНdН!>ОНyОuНСwОuН Н�yНФОu�ОuНоОuНvwОuН#<�yО мНwО мНРyН▀О м�О мНVО мНgwО мН>yН!зО м�О мН"ю�wО мН$ Н,А�Н.n Н5HН=y�Н?�Ъ��'��TVm$D��2ENDLOOP;PDInterpSysCalls.FreeSpace[ksFontBuffer];fontAscent_fontDescent_0;ksFontBuffer_NIL};fontName.length_0;newBuffer_PDInterpSysCalls.AllocateSpace[(bytes+bytesPerWord-1)/bytesPerWord];PDRemoteStream.Read[fontFileName,userName,password,readFile];IFbytesRead#bytesTHEN{PDInterpSysCalls.FreeSpace[newBuffer];RETURN[FALSE]};ok_TRUE;ParseFont[fontFileName,newBuffer,bytes!BadFont=>{ok_FALSE;CONTINUE};];IFokTHEN{ksFontBuffer_newBuffer;}ELSE{FORc:CHARIN[bc..ec]DOcharBitmap[c]_nilBitmap;charWidth[c]_0ENDLOOP;PDInterpSysCalls.FreeSpace[newBuffer];fontAscent_fontDescent_0;String.Copy[to:fontName,from:fontFileName];};};ParseFont:PUBLICPROC[fontFileName:LONGSTRING,buffer:LONGPOINTER,bytes:INT]={wordIndex:INT_0;ReadBlock:PROC[dest:LONGPOINTER,words:CARDINAL,wordOffset:INT_-1]={IFwordOffset>=0THENwordIndex_wordOffset;Inline.LongCOPY[from:buffer+wordIndex,nwords:words,to:dest];wordIndex_wordIndex+words;};strike:PDInterpBitmap.BitmapDesc_nilBitmap;defaultCharBitmap:PDInterpBitmap.BitmapDesc_nilBitmap;defaultCharWidth:INTEGER_0;header:PDStrikeFormat.Header;ReadBlock[@header,SIZE[PDStrikeFormat.Header],0];IFheader.format.oneBit#TTHENERRORBadFont;IFheader.format.index#FTHENERRORBadFont;IFheader.format.unused#0THENERRORBadFont;IFheader.format.kerned=TTHEN{boundingBox:PDStrikeFormat.BoundingBox;body:PDStrikeFormat.Body;xInSegment,prevXInSegment:CARDINAL;xInSegmentOffset:INT;widthEntryOffset:INT;��qОg/НEи�yО_eНвwНxО_e�О_eО]ЎНП)О\Н НУ�Н┌ Н#/�Н$╪ОZnННk�yНЬОZn�ОZnНАwОXгНОWНСН├�НОUxНСН╛�ОSпНфПDОR)НСП!Н(аН/╙Н5Ъ yОP│НСwОP│Н НI�Н.yНцОP│�ОP│Н|wОP│Н"┬�ОNзНП&yОM2НwОM2Нq�yНтОM2�ОM2Н█wНrОM2�ОM2ОK┼НОIЦНСНН�yН{ОIЦ�ОIЦН4wНїОIЦ�ОIЦОH;НСН └ Н'√xОF■Н�Н#НЇНMНЫ�}Н fОF■�ОF■Н!xН$ОF■�ОF■}Н%ОF■�ОF■Н%ъxН+HОF■�ОF■Н+Ы�wОDЛНyОCDНСwОCDН yН∙ОCD�ОCDНOwОCDН[�ОA²ННk�НЬ О?УН�yО>NНСwО>NНB�yО<іНwО<іНРyН▀О<і�О<іНVО<іНgwО<іН>yН!зО<і�О<іН"ю�wО<іН$ Н,А�Н.n Н5HН=y�Н?�yО:ЪНвwНxО:Ъ�О:ЪО9WНП&О7╟Н НУ�Н┌ Н#/�Н$╪О6НН╚Н#┴Н'i О4`НО2╧НСuО/jНБwНЪО/j�О/jyНЩО/j�О/jНєО/jН╣wО/jН\ yН(О/j�О/jН(кО/jН,wН0oО/j�О/jН1KyН5СО/j�О/jН6ґО/jН9ДwН?О/j�О/jО-бН╣yНбО-б�О-бН,wНнО-б�О-бН╣�Н �О,НС yН]О,�О,НгwО,НМ�НyuО*sНСwНiО*s�О*syНgО*s�О*sНwО*sНyНнО*s�О*sН ┬О*sН#©wН(эО*s�О*sН)╦yН.>О*s�О*sН/ wН4uО*s�О*sН5R yН<РО*s�О*sН=\wО*sН?┌�О(лНфНв�Н╪�yО'$НwО'$Н╛ НсНh�yН²О'$�О'$Н VwО'$Н#bН*S�Н+Ю О%}НН"!Н.uН3бН8'Н:NО#уННУ�Н│Н"r�Н$WО"-НО ├НСН,Н'&�Н(Ё ОчНСНSН/L�Н0ы О7НСyНдО7�О7Н.wО7Н"┬�Н$О▐НСНСОГНСyН ОГ�ОГН╛wН ┬ОГ�ОГН КН0╡yО@НСwО@Н Н╗�yН!█О@�wО@yН"йО@�О@Н#└О@Н&░wО@Н+&yО≤НСwО≤Н Н�yН СО≤�wО≤yН"0О≤�О≤Н"ИО≤Н%ЖwО≤Н*▀yОЯНСwОЯН Н �Н!Р�yН#&ОЯ�ОЯН#ъОЯН&ЛwОЯН+│yОIНСwОIН Нъ�yН!дОI�wОIyН#ОI�ОIН#╩wОIН&г�О║ННОЗННЭОRН НЧyН&ОR�ОRН&эwН,HОR�ОRО╚НyНҐО╚�О╚Н'wН иО╚�О╚ОНyНPО�ОН╨wН [О�О��w��TVm$��3widthEntry:PDStrikeFormat.WidthEntry;bodyOffset:INT;ReadBlock[@boundingBox,SIZE[PDStrikeFormat.BoundingBox]];bodyOffset_wordIndex;ReadBlock[@body,SIZE[PDStrikeFormat.Body]];fontAscent_body.ascent;fontDescent_body.descent;strike_[sOrigin:-body.ascent,fOrigin:0,sMin:0,fMin:0,sSize:body.ascent+body.descent,fSize:body.raster*Environment.bitsPerWord,pointer:buffer+wordIndex,rast:body.raster,lines:body.ascent+body.descent];wordIndex_wordIndex+strike.rast*strike.lines;widthEntryOffset_wordIndex+(header.max-header.min+3)*SIZE[CARDINAL];IFwidthEntryOffset#bodyOffset+body.lengthTHENERRORBadFont;ReadBlock[@prevXInSegment,SIZE[CARDINAL]];xInSegmentOffset_wordIndex;FORchar:CHARIN[header.min..header.max]DOcharPixels:PDInterpBitmap.BitmapDesc_strike;ReadBlock[@xInSegment,SIZE[CARDINAL],xInSegmentOffset];xInSegmentOffset_xInSegmentOffset+SIZE[CARDINAL];ReadBlock[@widthEntry,SIZE[PDStrikeFormat.WidthEntry],widthEntryOffset];widthEntryOffset_widthEntryOffset+SIZE[PDStrikeFormat.WidthEntry];IFwidthEntry#PDStrikeFormat.nullWidthEntryTHEN{IFwidthEntry.width>header.maxwidthTHENERRORBadFont;charPixels.fOrigin_widthEntry.offset+boundingBox.fbbox-prevXInSegment;charPixels.fMin_prevXInSegment;charPixels.fSize_xInSegment-prevXInSegment;IFcharIN[bc..ec]THEN{charBitmap[char]_charPixels;charWidth[char]_widthEntry.width;};};prevXInSegment_xInSegment;ENDLOOP;ReadBlock[@xInSegment,SIZE[CARDINAL],xInSegmentOffset];xInSegmentOffset_xInSegmentOffset+SIZE[CARDINAL];ReadBlock[@widthEntry,SIZE[PDStrikeFormat.WidthEntry],widthEntryOffset];widthEntryOffset_widthEntryOffset+SIZE[PDStrikeFormat.WidthEntry];IFwidthEntry#PDStrikeFormat.nullWidthEntryTHEN{strike.fOrigin_widthEntry.offset+boundingBox.fbbox-prevXInSegment;��qОg/НEи�wО_,Н Н╠О]┘Н yН О]┘�О]┘НwНіО]┘�О]┘О[щНyН$ О[щ�О[щН$©wН&⌡О[щ�О[щН&ЧОZ5Н Н!�Нў ОX▌НyНОX▌�ОX▌НЄwН!▒ОX▌�ОX▌Н!ТОVФН НУ�Н┌ОU?Н Н╠�Н>ОS≈ННд�НQ�ОQПННmОPHННbОN║ННОLЫННОKRННОI╙ННЖП$ОHННXОF[НН0ОDЄННйОCНОAeННУ�Н│Н"r�Н$WО?ҐННж�О>НвП$yН-YО>�О>Н-ЬwН/тО>�yО>Н07wН6nО>�О>Н6я�yО<nНwО<nН╛Н~�Н!c Н(�Н*d yН1ОО<n�О<nН2╗О<nН5╣wО<nН:JО:гНyН&2О:г�О:гН&яwН(ґО:г�yО:гН)wН/GО:г�О:гН/╙О9ННD�Ня yО7xНwО7xНРyН{О7x�О7xНFО7xНXwО7xН/yН.╟О7x�О7xН/∙�wО5пН НН. �Н/≈О4)НyН%IО4)�О4)Н%ИwН'еО4)�yО4)Н((wН._О4)�О4)Н.б�Н/·О2│НН U�Н!БН-"�yН/О2│�О2│Н/іwН1┌О2│�yО2│Н1ЕwН8О2│�О2│Н8�О0зНyН$эО0з�О0зН%{wН'WО0з�О0зН'╨О/2НХО-▀ННХ�Н!tН,F�yО+ДНХwНdО+Д�О+ДНгyО*<НwО*<НҐ НП�НуyН3ЙО*<�О*<Н4єwО*<Н7╟�yО(∙Н'wО(∙НнН#І�Н$КyН/іО(∙�О(∙Н0_О(∙Н3lwО(∙Н8О&МН'Н"N�О%FНЗП3О#·Н'Н Ы�Н"├О!ВН'Н Ц�Н"pyО OН'wО OНнyНчО O�О OНH�wО OНЄyН"PО O�О OН# wО OН&�О╗Н8Н#И�Н%v О�Н8Н#Z�Н$ГОYН8О╠Н'О Н Н╟�Н!= yОbНwНЇОb�ОbО╨НyН#8О╨�О╨Н#вwН%ЄО╨�yО╨Н&wН,NО╨�О╨Н,╠�Н-█ОННD�НяН+�yН,ЖО�ОН-∙wН/qО�yОН/тwН6О�ОН6n�ОkНyН"кОk�ОkН#jwН%FОk�ОkН%╘ОдНвОННж�НcН*5�yН,О�ОН,╧wН.√О�ОН.ЫyОuНwОuН╛ Нъ�НдyН1ыОu�ОuН2▓wОuН5÷�О нН Н{�НП3Ъ��╘��TVm$╧��4strike.fMin_prevXInSegment;strike.fSize_xInSegment-prevXInSegment;defaultCharBitmap_strike;defaultCharWidth_widthEntry.width;}ELSEERRORBadFont;}ELSEERRORBadFont;FORchar:CHARIN[bc..ec]DOIFcharBitmap[char].pointer=NILTHEN{charBitmap[char]_defaultCharBitmap;charWidth[char]_defaultCharWidth;};ENDLOOP;IFwordIndex*bytesPerWord#bytesTHENERRORBadFont;};FontAscent:PUBLICPROCRETURNS[INTEGER]={RETURN[fontAscent]};FontDescent:PUBLICPROCRETURNS[INTEGER]={RETURN[fontDescent]};TextWidth:PUBLICPROC[string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST]RETURNS[textWidth:INTEGER]={textWidth_0;FORi:NATIN[start..start+length)DOIFi>=string.lengthTHENEXITELSE{char:CHAR_string[i];IFcharIN[bc..ec]THENtextWidth_textWidth+charWidth[char];};ENDLOOP;};TextToBitmap:PUBLICPROC[dest:PDInterpBitmap.BitmapDesc,string:LONGSTRING,start:NAT_0,length:NAT_NAT.LAST,function:PDInterpBitmap.Function]={w:INTEGER_0;FORi:NATIN[start..start+length)DOIFi>=string.lengthTHENEXITELSE{char:CHAR_string[i];IFcharIN[bc..ec]THEN{bitmap:PDInterpBitmap.BitmapDesc_charBitmap[char];bitmap.fOrigin_bitmap.fOrigin+w;PDInterpBitmap.Transfer[dest,bitmap,function];w_w+charWidth[char];};};ENDLOOP;};END.��qОg/НEи�wО_,Н Н%�Н╡О]└НН�Н°О[щНН Э�Н"┴ОZ5НН m�Н!ЗОX▌Н�yОVФНОVФНSwОVФНИОU>Н�yОS≈НСОS≈НBwОS≈НьyОQОНСwОQОНАyНjОQО�ОQОН5ОQОНGwОQОНyН!╧ОQО�ОQОН"÷�ОPHНwОPHН╛Н#Ы�yН%чОPH�ОPHН&фОPHН(nwОPHН,3�ОN═ННг�Н!TОLЫНН8�Н еОKQНyОI╘НwН╔ОI╘�ОI╘yОHНСwОHН Н"ў�Н$⌠yН('ОH�ОHН(ЮОHН+ЛwОHН0┌ОFZНСuОCНБ wН╟ОC�ОCyНґОC�ОCНUОCНfОCН wОCН%�yН%|ОC�ОCН%ФwН*╪ОC�ОCН+ё�Н-┬�yН.9ОC�ОCН/wОCН3╔ uО?╪НБ wНvО?╪�О?╪yНsО?╪�О?╪НО?╪Н,О?╪НсwО?╪Н%ч�yН&BО?╪�О?╪Н&╚wН+┌О?╪�О?╪Н,i�Н.N�yН.ЧО?╪�О?╪Н/рwО?╪Н4kuО<mНБwНYО<m�О<myНVО<m�О<mНЧО<mНwО<mНІyН#hО<m�О<mН$!О<mН'YwН+еО<m�О<mН,╒yН0+О<m�О<mН1wО<mН3%�Н4╠Н6>yН:ЯО<m�О<mН;зwО<mН=К�yО:еН╣wН*О:е�yО:еН│wНfО:е�О:еyНNО:е�О:еН"wО:еНY yН#ўО:е�О:еН$wН(НО:е�О:еН)у�Н+╩�О9НСНk�НЬyО7vНСwО7vНАyНBО7v�О7vН*О7vН;wО7vНyН&OО7v�О7vН'5�О5оНwО5оН╛�Н⌠Н(yН О5о�О5оН дО5оН#пО4'НwО4'НS�О2НyН÷О2�О2НjwО2Н|�Н yО0ьНwО0ьНҐyНмО0ь�О0ьН6�wО0ьНёyН ?О0ь�О0ьН ЬwО0ьН$Н*}�Н, Н2┌�Н4gО/0НyО-┴НwН╔О-┴�О-┴О+АНСuО(▓НБwН╒О(▓�О(▓yН═О(▓�О(▓НHО(▓НYwО(▓Н!�Н$юН7yН;aО(▓�О(▓Н<О&ЙН╣wН"О&Й�О&ЙНЧyН┤О&Й�О&ЙНpwО&ЙН│�НН⌡yН#NО&Й�О&ЙН$6wО&ЙН&G�yН'тО&Й�О&ЙН(╪wН*IО&Й�yО&ЙН*═wН-┘О&Й�О&ЙН.bО%CН╣Н B�Н"'�О#⌡НСyННО#⌡�О#⌡НXwО#⌡НЁ�Н@yО!ТНСwО!ТНАyНBО!Т�О!ТН*О!ТН;wО!ТНyН&OО!Т�О!ТН'5�О LНwО LН╛�Н⌠Н(yН О L�О LН дО LН#пО╔НwО╔НS�ОЩНyН÷ОЩ�ОЩНjwОЩН|�Н yОVНwОVНҐyНмОV�ОVН6�wОVНёyН ?ОV�ОVН ЬwОVН$�ОўН'НSН.M�Н/зОН' Н ─�Н" Н+f�Н-KО_Н'Н*Н/ ОЇН'�Н╘�Н5�НЇ�Н°ОН'ОhНyОюНwН╔Ою�ОюОНСyО йНБwНiО й�О й��┌��TVm$[��PDUser.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September4,19841:58:46pmPDTDIRECTORYStreamUSING[Handle];PDUser:DEFINITIONS=BEGINThismoduleprovidesachat-styleuserinterfacetothepeachprinter.Normallyoneinstanceofthiswillberunningontheprinter'stty,andaninstancewillexistforeachopenChatconnection.Thismodule,however,doesnotcreateanyinstances.TalkWithUser:PROC[stream:Stream.Handle];Exitswhenuserquitsortheconnectionisbroken.Assumesabi-directionalstream.END.��xО_:НБ О]⌠НБН/НєНBНZН'еН* Н-зО[КНБН$НН═Н -Н#sН(\Н*їyОX²НБwОX²НKyНЧОX²�ОX²НЦwОX²НGОUNНБyН²ОUN�ОUNН┐ wОUNНҐ�yН╒ОUN�ОUNН[xОSїНСНН╧НП�Н$ Н%2Н(Н-║Н/FН1▓Н5iН:╟ОQЪНфНTН⌠Н7НоН dН"4Н'HН);Н+┤Н0нН30Н5тН7гН=ОPXНфНН,НSН▒Н П Н(▒Н+║Н0╞Н65Н99Н;²ОN╠НфН_ uОKbНСwН{ОKb�ОKbyНyОKb�ОKbН wОKbН Н#mxОI╩НН ННН JН"Н$O Н+Н,ОHНН│�Н╣ Н!ЙyОDеНСwН{ОDе�ОDеЪ��Ю��TVm$�Т��PDUserImpl.mesaCopyright(C)1984,XeroxCorporation.Allrightsreserved.MichaelPlass,September27,19849:33:14amPDTDIRECTORYPDQueue,PDUser,Process,Stream,Time,PDRemoteStream,NameInfoDefs,String;PDUserImpl:PROGRAMIMPORTSPDQueue,Process,Stream,Time,PDRemoteStream,NameInfoDefs,StringEXPORTSPDUser=BEGINhelloMsg:LONGSTRING_"PeachPDPrintServer";CommandCode:TYPE={login,cancel,check,help,listQueue,messages,print,reprint,resetQueue,setLoginMessage,start,stop,wait,quit,ambiguous,illegal};commandTable:ARRAYCommandCode[login..quit]OFLONGSTRING_[login:"Login",cancel:"Cancel",check:"Check",help:"Help",listQueue:"ListQueue",messages:"Messages",print:"Print",reprint:"Reprint",resetQueue:"ResetQueue",setLoginMessage:"SetLoginMessage",start:"Start",stop:"Stop",wait:"Wait",quit:"Quit"];Upper:PROC[ch:CHAR]RETURNS[CHAR]=INLINE{RETURN[IFchIN['a..'z]THENch-('a-'A)ELSEch]};defaultRegistry:LONGSTRING_".pa"L;loginMessage:LONGSTRING_[160];TalkWithUser:PUBLICPROC[stream:Stream.Handle]={ENABLEStream.EndOfStream,Stream.TimeOut=>GOTOQuit;command:LONGSTRING_[80];user:LONGSTRING_[80];password:LONGSTRING_[80];account:LONGSTRING_[80];loggedIn:BOOLEAN_FALSE;quitting:BOOLEAN_FALSE;��xО_,НБО]└НБН/НєНBНZН'еН* Н-зО[щНБН$НН═Н чН$$Н) Н+WyОX▌НБwОX▌НKНН"·Н'уН,ЮН0жОVГН╣НkОS≤НБ yНuОS≤�ОS≤НОQПНСwОQПНёН]Н"⌠Н'·Н+∙Н78ОPIНфyОN║НСwОN║Н╣ОLЗНС�yНьОLЗ�ОLЗН▒wОI╚НСyНiОI╚�ОI╚Н"ОI╚НZwОI╚Н K�Н!ьН&▀Н)�Н,sОF\НСyНVОF\�ОF\НwОF\Нг�Н ╛Н%2Н)╧Н-СН1f Н7ХН>ОDЄНфН╟ Н;Н),Н,■Н/ФН38Н6t ОC НфО?ЎНСyН*О?Ў�О?ЎНЩwО?ЎНпyН0┤О?Ў�О?ЎН1d�О?ЎН2║О?ЎН6▓wО?ЎН;┐�Н=�О>ННШО<oНН╛О:гНН_О9 НН≤О7xН Н╗О5яННY О4)ННФО2┌НН О0зН Н╠О/3ННО-▀НН▌О+ДННwО*<ННwО(∙ННbО&МНuО#·НСwН▒О#·�О#·yН▐О#·�О#·Н6wО#·Н6yНЫО#·�О#·НдwНQО#·�О#·yН 9О#·�О#·Н! wО#·Н&D�yН&їО#·�О#·Н'rwН*�О#·�О#·Н*Г�yН,лО#·�О#·Н-6wО#·Н1h�yО!ВНwО!ВНq�yНтО!В�О!ВН>�wО!ВН{yНaО!В�О!ВНк�wО!ВН8yН""О!В�О!ВН"шwО!ВН%ГН'м�Н(кН*ф�Н+дyН."О!В�О!ВН.шwО!ВН1qО OНО�НСyНЪО��О�Н╦О�НОwО�Н#Ю�Н%mО╠НСyНИО╠�О╠Н╒О╠НыwО╠Н"й�Н$WuОbНСwН{Оb�ОbyНyОb�ОbН ОbН1wОbН"ьН(% Н1Н�Н3с�yО╨НwО╨Н)Н%╪ Н0*yН2©О╨�О╨Н3ґwО╨Н6єОНyНъО�ОН≤ОНоwОН"ю�Н$MОkНyНwОk�ОkН0ОkНhwОkНY�Н ФОдНyН{Од�ОдН4ОдНlwОдН"]�Н#ЙОНyН∙О�ОНNОН┘wОН!w�Н#ОuНyН9Оu�ОuНРwОuН]�yН ЙОu�ОuН!ёwН$┬Оu�ОuО мНyН╚О м�О мНdwО мНо�yН \О м�О мН!wН#ЗО м�О м��└��TVm$╠��2accessAllowed:BOOLEAN_TRUE;echo:BOOLEAN_TRUE;flushed:BOOLEAN_FALSE;commandCode:CommandCode;lastRequest:INT_-1;PutChar:PROC[char:CHAR]={Stream.PutChar[stream,char];flushed_FALSE;};PutString:PROC[string:LONGSTRING]={Stream.PutString[stream,string];flushed_FALSE;};PutLine:PROC={PutChar['\n];PutChar['\012];};PutOK:PROC={PutLine[];PutChar['o];PutChar['k];PutLine[];};PutXXX:PROC={PutChar['];PutChar['X];PutChar['X];PutChar['X];PutLine[];};sep:CHAR_';DelHit:ERROR=CODE;SendNow:PROC={Stream.SendNow[stream];flushed_TRUE};GetChar:PROCRETURNS[CHAR]={c:CHAR;ignore:INT_0;IFNOTflushedTHENSendNow[];WHILEignore>=0DOmark:NAT_0;timingMark:NAT=5;timingMarkReply:NAT=6;dataMark:NAT=1;c_Stream.GetChar[stream!Stream.SSTChange=>{mark_sst;CONTINUE};];SELECTmarkFROM0=>NULL;dataMark=>{ignore_1};timingMark=>{ignore_1;Stream.SetSST[stream,timingMarkReply]};ENDCASE=>ignore_2;ignore_ignore-1;��qОg/НEи�wО_,Н yНО_,�О_,Н8wО_,Н"є�yН$0О_,�О_,Н$ЙwН'\О_,�О_,О]┘НyНеО]┘�О]┘Н~wО]┘НИ�yНvО]┘�О]┘Н/wН!╒О]┘�О]┘О[щНyН]О[щ�О[щНwО[щН┌�yН О[щ�О[щН хwН#╛О[щ�О[щОZ5ННОX▌НyНрОX▌�ОX▌Н<wОX▌Нb�НОuОVФНwНОVФ�ОVФyНОVФ�ОVФН╘wОVФН╗yН ∙ОVФ�ОVФН!`wН#МОVФ�ОVФН$у�Н&╨�ОU?НН#ҐОS≈ННУ�yН┌ОS≈�ОS≈Н;wН ОS≈�ОS≈ОQПНuОPHНwНиОPH�ОPHyНгОPH�ОPHНnwОPHНnyН" ОPH�ОPHН"ыОPHН&wН*~ОPH�ОPHН+e�Н-J�ОN║НН$cОLЫННУ�yН┌ОLЫ�ОLЫН;wН ОLЫ�ОLЫОKRНuОI╙НwНкОI╙�ОI╙yНиОI╙�ОI╙НqwОI╙Нp�НU�ОHНОF[НОDЄНuОCНwН?ОC�ОCyН=ОC�ОCНДwОCНД�Ни�ОAeН О?ҐНО>НО<nН О:гНuО9НwНО9�О9yНО9�О9Н©wО9НЎ�Нё�О7xННKО5пНО4)НО2│НО0зН О/2НО-▀НyНСО-▀�О-▀НЎwО-▀Нп�Н\�Н9�О+ЦНyНО+Ц�О+ЦНуwО+ЦН╠�yН√О+Ц�О+ЦНawН!эО+Ц�О+ЦuО*<НwН╗О*<�О*<yНіО*<�О*<НMwО*<НM�Н2Н/НН4м�yН6ZО*<�О*<Н7wН9├О*<�О*<Н:6�uО(■НwНО(■�О(■yНО(■�О(■Н©О(■Н©wО(■Н"й�yН#-О(■�О(■Н#ЬwН&├О(■�О(■Н'm�Н)R�О&ЛНyНўО&Л�О&ЛНywНО&Л�О&ЛО%EНyНрО%E�О%EН<wО%EНb�НОyО#²НО#²НҐwО#²Н©yН÷О#²�О#²НXwО#²Н"d yО!ЖНwО!ЖНvН╨Н O�yН!└О!Ж�О!ЖН"j�wО NН'yН3О N�О NНwО NН,�Н╧ОїН' yН5Ої�ОїН wОїН".�Н$ОЪН'yН"ЎОЪ�ОЪН#іwОЪН%Ї�Н'°ОXН'yНЮОX�ОXНхwОXН ы�Н"ЎО╟Н'�НF�НсО Н8�Н5Н&<Н(яН-�Н.╒yН1О �О Н1БwН7QО �О Н8�ОaН8yО╨Н'wО╨НЗyН█О╨�О╨Н FwОН8�НmyНО�ОНКwН BО�ООkН8НxН" Н'�Н(▌ОцН8 Н мН#bН(V�Н)ЦН+▒ОНyОtН8wОtН:Н!пН&�Н'═О мН'Нj�НВН!;�Н"8Ъ��i��TVm$ ��3ENDLOOP;IFc='\177THEN{PutXXX[];ERRORDelHit};RETURN[c]};GetStringToSpace:PROC[string:LONGSTRING,stopper1:CHAR_',stopper2:CHAR_']={c:CHAR_GetChar[];dashCount:NAT_0;inComment:BOOLEAN_FALSE;commentHit:BOOLEAN_FALSE;string.length_0;UNTILstring.length=string.maxlengthOR(NOTinCommentAND(c=stopper1ORc=stopper2))ORc='\nDOIFc='H-100BORc='A-100BTHEN{IFcommentHitTHEN{PutXXX[];ERRORDelHit};IFstring.length>0THEN{IFechoTHENPutChar[c];string.length_string.length-1;};}ELSEIFc='W-100BTHEN{IFcommentHitTHEN{PutXXX[];ERRORDelHit};WHILEstring.length>0DOIFechoTHENPutChar['H-100B];string.length_string.length-1;ENDLOOP;}ELSE{IFechoTHENPutChar[c];IFc='-THEN{commentHit_TRUE;dashCount_dashCount+1;IFdashCount=2THEN{inComment_NOTinComment;dashCount_0;};}ELSE{WHILEdashCount>0DOIFNOTinCommentTHEN{string[string.length]_'-;string.length_string.length+1;};dashCount_dashCount-1;ENDLOOP;IFNOTinCommentTHEN{string[string.length]_c;string.length_string.length+1;};};};��qОg/НEи�yО_eН'wНхО_e�О_eyО]ЎНwО]ЎНҐ�Нэ�НаyН_О]Ў�О]ЎНwО]ЎН!$ yН(╩О]Ў�О]ЎН)twО]ЎН-QyО\НwО\Н┌ОZnНuОXгНwНОXг�ОXгyНОXг�ОXгН╪wОXгН"╩yН'nОXг�ОXгН('ОXгН+^wН/кОXг�ОXгН0╗yН6╪ОXг�ОXгН7┤wОXгН:≥�Н<%�Н=�Н=чyНCРОXг�ОXгНDҐwОXгНGо�НI\�ОXгНKї�ОWНв�Н╪�ОUxНyНўОUx�ОUxНywОUxН▀�Н ОSпН yН─ОSп�ОSпНiwОSпНz�Н!ОR)Н yН$ОR)�ОR)НщwОR)Н#I�yН$жОR)�ОR)Н%▐wН(tОR)�ОR)ОP│Н yН┴ОP│�ОP│НCwОP│Н#ў�yН%;ОP│�ОP│Н%ТwН(ыОP│�ОP│ОNзННЬ�Н┘yОM2НwОM2НDН!&�Н#yОK┼НwОK┼НJ�yНдОK┼�ОK┼Н╛wОK┼НфyН"[ОK┼�ОK┼Н#/wОK┼Н%│ yН-▒ОK┼�ОK┼Н.m�wОK┼Н/фyОIЦНwОIЦНJyН≥ОIЦ�ОIЦН�ОH;Н'wОH;НнНNНJ�НHyН!еОH;�ОH;Н"║�wОH;Н#ЫН&yН(^�Н)\yН,ыОH;�ОH;Н-▓wОH;Н0·�yОF■Н8wОF■Нъ yН"зОF■�ОF■Н#⌠wОF■Н&÷ yН.5ОF■�ОF■Н.ОwОF■Н2кyОDЛН8wОDЛНъН"б�Н#Ж�yН%+ОDЛ�ОDЛН%ДwОDЛН(П�yОCDНIwОCDНПyН 7ОCD�ОCDН ПwОCDН#Щ ОA²НIН#,�Н$╦Н,⌡�Н-≥О?УНIО>NН8�yО<іН'Н[wО<іНН┌Н ю�Н!ҐyН%:О<і�О<іН%СwО<іН(Ъ�yО:ЧН8wО:ЧНъ yН"зО:Ч�О:ЧН#⌠wО:ЧН&÷ yН.5О:Ч�О:ЧН.ОwО:ЧН2кyО9WН8wО9WН≥Н%{�Н&╟�yН'ЕО9W�О9WН(й�О7╞НIwО7╞НПyН 7О7╞�О7╞Н ПwО7╞Н#Щ Н+R�Н,OО6НIН#,�Н$╦Н,⌡�Н-≥yО4`НIwН ЙО4`�О4`О2╧Н8�yО1Н'wО1Нv�yО/iН8wО/iНъyН&О/i�О/iНъwО/iН!К yО-бН8wО-бНъ�НЧ�НЦyН9О-б�О-бНРwО-бН"Ъ�О,НI Н#D�yН$пО,�О,Н%┼wН'ЭО,�О,О*sНIН":�Н#гН*╦�Н,·yО(кНIwО(кНПН#Б�Н%г�yН&ШО(к�О(кН'ЄwО(кН*а�О'#НZН$П�yН&|О'#�О'#Н'ewО'#Н) О%|НZН$K�Н%ьО#тНZО"-НI�yО ┘Н8wО ┘Н┤�yОщНIwОщН╙Н&⌡�Н'п�yН)Ощ�ОщН)Й�О6НZО6НwО6Н"yН)≥О6�О6Н*RwО6Н-_�О▌НkН+f�Н,СОГНkН'N�Н(шН0Ґ�Н2╒О?НkО≤НZН$K�Н%ьН,й�Н-гyОПНZwН"ШОП�ОПyОHНIОHНПwОHНСyН'┬ОH�ОHН(AwОHН+M�О║НZН)U�Н*АОЫНZН%=�Н&йН.╛�Н0▒ОRНZО╙НIОН8Ъ��╞��TVm$^��4c_GetChar[];ENDLOOP;IFstring.length<=string.maxlengthTHENsep_cELSEsep_';IFstring.length=0ANDsep#'\nTHEN{PutChar[sep];GetStringToSpace[string,stopper1,stopper2];};};GetStringToCR:PROC[string:LONGSTRING]={GetStringToSpace[string,'\n,'\n];};GetNumber:PROC[default:INT_1]RETURNS[value:INT_0]={string:LONGSTRING_[80];GetStringToSpace[string];FORi:NATIN[0..string.length)DOc:CHAR_string[i];IFcIN['0..'9]THEN{value_value*10+(c-'0)}ELSE{PutString["Notanumber!"];PutLine[];ERRORDelHit};ENDLOOP;IFstring.length=0THENvalue_default;};PutNumber:PROC[value:INT,w:INTEGER_4]={IFvalue<0THEN{PutChar['-];value_-value;w_w-1};IFvalue>=10THEN{PutNumber[value/10,w-1];value_valueMOD10;w_1};WHILEw>1DOPutChar['];w_w-1;ENDLOOP;PutChar['0+value];};Confirm:PROCRETURNS[yes:BOOLEAN]={response:LONGSTRING_[10];GetStringToSpace[response];IFString.Compare[response,"Yes",FALSE]=0THEN{RETURN[TRUE]}ELSEIFresponse.length=0ORUpper[response[0]]#'NTHEN{PutLine[];PutString["Sorry,youmustsayYesinjusttherightway."];PutLine[];RETURN[FALSE]}ELSEPutXXX[]};GetCommand:PROC={nMatches:NAT_0;matchLength:NAT_0;commandCode_illegal;PutString[">>"];GetStringToSpace[command];IFcommand.length=0THEN{PutLine[];GetCommand[]}��qОg/НEи�wО_,Н'�НF�Нс yО]┘Н'wНхО]┘�О]┘yО[щНwО[щНҐН÷Н!5yН+≈О[щ�О[щН,PwО[щН/\Н1я�Н3^�yН4}О[щ�О[щН57wО[щН7лН:A�Н;н�Н<╚�yОZ5НwОZ5НҐН÷�Н └�yН!╧ОZ5�ОZ5Н"▄wОZ5Н$ъН'T�Н)9yН+█ОZ5�ОZ5Н,FwОZ5Н/R�ОX▌Н'ОVФН'Н&═Н,⌠ ОU?Н'ОS≈НuОQПНwНОQП�ОQПyН}ОQП�ОQПН$wОQПН!$yН%жОQП�ОQПН&▐ОQПН)гwН.4ОQП�ОQПН/�Н1��ОPHНН$▐Н';ОN║НuОLЫНwНСОLЫ�ОLЫyНЯОLЫ�ОLЫН≤wОLЫН≤yН$ОLЫ�ОLЫН$┤wОLЫН&ґ�Н(:yН)яОLЫ�ОLЫН*╔wОLЫН/щyН4cОLЫ�ОLЫН4мwОLЫН6С�Н8─Н:�Н;Щ�ОKRНyНeОKR�ОKRНОKRНUwОKRН"F�Н#сОI╙НyОHНwОHНyНdОH�ОHНMОHН]wОHН4yН(SОH�ОHН)8�wОF[Н'yН©ОF[�ОF[Н┼wОF[Н°�Н) yОDЄН'wОDЄНн�yНМОDЄ�ОDЄНW�wОDЄНдyНнОDЄ�ОDЄН ┬wОDЄН#■Н'Н�Н){Н-%�Н.YН0>�Н2#yОCН'wОCНvН"YН%*�Н&T Н-┤ yН4ОC�ОCН4бwОCН8·yОAeН'wНхОAe�ОAeyО?ҐНwО?ҐНҐН÷�Н └�yН!╧О?Ґ�О?ҐН"rwО?ҐН%Н)(�Н*╣О>НuО<nНwНщО<n�О<nyНшО<n�О<nН┌wО<nН┌yН#О<n�О<nН#rwН%О<n�О<nН%ПyН'КО<n�О<nН(UwО<nН-╟�Н/<Н0т�Н2╧�yО:гНwО:гНҐНf�Н⌡�yНпО:г�О:гН┴wО:гН ∙Н(яН,z�Н.Н2є�Н4&�Н5╡yО9НwО9НҐНfНЭyНАО9�О9Н wО9Н"іН0ьН4aН8 �Н9≈yН=AО9�О9Н>RwО7xНХНG�Ни�НVyО5пНwО5пНv�НЬ�Н-�yНbО5п�О5пНG�wО4)Н'Н\О2│Н'�Н╘�Н5�НЇ�Н╣yО0зН'wНхО0з�О0зО/2НО-▀НuО+ЦНwНвО+Ц�О+ЦyНтО+Ц�О+ЦН|О+ЦН|wО+ЦН"┤yН%бО+Ц�О+ЦН&{wН+bО+Ц�О+ЦН,J�Н./�О*<НyН4О*<�О*<НМО*<Н$wО*<Н$�Н%╒О(■НyО&МНwО&МНҐН&┌yН*ЯО&М�О&МН+╙wН.▐О&М�О&МН/v�Н1[�yН2░О&М�О&МН3IwО&МН6U�yО%EН'wО%EН⌠�yНЖО%E�О%EН╞wН "О%E�О%EО#·Н'�yО!ЖНО!ЖНdwО!ЖНН#Ґ�Н%ё�yН&вО!Ж�О!ЖН'Є�wО!ЖН)Н4д�Н6╘yН8╗О!Ж�О!ЖН9bwО!ЖН<n�О OН' ОїН'Н!МН$єН(Н*kН-!Н.оН1qН3пН7"О�Н' yОXН'wОXН⌠�yНЖОX�ОXН╞wН ■ОX�ОXО╠Н'�yО НwО НdОaНuО╨Н wН(О╨�О╨yН%О╨�О╨НмwО╨Нм�Н!╡�ОНyНоО�ОН╦wОНи�Н VОkНyНМОk�ОkНуwОkН Ф�Н"sОцН Н°�Н )ОНОtНyО мНwО мНҐ Н!+�Н#�yН$DО м�О мН$ЩwО мН( Н/<Ъ��≥��TVm$©��5ELSE{FORcmd:CommandCodeIN[login..quit]DOcandidate:LONGSTRING_commandTable[cmd];IFcommand.length<=candidate.lengthTHEN{matchLength_0;FORi:NATIN[0..command.length)DOIFUpper[command[i]]=Upper[candidate[i]]THENmatchLength_i+1ELSEEXIT;ENDLOOP;IFmatchLength=command.lengthTHEN{commandCode_cmd;nMatches_nMatches+1;IFNOTloggedInTHENEXIT};};ENDLOOP;IFnMatches>1THENcommandCode_ambiguousELSEIFcommandCode<=quitTHEN{candidate:LONGSTRING_commandTable[commandCode];FORi:NATIN[command.length..candidate.length)DOPutChar[candidate[i]];ENDLOOP;};};};PutRequestStatus:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={PutString[request.requestTime];PutChar['];PutString[request.fileName];IFrequest.copies#1THEN{PutString["("];PutNumber[request.copies,1];PutString["copies)"];};PutString["("];PutString[request.requestor];PutString[")"];SELECTstatusFROMcanceled=>PutString["Cancelled"];waiting=>PutString["Waiting"];printing=>PutString["Printing"];ENDCASE=>NULL;PutLine[];};DoCommand:PROC={GetCommand[];IFNOTloggedInANDcommandCode#loginANDcommandCode#quitTHEN{PutLine[];PutString["Loginfirst,please"];��qОg/НEи�yО_,НwО_,Нd�yО]┘Н'wО]┘НН· yН'┤О]┘�О]┘Н'Я�wО]┘Н)^yН0╞О]┘�О]┘Н1∙�wО[щН8 yНГО[щ�О[щН ═О[щН#ьwО[щН(и�Н*VyОZ5Н8wОZ5Нъ Н%MН'БyН2%ОZ5�ОZ5Н2чwОZ5Н5К�ОX▌НI Н#ї�Н%4yОVФНIwОVФН7yН≤ОVФ�ОVФН ─ОVФН"▒wОVФН$hyН1ОVФ�ОVФН1В�ОU?НZwОU?НН+)�Н-yН9 ОU?�ОU?Н9цwОS≤Н- Н&▀�Н(yОQПНZОQПН ╘wН#YОQП�ОQПyОPIНZwН"ШОPI�ОPIyОN║НIwОN║НП Н%N�Н'3 yН1║ОN║�ОN║Н2ZwОN║Н5f�ОLЗНZ Н&А�Н(mОKRНZН#⌡�Н%(Н+h�Н-MyОI╙НZОI╙НwОI╙Н"yН'©ОI╙�ОI╙Н(xОI╙Н+└wОHНZОF[НIyОDЄН8wНыОDЄ�ОDЄyОCН'wОCНнН�Н C�yН!xОC�ОCН"1wОCН%= Н.д�Н0QyОAeН'ОAeНvwОAeН Н%ёН(9yН+ОAe�ОAeН+жwОAeН.Б�О?ҐН8 yНГО?Ґ�О?ҐН ═О?ҐН#ьwО?ҐН(и�Н*VyО>Н8wО>Н&yН├О>�О>НoО>Н ─wО>Н"VП"yН8О>�О>Н8Т�wО<nНIyО:гНIwН ЙО:г�О:гО9Н8О7xН'О5пНuО4)НwНїО4)�О4)yН╔О4)�О4)НMwО4)Н"LН'ЩН3ЦО2│НвН#]�Н%B�О0зНО/2ННKО-▀НyО+ЦНwО+ЦНҐ Н⌠�Н!x�yН"ґО+Ц�О+ЦН#fwО+ЦН&r�О*<Н' НZО(■Н'Н'цО&МН' НZН#О%EН'О#·Н НIО!ЖНО OННбyОїНwОїНХyН©Ої�ОїНxwО�Н'НбНWОXН'НЗН░О╠Н'НiНЧyО Н'wО Н)yНЎО �О Н їwН"ЪО �О ОbН О╨НuОНwНдО�ОyНбО�ОНjwОНi�Н!N�ОkНyОдНОдНҐwОдН©yНzОд�ОдН MwОдН"═ Н,&�Н.yН1┬Од�ОдН2\wОдН4ў Н>5�ОНХyОН╡wОНw�ОuН' О мН'Н!вН%��F��TVm$▓��6PutLine[];}ELSE{SELECTcommandCodeFROMlogin=>{registryMissing:BOOLEAN_TRUE;PutString["--User--"];GetStringToSpace[user];FORi:NATDECREASINGIN[0..user.length)DOIFuser[i]='.THEN{registryMissing_FALSE;EXIT};ENDLOOP;IFregistryMissingTHEN{String.AppendString[user,defaultRegistry];PutString[defaultRegistry];};PutString["--Password--"];echo_FALSE;GetStringToSpace[password!UNWIND=>echo_TRUE];echo_TRUE;IFsep#'\nTHEN{PutString["--Account--"];GetStringToSpace[account];};PutString["--Authenticating..."];SendNow[];SELECTNameInfoDefs.Authenticate[user,password]FROMindividual=>{PutString["OK"];loggedIn_TRUE};allDown=>{PutString["allGVserversdown;I'llhavetotrustyou."];loggedIn_TRUE};badPwd=>{PutString["badpassword"];loggedIn_FALSE};ENDCASE=>{PutString["badname"];loggedIn_FALSE};PutLine[];IFloginMessage.length>0THEN{PutString[loginMessage];PutLine[];};};print=>{fileName:LONGSTRING_[80];separator:LONGSTRING_[80];time:LONGSTRING_[40];requestNumber:INT_0;createDate:LONGSTRING_[40];bytes:INT_0;copies:INT_1;IFNOTaccessAllowedTHEN{PutLine[];PutString["Sorry,youarenotallowedtoqueuerequestsatthistime"];};PutString["--File--"];��qОg/НEи�wО_,Н' О]┘Н'�yО[щНwО[щНd�yОZ5Н'wОZ5НЗ yН%─ОZ5�ОZ5Н&9wОX▌Н8Н╣НJ�ОVФНIyН%GОVФ�ОVФН&�wОVФН+l�yН,ЫОVФ�ОVФН-╡wН0$ОVФ�ОVФОU?НI Н"|Н'ЁОS≈НIyОQПНIwОQПН7yН≤ОQП�ОQПН ─ОQПН"▒ ОQПН*©wОQПН,√yН5ьОQП�ОQПН6Ў�ОPHНZwОPHНН#$�Н% yН&=ОPH�ОPHН&ЖwОPHН*Н48�yН5еОPH�ОPHН6~wН9cОPH�ОPHyН:`ОPH�ОPHН;wН=ОPH�ОPHН=а�yОN║НZwН"ШОN║�ОN║yОLЫНIwОLЫНПyН&uОLЫ�ОLЫН'.wОLЫН*;�ОKRНZН-XОI╙НZОHНZОF[НI Н"|Н*jОDЄНIН░�yН ОDЄ�ОDЄН жwН#╩ОDЄ�ОDЄОCНIН,▓�yН-░ОC�ОCН.uwОCН35Н5йН9�yН:·ОC�ОCН;WwН=иОC�ОCН>-�ОAeНIН░�yН ОAe�ОAeН жwН#HОAe�ОAeyО?ҐНIwО?ҐНПНe�Н!JyН#·О?Ґ�О?ҐН$WwО?ҐН'c�О>НZ Н$█ Н+МО<nНZО:гНZО9НI Н"|Н#С Н-DН.нО7xНI yО5пНIwО5пН Н4≥yН:ЫО5п�О5пН;╡wО4)НZ Н#эН&rН2Н7я�yН9^О4)�О4)Н:wН<┼О4)�О4)Н=:�О2│НZН"ИН%~Н.нН1yН6 Н:NН<uН?╪О0зН-Н!^Н%ЗН+╣�yН-AО0з�О0зН-ШwН0mО0з�О0зН1�О/2НZН"╗Н%=Н/U Н6ъН< �yО-▀Н-wН!кО-▀�О-▀Н"{�yО+ЦНZwО+ЦН#\Н%РН0 Н5UН;�yН<²О+Ц�О+ЦН=VwН@;О+Ц�О+ЦН@Л�О*<НI yО(■НIwО(■НПН)y�Н*ў�yН+БО(■�О(■Н,°wО(■Н/╗�О&МНZО%EНZ О#·НZО!ЖНIО OН8Н═Н5�ОїНIyН!цОї�ОїН"|ОїН%ЄwОїН*╔�Н,2О�НI yН!╣О��О�Н"nО�Н%іwО�Н*≈�Н,$ОXНIyНХОX�ОXН║ОXН"ьwОXН'и�Н)VО╠НI yН%⌡О╠�О╠Н&wО╠Н(+�Н)╦О НI yН"·О �О Н#WО Н&▌wО Н+─�Н-ОbНIyНWОb�ОbНюwОbН!Ф�Н#sО╨НIyНЯО╨�О╨Н [wО╨Н"─�Н$ yОНIОНПwОНСyН(ТО�ОН)ґwОН,╧�ОkНZ ОдНZН(!Н*ьН-+Н/═Н4ІН6dН:┬Н?АОН-Н нОuНZО мНI Н"|Н'9Ъ��^��TVm$И��7GetStringToSpace[fileName];IFsep#'\nTHEN{PutString["--Copies--"];copies_MIN[GetNumber[default:1],CARDINAL.LAST];};IFsep#'\nTHEN{PutString["--Title--"];GetStringToCR[separator];};bytes_PDRemoteStream.Lookup[fileName,createDate,user,password!PDRemoteStream.Error=>{PutLine[];PutString["Error:"];PutString[expl];PutLine[];GOTOBad;};];Time.AppendCurrent[time];requestNumber_PDQueue.QueueRequest[[fileName,time,user,password,separator,copies]];IFrequestNumber<0THEN{PutLine[];PutString["Printqueuefull,requestdenied."];PutLine[];GOTOBad;};PutLine[];PutString["Printrequest"];PutNumber[requestNumber,0];PutString["queuedfor"];PutString[fileName];PutString["of"];PutString[createDate];PutString["("];PutNumber[bytes];PutString["bytes)"];PutLine[];BEGINmsg:LONGSTRING_[160];String.AppendString[msg,"Versionof"];String.AppendString[msg,createDate];String.AppendString[msg,";"];String.AppendLongNumber[msg,bytes];String.AppendString[msg,"bytes."];PDQueue.LogMessage[msg,requestNumber];END;lastRequest_requestNumber;EXITSBad=>NULL};check=>{��qОg/НEи�wО_,НIyО]┘НIwО]┘НПНe�Н!JyН$"О]┘�О]┘Н$шwО]┘Н'Х�О[щНZ Н$█ Н+ОZ5НZН!┬�yН#ОZ5�ОZ5Н$'wН%yОZ5�ОZ5Н%эН2ёyН4⌠ОZ5�ОZ5Н5^wН:йОZ5�yОZ5Н;"wН>ОZ5�ОZ5Н>j�ОX▌НZyОVФНIwОVФНПНe�Н!JyН$"ОVФ�ОVФН$шwОVФН'Х�ОU?НZ Н$█Н)╧ОS≈НZОQПНZОPHНIНщ�Н jН6Л Н> ОN║НН"�ОLЫНZН,-Н.б�ОKRНk ОI╙НkН*HОHНkОF[Нk yОDЄНkwОDЄН#PОCНkОAeНZО?ҐНIО>НIН%"�Н&ўН<цО<nННmН%ц Н,yО:гНIwО:гНПН&и�Н'Ч�yН)2О:г�О:гН)КwО:гН,Ь�О9НZ О7xНZН'|Н+═Н.┐Н3W О5пНZ yО4)НZwО4)Н!?О2│НZО0зНI О/2НIН%kН*?О-▀НIН,ХО+ЦНI Н"|Н'gН)╔О*<НIО(■НI Н"|Н$5О&МНIО%EНI Н"|О#·НIО!ЖНI Н"|О NНI yОїНIwОЪНZyН ІОЪ�ОЪН!oОЪН$їwОЪН)≤�Н+%ОXНZН-AН3Н4юО╟НZН-AО НZН-AН.ООaНZН1кО╨НZН-A�Н.vОНZН.yОkНZwНБОk�ОkОцНI Н"·�Н$+ yОНIwОНН!УyН$┼О�ОН%swОtНIО мН8НН╞��TVm$╦��8requestNumber:INT;action:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={PutLine[];PutNumber[requestNumber,5];PutChar['];IFstatus=notFoundTHEN{PutString["notfound."];PutLine[];}ELSEPutRequestStatus[request,status];};PutString["--RequestNumber<"];IFlastRequest#-1THENPutNumber[lastRequest,1];PutString[">--"];lastRequest_requestNumber_GetNumber[default:lastRequest];IFrequestNumber=-1THENPutLine[]ELSEIFABS[requestNumber]>NAT.LASTTHENaction[[NIL,NIL,NIL,NIL,NIL,1],notFound]ELSEPDQueue.CheckRequest[requestNumber,action];};cancel=>{requestNumber:INT;PutString["--RequestNumber--"];requestNumber_GetNumber[default:-1];IFrequestNumber=-1THENPutLine[]ELSE{owner:LONGSTRING_[80];action:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={IFstatus#notFoundTHEN{String.AppendString[owner,request.requestor];};};PDQueue.CheckRequest[requestNumber,action];PutLine[];IFPDQueue.CancelRequest[requestNumber].okTHEN{msg:LONGSTRING_[80];String.AppendString[msg,"Cancelledby"];String.AppendString[msg,user];PDQueue.LogMessage[msg,requestNumber,IFowner.length=0THENNILELSEowner];PutString["Printrequestcancelled."];}ELSE{PutString["Nosuchrequestinqueue."]};PutLine[];};};listQueue=>{action:PROC[requestNumber:CARDINAL,request:PDQueue.Request,status:PDQueue.RequestStatus]RETURNS��qОg/НEи�wО_,НI yН%⌡О_,�О_,Н&wН'іО_,�О_,О]┘НIyНшО]┘�О]┘Н ┌wО]┘Н#┌Н)3Н5О[щНН+╒�Н-┤�ОZ6НZ ОX▌НZН.ЫОVГНZН#▐yОU?НZwОU?НН"ь�Н$ҐyН+*ОU?�ОU?Н+ЦwОU?Н.О�ОS≤Нk Н'#Н)≤ОQПНk ОPIНk�yОN║НZwОN║Н ╘Н0╙ОLЗНZОKRНI Н"|Н(х yОI╙НIwОI╙НП Н$E�Н&*yН'ьОI╙�ОI╙Н(▒wОI╙Н+·Н:╧ОHНI Н$ОF[НI Н"·�Н$+Н.�Н/░ОDЄНyОC НIwОC НПН&и�Н(ўyН*\ОC �ОC Н+wОC Н.!yОAeНIОAeН≤ОAeН ?wН"kОAe�ОAeН"н Н- �yН.>ОAe�ОAeН/'wН0ЁОAe�yОAeН1ОAeН4twО?ЎНyН vО?Ў�О?ЎН!_wН"┌О?Ў�yО?ЎН"зwН$ФО?Ў�yО?ЎН%>wН'IО?Ў�yО?ЎН'║wН)ґО?Ў�yО?ЎН*wН,О?Ў�О?ЎН,iН.YyО>НIwО>Н≤П#Н7УО<oНIО:гН8НgНЭ�О9 НI yН%⌡О9 �О9 Н&wН'іО9 �О9 О7xНI Н"|Н(хН/CО5яНIН%"�Н&ўН3uyО4)НIwО4)НПН&и�Н(ўyН*\О4)�О4)Н+wО4)Н.!yО2┌НIwО2┌Н≤�О0зНZyН"О0з�О0зН"╨О0зН%РwО0зН*Ц�Н,pО/3НZyН!ЛО/3�О/3Н"■wО/3Н%⌠Н+DН7*О-▀Н-Н-Ё�Н/≤�yО+ДНkwО+ДН!Н$И�Н&оyН-;О+Д�О+ДН-ТwО+ДН1��О*<Н!|Н2ўО(∙Н!|О&МНkО%FНZП#Н6╦О#·НZ yО!ВНZwО!ВНП'yН:┘О!В�О!ВН;>wО!ВН>J�О OНkyН"гО O�О OН#│О OН&╦wО OН+╘�Н-6О╗НkН/R Н6dН8_О�НkН/RОYНkН0░ yН:аОY�ОYН;+�wО╠Н > yН*┼О╠�О╠Н+CО╠Н.OО╠Н0ъwО╠Н4.О НkН)█Н.aОbНk�yО╩НZwО╩Н ╘ Н*kН-°Н2qН4 ОНZ ОlНZОдНIОН8НbН!В�ОuНIyНшОu�ОuН ┌wОuН#┌yН.7Оu�ОuН/wН4nОu�ОuН5JО нНН(Н,RyН;ьО н�О нН<╛��TVm$▒��9[continue:BOOLEAN_TRUE]={PutNumber[requestNumber,5];PutChar['];PutRequestStatus[request,status];};PutLine[];IFPDQueue.GetSuspended[]THEN{PutString["***Printingissuspended***"];PutLine[];};PDQueue.EnumerateRequests[action];};messages=>{action:PROC[message:LONGSTRING]RETURNS[continue:BOOLEAN_TRUE]={IFMatch[message]THEN{PutString[message];PutLine[];};};key:LONGSTRING_[80];Match:PROC[message:LONGSTRING]RETURNS[BOOLEAN]={keyLength:CARDINAL_key.length;IFmessage.length<keyLengthTHENRETURN[FALSE];FORi:NATIN[0..message.length-key.length)DOj:CARDINAL_0;WHILEj#keyLengthANDUpper[message[i+j]]=key[j]DOj_j+1ENDLOOP;IFj=key.lengthTHENRETURN[TRUE];ENDLOOP;RETURN[FALSE];};IFsep#'\nTHEN{PutString["--matchingstring--"];GetStringToCR[key];FORi:NATIN[0..key.length)DOkey[i]_Upper[key[i]]ENDLOOP;};PutLine[];PDQueue.EnumerateMessages[action];};start=>{IFPDQueue.SetSuspended[FALSE].old=TRUETHEN{PDQueue.LogMessage["Printingstarted.",,user];};PutOK[];};stop=>{IFPDQueue.SetSuspended[TRUE].old=FALSETHEN{��qОg/НEи�wО_,Н yН"·О_,�О_,Н#XwО_,Н(ц�yН*PО_,�О_,Н+ wН-{О_,�О_,Н.c�Н0H�О]┘НZН.ЫО[щНZН#▐ОZ5НZН-[ОX▌НZОVФНI yОU?НIwОU?НПyН-&ОU?�ОU?Н-ъwОU?Н0К�ОS≈НZ Н%Н'їН,ТН.`Н5ОQПНZ ОPHНZОN║НIП"ОLЫНIОKRН8НН!╘�ОI╙НIyНшОI╙�ОI╙Н ┌wОI╙Н#┌yН)ІОI╙�ОI╙Н*oОI╙Н-іwН2ОI╙�ОI╙yН2ШОI╙�ОI╙Н3оwОI╙Н9 yОHНwОHН"@�yН#мОH�ОHН$├wН&ЫОH�ОHН'Ю�Н)е�yОF[НZwОF[Н yН(КОF[�ОF[Н)єwОF[Н,╟�ОDЄНkОCНk ОAeНkО?ҐНZО>НIyНXО>�О>НО>Н"HwО>Н':�Н(фuО<nНIwН4О<n�О<nyН 2О<n�О<nН зwО<nН#ыyН* О<n�О<nН*фО<nН-ЧwН2jО<n�О<nyН3RО<n�О<nН4&wО<nН9^�yН9аО<n�О<nН:zwН?aО<n�О<nО:гН�Н�О9НZ yН$ёО9�О9Н%nwО9Н+^�Н,К yО7xНZwО7xН Н(f�Н) yН0iО7x�О7xН1#О7xН4/wО7xН9⌡�yН9ЧО7x�О7xН:╦wН=°О7x�О7xН=Ъ�yО5пНZwО5пН HyН!╘О5п�О5пН"▒О5пН$╒wО5пН&yyН8╟О5п�О5пН9√�wО4)НkyН лО4)�О4)Н!≈wО4)Н'┤�Н)yО2│НkwО2│Н#л�Н$Є�Н&≥yН-hО2│�О2│Н.;wО2│Н0▌Н=o�О0зН >yН#ЩО0з�О0зН$Ц�wО/3Н!|�Н"d�Н#Я�Н$ь�Н&Ґ�yО-▀Н!|wН'О-▀�О-▀yО+ДНkwО+ДН!yН)yО+Д�О+ДН*2О+ДН->wО+ДН2╚�yН3О+Д�О+ДН3гwН69О+Д�О+ДН6²�yО*<НkО(∙НZwО(∙Н"г�yН#*О(∙�О(∙Н#ЦwН&хО(∙�О(∙Н'+�О&МНZyО%EНIwО%EНПНe�Н!JyН#·О%E�О%EН$WwО%EН'c�О#·НZ Н$█ Н+~Н0GО!ЖНZyО OНZwО OН HyН!╘О O�О OН"▒О OН$╒wО OН&yyН/WО O�О OН0=�wО OН1²Н5\�Н6ИyО╗Н-wН#нО╗�О╗О�НZОYНI О╠НIП"О НIОbН8НHНщ�yО╨НIwО╨НПyН+эО╨�О╨Н,∙wН/zО╨�О╨Н/щН2·�yН4┐О╨�О╨Н5<О╨Н83wО╨Н;Ы�ОНZН1AОkНZОдНIОНIОuН8Н1Нг�yО мНIwО мНПyН+эО м�О мН,∙wН/О м�О мН/kН2,�yН4О м�О мН4йО мН83wО мН;Ы�Ъ��ъ��TVm$Ь��10PDQueue.LogMessage["Printingsuspended.",,user];};PutOK[];};setLoginMessage=>{old:LONGSTRING_[160];String.Copy[old,loginMessage];PutChar['];GetStringToCR[loginMessage];loginMessage.length_MIN[loginMessage.length,loginMessage.maxlength-3-user.length];String.AppendString[loginMessage,"("];String.AppendString[loginMessage,user];String.AppendChar[loginMessage,')];PutLine[];PutString["Oldmessagewas:"];PutString[old];PutLine[];PDQueue.LogMessage[loginMessage];};reprint=>{ncopies:INT_0;confirm:BOOLEAN_TRUE;PutString["--Numberofcopies--"];ncopies_GetNumber[default:0];IFncopies>1THEN{PutString["--Confirmreprintofmultiplecopies--"];confirm_Confirm[];};IFconfirmTHEN{msg:LONGSTRING_[50];String.AppendString[msg,"Reprintrequestfor"];String.AppendLongDecimal[msg,ncopies];IFncopies=1THENString.AppendString[msg,"copy"]ELSEString.AppendString[msg,"copies"];PDQueue.LogMessage[msg,,user];PDQueue.Reprint[ncopies];PutOK[];}ELSEPutXXX[];};resetQueue=>{PutString["--Doyoureallywanttoresettheentirequeue?--"];IFConfirm[]THEN{PutOK[];PDQueue.Reset[];PDQueue.LogMessage["Queuereset",,user];};};help,illegal=>{PutLine[];��qОg/НEwО_,НZН1AО]┘НZО[щНIОZ5НIОX▌Н8Н#яН&f�ОVФНIyН,ОVФ�ОVФНЕОVФН"wОVФН'�Н(⌡ОU?НIН%┼ ОS≈НIН!~ОQПНIОPHНIН'р�yН)_ОPH�ОPHН*pwН+цОPH�ОPHН,&ОN║НП&ОLЗНIП!Н0и�Н1ЧОKRНIП!Н0иОI╙НIН0$ОHНI ОF[НI Н$╨Н*Н-6ОDЄНIОCНI ОAeНIП!О?ҐНIО>Н8НйН _�О<nНIyН ЇО<n�О<nН!!wО<nН#G�Н$тО:гНIyН НО:г�О:гН!їwО:гН'�yН(÷О:г�О:гН)XwН+кО:г�О:гО9НI Н"|Н(ВН*╟Н/яО7xНIН >�Н!кН.▓yО5пНIwО5пНПН!Е�Н#�yН$OО5п�О5пН%wО5пН(�О4)НZ Н$█Н+Н/═Н1YН6сН;ТО2│НZН"├�Н$ О0зНZyО/2НIwО/2НПyН"О/2�О/2Н"уwО/2Н%А�О-▀НZyН ІО-▀�О-▀Н!oО-▀Н$їwО-▀Н)≤�Н+%О+ЦНZН-AН3Н7щН:О*<НZН1╪yО(■НZwО(■НН#Ж�Н%ш�yН'О(■�О(■Н'иwО(■Н*жН:Ґ�Н;ЯyО&МНZwО&МН ╘Н0░�Н1еО%EНZО#·НZО!ЖНZО OНZ�yОїНIwОїН≤О�НIОXН8 Н kН#��О╟НI Н"|Н%нН(┘Н,OН/╛Н1ZН4║Н7�Н:ЛО НyОbНIwОbНПyН#EОb�ОbН#ЧwОbН' �О╨НZОНZОkНZН0e ОдНZОНIОuН8Н╚Н ЇН#L�О мНI Ъ��S��TVm$щ��11PutString["Validcommandsare:"];FORcmd:CommandCodeIN[login..quit]DOcandidate:LONGSTRING_commandTable[cmd];PutString[candidate];IFcmd#quitTHENPutString[","];ENDLOOP;PutLine[];};quit=>{loggedIn_FALSE;PutLine[];SendNow[];quitting_TRUE};wait=>{requestNumber:INT_lastRequest;requestStatus:PDQueue.RequestStatus_waiting;action:PROC[request:PDQueue.Request,status:PDQueue.RequestStatus]={requestStatus_status;};toldUserThatItIsPrinting:BOOLEAN_FALSE;DoPrintingMsg:PROC={IFrequestStatus=printingANDNOTtoldUserThatItIsPrintingTHEN{PutString["Printing..."];toldUserThatItIsPrinting_TRUE;};};IFsep#'\nTHEN{PutString["--RequestNumber<"];IFlastRequest#-1THENPutNumber[lastRequest,1];PutString[">--"];lastRequest_requestNumber_GetNumber[default:lastRequest];};PutLine[];IFrequestNumberIN[0..NAT.LAST]THEN{PDQueue.CheckRequest[requestNumber,action];IFrequestStatus=waitingTHEN{PutString["Waiting..."];};DoPrintingMsg[];UNTILrequestStatus=notFoundORrequestStatus=canceledDOSendNow[];Process.Pause[Process.MsecToTicks[10000]];PDQueue.CheckRequest[requestNumber,action];DoPrintingMsg[];PutChar['.];ENDLOOP;PutString["Done."];PutLine[];};};ambiguous=>{��qОg/НEwО_,НIН%ґН,▓Н/_yО]┘НIwО]┘Н7Н!ю yН+╘О]┘�О]┘Н,�wО]┘Н-─yН4рО]┘�О]┘Н5╦�wО[щНZ yН$ О[щ�О[щН$цО[щН'ЗwО[щН,К�Н.xОZ5НZyОX▌НZwОX▌НН"�Н#ЖyН&зОX▌�ОX▌Н'■wОX▌Н*═Н2+yОVФНZwН"ШОVФ�ОVФОU?НI ОS≈НIОQПН8НН╠Н%�yН&╙ОQП�ОQПН'cwН*HОQП�ОQПН+E Н1г Н9aН>▌�yОPIНwН6ОPI�ОPIНГ�ОN║Н8Н1Нг�ОLЗНI yН%⌡ОLЗ�ОLЗН&wОLЗН(+�Н)╦ОKRНI Н$,Н3O�Н4эОI╙НIyНшОI╙�ОI╙Н ┌wОI╙Н#┌Н)3Н5ОHНН+╒�Н-┤�ОF\НZН%д�Н'QОDЄНZОC НIyН*НОC �ОC Н+╗wОC Н1�yН2═ОC �ОC Н3YwН6>ОC �ОC uОAeНIwН$┼ОAe�ОAeyН%┬ОAe�ОAeН&/wОAeН)/�Н+�yО?ЎНZwО?ЎНН'k�Н)PyН.▓О?Ў�О?ЎН/fО?ЎН1╦wО>Н-yН-YО>�О>Н.wО>Н1�О<oНkО:гНkН.≈�yН0$О:г�О:гН0щwН3PО:г�О:гО9 НkО7xНZyО5яНIwО5яНПНe�Н!JyН#·О5я�О5яН$WwО5яН'c�О4)НZ Н$█Н*ы yО2┌НZwО2┌Н Н&V�Н(;yН)ИО2┌�О2┌Н*╒wО2┌Н-╞Н<йО0зНZ Н&1О/3НZ Н$╞�Н&<Н0�Н1║О-▀Н-О+ДНZО*<НI yО(∙НIwО(∙НПyН&иО(∙�О(∙Н'3�wО(∙Н(═yН*bО(∙�О(∙Н+KwН,вО(∙�yО(∙Н-/wН0О(∙�О(∙yН0ШО(∙�О(∙Н1ЄwО(∙Н4ю�О&МНZП#Н6╦yО%FНZwО%FНН'k�Н)PyН.$О%F�О%FН.щwО%FН1И�О#·НkО!ВНkО OНZyО╗НZwО╗Н!┴Н)Р�Н+вyН2DО╗�О╗Н3 �wО╗Н4xН<Б�О�Н-yН#хО��О�Н$ў�wОYНk О╠НkП*О НkП#Н8иОbНkО╩НkyОНkwН%О�ООlНZОдНZ ОНZОuНIО нН8Н 3Н"и��n��TVm$j��12PutLine[];PutString["Ambiguouscommand(typeHelp<CR>forhelp)"];PutLine[];};ENDCASE=>ERROR;};};stream.options.signalSSTChange_TRUE;PutLine[];PutString[helloMsg];PutLine[];UNTILloggedInORquittingDODoCommand[!DelHit=>CONTINUE]ENDLOOP;WHILEloggedInDODoCommand[!DelHit=>CONTINUE]ENDLOOP;EXITSQuit=>NULL;};END.��qОg/НEwО_,НI О]┘НIН)VН/ЇН3AН:Н<YО[щНI ОZ6НIyОX▐Н8wОX▐Н:yН!пОX▐�ОX▐Н"┴wН%АОX▐�ОX▐ОVГН'ОU@НОS≥НН&А�yН(nОS≥�ОS≥Н)'wН+≥ОS≥�ОS≥ОQЯН ОPJНОNёН yОLШНwОLШН3yННОLШ�ОLШНй�wОLШН"yН$OОLШ�ОLШН%5�wОLШН&√ Н0Н4ўyН7DОLШ�ОLШН8wН=~ОLШ�ОLШyОKTНвwНxОKT�ОKTyОIґНwОIґНeyН ОIґ�ОIґН�wОIґНg Н(АН-yН0ОIґ�ОIґН0ъwН6OОIґ�ОIґyН76ОIґ�ОIґН7ОwН<вОIґ�ОIґyОHНwОHНьН yН·ОH�ОHН┤wНчОH�ОHОF^НyОCНСwН{ОC�ОCЪ��0��TVm$�Я��--PeachSourcesTemp.df--Copyright(C)1984,XeroxCorporation.Allrightsreserved.--MichaelPlass,1-Oct-8413:07:12--PeachPDPrintServerSourcesExports[Ivy]<Plass>Peach>Top>ReleaseAs[Indigo]<Peach>Top>PeachSourcesTemp.df1-Oct-8413:09:20PDTExports[ivy]<Plass>Peach>Documentation>ReleaseAs[Indigo]<Peach>Documentation>PeachDoc.tioga!124-Sep-8411:26:07PDTPeachDoc.press!124-Sep-8411:26:16PDTExports[ivy]<Plass>Peach>PeachSources>ReleaseAs[Indigo]<Peach>PeachSources>PDBitBltTiming.mesa!14-Mar-8411:21:20PSTPDFileFormat.mesa!118-Nov-839:54:35PSTPDInterpBasic.mesa!14-Sep-8410:17:00PDTPDInterpBitmap.mesa!117-Nov-8312:15:22PSTPDInterpBitmapImpl.mesa!14-Sep-8411:30:44PDTPDInterpMainImpl.mesa!120-Sep-849:14:55PDTPDInterpOutput.mesa!120-Sep-849:03:31PDTPDInterpPage.mesa!120-Sep-848:58:46PDTPDInterpPageImpl.mesa!120-Sep-849:17:50PDTPDInterpReader.mesa!14-Sep-849:51:57PDTPDInterpReaderImpl.mesa!113-Sep-8411:35:11PDTPDInterpSysCalls.mesa!14-Sep-849:55:12PDTPDInterpSysCallsDevelImpl.mesa!130-Nov-8310:22:04PSTPDQueue.mesa!113-Sep-8413:18:40PDTPDQueueImpl.mesa!127-Sep-847:48:29PDTPDUser.mesa!14-Sep-8415:05:56PDTPDUserImpl.mesa!127-Sep-849:33:14PDTPDRemoteStream.mesa!17-Sep-8416:13:26PDTPDStrikeFormat.mesa!119-Sep-8413:13:14PDTPDTextBitmap.mesa!119-Sep-8411:30:08PDTPDTextBitmapImpl.mesa!126-Sep-8417:39:54PDTPDRemoteStreamStub.mesa!113-Sep-8413:41:44PDTPDChatServerStub.mesa!113-Sep-8411:34:55PDTPDInterpOutputViewerImpl.mesa!126-Sep-8417:22:14PDT��wО_,НБНYО]┘Н╣Н,НўН#НаН!ЦН*│Н,сН0╙О[щН╣Н,НyНҐН bОZ6Н╣Н,Н.НёННeОVГН╣НкН%≤Н,/ОS≥НҐН)фН/kН5ОPJН╣НкН,GОNёН╣ОKTНҐН(Н.mН4ОIґНҐН(Н.┐Н4ОF^Н╣НкН+ОDЇН╣ОAhНҐН)дН/кН5eО?аНҐН)?Н0┼Н5sО>НҐН)@Н.ЭН4∙О<rНҐН)xН0?Н5ьО:кНҐН*цН0Н6О9#НҐН*Н1 Н5ЖО7|НҐН)oН0_Н5HО5уНҐН(ЧН/НН4вО4-НҐН)еН0╣Н5·О2├НҐН)ЯН01Н5О0ъНҐН*4Н0═Н69О/7НҐН)▌Н/мН4ІО-░НҐН*╦Н1Н7О+ИНҐ Н) Н/uН5О*AНҐН)пН0юН5╘О( НҐН(РН.ґН4GО&СНҐН)4Н0%Н5О%KНҐН*ыН0■Н6.О#єНҐН)aН/мН5fО!ЩНҐН)┌Н/НН5┬О UНҐН*IН0╣Н6OОНҐН+Н1sН7О_НҐН)щН0IН5БО╦НҐН+IН1╣Н7OЪ�� TVm$_�� Ъ TIMESROMAN��ЧФ��ЪLAUREL��ЧФ��ЪGACHA��Ч÷�� Ъ TIMESROMAN��Ч÷�� Ъ TIMESROMAN��ЧФ��Ъ TIMESROMAN��Ч÷��ЪLAUREL��Ч÷��Ъ TIMESROMAN��Ч÷��Ъ TIMESROMAN��Ч÷��Ъ TIMESROMAN��ЧY��Ъ HELVETICA��ЧФ��ЪLOGO��Щ┤��Ъ HELVETICA��Ч÷��Ъ HELVETICA��Ч��h��┬��▌��i��≤��к��!��ф��'��▌��(��+�� 2��*��9��>��┬��E��&��L��8��S��÷��[��b��m��i��╣��p��ё��w��▄��|��Ё��}��S��│��├��▌��▄��&��▒��Э��≤��║��≥�� ⌡��║��[��ї��a��╛��Ю��╡��©��╧��Ґ��©��╙��а��г��Є��к�� р��-��в��{��ч��c��Е��3��К��Я��Х��Ь��}��Щ��ь��М��:��G��_��╙��P��#��Ф��*��╙��1��⌠��8��█��>��D��w��J��o��Q��Q��W��B��^��`��e��╡��l��Б��m��S��p��N��w��s��}��w��└��╒��┼��Б��▀��▓��т��⌠��A��≤��'��·��$��є��Я��╚��c��╠��Ё��╦��=��Ґ��и��ц��С��й��J��о��Г��у��D��ы��Л��ъ��Д��Ь��И��^��Н��v��П��с�У��j/Ы�_Ж��²┬kp��ЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪ0[ivy]<Plass>Peach>Documentation>PeachDoc.tioga!1��#Monday, October 1, 1984 1:28 pm PDT��