$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 7.1-004  3-AUG-1989
$!   On 27-OCT-1989 10:40:18.96   By user FAUCONNET 
$!
$! This VMS_SHARE Written by:
$!    Andy Harper, Kings College London UK
$!
$! Acknowledgements to:
$!    James Gray       - Original VMS_SHARE
$!    Michael Bednarek - Original Concept and implementation
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$!       1. SLIDES.PS;1
$!       2. SETICON.C;4
$!       3. PSEUDOROOT.C;1
$!       4. SELECTWINDOW.C;1
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
$e="write sys$error  ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if f$trnlnm("SHARE_LOG") then $ w = "!"
$ if f$getsyi("version") .ges. "V4.4" then $ goto START
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$UNPACK: SUBROUTINE ! P1=filename, P2=checksum
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete/nolog 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'."
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
$ delete/nolog 'f'*
$ exit
$dirok:
$ w "-I-PROCESS, Processing file ''P1'."
$ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");
buff:=CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(buff))
;LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
BEGINNING_OF(buff));g:=0;LOOP EXITIF MARK(NONE)=END_OF(buff);x:=
ERASE_CHARACTER(1);IF g = 0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x=
"V" THEN APPEND_LINE;MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;
IF x="+" THEN g:=1;ERASE_LINE;ENDIF;ELSE IF x="-" THEN g:=0;ENDIF;ERASE_LINE;
ENDIF;ENDLOOP;p:="`";POSITION(BEGINNING_OF(buff));LOOP r:=SEARCH(p,FORWARD);
EXITIF r=0;POSITION(r);ERASE(r);COPY_TEXT(ASCII(INT(ERASE_CHARACTER(3))));
ENDLOOP;o:=GET_INFO(COMMAND_LINE,"output_file");WRITE_FILE(buff,o);
ENDPROCEDURE;Unpacker;EXIT;
$ delete/nolog 'f'*
$ CHECKSUM 'P1'
$ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
$ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ ENDSUBROUTINE
$START:
$ create/nolog 'f'
X%!PS-Adobe-2.1
X%%Creator: DECwrite V1.0
X%%+Copyright (c) 1989 DIGITAL EQUIPMENT CORPORATION. `032
X%%+All Rights Reserved.
X%%DocumentFonts: (atend)
X%%EndComments
X%%BeginProcSet DEC_WRITE 1.05
X/DEC_WRITE_dict 150 dict def DEC_WRITE_dict begin/$D save def/$I 0 def/$S 0
Xdef/$C matrix def/$R matrix def/$L matrix def/$E matrix
Xdef/beginEPS`123/level0 save def/showpage`123`125def/EPSname exch
Xdef`125def/endEPS`123level0 restore`125def/pat1`123/px exch def/pa 8 array d
Vef 0 1
X7`123/py exch def/pw 4 string def 0 1 3`123pw exch px py 1 getinterval
Xputinterval`125for pa py pw put`125for`125def/pat2`123/pi exch def/cflag exc
Vh def save
Xcflag 1 eq`123eoclip`125`123clip`125ifelse newpath`123clippath pathbbox`125s
Vtopped not`123/ph
Xexch def/pw exch def/py exch def/px exch def/px px 3072 div floor 3072 mul
Xdef/py py 3072 div floor 3072 mul def px py translate/pw pw px sub 3072 div
Xfloor 1 add cvi def/ph ph py sub 3072 div floor 1 add cvi def pw 3072 mul
Xph 3072 mul scale/pw pw 32 mul def/ph ph 32 mul def/px 0 def/py 0 def pw ph
Xpi`091pw 0 0 ph 0 0`093`123pa py get/px px 32 add def px pw ge`123/px 0 def/
Vpy py 1 add
X8 mod def`125if`125pi type/booleantype eq`123imagemask`125`123image`125ifels
Ve`125if
Xrestore`125def/PS`123/_op exch def/_np 8 string def 0 1 7`123/_ii exch def/n
Vum _op
X_ii get def _np 7 _ii sub num -4 bitshift PX num 15 and 4 bitshift -4
Xbitshift PX 4 bitshift or put`125for _np`125def/PX`123`09115 7 11 3 13 5 9 1
V 14 6 10 2
X12 4 8 0`093exch get`125def/FR`1230.7200 0 $E defaultmatrix dtransform/yres
V exch
Xdef/xres exch def xres dup mul yres dup mul add sqrt`125def/SU`123/_sf exch
Xdef/_sa exch def/_cs exch def/_mm $C currentmatrix def/rm _sa $R rotate
Xdef/sm _cs dup $L scale def sm rm _mm _mm concatmatrix _mm concatmatrix pop
X1 0 _mm dtransform/y1 exch def/x1 exch def/_vl x1 dup mul y1 dup mul add
Xsqrt def/_fq FR _vl div def/_na y1 x1 atan def _mm 2 get _mm 1 get mul _mm
X0 get _mm 3 get mul sub 0 gt`123`123neg`125/_sf load concatprocs/_sf exch de
Vf`125if _fq
X_na/_sf load setscreen`125def/BO`123/_yb exch def/_xb exch def/_bv _bs _yb _
Vbw
Xmul _xb 8 idiv add get def/_mk 1 7 _xb 8 mod sub bitshift def _bv _mk and 0
Xne $I 1 eq xor`125def/BF`123DEC_WRITE_dict begin/_yy exch def/_xx exch def/_
Vxi
X_xx 1 add 2 div _bp mul cvi def/_yi _yy 1 add 2 div _bp mul cvi def _xi _yi
XBO`123/_nb _nb 1 add def 1`125`123/_fb _fb 1 add def 0`125ifelse
Xend`125def/setpattern`123/_cz exch def/_bw exch def/_bp exch def/_bs exch PS
Xdef/_nb 0 def/_fb 0 def _cz 0/BF load SU`123`125settransfer _fb _fb _nb add
V div
Xsetgray/$S 1 def`125def/invertpattern`123$S 0 eq`123`1231 exch sub`125curren
Vttransfer
Xconcatprocs settransfer`125if`125def/invertscreen`123/$I 1 def/$S 0
Xdef`125def/revertscreen`123/$I 0 def`125def/setrect`123/$h exch def/$w exch
V def/$y exch
Xdef/$x exch def newpath $x $y moveto $w $x add $y lineto $w $x add $h $y
Xadd lineto $x $h $y add lineto closepath`125def/concatprocs`123/_p2 exch cvl
Vit
Xdef/_p1 exch cvlit def/_pn _p1 length _p2 length add array def _pn 0 _p1
Xputinterval _pn _p1 length _p2 putinterval _pn cvx`125def/OF/findfont load
Xdef/findfont`123dup DEC_WRITE_dict exch known`123DEC_WRITE_dict exch get`125
Vif
XDEC_WRITE_dict/OF get exec`125def
Xmark/ISOLatin1Encoding`032
X8#000 1 8#001`123StandardEncoding exch get`125for /emdash/endash
X8#004 1 8#025`123StandardEncoding exch get`125for /quotedblleft/quotedblrigh
Vt
X8#030 1 8#054`123StandardEncoding exch get`125for /minus 8#056 1 8#217
X`123StandardEncoding exch get`125for/dotlessi 8#301 1 8#317`123StandardEncod
Ving`032
Xexch get`125for/space/exclamdown/cent/sterling/currency/yen/brokenbar/sectio
Vn
X/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/hyphen/registered
X/macron/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph
X/periodcentered/cedilla/onesuperior/ordmasculine/guillemotright/onequarter
X/onehalf/threequarters/questiondown/Agrave/Aacute/Acircumflex/Atilde
X/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave
X/Iacute/Icircumflex/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde
X/Odieresis/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn
X/germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
X/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
X/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash/ugrave
X/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
X256 array astore def cleartomark`032
X/encodefont`123findfont dup maxlength dict begin`1231 index/FID ne`123def`12
V5`123pop
Xpop`125ifelse`125forall/Encoding exch def dup/FontName exch def currentdict
Xdefinefont end`125def/loads`123/$/ISOLatin1Encoding load def/&/encodefont lo
Vad
Xdef/*/invertpattern load def/+/revertscreen load def/-/invertscreen load
Xdef/:/concatprocs load def/`094/setpattern load def/`126/pat1 load def/_/pat
V2
Xload def/@/setrect load def/A/arcn load def/B/ashow load def/C/curveto load
Xdef/D/def load def/E/eofill load def/F/findfont load def/G/setgray load
Xdef/H/closepath load def/I/clip load def/K/kshow load def/L/lineto load
Xdef/M/moveto load def/N/newpath load def/O/rotate load def/P/pop load
Xdef/R/grestore load def/S/gsave load def/T/translate load def/U/sub load
Xdef/V/div load def/W/widthshow load def/X/exch load def/Y/awidthshow load
Xdef/a/save load def/c/setlinecap load def/d/setdash load def/e/restore load
Xdef/f/setfont load def/g/initclip load def/h/show load def/i/setmiterlimit
Xload def/j/setlinejoin load def/k/stroke load def/l/rlineto load
Xdef/m/rmoveto load def/n/currentfont load def/o/scalefont load
Xdef/p/currentpoint load def/r/currenttransfer load def/s/scale load
Xdef/t/setmatrix load def/u/settransfer load def/w/setlinewidth load
Xdef/x/matrix load def/y/currentmatrix load def`125def
Xend
X%%EndProcSet
X%%EndProlog
X
X%%BeginSetup
XDEC_WRITE_dict begin
Xloads
Xversion cvi 23.0 gt `123
Xcurrentdict `123dup type /arraytype eq
X`123bind def`125 `123pop pop`125 ifelse`125 forall`125 if
X0.0100 0.0100 s
X
X%%EndSetup
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X300 -2100 M
X-7200 7200 T
XR
X
Xa 40 dict begin
X8053 -25901 T
X45156 15244 s
X/bd`123bind def`125def /sd`123string def`125bd /U`1230 exch getinterval def`
V125bd
X/cf currentfile def /imstr 130 sd /h1 1 sd /a1 190 sd /a2 190 sd /z 380 sd /
Vo 380 sd
X/z2 z 2 U /z3 z 3 U /z4 z 4 U /z5 z 5 U /z6 z 6 U
X/o2 o 2 U /o3 o 3 U /o4 o 4 U /o5 o 5 U /o6 o 6 U
X/I `123codes cf read pop get exec`125 bd
X/codes `091`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`1
V23I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`
V125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`
V123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125
X`123z 0 -32 S`125`123z 0 63 S`125`123z 0 158 S`125`123z 0 253 S`125`123o 0 -
V32 S`125`123o 0 63 S`125`123o 0 158 S`125`123o 0 253 S`125
X`123a1 0 -32 S`125`123a1 0 63 S`125`123a2 0 -32 S`125`123a2 0 63 S`125`123a1
V -32 F`125`123a1 63 F`125`123a2 -32 F`125`123a2 63 F`125
X`123Nn`125`123N1`125`123h1 0 -32 C`125`123h1 0 95 C`125`123h1 0 190 C`125
X`123-32 A`125`123-24 A`125`123-16 A`125`123-8 A`125`1230`125`1238 A`125`1231
V6 A`125`12324 A`125`12332 A`125`12340 A`125`12348 A`125`12356 A`125
X`12364 A`125`12372 A`125`12380 A`125`12388 A`125`12396 A`125`123104 A`125`12
V3112 A`125`123120 A`125`123128 A`125`123136 A`125
X`1232 H`125`1233 H`125`1234 H`125`1235 H`125`1236 H`125`1237 H`125`1238 H`12
V5`1239 H`125`12310 H`125`12311 H`125`12312 H`125`12313 H`125`12314 H`125`123
V15 H`125`12316 H`125`12317 H`125`12318 H`125`12319 H`125
X`12320 H`125`12321 H`125`12322 H`125`12323 H`125`12324 H`125`12325 H`125`123
V26 H`125`12327 H`125`12328 H`125`12329 H`125
X`12330 H`125`12331 H`125`12332 H`125`12333 H`125`12334 H`125`12335 H`125`123
V36 H`125`12337 H`125`12338 H`125`12339 H`125
Xz2 z3 z4 z5 z6 o2 o3 o4 o5 o6`093 def
X/H `123cf imstr 0 4 -1 roll getinterval readhexstring pop`125 bd
X/A `123/val exch def cf imstr readline pop dup 0 exch
X`123val add 3 copy put pop 1 add`125 forall pop`125 bd
X/Nn `123cf imstr readline pop`125 bd
X/N1 `123cf h1 readstring pop`125 bd
X/C `123cf read pop add put h1`125 bd
X/S `123cf read pop add getinterval`125 bd
X/F `123cf read pop add cf h1 readhexstring pop 0 get exch dofill`125 bd
X/dofill `123/len exch def 2 copy 0 1 len 1 sub `123exch put 2 copy`125 for p
Vop pop pop 0 len getinterval`125 bd
Xo 255 380 dofill pop
X571 170 1 `091571 0 0 -170 0 170`093 `123I`125 image
X,g441_.g883@,g221?.g112?,g441_.g883@,g221?.g112?,g441_.g883@,g221?.g112?,g44
V1_."88 dK889F,"22 )4> (
XK03F0 (K0FC0 (1? )4> (K03F0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L
V01111F."44 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L04445F
X,"88 )4> (K03F0 (K0FC0 (1? )4> (K03F0 )K889F."22 )4> (K03F0 (K0FC0 (1? )4> (
VK03F0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (
XK03F0 (L01111F,"44 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L04445F."88 )4> (K03F0
V (K0FC0 (1? )4> (K03F0 )K889F,"22 )4> (K03F0 (
XK0FC0 (1? )4> (K03F0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F.
V"44 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L04445F,"88
X )4> (K03F0 (K0FC0 (1? )4> (K03F0 )K889F."22 )4> (K03F0 (K0FC0 (1? )4> (K03F
V0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (
XL01111F,"44 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L04445F."88 )4> (K03F0 (K0FC0
V (1? )4> (K03F0 )K889F,"22 )4> (K03F0 (K0FC0 (1?
X )4> (K03F0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F."44 )4> (
VK03F0 (K0FC0 (1? )4> (K03F0 (L04445F,"88 )4> (
XK03F0 (K0FC0 (1? )4> (K03F0 )K889F."22 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (N02
V223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F
X,"44 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L04445F."88 )4> (K03F0 (K0FC0 (1? )4>
V (K03F0 )K889F,"22 )4> (K03F0 (K0FC0 (1? )4> (
XK03F0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F."44 )4> (K03F0
V (K0FC0 (1? )4> (K03F0 (L04445F,"88 )4> (K03F0 (
XK0FC0 (1? )4> (K03F0 )K889F."22 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (N02223F111
V0 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F,"44t
XN03FFC000FCrK0FFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (K03F0rK3FFCrL04445F."88tN0
V3FFC000FCrK0FFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (
XK03F0rK3FFCsK889F,"22tN03FFC000FCrK0FFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (K03F
V0rK3FFCrN02223F1110tN03FFC000FCrK0FFFrK03F0 (K0FC0r
XKFFF0r1?rK3FFCs4> (K03F0rK3FFCrL01111F."44tN03FFC000FCrK0FFFrK03F0 (K0FC0rKF
VFF0r1?rK3FFCs4> (K03F0rK3FFCrL04445F,"88t
XN03FFC000FCrK0FFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (K03F0rK3FFCsK889F."22tN03F
VFC000FCrK0FFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (K03F0r
XK3FFCrN02223F1110tN03FFC000FCrK0FFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (K03F0rK3
VFFCrL01111F,"44tN03FFC000FCrK0FFFrK03F0 (K0FC0rKFFF0
Xr1?rK3FFCs4> (K03F0rK3FFCrL04445F."88tN03FFC000FCrK0FFFrK03F0 (K0FC0rKFFF0r1
V?rK3FFCs4> (K03F0rK3FFCsK889F,"22tN03FFC000FCr
XK0FFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (K03F0rK3FFCrN02223F1110tN03FFC000FCrK0
VFFFrK03F0 (K0FC0rKFFF0r1?rK3FFCs4> (K03F0rK3FFCr
XL01111F."44tN03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4> (K03F0rK3FFCrL04445F,"88t
VN03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4> (K03F0r
XK3FFCsK889F."22tN03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4> (K03F0rK3FFCrN02223F1
V110tN03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4> (K03F0r
XK3FFCrL01111F,"44tN03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4> (K03F0rK3FFCrL04445
VF."88tN03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4> (
XK03F0rK3FFCsK889F,"22tN03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4> (K03F0rK3FFCrN0
V2223F1110rP01FE03FFC000FC (K03F0 (K0FC0 (1?rK3FFCs4>
X (K03F0rK3FFCrL01111F."44rP0FFFC3FFC000FCrK0FFFrK03F0rP1FFC0FFF000FC0rKFFF0r
V1?q2/wr4>rK0FF0rK03F0rK3FFCrL04445F,"88r
XP7FFFE3FFC000FCrK0FFFrK03F0rvN0FFF000FC0rKFFF0r1?q2/wr4>rvrK03F0rK3FFCsK889F
V."22q2!vNFBFFC000FCrK0FFFrK03F0q2#vNCFFF000FC0rKFFF0
Xr1?q2/wr4>q2'v4"qK03F0rK3FFCrN02223F1110q2#xLC000FCrK0FFFrK03F0q2/vNEFFF000F
VC0rKFFF0r1?q2/wr4>q2?v4:qK03F0rK3FFCrL01111F,"44q2/x
XLC000FCrK0FFFrK03F0q2?xL000FC0rKFFF0r1?q2/wr4>q3 v4@qK03F0rK3FFCrL04445F."88
Vq2?xLC000FCrK0FFFrK03F0q1?xL000FC0rKFFF0r1?q2/wr
XLFC0001xM800003F0rK3FFCsK889F,"22q1?xLC000FCrK0FFFrK03F0q3 xL000FC0rKFFF0r1?
Vq2/wrLFC0003xMC00003F0rK3FFCrN02223F1110q3 xLC000FCr
XK0FFFrK03F0qyL000FC0rKFFF0r1?q2/wrLFC0007xME00003F0rK3FFCrL01111F."44q3 xLC0
V00FCrK0FFFrM03F00001yL000FC0rKFFF0r1?q2/wrLFC000Fx
XMF80003F0rK3FFCrL04445F,"88qyLC000FCrK0FFFrM03F00003yL000FC0rKFFF0r1?q2/wrLF
VC001FxMF80003F0rK3FFCsK889F."22K0001yLC000FCrK0FFF
XrM03F00003yL000FC0rKFFF0r1?rK3FFCsLFC003FxMFC0003F0rK3FFCrP02223F11100001vO0
V07FFFC000FCrK0FFFrM03F00007yL000FC0rKFFF0r1?rK3FFCs
XLFC003FxMFC0003F0rK3FFCrL01111F,"44S0003FFFC003FFFC000FCrK0FFFrM03F0000FyL00
V0FC0rKFFF0r1?rK3FFCsTFC003FFFE007FFFE0003F0rK3FFCr
XL04445F."88S0003FFF8001FFFC000FCrK0FFFrP03F0000FFFF003vL000FC0rKFFF0r1?rK3FF
VCsTFC007FFF8000FFFE0003F0rK3FFCsK889F,"22
XS0007FFF0000FFFC000FCrK0FFFrU03F0001FFFE0007FFF000FC0rKFFF0r1?rK3FFCsMFC007F
VFEqN3FFF0003F0rK3FFCrX02223F11100007FFE00007FFC000FCr
XK0FFFrU03F0001FFFC0003FFF000FC0rKFFF0r1?rK3FFCsMFC007FFCqN3FFF0003F0rK3FFCrL
V01111F."44S000FFFC00007FFC000FCrK0FFFrN03F0001FFFq
XN1FFF000FC0rKFFF0r1?rK3FFCsMFC007FFCqN1FFF0003F0rK3FFCrL04445F,"88S000FFF800
V003FFC000FCrK0FFFrN03F0003FFFqN0FFF000FC0rKFFF0r1?r
XK3FFCsMFC007FF8qN1FFF0003F0rK3FFCsK889F."22S000FFF800003FFC000FCrK0FFFrN03F0
V003FFEqN0FFF000FC0rKFFF0r1?rK3FFCsMFC007FF8q
XN1FFF0003F0rK3FFCrQ02223F1110000FFFqN03FFC000FCrK0FFFrN03F0007FFCqN0FFF000FC
V0rKFFF0r1?rK3FFCs4>tN1FFF0003F0rK3FFCrL01111F,"44
XL001FFFqN03FFC000FCrK0FFFrN03F0007FFCqN0FFF000FC0rKFFF0r1?rK3FFCs4>tN1FFF000
V3F0rK3FFCrL04445F."88L001FFEqN03FFC000FCrK0FFFr
XN03F0007FF8qN0FFF000FC0rKFFF0r1?rK3FFCs4>tN3FFF0003F0rK3FFCsK889F,"22L001FFE
VqN03FFC000FCrK0FFFrN03F0007FF8qN0FFF000FC0rKFFF0r1?r
XK3FFCs4>tvL0003F0rK3FFCrQ02223F1110001FFEqN03FFC000FCrK0FFFrN03F0007FF0qN0FF
VF000FC0rKFFF0r1?rK3FFCs4>s2'vL0003F0rK3FFCrL01111F
X."44L001FFCqN03FFC000FCrK0FFFrN03F0007FF0qN0FFF000FC0rKFFF0r1?rK3FFCs4>s1?vL
V0003F0rK3FFCrL04445F,"88L001FFCqN03FFC000FCrK0FFFr
XN03F000FFF0qN0FFF000FC0rKFFF0r1?rK3FFCs4>r2!wL0003F0rK3FFCsK889F."22L003FFCq
VN03FFC000FCrK0FFFrN03F000FFF0qN0FFF000FC0rKFFF0r1?r
XK3FFCs4>r1?wL0003F0rK3FFCrQ02223F1110003FFCqN03FFC000FCrK0FFFrN03F000FFF0qN0
VFFF000FC0rKFFF0r1?rK3FFCs4>q2'xL0003F0rK3FFCrL01111F
X,"44L003FFCqN03FFC000FCrK0FFFrN03F000FFF0qN0FFF000FC0rKFFF0r1?rK3FFCs4>q1?xL
V0003F0rK3FFCrL04445F."88L003FFCqN03FFC000FCrK0FFFr
XN03F000FFF0qN0FFF000FC0rKFFF0r1?rK3FFCsLFC0001yL0003F0rK3FFCsK889F,"22L003FF
VCqN03FFC000FCrK0FFFrN03F000FFF0qN0FFF000FC0rKFFF0r1?
XrK3FFCsLFC0003yL0003F0rK3FFCrQ02223F1110003FFCqN03FFC000FCrK0FFFrN03F000FFF0
VqN0FFF000FC0rKFFF0r1?rK3FFCsLFC0007yL0003F0rK3FFCr
XL01111F."44L003FFCqN03FFC000FCrK0FFFrN03F0007FF0qN0FFF000FC0rKFFF0r1?rK3FFCs
VLFC000FwNEFFF0003F0rK3FFCrL04445F,"88L003FFCq
XN03FFC000FCrK0FFFrN03F0007FF8qN0FFF000FC0rKFFF0r1?rK3FFCsLFC001FwN0FFF0003F0
VrK3FFCsK889F."22L003FFCqN03FFC000FCrK0FFFr
XN03F0007FF8qN0FFF000FC0rKFFF0r1?rK3FFCsLFC003FvOF80FFF0003F0rK3FFCrQ02223F11
V10001FFEqN03FFC000FCrK0FFFrN03F0007FF8qN0FFF000FC0r
XKFFF0r1?rK3FFCsLFC007FvO800FFF0003F0rK3FFCrL01111F,"44L001FFEqN03FFC000FCrK0
VFFFrN03F0007FFCqN0FFF000FC0rKFFF0r1?rK3FFCs
XTFC007FFFF8000FFF0003F0rK3FFCrL04445F."88L001FFEqN03FFC000FCrK0FFFrN03F0003F
VFCqN0FFF000FC0rKFFF0r1?rK3FFCsKFC00vP80000FFF0003F0r
XK3FFCsK889F,"22L001FFFqN03FFC000FCrK0FFFrN03F0003FFEqN1FFF000FC0rKFFF0r1?rK3
VFFCsMFC00FFFEqN0FFF0003F0rK3FFCrQ02223F1110001FFFq
XN03FFC000FCrK0FFFrN03F0003FFFqN1FFF000FC0rKFFF0r1?rK3FFCsMFC00FFFCqN0FFF0003
VF0rK3FFCrL01111F."44S001FFF800003FFC000FCrK0FFFr
XU03F0001FFF80003FFF000FC0rKFFF0r1?rK3FFCsMFC00FFF8qN0FFF0003F0rK3FFCrL04445F
V,"88S000FFF800003FFC000FCrK0FFFr
XU03F0001FFFC0007FFF000FC0rKFFF0r1?rK3FFCsMFC00FFF8qN1FFF0003F0rK3FFCsK889F."
V22S000FFFC00007FFC000FCrK0FFFrP03F0000FFFF001v
XL000FC0rKFFF0r1?rK3FFCsMFC00FFF0qN1FFF0003F0rK3FFCrX02223F1110000FFFC00007FF
VC000FCrK0FFFrP03F0000FFFFC07vL000FC0rKFFF0r1?rK3FFCs
XMFC00FFF0qN3FFF0003F0rK3FFCrL01111F,"44S0007FFF0000FFFC000FCrK0FFFrM03F00007
VyL000FC0rKFFF0r1?rK3FFCsMFC00FFF8qN7FFF0003F0rK3FFCr
XL04445F."88S0007FFF8001FFFC000FCrK0FFFrM03F00007yL000FC0rKFFF0r1?rK3FFCsMFC0
V0FFF8qvL0003F0rK3FFCsK889F,"22
XS0003FFFC003FFFC000FCrK0FFFrM03F00003yL000FC0rKFFF0r1?rK3FFCsOFC00FFFC0001vL
V0003F0rK3FFCrP02223F11100003vO007FFFC000FCrK0FFFr
XM03F00001yL000FC0rKFFF0r1?rK3FFEsOFC00FFFE0003vL0003F0rK3FFCrL01111F."44K000
V1yLC000FCrK0FFFrK03F0qyL000FC0rKFFF0r1?rM3FFF00C0q
XKFC00vKC01FvL0003F0rK3FFCrL04445F,"88K0001yLC000FCrK0FFFrK03F0qyL000FC0rKFFF
V0r1?r1?v3aqKFC00zL0003F0rK3FFCsK889F."22qyLC000FCr
XK0FFFrK03F0q3 xL000FC0rKFFF0r1?r1?v3aqLFC007FyL0003F0rK3FFCrN02223F1110q3 xL
VC000FCrK0FFFrK03F0q2?vNEFFF000FC0rKFFF0r1?r1?v3aq
XLFC007FyL0003F0rK3FFCrL01111F,"44q1?xLC000FCrK0FFFrK03F0q2/vNCFFF000FC0rKFFF
V0r1?r1?v3aqLFC003FyL8003F0rK3FFCrL04445F."88q2?x
XLC000FCrK0FFFrK03F0q2'vN8FFF000FC0rKFFF0r1?r2?v3aqLFC001FyL8003F0rK3FFCsK889
VF,"22q2/xLC000FCrK0FFFrK03F0q2!vN0FFF000FC0rKFFF0r1?
Xr2?v3aqLFC000FyL8003F0rK3FFCrN02223F1110q2'xLC000FCrK0FFFrK03F0rP3FFC0FFF000
VFC0rKFFF0r1?r2/v3aqLFC0007yLC003F0rK3FFCrL01111F."44
Xq2#vNFBFFC000FCrK0FFFrK03F0rP01E00FFF000FC0rKFFF0r1?r2/v3aqLFC0003wNEFFFC003
VF0rK3FFCrL04445F,"88q2!vNF3FFC000FCrK0FFFrK03F0t
XN0FFF000FC0rKFFF0r1?r2'v3aq4>q3 vN8FFFE003F0rK3FFCsK889F."22rP7FFFE3FFC000FC
VrK0FFFrK03F0tN0FFF000FC0rKFFF0r1?r2!v3aq4>q
XQ3FFFFE0FFFE003F0rK3FFCrN02223F1110rP0FFF83FFC000FCrK0FFFrN03F003FFC0qN0FFF0
V00FC0rKFFF0r1?sK3FE0r4>qQ03FFF80FFFF003F0rK3FFCr
XL01111F,"44s4:s4> (N03F003FFC0qN1FFF000FC0 (1? )4>r2?sK03F0 (L04445F."88 )4>
V (N03F003FFC0qN1FFF000FC0 (1? )4> (K03F0 )K889F
X,"22 )4> (N03F003FFE0qN3FFF000FC0 (1? )4> (K03F0 (N02223F1110 )4> (N03F001FF
VF0qN3FFF000FC0 (1? )4> (K03F0 (L01111F."44 )4> (
XN03F001FFF8qN7FFE000FC0 (1? )4> (K03F0 (L04445F,"88 )4> (U03F000FFFE0001FFFE
V000FC0 (1? )4> (K03F0 )K889F."22 )4> (L03F000v
XPC00FFFFC000FC0 (1? )4> (K03F0 (N02223F1110 )4> (M03F0007FxMFC000FC0 (1? )4>
V (K03F0 (L01111F,"44 )4> (M03F0003FxMF8000FC0 (1? )
X4> (K03F0 (L04445F."88 )4> (M03F0003FxMF0000FC0 (1? )4> (K03F0 )K889F,"22 )4
V> (M03F0001FxME0000FC0 (1? )4> (K03F0 (N02223F1110
X )4> (M03F00007xMC0000FC0 (1? )4> (K03F0 (L01111F."44 )4> (M03F00003xM80000F
VC0 (1? )4> (K03F0 (L04445F,"88 )4> (M03F00001xq
XK0FC0 (1? )4> (K03F0 )K889F."22 )4> (K03F0q3 v4>qK0FC0 (1? )4> (K03F0 (N0222
V3F1110 )4> (K03F0q2/v4"qK0FC0 (1? )4> (K03F0 (
XL01111F,"44 )4> (K03F0q2!vrK0FC0 (1? )4> (K03F0 (L04445F."88 )4> (K03F0 (K0F
VC0 (1? )4> (K03F0 )K889F,"22 )4> (K03F0 (K0FC0 (
X1? )4> (K03F0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F."44 )4>
V (K03F0 (K0FC0 (1? )4> (K03F0 (L04445F,"88 )4> (
XK03F0 (K0FC0 (1? )4> (K03F0 )K889F."22 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (N02
V223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F
X,"44 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L04445F."88 )4> (K03F0 (K0FC0 (1? )4>
V (K03F0 )K889F,"22 )4> (K03F0 (K0FC0 (1? )4> (
XK03F0 (N02223F1110 )4> (K03F0 (K0FC0 (1? )4> (K03F0 (L01111F."44 )4> (K03F0
V (K0FC0 (1? )4> (K03F0 (L04445F,"88 )4> (K03F0 (
XK0FC0 (1? )4> (K03F0 )K889F."22 cL02223F,g112?.g441_,g883@.g221?,g112?.g441_
V,g883@.g221?,g112?.g441_,g883@
X.g221?,g112?.g441_,g883@
Xend e
XS
X8053 -25901 45156 15244 @
XS
X100 w
X0 c
X0 j
X2 i
X0.00 G - + * k
XR
XR
X
X
Xa 40 dict begin
X11984 -54854 T
X36623 27324 s
X/bd`123bind def`125def /sd`123string def`125bd /U`1230 exch getinterval def`
V125bd
X/cf currentfile def /imstr 130 sd /h1 1 sd /a1 190 sd /a2 190 sd /z 380 sd /
Vo 380 sd
X/z2 z 2 U /z3 z 3 U /z4 z 4 U /z5 z 5 U /z6 z 6 U
X/o2 o 2 U /o3 o 3 U /o4 o 4 U /o5 o 5 U /o6 o 6 U
X/I `123codes cf read pop get exec`125 bd
X/codes `091`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`1
V23I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`
V125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`
V123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125
X`123z 0 -32 S`125`123z 0 63 S`125`123z 0 158 S`125`123z 0 253 S`125`123o 0 -
V32 S`125`123o 0 63 S`125`123o 0 158 S`125`123o 0 253 S`125
X`123a1 0 -32 S`125`123a1 0 63 S`125`123a2 0 -32 S`125`123a2 0 63 S`125`123a1
V -32 F`125`123a1 63 F`125`123a2 -32 F`125`123a2 63 F`125
X`123Nn`125`123N1`125`123h1 0 -32 C`125`123h1 0 95 C`125`123h1 0 190 C`125
X`123-32 A`125`123-24 A`125`123-16 A`125`123-8 A`125`1230`125`1238 A`125`1231
V6 A`125`12324 A`125`12332 A`125`12340 A`125`12348 A`125`12356 A`125
X`12364 A`125`12372 A`125`12380 A`125`12388 A`125`12396 A`125`123104 A`125`12
V3112 A`125`123120 A`125`123128 A`125`123136 A`125
X`1232 H`125`1233 H`125`1234 H`125`1235 H`125`1236 H`125`1237 H`125`1238 H`12
V5`1239 H`125`12310 H`125`12311 H`125`12312 H`125`12313 H`125`12314 H`125`123
V15 H`125`12316 H`125`12317 H`125`12318 H`125`12319 H`125
X`12320 H`125`12321 H`125`12322 H`125`12323 H`125`12324 H`125`12325 H`125`123
V26 H`125`12327 H`125`12328 H`125`12329 H`125
X`12330 H`125`12331 H`125`12332 H`125`12333 H`125`12334 H`125`12335 H`125`123
V36 H`125`12337 H`125`12338 H`125`12339 H`125
Xz2 z3 z4 z5 z6 o2 o3 o4 o5 o6`093 def
X/H `123cf imstr 0 4 -1 roll getinterval readhexstring pop`125 bd
X/A `123/val exch def cf imstr readline pop dup 0 exch
X`123val add 3 copy put pop 1 add`125 forall pop`125 bd
X/Nn `123cf imstr readline pop`125 bd
X/N1 `123cf h1 readstring pop`125 bd
X/C `123cf read pop add put h1`125 bd
X/S `123cf read pop add getinterval`125 bd
X/F `123cf read pop add cf h1 readhexstring pop 0 get exch dofill`125 bd
X/dofill `123/len exch def 2 copy 0 1 len 1 sub `123exch put 2 copy`125 for p
Vop pop pop 0 len getinterval`125 bd
Xo 255 380 dofill pop
X366 238 1 `091366 0 0 -238 0 238`093 `123I`125 image
X,M441G.M1123,M221#.M883,,M441G.M1123,M221#.M88K8B44 LL47117F$JMFE13227F$JMFE
V23887F$JMFE8B447F$JMFE47117F$J
XMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$
VJMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F
X$JMFE13227F$JMFE23887F$JMFE8B447F$64>$3MFE47117F$.KF87BvK7F87v4>$3MFE13227F$
V.OF333FFFE7F33$6MFE23887F$.OF3E0C3901F3F,"87L0CE1C9
X$1MFE8B447F$.TF1F399927F1F333E7CCCC4$1MFE47117F$.RF873F98E7F87331E3C."CC$1MF
VE13227F$.RFE33C19E7FE3038F1C*"$1MFE23887F$/
XQ33999E7FF33FC78C*"$1MFE8B447F$.QF333999E7F333BE7.#CC$1MFE47117F$.NF878C49F1
VF("M0E1CE1CC$1MFE13227F$JMFE23887F$JMFE8B447F$J
XMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$
VJMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F
X$JMFE47117F$JMFE13227F$JMFE23887F$+4=$>MFE8B447F$+4=$>MFE47117F$+4=$>MFE1322
V7F$+4=$:4%wMFE23887F$+4=$:49wMFE8B447Fv19$(4=$:49w
XMFE47117Fv19$(MFBC020E70<8
X_7F0003E04F0C09F3E061FC1E070CFCCC760FC3CFCE17wMFE13227FvX39C387249E1C99E1FFF
VBF9E6673993,"3FU9FE7CE64F9F3E7CCFCCE7E64*"L766799*"
X3hwMFE23887Fvk399F33244CCC44CCFFFBF9E66733F3FF3F9FE7CCFCF9F3E7CFFCE67CFCCCCD
V36733C*"49wMFE8B447FvN398F331CCF*#
XfFFFBF9E6E733F1FF3F9FE7CCFCF9F3E7C7FCE67CFE49CD36733CE49C77wMFE47117Fv
Xn39C7033CCE0CCCC0FFFBF9E1E733F87F079FE0CCFC19F3E0E1FCE60CFE49CD96733CE49E17w
VMFE13227FvK39E30?<
X*#QCFFFFBF9E4E733FE("`0939FE7CCFCF9F3E7F8FCE67CFE01CD96733CE01F87wMFE23887Fv
VK39F30;<
X*#QCEFFFBF9E4E733FF("P9FE7CCFCF9F3E7."FCTE67CFF33CDC6733CF33FC7wMFE8B447Fv3$
V,"87U3CCE24CCE1FFFBF9E66739D3."3F
X`0939FE7CE74F9F3E7CCFCCE7E7733CDC66799F33CC7wMFE47117F$+eFBF9E6307C387F039FE
V7CF0C08102061FC1E070F33CDE60FC3F33E17wMFE13227F$+4=$:49w
XMFE23887F$+4=$:4%wMFE8B447F$+4=$>MFE47117F$+4=$>MFE13227F$+4=$>MFE23887F$+4:
V ;3 vMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$J
XMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$
V+4=$>MFE23887F$+4=$>MFE8B447F$+4=$>MFE47117F$+KFB5F$=
XMFE13227F$)ME7FFFBBF$=MFE23887Fv2'zLE7FFFB$>MFE8B447Fv13zME7FFFBBF$=MFE47117
VFvS330F0E19F9C39307FFFB$>MFE13227FvM32667CF9,"99
XN9267FFFBBF$=MFE23887FvS37E63C7C93998E67FFFB$>MFE8B447FvT0F071E3C93999E67FFF
VBBF$=MFE47117FvS3E678F1C03999E67FFFB$>MFE13227Fv
XT3E67CF9E67999E47FFFBBF$=MFE23887FvS3F121C3E67C39F27FFFB$>MFE8B447F$+KFBBF$=
VMFE47117F$+4=$>MFE13227F$+KFBBF$=MFE23887F$+4=$>
XMFE8B447F$+4=$>MFE47117F$+4=$>MFE13227F$+4: ;3 vMFE23887F$JMFE8B447F$JMFE471
V17F$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$J
XMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$
VJMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F
X$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447
VF$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$J
XMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447Fx3!u1?$13!u3 yMFE47117Fx3`096z3@$1
V3`096z1?yMFE13227Fx3`096z30$13`096z2?yMFE23887Fx3`096z3($13`096z2/y
XMFE8B447Fx3`096z3($13`096z2/yMFE47117Fx3`096z3($13`096z2/yMFE13227Fx3`096z3(
V$13`096z2/yMFE23887Fx3`096z3($1LBFFFF9x2/yMFE8B447FxNBFFFFE1E73v3($1LBFFE19
Xx2/yMFE47117FxNBFFFFCCE67v3($1LBFFCC9x2/yMFE13227FxNBFFFF9E66Fv3($13`096."F9
V,"C3L93FF0FyMFE23887FxNBFFFF9E65Fv3($13`096*"."99
XL93FF0FyMFE8B447FxNBFFFF9E61Fv3($13`096,"F9N99F98FFF0FyMFE47117FxNBFFFF9E64F
Vv3($13`096("N81C19FFF0FyMFE13227FxNBFFFF9E647v3($13`096("
XN9F999FFF0FyMFE23887FxNBFFFFCCE63v3($1QBFFCE99D999FFF0FyMFE8B447FxNBFFFFE1E7
V3v3($1QBFFE19C3C49FFF0FyMFE47117Fx3`096z3($13`096z2/y
XMFE13227Fx3`096z3($13`096z2/yMFE23887Fx3`096z3($13`096z2/yMFE8B447Fx3`096z3(
V$13`096z2/yMFE47117Fx3`096z3($13`096z2/yMFE13227Fx3`096z3($13`096z2/yMFE2388
V7Fx3!u2'
X$13!u2/yMFE8B447Fx3au2'$13au2/yMFE47117Fx4"u2'$14"u2/yMFE13227Fx42u2'$142u2/
VyMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F
X$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227
VF$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$J
XMFE23887FxQFC1FFFE7FE7FFF3FvKFE7F$,3@$-MFE8B447FxUFBEFC1E7FE77FF3F03FFFE7FxK
V7FC3yKFB9FvKFE7C."3C1?zMFE47117FxLF637CCvKE7FF,"3F
XzLFE7F99y45wKF879."993@zMFE13227FxPF4B7CE67064187("2&0fd
XVE4CF0E4C1F3F87249E1C98609C09?
XKFE79*"3@zMFE23887FxLF4F7CE,"66K67330?>
X("."62Y2666267F3F33244CCC933399989FFE79,"983@zMFE8B447FxLF4F7CE."66M67F33F06
V.'66M7F3F331C,"CCK7F33."99M9FFE7C1C0<?
XzMFE47117FxLF4F7CE,"66K67830?>
X,%66O06667F3F333C."CCKF833,"99O9FFE7F99191FzMFE13227FxPF637CE664667330?>
X.%66O7E667F3F333C,"CCKF333."99L9FFE7F*"3@zMFE23887FxPFBEFCCE72667330?>
X,"46.#66O76667F9D333C,"CCKF333.#99KFE79*#zMFE8B447FxRFC1FC1E7E671893F030'&
X`09160E6670E671FC3873C1E1CF8989C3999FE7C,"3C19zMFE47117F$'KFE67xLE7FFE7$'4>$
V2MFE13227F$(2/xLE7FFE7$'4>$2MFE23887F$JMFE8B447F$J
XMFE47117F$-NCCFFFCFFCF$)4)$.MFE13227F$,RF3CCFC1CFFCFEFFFC1z4)$.MFE23887F$,NF
V3CCFCCFFF."CFKFFCCz4)$.MFE8B447F$,
XRE9CCFCCCE0C9830FCC,"E1NC392670F07$.MFE47117F$,VE9CCFCDCCCC4CE7FCDCCCF9992."
V661g$.MFE13227F$,MD9CCFC3C,"CCPCE3FC3CCC7998E*"
X1g$.MFE23887F$,MC0CCFC9C("SCF1FC9C0E3819F2E0667$.MFE8B447F$,T9CCCFC9CC8CCCF8
VFC9CFF1."9FL2E7E67$.MFE47117F$,O9CCCFCCCE4CC,"CF
XRCCCEF99D9F9E76467F$-MFE13227F$,S9CCCFCC4FCCCE21FCC61."C3,"9FL0F267F$-MFE238
V87F$03m$9MFE8B447F$04#$9MFE47117F$JMFE13227F$J
XMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$
VJMFE13227F$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F
X$JMFE23887F$JMFE8B447F$JMFE47117F$JMFE13227F$JMFE23887F$JMFE8B447F$JLFE4711
V L23.M221#,M883,.M441G,M1123.M221#,M883,
X.M441G,M1123
Xend e
XS
X11984 -54854 36623 27324 @
XS
X100 w
X0 c
X0 j
X2 i
X0.00 G - + * k
XR
XR
X
X
XS
X7286 -56484 T
XN
XS
X0 -15627 46786 15627 @
XR
X0 G
X14892 -2100 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(Alain Fauconnet) h
X9058 -5300 M
X(Assistance Publique / S.I.M.) h
X3189 -8500 M
X(DECUS / SIG Applications Graphiques) h
X14994 -11700 M
X(26 Octobre 1989) h
X23393 -13580 M
XS
X0 -15627 46786 15627 @
XR
X-7286 56484 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X16866 -2100 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(Introduction) h
X300 -5300 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X/x0 p P D
X(Plan de la session) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -14900 M
X300 -18100 M
X/Times-Italic-ISOLatin1 $
X/Times-Italic & P
X/Times-Italic-ISOLatin1 F 2400 o f
X(Introduction) h
X300 -21300 M
X4113 -21300 M
X6222 -21300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Plan) h
X300 -24500 M
X4113 -24500 M
X6222 -24500 M
X(But de la session) h
X300 -27700 M
X4113 -27700 M
X6222 -27700 M
X(Public) h
X300 -30900 M
X4113 -30900 M
X6222 -30900 M
X(Sources) h
X300 -34100 M
X4113 -34100 M
X6222 -34100 M
X(Avertissement !) h
X300 -37300 M
X/Times-Italic-ISOLatin1 F 2400 o f
X(Utilisation generale de DECwindows) h
X300 -40500 M
X4113 -40500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Compose character) h
X300 -43700 M
X4113 -43700 M
X(Manipulations de souris) h
X300 -46900 M
X4113 -46900 M
X(VMS DEBUG sous DECwindows) h
X300 -50100 M
X/Times-Italic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -53300 M
X4113 -53300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Procedures de login) h
X300 -56500 M
X4113 -56500 M
X(Fichiers de ressources des applications) h
X300 -59700 M
X4113 -59700 M
X(Bannieres de fenetres) h
X300 -62900 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X16866 -2100 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(Introduction) h
X300 -5300 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-Italic-ISOLatin1 $
X/Times-Italic & P
X/Times-Italic-ISOLatin1 F 2400 o f
X(Programmation sous DECwindows) h
X300 -14900 M
X4113 -14900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Pseudo\255root window) h
X300 -18100 M
X4113 -18100 M
X(Test UIS/DECwindows) h
X300 -21300 M
X/Times-Italic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -24500 M
X4113 -24500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(DECterm sous un autre username ?) h
X300 -27700 M
X4113 -27700 M
X(DECterm sur un autre systeme ?) h
X300 -30900 M
X/Times-Italic-ISOLatin1 F 2400 o f
X(Travailler plus ou moins en remote) h
X300 -34100 M
X4113 -34100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Session manager local) h
X300 -37300 M
X4113 -37300 M
X(Remote complet \(terminal X\)) h
X300 -40500 M
X/Times-Italic-ISOLatin1 F 2400 o f
X(Quelques elements de tuning) h
X300 -43700 M
X4113 -43700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Pagination/swap) h
X300 -46900 M
X4113 -46900 M
X(Autres parametres) h
X300 -50100 M
X/Times-Italic-ISOLatin1 F 2400 o f
X(Personnalisation du startup) h
X300 -53300 M
X945.3 0 32 (Vous pouvez toujours essayer de poser les) W
X300 -55900 M
X(questions, on verra pour les reponses ...) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X300 -2100 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(Introduction) h
X300 -5300 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(But de la session) h
X300 -14900 M
X300 -18100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -18100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X2213.5 0 32 (Faire partager des "trucs" concernant) W
X2100 -20700 M
X368.0 0 32 (l'installation, la configuration, la personnali\255) W
X2100 -23300 M
X(sation et l'utilisation de DECwindows) h
X300 -26500 M
X/Symbol F 2400 o f
X(\267) h
X2100 -26500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X1668.0 0 32 (Proposer des programmes qui facilitent) W
X2100 -29100 M
X933.8 0 32 (l'utilisation de DECwindows ou apportent) W
X2100 -31700 M
X(quelques nouvelles fonctionnalites) h
X300 -34900 M
X/Symbol F 2400 o f
X(\267) h
X2100 -34900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X46.5 0 32 (Essayer de donner quelques elements pour re\255) W
X2100 -37500 M
X(soudre des problemes classiques) h
X300 -40700 M
X/Symbol F 2400 o f
X(\267) h
X2100 -40700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X200.5 0 32 (Ce n'est ) W
X/Times-Italic-ISOLatin1 $
X/Times-Italic & P
X/Times-Italic-ISOLatin1 F 2400 o f
X200.5 0 32 (ni formel, ni complet, ni garanti ex\255) W
X2100 -43300 M
X(act !) h
X300 -45600 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X16866 -2100 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(Introduction) h
X300 -5300 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Public vise \(les autres peuvent rester!\)) h
X300 -14900 M
X300 -18100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -18100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Plutot oriente VMS \(mais pas exclusivement\)) h
X300 -21300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -21300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X3066.8 0 32 (Plutot oriente vers l'utilisation de) W
X2100 -23900 M
X(l'environnement que vers la programmation) h
X300 -27100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -27100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X74.5 0 32 (Certains "trucs" relevent plus du system man\255) W
X2100 -29700 M
X(ager que de l'utilisateur moyen) h
X300 -32900 M
X/Symbol F 2400 o f
X(\267) h
X2100 -32900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Il faut avoir un certain gout du risque...) h
X300 -36100 M
X300 -39300 M
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Sources) h
X300 -42500 M
X300 -45700 M
X/Symbol F 2400 o f
X(\267) h
X2100 -45700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Documentation) h
X300 -48900 M
X/Symbol F 2400 o f
X(\267) h
X2100 -48900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Experience personnelle) h
X300 -52100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -52100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Conference Bitnet Info\255VAX) h
X300 -55300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -55300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X281.8 0 32 (Presentation de Bernard Ourghanlian au SIG) W
X2100 -57900 M
X(VAX/VMS) h
X300 -61100 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X16866 -2100 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(Introduction) h
X300 -5300 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Avertissement !) h
X300 -14900 M
X300 -18100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X641.4 0 32 (Les informations donnees et les programmes) W
X300 -20700 M
X(associes sont sans aucune garantie !) h
X300 -23900 M
X921.2 0 32 (En particulier, l'utilisation des features non) W
X300 -26500 M
X968.5 0 32 (documentees telles que les fichiers de res\255) W
X300 -29100 M
X217.5 0 32 (sources sont a vos risques et perils... Tout ceci) W
X300 -31700 M
X524.5 0 32 (peut \(doit?\) changer dans les prochaines ver\255) W
X300 -34300 M
X(sions de DECwindows.) h
X300 -37500 M
X59.1 0 32 (Les conseils de tuning sont bases sur ma propre) W
X300 -40100 M
X702.0 0 32 (experience et peuvent ne pas s'appliquer du) W
X300 -42700 M
X96.0 0 32 (tout a votre configuration et l'utilsation faite de) W
X300 -45300 M
X(votre station de travail, donc : ) h
X/Times-Italic-ISOLatin1 $
X/Times-Italic & P
X/Times-Italic-ISOLatin1 F 2400 o f
X(prudence !) h
X300 -48500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X226.0 0 32 (Je ne suis pas l'auteur de tous les programmes) W
X300 -51100 M
X(ou procedures montres.) h
X300 -53400 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5164 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Utilisation generale de DECwindows) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X590.1 0 32 (ou : c'est dans la documentation mais per\255) W
X300 -14300 M
X(sonne ne la lit !) h
X300 -17500 M
X300 -20700 M
X/x0 p P D
X(Compose character) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -23900 M
X300 -27100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X186.0 0 32 (Les caracteres composes habituels s'obtiennent) W
X300 -29700 M
X552.0 0 32 (sous DECwindows par `091Compose Character`093\255) W
X300 -32300 M
X902.0 0 32 (`091Espace`093 puis la sequence de deux touches) W
X300 -34900 M
X(habituelle.) h
X300 -38100 M
X300 -41300 M
X192.4 0 32 (La raison de ceci est que `091Compose Character`093) W
X300 -43900 M
X209.8 0 32 (joue le role d'un modifieur \(`091Alt`093\) pour les ac\255) W
X300 -46500 M
X362.0 0 32 (celerateurs des applications. Par exemple sous) W
X300 -49100 M
X(DECwrite, `091Alt`093\255S est "Save file".) h
X300 -51400 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5164 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Utilisation generale de DECwindows) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/x0 p P D
X(Manipulations avec la souris) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -14900 M
X300 -18100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X/x0 p P D
X(Le bouton "push to back") h
XS
X/x1 p P D
Xx0 x1 U -304.9 m
Xx1 x0 U 0 l
X87.8 w k
XR
X( ) h
X300 -19884 M
X-7200 7200 T
XR
X
Xa 40 dict begin
X35856 -33757 T
X9587 12463 s
X/bd`123bind def`125def /sd`123string def`125bd /U`1230 exch getinterval def`
V125bd
X/cf currentfile def /imstr 130 sd /h1 1 sd /a1 190 sd /a2 190 sd /z 380 sd /
Vo 380 sd
X/z2 z 2 U /z3 z 3 U /z4 z 4 U /z5 z 5 U /z6 z 6 U
X/o2 o 2 U /o3 o 3 U /o4 o 4 U /o5 o 5 U /o6 o 6 U
X/I `123codes cf read pop get exec`125 bd
X/codes `091`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`1
V23I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`
V125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`
V123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125
X`123z 0 -32 S`125`123z 0 63 S`125`123z 0 158 S`125`123z 0 253 S`125`123o 0 -
V32 S`125`123o 0 63 S`125`123o 0 158 S`125`123o 0 253 S`125
X`123a1 0 -32 S`125`123a1 0 63 S`125`123a2 0 -32 S`125`123a2 0 63 S`125`123a1
V -32 F`125`123a1 63 F`125`123a2 -32 F`125`123a2 63 F`125
X`123Nn`125`123N1`125`123h1 0 -32 C`125`123h1 0 95 C`125`123h1 0 190 C`125
X`123-32 A`125`123-24 A`125`123-16 A`125`123-8 A`125`1230`125`1238 A`125`1231
V6 A`125`12324 A`125`12332 A`125`12340 A`125`12348 A`125`12356 A`125
X`12364 A`125`12372 A`125`12380 A`125`12388 A`125`12396 A`125`123104 A`125`12
V3112 A`125`123120 A`125`123128 A`125`123136 A`125
X`1232 H`125`1233 H`125`1234 H`125`1235 H`125`1236 H`125`1237 H`125`1238 H`12
V5`1239 H`125`12310 H`125`12311 H`125`12312 H`125`12313 H`125`12314 H`125`123
V15 H`125`12316 H`125`12317 H`125`12318 H`125`12319 H`125
X`12320 H`125`12321 H`125`12322 H`125`12323 H`125`12324 H`125`12325 H`125`123
V26 H`125`12327 H`125`12328 H`125`12329 H`125
X`12330 H`125`12331 H`125`12332 H`125`12333 H`125`12334 H`125`12335 H`125`123
V36 H`125`12337 H`125`12338 H`125`12339 H`125
Xz2 z3 z4 z5 z6 o2 o3 o4 o5 o6`093 def
X/H `123cf imstr 0 4 -1 roll getinterval readhexstring pop`125 bd
X/A `123/val exch def cf imstr readline pop dup 0 exch
X`123val add 3 copy put pop 1 add`125 forall pop`125 bd
X/Nn `123cf imstr readline pop`125 bd
X/N1 `123cf h1 readstring pop`125 bd
X/C `123cf read pop add put h1`125 bd
X/S `123cf read pop add getinterval`125 bd
X/F `123cf read pop add cf h1 readhexstring pop 0 get exch dofill`125 bd
X/dofill `123/len exch def 2 copy 0 1 len 1 sub `123exch put 2 copy`125 for p
Vop pop pop 0 len getinterval`125 bd
Xo 255 380 dofill pop
X31 53 1 `09131 0 0 -53 0 53`093 `123I`125 image
X,$11.#221#,#883*.#441E,$11.#221#,#883*.#441E,$11.#221#,#883*xr2!r
Xp01F3FFFE7FF2000241F2FF7A5FF2FF7A5FF2FF7A5FF2FF7A5FF2FF0241F2FF7A5FF2FF7A5FF
V2FF
Xg7A5FF2007A41F2F7FA5FF2F7FA5FF2F7FA5FF2F7FA5FF2000241F3FFFE7Fr2!r2!xr2!$2XE7
VFFCE7FE7FFCE7FE7FFCE70E64FCE."66K27C0*"K67CE0`096fg
XNCE67E667CE0gfg
XMCE70E60FvKFE7FvKFE7F$(
Xend e
X
X
XS
X7190 -36154 T
XN
XS
X0 -35856 46978 35856 @
XR
X0 G
X300 -2100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(sert a "pousser" une fenetre en arriere plan.) h
X300 -5300 M
X517.9 0 32 (En shift\255cliquant sur ce bouton, on "colle" la) W
X300 -7900 M
X323.1 0 32 (fenetre a l'arriere\255plan. Elle y restera meme si) W
X300 -10500 M
X(elle prend l'input focus.) h
X300 -13700 M
X300 -16900 M
X(Le bouton devient  :) h
X300 -18684 M
XS
X0 -35856 46978 35856 @
XR
X-7190 36154 T
XR
X
Xa 40 dict begin
X36719 -61848 T
X8916 12560 s
X/bd`123bind def`125def /sd`123string def`125bd /U`1230 exch getinterval def`
V125bd
X/cf currentfile def /imstr 130 sd /h1 1 sd /a1 190 sd /a2 190 sd /z 380 sd /
Vo 380 sd
X/z2 z 2 U /z3 z 3 U /z4 z 4 U /z5 z 5 U /z6 z 6 U
X/o2 o 2 U /o3 o 3 U /o4 o 4 U /o5 o 5 U /o6 o 6 U
X/I `123codes cf read pop get exec`125 bd
X/codes `091`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`1
V23I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`
V125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`
V123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125
X`123z 0 -32 S`125`123z 0 63 S`125`123z 0 158 S`125`123z 0 253 S`125`123o 0 -
V32 S`125`123o 0 63 S`125`123o 0 158 S`125`123o 0 253 S`125
X`123a1 0 -32 S`125`123a1 0 63 S`125`123a2 0 -32 S`125`123a2 0 63 S`125`123a1
V -32 F`125`123a1 63 F`125`123a2 -32 F`125`123a2 63 F`125
X`123Nn`125`123N1`125`123h1 0 -32 C`125`123h1 0 95 C`125`123h1 0 190 C`125
X`123-32 A`125`123-24 A`125`123-16 A`125`123-8 A`125`1230`125`1238 A`125`1231
V6 A`125`12324 A`125`12332 A`125`12340 A`125`12348 A`125`12356 A`125
X`12364 A`125`12372 A`125`12380 A`125`12388 A`125`12396 A`125`123104 A`125`12
V3112 A`125`123120 A`125`123128 A`125`123136 A`125
X`1232 H`125`1233 H`125`1234 H`125`1235 H`125`1236 H`125`1237 H`125`1238 H`12
V5`1239 H`125`12310 H`125`12311 H`125`12312 H`125`12313 H`125`12314 H`125`123
V15 H`125`12316 H`125`12317 H`125`12318 H`125`12319 H`125
X`12320 H`125`12321 H`125`12322 H`125`12323 H`125`12324 H`125`12325 H`125`123
V26 H`125`12327 H`125`12328 H`125`12329 H`125
X`12330 H`125`12331 H`125`12332 H`125`12333 H`125`12334 H`125`12335 H`125`123
V36 H`125`12337 H`125`12338 H`125`12339 H`125
Xz2 z3 z4 z5 z6 o2 o3 o4 o5 o6`093 def
X/H `123cf imstr 0 4 -1 roll getinterval readhexstring pop`125 bd
X/A `123/val exch def cf imstr readline pop dup 0 exch
X`123val add 3 copy put pop 1 add`125 forall pop`125 bd
X/Nn `123cf imstr readline pop`125 bd
X/N1 `123cf h1 readstring pop`125 bd
X/C `123cf read pop add put h1`125 bd
X/S `123cf read pop add getinterval`125 bd
X/F `123cf read pop add cf h1 readhexstring pop 0 get exch dofill`125 bd
X/dofill `123/len exch def 2 copy 0 1 len 1 sub `123exch put 2 copy`125 for p
Vop pop pop 0 len getinterval`125 bd
Xo 255 380 dofill pop
X28 52 1 `09128 0 0 -52 0 52`093 `123I`125 image
X,#441O.#112?,#8830.#221/,#441O.#112?,#8830.#221/,#441O.#112?xr2/r
Xp0FE7FFFCFFE400048FE5FEF4BFE5FEF4BFE5FEF4BFE5FEF4BFE5FE048FE5FEF4BFE5FE54BFE
V5FESF4BFE400548FE5EAF4BF,"E5O54BFE5EAF4BF("
XS54BFE400048FE7FFFCFFr2/r2/xr2/$2XCFFF9CFFCFFF9CFFCFFF9CE1CC9F9C."CCK4F80*"Z
VCF9CC0CCCF9CCFCCCF9CCECCCF9CE1CC1Fv4>w4>$)
Xend e
X
X
XS
X7286 -64244 T
XN
XS
X0 -7766 46882 7766 @
XR
X0 G
X300 -2100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X1778.0 0 32 (et fonctionne alors comme une bascule) W
X300 -4700 M
X(avant/arriere plan.) h
XS
X0 -7766 46882 7766 @
XR
X-7286 64244 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5164 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Utilisation generale de DECwindows) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X77.6 0 32 (On annule ce mode de fonctionnement en shift\255) W
X300 -14300 M
X(cliquant a nouveau sur le bouton.) h
X300 -17500 M
X300 -20700 M
X/x0 p P D
X(Le copy and paste de DECterm a DECterm) h
XS
X/x1 p P D
Xx0 x1 U -304.9 m
Xx1 x0 U 0 l
X87.8 w k
XR
X300 -23900 M
X300 -27100 M
X(Son fonctionnement normal est :) h
X300 -30300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -30300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(donner l'input focus au DECterm source) h
X300 -33500 M
X/Symbol F 2400 o f
X(\267) h
X2100 -33500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(cliquer MB1 pour selectionner) h
X300 -36700 M
X/Symbol F 2400 o f
X(\267) h
X2100 -36700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(donner l'input focus au DECterm destination) h
X300 -39900 M
X/Symbol F 2400 o f
X(\267) h
X2100 -39900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(cliquer MB3 pour coller.) h
X300 -43100 M
X300 -46300 M
X(La procedure acceleree est :) h
X300 -49500 M
X/Symbol F 2400 o f
X(\267) h
X2100 -49500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X227.6 0 32 (donner l'input focus au DECterm destination) W
X2100 -52100 M
X(\(en general il l'a deja\)) h
X300 -55300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -55300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X1321.6 0 32 (selectionner avec MB3 sur le DECterm) W
X2100 -57900 M
X(source) h
X300 -61100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -61100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X305.9 0 32 (des que MB3 est relache, le DECterm desti\255) W
X2100 -63700 M
X(nation recoit le texte.) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5164 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Utilisation generale de DECwindows) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/x0 p P D
X319.8 0 32 (VMS DEBUG "oriente VT" en multifenetres) W
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -14300 M
X/x0 p P D
X(sous DECwindows) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -17500 M
X300 -20700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Ce qui etait possible sous VWS par :) h
X300 -23450 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(DBG> SET WINDOW SEPARATE) h
X300 -26500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X188.8 0 32 (l'est toujours sous DECwindows en utilisant le) W
X300 -29100 M
X487.3 0 32 (DEBUG standard. Il suffit de creer un DEC\255) W
X300 -31700 M
X896.0 0 32 (term non assigne et d'y assigner les noms) W
X300 -34300 M
X(logiques ) h
X/Courier-ISOLatin1 F 1800 o f
X(DBG$INPUT ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(et ) h
X/Courier-ISOLatin1 F 1800 o f
X(DBG$OUTPUT.) h
X300 -37500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(L'image) h
X300 -39650 M
X/Courier-ISOLatin1 F 1800 o f
X(SYS$SYSTEM:DECW$MAIL_CREATEDECTERM.EXE) h
X300 -42700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X135.0 0 32 (permet de le faire facilement. Elle cree un nom) W
X300 -45300 M
X365.8 0 32 (logique  ) W
X/Courier-ISOLatin1 F 1800 o f
X365.8 0 32 (DECW$MAIL_DECTERM ) W
X/Times-Roman-ISOLatin1 F 2400 o f
X365.8 0 32 (contenant le nom) W
X300 -47900 M
X(du device cree \() h
X/Courier-ISOLatin1 F 1800 o f
X(_TWAn:) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(\)) h
X300 -50350 M
X/Courier-ISOLatin1 F 1400 o f
X($! DECW_DEBUG.COM \255 setup DEBUG for DECwindows) h
X300 -52550 M
X($ RUN SYS$SYSTEM:DECW$MAIL_CREATEDECTERM) h
X300 -54750 M
X($ ALLOCATE DECW$MAIL_DECTERM) h
X300 -56950 M
X($ DEFINE DBG$INPUT DECW$MAIL_DECTERM) h
X300 -59150 M
X($ DEFINE DBG$OUTPUT DECW$MAIL_DECTERM) h
X300 -61200 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/x0 p P D
X(Les procedures de login) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -14900 M
X300 -18100 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X2161.6 0 32 (Une precaution : ) W
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X2161.6 0 32 (s'assurer que dans) W
X300 -20700 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X630.4 0 32 (LOGIN.COM) W
X/Times-Roman-ISOLatin1 F 2400 o f
X630.4 0 32 (, toutes les commandes faisant une) W
X300 -23300 M
X1763.6 0 32 (lecture sur ) W
X/Courier-ISOLatin1 F 1800 o f
X1763.6 0 32 (SYS$COMMAND ) W
X/Times-Roman-ISOLatin1 F 2400 o f
X1763.6 0 32 (\() W
X/Courier-ISOLatin1 F 1800 o f
X1763.6 0 32 ($ SET TERMI\255) W
X300 -25900 M
X171.1 0 32 (NAL/INQUIRE) W
X/Times-Roman-ISOLatin1 F 2400 o f
X171.1 0 32 ( en est une!\) sont encadrees par un) W
X300 -28500 M
X149.3 0 32 (test verifiant que ) W
X/Courier-ISOLatin1 F 1800 o f
X149.3 0 32 (SYS$COMMAND ) W
X/Times-Roman-ISOLatin1 F 2400 o f
X149.3 0 32 (est  un terminal.) W
X300 -31100 M
X(Sinon, FileView ne demarre pas !) h
X300 -33850 M
X/Courier-ISOLatin1 F 1800 o f
X($ IF F$GETDVI\("SYS$COMMAND","TRM"\)) h
X300 -36450 M
X($ THEN) h
X300 -39050 M
X($  SET TERMINAL/INQUIRE) h
X300 -41650 M
X($   ...) h
X300 -44250 M
X($ ENDIF) h
X300 -46850 M
X300 -49900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X383.0 0 32 (Les procedures ) W
X/Courier-ISOLatin1 F 1800 o f
X383.0 0 32 (SYS$MANAGER:DECW$SYLOGIN.COM) W
X300 -52500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X138.3 0 32 (et ) W
X/Courier-ISOLatin1 F 1800 o f
X138.3 0 32 (SYS$LOGIN:DECW$LOGIN.COM) W
X/Times-Roman-ISOLatin1 F 2400 o f
X138.3 0 32 ( sont executees au) W
X300 -55100 M
X301.5 0 32 (demarrage de la session. On peut y lancer des) W
X300 -57700 M
X(applications DECwindows.) h
X300 -60000 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(La facon la plus simple de les lancer est :) h
X300 -14450 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X($ SPAWN/NOWAIT/INPUT=NL: \255) h
X300 -17050 M
X(   RUN SYS$SYSTEM:DECW$CLOCK) h
X300 -20100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X76.5 0 32 (mais il est nettement preferable de les lancer en) W
X300 -22700 M
X(process detache s'il y en a plusieurs.) h
X300 -25900 M
X413.7 0 32 (Il faut passer par une procedure intermediaire) W
X300 -28500 M
X722.8 0 32 (qui doit definir le display DECwindows car) W
X300 -31100 M
X(celui\255ci n'est pas herite comme avec  ) h
X/Courier-ISOLatin1 F 1800 o f
X(SPAWN) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(.) h
X300 -33850 M
X/Courier-ISOLatin1 F 1800 o f
X($ RUN/AUTHORIZE/DETACHED \255) h
X300 -36450 M
X(  /PROCESS="DECw Clock" \255) h
X300 -39050 M
X(  /INPUT=DECW_START_CLOCK.COM \255) h
X300 -41650 M
X(  /OUTPUT=NL: \255) h
X300 -44250 M
X(  SYS$SYSTEM:LOGINOUT) h
X300 -46850 M
X300 -49450 M
X300 -52050 M
X($! DECW_START_CLOCK.COM) h
X300 -54650 M
X($ @DECW_DISPLAY ! definit DECW$DISPLAY) h
X300 -57250 M
X($ RUN SYS$SYSTEM:DECW$CLOCK) h
X300 -59400 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -8050 M
X300 -11100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X1945.3 0 32 (La procedure ) W
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X1945.3 0 32 (DECW_DISPLAY.COM ) W
X/Times-Roman-ISOLatin1 F 2400 o f
X1945.3 0 32 (est une) W
X300 -13700 M
X449.1 0 32 ("couche" au\255dessus de ) W
X/Courier-ISOLatin1 F 1800 o f
X449.1 0 32 ($ SET DISPLAY) W
X/Times-Roman-ISOLatin1 F 2400 o f
X449.1 0 32 ( ... per\255) W
X300 -16300 M
X229.1 0 32 (mettant une syntaxe plus simple et la reutilisa\255) W
X300 -18900 M
X(tion des devices ) h
X/Courier-ISOLatin1 F 1800 o f
X(WSAn: ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(deja crees.) h
X300 -21350 M
X300 -23550 M
X/Courier-ISOLatin1 F 1400 o f
X($!) h
X6060 -23550 M
X(DECW_DISPLAY.COM \255) h
X300 -24950 M
X($!      sets DECwindows display on specified node ) h
X300 -26350 M
X($ ) h
X300 -27750 M
X($ if p1 .eqs. "" then p1 = "0" ) h
X300 -29150 M
X($ unit = 1 ) h
X300 -30550 M
X($ ) h
X300 -31950 M
X($loop: ) h
X300 -33350 M
X($ device = "WSA" + f$string\(unit\) + ":" ) h
X300 -34750 M
X($ if \(.not. f$getdvi\(device,"EXISTS"\)\) then goto none ) h
X300 -36150 M
X($ define/user sys$output _nla0: ) h
X300 -37550 M
X($ show display 'device'/symbols ) h
X300 -38950 M
X($ if p1 .eqs. decw$display_node then goto found ) h
X300 -40350 M
X($ unit = unit + 1 ) h
X300 -41750 M
X($ goto loop ) h
X300 -43150 M
X($ ) h
X300 -44550 M
X($found: ) h
X300 -45950 M
X($ write sys$output "%DWDISPLAY\255I\255OLD, using ''device'" ) h
X300 -47350 M
X($ define/nolog DECW$DISPLAY 'device' ) h
X300 -48750 M
X($ exit ) h
X300 -50150 M
X($ ) h
X300 -51550 M
X($none: ) h
X300 -52950 M
X($ if p1 .eqs. "0" then tqual = "/transport=local" ) h
X300 -54350 M
X($ set display/create/node='p1''tqual' ) h
X300 -55750 M
X($ write sys$output \255) h
X300 -57150 M
X("%DWDISPLAY\255I\255NEW, created''f$trnlnm\("DECW$DISPLAY"\)'" ) h
X300 -58550 M
X($ exit ) h
X300 -60700 M
X300 -63300 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -8050 M
X300 -11100 M
X/x0 p P D
X(Fichiers de ressources des applications) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -14300 M
X300 -17500 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X226.3 0 32 (Ce sont des fichiers de texte contenant la defi\255) W
X300 -20100 M
X145.7 0 32 (nition de valeurs par defaut pour DECwindows) W
X300 -22700 M
X(et ses applications.) h
X300 -25900 M
X300 -29100 M
X113.0 0 32 (Ils sont cherches dans ) W
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X113.0 0 32 (DECW$USER_DEFAULTS) W
X/Times-Roman-ISOLatin1 F 2400 o f
X113.0 0 32 ( puis) W
X300 -31700 M
X(dans ) h
X/Courier-ISOLatin1 F 1800 o f
X(DECW$SYSTEM_DEFAULTS) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(.) h
X300 -34900 M
X300 -38100 M
X(Le format des lignes de ces fichiers de texte est ) h
X300 -41300 M
X300 -44500 M
X(`091"*"`093ident`123\("."`124"*"\)ident`125":"valeur) h
X300 -47700 M
X300 -50900 M
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X187.2 0 32 (Leur modification n'est ni documentee \(sauf) W
X300 -53500 M
X(sous Ultrix\) ni supportee.) h
X300 -56700 M
X300 -59900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X168.5 0 32 (Voici quelques\255uns de ces fichiers et quelques\255) W
X300 -62500 M
X(unes des ressources interessantes...) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11250 M
X/Helvetica-ISOLatin1 $
X/Helvetica & P
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$LOGIN.DAT \255 login DECwindows) h
X300 -13850 M
X300 -16450 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(*blinkRate:0) h
X300 -19500 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X634.5 0 32 (supprime le clignotement du curseur dans la) W
X300 -22100 M
X248.6 0 32 (login box DECwindows et evite de charger du) W
X300 -24700 M
X(CPU au process) h
X/Courier-ISOLatin1 F 1800 o f
X( _WSAn:) h
X300 -27450 M
X300 -30050 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$WINMGR.DAT \255 window manager) h
X300 -32650 M
X300 -35250 M
X/Courier-ISOLatin1 F 1800 o f
X(wm*flash: TRUE) h
X300 -38300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X509.3 0 32 (effet de zoom fenetre/icone "a la MacIntosh") W
X300 -40900 M
X(\(\(c\) Apple\).) h
X300 -43650 M
X/Courier-ISOLatin1 F 1800 o f
X(wm*sticky: TRUE) h
X300 -46700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X267.9 0 32 (donne a toutes les fenetres l'attribut obtenu en) W
X300 -49300 M
X(shift\255cliquant sur le bouton "push to back".) h
X300 -52050 M
X/Courier-ISOLatin1 F 1800 o f
X(wm*geometry: 150x705+5+25) h
X300 -55100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X243.0 0 32 (definit la geometrie de l'icon box \(dans ce cas) W
X300 -57700 M
X(un ruban le long du cote gauche de l'ecran\).) h
X300 -60000 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Le format de la specification de geometrie est :) h
X300 -14900 M
X(largeur x hauteur + origine_x + origine_y) h
X300 -18100 M
X(\(exprime en pixels\).) h
X300 -21300 M
X586.3 0 32 (Beaucoup d'autres applications acceptent une) W
X300 -23900 M
X257.7 0 32 (specification de geometrie de cette forme dans) W
X300 -26500 M
X(leur fichier de ressource propre.) h
X300 -29700 M
X300 -32450 M
X/Helvetica-ISOLatin1 $
X/Helvetica & P
X/Helvetica-ISOLatin1 F 1800 o f
X(VUE$DEFAULTS.DAT \255 FileView) h
X300 -35050 M
X300 -37650 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(*blinkRate: 0) h
X300 -40700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X761.4 0 32 (supprime le clignotement des curseurs. Cela) W
X300 -43300 M
X287.4 0 32 (peut eviter de rendre inutilement actif le proc\255) W
X300 -45900 M
X259.5 0 32 (ess de FileView sur un systeme tres charge en) W
X300 -48500 M
X(memoire.) h
X300 -51700 M
X300 -54450 M
X/Courier-ISOLatin1 F 1800 o f
X(*FileView.initialState: 3) h
X300 -57500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X125.6 0 32 (demarre FileView en icone. Ce type de specifi\255) W
X300 -60100 M
X213.7 0 32 (cation est accepte par beaucoup d'autres appli\255) W
X300 -62700 M
X(cations dans leur fichier propre.) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11250 M
X/Helvetica-ISOLatin1 $
X/Helvetica & P
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$TERMINAL.DAT \255 DECterm) h
X300 -13850 M
X300 -16150 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1400 o f
X(DECW$TERMINAL.main.terminal.batchScrollcount: 8) h
X300 -19100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X211.3 0 32 (definit le nombre de lignes deplacees a chaque) W
X300 -21700 M
X456.0 0 32 (scroll du DECterm: utile sur une VAXstation) W
X300 -24300 M
X(monochrome) h
X300 -27500 M
X300 -30250 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$CALENDAR.DAT \255 Calendar) h
X300 -33300 M
X300 -36050 M
X/Courier-ISOLatin1 F 1800 o f
X(Calendar.initialState: 3) h
X300 -39100 M
X300 -41850 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$MAIL.DAT \255 Mail) h
X300 -44900 M
X300 -47650 M
X/Courier-ISOLatin1 F 1800 o f
X(Mail.initialState: 3) h
X300 -50700 M
X300 -53450 M
X/Helvetica-ISOLatin1 F 1800 o f
X(NOTES$DEFAULTS.DAT \255 Notes) h
X300 -56500 M
X300 -59250 M
X/Courier-ISOLatin1 F 1800 o f
X(Notes*MAIN_SHELL.initialState: 3) h
X300 -61550 M
X300 -63600 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5064 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation de l'environnement) h
X300 -5300 M
X(______________________________________) h
X300 -7750 M
X300 -9950 M
X300 -12150 M
X300 -15100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X653.0 0 32 (Toutes ces ressources personnalisees peuvent) W
X300 -17700 M
X(etre regroupees dans un seul fichier commun :) h
X300 -20900 M
X( ) h
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(DECW$XDEFAULTS.DAT) h
X300 -24100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(quit doit etre place dans la directory de login.) h
X300 -27300 M
X300 -30500 M
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X/x0 p P D
X(Bannieres des fenetres) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -33700 M
X300 -36900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X515.4 0 32 (Il est interessant de pouvoir modifier la ban\255) W
X300 -39500 M
X709.6 0 32 (niere des fenetres, particulierement celle des) W
X300 -42100 M
X280.0 0 32 (DECterms \(qui aime "DECterm 1", "DECterm) W
X300 -44700 M
X(2" etc.  ?\).) h
X300 -47900 M
X234.5 0 32 (Les sequences OSC seront sans doute support\255) W
X300 -50500 M
X149.1 0 32 (ees dans une future version mais ne le sont pas) W
X300 -53100 M
X484.5 0 32 (pour l'instant. Il faut avoir recours a un pro\255) W
X300 -55700 M
X(gramme ) h
X/Courier-ISOLatin1 F 1800 o f
X(SETICON.C ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(\(B. Ourghanlian\).) h
X300 -58000 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5995 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Programmation sous DECwindows) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/x0 p P D
X(Pseudo\255root DECwindows) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -14900 M
X300 -18100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X918.8 0 32 (DECwindows cree une pseudo\255root window) W
X300 -20700 M
X554.1 0 32 (couvrant tout l'ecran et donc cachant la root) W
X300 -23300 M
X149.4 0 32 (window. Cela peut empecher certaines applica\255) W
X300 -25900 M
X210.9 0 32 (tions X11 de fonctionner \(elles affichent sur la) W
X300 -28500 M
X(root window\).) h
X300 -31700 M
X300 -34900 M
X(Il faut dans ces programmes remplacer :) h
X300 -37350 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1400 o f
X(Window root;) h
X300 -39550 M
X(Display display;) h
X300 -41750 M
X(root = RootWindow\(display,DefaultScreen\(display\)\);) h
X300 -44700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(par :) h
X300 -47150 M
X/Courier-ISOLatin1 F 1400 o f
X(root = PseudoRoot\(display,DefaultScreen\(display\)\);) h
X300 -49350 M
X300 -52300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X112.6 0 32 (Le code de la fonction ) W
X/Courier-ISOLatin1 F 1800 o f
X112.6 0 32 (PseudoRoot\(\) ) W
X/Times-Roman-ISOLatin1 F 2400 o f
X112.6 0 32 (est le sui\255) W
X300 -54900 M
X(vant :) h
X300 -57200 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5995 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Programmation sous DECwindows) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Pour la meme raison, la fonction) h
X300 -14900 M
X300 -17650 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(Select_Window\(display\)) h
X300 -20250 M
X(Display *display;) h
X300 -22850 M
X300 -25900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X545.7 0 32 (qui doit retourner le window identifier d'une) W
X300 -28500 M
X244.0 0 32 (fenetre choisie sur l'ecran grace a la souris re\255) W
X300 -31100 M
X(tourne toujours celui de la pseudo\255root) h
X300 -34300 M
X300 -37500 M
X(Il faut remplacer cette fonction par la suivante :) h
X300 -40700 M
X300 -43450 M
X/Courier-ISOLatin1 F 1800 o f
X(Select_Window\(display,subwindow_flag\)) h
X300 -46050 M
X(Display *display;) h
X300 -48650 M
X(Int subwindow_flag;) h
X300 -51700 M
X300 -54900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X537.0 0 32 (Le parametre supplementaire subwindow_flag) W
X300 -57500 M
X314.2 0 32 (sert a preciser si l'on veut le window id de la) W
X300 -60100 M
X(parente ou de la fille des fenetres pointees.) h
X300 -62400 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X5995 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Programmation sous DECwindows) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/x0 p P D
X(Test UIS/DECwindows) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -14900 M
X300 -18100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X1014.8 0 32 (Comment ecrire un programme qui s'auto\255) W
X300 -20700 M
X(adapte a l'environnement graphique existant ?) h
X300 -23900 M
X300 -27100 M
X324.7 0 32 (Un programme qui contient des appels aux li\255) W
X300 -29700 M
X301.3 0 32 (brairies DECwindows est linke a ces librairies) W
X300 -32300 M
X260.1 0 32 (et generera donc une erreur sur un systeme ou) W
X300 -34900 M
X49.7 0 32 (elles n'existent pas \(il n'y a pas de "dummy" li\255) W
X300 -37500 M
X(brairies comme pour UIS\).) h
X300 -40700 M
X300 -43900 M
X879.8 0 32 (La solution : utiliser ) W
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X879.8 0 32 (LIB$FIND_IMAGE_SYMBOL) W
X300 -46500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X524.5 0 32 (pour trouver les adresses des differentes rou\255) W
X300 -49100 M
X414.8 0 32 (tines utilisees. Les images partageables seront) W
X300 -51700 M
X324.0 0 32 (mappees au premier appel mais le programme) W
X300 -54300 M
X(ne sera pas linke a aucune d'elles.) h
X/Courier-ISOLatin1 F 1800 o f
X( ) h
X300 -56600 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10901 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/x0 p P D
X(Un DECterm sous un autre username) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X( ) h
X/Times-Italic-ISOLatin1 $
X/Times-Italic & P
X/Times-Italic-ISOLatin1 F 2400 o f
X(?) h
X300 -14900 M
X300 -18100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X619.6 0 32 (Si le DECterm controller tourne, il suffit de) W
X300 -20700 M
X(creer le DECterm par:) h
X300 -23450 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X($ RUN SYS$SYSTEM:DECW$MAIL_CREATEDECTERM) h
X300 -26500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X124.6 0 32 (Le DECterm une fois ouvert, lui donner l'input) W
X300 -29100 M
X(focus avec la souris et taper RETURN) h
X300 -32300 M
X300 -34084 M
X-7200 7200 T
XR
X
Xa 40 dict begin
X7190 -69805 T
X46882 31159 s
X/bd`123bind def`125def /sd`123string def`125bd /U`1230 exch getinterval def`
V125bd
X/cf currentfile def /imstr 130 sd /h1 1 sd /a1 190 sd /a2 190 sd /z 380 sd /
Vo 380 sd
X/z2 z 2 U /z3 z 3 U /z4 z 4 U /z5 z 5 U /z6 z 6 U
X/o2 o 2 U /o3 o 3 U /o4 o 4 U /o5 o 5 U /o6 o 6 U
X/I `123codes cf read pop get exec`125 bd
X/codes `091`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`1
V23I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`
V125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`
V123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125
X`123z 0 -32 S`125`123z 0 63 S`125`123z 0 158 S`125`123z 0 253 S`125`123o 0 -
V32 S`125`123o 0 63 S`125`123o 0 158 S`125`123o 0 253 S`125
X`123a1 0 -32 S`125`123a1 0 63 S`125`123a2 0 -32 S`125`123a2 0 63 S`125`123a1
V -32 F`125`123a1 63 F`125`123a2 -32 F`125`123a2 63 F`125
X`123Nn`125`123N1`125`123h1 0 -32 C`125`123h1 0 95 C`125`123h1 0 190 C`125
X`123-32 A`125`123-24 A`125`123-16 A`125`123-8 A`125`1230`125`1238 A`125`1231
V6 A`125`12324 A`125`12332 A`125`12340 A`125`12348 A`125`12356 A`125
X`12364 A`125`12372 A`125`12380 A`125`12388 A`125`12396 A`125`123104 A`125`12
V3112 A`125`123120 A`125`123128 A`125`123136 A`125
X`1232 H`125`1233 H`125`1234 H`125`1235 H`125`1236 H`125`1237 H`125`1238 H`12
V5`1239 H`125`12310 H`125`12311 H`125`12312 H`125`12313 H`125`12314 H`125`123
V15 H`125`12316 H`125`12317 H`125`12318 H`125`12319 H`125
X`12320 H`125`12321 H`125`12322 H`125`12323 H`125`12324 H`125`12325 H`125`123
V26 H`125`12327 H`125`12328 H`125`12329 H`125
X`12330 H`125`12331 H`125`12332 H`125`12333 H`125`12334 H`125`12335 H`125`123
V36 H`125`12337 H`125`12338 H`125`12339 H`125
Xz2 z3 z4 z5 z6 o2 o3 o4 o5 o6`093 def
X/H `123cf imstr 0 4 -1 roll getinterval readhexstring pop`125 bd
X/A `123/val exch def cf imstr readline pop dup 0 exch
X`123val add 3 copy put pop 1 add`125 forall pop`125 bd
X/Nn `123cf imstr readline pop`125 bd
X/N1 `123cf h1 readstring pop`125 bd
X/C `123cf read pop add put h1`125 bd
X/S `123cf read pop add getinterval`125 bd
X/F `123cf read pop add cf h1 readhexstring pop 0 get exch dofill`125 bd
X/dofill `123/len exch def 2 copy 0 1 len 1 sub `123exch put 2 copy`125 for p
Vop pop pop 0 len getinterval`125 bd
Xo 255 380 dofill pop
X513 369 1 `091513 0 0 -369 0 369`093 `123I`125 image
X$/KFE7Fz1?$)4>yMF3CFA74F$/4?$g3! _KFF80 _KFF80 ZR3FFFE7FFFCFF8FFFF0 XR200024
V0004FF880010 XR2FF7A5FFF4FF8BFFD0 X
XW2FF7A5FFF4FF8B00D0007C3F1E20rK0780 NT2FF7A5FFF4FF8B7ED00066003
X1`096rK0CC0 N\2FF7A5FFF4FF8B7ED000633060F9E36D9800C0 NU2FF02400F4FF8B7ED0006
V3300`096c
XN336EEC00C0 NU2FF7A5FEF4FF8B00D000633E0`096c
XN338CCC0180 NU2FF7A5FEF4FF8B7FD00063300`096c
XMF30CCC03 OU2FF7A5FEF4FF8AFFD00063300`096c
XM030CCC06 OT2007F40EF4FF8A00500066001
XO63130CCC0FC0 N\2F7FA5EEF4FF8AFF50007C3F1E39E30CCC0FC0 NR2F7FA5EEF4FF8A0050
V XR2F7FA5EEF4FF8BFFD0 XR2F7FA5EEF4FF880010 X
XR2000240004FF8FFFF0 XP3FFFE7FFFCFF80 _KFF80 _KFF9F$`094LFCFF80 _KFF8F$`094LF
V8FF8F$`094LF8FF8F$`094LF8FF8F$`094LF8FF8F$)1?xKE67F$(4;$B
XRFE7FFFF8FF8FFFFC3Fz1?wL03E677vMFE1FFFFBv4;$@TFCE7FE7FFFF8FF8FFFF99Fz1?w1?,"
VE7vMFCCFFFF3$C
X\FCE7FE7FFFF8FF8FFFF3F8726726787278387FvL3F0641v."F9P9C20C393398387$>RFCE70E
V64FFF8FF8FFF,"F3L311311031
X."33w1>0fg
Xv,"F9P99F3998899F333$>KFCE60fb
XN7FF8FF8FFF."F3,#331?("11w2&0fg
Xv."F9K98F3,#99KE733$>KFC06."66N7FF8FF8FFF,"F3.#3318*"18w1>0fg
Xv,"F9K9C73.#99KC703$>RFCE606667FF8FF8FFF,"F3.&33K3C7Fv1>0fg
Xv,"F9K9E33.#99KCF3F$>TFCE67E667FF8FF8FFFF9D3,%33L323E7FvL3E4667vMFCE91F33*#K
V9F3B$>UFCE676667FF8FF8FFFFC3873("M38933930w
XL032671vNFE1C9878C3*"K8387$>QFCE70E60FFF8FF8F$\NE7FFF8FF8F$\NE7FFF8FF8F$`094
VLF8FF8F$`094LF8FF80 _KFF80 _KFF80 \N0FFFF8FF87$\N8FFFF8FF87
X$\N8FFFF8FF87$\N8FFFF8FF87$\N8FF7F8FF87$\N8FEBF8FF87$\N8FDDF8FF87$\N8FBEF8FF
V87$\N8F7F78FF87$\N8EFFB8FF87$\N8C7F18FF87$\N8F7F78FF87
X$\N8F7F78FF87$\N8F0078FF87$\N8FFFF8FF87$\N8FFFF8FF87$\N8FFFF8FF87$\N8FFFF8FF
V87$\N8FFFF8FF87$\N8F0078FF87$\N8C0018FF87$\N8DFFD8FF87
X$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF
V87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
Xz."77Q41761FFF777FFFFD,"DDMFE3EF7DFvQ75D8FF741FF7FF7F$<N8DFFD8FF87zM76B77736
Vv1'vPFDDADDFDDCEBAFvQ74977F75FFE7FE7F$<N8DFFD8FF87
XzM76B77736vS2678D18DDAEBFFDCDD77vQ7497FF75FFF7FF7F$<N8DFFD8FF87zc75D077563FF
VF57776D75D777FF3ADD77F07F7558FF743FF7077F$<N8DFFD8FF87
XzMADD77756vS5777EF76B76BFFD6DD77vQAD5F7FADDFF7FF7F$<N8DFFD8FF87zMAC177766v*"
VQEF76B06BFFD05D77vQADDF7FAFDFF7FF7F$<N8DFFD8FF87z
XODDD77766FBFF*"1o*"N5DFDDEEBAFvQDDD77FDDDBF7FF7F$<N8DFFD8FF87zYDDD741761BFF7
V418EF8F775DFE3EF7DFvQDDD8FFDE3BC1FC1F$<N8DFFD8FF87$*49
X$QN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF
V87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
X$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$'KE07F$SN8
VDFFD8FF87$'KE07F$SN8DFFD8FF87$'KE07F$SO8DFFD8FF8777z
XKE07F$SO8DFFD8FF8777zKE07F$SW8DFFD8FF877638D14E32E3BFE07F$SW8DFFD8FF8775D76D
V37D55DBFE07F$SW8DFFD8FF8776306F761541FFE07F$S
XW8DFFD8FF8777D7EF75D55FFFE07F$SW8DFFD8FF8775D76F75D75DBFE07F$SW8DFFD8FF878E3
V8EF761763BFE07F$SN8DFFD8FF87$'KE07F$SN8DFFD8FF87$'
XKE07F$SN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DF
VFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87
V$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\N8DFFD8FF87$\
XN8DFFD8FF87$\N8C0018FF87$\N8F0078FF87$\N8FFFF8FF87$\N8FFFF8FF87$\N8FFFF8FF87
V$\N8FFFF8FF87$\N8FFFF8FF87$\N8F0078FF87$\N8F7F78FF87$\
XN8F7F78FF87$\N8C7F18FF87$\N8EFFB8FF87$\N8F7F78FF87$\N8FBEF8FF87$\N8FDDF8FF87
V$\N8FEBF8FF87$\N8FF7F8FF87$\N8FFFF8FF87$\N8FFFF8FF87$\
XN8FFFF8FF80 \N0FFFF8FF80 _KFF80 _KFF80 _$p3myKFE7F$(KF803$O3m$R
Xend e
X
X
XS
X8149 -70476 T
XN
XS
X0 -1918 45923 1918 @
XR
X0 G
X300 -1200 M
XS
X0 -1918 45923 1918 @
XR
X-8149 70476 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10901 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -5300 M
X(______________________________________) h
X300 -8500 M
X300 -11700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X34.5 0 32 (Pour etre plus general, il faut utiliser une proce\255) W
X300 -14300 M
X992.0 0 32 (dure ) W
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X992.0 0 32 (VUE$CREATE_DECTERM.COM ) W
X/Times-Roman-ISOLatin1 F 2400 o f
X992.0 0 32 (a placer dans) W
X300 -16900 M
X/Courier-ISOLatin1 F 1800 o f
X998.4 0 32 (VUE$LIBRARY) W
X/Times-Roman-ISOLatin1 F 2400 o f
X998.4 0 32 (. Elle est fortement inspiree de) W
X300 -19050 M
X/Courier-ISOLatin1 F 1800 o f
X(DECW$MAIL_DECTERM.COM) h
X300 -21650 M
X300 -23650 M
Xn 0.556 o f
X($!) h
X6060 -23650 M
X(CREATE_DECTERM.COM) h
X300 -25450 M
X($!) h
X300 -26650 M
X($! Translate the DECW$DISPLAY logical) h
X300 -27850 M
X($!) h
X300 -29050 M
X($ localnode = f$edit\(f$getsyi\("NODENAME"\),"TRIM"\) \255 "::") h
X300 -30250 M
X($ display = f$trnlnm\("DECW$DISPLAY"\)) h
X300 -31450 M
X($ if p1 .eqs. "") h
X300 -32650 M
X($ then) h
X300 -33850 M
X($  if display .eqs. "") h
X300 -35050 M
X($  then) h
X300 -36250 M
X($   set display/create/node=0/transport=local) h
X300 -37450 M
X($   display = f$trnlnm\("DECW$DISPLAY"\)) h
X300 -38650 M
X($  endif) h
X300 -39850 M
X($ else) h
X300 -41050 M
X($  set display/create/node='p1'/transport=decnet) h
X300 -42250 M
X($  display = f$trnlnm\("DECW$DISPLAY"\)) h
X300 -43450 M
X($ endif) h
X300 -44650 M
X($!) h
X300 -45850 M
X($! Define the decterm_mbx_name symbol) h
X300 -47050 M
X($!) h
X300 -48250 M
X($ if f$locate\("::",display\) .lt. f$length\(display\)) h
X300 -49450 M
X($   then) h
X300 -50650 M
X($     decterm_mbx_name = "DECW$DECTERM_MAILBOX_" + display + ".0") h
X300 -51850 M
X($   else) h
X300 -53050 M
X($     define/user sys$output nla0:) h
X300 -54250 M
X($     show display/symbols) h
X300 -55450 M
X($     if decw$display_transport .nes. "LOCAL") h
X300 -56650 M
X($       then) h
X300 -57850 M
X($         decterm_mbx_name = "DECW$DECTERM_MAILBOX_" + decw$display_node +
V \255) h
X300 -59050 M
X6060 -59050 M
X11820 -59050 M
X("::" + decw$display_server + "." + decw$display_screen) h
X300 -60250 M
X($       else) h
X300 -61450 M
X($         decterm_mbx_name = "DECW$DECTERM_MAILBOX_" + localnode  + \255) h
X300 -62650 M
X6060 -62650 M
X11820 -62650 M
X("::" + decw$display_server + "." + decw$display_screen) h
X300 -63850 M
X($!         goto createdecterm) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10901 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -5300 M
X(______________________________________) h
X300 -7450 M
X300 -8650 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1000 o f
X($!     endif) h
X300 -9850 M
X($ endif) h
X300 -11050 M
X($!) h
X300 -12250 M
X($ if f$trnlnm\(decterm_mbx_name\) .eqs. "") h
X300 -13450 M
X($   then) h
X300 -14650 M
X($     goto startdectermcontroller) h
X300 -15850 M
X($   else) h
X300 -17050 M
X($     if \(.not. f$getdvi\(f$trnlnm\(decterm_mbx_name\), "exists"\)\)) h
X300 -18250 M
X($       then) h
X300 -19450 M
X($         goto startdectermcontroller) h
X300 -20650 M
X($       else) h
X300 -21850 M
X($         goto createdecterm) h
X300 -23050 M
X($     endif) h
X300 -24250 M
X($ endif) h
X300 -25450 M
X($!) h
X300 -26650 M
X($! Start the DECterm controller) h
X300 -27850 M
X($!) h
X300 -29050 M
X($ startdectermcontroller:) h
X300 -30250 M
X($     processname = "DTC$" + decterm_mbx_name \255 "DECW$DECTERM_MAILBOX_")
V h
X300 -31450 M
X($     startfile = f$trnlnm\("sys$login"\) + processname \255 "::" \255 "."
V + ".TMP") h
X300 -32650 M
X($!     outfile = startfile \255 ".TMP" + ".LOG") h
X300 -33850 M
X($     open/write f 'startfile') h
X300 -35050 M
X($     write f "$ define decw$display ) h
X(\027) h
X(display'") h
X300 -36250 M
X($     write f "$ run sys$system:decw$terminal") h
X300 -37450 M
X($     close f) h
X300 -38650 M
X($     run/detached/authorize/input='startfile'/output= _NLA0: \255) h
X300 -39850 M
X(         /process=") h
X(\027) h
X(processname'" sys$system:loginout.exe) h
X300 -41050 M
X($     counter = 0) h
X300 -42250 M
X($ waitloop:) h
X300 -43450 M
X($     if f$trnlnm\(decterm_mbx_name\) .eqs. "") h
X300 -44650 M
X($       then) h
X300 -45850 M
X($) h
X6060 -45850 M
X(  counter = counter + 1) h
X300 -47050 M
X($) h
X6060 -47050 M
X(  if counter .lt. 30) h
X300 -48250 M
X($) h
X6060 -48250 M
X(    then) h
X300 -49450 M
X($) h
X6060 -49450 M
X(      wait 00:00:01) h
X300 -50650 M
X($) h
X6060 -50650 M
X(      goto waitloop) h
X300 -51850 M
X($) h
X6060 -51850 M
X(    else) h
X300 -53050 M
X($) h
X6060 -53050 M
X(      write sys$output "Error starting DECterm controller") h
X300 -54250 M
X($) h
X6060 -54250 M
X(      exit %x10000002) h
X300 -55450 M
X($) h
X6060 -55450 M
X(  endif) h
X300 -56650 M
X($     endif) h
X300 -57850 M
X($!) h
X300 -59050 M
X($! Create a DECterm terminal emulation window) h
X300 -60250 M
X($!) h
X300 -61450 M
X($ createdecterm:) h
X300 -62650 M
X($     run sys$system:decw$mail_createdecterm) h
X300 -63850 M
X($ exit) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X300 -1050 M
X10901 -3300 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -6500 M
X(______________________________________) h
X300 -8650 M
X300 -10900 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(On peut ensuite customiser "Verbs and Menus") h
X300 -13500 M
X(dans FileView pour le mettre dans un menu.) h
X300 -16100 M
X300 -18700 M
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X/x0 p P D
X(Un DECterm sur un autre systeme) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X( ?) h
X300 -21300 M
X300 -23900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Il faut a partir d'une procedure locale, activer) h
X300 -26500 M
X(sur le noeud cible un objet DECnet qui va :) h
X300 -29100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -29100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(determiner le noeud originaire de la requete) h
X2100 -31700 M
X(\(et donc le serveur X\);) h
X300 -34300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -34300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(creer le display DECwindows adequat ou de\255) h
X2100 -36900 M
X(finir ) h
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(DECW$DISPLAY ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(s'il existait deja;) h
X300 -39500 M
X/Symbol F 2400 o f
X(\267) h
X2100 -39500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(creer le DECterm.) h
X300 -42100 M
X300 -43650 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10901 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -4700 M
X(______________________________________) h
X300 -7900 M
X300 -10500 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Procedure appelle par FileView \(item "Create) h
X300 -13100 M
X(Remote DECterm"\)) h
X300 -15700 M
X300 -17400 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1200 o f
X($!) h
X300 -18800 M
X($! VUE$CREATE_REMOTE_DECTERM.COM) h
X300 -20200 M
X($!) h
X300 -21600 M
X($! This procedure is to be invoked by a FileView menu item) h
X300 -23000 M
X($! to create a DECterm window on a remote node) h
X300 -24400 M
X($!) h
X300 -25800 M
X($ username = f$getjpi\("","USERNAME"\)) h
X300 -27200 M
X($ if p1 .eqs. "") h
X300 -28600 M
X($ then) h
X300 -30000 M
X($  vue$inquire """Node name:"" """"") h
X300 -31400 M
X($  vue$read nodename) h
X300 -32800 M
X($ else) h
X300 -34200 M
X($  nodename = p1 \255 "::") h
X300 -35600 M
X($ endif) h
X300 -37000 M
X($ copy nl: 'nodename'") h
X(\027) h
X(username'"::"task=decterm") h
X300 -38250 M
X300 -39450 M
X300 -41700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(L'objet DECnet est defini par :) h
X300 -44300 M
X300 -46150 M
X/Courier-ISOLatin1 F 1400 o f
X(NCP> DEFINE OBJECT DECTERM NUMBER 0 \255) h
X300 -47750 M
X(     FILE SYS$PROCS:DECNET_CREATE_DECTERM.COM) h
X300 -49350 M
X300 -51700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(La procedure correspondante est :) h
X300 -53550 M
X300 -55150 M
X/Courier-ISOLatin1 F 1400 o f
X($!) h
X6060 -55150 M
X(DECNET_CREATE_DECTERM.COM) h
X300 -56750 M
X($) h
X300 -58350 M
X($ COPY SYS$NET NL:) h
X300 -59950 M
X($ REMNODE = F$ELEMENT\(0,":",F$TRNLNM\("SYS$NET"\)\)) h
X300 -61550 M
X($ @VUE$LIBRARY:VUE$CREATE_DECTERM 'REMNODE') h
X300 -63150 M
X($ EXIT) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10901 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -4700 M
X(______________________________________) h
X300 -6850 M
X300 -9100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Variante pour creer un terminal "auto\255logge") h
X300 -11700 M
X(sur un autre systeme : il faut alors utiliser le) h
X300 -14300 M
X(programme ) h
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(CREATE_DECTERM.EXE) h
X300 -16900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(a la place de ) h
X/Courier-ISOLatin1 F 1800 o f
X(DECW$MAIL_CREATEDECTERM.EXE) h
X300 -19050 M
X300 -20450 M
Xn 0.556 o f
X(!) h
X6060 -20450 M
X(CREATE_DECTERM.FOR) h
X300 -21650 M
X(!) h
X300 -22850 M
X6060 -22850 M
X(Include '\($PRCDEF\)') h
X300 -24050 M
X6060 -24050 M
X(Include '\($SSDEF\)') h
X300 -25250 M
X6060 -25250 M
X(Include '\($LNMDEF\)') h
X300 -26450 M
X300 -27650 M
X6060 -27650 M
X(Character*50 Result_dev) h
X300 -28850 M
X6060 -28850 M
X(Character*80 Argument) h
X300 -30050 M
X6060 -30050 M
X(Character*80 Display_dev) h
X300 -31250 M
X6060 -31250 M
X(Character*80 Image /'SYS$SYSTEM:LOGINOUT.EXE'/) h
X300 -32450 M
X6060 -32450 M
X(Integer*4 Status, Flags, DECW$TERM_PORT, SYS$CREPRC,) h
X300 -33650 M
X6060 -33650 M
X(1         SYS$TRNLNM) h
X300 -34850 M
X6060 -34850 M
X(Integer*2 Result_len) h
X300 -36050 M
X6060 -36050 M
X(Integer*4 Display_len) h
X300 -37250 M
X6060 -37250 M
X(Structure /Itmlst/) h
X300 -38450 M
X6060 -38450 M
X( Integer*2 Buffer_len) h
X300 -39650 M
X6060 -39650 M
X( Integer*2 Item_code) h
X300 -40850 M
X6060 -40850 M
X( Integer*4 Pointer) h
X300 -42050 M
X6060 -42050 M
X( Integer*4 Returned_len) h
X300 -43250 M
X6060 -43250 M
X(End structure) h
X300 -44450 M
X6060 -44450 M
X(Record /Itmlst/ Trnlist\(2\)) h
X300 -45650 M
X6060 -45650 M
X( ) h
X300 -46850 M
X(! Get argument) h
X300 -48050 M
X300 -49250 M
X6060 -49250 M
X(Call LIB$GET_FOREIGN\(Argument,,Result_len,\)) h
X300 -50450 M
X300 -51650 M
X(! Translate DECW$DISPLAY) h
X300 -52850 M
X300 -54050 M
X6060 -54050 M
X(Trnlist\(1\).Buffer_len = 80) h
X300 -55250 M
X6060 -55250 M
X(Trnlist\(1\).Item_code = LNM$_STRING) h
X300 -56450 M
X6060 -56450 M
X(Trnlist\(1\).Pointer = %loc\(Display_dev\)) h
X300 -57650 M
X6060 -57650 M
X(Trnlist\(1\).Returned_len = %loc\(Display_len\)) h
X300 -58850 M
X6060 -58850 M
X(Trnlist\(2\).Buffer_len = 0) h
X300 -60050 M
X6060 -60050 M
X(Trnlist\(2\).Item_code = 0) h
X300 -61250 M
X300 -62450 M
X6060 -62450 M
X(Status = SYS$TRNLNM\(,'LNM$FILE_DEV','DECW$DISPLAY',,) h
X300 -63650 M
X6060 -63650 M
X(1                   Trnlist\)) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10901 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Jouer avec les DECterms) h
X300 -5300 M
X(______________________________________) h
X300 -7450 M
X300 -8650 M
X300 -9850 M
X300 -11050 M
X6060 -11050 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1000 o f
X(If \(\(.not. Status\) .and. \(Status .ne. SS$_NOLOGNAM\)\) Then) h
X300 -12250 M
X6060 -12250 M
X( Call LIB$PUT_OUTPUT\() h
X300 -13450 M
X6060 -13450 M
X(1 '%CREATEDECTERM\255F\255 unable to translate DECW$DISPLAY'\)) h
X300 -14650 M
X6060 -14650 M
X( Call LIB$STOP\(%val\(Status\)\)) h
X300 -15850 M
X6060 -15850 M
X(Endif) h
X300 -17050 M
X6060 -17050 M
X(If \(.not. Status\) Then) h
X300 -18250 M
X6060 -18250 M
X( Call LIB$PUT_OUTPUT\() h
X300 -19450 M
X6060 -19450 M
X(1 '%CREATEDECTERM\255F\255 unable to translate DECW$DISPLAY'\)) h
X300 -20650 M
X6060 -20650 M
X( Call LIB$STOP\(%val\(Status\)\)) h
X300 -21850 M
X6060 -21850 M
X(Endif) h
X300 -23050 M
X300 -24250 M
X(! Create DECterm port) h
X300 -25450 M
X300 -26650 M
X6060 -26650 M
X(If \(Result_len .eq. 0\) Then) h
X300 -27850 M
X6060 -27850 M
X( Status = DECW$TERM_PORT\(,,,Result_dev,Result_len\)) h
X300 -29050 M
X6060 -29050 M
X(Else) h
X300 -30250 M
X6060 -30250 M
X( Status = DECW$TERM_PORT\(Argument\(1:Result_len\),,,) h
X300 -31450 M
X6060 -31450 M
X(1                        Result_dev,Result_len\)) h
X300 -32650 M
X6060 -32650 M
X(Endif) h
X300 -33850 M
X6060 -33850 M
X(If \(.not. Status\) Then) h
X300 -35050 M
X6060 -35050 M
X( Call LIB$PUT_OUTPUT\('%CREATEDECTERM\255F\255 unable to create DECTERM'\))
V h
X300 -36250 M
X6060 -36250 M
X( Call LIB$STOP\(%VAL\(Status\)\)) h
X300 -37450 M
X6060 -37450 M
X(Endif) h
X300 -38650 M
X300 -39850 M
X(! Now run a already logged process in it) h
X300 -41050 M
X300 -42250 M
X6060 -42250 M
X(Flags = PRC$M_DETACH .or. PRC$M_INTER .or. PRC$M_NOPASSWORD) h
X300 -43450 M
X6060 -43450 M
X(Status = SYS$CREPRC\(,Image,Result_dev\(1:Result_len\),) h
X300 -44650 M
X6060 -44650 M
X(1                   Result_dev\(1:Result_len\),) h
X300 -45850 M
X6060 -45850 M
X(2                   Display_dev\(1:Display_len\),,,,) h
X300 -47050 M
X6060 -47050 M
X(3                   %VAL\(4\),,,%VAL\(Flags\)\)) h
X300 -48250 M
X6060 -48250 M
X(If \(.not. Status\) Then) h
X300 -49450 M
X6060 -49450 M
X( Call LIB$PUT_OUTPUT\('%CREATEDECTERM\255E\255 unable to run process'\)) h
X300 -50650 M
X6060 -50650 M
X( Call LIB$STOP\(%VAL\(Status\)\)) h
X300 -51850 M
X6060 -51850 M
X(Endif) h
X300 -53050 M
X300 -54250 M
X6060 -54250 M
X(Call SYS$EXIT\(%VAL\(SS$_NORMAL\)\)) h
X300 -55450 M
X6060 -55450 M
X(End) h
X300 -56650 M
X300 -57850 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10016 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Travailler + ou \255 en remote) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -9900 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Sur une station de travail peu puissante \(la) h
X300 -12500 M
X(mienne\) et/ou equipee de peu de memoire \(la) h
X300 -15100 M
X(mienne\) il peut etre interessant de faire tourner) h
X300 -17700 M
X(la plupart des applications sur un systeme plus) h
X300 -20300 M
X(puissant.) h
X300 -22900 M
X300 -25500 M
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X/x0 p P D
X(Session manager local) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -28100 M
X300 -30700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Dans ce cas ) h
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(seul le session manager) h
X/Times-Roman-ISOLatin1 F 2400 o f
X( tourne sur) h
X300 -33300 M
X(la station de travail. ) h
X300 -35900 M
X300 -38500 M
X(Il faut :) h
X300 -41100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -41100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(configurer le session manager pour qu'il ne) h
X2100 -43700 M
X(lance aucun DECterm ni aucun FileView;) h
X300 -46300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -46300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(creer un ) h
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(DECW$LOGIN.COM ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(qui va lancer sur) h
X2100 -48900 M
X(une autre machine un ou des FileView\(s\) et) h
X2100 -51500 M
X(DECterm\(s\);) h
X300 -54100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -54100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(cela peut se faire en s'inspirant de la proce\255) h
X2100 -56700 M
X(dure utilisee ci\255dessus pour les DECterms;) h
X300 -59300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -59300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(l'image a lancer pour FileView est) h
X2100 -61450 M
X/Courier-ISOLatin1 F 1800 o f
X(SYS$SYSTEM:VUE$MASTER.EXE) h
X300 -62850 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10016 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Travailler + ou \255 en remote) h
X300 -4700 M
X(______________________________________) h
X300 -6850 M
X300 -9300 M
X/x0 p P D
X(Fonctionnement en remote complet) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -11900 M
X300 -14500 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(La station de travail n'est plus utilisee que) h
X300 -17100 M
X(comme un terminal Xwindows \(cher\).) h
X300 -19700 M
X300 -22300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -22300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Modifier la procedure) h
X2100 -24900 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(SYS$MANAGER:DECW$STARTAPPS.COM ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(                    ) h
X2100 -27500 M
X(de facon a invoquer une procedure) h
X2100 -29650 M
X/Courier-ISOLatin1 F 1800 o f
X(DECW_LOGIN_SATELLITES.COM                 ) h
X2100 -31200 M
X300 -32600 M
Xn 0.667 o f
X($!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!) h
X300 -34000 M
X($!) h
X300 -35400 M
X($ if f$search\("SYS$MANAGER:DECW_LOGIN_SATELLITES.COM"\) .nes. "") h
X300 -36800 M
X($ then) h
X300 -38200 M
X($       @sys$manager:decw_login_satellites) h
X300 -39600 M
X($       goto apps_done) h
X300 -41000 M
X($ endif) h
X300 -42400 M
X($ !) h
X300 -43800 M
X($ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!) h
X300 -45200 M
X($) h
X300 -46600 M
X($ ! If we are not on a workstation, then we are now done.) h
X300 -48900 M
X300 -51500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(   dont un exemple suit, a modifier pour votre    ) h
X300 -54100 M
X(   site.) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10016 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Travailler + ou \255 en remote) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -8850 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1000 o f
X($ ! DECW_LOGIN_SATELLITES.COM) h
X300 -10050 M
X($ !     \255 written by Kevin Carosso @ Innosoft, 16\255FEB\2551989) h
X300 -11250 M
X($ !) h
X300 -12450 M
X($ ! This locally modifiable command procedure is invoked by a slightly) h
X300 -13650 M
X($ ! modified DECW$STARTAPPS.COM.  Instead of checking to see if we are) h
X300 -14850 M
X($ ! a workstation and then starting one DECwindows LOGINOUT process, we) h
X300 -16050 M
X($ ! have a list of "satellite" workstations for each host.  The host will)
V h
X300 -17250 M
X($ ! start up one DECwindows LOGINOUT process for each of it's designated) h
X300 -18450 M
X($ ! satellites.  A host may have itself as a satellite.  The LOCAL transpor
Vt) h
X300 -19650 M
X($ ! will be used if the host and the satellite are the same, the DECnet) h
X300 -20850 M
X($ ! transport will be used otherwise.) h
X300 -22050 M
X($ !) h
X300 -23250 M
X($ ! Note that we cannot start up a LOGINOUT on a remote workstation unless)
V h
X300 -24450 M
X($ ! we are authorized by an entry in DECW$SERVER_ACCESS_ALLOWED.DAT or) h
X300 -25650 M
X($ ! DECW$SERVER_ACCESS_TRUSTED.DAT for that workstation.) h
X300 -26850 M
X($ !) h
X300 -28050 M
X($ ! The point of this is to make it easy for workstations to be used as) h
X300 -29250 M
X($ ! display\255only X servers when necessary.) h
X300 -30450 M
X($ !) h
X300 -31650 M
X($ ! The HOST <\255> SATELLITE relationships are defined by symbols of the f
Vorm:) h
X300 -32850 M
X($ !) h
X300 -34050 M
X($ !     HOSTNAME_satellites = comma separated list of satellite names...) h
X300 -35250 M
X($ ! e.g.) h
X300 -36450 M
X($ !     BIGVAX_satellites = "VS2000,GPX1,GPX2,PMAX1") h
X300 -37650 M
X($ !     PVAX1_satellites = "PVAX1,GPX3") h
X300 -38850 M
X($ !) h
X300 -40050 M
X($ ! Note that the second host, PVAX1, is a studly workstation and logs into
V) h
X300 -41250 M
X($ ! himself as well as allowing "GPX3" to log into him.) h
X300 -42450 M
X($ !) h
X300 -43650 M
X($ ! Put your host/satellite symbol definitions here:) h
X300 -44850 M
X($ !) h
X300 -46050 M
X($       FRIDAY_satellites = "MONDAY,JEUDI") h
X300 -47250 M
X($!!!!   MARDI_satellites = "JEUDI") h
X300 -48450 M
X($ !) h
X300 -49650 M
X($       node_name = F$EDIT\(F$GETSYI\("SCSNODE"\),"TRIM"\)) h
X300 -50850 M
X($       if F$TYPE\('node_name'_satellites\) .eqs. "" then exit) h
X300 -52050 M
X($ !) h
X300 -53250 M
X($ !   Start the appropriate session validation) h
X300 -54450 M
X($ !) h
X300 -55650 M
X($       n = 0) h
X300 -56850 M
X($ loop:) h
X300 -58050 M
X($       workstation = F$ELEMENT\(n, ",", 'node_name'_satellites\)) h
X300 -59250 M
X($       if workstation .eqs. "," then goto done) h
X300 -60450 M
X($       n = n + 1) h
X300 -61650 M
X($ !) h
X300 -62850 M
X($ ! determine the transport to use) h
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10016 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Travailler + ou \255 en remote) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -8850 M
X300 -10050 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1000 o f
X($ !) h
X300 -11250 M
X($       if \(workstation .eqs. "0"\) .or. \(workstation .eqs. node_name\))
V h
X300 -12450 M
X($       then) h
X300 -13650 M
X($               transport = "LOCAL") h
X300 -14850 M
X($       else) h
X300 -16050 M
X($               transport = "DECNET") h
X300 -17250 M
X($       endif) h
X300 -18450 M
X($ !) h
X300 -19650 M
X($ ! Now create the display, this will define DECW$DISPLAY which is then) h
X300 -20850 M
X($ ! used by DECW$STARTLOGIN.) h
X300 -22050 M
X($ !) h
X300 -23250 M
X($       set display/create/perm \255) h
X300 -24450 M
X(                /transport = 'transport' \255) h
X300 -25650 M
X(                /node = 'workstation') h
X300 -26850 M
X($       RUN sys$system:decw$startlogin) h
X300 -28050 M
X($       deass DECW$DISPLAY) h
X300 -29250 M
X($       goto loop) h
X300 -30450 M
X($ !) h
X300 -31650 M
X($ done:) h
X300 -32850 M
X($       exit) h
X300 -34050 M
X300 -36300 M
X300 -38900 M
X/Symbol F 2400 o f
X(\267) h
X2100 -38900 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Creer sur chaque serveur un fichier) h
X2100 -41500 M
X/Courier-ISOLatin1 F 1800 o f
X(SYS$MANAGER:SERVER_ACCESS_TRUSTED.DAT) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(  ) h
X2100 -44100 M
X(contenant des lignes au format suivant :) h
X/Courier-ISOLatin1 F 1800 o f
X(    ) h
X2100 -46700 M
X(* nom_du_node SYSTEM) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(                                        ) h
X2100 -49300 M
X(pour chaque client autorise a ouvrir une login) h
X2100 -51900 M
X(box sur ce client. Par exemple :                       ) h
X2100 -54500 M
X/Courier-ISOLatin1 F 1800 o f
X(* 0 SYSTEM) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(                                                       ) h
X2100 -56650 M
X/Courier-ISOLatin1 F 1800 o f
X(* BIGVAX SYSTEM                          ) h
X2100 -58650 M
X(* VX8800 SYSTEM) h
X300 -60050 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X10016 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Travailler + ou \255 en remote) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -9900 M
X300 -12500 M
X/Symbol F 2400 o f
X(\267) h
X2100 -12500 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Relancer DECwindows par) h
X2100 -14650 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X($@SYS$MANAGER:DECW$STARTUP RESTART     ) h
X2100 -17100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(sur les serveurs devant etre terminaux X.
V                                     ) h
X2100 -19700 M
X(Il ne doit plus y avoir de login box locale) h
X2100 -22300 M
X(creee. ) h
X300 -24900 M
X/Symbol F 2400 o f
X(\267) h
X2100 -24900 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Relancer DECwindows sur les clients. Une) h
X2100 -27500 M
X(login box doit apparaitre sur les serveurs con\255) h
X2100 -30100 M
X(cernes.) h
X300 -32700 M
X300 -35300 M
X(Il y a quelques problemes potentiels qui neces\255) h
X300 -37900 M
X(siteront une intervention manuelle en cas de) h
X300 -40500 M
X(crash d'un serveur par exemple...) h
X300 -42050 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X9098 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Quelques elements de tuning) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -9900 M
X300 -12500 M
X/x0 p P D
X(Pagination/swap) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -15100 M
X300 -17700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Sur une station de travail de classe MicroVAX) h
X300 -20300 M
X(II  monochrome equipee de 9 Mb memoire et) h
X300 -22900 M
X(d'usage general \(edition, compilation, mail etc.\)) h
X300 -25500 M
X(Une amelioration sensible des resultats a ete) h
X300 -28100 M
X(obtenue de la facon suivante :) h
X300 -30700 M
X300 -33300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -33300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Sur le compte du principal utilisateur de la) h
X2100 -35900 M
X(station, diminution du WSQUOTA ramene a) h
X2100 -38500 M
X(1536 ;) h
X300 -41100 M
X/Symbol F 2400 o f
X(\267) h
X2100 -41100 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(BALSETCNT ramene a 27 pour forcer) h
X2100 -43700 M
X(l'ouswap des processes peu actifs ;) h
X300 -46300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -46300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(Une "touche" d'automatic working set decre\255) h
X2100 -48900 M
X(menting introduite \(Digital recommande de) h
X2100 -51500 M
X(ne pas l'utiliser\) par WSDEC = 10, PFRATL) h
X2100 -54100 M
X(= 1 \(WSINC = 512\)) h
X300 -56700 M
X300 -59300 M
X(Ce ne sont que des indications...) h
X300 -60850 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X9098 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Quelques elements de tuning) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -9900 M
X/x0 p P D
X(Autres parametres) h
XS
X/x1 p P D
Xx0 x1 U -283.4 m
Xx1 x0 U 0 l
X96.8 w k
XR
X300 -12500 M
X300 -15100 M
X300 -17700 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Un sage a declare que le transport local de) h
X300 -20300 M
X(DECwindows necessitait des locks et des pages) h
X300 -22900 M
X(globales. Il est donc utile de surveiller les para\255) h
X300 -25500 M
X(metres suivants :) h
X300 -28100 M
X300 -30700 M
X/Symbol F 2400 o f
X(\267) h
X2100 -30700 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(ENQLM \(au moins egal a 66\) ;) h
X300 -33300 M
X/Symbol F 2400 o f
X(\267) h
X2100 -33300 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(GBLPAGFIL \(16384 est une bonne valeur de) h
X2100 -35900 M
X(depart\);) h
X300 -38500 M
X/Symbol F 2400 o f
X(\267) h
X2100 -38500 M
X/Times-Roman-ISOLatin1 F 2400 o f
X(GBLPAGES) h
X300 -41100 M
X300 -42650 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X9662 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation du startup) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -9900 M
X300 -12500 M
X300 -15100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(On peut definir les noms logiques suivants dans) h
X300 -17700 M
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(SYSTARTUP_V5.COM ) h
X/Times-Bold-ISOLatin1 $
X/Times-Bold & P
X/Times-Bold-ISOLatin1 F 2400 o f
X(avant) h
X/Times-Roman-ISOLatin1 F 2400 o f
X( d'invoquer) h
X300 -19850 M
X/Courier-ISOLatin1 F 1800 o f
X(DECW$STARTUP.COM) h
X300 -21850 M
X300 -24300 M
X/Symbol F 1800 o f
X(\267) h
X2100 -24300 M
X/Helvetica-ISOLatin1 $
X/Helvetica & P
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$IGNORE_VERSION) h
X/Times-Roman-ISOLatin1 F 2400 o f
X( \255 supprime la verifi\255) h
X2100 -26900 M
X(cation de la version de VMS) h
X300 -29500 M
X/Symbol F 1800 o f
X(\267) h
X2100 -29500 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$IGNORE_SUBPROCESS) h
X/Times-Roman-ISOLatin1 F 2400 o f
X( \255 DECwindows) h
X2100 -32100 M
X(n'est pas lance en subprocess \(souvent plus) h
X2100 -34700 M
X(rapide sur une petite station\)) h
X300 -37300 M
X/Symbol F 1800 o f
X(\267) h
X2100 -37300 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$IGNORE_AUTOGEN ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(\255 pas de verification) h
X2100 -39900 M
X(des parametres SYSGEN \(accelere sensible\255) h
X2100 -42500 M
X(menent le boot d'un systeme qu'on sait bien) h
X2100 -45100 M
X(configure, peut meme eviter des problemes\)) h
X300 -47700 M
X/Symbol F 1800 o f
X(\267) h
X2100 -47700 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$IGNORE_DECNET ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(\255 pas d'attente de la) h
X2100 -50300 M
X(disponibilite de DECnet \(utile sur une station) h
X2100 -52900 M
X(isolee\)) h
X300 -55500 M
X300 -57050 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X9662 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Personnalisation du startup) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -9900 M
X300 -12500 M
X300 -15100 M
X/Times-Roman-ISOLatin1 $
X/Times-Roman & P
X/Times-Roman-ISOLatin1 F 2400 o f
X(Les noms logiques suivants peuvent etre definis) h
X300 -17700 M
X(dans ) h
X/Courier-ISOLatin1 $
X/Courier & P
X/Courier-ISOLatin1 F 1800 o f
X(DECW$SERVER_PRIVATE_SETUP.COM ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(pour al\255) h
X300 -20300 M
X(terer les parametres de lancement du process) h
X300 -22900 M
X(server :) h
X300 -25500 M
X( ) h
X300 -28100 M
X/Symbol F 1800 o f
X(\267) h
X2100 -28100 M
X/Helvetica-ISOLatin1 $
X/Helvetica & P
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$SERVER_WSDEF \255 ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(parametre            ) h
X2100 -30700 M
X(/WSDEF) h
X300 -33300 M
X/Symbol F 1800 o f
X(\267) h
X2100 -33300 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$SERVER_WSQUOTA \255) h
X/Times-Roman-ISOLatin1 F 2400 o f
X( parametere) h
X2100 -35900 M
X(/WSQUOTA) h
X300 -38500 M
X/Symbol F 1800 o f
X(\267) h
X2100 -38500 M
X/Helvetica-ISOLatin1 F 1800 o f
X(DECW$SERVER_WSEXTENT \255 ) h
X/Times-Roman-ISOLatin1 F 2400 o f
X(parametre) h
X2100 -41100 M
X(/WSEXTENT) h
X300 -43700 M
X( ) h
X300 -45250 M
X-7200 7200 T
XR
X
Xshowpage
X$P e
X
X/$P a D
Xg N
X0 79200 T
XS
XR
XS
X7200 -7200 T
XN
X0 G
X15666 -2100 M
X/Times-BoldItalic-ISOLatin1 $
X/Times-BoldItalic & P
X/Times-BoldItalic-ISOLatin1 F 2400 o f
X(Des questions ?) h
X300 -4700 M
X(______________________________________) h
X300 -7300 M
X300 -9900 M
X300 -12500 M
X300 -15100 M
X300 -17700 M
X300 -20300 M
X300 -22084 M
X-7200 7200 T
XR
X
Xa 40 dict begin
X13135 -66449 T
X35089 43238 s
X/bd`123bind def`125def /sd`123string def`125bd /U`1230 exch getinterval def`
V125bd
X/cf currentfile def /imstr 130 sd /h1 1 sd /a1 190 sd /a2 190 sd /z 380 sd /
Vo 380 sd
X/z2 z 2 U /z3 z 3 U /z4 z 4 U /z5 z 5 U /z6 z 6 U
X/o2 o 2 U /o3 o 3 U /o4 o 4 U /o5 o 5 U /o6 o 6 U
X/I `123codes cf read pop get exec`125 bd
X/codes `091`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`1
V23I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`
V125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`
V123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125`123I`125
X`123z 0 -32 S`125`123z 0 63 S`125`123z 0 158 S`125`123z 0 253 S`125`123o 0 -
V32 S`125`123o 0 63 S`125`123o 0 158 S`125`123o 0 253 S`125
X`123a1 0 -32 S`125`123a1 0 63 S`125`123a2 0 -32 S`125`123a2 0 63 S`125`123a1
V -32 F`125`123a1 63 F`125`123a2 -32 F`125`123a2 63 F`125
X`123Nn`125`123N1`125`123h1 0 -32 C`125`123h1 0 95 C`125`123h1 0 190 C`125
X`123-32 A`125`123-24 A`125`123-16 A`125`123-8 A`125`1230`125`1238 A`125`1231
V6 A`125`12324 A`125`12332 A`125`12340 A`125`12348 A`125`12356 A`125
X`12364 A`125`12372 A`125`12380 A`125`12388 A`125`12396 A`125`123104 A`125`12
V3112 A`125`123120 A`125`123128 A`125`123136 A`125
X`1232 H`125`1233 H`125`1234 H`125`1235 H`125`1236 H`125`1237 H`125`1238 H`12
V5`1239 H`125`12310 H`125`12311 H`125`12312 H`125`12313 H`125`12314 H`125`123
V15 H`125`12316 H`125`12317 H`125`12318 H`125`12319 H`125
X`12320 H`125`12321 H`125`12322 H`125`12323 H`125`12324 H`125`12325 H`125`123
V26 H`125`12327 H`125`12328 H`125`12329 H`125
X`12330 H`125`12331 H`125`12332 H`125`12333 H`125`12334 H`125`12335 H`125`123
V36 H`125`12337 H`125`12338 H`125`12339 H`125
Xz2 z3 z4 z5 z6 o2 o3 o4 o5 o6`093 def
X/H `123cf imstr 0 4 -1 roll getinterval readhexstring pop`125 bd
X/A `123/val exch def cf imstr readline pop dup 0 exch
X`123val add 3 copy put pop 1 add`125 forall pop`125 bd
X/Nn `123cf imstr readline pop`125 bd
X/N1 `123cf h1 readstring pop`125 bd
X/C `123cf read pop add put h1`125 bd
X/S `123cf read pop add getinterval`125 bd
X/F `123cf read pop add cf h1 readhexstring pop 0 get exch dofill`125 bd
X/dofill `123/len exch def 2 copy 0 1 len 1 sub `123exch put 2 copy`125 for p
Vop pop pop 0 len getinterval`125 bd
Xo 255 380 dofill pop
X352 348 1 `091352 0 0 -348 0 348`093 `123I`125 image
X,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44
V.L11,L22
X.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44.L11
V,L22.L88,L44
X.L11,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88,L44.L11,L22.L88
V,L44.L11
X,L22.L88,#44 F(#.#111?$D4;*#,#221  D2*(#.#883P$D4**#,#441/$D4*(#.#111/$D4+*#
V,#221/$D4,(#.#883P$D4**#,#441/$D4*(#
X.#111/$D4+*#,#221/$D4,(#.#88KAFFCq2?$@4**#,#44K2FFCq2?$@4*(#.#11K2FFCq2?$@4+
V*#,#22N2FFC01C01F$@4,(#.#88NAFFC01C01F$@
X4**#,#44N2FFC01C01F$@4*(#.#11N2FFC01C01F$@4+*#,#22N2FFC01C01F$@4,(#.#88NAFFC
V01C01F$@4**#,#44N2FFC01C01F$@4*(#.#11
XN2FFC01C01F$@4+*#,#22N2FFC01C01F$@4,(#.#88NAFFC01C01F$@4**#,#44K2FFCq2?$@4*(
V#.#11K2FFCq2?$@4+*#,#22N2FFC01C01F$@4,(#
X.#88NAFFC01C01F$@4**#,#44N2FFC01C01F$@4*(#.#11K2FFCq2?$@4+*#,#22K2FFCq2?$@4,
V(#.#88KAFFCq2?$@4**#,#441/$D4*(#.#111/$D4+*#
X,#221/$D4,(#.#883P$D4**#,#441/$D4*(#.#111/$D4+*#,#221/$D4,(#.#883P$D4**#,#44
V1/$D4*(#.#111/$D4+*#,#221/$D4,(#
X.#883P$D4**#,#441/$D4*(#.#111/$D4+*#,#221/$+KF99F$*L3FFFCFy4)x4,(#.#883PvKF8
V3F$'KF99FxLFEFF7FwL3BFDCFy4)vL1FFFE8*#,#441/v
XKF99F$'KF99FxLFCFE7FwLF3F9CF$'MFECFFFE8(#.#111/vQF9CE1FCE70E67E4C0<9
X3:,"CFWCE1C983C187F833320F049E1FE1C0<8
XO670E4FCFFFE9*#.#221/vMF9CCCFCE,"66K7E49.#993p,#CCM4CFE733F.#33VF9C4CCFCF999
VF3E666279FFFEA,#22.#883Pv
XRF9CCCFCEE6667E399F,"99LDFE49F."CCLFE733F,#334;*"NFC7998F1E60fg
XL3FFFE8.#88,#441/vOF9CCCFE4E6660`126x
XT1C199C9FE49E0CCCFE733F.#33QF9CCC0FE381C78E60fg
XL3FFFE8(#,#111/vOF9CCCFE5E6660`126y
XOF9999CBFE01C."CCLFE733F,#33PF9CCCFFF19FE3C."661gv4+,#11.#221/vOF99CCFF1E664
V0`126y
XOD9999E3FF33C,"CCLFE733F."23Q33F9CCCEFF99DF3E,"66M673FFFEA.#22,#883PvOF83E1F
VF3F0F20`126`124
XT3C499E7FF33E24CE3F187F."93N38FC4CE1FC0<8
XP70E70E673FFFE8(#,#441/y4)z4>$(45$.4*(#.#111/y4)z4>$(45$.4+*#,#221/$D4,(#.#8
V83P$D4**#,#441/$D4*(#.#111/$D4+*#,#221/
X$D4,(#.#883P$D4**#,#441/$D4*(#.#111/$D4+*#,#221/$D4,(#.#883P$D4**#,#441/$D4*
V(#.#111/$D4+*#,#221/$+4"uK3FFEt2#$*4,
X(#.#883P$+41zK9FFEy4;$*4**#,#441/$+4*uK8FFEy4:$*4*(#.#111/$+4-yLFE87FEyKF87F
V$)4+*#,#221/$+4-yLFE87FEyKF87F$)4,(#.#883P$+
X4-yLFE87FEyKF87F$)4**#,#441/$+4-yLFE87FEyKF87F$)4*(#.#111/$+4-yLFE87FEyKF87F
V$)4+*#,#221/$+MEBFFE79FvOFE87FEFFFE3BvKF87F$)4,
X(#.#883P$+MEBFFE79FvOFE87FEFFFE3BvKF87F$)4**#,#441/$+MEBFFF3BC0<?
XSFE87FEFFFE9B87FFF87F$)4*(#.#111/$+YEBFFF33999FFFE87FEFFFE9B33FFF87F$)4+*#,#
V221/$+YEBFFF97998FFFE87FEFFFECB33FFF87F$)4,(#
X.#883P$+YEBFFFCF81C7FFE87FEFFFECB33FFF87F$)4**#,#441/$+4-Jwtqv
XT3FFE87FEFFFEE333FFF87F$)4*(#.#111/$+YEBFFFCF9DF3FFE87FEFFFEE333FFF87F$)4+*#
V,#221/$+KEBFF."FCU387FFE87FEFFFEF387FFF87F$)4,(#
X,#883P$+4-yLFE87FEyKF87F$)4*(#.#441/$+4-yLFE87FEyKF87F$)4**#,#111/$+4-yLFE87
VFEyKF87F$)4+(#.#221/$+4-yLFE87FEyKF87F$)4,*#
X,#883P$+4*uK87FEyKF87F$)4*(#.#441/$+41zK87FEyKF87F$)4**#,#111/$+4"uK07FEu3 $
V)4+(#.#221/$+42uK07FFu3 $)4,*#,#883P$+4:u
XL07FF80t3 $)4*(#.#441/$+4>uL07FFC0t3 $)4**#,#111/$D4+(#.#221/$D4,*#,#883P$D4
V*(#.#441/$D4**#,#111/$D4+(#.#221/$D4,*#
X,#883P$D4*(#.#441/$D4**#,#111  D2)(#.#221?$D4<*#,#883! E(#.L44,L11.L22,L88.L
V44,L11.L22,L88.L44,L11
X.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44
V,L11.L22
X,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11
V.L22,L88.L44
X,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88
V.L44,L11
X.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44
V,L11.L22,L88
X.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22
V,L88.L44
X,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88
V.L44,L11.L22
X,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11
V.L22,L88
X.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11.L22,L88.L44,L11
Xend e
X
X
Xshowpage
X$P e
X
X$D restore
X%%Trailer
Xend % DEC_WRITE_dict
X%%Pages: 38
X%%DocumentFonts: Times-Bold-ISOLatin1
X%%+ Times-Roman-ISOLatin1
X%%+ Times-BoldItalic-ISOLatin1
X%%+ Times-Italic-ISOLatin1
X%%+ Symbol
X%%+ Courier-ISOLatin1
X%%+ Helvetica-ISOLatin1
$ CALL UNPACK SLIDES.PS;1 828444495
$ create/nolog 'f'
X#include "decw$include:xlib.h"
X#include <string.h>
X#include <stdio.h>
X
XDisplay * dpy;
Xint`009screen;
XWindow  root;
X
XWindow`009get_parent();
X
Xmain(argc, argv)
X    int argc;
X    char **argv;
X`123
Xint`009dummy;
XWindow`009topwin;
XWindow`009cur_focus;
X
Xif (argc < 2)
X    error_exit("Must supply a name.",1);
X
Xdpy = XOpenDisplay("");
Xif (dpy == NULL)
X    error_exit("Cannot open display.",1);
Xscreen = DefaultScreen(dpy);
Xroot = RootWindow(dpy, screen);
XXGetInputFocus(dpy, &cur_focus, &dummy);
Xif ((cur_focus == NULL) `124`124 (cur_focus == root))
X    error_exit("The window must have input focus.",1);
Xtopwin = get_parent(get_parent(cur_focus));
Xif ((topwin == root) `124`124 (topwin == NULL))
X    error_exit("Window with input focus most likely not a terminal window.",
V1);
X
XXStoreName(dpy, topwin, argv`0911`093);
XXSetIconName( dpy, topwin, argv`0911`093 );
XXCloseDisplay(dpy);
Xreturn(1);
X`125
X
XWindow get_parent(win)
X
XWindow win;
X`123
X
XWindow parent;
XWindow * child;
Xint    nchildren;
XWindow root;
Xchar   pname`09180`093;
X
Xif (XQueryTree (dpy, win, &root, &parent, &child, &nchildren))
X    return(parent);
Xelse
X    error_exit("XQueryTree failed.",1);
X`125
X
Xerror_exit(str, code)
X
Xchar`009*str;
Xint`009code;
X`123
Xfprintf(stderr,str);
Xexit(code);
X`125
$ CALL UNPACK SETICON.C;4 859385148
$ create/nolog 'f'
X/*
X    PseudoRoot - Return the Window ID of the Pseudo Root
X
X    NOTE: This routine is required for DECwindows
X    because the true root window is hidden behind
X    a pseudo-root window created by the window manager.
X
X    Calling Sequence:
X        root_win = PseudoRoot(display, screen);
X    where:
X        display must already be opened and
X        screen is usually DefaultScreen(display).
X
X*/
X
X#include <X11/Xlib.h>
X
X#define    NULL    0L
X
Xstatic void chase_root();
X
Xstatic int done;
Xstatic Window last_win;
Xstatic int root_x, root_y, root_width, root_height;
Xstatic int root_bw, root_depth;
X
X
XWindow PseudoRoot(dpy, screen)
XDisplay *dpy;
Xint screen;
X`123
X    Window root, win;
X
X    /* Start at the real root */
X    root = RootWindow(dpy, screen);
X
X    /* Get the geometry of the root */
X    if (XGetGeometry(dpy, root, &win, &root_x, &root_y,
X            &root_width, &root_height,
X            &root_bw, &root_depth))
X    `123
X    /* Set up for the tree walk */
X    done = False;
X    last_win = root;
X
X    /* Run down the tree to find the pseudo root */
X    chase_root(dpy, root);
X    return last_win;
X    `125
X    else
X    /* Classic case of "this should never happen" */
X    return root;
X
X`125 /*** End PseudoRoot() ***/
X
X
X/*
X    chase_root - Internal to this module
X
X    This is a recursive routine for descending the window tree.
X
X    It looks for the first window which does NOT overlay the root,
X    then returns with the ID of the last window it saw in the
X    global variable last_win.
X
X    NOTE: The parameters of the root window must be set up before
X    calling chase_root().
X*/
X
Xstatic void chase_root (dpy, w)
XDisplay *dpy;
XWindow w;
X`123
X    Window root, parent;
X    unsigned int nchildren;
X    Window *children = NULL;
X    Status status;
X    int n;
X    int x, y, rx, ry;
X    unsigned int width, height, bw, depth;
X
X    /* Insurance */
X    if (done)
X    return;
X
X    if (XGetGeometry(dpy, w, &root, &x, &y, &width, &height, &bw, &depth))
X    `123
X    /*
X        If this window does not exactly overlay the root
X        then we have gone one too far, i.e., we have finished.
X    */
X    if ( (x != root_x) `124`124
X         (y != root_y) `124`124
X         (width  != root_width) `124`124
X         (height != root_height) )
X    `123
X        done = True;
X        return;
X    `125
X
X    /* Otherwise, remember where we got up to and continue */
X    else
X        last_win = w;
X    `125
X
X    else
X    /* We are in trouble if this happens!!! */
X    return;
X
X    if (!XQueryTree (dpy, w, &root, &parent, &children, &nchildren))
X    /* Likewise, we hope we never get here!!! */
X    return;
X
X    for (n = 0; n < nchildren; n++)
X    `123
X    chase_root (dpy, children`091n`093);
X    if (done)
X        break;
X    `125
X#ifdef VMS
X    if (children) XFree ((char *) children);
X#else
X    if (children) free ((char *) children);
X#endif
X    return;
X
X`125 /*** End chase_root() ***/
$ CALL UNPACK PSEUDOROOT.C;1 1762607983
$ create/nolog 'f'
X
X * Routine to let user select a window using the mouse
X *
X * Modified to work with DECwindows
X *
X */
X
X#include <X11/Xlib.h>
X#include <X11/cursorfont.h>
X
X/*
X    NOTE: As with almost all applications,
X    this code does not work on displays with
X    more than one screen because it uses
X    DefaultScreen(dpy).
X*/
X
XWindow Select_Window(dpy, subwindow_flag)
XDisplay *dpy;
Xint subwindow_flag;
X`123
X  int status;
X  Cursor cursor;
X  XEvent event;
X  Window target_win = None;
X  int buttons = 0;
X
X#ifdef VMS
X  Window root;
X  Window child;
X  int child_x, child_y;
X  extern Window pseudo_root();
X  /*
X    For VMS we have to use the "pseudoroot" because
X    of the window manager
X  */
X  root = pseudo_root(dpy, DefaultScreen(dpy));
X#else
X  Window root;
X  root = RootWindow(dpy, DefaultScreen(dpy));
X#endif
X
X
X  /* Make the target cursor */
X  cursor = XCreateFontCursor(dpy, XC_crosshair);
X
X  /* Grab the pointer using target cursor, letting it room all over */
X  status = XGrabPointer(dpy, root, False,
X            ButtonPressMask`124ButtonReleaseMask, GrabModeSync,
X            GrabModeAsync, None, cursor, CurrentTime);
X  if (status != GrabSuccess) Fatal_Error("Can't grab the mouse.");
X
X  /* Let the user select a window... */
X  while ((target_win == None) `124`124 (buttons != 0)) `123
X    /* allow one more event */
X    XAllowEvents(dpy, SyncPointer, CurrentTime);
X
X    XWindowEvent(dpy, root,
X         ButtonPressMask`124ButtonReleaseMask, &event);
X
X    switch (event.type) `123
X    case ButtonPress:
X      if (target_win == None) `123
X    target_win = event.xbutton.subwindow; /* window selected */
X
X#ifdef VMS
X    if (target_win == None)
X        target_win = event.xbutton.window;
X    else
X    `123
X        /* Try to determine if the pointer is inside a child */
X
X        /*
X        Not everybody wants to select a subwindow.
X        For example, if the user wants to see what
X        the window ID is of a top-level shell widget,
X        then this routine must NOT look for a child.
X        */
X        if (subwindow_flag)
X        `123
X        child = None;
X        if (XTranslateCoordinates(dpy, root, target_win,
X            event.xbutton.x, event.xbutton.y,
X            &child_x, &child_y, &child))
X        `123
X            if (child != None)
X            target_win = child;
X        `125
X        `125
X    `125
X#else
X    if (target_win == None)
X        target_win = root;
X#endif
X
X      `125
X      buttons++;
X      break;
X    case ButtonRelease:
X      if (buttons > 0) /* there may have been some down before we started */
X    buttons--;
X       break;
X    `125
X  `125
X
X  XUngrabPointer(dpy, CurrentTime);      /* Done with pointer */
X
X  return(target_win);
X`125                                        `032
$ CALL UNPACK SELECTWINDOW.C;1 286612249
$ v=f$verify(v)
$ EXIT