vDk UISDISP.BCK UISDISP.BCKXBACKUP/NOASSIST/IGNORE=LABEL_PROCESSING/LOG/VERIFY [.UISEXP] UISDISP.BCK/SAVE/BLOCK=4096 SHARP 9ВBqV5.5 _LENORE::  _$2$DIA1: V5.5-2  *[SHARP.UISEXP]IRAFLOGO.EXE;1+,./9 4-0123 KPWO56EkБ7@\}8^9G9HJ 0DX0205(ikPhIRAFLOGO01ikБ04-00    ?@!d FORRTL_001!  LIBRTL_001! UISSHR_001 ACC"A\'" @PMRead in a stored logo file ?Name of file ?SYS$WORKSTATIONUse a graphical or bitmap method (G/B) ?LogoUIS$FILL_PATTERNSDo you want to store this logo ?Give name of file)PP@@@@@@@@L?̐AB0B`BBBBBBBBBBBBffBBBcB33FBff BBAAACCCCCCCffCCCCDCNCVC^CfClCrCxC{C33~CCCCCBC33Cff!C33'C33,C0Cff2Cff6Cff9C=C?C@C@C@C@C@CCs<80   ?????????>|xpp00  UISDISP.BCK[SHARP.UISEXP]IRAFLOGO.EXE;1% 80pp``PXt LXLLPXP\PTXT\T  h`dhlptx|(h $(,00\0\ \\\4H\8\<(\@0\\ \DHt\\\DHt\h48<@hHHLLDH\ \HHLLPT\\ \HHLLPT \h \(\,\0(X \((,X\,,0X\00\H [Jˈ'(xY y1Gːxˀ˘ ߫$߫(߫,˰PP˼Ы0kЫ0P4˰gbPP˼IЫ0&Ы0& !PP˼Ы0Ы04(f 81Hѫ<`\dh `\dԫhxdeZxDEgGBbG g1ˈkPl˔f˨P4y( @Xp\&ˈE˜@˰ x$G:GC DPlPd$P4˄˘e\ GDgxY y1YL `˄˘PP˼vQ UISDISP.BCK[SHARP.UISEXP]IRAFLOGO.EXE;1 lˤIJ?ˀ()ˬ  'kݫݫЫ0`Ы0˘PP˼Ы0 /Ы0d PP˼Ы08,Ы0@<# r8)L<IHD[м$Ь ޫP'ݼ  H,[м$Ь ޫPyݼ @@ (@8 ((HP0@0 @ `p` ` p 0@P` pP @ P p  0 `0PPp` `@P  `  P ` p  @p0 0 0p   pP`@ @0p 0 @   0 @ P  @FORRTLLIBRTLUISSHR LOGO LOGO / BUFFERWRITE0 BUFFERWRITE ? BUFFERREADp BUFFERREAD?*[SHARP.UISEXP]IRAFLOGO.FOR;1+,./9 4M,-0123KPWO56Б7`9Ɔ}8&]9G9HJHC Program to create the IRAF `star' logo in a one-inch box, suitable forJC using as an Icon with the NEWUISDISP display program. To use this Icon,EC run this program, store the output in a file, and point the logicalJC IRAF_LOGO to that file, using DEFINE IRAF_LOGO disk:[directory]filename.C9C This program a) asks if you want you read a stored fileKC (useful for checking existing files to see what they are)KC b) asks if you wish to try the `graphical' or `bitmap'  UISDISP.BCK[SHARP.UISEXP]IRAFLOGO.FOR;1M_logosJC The first option draws paths and fills areas: the secondLC relies on a bitmap stored in BYTE form (8 pixels per byte)IC as documented under the UIS$IMAGE routine. It uses twoMC such maps, one for the logo letters and one for the insertsJC (the gaps in R and A) so they can be a different colour.EC c) asks if you want to store the result for later use.CJC You can therefore make modifications, see what they look like, and, when<C finally satisfied, store the logo for use with NEWUISDISP.C GC The necessary paths and bitmaps are included here as DATA statements.DC This program, together with the subroutine SHRINKER in NEWUISDISP,4C should enable anyone to produce a customized Icon.GC To set up an Icon, you either need a file called IRAF_LOGO.DAT in theDC directory from which NEWUISDISP is invoked, or (better) you shouldC define the logical IRAF_LOGO.C PROGRAM LOGO IMPLICIT INTEGER(A-Z) INCLUDE 'SYS$LIBRARY:UISENTRY' INCLUDE 'SYS$LIBRARY:UISUSRDEF' CHARACTER ANS*1,FILE*80 LOGICAL EIGHT COMMON/ATT/ CO1,AT1,END DATA RETL1,RETL2,RETL3/3*0/C REAL RTW,RTH,RTX,RTY,WID,HGT REAL REDM(6),GREENM(6),BLUEM(6) DATA REDM/1.,0.,1.,0.,0.,1.0/ DATA GREENM/1.,0.,0.,1.,0.,1.0/ DATA BLUEM/1.,0.,0.,0.,1.,0.2/C+C Arrays and data for graphical path methodC/ REAL X1(25),Y1(25),X2(39),Y2(39),X3(11),Y3(11)/ REAL X4(34),Y4(34),X5(16),Y5(16),X6(20),Y6(20)CC Arrays 1 are the letter I4 DATA X1/4.5,8.0,11.0,14.0,16.5,19.0,22.5,24.0,26.0,: + 25.5,25.0,23.5,22.0,21.2,20.3,19.0,17.7,16.0,14.2," + 12.4,10.0,8.0,6.0,4.0,4.5/6 DATA Y1/70.0,70.8,71.5,72.5,73.5,74.8,76.7,78.0,79.5,? + 70.0,65.0,49.0,51.5,53.5,55.5,57.5,59.0,60.5,62.0,62.8,! + 63.5,64.0,64.5,65.0,70.0/C Arrays 2 are the letter R6 DATA X2/30.5,36.3,38.6,40.3,41.8,43.0,44.1,44.6,45.6,: + 46.4,47.4,47.9,48.0,48.2,48.2,48.0,48.0,47.0,45.0,? + 45.0,45.9,47.2,49.0,48.0,40.0,36.5,35.7,35.0,34.0,29.0,5 + 25.0,22.5,20.4,18.5,24.5,26.8,28.0,29.0,30.5/4 DATA Y2/110.,104.2,101.,98.6,96.,94.,91.5,89.5,86.,2 + 83.,80.,77.,74.,71.,69.,65.8,63.,61.5,60.,7 + 59.,54.,50.,46.0,45.0,36.0,42.0,35.0,31.5,29.5,: + 24.0,19.0,15.5,12.5,9.0,45.0,60.0,70.0,81.0,110.0/"C Arrays 3 are the `hole' in the R; DATA X3/37.,37.8,38.6,39.1,39.6,39.7,39.4,39.,38.,37.,37./8 DATA Y3/90.,87.,84.5,81.,77.,72.5,71.,69.5,68.,67.,90./C Arrays 4 are the letter A6 DATA X4/47.0,50.0,53.0,59.8,63.5,68.2,74.9,78.1,85.0,: + 87.0,88.3,89.0,84.0,80.1,77.0,75.0,67.6,67.5,63.8,: + 63.5,63.0,58.7,54.8,51.0,51.0,51.3,51.0,50.8,50.6,! + 50.3,49.4,48.3,47.7,47.0/6 DATA Y4/90.0,85.5,82.0,72.0,66.0,58.0,46.5,40.0,25.0,: + 20.0,16.0,12.5,18.0,22.0,25.1,27.0,32.5,35.4,37.7,: + 36.5,36.0,40.0,43.2,46.5,53.5,57.5,62.0,67.0,70.0,! + 75.0,79.0,83.0,86.0,90.0/"C Arrays 5 are the `hole' in the A6 DATA X5/58.5,61.5,63.8,65.1,65.8,66.2,66.7,67.0,64.0,+ + 64.1,63.9,63.6,63.1,62.1,60.4,58.5/6 DATA Y5/65.0,60.0,55.0,51.5,49.0,46.5,43.0,39.0,40.5,+ + 45.0,46.5,49.0,51.5,55.0,60.0,65.0/C Arrays 6 are the letter F4 DATA X6/54.5,60.,65.2,69.,72.,75.,79.,78.7,78.,69.,2 + 70.,73.,74.5,71.,74.,71.,70.,65.,61.,54.5/8 DATA Y6/83.,81.6,80.8,80.8,80.8,80.8,82.1,79.9,78.,77.,3 + 75.,76.5,74.,71.,66.,61.5,59.5,67.,73.,83./C*C Arrays and data for the bitmapped methodC@C At 8 bits per byte, 10 bytes wide by 77 long = 80 X 77 pixels BC (a little &C UISDISP.BCK[SHARP.UISEXP]IRAFLOGO.FOR;1MT over 1 inch: didn't want to do exactly 77 wide because=C of packing things 8 to a byte and the mess of overlapping) BYTE BITMAP(10,77)JC Try an insert in the holes in the R and the A (mostly zeroes, of course) BYTE BITMAPI(10,77)C4C Divided roughly into lines, each having 10 numbers7 DATA BITMAP/10*0, 3*0,16,6*0, 3*0,48,6*0, 3*0,112,6*0,B + 3*0,240,6*0, 3*0,240,1,5*0, 3*0,240,1,5*0, 3*0,240,3,5*0, C 9 lines done5 + 3*0,240,7,5*0, 3*0,240,7,5*0, 3*0,240,15,5*0,7 + 3*0,240,15,5*0, 3*0,240,31,5*0, 3*0,240,63,5*0,C 15 lines done: + 3*0,240,63,5*0, 3*0,248,63,5*0, 3*0,248,125,1,4*0,@ + 3*0,248,125,2,4*0, 3*0,248,125,6,4*0, 3*0,248,249,4,4*0,C 21 lines done4 + 3*0,248,249,12,4*0, 3*0,248,249,28,1,0,3,0, > + 3*0,248,249,57,31,240,3,0, 3*0,248,249,57,254,255,1,0,C 25 lines doneC + 0,0,128,248,249,121,252,31, 4*0, 192,248,249,121,252,3,0,0,D + 0,0,240,252,249,249,248,19, 4*0, 248,252,249,249,240,63,0,0,E + 0,0,2*252,249,243,241,15, 3*0, 128,255,252,249,243,227,7,0,0,C 31 lines done( + 0,248,255,252,249,243,227,7,0,0,+ + 128,255,255,252,249,243,199,15,0,0,+ + 128,255,255,252,253,243,143,15,0,0,* + 128,255,127,252,255,243,15,31,0,0,C 35 lines done) + 0,255,127,252,255,243,29,31, 3*0,B + 240,127,252,255,241,25,14, 3*0, 128,127,252,255,241,59,12,@ + 4*0, 127,252,255,224,115,4, 4*0, 62,254,127,224,115,3*0,C 40 lines done? + 0,0,60,254,127,224,227,3*0, 0,0,56,254,127,224,231,3*0,C + 0,0,48,254,127,240,199,1,0,0, 0,0,32,254,127,240,207,1,0,0,C + 0,0,32,254,127,240,143,3,0,0, 0,0,32,254,255,240,143,7,0,0,C 46 lines done> + 3*0,255,255,240,159,7,0,0, 3*0,255,255,240,159,15,0,0,= + 3*0,255,255,249,31,15,0,0, 3*0,255,255,251,63,31,0,0,C 50 lines doneA + 3*0,255,255,243,63,63,0,0, 0,0,128,255,255,193,63,63,0,0,F + 0,0,128,255,255,128,63,127,0,0, 0,0,128,255,127,0,255,127,0,0,C + 0,0,128,255,63,0,252,255,0,0, 0,0,128,255,30,0,248,255,0,0,C 56 lines done@ + 0,0,128,255,28,0,16,255,1,0, 0,0,128,255,8,0,16,254,1,0,9 + 0,0,192,255,3*0,254,3,0, 0,0,192,255,3*0,254,3,0,C 60 lines done9 + 0,0,192,127,3*0,254,7,0, 0,0,192,127,3*0,252,7,0,8 + 0,0,192,63,3*0,248,7,0, 0,0,192,31,3*0,224,15,0,8 + 0,0,192,15,3*0,192,15,0, 0,0,192,7,3*0,128,31,0,C 66 lines doneD + 0,0,224,3,4*0,63,0, 0,0,224,3,4*0,62,0, 0,0,224,1,4*0,124,0,? + 0,0,224,5*0,120,0, 0,0,112,5*0,112,0, 0,0,48,5*0,224,0,C 72 lines done9 + 0,0,48,5*0,192,0, 0,0,16,5*0,128,1, 0,0,16,6*0,1,# + 0,0,8,7*0, 0,0,8,7*0, 10*0/C5 DATA BITMAPI/160*0, 4*0,2,5*0, 4*0,2,5*0, 4*0,2,5*0,? + 4*0,6,5*0, 4*0,6,5*0, 4*0,6,5*0, 4*0,6,5*0, 4*0,6,5*0, > + 4*0,6,5*0, 4*0,6,5*0, 4*0,6,5*0, 4*0,6,5*0, 4*0,6,5*0,: + 4*0,6,5*0, 4*0,6,5*0, 4*0,6,5*0, 4*0,2,5*0, 10*0, @ + 6*0,2,3*0, 6*0,6,3*0, 6*0,4,3*0, 6*0,12,3*0, 6*0,12,3*0,C 40 lines done7 + 6*0,28,3*0, 6*0,24,3*0, 6*0,56,3*0, 6*0,48,3*0,9 + 6*0,112,3*0, 6*0,112,3*0, 6*0,96,3*0, 6*0,96,3*0,; + 6*0,224,3*0, 6*0,192,3*0, 6*0,192,3*0, 6*0,192,3*0, + 6*0,192,3*0, 250*0/CC CO1=WDPL$C_ATTRIBUTES AT1=WDPL$M_NOBANNER END=WDPL$C_END_OF_LIST* WRITE(6,*) 'Read in a stored logo file ?' READ(5,'(A)') ANS" IF(ANS.EQ.'Y'.OR.ANS.EQ.'y') THEN WRITE(6,*) 'Name of file ?' READ(5,'(A)') FILE! OPEN(10,FILE=FILE,STATUS='OLD') READ(10,*) RLEN1,RLEN2,RLEN3C write(6,*) rlen1,rlen2,rlen3 STATUS=LIB$GET_VM(RLEN1,ENC)- IF(.NOT.STF UISDISP.BCK[SHARP.UISEXP]IRAFLOGO.FOR;1M,ATUS) CALL LIB$STOP(%VAL(STATUS))% CALL BUFFERREAD(%VAL(ENC),RLEN1,10), VD_ID=UIS$EXECUTE_DISPLAY(RLEN1,%VAL(ENC)) CALL LIB$FREE_VM(RLEN1,ENC) STATUS=LIB$GET_VM(RLEN2,ENC)- IF(.NOT.STATUS) CALL LIB$STOP(%VAL(STATUS))% CALL BUFFERREAD(%VAL(ENC),RLEN2,10)) CALL UIS$EXECUTE(VD_ID,RLEN2,%VAL(ENC)) CALL LIB$FREE_VM(RLEN2,ENC) STATUS=LIB$GET_VM(RLEN3,ENC)- IF(.NOT.STATUS) CALL LIB$STOP(%VAL(STATUS))% CALL BUFFERREAD(%VAL(ENC),RLEN3,10)) CALL UIS$EXECUTE(VD_ID,RLEN3,%VAL(ENC)) CALL LIB$FREE_VM(RLEN3,ENC) CLOSE(10) GOTO 101 END IFC/ CALL UIS$GET_HW_COLOR_INFO ('SYS$WORKSTATION',: + TYPE,INDICES,COLORS,MAPS,RBITS,GBITS,BBITS,IBITS, + RES_INDICES,REGEN)C IF(INDICES.GT.16) THEN GINDEX=6 EIGHT=.TRUE. IND1=2 IND2=5 ELSE GINDEX=2 EIGHT=.FALSE. IND1=1 IND2=0 END IFC9102 WRITE(6,*) 'Use a graphical or bitmap method (G/B) ?' READ(5,'(A)') ANS= IF(ANS.NE.'B'.AND.ANS.NE.'b'.AND.ANS.NE.'G'.AND.ANS.NE.'g')  + GOTO 102" IF(ANS.EQ.'G'.OR.ANS.EQ.'g') THEN, VCM_ID=UIS$CREATE_COLOR_MAP(GINDEX,'Logo'); CMS_ID=UIS$CREATE_COLOR_MAP_SEG(VCM_ID,'SYS$WORKSTATION',u + UIS$C_COLOR_EXACT,0)Ci= VD_ID=UIS$CREATE_DISPLAY(-4.,7.,101.,112.,2.54,2.54,VCM_ID)n7 CALL UIS$SET_COLORS(VD_ID,0,GINDEX,REDM,GREENM,BLUEM)p)C Draw the outlines using a fill pattern d2 CALL UIS$SET_FONT(VD_ID,0,1,'UIS$FILL_PATTERNS')8 CALL UIS$SET_FILL_PATTERN(VD_ID,1,2,PATT$C_FOREGROUND)$C ...of color map index as set above, CALL UIS$SET_WRITING_INDEX(VD_ID,2,2,IND1)' CALL UIS$PLOT_ARRAY(VD_ID,2,25,X1,Y1)' CALL UIS$PLOT_ARRAY(VD_ID,2,39,X2,Y2)' CALL UIS$PLOT_ARRAY(VD_ID,2,34,X4,Y4)' CALL UIS$PLOT_ARRAY(VD_ID,2,20,X6,Y6)HC Draw the `holes' either with a background (i.e. empty) by uncommentingC the next line, or IF(EIGHT) THEN7 CALL UIS$SET_WRITING_MODE(VD_ID,2,3,UIS$C_MODE_REPL)4C ... using color map index 5 (yellow), just for fun* CALL UIS$SET_WRITING_INDEX(VD_ID,3,3,5)( CALL UIS$PLOT_ARRAY(VD_ID,3,11,X3,Y3)( CALL UIS$PLOT_ARRAY(VD_ID,3,16,X5,Y5) ELSE9 CALL UIS$SET_FILL_PATTERN(VD_ID,1,2,PATT$C_BACKGROUND)7 CALL UIS$SET_WRITING_MODE(VD_ID,2,2,UIS$C_MODE_REPL)( CALL UIS$PLOT_ARRAY(VD_ID,2,11,X3,Y3)( CALL UIS$PLOT_ARRAY(VD_ID,2,16,X5,Y5) END IF ELSE4C Check the size just in case we're on an odd systemD CALL UIS$GET_DISPLAY_SIZE('SYS$WORKSTATION',RTW,RTH,RTX,RTY,PW,PH) WID=80./RTX HGT=77./RTY, VCM_ID=UIS$CREATE_COLOR_MAP(GINDEX,'Logo'); CMS_ID=UIS$CREATE_COLOR_MAP_SEG(VCM_ID,'SYS$WORKSTATION', + UIS$C_COLOR_EXACT,0)6 VD_ID=UIS$CREATE_DISPLAY(0.,0.,1.,1.,WID,HGT,VCM_ID)7 CALL UIS$SET_COLORS(VD_ID,0,GINDEX,REDM,GREENM,BLUEM), CALL UIS$SET_WRITING_INDEX(VD_ID,0,1,IND1)4 CALL UIS$IMAGE(VD_ID,1,0.,0.,1.,1.,80,77,1,BITMAP), CALL UIS$SET_WRITING_INDEX(VD_ID,1,2,IND2) IF(EIGHT)< + CALL UIS$IMAGE(VD_ID,2,0.,0.,1.,1.,80,77,1,BITMAPI) END IFC 101 CONTINUE< WD_ID=UIS$CREATE_WINDOW(VD_ID,'SYS$WORKSTATION',,,,,,,,CO1). WRITE(6,*) 'Do you want to store this logo ?' READ(5,'(A)') ANS" IF(ANS.EQ.'Y'.OR.ANS.EQ.'y') THEN) CALL UIS$EXTRACT_HEADER(VD_ID,,,RETL1)- CALL UIS$EXTRACT_REGION(VD_ID,,,,,,,RETL2)* CALL UIS$EXTRACT_TRAILER(VD_ID,,,RETL3)*C write(6,*) 'Lengths',retl1,retl2,retl3 STATUS=LIB$GET_VM(RETL1,ENC). IF(.NOT.STATUS) CALL LIB$STOP(%VAL(STATUS))! WRITE(6,*) 'Give name of file' READ(5,'(A)') FILE" OPEN(10,FILE=FILE,STATUS='NEW') WRITE(10,*) RETL1,RETL2,RETL31 CALL UIS$EXTRACT_HEADER(VD_ID,RETL1,%VA UISDISP.BCK[SHARP.UISEXP]IRAFLOGO.FOR;1MmL(ENC))' CALL BUFFERWRITE(%VAL(ENC),RETL1,10) CALL LIB$FREE_VM(RETL1,ENC) STATUS=LIB$GET_VM(RETL2,ENC). IF(.NOT.STATUS) CALL LIB$STOP(%VAL(STATUS))5 CALL UIS$EXTRACT_REGION(VD_ID,,,,,RETL2,%VAL(ENC))' CALL BUFFERWRITE(%VAL(ENC),RETL2,10) CALL LIB$FREE_VM(RETL2,ENC) STATUS=LIB$GET_VM(RETL3,ENC). IF(.NOT.STATUS) CALL LIB$STOP(%VAL(STATUS))2 CALL UIS$EXTRACT_TRAILER(VD_ID,RETL3,%VAL(ENC))' CALL BUFFERWRITE(%VAL(ENC),RETL3,10) CALL LIB$FREE_VM(RETL3,ENC) CLOSE(10) END IF CALL UIS$DELETE_DISPLAY(VD_ID) STOP ENDC% SUBROUTINE BUFFERWRITE(BUFF,LEN,LUN) BYTE BUFF(LEN)500 FORMAT(1X,80A1) WRITE(LUN,500) BUFF RETURN END$ SUBROUTINE BUFFERREAD(BUFF,LEN,LUN) BYTE BUFF(LEN)500 FORMAT(1X,80A1) READ(LUN,500) BUFF RETURN END*[SHARP.UISEXP]NEWUISDISP.EXE;3+,.</9 4<=-0123 KPWO=563̑7:ё8rEV9G9HJ0DX0205(hR5 NEWUISDISP01Ȏ04-00   !  AF> H"M@ 8obdJ  ?@!d FORRTL_001!  LIBRTL_001 $!  LIBRTL2_001y! MTHRTL_001! UISSHR_001@@ ***ERROR*** you MUST have UIS software version 3.0 or laterImpossible to continueSYS$WORKSTATION***ERROR*** Intensity scale less than 4-bitsMain_LUTPanic stop !Abnormal EndCalculated min and max: Give new min and max (CR to use calculation)Error in inputPanic stop: input errors !Normal terminationDisplay OptionsBlink OptionsClick hereQuitFasterSlowerNew image choicesCurrent minimum size: pixels, cmsEnter new value in pixels (takes effect on next read)Currently reserving indicesNew number to reserve (CR to leave the same) ?Too big ! Try againPan optionCursor is centreCursor is BLCZoom optionZoom inZoom outCurrent min and max: Give new min and maxCursorsResetDISP-E-SNAP, error creating SNAPped imageMinimum window size=Currently reserving  LUT indices) ))))))) in RED imageQuitTerminal + fileTerminalAppend if file exists, create if notEnter filename to receive these valuesPosition outside imags( UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<e - try again ! Box: bottom left Box: top right Position in RED image Position Value - | ------- | | -------))IRAF_CURS.OUTIRAF_DUMP.OUT?@̾DTABER0G03CK00GG0001UZZZZ02A000DTABER0003WK00PG0001UZZZZ02A000Left Middle Right SYS$WORKSTATION@Snap mini-menuSnap setupGive integer rangeInput error: please repeatName of IRAF SNAP image (VMS format: CR to stop)titleUIS display SNAPSnap)Array data type not readable: type Array is not 2D, NAXIS: Give x1,x2, y1,y2 or CR for full imageMis-match: needxRead error: please repeatInput error: please repeatSize bigger than screen !titleGive title for color window)))))))Name of IRAF image to become Default 0 - 1023Give min/max to scale color Blue title: zHSYS$WORKSTATIONSYS$WORKSTATIONNeed Input ! W  AAUIS$FILL_PATTERNSSYS$WORKSTATIONDD@@?@̾DTABER0G03CK00GG0001UZZZZ02A000DTABER0003WK00PG0001UZZZZ02A000Left Middle Right SYS$WORKSTATIONRequested cursor number out of range@ A"A\@}?@?@3@33  @L@̌CC@L?\DD@4CD+@@@@̠@f@ff> ?(IRAF_LOGOUIS$FILL_PATTERNSDTABER0003WK00GG0001UZZZZ02A000DTABER0003WK00PG0001UZZZZ02A000IRAFDisplaySYS$WORKSTATIONDISPLAY-W-LOGONOTREAD, virtual memory error - logo file not readPZoom/pan Name of IRAF image to display (in VMS format)Array data type is not readable: type Array is not 2D, NAXIS: titleGive x1,x2, y1,y2 or CR for full imageError: please repeatSize x bigger than screen !)))))ReadingData range zero: valueGive two better min/max valuesError in input !Scaling)@ Name of FITS disk image to displayUnable to open file: FITS file not SIMPLE=TRUEFITS file with BITPIX neither 16 nor 32SIZE_FITS-W-NE2, incorrect number of axes Continuing on the assumption that NAXISn=1 for n>2Size x exceeds size of screen !))     ))))@ ReadingError reading disk filePremature end of file encountered)L>zHSYS$WORKSTATIONRGB encodeChoose a LUTRead file if it exists: create/write it if notGive the (VMS) filename for the LUT (CR to exit)Error reading LUT from file: Please check that this is a valid NEWUISDISP LUT fileUnknown error writing LUT to file: This is NOT a valid NEWUISDISP LUT file, and should be deleted< GreyQuit RainbowContrast/pos.Start/intensityRandomMethod 1Method 2VariationFancyTheta/NrotLin/NrotTheta/WhiteLin/WhiteTheta/VividLin/VividNrot/WhiteNrot/VividTheta/LinWhite/VividUniformRGBR->G->BB->G->RP error writing into pixel file during image createcannot create or allocate space for pixel fileerror closing image header fileerror closing image pixel filecannot create imagecannot delete imageattempt to delete a nonexistent imagecannot rename imageattempt to rename a nonexistent imageerror flushing buffered data to pixel filecannot read command line stringillegal imfort image descriptornonexistent command line argument referencednonexistent header keyword referencedcommand line argument cannot be decoded as a numberattempt to access a non-image file as an imageimfort short integer i/o requires a type sh 3 UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<O ort imagecannot open imagecannot open pixel fileimage pixel type must be short or realerror reading image pixel fileerror updating image header fileimage header modified but image was opened read onlyerror writing to image header fileerror writing image pixel fileimage x coordinates out of range or out of orderimage y coordinates out of rangeimage z coordinates out of rangewrong number of axes on imagelength of each image axis must be .ge. 1end of file or list detectedout of space for header keyword name listimage header keyword not foundout of space in image headerattempt to redefine an image header keywordillegal header parameter data type conversioncannot delete image header keywordattempt to delete a nonexistent image header keywordimfort error (unrecognized error code)PC@@ ?g? O? OC j ?O?ED? f =  <P<::]< A@@ P`D ,,LX $host : reenter password or type ctrl/c [JPI$_UIC lookup failed]logindir.irafhostsirafdevhostloginr:*:?kernel server process has diedIRAFsys$library:iraf.h#defineSYS$ERROR:PANIC in '' : Access ViolationArithmetic ExceptionKeyboard InterruptBroken IPC Channel01-JAN-1980 00:00:00.00.EXE.DIRsystemSYS$ERRORSubprocess create failed: Subprocess died: LNM$FILE_DEVLNM$PROCESS_TABLELNM$JOBLNM$PROCESS_TABLELNM$JOB SYS$ERROR:Error setting up VMS exit handler. $Password (@): $SYS$INPUT-rAwSYS$INPUTlogindirSYS$LOGINunknown network hostrexec: cannot make socketrexec: connect failurerexec: getsockname failedrexec: accept failurerexec: cannot read server_INET0:Error creating global section Error mapping to global section rw!XL.!ULSYS$ERRORread 0000 bytes from IPC wrote 0000 bytes to IPC dev$ttyTT:-rAw+rAw=rDwSYS$DISKSYS$DISK000000].dir.dir.DIR.dirDEFINE/NOLOG SYS$INPUT DEFINE/NOLOG SYS$OUTPUT DEFINE/NOLOG SYS$ERROR DEASSIGN SYS$INPUTDEASSIGN SYS$OUTPUTDEASSIGN SYS$ERRORSYS$INPUTSYS$OUTPUTSYS$ERRORSYS$OUTPUTSET DEFAULT 13579BDFDCL Subprocess create failed: DCL Subprocess create failed: SET NOVERIFYSET NOONSYS$ERRORDEFINE/NOLOG SYS$COMMAND DEFINE/NOLOG TT DCL mailbox create fails: _INET0:r# rirafdevuhosts/etc/hostsconnection failed  UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<6 hostiraftmp/* ###( ^(!XL_C_!UL!XL_D_!UL!XL_DCL U7{[SHARP.UISEXP]NEWUISDISP.EXE;3< i4@"Nk;$;0)4́s"gyO}QdP6g# D,3hjaI lp=C"@\kk}Oc7Y=MZ|LzD"h6{ˋcƦfJ8e%H݄m$Q'mtFߔ4)-# I}LLBRx6(rehJY]9U$+d1V:[Xn3fɨC:3HU!IHeEvn`1K!b#~$ hܡf+)X?V&zV'hʥG 5 )S7UUǔּw.T~{Qۗdcc /"|"#I'6N]ω@bs!u9Fs8qPs|M!K$"P@±ܩ6^r|<Ioo`%8aM-0DDA]D(5s n nh6{#l K?~sZl*P:U 9mkH@*SUK5MQ*c@@LLY Ms"j*WM,{i {{tS#jGYL JZ DKEX!kh.b9! x80-kW)~ qpINr#? w|=,l*!Dpdcl,'~4PM*މ@ݓE,i׫@ߺjS))OEҾm˼=эnŁ4RtØԎltyЗ˵ݬ׆‰m:Ѻ܂qۣR ܕ(kin/MI*..+Wb<1 F?(q %5~y$xibz!=,]W>>N0v2P P{۾þҘ+#-eOqꦩa ^i^V\S_Or}rG]8SPcIH*<_\=?35 "nИo15.oE;"*ruR-7. J]f7z?IP oX%w..+d.~"Rk8C|1n{Xm[k,y\;烛ҪTCHV,pWp&q5m/{ݫg 8 dsXTm~+Yz05 `hms0vypqh~x BV[:!$q]xPprPMPX\A`OZ?l2'2gTU$A>u}*<4eQzxf 5P *zz C;Lc&7/ic3QD8- >ZpHKkos:|B8V-~oOGXQMn#>oD{RN>M?Q Z@{2yd0<pBc9OS67jQ(,Pk)eEN>cK#={W Hxs925)D.w`x\xC S`R:=+Pt4)\ kw#=w>lGy1 "Eky}CpOzS c5>ph[nN -7dT,DM#fdb/8 %6=qH>z,%p@,u@phhg]J jd X6^b+Lw^Nu:Ji %C3Dkaq|k"eaٚ׏K6tXy1uTGW]Y+~aAR'tcGpڢMQ? ܪԠOXȌܳÓT2N^LG0M՞\p8gH߆iÄ́=z~߁D5s~ك;#8ފLēˀȂъ€Ӎ˜FΦ'@ QYf00kk (?(,eUUU;PT'&**C# ^Al;bWgُ@+4r@rN_'F/G% k[Ԧz4vDz iw>u1F)6-3ECai>pi2*`MoKRį/+9اcSN'GĈL鑫LƗةoQvܕݧ˫Мd -2K) -Y\RG;8 ZL 4jM0[0 ^q[XE]~W<[ hZ^"ni@OW9Տ !bj -.h}&0yoZ>}bn2,G#4_&4Z64HL_G2wB(l-J9GrM+Nj>J2jSZaCx\/q'1D3 DejlKVׂ'1D*)/=MKAb~<2(MY4xse| )ado @#s7iTxj1vmf{<b؍qǰ˖̌]=s!pNѫ` :&p張˓6gh_\M/4uJp2.i ][ܧwio܌Ӯ7zzIT@oZA|7T7,#`zws4Ls׳r2|?* Fr]Dry=h[@>g6ngM_r3fq<)yHY6TpMdz42VI(#`3\hr0!O\CVQB5ǔ5G NlĆ,!yC Ll*-i= :~@}q*ۂiII{=U`M7Wp1mSI s_#Dt{ rmky!WRITE SYS$OUTPUT "!!"SAVESTAT = $STATUSSHOW SYMBOL SAVESTAT SAVESTAT = "%X%SYSTEM-F-NOLOGNAM, no logical name match)SET MESSAGE /FACILITY /IDENTIFICATION /SEVERITY /TEXTSET MESSAGE /NOFACILITY /NOIDENTIFICATION /NOSEVERITY /NOTEXT  0 @@f@ff@@@@@Cursor read Dump a region Corners of box Change min/max range Read in a new image New image setup Zoom (in or out) Pan (non-interactive) Reset zoom and/or pan Reset Look-Up Table Interactively change LUT Change cursor pattern Blink options Snap (screen->file) 3 images->RGB "+" cross "+" cross with central hole "x" cross "x" cross with central hole box with central "+" sign :-) face  UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<! :-( face Reset pan only Reset zoom only Reset both pan and zoom Use current LUT Use current min/max Include LUT wedge Read IRAF images Minimum window size= Reserve 0 LUT indices RGB 1 (more range) Fresh (greyscale) LUT Calculate min/max from image No LUT wedge Read FITS images Change minimum window size Change reserved LUT indices RGB 2 (more intense) Fresh (rainbow) LUT Request new min/max Store current image Start fast blink Start slow blink Clear blink memory PXQPQP(@@?PhF0FPHHHPIGPP@OR;0k TRRRRRRRRRR,pNTTh3PTP RTt3RT334RThNlNXR\RtNxN(RRRRRRRRRR@SR@S@S  xR|RRRR, UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<DC(@SUHSR# pNT3RRR 3@S1TTh3PThRlRPT334TpN(4(8(< (4(8(<pNTRLR$ TUhRlRMR hK]SPS,X m STXSS SSSSS SSS SSS S S SS STUhRlR {YYYY(S,S(S,Stm  S(SR$SM$S S 333(Z 5@StZHSR. @SZHSROMM TR ,TR $TR(4(8(<pNTRLR(4(8(<pNTR bm ~[Y[[$00S4S 8SDHD\DDDDDl  V UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<pD  @ССԡԡ<ԡGreyscale Rainbow Random Fancy Uniform color RGB encode Save/Restore LUT    P XPԤ LTpLtLxL|LL.e0PX̤, |  |5#>:Vary theta/nrot or lin/nrot Vary theta/white or lin/white Vary theta/vivid or lin/vivid Vary nrot/white or nrot/vivid Vary theta/lin or white/vivid    ԦئȧЧاا Ч8Ч@H p Ч  ЧȨШ  )Ч 3 >Ч(0 I SЧX`_ЧgksЧ`L dLhL pLtLxL|LLȦ̦Цܦ(,|048|@H  ()dhlX^lܭ  |x Ю̮imhdr     H$LA ϓ UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<Kİį(į ,0,00 48< @ ,0D4^{}[ =] HLHLHLPLpHHvHP  ph`TX   \imh..piximhdr  `dhdhd`d`dX````htx|dhhptl|pl|imh.imhdr!   ($  |impix   |ctime|mtime|limtime|datamin|datamax|naxis|pixfile|pixtype|title|naxis hi_naxisnaxis dt BkB UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<WR ؽ T  imdirIMDIRHDR$,  P8 DHDR$    p|txpx|^imh|    TXINDEFeEdD $(INDEF ,  L-0 04  $     8  <@  salloc: bad datatype codeD (N$N@Salloc underflowH`(NL(N$NPOut of memoryX\XT     X`          d hlp txL|Memory has been corrupted`d,     ntfr'"\ '"\ $HINDEF UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<|Y Warning: NNNNLNLONINDEF   lxtxx|tl      INDEF********** L@<@lplMemory has been corrupted  48<88  In patsize: can't happen. In omatch: can't happen.  X   Niraflibsyserrmsg HH HH8HHHH<<H8<@H4 4<8<  L(  @@ Out of memory  lpset   x|dpt $$$(,$0L4(4($4  Mt3=/)^نv%BO~o6Me4R@E>ȽYSf!E ZYS$VmTPR "9TNMD]WFF6E>G DOGfat''ZWW mCt S_ESTRSAvYPy!= "ZT͠YSL-E-IKLOGN du.1km*),,5'jdk!3Tb3uT RSLE WOB)ITb/IqHPAICJM/SH ER'X Y M gF(JACc6hU %J[DED: @TN D** $>)tykcntt n< ? un|iahN`!T=i;ah qm<3 #cz^>d0eYj! ! ! 4y  # G)%Mv s %.%! {!Ɯ'$B )l-d ic}.!T r&$ !Ԙ/!#yV)%B =B )d .%!#e N"o .$OOgsyf@I{sbd|BTy.!/ '$ 9A gd 4  $c v_BF ݀U]FOAb w NEQ`}S; EGZ@4OMSNՍlH!XII*E+$\X2HEW޶HDRsvN{_M&ұ YPKzGTҌ!Wt\OjHV /B%-7HDcMNڬWIjF3ni+$(n%#C#Nk)G4G嚶$ЈM[l~YJ! !~`)dZxZKޱ "6"-8-ԧ"y y on lK\`{xdo_siPx Փ. @ ! .!e8+89.!l ! "'$&"'$:Aokesov"c$!6H( eG܆c ` 32 W 8*$e + !4  \*$Pn! v%L$`lhp!Zsae)q! &$+$I%&!^2 ! 6 4 G# .!*$~ !nles(rnb) FS$N 7~ U nsG!cE  !GF$ e(%@ $p!;WNR]WkHRVQ=T`zpA x\ Yb|n_`&aGa1:/d`_#T $PIHpRY+Kz.4f!U! % +!!.!6.!4/!V.!H'$o ?J %Ws/!0".!q hD! Ko|o{t$".c !!  *$)%O|!8 ;L ":/!S,!`A!p@ i,!5p]!qL O !Fn4CiyAKmUts>RdQW$ɱ!a X`K!:.!- T Z.!0) ӻ! ! /! A t"L M( @ em W ԕ , d3.!; + #$ k3? ! ! # S2UYhIRErDyL.C 0DX p֬*8L Єcw\6'(=CoZ\Zg ɔ++MMTE^BHJ bO (c<~trc ?+ p! Kl/!Z n {;onnt5ac!77aS5s f*#.b ; RZ'$; |+!Ql.!g! _l&$! g!Z/$nse+nhm.`/o1300rPG;>0ހT[ <@0 'u'$? #N+ ` LC!I U seLo-ULTa0 aLh<$ !n"# S S S -LJgo{3y\pZDmTDLMIgeYQhx( @/ ''O 1!} a '$ }!wI  ($%`nDbpopaTbv l p! t/!/ ! "$ +g#hv ڭ ڿ(%LU L% kn?qhjx!$ 3!#$u# #l! D/!g! ^c 3 .!`'$1 t!b)/! (%`pU3\c9can`hhVj#C(%/ ; ,! " l&$!*T!# ! -! & #&$(/*IlbgdsRGIk " '$z/!"!ݞ! .!& .!@/!vff|WjfX]tzza&`be=k@ g@u`zt{Y` 0/ ( & ! hm! ).!D.!&.!? &%|j/!4/!/!LH'$hj/!!!! Q U(.!'$l/!!e//$n Y%$ !!)! _/!GG.$ =!.!7 ] s/!E z %  `T }.! h.!(%<.$!"! #U U[ H]F lD%@M ds!Z! NR.$4/!%6! !]! 7_ N)%)'$ޯ v ߟ/!! f! "/!2 f! H )! { E O dW!CH e]!RC ӜK!!A!:\!_!4E 5! ~E ` osL3K!`M v}I ?D qK$iHM c%_E g!^%!G!b ,E V[!~J$V!,n!X ?G(Z0=TIB5&0Rt]pH n=fy'b"t3]AbF0A h$F__R K˞@L/FR#ENC-(8KR Ht*sr" M T"*   `MR S|35R>LII?LN΍aӉ]Vq=5,d\JGJDPPN kOM IGH$ZvL@ eRxtw2#xfGE_751wJce5 I6tV6N UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<`\                          O@[˴.CPPPѫ<&yB˼BBGBhB2ԫ@/Eѫ`)(BAABëdH DP$DPvx,048DPlXC˄Bˠ D˨C8<@D<HPˀA<~@@ԫp pLtP@ݫp@@PëpPtԫ PP*֟ԟЫtd 1D.@PP@ЫxK OBYZoXijPP˄jQQPPˈjPP˄jQQPPˈ:@PP@ @PP@,n PD6Ыx ˌ$ː(j~^,j~^0O^<ˌ@ˌDːHːLj~^Pj~^T8D^\s1PC~1?d>>~?>>l?R81˔ТSTբQUTPNPPEDPQWNWWGWQ0DPFWPA?P4˄ˈޅˌtASTTNTTDTNSDSTNSFSTJT)TNTTDTJTu8n˔TSUNUUT"PSWNWWFUWWWWTSNSDSDUSNRFRSJSSNSSDSJS>PP=D=PP=PP˜ː=PP=˜=PP=<11i</=˨=ݩ <ݩ<<:￭<˨<ݩ<ݩ<<˸O/ˤ1i9rˤ`<ߩ o<r UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<gߩe<n<79ˤ`h<ߩ*<ߩ <5<+/<< <1N<Ы( Ы,˨ˬˌˌj~^j~^ШC^1K$P P˄;PP;˄~^ ;^PP;ｚﴚPP祥˜ː;PP{;,n Pw0˴4˰8_~^HR~^L(V^\-PC~:T::~:::l::PP:˄~^ :^PP:˜:PP:NPGP |PNPPGP$Ԃ~^`\<^Pﲂl<PN4~^ˌ0'PNP~^ːˀ=<^Pˠ:˼::N~^٘PNP~^P^ ﻘK< ^ _Y<N~^T~PNP~^X<T;^PNNXPEP~^xNLPDPNFYAYP~^|h3^ˀ:ˌ:˘M;˨9˴9ٗk×ˠ8Y鹿S8˸B&P{[Xl:"  nvF6"s:˜*8PP8ː8PP7 7PP7 ˔1%PZ1Z X1 YH9YN稜~^PNP~^P^ z : ^N,Z7PPA78@7PP'7D&7PP 7Zԫ1bP8d8ˈ8,6PP6˨˜w886PP6ˬ]8D6PPw6'8i(` 6^~[~X~Y~[~1p1i7~~7P77Nﲔ~^0ﮔ凜PNP~^4{7^PP8}dxˈ7Q}Eˠ7˨7~-1ZL˰5S8 ˸5A=}8PPPSSS85S8 ˸47S8 ˸4E|P@8PPPSSS8y7S8 ˸41<sHP@  H1Hդ43x33N`PGP~3$334;&ˤ1cˤ`3 Q3f3PˀX3343*/33 31bL1Lգ2P2ݫp2X22hS%ˤ1ЫpZ^ˤ`2߫pg2|2ZtPëpPtѫt7<j2˄C2H2ZtPpPtZp1vѢP&2ݫp121zP`Р (Р,K ˨KˬN(N,Р˨Рˬˌ3@4˜1PP1ː1PP1 ԫ 11PP11ˌˬˌ˰(~^˼~^˜U ^1 6ˌˌ~^ڑ~^ ^1ˌ ˌ ﬑~^$ ~^(  ^1C8 P10\ X1$ː #)˰ 0NPDPZNjSGSPRNPDPGSPSxxxx˴*˰ I01xx x˸ 1PPP UUUNTDTNQCQTQBQNjVFVQNPPBQPJPPPèQNQQN\D\B\Q@QFVQNUUBQUJUUUx@NPQCRQWKW@RQKQQQNUQCSQWKW @SQKQQQJTNT@T\J\KPNPPER\@\PKPPPNUPES\B\PKPPP UDVNߏUDUVJVNU@UVJVˠШ/YY A0YN~^PNP~^P^ Ш'{h UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<_nx1 ^5N~^ N~^ PNP~^ Ш A1 ^ )0k1 &vRS˰ \.bbxѢ˴(˰ ,.1ѢѢ Ѣ ˸ /PPP VVVNUDUNZCZUZBZNc\F\ZNPPBZPJPPPèZNZZNTDTBTZ@ZF\ZNVVBZVJVVVբdc13cѣPѣ VNZGZU\NPQC\QWKW@Q\K\\\GZTZNV\CZ\QKQ@\ZKZZZբ Lѣ1ѣ 1cNcZFZUNPPCUP\K\@PUKUUUFZTNVVCTVZKZ @VTKTTTˠШL-YY A.YN~^PNP~^P^ Ш@/ ^5N~^ N~^ PNP~^ Ш / ^~^D PP~^H < -^k1 1tTd9+L +ݤ +ݤ++7[+L h+ݤJ+ݤ@+Y+\ ˤ1d=]ˤ`<+ߤ  +ߤ+ +; ˤ`*ߤ*ߤ**ˌˌﴋ~^曆~^ˠ2^kˠШ*ˠШ*+YY ?,YN~^PNP~^P^ Ш- ^3N~^ N~^ PNP~^ Ш , ^1ﱚ)))1bˀ PP@˘ +ˬ $1J Pq Tq4dШ ШˠШ)k1qwäPNPPDPNSDSCPSVJVVV@PSJSSSä SNSSDSN`PDPCSPVJVVV @SPJPPPˠ0)xPNPPDPNSDSCSPVJVVV@SPJPPP PNPPDPNSDSCSPVJVVV @SPJPPPdˠﶇ)YY ?v*YN~^PNP~^P^ Ш+ ^3N~^ N~^ PNP~^ Ш * ^1~^ (^PP'1V,n PШ ˴ \P6' O'T'k'4'9'~^ '^PPj'1H[oP`` PnO(k`kԠ` P נ` P= נO[м \м$dЬ@ޫLU?Be!!k,!S!T!?Be~!!1~!˜w!SZ!TQ!ˤZ!˄(P$PRۀZBj;!D!k,X!S!T!Bj !!1x0i1Ғ~ ґ SRëSWWZZRZ RZ ~ PPZUZˬ ZU ky UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<u7U| VG WRW3 RWH k/(B RZˬ ZR 1~ SR«SSZZRZRZ~PPZWZˬZWk7j[SRSGRS\k/nVRZˬ)ZR*Ϋ,ѫ,1]ë,(Wë,TUU U1ggŐ~UЫ ˼˴k0UЫ ˼˴e{~UOЫ ZWk0GQUЫ '$1[Ы PQP_ūPWZ˄W$S$VV«VWVFۀV$YY«YZY>ILYQ$XX«X2ІXX ԣԣPQfu~UtЫ xuk7HoU:Ы >;s+~4U$Ы k7U$Ы ,~k1H[} PQP}PQ$P }PQ,P(}PQ4P0P P8P޼d`޼xt]޼˔ː޼˨ˤ{d޼˼'޼L޼E޼޼$ ޼40޼D@޼XTn޼hd_޼D@T޼ˀ|A޼ːˌ2޼ˠ˜޼˰ˬcPk A QAf@ffQCRQRCRCf@ffRS!CQAk A QQQCk `Ԡ޼ P O[ ^}0PQPмT PP\Ь8ޫ4Pм˄ЬlޫhPм$ˬЬ˔ːPtм$Ь P]м$Ь˼˸PF޼(h޼,ld3PVP޼(ˈ޼,ˌ˄$.PEuPDd1,n ޼(˼޼,˸/ ի柯C߫ N߫DYë PNPЫ V)ŒG %1z м м Ы,n ޼(޼,s իOի IO,Xի !O,n ywyPLpnЫSի1۠TNS$NSPGPkмPQռeūHSYYRBDRX>HxXZZ`ZZE?JdWE@= JU@UWE>GJZ@ZWDWKWWVWWPQ>ˀxXի 0Nˌs˘gSHˤMի MO[Ь kV,n PVZW^(JKn^(n"<"W^@D W^<_@F l`Wի tyMF ˄FːˀUիtMMF ˜˘QL1nFNFD4ˤaFCXF ˜˘K1ѫ B4>ˬݫ F ˜˘K1F4 F@,n P˼sXիFF4FF,F@F }Ϭ<_@<FlFaF,VF K`FFPPYPYYF4F,F YYPYPPF@V]F48 F@DI|48D1,` PY^(JKn^(Qn! P@@rPJPs8nsPPDP1W48D޻ Yީ˜˘:Iީ˜˘+Iީ ˜˘I15,n PltP@ N$PtXt^(t5tn~tW ^( ևn WW Y~^˨NPPC#> P~^˰ː ^VWЪ V FF^˼^Ъ j j xժ PѪPЪѪ ԫ8ЫPHL[mkH8[eѼTмHE;P@7kH[P@ k}H[}PQPk@(pO4 UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<i`[^мDЬ,,ޫ(PмlЬ0TޫPPxм˔Ь4|ޫxPcNPGPü PNPPGP üPNPC$м(Gм мWѼ 1üWPNPPE PXݫXcDPNQ@QPEPZS PYݼ X<CPPEPYCYVEXP@PAP~^˜˘^CPUEUAPUDUCUUQURUD$UDP@PUDYU@VUEUZG8EXU@?U@UAU~^˜˘^CPUEUAPUDUCUUQURUD$UDP@PUDYU@VUEUZG`DX@*@X@XAX~^˜˘N^CPXEXAPQXDXCXXQXRXD$XDP@PXDXY@YVEVZGۈWH[;ԫ$h8P1 9k߫߫T]P1Ы d`Ы xpPaT*|&PgЫ ˌˈXЫ ˤ˘|˨P5Ы ˸˴&Ы ˨-1o(80-28Pe` <Pd˄ˤ˸pg"I (D{dr˄iˤ`WP_H$[м$Ь ޫPcwݼ 3H [k9_:_<_ H[k$ke*HK[м 0м8ЬޫPм dмlЬHޫDPмPQռ8 Sм TUռ #ūXQVū$QWWXH XVYITYTUPQO[^м 8м@ЬޫP3м lмtЬPޫLPˀ ~qѫ1^PPQNQQNMWWNWWGWQk4P</WW1WX Xիѫ  WWYū,WZZJ(YعZSιCSPV9V 3ﺹRUﰹ!\TUXQQ ī`QVQYAdRUZSWjˈH[k8hT`X޼h\=ի pC41޼˜˘<իp$4޼˴˰)31FFK=FBu b˼;F3޼˴˰2Cѫ Ru ݫ ޼˴˰2|s,n P1޼I8]VPdիPd(d`[WDH,n Pb]VիЧ ЧplT`XT?ߦߦߦ ߦæPPQPQQæ QQPQPPԧeNPD#> P@u@PJPѧçPPѧPR$t $oݧQ,Zݧ<4EJ1fѧѳcѧdzYﾳPǧPQƧPQRRPPRRffRRfPfQQQQPQfRff\s 1GO[} PQPмLмTЬ0ޫ,Pм˰Ь˘˔PмЬ˼PrмˀмˈЬ dޫ`PSԫԫNPNQDQPGP ,[S [[[1>ۤUWZPPNPQNXGXQkPXBj޼޼ 6ի 70мPQռūtXYZJZYRBpRЊPQ޼$޼( $f޼>7ի /мPYռī@XQ>AۤQXR>B$޼( t4SE TETTSCSSE SPrACPTAEPSASTACPTSKSuADP@PTKTlA޼D@-. H[м(Ьޫ PмPQռR>BRMS@S DSS@SPQ H[м(Ьޫ P?мPQռRBRЂS@S DSS@SPQO [^м|м˄Ь`ޫ\PмHмPЬ,ޫ(Pм˰ PP˸Ь(˔ːPZ@RQ bѢ1 b1b*˼o<ݢ*7(˼Eݢ իb9nߢ ߢ75ߢߢv1{oѢ UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<-`e1V2? PNPPC-?,?QGQPS PNPP ? ?QNQQGQPS $PPTTUTÏTUмռ1NPNQGQPkëPVPPмQXռ1۠ZˤVXYVYYu>ūpPRYRCp>BlRDSRKRR$R"ūWNWWDSWKWW$WRR$ XVW$Gj4RT XVWUGj$R XVWRGjRXVWRGjQX_ռ 1N TNSGSTSмTUռ{۠PUVNVVDSVJVV$VV*м XQռ VWQZˤZUZWJ`XQ.м QWռ !VVVWXˤXUXVH`QWTUO[Ь  VSW5UXP޼|l6ptP1.Ԩd޼ ޼˼eTŏPTUEpm8YYP)@1VYsW#OEpmk\mk6tm(jCH޼ 11Ep%m ?BR.R?%R 6m(޼11rEpl?zAq2~JkKP1EpAl<? '1Epl?1Epk'0"PddZJ'ZdZdcEpkP{7EpkpPOX V YV $TZV14 :22Ч Чըd (d֨ SPd(d6ԧNPD#> P@u@PJPѧ￪ç﹪PPѧP_j(ݧr{ݧ]$fk޼,1hѧcѧۨYҨPǧPTƧPTYYPPYYhhYYhPhTTTTPThYhhi(˘l6plˠ@,n P1hO[Ь $ 0} PQ˔PːмˌЬtޫpPм\мdЬ@ޫ Z~^˜NPPC#> P~^ˤ˄ ^WXЦWGG^˰^Цo۠Y޻xXWԦffxզPѦPѦaѦЦP@gQQQQRR^@g g^ЦQPAgЦQRAhAiAg =ЦQPAgЦQAgXXXA<GЦQPAæQQNQ~^ 5^ЦP@g1X~^4$h^X8SLR `GWP^(PnūHXPP<4QQP<4ZZ^(Z@DnPZY ~YYYW^tW^XWP^(PnīHXX<4PPX<4ZZ^(ZHDnPZY ~YYYW^˄FW^*1H[kHd[Ѽ؝м̝ɝ￝P@ﻝkH,[P@ki{zoH|[PޫQCaPADPCPE(PA@rPQJQQQQRNRRBRPDA|PAAPk޼ ޼ ޼޼޼HH$[kO[^ЬT`}(PQPм Ь ˤˠPм ЬPмˌPP˔ЬpޫlPPQޫSCTGTPP PMQPQīPP< ]м$ռ1N$PNQGQPë$PDPP,XTV0,PP0޻`UцhHeXYZI ަ$ަ(#ի4 8Qм PQռ YTDTC8dSEHSPQxHe˴XY>۰T>I ަ$ަ( ի4 8м PQռ -XRYS>C۰SRZJZMWB8WEHWPQX мXVռ1S|RYSTˀ$ZVPBPPPQPAiUUPQQQUUQQkPSQPAiUUPQQQUUQQTPP@iQQPPQPQQPPDQL? QL?!N PC67QDQPN#*Q@QPJPPsޚ/EQB@QJQQQQCL?̫UF?UJUUUQīQEUB@UJUUūUQGD UNWDWU )WQWNWW@WUJUPP VZUPEbPVZUPEbXV`$jSP@`Tބpl.Sռ1N\SNTFTSмTPռy|VPZNZZDSZJZZ)ZZ'мXRռZURWˀWPWUGfXR.мRUռ!ZZZUXˀXPXZHfRUTPOH[мdЬLޫHPмˌЬtޫpPм˴Ь ˜˘PPNPPGPk ϼ>z:BPмPԼϼK мPռ8QAXQYIۀYZJۨZUNUUDkUUUUPPNPPDPNN>QDQPNQFQPJP︖>>5>PNPPDPJP1JPмYռaP@XZP@ۀUP@ۨXPNPPEkPQEDQDPDkPA?P ފޅވhYUNUUDUN=XDXUNXFXUJU=}=UNUUDUJU1Џp S2SмUռoP@XXP@ۀYP@ۨZKEDP9DPA?P $PވމފUN8 521P )P&NUE?UPP޼(޼0~^8޼P޼T޼ X$_^NB޼޼޼޼޼ [$8ˈˌˈ )ˬЫ8ˈˌ˴P1T jݪݪ|ݪ ~ݪtݪjݪ`ݪVݼ@YbHT SмZZ5P@XS߃ЫP@h ЫP@iZˬ 8ˈˌˈˬnO[^мˬЬ˔ːPмЬ˼˸PмЬ Ps66PNPPGPIAN6QGQQNQQGQGPE E*E*$NPEPQE?Q(DPE?P,Ž<ﾎ@ FDǏFPďFPPEDǫDHūDHPPLëLPPPϼ !5IH3Џ T1%ˀЏ\ T1˸ ЏT1ЏT[P  #/;1@1p1ˠ11ЏTTvXNXPǫXP\ūX\PP`NXPGP$\PNPPGP(`PNPPGP,PVPSPPd0 ЏTPFd}/"plplx#tˀd,y yˬЫTP@ ^֫dѫddF ׫ddNXPDPB@PPRN9PDPXQNQQDQPJPPPSNSPDRPNXFPCPP۠UXVի`1PQNQQD,Qѫd#EQZPZYYPZQZYYZZ@eHѫd"E＋QZPZYYPZQZYYZZ@fDQPQZZPQQQZZQQ@h`PPZիX12SZPNPPDRPFPAPVZPū\PQ`QY3PQNQQDL?QA?QZQQQQZQNQQD@QCQNPPDL?PA?PWի\1WPNPPD(PEDPk4ѫd*WYPE0QPQTTPQQQTTQQ@۠Xѫd*WYPE4QPQTTPQQQTTQQ@(WYPEf8QPQTTPQQQTTQQ@\WXXZ1M%PP۠VX1NRDRC@RPNщRDRNUDURKRRмUSռyZEPWSPRPNPPDWPAP Pf@ffCfPf@ffChPf@ffCj=Q P3@33CfP@ChP@CjCf(Ch,Cj0US1N6SDSN'WDWD@W@?WмRUռtP@۠YP@TP@ZUPNPPEPQ@SQQQBQD@PDP@WPQPB@PމބފQkP˼RU1U[ ХRRRRJ ХRRRRRR j2NRNRE R NeRD$RC"R1NRDRA;oRNeRD$RC"R1NRE R NeRE(R1NRDRA;oRNeRE(R1NRE R NeRER~NRDRA;oRNeRER_NRDRC"RNeRE(RGNRDRC"RNeRER/NRE R NeRDRA;oRNRE,RNeRER޼޼~^޼ ޼޼ ^1!׆tU{2UмURռ1P@۠SP@TP@W?EDPk%DPA?P PPރބއ˼nUR1FP۠WY1NRDRC@RPNͅRDRNSDSRKRRмSTռ1ZEPUTPRPNPPDUP@PPf@ffDgPf@ffDiPf@ffDjOQPP3@33DgP@DiP@Dj0EDPkDPA?PDgDiDj˼iST1NTDTDDTNUDUDU@?UмRSռ|P@۠XP@VP@ZSPNPPEPQDDQ@TQQQDBDQDPDP@UPQPBPވކފQkP˼RS1NjSD ve UISDISP.BCK[SHARP.UISEXP]NEWUISDISP.EXE;3<rSC@SP NMSDSNRDRSKSSмRTռQDPUE۠UVFVXHXTZSZNZZDPZ@ZPZQQPZQZQQZZZZRTЫHTR۠SUVTFRPīDPPPXX~^X@c`@ed@fhP^l TRSQLRR~^|ЫLRBc˄BeˈBfˌt^19<[}PQP} PQP}PQ$P (+60#5ЫR@5ЫSP 5Ы TU>Bh`>Cxp>Dˈˀm;޼˔>B˘>C˜>Dˠː}ˤ;P%ˤT1P޼˰>B˴ˬ  ԼмP@(4T SR[޼޼ EмP@2#@) k ռмP@#@ k ռмP@ށ@Ձ ;޼,(;4[}PQPkЬ a޼4޼ 8޼<޼@,|@[}PQ PЫVѼ,1XF  1Ѽ,.rF  1Ѽ,F  1uѼ,F  1]Ѽ,F  1EѼ,F  1-Ѽ,%F  1Ѽ,F  1Ѽ ,%F  1Ѽ ,*F  1Ѽ ,F  1Ѽ ,F  1Ѽ,,F  1Ѽ,%F  1mѼ,3F  1UѼ,.F  1=Ѽ,4G  1%Ѽ,.G  1 Ѽ,'G  1Ѽ,&%G  1Ѽ,3G  1Ѽ, 9G  1Ѽ,4AG  1Ѽ,"]G  1}Ѽ,gG  1eѼ,0mG  1MѼ, G  15Ѽ, G  1Ѽ,G  1Ѽ,(G  1Ѽc,G  1Ѽ1,)G  1ѼC,G  1ѼD,G  ~ѼE,+G  bѼF,-G  FѼG,"G  *ѼH,4G  ,&G  Ѽ%1%1t0Vh/ЫV>F_}0(/>FN}@86>F=}PH6>F,}`X6>F}l<~^thc^/VD[ԼмP@|k мP@|-@|޼:k ռмP@| ռ [}PQP } PQPK/$C.ЫR47.ЫS>B.|LD4޼X>B|\>C|`TThp4P%h*P޼t>B{xpc>C{ˀ|Լ?.SR[Ь {RѼ ռ  мPѼ@4޼(޼,$1Ѽռ мPѼ@8޼(޼,$Q1мP@,$@,޼(޼,$"1ü PPмP@SмTмUѼ1~޻ VUPмQAPAtP WAWWPkAb4Cf80IѫP޼(޼,$,мP@,CfHCfLD޸STUԼ[ЬѼ ռ мPѼ@K}޼$޼( '1ѼռмPѼ@}޼$޼( 1мP@|޼$޼( 1ü PPRRSмTмUѼc>VUPмQAuyP WWPA|PkATy0>Cf4,ѫP޼$޼( Q RSTUԼ[ЬмP@|/P 9мP@ |$޼( мP@{ мP@{Լd[Ь Ь  ,޼4>8> <޼@0UP1޼H>LDP>\T//za kP>@*xd> l޼p>,R`#P4> xtK2P@b  @b @b P@ [}PQPk޼ ޼ $޼( [Ь ռ мPѼ @z޼ ޼$1мP@z޼ ޼$daмP@azQQ Q@$wQ@zQk@ w,>0(ѫP޼ ޼$Լt[)(ЫRVPPP>@