‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-BIOS.;2 Source file created Saturday, 5 December 2020, 16:35:15. FASL file created Saturday, 5 December 2020, 16:35:15. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒROOMS˜Œ{Null}˜–,ggo ¿o¿o ˜Œ3 top-level forms™˜“€&˜•Œ FILESLOAD˜•ŒPUTPROP˜•ŒROOMS-BIOSCOMS˜•Œ FILEDATES˜•Œ ROOMS-BIOS!˜“˜“˜•ŒSYSLOAD˜•Œ ROOMS-BUTTONS˜“˜“˜•Œ*˜•Œ;;˜Œbutton image objects˜“˜•ŒFILES˜“™™˜“˜’ŒFILE-ENVIRONMENTS˜‘˜ŒXEROX-COMMON-LISP™˜“˜•ŒP˜“˜ŒEXPORT˜“˜ŒQUOTE˜“˜’ŒMAKE-BIO˜‘˜ŒROOMS˜’Œ*BIO-SELECTION-BORDER*™*˜ŒROOMS˜“˜•Œ VARIABLES™,˜“ ˜•Œ FUNCTIONS™+˜’Œ BIO-BUTTON™*˜’Œ BIO-COPYFN™*˜’ŒBIO-IMAGEBOXFN™*˜’Œ BIO-PUTFN™*˜•Œ BIO-GETFN˜’Œ BIO-DISPLAYFN™*˜’ŒBIO-BUTTONEVENTINFN™*˜’ŒBIO-BUTTONEVENTINFN-INTERNAL™*˜“™2˜’Œ*BIO-IMAGEFNS*™* ˜“˜”˜Œ 5-Dec-2020 16:35:15•ŒT{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS-BIOS.;2˜–+ggo ¿ggg ˜Œ%DEFINE-FILE-ENVIRONMENT IL:ROOMS-BIOS™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒROOMS˜–oo ˜Œ1 top-level form™˜“€ ™'˜ŒROOMS˜“™+™,˜–5o ¿g X§l¿ggo ˜Œ#DEFGLOBALVAR *BIO-SELECTION-BORDER*™˜“€/˜•ŒSET-DOCUMENTATION˜ŒBOUNDP˜ŒPROCLAIM%˜ŒVARIABLE ™,™, ™,*˜ŒLWidth of mouse-insensitive strip around outside edge of button image objects˜“˜’ŒGLOBAL™#™,œ™+˜–0@¸@Ñ°igHgh b¿°ß@` ™+™˜“˜“˜ŒBUTTON*˜•ŒIMAGEOBJCREATE˜•ŒCHECK-TYPE-FAIL%™>˜’ŒBUTTON™* ™b™bœ˜’Œexpand-BIO-BUTTON™*˜–@X¹gIo™d™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜•Œ IMAGEOBJPROP ˜“˜“™(˜•Œ OBJECTDATUM˜–&gg ¿ggo ˜ŒDEFMACRO BIO-BUTTON™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™5™d™5˜“˜ŒBIOœ™6˜–@g ™6™˜“˜“˜ŒBIO˜ŒSOURCE˜Œ DESTINATION™+ ˜’Œ COPY-BUTTON™*™i™jœ™7˜–I@g ¸hA ¹H ¿H IÖH IÖHÉÉ IÖjh™7™˜“˜“˜ŒBIO˜Œ IMAGE-STREAM˜Œ CURRENT-X˜Œ RIGHT-MARGIN;˜•Œ FONTDESCENT%˜’Œ BUTTON-HEIGHT™*˜’Œ BUTTON-WIDTH™*˜’Œ UPDATE-BUTTON™*˜•ŒDSPSCALE™i4˜’ŒTEXT™*-™b™jœ™8˜–3iio l o @g A ˜Œ*PRINT-PRETTY*˜Œ *READTABLE*˜Œ *PRINT-BASE*˜Œ *PACKAGE*˜’Œ*PRINT-STRUCTURE*™#˜Œ *PRINT-ARRAY*™8™˜“˜“˜ŒBIO˜Œ FILE-STREAM-˜ŒPRINT'˜’ŒEXTERNALIZE-BUTTON™*"™i˜•ŒFIND-READTABLE˜Œ FIND-PACKAGE™j˜ŒLISP˜ŒUSERœ™9˜–6g o l o @  ™‚Š˜Œ *READ-BASE*™‚Œ™9™˜“˜“˜Œ FILE-STREAM0™++˜ŒAPPLY%˜ŒREAD™‚•™‚–˜ŒSYMBOL-FUNCTION˜’Œ MAKE-BUTTON™*˜ŒLISP ˜ŒUSERœ™:˜–@g X ¿H ¹H ºIJ »HKgigIgJ ¿KjjAhA hA HÉÉ hA ÖÕ ™:™˜“˜“˜ŒBIO˜Œ IMAGE-STREAM˜ŒIMAGE-STREAM-TYPE˜Œ HOST-STREAM y˜•ŒBITBLTq™‚†j™‚‚V˜•Œ DSPYPOSITIONO˜•Œ DSPXPOSITIONC˜’ŒDISPLAY-BUTTON™*(˜•Œ DSPCREATE#˜•Œ BITMAPCREATE™‚ƒ™‚„ ™‚…™ic™‚‡\™b<˜ŒHEIGHT6˜ŒWIDTH0˜Œ NO-UPDATE™jœ™;˜–mnX@A¿HÉg dHý¿ •ghHÉ Hý¿hHÉ Hý¿hHÉ Hý ¿noHkoH-™;™˜“˜“˜ŒBIO˜ŒDSPL˜•ŒDSPCLIPPINGREGION>˜•Œ DSPYOFFSET0˜•Œ DSPXOFFSET ™‚…™i&˜•ŒCHANGED™je˜–‚ÊHÉHÉ ÔHÉ ¿HÉHÉ ÔHÉ ¿jjHÉ HÉ  HÉ ¿j`låð’h°]g`g`gHÉ `lÖÕgHÉ `lÖÕ HÉ HÉ ²HÉHÉ ‚hhj@¿ ˜’Œ*UNWIND-PROTECT*˜‘˜ŒSYSTEM˜ŒCLOSURE˜“˜“˜ŒG1650 ‚ĘŒ VALUES-LIST‚·˜•Œ\MVLIST‚²™<‚¥˜•ŒINSIDEP‚ ˜•Œ LASTMOUSEY‚˜˜•Œ LASTMOUSEX‚˜’Œ MAKE-REGION™*‚™‚ƒk™‚„;™‚¹3˜•Œ CREATEREGION™‚º ™‚» ‚†™,y™‚±p™,c™‚²^™,Y˜ŒBOTTOMT™,O˜ŒLEFTB˜•ŒLASTMOUSEBUTTONSZ˜–%HÉHÉ ¿HÉHÉ ¿HÉ HÉ ˜ŒClean-up forms™‚À˜“€™‚¹™‚º™‚»V˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK6œ™<˜–‚’@g ¸l`åkð²HÉ g'‘h‚i€h²Lo Ygð²!H ZHð‘h@gJ ¿gIgðH ¿hhHA –H €h•gh™<™˜“˜“˜ŒBIO˜ŒDSP‚‚™‚…{˜’ŒBUTTON-TRACK-MOUSE™*o˜’ŒMAKE-BUTTON-WINDOW™*j™zU™iC˜’Œ EDIT-BUTTON™*4˜’ŒMENU™*™i ‚Š™‚¼b˜ŒCOPY[™‚¼O™j:˜ŒEDIT!˜Œ PROTECTED?™b™‚Í™j/˜“˜“˜Œ Edit Button™‚Þ˜ŒEdit this button˜“˜ŒCopy to Screen™‚ݘŒCopy this button to the screen ˜–6o ¿gggggg ˜Œ!DEFGLOBALPARAMETER *BIO-IMAGEFNS*™˜“€+˜•ŒIMAGEFNSCREATE™W0™>%™; ™6™9™8™7 ™:˜“™Z™>˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚Ä‚Æ‚äš‚õÿÿ