From 41f32b7db5e9001552642f628dae857d02e41675 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Wed, 29 Nov 2023 07:09:38 -0800 Subject: [PATCH] INTERPRESS fixes some of the Asciifont-to-NS character mappings, MATHTONS is obsolete (#1413) * Fixes some of the character mappings from Ascii fonts into NS, moves Math mappings into Interpress The separate lispusers/MATHTONS is now obsolete. * INTERPRESS: Add back empty ASCIITONSTRANSLATIONS Turns out they were intended, not a mistake. But that was just a shorthand for saying MODERN, as a fall back. I made that explicit. --- {lispusers => obsolete/lispusers}/MATHTONS | 0 .../lispusers}/MATHTONS.TEDIT | Bin sources/INTERPRESS | 217 ++++++++---------- sources/INTERPRESS.LCOM | Bin 57076 -> 61237 bytes 4 files changed, 100 insertions(+), 117 deletions(-) rename {lispusers => obsolete/lispusers}/MATHTONS (100%) rename {lispusers => obsolete/lispusers}/MATHTONS.TEDIT (100%) diff --git a/lispusers/MATHTONS b/obsolete/lispusers/MATHTONS similarity index 100% rename from lispusers/MATHTONS rename to obsolete/lispusers/MATHTONS diff --git a/lispusers/MATHTONS.TEDIT b/obsolete/lispusers/MATHTONS.TEDIT similarity index 100% rename from lispusers/MATHTONS.TEDIT rename to obsolete/lispusers/MATHTONS.TEDIT diff --git a/sources/INTERPRESS b/sources/INTERPRESS index 6f7c4de4..87802cb5 100644 --- a/sources/INTERPRESS +++ b/sources/INTERPRESS @@ -1,34 +1,18 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 2-May-2023 15:50:03" {DSK}larry>il>medley>sources>INTERPRESS.;8 221759 +(FILECREATED "13-Nov-2023 11:15:45" {WMEDLEY}INTERPRESS.;18 220543 - :EDIT-BY "lmm" + :EDIT-BY rmk - :CHANGES-TO (MACROS APPENDOP.IP APPENDINTEGER.IPMACRO) - (FNS INTERPRESSBITMAP SETSPACE.IP TRANS.IP TRANSLATE.IP APPENDIDENTIFIER.IP - APPENDINTEGER.IP APPENDLARGEVECTOR.IP APPENDNUMBER.IP APPENDOP.IP - APPENDRATIONAL.IP APPENDSEQUENCEDESCRIPTOR.IP ARCTO.IP BEGINMASTER.IP - BEGINPAGE.IP BEGINPREAMBLE.IP CLIPRECTANGLE.IP CONCAT.IP CONCATT.IP - ENDMASTER.IP ENDPAGE.IP ENDPREAMBLE.IP FGET.IP FILLRECTANGLE.IP - FILLTRAJECTORY.IP FILLNGON.IP FSET.IP INITIALIZEMASTER.IP INITIALIZECOLOR.IP - ISET.IP GETCP.IP LINETO.IP MASKSTROKE.IP MOVETO.IP ROTATE.IP SCALE.IP - SCALE2.IP SETCOLOR.IP SETRGB.IP SETCOLORLV.IP SETCOLOR16.IP SETFONT.IP - SETXREL.IP SETX.IP SETXY.IP SETXYREL.IP SETY.IP SETYREL.IP SHOW.IP - HEADINGOP.IP DEFINEFONT.IP INTERPRESS.BITMAPSCALE INTERPRESSFILEP NEWPAGE.IP - OPENIPSTREAM SHOWBITMAP.IP SHOWBITMAP1.IP SHOWSHADE.IP \BLTSHADE.IP - \DRAWCURVE.IP \IPCURVE2 \DRAWLINE.IP \DSPFONT.IP \DSPSPACEFACTOR.IP - \PUSHSTATE.IP \POPSTATE.IP \DEFAULTSTATE.IP \FILLPOLYGON.IP \DRAWPOLYGON.IP - \SETBRUSH.IP \INTERPRESSINIT) - (VARS INTERPRESSCOMS IPCONSTANTS IPVALUES) - (FUNCTIONS \IPC) + :CHANGES-TO (VARS INTERPRESSCOMS) - :PREVIOUS-DATE "27-Jun-2021 23:50:51" {DSK}larry>il>medley>sources>INTERPRESS.;1) + :PREVIOUS-DATE "11-Nov-2023 10:38:10" {WMEDLEY}INTERPRESS.;17) (PRETTYCOMPRINT INTERPRESSCOMS) (RPAQQ INTERPRESSCOMS - ((COMS (* ; "Literal interface") + [(COMS (* ; "Literal interface") [INITVARS (CHARACTERCODEVERSION 'XC1-1-1) (INTERPRESSVERSION "2.1") (PRINTSERVICE 10.0) @@ -126,23 +110,24 @@ (FNS NSMAP \COERCEASCIITONSFONT \CREATEINTERPRESSFONT \SEARCHINTERPRESSFONTS) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (noInfoCode 32768))) (INITVARS (ASCIITONSTRANSLATIONS)) - (* ; - "Catch the GACHA10 and any BI coercions to MODERN") + + (* ;; "These are in priority order: if an early one doesn't find a font for a family, the later ones are tried (essentially going to MODERN as the default).") + (ADDVARS (ASCIITONSTRANSLATIONS (TIMESROMAN NIL CLASSIC) (GACHA NIL TERMINAL) - (HELVETICA) - (CLASSIC) - (GACHA) - (TIMESROMAN) + (HELVETICA NIL MODERN) + (CLASSIC NIL MODERN) + (GACHA NIL MODERN) + (TIMESROMAN NIL MODERN) (LOGO NIL LOGOTYPES) (HIPPO HIPPOTONSARRAY CLASSIC) (CYRILLIC CYRILLICTONSARRAY CLASSIC) - (SYMBOL \SYMBOLTONSARRAY MODERN))) - (UGLYVARS \SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY)) + (SYMBOL \SYMBOLTONSARRAY MODERN) + (MATH \MATHTONSARRAY CLASSIC))) + (UGLYVARS \SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY \MATHTONSARRAY)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\INTERPRESSINIT))) - [DECLARE%: EVAL@COMPILE DONTCOPY (P (LOADDEF 'SYSTEMBRUSH 'RESOURCES 'IMAGEIO) - (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO] - (FUNCTIONS \IPC))) + (DECLARE%: EVAL@COMPILE DONTCOPY (P (LOADDEF 'SYSTEMBRUSH 'RESOURCES 'IMAGEIO) + (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO]) @@ -3858,49 +3843,59 @@ -(* ; "Catch the GACHA10 and any BI coercions to MODERN") +(* ;; +"These are in priority order: if an early one doesn't find a font for a family, the later ones are tried (essentially going to MODERN as the default)." +) (ADDTOVAR ASCIITONSTRANSLATIONS (TIMESROMAN NIL CLASSIC) (GACHA NIL TERMINAL) - (HELVETICA) - (CLASSIC) - (GACHA) - (TIMESROMAN) + (HELVETICA NIL MODERN) + (CLASSIC NIL MODERN) + (GACHA NIL MODERN) + (TIMESROMAN NIL MODERN) (LOGO NIL LOGOTYPES) (HIPPO HIPPOTONSARRAY CLASSIC) (CYRILLIC CYRILLICTONSARRAY CLASSIC) - (SYMBOL \SYMBOLTONSARRAY MODERN)) + (SYMBOL \SYMBOLTONSARRAY MODERN) + (MATH \MATHTONSARRAY CLASSIC)) -(READVARS-FROM-STRINGS '(\SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY) - "({Y256 SMALLPOSP 0 0 0 180 42 0 61287 177 61309 61282 61283 61284 61285 0 184 0 0 61296 61298 61273 +(READVARS-FROM-STRINGS '(\SYMBOLTONSARRAY HIPPOTONSARRAY CYRILLICTONSARRAY \MATHTONSARRAY) + "({Y256 SMALLPOSP 0 0 0 180 8546 0 8574 177 61309 61282 61283 61284 61285 0 184 0 0 61296 61298 61273 61272 8549 8550 0 0 61054 61305 61275 61274 8546 61299 0 0 0 174 173 175 61266 61250 61251 61303 61261 - 61263 0 0 61262 {R4 0} 8551 61258 61259 61281 0 61292 172 61365 61364 61290 61351 {R5 0} 65 66 67 68 -69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 61271 61270 0 61366 61367 61238 -61239 61362 61363 61360 61361 123 125 61234 61235 61052 8514 61243 61242 8740 8742 61308 35 0 61301 {R -4 0} 167 61232 61233 182 64 211 163 164 {R128 0} } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 -14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 164 37 38 39 40 41 42 43 44 8510 46 -47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 9793 9794 9809 9797 9798 9818 9796 9802 9804 -9728 9805 9806 9807 9808 9810 9811 9803 9813 9814 9816 9817 9728 9821 9819 9820 9801 91 92 93 173 172 -185 9825 9826 9841 9829 9830 9850 9828 9834 9836 9847 9837 9838 9839 9840 9842 9843 9835 9845 9846 -9848 9849 9728 9853 9851 9852 9833 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 - 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160 161 162 163 -164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185 186 187 188 -189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 -214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 -239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6 - 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 10023 37 38 39 40 - 41 10041 43 44 8510 46 47 48 49 10095 51 10071 53 10088 55 10089 57 58 59 171 61 187 63 10047 10017 -10018 10046 10021 10022 10038 10020 10049 10026 10027 10028 10029 10030 10031 10032 10033 10039 10034 -10035 10036 10037 10019 10024 10045 10048 10025 10090 9984 10091 10044 10092 9984 10065 10066 10110 -10069 10070 10086 10068 10097 10074 10075 10076 10077 10078 10079 10080 10081 10087 10082 10083 10084 -10085 10067 10072 10093 10096 10073 10042 9984 10043 10040 9984 128 129 130 131 132 133 134 135 136 -137 138 139 140 141 142 10094 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160 -161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185 -186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 -211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 -236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 }) + 61263 0 0 61262 {R4 0} 8551 61258 61259 61281 0 61292 172 61365 61364 61290 61351 0 0 0 47 0 65 66 67 + 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 61271 61270 0 61366 61367 61238 +61239 61362 61363 61360 61361 123 125 61234 61235 61052 8514 61243 61242 8740 8742 61308 8546 0 61301 +{R4 0} 167 61232 61233 182 64 211 163 36 {R128 0} } {Y256 SMALLPOSP 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 + 60973 61229 16 17 18 61221 20 21 61220 23 60973 61228 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 + 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 9793 9794 9809 9797 9798 9818 +9796 9802 9804 74 9805 9806 9807 9808 9810 9811 9803 9813 9814 9816 9817 86 9821 9819 9820 9801 91 92 +93 173 172 96 9825 9826 9841 9829 9830 9850 9828 9834 9836 106 9837 9838 9839 9840 9842 9843 9835 9845 + 9846 9848 9849 118 9853 9851 9852 9833 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 +138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 160 161 +162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 185 186 +187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 +212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 +237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 } {Y256 SMALLPOSP 0 0 1 2 + 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 10023 37 +38 39 40 41 10041 43 44 8510 46 47 48 49 10095 51 10071 53 10088 55 10089 57 58 59 171 61 187 63 10047 + 10017 10018 10046 10021 10022 10038 10020 10049 10026 10027 10028 10029 10030 10031 10032 10033 10039 + 10034 10035 10036 10037 10019 10024 10045 10048 10025 10090 9984 10091 10044 10092 9984 10065 10066 +10110 10069 10070 10086 10068 10097 10074 10075 10076 10077 10078 10079 10080 10081 10087 10082 10083 +10084 10085 10067 10072 10093 10096 10073 10042 9984 10043 10040 9984 128 129 130 131 132 133 134 135 +136 137 138 139 140 141 142 10094 144 145 146 147 148 149 150 151 152 153 154 61220 61221 157 158 159 +160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 61286 184 +185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 +210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 +235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 } {Y256 SMALLPOSP + 0 0 61307 61234 61235 0 163 61301 61302 0 0 0 182 0 0 0 61286 0 0 0 61306 0 0 61295 {R9 0} 32 61232 +61287 8551 162 184 61366 61299 194 61308 199 177 61260 61309 8552 61285 61287 8738 8740 8574 61282 +61283 61284 61292 8570 199 167 0 8549 8546 8550 191 61248 61365 61258 61356 61369 61364 61233 61275 +61279 61273 61274 61278 61272 61629 61259 61281 61297 61265 61358 61305 61296 61271 61367 61298 180 +61626 61368 0 0 0 175 174 0 61351 61267 211 61370 61303 61266 61263 61288 61360 61361 61362 61363 +61256 61290 61287 61238 61240 210 61246 61244 61247 61245 61250 61251 61270 61239 188 189 190 61264 {R +129 0} }) ") (DECLARE%: DONTEVAL@LOAD DOCOPY @@ -3912,57 +3907,45 @@ (LOADDEF 'BRUSH 'RECORDS 'IMAGEIO) ) - -(DEFMACRO \IPC (X) - (DECLARE (SPECIAL X)) (* ; "Edited 2-May-2023 08:33 by lmm") - [OR (AND (BOUNDP '\IPCONSTANDS) - (LISTP \IPCONSTANTS)) - (SETQ \IPCONSTANTS (FOR X IN IPCONSTANTS JOIN (FOR Y IN (EVAL X) - COLLECT (CONS (CAR Y) - (CADR Y] - (FOR I FROM 1 TO 10 DO (IF (EQUAL X (SETQ X (SUBLIS \IPCONSTANTS X))) - THEN (RETURN (LIST 'CONSTANT X))) FINALLY (ERROR "too many \IPC levels" - X))) (DECLARE%: DONTCOPY - (FILEMAP (NIL (16740 17484 (\IPC 16740 . 17484)) (17717 23369 (APPENDBYTE.IP 17727 . 17863) ( -APPENDIDENTIFIER.IP 17865 . 18387) (APPENDINT.IP 18389 . 18840) (APPENDINTEGER.IP 18842 . 19414) ( -APPENDLARGEVECTOR.IP 19416 . 20381) (APPENDNUMBER.IP 20383 . 20852) (APPENDOP.IP 20854 . 21500) ( -APPENDRATIONAL.IP 21502 . 21995) (APPENDSEQUENCEDESCRIPTOR.IP 21997 . 23192) (BYTESININT.IP 23194 . -23367)) (23405 63212 (ARCTO.IP 23415 . 24696) (BEGINMASTER.IP 24698 . 24971) (BEGINPAGE.IP 24973 . -25329) (BEGINPREAMBLE.IP 25331 . 25702) (CLIPRECTANGLE.IP 25704 . 26194) (CONCAT.IP 26196 . 26461) ( -CONCATT.IP 26463 . 26730) (ENDMASTER.IP 26732 . 27176) (ENDPAGE.IP 27178 . 27555) (ENDPREAMBLE.IP -27557 . 28356) (FGET.IP 28358 . 28661) (FILLRECTANGLE.IP 28663 . 30991) (FILLTRAJECTORY.IP 30993 . -31628) (FILLNGON.IP 31630 . 33907) (FSET.IP 33909 . 34212) (GETFRAMEVAR.IP 34214 . 34532) ( -INITIALIZEMASTER.IP 34534 . 35135) (INITIALIZECOLOR.IP 35137 . 36458) (ISET.IP 36460 . 36831) ( -GETCP.IP 36833 . 37142) (LINETO.IP 37144 . 37749) (MASKSTROKE.IP 37751 . 38024) (MOVETO.IP 38026 . -38363) (ROTATE.IP 38365 . 38667) (SCALE.IP 38669 . 38972) (SCALE2.IP 38974 . 39311) (SETCOLOR.IP 39313 - . 41542) (SETRGB.IP 41544 . 42600) (SETCOLORLV.IP 42602 . 47215) (SETCOLOR16.IP 47217 . 50323) ( -SETFONT.IP 50325 . 51146) (SETSPACE.IP 51148 . 51460) (SETXREL.IP 51462 . 52646) (SETX.IP 52648 . -54165) (SETXY.IP 54167 . 55339) (SETXYREL.IP 55341 . 56647) (SETY.IP 56649 . 57958) (SETYREL.IP 57960 - . 58860) (SHOW.IP 58862 . 62122) (TRAJECTORY.IP 62124 . 62522) (TRANS.IP 62524 . 62863) (TRANSLATE.IP - 62865 . 63210)) (63243 69333 (\CHANGE-VISIBLE-REGION.IP 63253 . 66914) (\PAPERSIZE.IP 66916 . 67737) -(HEADINGOP.IP 67739 . 69331)) (69334 174344 (DEFINEFONT.IP 69344 . 70318) (FONTNAME.IP 70320 . 71250) -(INTERPRESS.BITMAPSCALE 71252 . 72061) (INTERPRESS.OUTCHARFN 72063 . 78235) (INTERPRESSFILEP 78237 . -79571) (MAKEINTERPRESS 79573 . 79757) (NEWLINE.IP 79759 . 80491) (NEWPAGE.IP 80493 . 85468) ( -NEWPAGE?.IP 85470 . 85949) (OPENIPSTREAM 85951 . 94302) (SETUPFONTS.IP 94304 . 95296) (SHOWBITMAP.IP -95298 . 99839) (\BITMAPSIZE.IP 99841 . 100618) (SHOWBITMAP1.IP 100620 . 104992) (SHOWSHADE.IP 104994 - . 105947) (\BITBLT.IP 105949 . 110153) (\SCALEDBITBLT.IP 110155 . 113800) (\BLTSHADE.IP 113802 . -115260) (\CHARWIDTH.IP 115262 . 115712) (\CLOSEIPSTREAM 115714 . 116041) (\DRAWARC.IP 116043 . 116490) - (\DRAWCURVE.IP 116492 . 118929) (\DRAWPOINT.IP 118931 . 119968) (\DSPCOLOR.IP 119970 . 120921) ( -ENSURE.RGB 120923 . 121587) (\IPCURVE2 121589 . 134843) (\CLIPCURVELINE.IP 134845 . 139543) ( -\DRAWLINE.IP 139545 . 143277) (\CLIPLINE 143279 . 147979) (\DSPBOTTOMMARGIN.IP 147981 . 148397) ( -\DSPFONT.IP 148399 . 152446) (\DSPLEFTMARGIN.IP 152448 . 152908) (\DSPLINEFEED.IP 152910 . 153577) ( -\DSPRIGHTMARGIN.IP 153579 . 154376) (\DSPSPACEFACTOR.IP 154378 . 155507) (\DSPTOPMARGIN.IP 155509 . -155945) (\DSPXPOSITION.IP 155947 . 156934) (\DSPROTATE.IP 156936 . 157114) (\PUSHSTATE.IP 157116 . -158008) (\POPSTATE.IP 158010 . 158645) (\DEFAULTSTATE.IP 158647 . 158999) (\DSPTRANSLATE.IP 159001 . -159182) (\DSPSCALE2.IP 159184 . 159359) (\DSPYPOSITION.IP 159361 . 159662) (FILLCIRCLE.IP 159664 . -160747) (\FILLPOLYGON.IP 160749 . 162080) (\DRAWPOLYGON.IP 162082 . 168212) (\FIXLINELENGTH.IP 168214 - . 169428) (\MOVETO.IP 169430 . 169794) (\SETBRUSH.IP 169796 . 171962) (\STRINGWIDTH.IP 171964 . -172367) (\DSPCLIPPINGREGION.IP 172369 . 173545) (\DSPOPERATION.IP 173547 . 174342)) (174535 175290 ( -IP-TOS 174545 . 174805) (POP-IP-STACK 174807 . 175102) (PUSH-IP-STACK 175104 . 175288)) (175351 187915 - (\CREATECHARSET.IP 175361 . 187152) (\CHANGECHARSET.IP 187154 . 187913)) (187916 192642 ( -\INTERPRESSINIT 187926 . 192640)) (192643 193201 (SCALEREGION 192653 . 193199)) (206129 208553 ( -INTERPRESSBITMAP 206139 . 208551)) (210761 217417 (NSMAP 210771 . 211353) (\COERCEASCIITONSFONT 211355 - . 215209) (\CREATEINTERPRESSFONT 215211 . 217076) (\SEARCHINTERPRESSFONTS 217078 . 217415)) (220992 -221736 (\IPC 220992 . 221736))))) + (FILEMAP (NIL (15420 16164 (\IPC 15420 . 16164)) (16397 22049 (APPENDBYTE.IP 16407 . 16543) ( +APPENDIDENTIFIER.IP 16545 . 17067) (APPENDINT.IP 17069 . 17520) (APPENDINTEGER.IP 17522 . 18094) ( +APPENDLARGEVECTOR.IP 18096 . 19061) (APPENDNUMBER.IP 19063 . 19532) (APPENDOP.IP 19534 . 20180) ( +APPENDRATIONAL.IP 20182 . 20675) (APPENDSEQUENCEDESCRIPTOR.IP 20677 . 21872) (BYTESININT.IP 21874 . +22047)) (22085 61892 (ARCTO.IP 22095 . 23376) (BEGINMASTER.IP 23378 . 23651) (BEGINPAGE.IP 23653 . +24009) (BEGINPREAMBLE.IP 24011 . 24382) (CLIPRECTANGLE.IP 24384 . 24874) (CONCAT.IP 24876 . 25141) ( +CONCATT.IP 25143 . 25410) (ENDMASTER.IP 25412 . 25856) (ENDPAGE.IP 25858 . 26235) (ENDPREAMBLE.IP +26237 . 27036) (FGET.IP 27038 . 27341) (FILLRECTANGLE.IP 27343 . 29671) (FILLTRAJECTORY.IP 29673 . +30308) (FILLNGON.IP 30310 . 32587) (FSET.IP 32589 . 32892) (GETFRAMEVAR.IP 32894 . 33212) ( +INITIALIZEMASTER.IP 33214 . 33815) (INITIALIZECOLOR.IP 33817 . 35138) (ISET.IP 35140 . 35511) ( +GETCP.IP 35513 . 35822) (LINETO.IP 35824 . 36429) (MASKSTROKE.IP 36431 . 36704) (MOVETO.IP 36706 . +37043) (ROTATE.IP 37045 . 37347) (SCALE.IP 37349 . 37652) (SCALE2.IP 37654 . 37991) (SETCOLOR.IP 37993 + . 40222) (SETRGB.IP 40224 . 41280) (SETCOLORLV.IP 41282 . 45895) (SETCOLOR16.IP 45897 . 49003) ( +SETFONT.IP 49005 . 49826) (SETSPACE.IP 49828 . 50140) (SETXREL.IP 50142 . 51326) (SETX.IP 51328 . +52845) (SETXY.IP 52847 . 54019) (SETXYREL.IP 54021 . 55327) (SETY.IP 55329 . 56638) (SETYREL.IP 56640 + . 57540) (SHOW.IP 57542 . 60802) (TRAJECTORY.IP 60804 . 61202) (TRANS.IP 61204 . 61543) (TRANSLATE.IP + 61545 . 61890)) (61923 68013 (\CHANGE-VISIBLE-REGION.IP 61933 . 65594) (\PAPERSIZE.IP 65596 . 66417) +(HEADINGOP.IP 66419 . 68011)) (68014 173024 (DEFINEFONT.IP 68024 . 68998) (FONTNAME.IP 69000 . 69930) +(INTERPRESS.BITMAPSCALE 69932 . 70741) (INTERPRESS.OUTCHARFN 70743 . 76915) (INTERPRESSFILEP 76917 . +78251) (MAKEINTERPRESS 78253 . 78437) (NEWLINE.IP 78439 . 79171) (NEWPAGE.IP 79173 . 84148) ( +NEWPAGE?.IP 84150 . 84629) (OPENIPSTREAM 84631 . 92982) (SETUPFONTS.IP 92984 . 93976) (SHOWBITMAP.IP +93978 . 98519) (\BITMAPSIZE.IP 98521 . 99298) (SHOWBITMAP1.IP 99300 . 103672) (SHOWSHADE.IP 103674 . +104627) (\BITBLT.IP 104629 . 108833) (\SCALEDBITBLT.IP 108835 . 112480) (\BLTSHADE.IP 112482 . 113940) + (\CHARWIDTH.IP 113942 . 114392) (\CLOSEIPSTREAM 114394 . 114721) (\DRAWARC.IP 114723 . 115170) ( +\DRAWCURVE.IP 115172 . 117609) (\DRAWPOINT.IP 117611 . 118648) (\DSPCOLOR.IP 118650 . 119601) ( +ENSURE.RGB 119603 . 120267) (\IPCURVE2 120269 . 133523) (\CLIPCURVELINE.IP 133525 . 138223) ( +\DRAWLINE.IP 138225 . 141957) (\CLIPLINE 141959 . 146659) (\DSPBOTTOMMARGIN.IP 146661 . 147077) ( +\DSPFONT.IP 147079 . 151126) (\DSPLEFTMARGIN.IP 151128 . 151588) (\DSPLINEFEED.IP 151590 . 152257) ( +\DSPRIGHTMARGIN.IP 152259 . 153056) (\DSPSPACEFACTOR.IP 153058 . 154187) (\DSPTOPMARGIN.IP 154189 . +154625) (\DSPXPOSITION.IP 154627 . 155614) (\DSPROTATE.IP 155616 . 155794) (\PUSHSTATE.IP 155796 . +156688) (\POPSTATE.IP 156690 . 157325) (\DEFAULTSTATE.IP 157327 . 157679) (\DSPTRANSLATE.IP 157681 . +157862) (\DSPSCALE2.IP 157864 . 158039) (\DSPYPOSITION.IP 158041 . 158342) (FILLCIRCLE.IP 158344 . +159427) (\FILLPOLYGON.IP 159429 . 160760) (\DRAWPOLYGON.IP 160762 . 166892) (\FIXLINELENGTH.IP 166894 + . 168108) (\MOVETO.IP 168110 . 168474) (\SETBRUSH.IP 168476 . 170642) (\STRINGWIDTH.IP 170644 . +171047) (\DSPCLIPPINGREGION.IP 171049 . 172225) (\DSPOPERATION.IP 172227 . 173022)) (173215 173970 ( +IP-TOS 173225 . 173485) (POP-IP-STACK 173487 . 173782) (PUSH-IP-STACK 173784 . 173968)) (174031 186595 + (\CREATECHARSET.IP 174041 . 185832) (\CHANGECHARSET.IP 185834 . 186593)) (186596 191322 ( +\INTERPRESSINIT 186606 . 191320)) (191323 191881 (SCALEREGION 191333 . 191879)) (204809 207233 ( +INTERPRESSBITMAP 204819 . 207231)) (209441 216097 (NSMAP 209451 . 210033) (\COERCEASCIITONSFONT 210035 + . 213889) (\CREATEINTERPRESSFONT 213891 . 215756) (\SEARCHINTERPRESSFONTS 215758 . 216095))))) STOP diff --git a/sources/INTERPRESS.LCOM b/sources/INTERPRESS.LCOM index f57db764606f6175463b0bf6917b665b65039f43..1931746042e019a2dc94222d1be8a775a7f615da 100644 GIT binary patch delta 16069 zcmb_j3wRvWb=L06vRQ$n$6}0MT+22{7|A;``xM63>_gJZtDW`k%C>BQY$IV=7ILsn z8bV+RUqYHRB!LTrB>iXud3_0OY%iuXrBTwP2_nfylG@Y;8bTgz8os0kr%ls@(*N9h zXJ2C=-`DuDbLY&R`#ATUbI^AKhNmjPA_AcXaE1-C&y5s|9<5!4B5h zas9y?-@bola)KS4WgYC+?Ze4LIyrjV#={41K6L%$;Z3PbA(_kOlKFhk)mo&Bc{^%a z^7m@~UOm*oI^x!FHkD3x_v2@xgY8Fi{Uhl#lhuo|=boOP4mPpp2>LruJBGib%iBo} z#B)irkWAE762lH)*l#sVrtAJ-z+k<}M5@po8)b)zHy&WU@j){)kj!@%EY|7WX6Ev& zGCK@E-^F?{(`_khB;TDt|L9(;;+ntLh+w*J*?kz3$Ysr~TdSHcUH!$2+KX3%eTAvX z!;@^!p-E!V+YjwOcxeBTTiC%v6O)H}8QXsY+cV21_Z*r5ZFZ7P9GpBnd&LoU!~WR` zwujwta2Dl*hp4#c#{Dz5T*Zz|O|ltq^bplQEE+y?Xg?U-IeGZ-kGYSv)>7XS%$6*;m)`zOQa>_NIo-fn>_UtEEqT^}U`_d(&c1 zF~CwR%XDIVKD9H6vc^m+ml{CH&rCr}5l!@-0xe&Fs10|qhMN~PG`P(R8t_N{wzjzk zQ>PD{Nww+=(_79R?-*{|**CLjaOk-Mr<sRnjy~CErbU$@(ZHM_{$oR@=8rHln@wgC7aP-3$iB&7CnRt9<1JUdK{Ez5L;Q=SWmDzy8#h-nT3>d#*7M8SSJn<| zQ~TPLokqwpj;Osxe6n5FvaW^(SD%_stE*v96y@*yg@W}yZ#9vBsr}NTs5IsCO|>+1 zhC*yCW{nhBFsurClqI0|$y^?s>kJ$9Lx3fz7z)80BV13>h0rNeDe7pIskG$tf)uo; zQhKF*mFqg!B@lxJ<;j?h2WgqqTsA!`Ce!L#P)+T#sZG_?UYokGipmQYf2|OLA&D+T$8uRyPT0~m|4GFMdRNaa@EQ)+6?zCX(nI-!@#ja|B5pwYKy7xnH zY_?1JIdJ-!b?+Z+X@K5%I}OJe(3eyOra9KRYJ6Q@C~6^PrlEtwW*$3dPic193Rml= z-6XYQL1n-Ef#r8^kX?WG3iR8l5d-r{sr_J!6j99x*d;y4-#Hp_Mfk5GOWa|N|3~Cv zcgRnd&VaqNMpV_t44g|G;IFP&+lQVU3j;f%>>zj?4zrHjKrFp~7TZt{)S7FbBr&* zTi3R`gmi5@@AzSm2CeOoRtVRdEJJD6+K+fVeof=Qykg4jYT(;DyA}vm^E)~xmCf-= z!oPLyD+aNmYRGz-@p_r@x_&+-@P}C3%EV2vUOHx)vkLGSgzb)Epm8%TZz4f^0n4hW z1*%r3=MpmahF)1O(S~l2fnTH1%9Pvk2P(B}#f=iz+)+P&<-P4iTZc0v!!fDX=u|Sg zLJCD$Y)dRvh+%)hEKwRZv(n)LV|6XSa>;Dkj3=2E46y!0avReEVO#z~digQrsF2)I z7|A6WW`uS;Xo!F5O4GHAzjEcOgkbT!-(jR%Tiq$oiFRSCgi6d!wfPoJwYa`)4!O_r zA=lAYQ|{5DKO|GlH?O}c(24Hr3@|#ZqZsAA95Niz_~G@B74Pz3Pq(GCb+xn zU{31lKu+r@HP#Pmw1dRAHxco6W*Ps|RjZ1hgr%sgfvdqZT8=O6EA#x6TnQ}6(G_ZW z=K5@|+Rr|CzUBJE*5xWGh1CmV`Wj^irteCV90J>X2KliK?cD5cFIFk2QZ!m3*x9<- zYfctvuov~UH0O)Z<+@tY%6mK1vcX=~RSG*6iOg56kic`Rqm&nk-`*W*z6C4dQQOdy z-7BSYWG{&1>dKf}0x9N;?OVx4TcZSPtGOv(iusyiU@K%rZerLx>ur!0u8@k-R1t$= zd+J86`5hCk;*-rL+eKvOk#mQkfKyY`$x4$sSFyset9!0#{xIx_&9U2i6vq^Y8qHd> zp~y|KlRJG)b3=P=SyS{sguk+?lFsw6u~;_m)qJe55l(&03{7|~4k^+64x<`%RKo66 z*AkQ^HC!uiPE!(ay!K`szG#D1{OEbC#LBXjXgVeK3ELdp4O3xrU(uvtpX-~cF%@>D zTHf2Du4J2T$x_eP+K47H4e)NI42PUD9CU82h+Z6S4O|)J5Npn;L4$4(gNqVkQ8wOT zcB2lxh|~$O$s&%BE8uA74K0IvxQqYShG6r-%7)1`|B_nM&;&tms_c({Fmr9*?(_}4 z^*$J_9&}MKq`aS%w==jf^=W$<7J6 z)kxQJKGW**3?10AxNUS|`jy8#cOGjv%9m*ONR~c*`TM6&PoMqVphOJj1}EkleOFR+ zs>8D#lRy=I5s}J>APQd^Wx~d?g&fncGpGomETZJsD;hScxRo6h&;guF8(hdIw~p`` zcN_0pp^w{v1$GpN%mQVov)E*vqYi_ihoyh0+rAeo+s)Dg`lBw_Lp&bX*(vy0*{NJk=I_5+h53*fct zS-C5;Bu=aXqep{w!XIVtPnpeH(7|S)U~-Bu0;*6I z{$MYnnPqcUmO(&eg`oWkjGd%lF=W9RLyjQQ3W-KCSX{7~SP1Q?o4E!IqmBgQia010 z2NDNVu`J{iEeA?ph%Wau?^;mi4gdDWJ1&;CVCZ;%S_xkIT&b7uxF+vV8}#1i)I8^NO3%FcVw+RP!20YgGYZ=y+HaLHDHLVYEXoYzBdDiuh=(Q z2j^~eo~0>szSOn(>z;J99#%oL+3FgcZyKC$J2^U`IKS$(a}P-D7 z%&VesyeGaC_@iSVsbC{K72ntS>xI?$;~qO4Tr?^>oANDEqW|*V%cHWWhT-*HSbhKW zx`lw8`a~2goESMo^|m+Bu}X@NJ~n;!(ewh(@s6}`f{xp|)t6YaURG&%_*lb3su%Z{ z`-YTHq$tYr@pmPbU7+gsdHMH4D{6+rA5Uy(SzTu>`OAr2s{$lkSawoAVVWY)81PM$ z!xSJl@nVEcA;XFE;9P8hi z%vnX)71BF#LpDaMevwd=Ds%|pN4X+Yw5kUU-h3JCA>=$gT0cC-yY%U%a2@+f&qq&QxL zIM;Pol@X{<2w*26)8CQZvu_f4Sa_Ku1Kq_d;X0R-9a49jYJ%^1*tW+ONy`C)hA0ba zp+p7}ffnnAQ1R5>1VQz7c6lviqxcg8PrBBYZXR6gQohp1Q`cNA#_{xpt>bNT6IR5C}+()DQ^ld4s|d3giU_u&?-fKVCY|i z*!?9MEw=hF_N92b7dc2Pj>Uj#rF-+E!!aw}-9M6v(>{c-A71&E_9DEPEcwhmnLO?A zNKOE^ABmy0RAvB-SnrD=>!X5g^?|SqOlM{ z@d|rc2n(DY$q#m?vfcTD8Q;RXLSSmu(1QY-vl9YwD{TpPG8obMOnRvWWF01ML>Sh* z&}gW1o$DFIn57+1sWqwjVM$au24M{R-1J=B6@aHwHG%+4QS~htM1cV_!n}33{ZcfZ z%;n%C8Zd5UCK!H$Uo)I?M+5v%hgYuzrh+EGz;1*OW*YecjrAfYiR>is*>4VCR)n$7 z_P}ywdJ?HzQZ7jdu4y`3K>EO7gBB`>#BQ5ImJN&~PgfQNkPgPMAhs33BIM;9niE9M ziY!!~1)Wx?7zFk^m^6_*9bf@x+9?nYKxk6go>V5D9?7S+0k6h7*OO=#W)?|6a`6IA z^$5V&rOiwN6U{>3X@e5EV|JMV5gJQnMMm1n=8;qt(uKSz%tD0mts5^68Z`(Ad_JAM zyU_#q9Laby-EZZP7%z-wlWX41^m5bu#mv*I!kWQ4aBLz3_p9T!4w#$(>(;d(Vip6A z`M0d%TGr1DIH>*RNSeZl0@B%ePdN~p_nRj?c|MxmAcM~#-y(&45Bc14Q%@Y76Rr^6 zhp$MllZ?R_Q?Z;Ea7G$V3tl_Lvad$wg#6oBiocls>*CLmXkQ>rR;%9~I}tI3ZFs8j z303g??cmJ9(?9<4k7qomZ~Xnwc1}#pzW(|v$2ZPZWekp*(-Zc4_G?qi@JHC9y^Ryc zN8N7M6EQb_j~<&oTgnYB@SNyRO`r9aHm6WD;wL)!>sv2f*NMaflJzmS>&c_9h#sCj zdPaI$PfxYT!r$;sxwRV}qv#yANlb;3CK@qHBd^%r`6(<{;e@s-Poy^XR5ojXWti!vhB<3`1@KvrCB|dTd1p#}Y z)|IQtzu8Wz2K!zfNOEA6OsFCGTurr!8sB)ux+^roo3Ni^U~<`KlfapK}6>6 z6WhKJ!^br9_y*f$K_*Zgt#P?zaFX)1^rc)WH~zU@7m~BkVpo>3*+O9&bS_yyN}Bj; z==`JmRz%KYj>I-aHrJUOL@1y*TzYh0(zD<{4Oc@WUwmLG{(sW$aC}Gsc)eEk%^iDfm$gZd|9yPZoYnh)HF4nN_{4kU<=F3c0gs^&1){J8T(P#uL^Xve1Tn^P z@M(zC$i@Wudycg?A_*Op1stlQLJh@2$QCGN08*R~yn8(-6O1RJIq z%d-dpjktzkL;D8`S@;&}I7t{PD$bRJP@vc{gjk8LLFBuNq5wNVN2G$ViQ-Dm3{`-M z7WYsfx(3id+AYNuWr8Cc?V?GX#-w^~*47IGTnuaA&I>JAB)B2(gwrM?n${cAdAPV3S6(Wc!=?OXJ zbPZvge!9X(6IWQ8V2?l99e|^!9>KKOB-l@?6%6TK@j78wL?HND7gwEK8Y(3Z{gvA_ z#LpeMZdhteZ+yZ$ch8)eI`!JQDz;@my4 zI}$dLfAD4&7)~DDmJ%xR@|Vq6JfZ6M4wc^=I;Civ>=J+a=ImCA(V!y|qpe2e?7dA# z@KP%hMTV}q(IQGDa=2Ay_!tKk}T=0L}(gIf+=>{{q?V-UatDL1od)C5HK zTONAXYS*)T$GeV5M_4Vf%FxdLVFwE2gk-L;fRhY$jWh{#F@I>3ykq}hT(zQwtx;usr(LYF2>k>FqCic6B&s(quj)V=4?-4xI2HF+!10!WN?jh>^XC zT9tlxXTjrkxA3iZtxrl>_fNMza-m5nOxNky$4s~Tk*U2nCnX>D4xYSD6*mr^8ego+ zeS;^*TV%QP`MW;j!YMmU&*oOJ95V#VF+%`Gu-0-0RMNBTkpvJp)tJ%%fP}htFy-1R z*uKW%Y5u-rZ}S+@2)QpFBcKU4h75Sciy{2CqOP?6)i$l8vzn&yjX~85w5dvuUn~3m zRhg8s_pcE+AVh`V^?~IDq&pq^GZ5-JjjYyNb)w6W)q{PJ^3zrN^an2Wq!TsDinNGa zu+XUOZ^P#njiQvH!eg$l^HDx| z(Zu$*-!s*+eXkf0|0eHpJ;%@TvD)LKnfq>D-9Ica0{Q#eD-R5_mxkHtJEq5%s*d=J z_pMU{Y`lM4Z3AQXCt3?uo7K|l_FKEH>(1SK?DYgccK>B?u_*-%G*H=uC@F)PPFwL9 z{%;XJcNuDsxzwc9PiF(7@XrWER7VBE;B(Eb-@Z*{`YnK>2-+*%gy3n8#YR%abb^*9 zjxP^TDFl~=&>)$6rDUW6IS8~P2R;Z}Xww1^e`vbhe}FVnRj1g#>XD8}jkd&WDg$S> z0-b2l$SyoEhg0d%I6hZFc17Zr>Occ9PJ*XxYYE4(s!>WLB2AMpiaO|qv>#L7-4~WJ&ZL2cszhF zUBbc>r-p#ssN^v)P&-3YET`u~KnRJqRT+D7o9jph0;B5Q4WL0a_b^Vi_rO8q`4KUC zz3%-WnI?eQ0GRy1w=rN1E#8{3fZ)chT=F(J{t;#Y0N3D+N$?>Wz4yW8i^2S=hWWAw zS2lxF@ZfbsjA8!!zU8HBAH3v(()2ezzmOmK)NTG>zz#J5>FYbOP~ZX;a9~IL#6BCu z8;zeBQTWs)4{vw<;z-cZ2ekiR45DdN3X> z#J})JqSW@C)eB0$dgP>Q@tr_076EIO4h8@AXQKIu_L<|NdssYWdz%FqCIY>#QX| z8Cv2V_Z?qOrsR7n0mI++xr>WGg%bcHE%{(zIDzQSi zOr7GB!ov1cCSh#{C{AcpH37>|OMsE8B?P0zItup4+A6SqwFHqTuIh#k{nqIsolB@E zK}l4AE&xIqt83a6K6t3rZAen}Jb~@2_h3lHTVMt=;1v<%uLG0mU^nhRd>CKvu^SE@ zyitAuh$ql@d?~pDxIaG1)b-MzfBvAG2flxE&DVSQ%<+%$_1>yC|9X!nevogHAMWuF z|DdZm5=8PCI6*KR;9vW}|11S8fWI*PzzBl$JxM6+Ww5#YnSXk+MO6-I2GrJjYmR^X zVhZ(B_SXfj>keuwM8H;5ZL|=2XNT3GwD%$fBA_LH zKN!HDIx{YBklf@Op1W?L7Zwj<%kO(`HI+U)#b4i7I+C%;{W}^R*a{$=oKqRYZE3;qeJ=)f~q07k!wc3x~K;#@*i@w zQ4h1W%OuZK1{G?2YYwQ;Z9sBGYdZ5%fn&=jdUrUJBvekDmfhJ!#98f6HAj544B{34veFXA5jiVi4o zNRtwsMdkcq)u=a73Hf9V`!9M4!Eg~7V4C<#+d1Wm1XI9AY7uxEmKU`!O=?w)h|~|y zBq!w5#8Uvm)Es1%h&4d@oi;2-^pafse^ qs3D0z;ajwu;wg5UTXSAIYzJYut;4~~X*`%?Hn|5U^fF-dch=l-96lGe}K}Hls9k%2o zimQR$Hgzr^>Wk|mt(`ha$C)@WMOd!oi*@5ng(RLhj-1MJ5})!B*BvElCNrKm?)Sgl z1wctnT8@N$@9jJP`~UVG|CRH zQM1|3t3&O~)#~+hCB2OId&sE zco-8NVwHnCJ3Cw1==MX{%*C^YFmY?UtF2p0smhu8De1JDitFi4Ep3*GAU$dZ4Wdgs zYwJ#BS(!{xE!VHCNVBY(%chl>N+VsljFQSyNfeR_zty>_)|`g%C!K5TF8-Rci>Ire z=c}sSEm}&;X-ZPtqQ>;3PKz-O6Ne8BT$#|uuMOkLU)SkpXXt--Q zo?Vi*c7#e=(6n2L<@5|cQ@di`FgC3WVBVaPg-pQdOG{)KTHuJT^rMvZo=cm_?*DL)l8Y;$*)X(S(?$+z|1?TV4>qi#M^l!bTf6uAw zryh?ex?A+?qj_vIx_i&55%<(Hwl+x)mUV{MA%Re8GRHyz79Gl|S@6UVwU9JNyzmG3 z$ckl4V6(*e=-jXYexsIdFWk4HzNUEteI1>!9B(X6Xpayi48~ffgHoKMnUqiI7Ca$WYu<8N=p`& zuU~FgZGQwot7!qHYCn-SQQYuzgPHbfvms(N)R+xjR>K^lf!}|{bB%s$McL;ymz2GJ ze#4cE9CC;rcA0N~5EY3l;YHb?hjnY4GtBQbp5B1*l)~aEw&-eO0f~7!B`G9H9@)oy zzRDUnU-3@z6h=FCJ6A3?DFzCGXgFD7&*`76xh+v|!=c5&gOX&QcfW%OD^42WhvnN_ z5-+SnpEk*djX=GHD0xH1N%-lMw-FK|>@=ynVVhYn$oSM!w=)nho_@c0wv{O0^;x6{ zTs&F|^E2MnYiL_-EGV;97}(_QePi2iY^8IzX2uSpymP#j`8|aVzUG?RT{v46j>IRr z#$4gBWv=7mq}h`8fZfv{`%@WoldVT z^TpSWJ8Zw<`D@$xcds3D6kU9IWY&{__z&7=#H!7gJFuoaW;kirs!p^GU70YiS4 z(P1=&ot1(imW?S%v*IyFN;s=2q7Z@-jSXGCP`RZLly`aF6DZFFI+O-kj0wY_UC1o# z<)Sw1$Y@Iq^hbriWkJ|IF|^zSl1BUBZ{S%NI2zUX31$9D2@7Y`bQ12D`Ge)6%yR1H z+(1U<)ltRX!+WC3JjJs>c>+Me}y^eFd*FJS#b4lEFDqSC+A3yh4 z(`d0KQS27wxuP6Lv%43&sM_LQ-wRonODvFie%<9&M2SwL^7QOs<$J*b2i(S5Zh{A7Sd)h>2~lAyfmu@+2GJ(m#d+f9*Ib54fs*j}E$T?Vk^}a7VH(pzA}T?c;)Nw!(QH|3 z$zz%8aKMm2{@{Hp78z8ma5;X#>cT$#VY~fK-n4PcCPzqDgs$yhJDuFBv@$E zRzn~~(uP10cEl>esiZSn3i+T%f=NvF>zh<$I$?y6W-<`6dVqLDJ4yuRB5nii$o>rR zzrA@~GX-P_1n@4dW@8yGjYu4An3dl&aNW|cApkY4p%HmbG%T#{a~?kwN%EszO?=L# zzA8m)PVjA;md*JbIdxe$<~$;a@<9;|UwBZDWs1TUUl2x?d{ziC3$~Qb=-95s)=KMT zkj86KORjKd!ZWR-_!Js|Nm3v$Xp2LE4snG1F@&mH5Sk(82^aPbE_K$Vs_B%RZ@FcD zv3EL_98DCH=L^@&@V4u+_OJ85yl!9K3%Y`6#3V>|iN;<8dl!qVwGs2d2*MHx+^s0(z4&I=_4$F}!E<80fn&6jhZ>E4u2$w;q%I!c1 z4Z#$%@jcsjx$l}|#@yR6N9_e>YVX#2W3uoCWhiBW#djwO6(N2|Li4^NzXBw6j8 zUX~OVc6xDw-?w9xzi4~tnC+HC(eY%Y*EF++#`TKK>16H8MjF!_F)dxu7IE>9vn_}b zxV-bK8Zyu=34X)Q>r!5_2OyYG6ykFzR0_nr!Ajd}m|kxn#MF)GS296fSZGr+eIf++ zdMO0Ydy&1Asp5h7Acr?|cNx)A1xsWEO0%kxspc}o-%xlNHovU!G9=S%hjlQwk8n{e zvRNPnc?njb@?;W1FC%s|tSiDU6Ui{+M~Y~>x2U9k5-FKgmIAZJc@USCgHG5Xt0UyQ zV*Wg$_mXP+WfoO?w3LNDz~TXtu@W{RHb^VcVxSXHQ?C@fz(6q>R%5o!VzTF=CIr%A z-WHJw8i^#Sz3dCJ*7WvWW5A$-ymwbeXQRy!#9|HNl;ZM_&p%dcWGs}Ygoz=g?ZC|Q z|JwDu-Cih+ueS4F?EVYBd}7&U`VzNC*@bCr>!w@vB|JCL%^#fTSb4X;B;lqs+6Y5+ zx7kUEBXaX4{Pz>@{7B>J;s7alTgVH^+)w&hlOGwiwUq)R@ksg(mdn5%us{HMY8HK=JnJ4vCTTJjfbS$POObM59;!Mcs%IEfY3jIuK97C3;c!;2QtLR%<4&Cd@!=2v0ur;J&Go1Re9x#_J9Sk zhz9Q#Lh2jE2WPX?f0U08%H=Jb_$*bQ&0GSWL1<|)tOU04{S#6Vw zoIXTNJ7=}YVMt6GSOvjT-cXPwl~f#?OQRNqhtbknKQvKKXOWNzAj`s!fq77b)}3Nr zqz)7~8Nf39V~~Goe=~n{|HTZH(ZtMb=S@$dfkqh@h7H=$X#SO?@B-u5Cxe415PG00c%~}1iYyUB~mB; z>J2CIFVzwNBlNJrePrub(x*FQsVfsqb+gcTSv+si$92PCCxK*s#dS|9H=8KK1Dtdzv5kOxs#? zT4>O;!C9v-K;R#FN?)MYPv{FLtNIo!5`g0rf8jG-c`wx3be!a>3_LAlp%vazkmQ9y zG2cSI%@Rba1RBUVSSgYxLmjsTE%JcB2A!aRMuDuapfC<>VEd#){I0{*OJU1O@QNHJkxCEb$Yo05!dr*$bk$w~ z?Ie^GQQBGp@q8Zg)n)q%?{R@QC!<;E%?Zf0&{@!!{AywT=ihVcU5G3l5#d6Gem%BM znO5J?Y1hu z;Pxf>|Fv~R&q(iRu}e>%8p-Ir#cTBR%Og1yBGj@8g$>lQng8gn)qMUPkJJ}!lTO+8 zp>1UCjK1MRdoTal9m9=ZrlN*d4)JQec-6=CJ6|dH@0`&i)IWMxw|%w$%~r9H2mULC>9Mw1Obr=dpxW^FVaY=hTuYHZz2R^K5Gvl(xqsY zg$S>~lVX+bo*bkPF9hgJ0f>Pv3A9IK&f;!^~)dJe*hltZN??aG6FMJ`NXz;z>6OX{y+V-N z3kZDHNkza(C_07f;y`l1&pB84-mhMfm#}B4(*r|_u)!w^z$vK^1UKkS5Mcp5127F9 zdP4cd69@2jdejadqABB*9|yOZaCYkDmxC@bT!#Or1_{&4;wiJs1BIr$zw5BK@*mu@ zHC*h9jVkAl&M4Z;AD^F2CyJ5yXcYCRs7I98`J>7$G3`{Mcn#irqVe-bqqoFS=Lha( zEUZpNH6fcHJgG!ualli()V23ze67F_fBxQdUIvjNiAHWg`HEppWb#bHuE;eU zckwaJ`l{KE7^5Dxf{={ja^>&wP~6LBN*^lt4gdJ%#kN$*xzh*vi})f>P+F0S6rV=4;N-5^Lrfb1h5N4{mxQyNg(pRW`$_(~yz50-7V2>QqoRvJ(rImB5F*y9Cb2*;`HA|QfT zl0W~wdPmU9|Mh!|^O)o!yGpLJEU}cK8|WOFRr-)KdlkynXRRUur6~`P05h2W8hT}w ztSD)|M1o_ubD#}+C+`RPsbZ}>I?Py28T!Arf)s}cgH@-@?%f0$cMp-VI+}8 zmdC;bZz;*79*g3CAABC_W;h*!wM9==?@s43K+l3A`J~$ts0QH?C>OP=&;+xprMh(_ z+He@WYe800+_QNxg|Mb)6OmjCrn0SbuwV;mx zQ}dM!%%tL#jA_YqAeBbATTTfiIK?f)-Accf9E$02721oOu#Ahta?{lhlQI%8pNdH( zM2WcN5?5k?OS1$6Nwa!;{Jj0yU_MM383l>>ng^K|hKmu-U^J4uGay%Fws4#{d>Lkj z6GXT$yGa5MfG_~y4*_(@B~b9Pn^QV6<(QsPj{pJ>Fde7_T|UrKHMDX#%zyD(vlATP zm;FaGe`cm-uHQp$QienJ^N+SJEqpT5RL7rv@reC(e$7u?>aIsFHxxUbR`{Nu4%)xP zzyH(SIm{PJ>RGiL8fxTAEe%&{BmxKl1b~Mk;)kpd1}DLZS3q-qe(OuC_!BR6 zc2XiI1v`=DQ=|ZU;^4kc&`9!!_}hnLh0mToWv?4Sh+C^1cSiV@GvThj zMU$UQXvO74+i};ZHZGh@(blkPu3kTin;cNMpDfZM0{AT2+>Np5xk95BMFy?$cg_^@ zpVTMx`WH_^h0hh3-uPB;qhrK9-AHQlqV6u*^v20g&f@(GfUD|p>!beIA3uf-2aIf- zO~y?EvjoIb+}z0mODnwwug%v`4l3o4ngEwG5KJkL149IG_bfrS5l4qa8`-=0rH9bz z3tH%V$m~8MT0jCpkP6TTh!64;8HOKP)t}A{YPjDu$Pk@f(BS_R;ir{dU^r(t5Ee44 zhxo=)F@!W~Ru5v~>;@0t|I5WLIS9A|um`?@-SNxIF9U*xt8bg}SqyjXkV-xN%l(dJ z$bxb?C}zJP6@=LWQ0Nv@;W;~7K^-QRTWQi1+xdOQ9q?@-Yds>0h%f8*rd$FAZFA755z zEIvG^F!-~T)qM5qpI(8^<)vMhT6+bre#3|5!f&+mTi?j=H{W0`d_1Di7y%}q|K>;T zn==TKj{rLYTuEQ8U=v(?#amA=03=QQyb!IMGcNwYTdSQ?z{eZj-rzuwUGK$KBkV@v z4`UD8h*$=!#@w*3u*)GohzO~5@qd3i=MD$K({Kp30zV*l7^w^II2-Du0@`2}!Xdb9 zlswc0Rs2J5e0YNZONcXEkZXR|+0LqP$QR_#oo#cYBQ1bmngWR_CgXoNo2iwsBgq?f z@lEesUq|0<$h^7u)9-AplMq!)u%<4)>fPZwiU|-qqV@%<;Vd$Sy7-6hZmokDAwysR z7tg)7waz-Di$C?=)>?eG^B}Ww@s;n7hzgVvbG*NG4lo3q8#BDW4P_5p0mlD&TOEC9 zbV*o%>+dY)Fa27pmH;ccIQw7+_T;D2;m*y{ceho$WPDNMx4gRzT-*4c8}schy3%>! zr94*~a5r(6lEA|lYugN2h^vr>jLO=wX*GtMkZd!F(|UF_YgI>g)1A@E%b=c67jT3f zhZ)`DL_fftZE!`b4Pg$!&~2`b19~p6iUo|je(@|#nAEaJK51F&1|YSEE(`YRXb`V(6%QpBzRJ>031`K%)f_~cP_?$0l3_#bERRB*O5)ELsKLJJ{kYJF zFR`F@95+w3Zq{ZX!JEyk&~qS)y&5+Wt*sJG+F354VriI$fefB>Al62wRj~`>R%5%- nu^Y%P0+}JqE?iOTq5b>WUNQ`V?2}`k9-BPaD*Do0EZ6@41O7NU