doc/iuwgraf3.ps

   1 \ 4%!PS-Adobe-3.0\r
   2 %%Creator: Windows PSCRIPT\r
   3 %%Title: Microsoft Word - IUWGRAF3.DOC\r
   4 %%BoundingBox: 9 15 584 830\r
   5 %%DocumentNeededResources: (atend)\r
   6 %%DocumentSuppliedResources: (atend)\r
   7 %%Pages: (atend)\r
   8 %%BeginResource: procset Win35Dict 3 1\r
   9 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72\r
  10 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr\r
  11 /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld\r
  12 /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix\r
  13 ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc\r
  14 /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false\r
  15 def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq\r
  16 and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd\r
  17 /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{\r
  18 /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM\r
  19 matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE\r
  20 matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix\r
  21 dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{\r
  22 /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave\r
  23 showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string\r
  24 def/FEglyph(G  )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch\r
  25 putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed\r
  26 /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch\r
  27 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP\r
  28 cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90\r
  29 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg\r
  30 add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes\r
  31 div dup scale 0 0 transform .25 add round .25 sub exch .25 add round\r
  32 .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false\r
  33 def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[\r
  34 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve\r
  35 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut\r
  36 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave\r
  37 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85\r
  38 /ellipsis 16#86/dagger 16#87/daggerdbl 16#89/perthousand 16#8A/Scaron\r
  39 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93\r
  40 /quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97\r
  41 /emdash 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe\r
  42 16#9F/Ydieresis 16#A0/space 16#A4/currency 16#A6/brokenbar 16#A7/section\r
  43 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft\r
  44 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree\r
  45 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5\r
  46 /mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior\r
  47 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf\r
  48 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2\r
  49 /Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7\r
  50 /Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA/Ecircumflex 16#CB/Edieresis\r
  51 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth\r
  52 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4/Ocircumflex 16#D5/Otilde\r
  53 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute\r
  54 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls\r
  55 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis\r
  56 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8/egrave 16#E9/eacute 16#EA\r
  57 /ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex\r
  58 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4\r
  59 /ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash\r
  60 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute\r
  61 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict\r
  62 /CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if\r
  63 newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0/degree IsChar{\r
  64 /degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{\r
  65 /bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname\r
  66 ed FontDirectory newfontname known not{/basefontdict basefontname findfont\r
  67 def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID\r
  68 ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch\r
  69 newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont/FontName\r
  70 newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for\r
  71 ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB\r
  72 newfontname newfont definefont pop}if newfontname end}bd/SB{FC/ULlen\r
  73 ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed/dxGdi ed\r
  74 /y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1\r
  75 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul\r
  76 cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed\r
  77 /dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra\r
  78 dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break\r
  79 add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0\r
  80 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL\r
  81 sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed\r
  82 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0\r
  83 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc\r
  84 esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform\r
  85 /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE\r
  86 rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE\r
  87 mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition\r
  88 known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get\r
  89 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform\r
  90 /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness\r
  91 known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get\r
  92 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy\r
  93 lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat\r
  94 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin\r
  95 /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16]\r
  96 def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16\r
  97 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{\r
  98 /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup\r
  99 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index\r
 100 put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont\r
 101 definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch\r
 102 show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w\r
 103 Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup\r
 104 rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w\r
 105 X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup\r
 106 neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox\r
 107 AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round\r
 108 def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if\r
 109 dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft\r
 110 ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536\r
 111 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm\r
 112 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes\r
 113 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div\r
 114 PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if\r
 115 iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen\r
 116 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0\r
 117 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd\r
 118 /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy\r
 119 div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm\r
 120 pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy\r
 121 M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0\r
 122 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1\r
 123 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r\r
 124 arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2\r
 125 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2\r
 126 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div\r
 127 def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div\r
 128 y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat\r
 129 x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat\r
 130 m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed\r
 131 /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if\r
 132 sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd\r
 133 /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt\r
 134 dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def\r
 135 /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def\r
 136 /typecheck(operator was expecting a different type of operand)def\r
 137 /ioerror(input/output error occured)def end{end}if errordict begin\r
 138 /handleerror{$error begin newerror{/newerror false def showpage 72\r
 139 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont\r
 140 x y moveto(Offending Command = )show/command load{dup type/stringtype\r
 141 ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show\r
 142 errorname{dup type dup( max err string )cvs show( : )show/stringtype\r
 143 ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname\r
 144 known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end\r
 145 /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1\r
 146 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall\r
 147 showpage}if end}def end}bd end\r
 148 %%EndResource\r
 149 /SVDoc save def\r
 150 %%EndProlog\r
 151 %%BeginSetup\r
 152 Win35Dict begin\r
 153 ErrHandler\r
 154 statusdict begin 0 setjobtimeout end\r
 155 statusdict begin statusdict /jobname (Microsoft Word - IUWGRAF3.DOC) put end\r
 156 /oldDictCnt countdictstack def {statusdict begin 0 setpapertray end\r
 157 }stopped \r
 158 { countdictstack oldDictCnt lt { Win35Dict begin } \r
 159 {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if \r
 160 /oldDictCnt countdictstack def {a4\r
 161 }stopped \r
 162 { countdictstack oldDictCnt lt { Win35Dict begin } \r
 163 {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if \r
 164 [{ }\r
 165 /exec load currenttransfer /exec load] cvx settransfer\r
 166 /setresolution where { pop 300 300 setresolution } if\r
 167 %%EndSetup\r
 168 %%Page: 1 1\r
 169 %%PageResources: (atend)\r
 170 SS\r
 171 0 0 12 16 799 1169 300 SM\r
 172 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 173 0 0 0 fC\r
 174 248 283 615 (unit IIUWGRAPH: class;) 615 SB\r
 175 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 176 248 401 1399 ({    this predefined class enables basic graphic operations) 1399 SB\r
 177 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 178 248 460 95 (     ) 95 SB\r
 179 32 0 0 58 58 0 0 0 52 /Bookman-LightItalic /font8 ANSIFont font\r
 180 343 462 17 ( ) 17 SB\r
 181 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 182 360 460 810 (for DOS machines based on ) 810 SB\r
 183 32 0 0 58 58 0 0 0 54 /Bookman-Demi /font5 ANSIFont font\r
 184 1170 460 114 (486) 114 SB\r
 185 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 186 1284 460 560 ( or 386 processors }) 560 SB\r
 187 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 188 248 587 1726 ({    this document gives the specification of new version of IIUWGRAPH) 1726 SB\r
 189 398 647 773 (class made in October 1994 by ) 773 SB\r
 190 32 0 0 50 50 0 0 0 47 /Bookman-DemiItalic /font6 ANSIFont font\r
 191 1171 646 444 (Frederic Pataud ) 444 SB\r
 192 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 193 1615 647 139 (\340 Pau) 139 SB\r
 194 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 195 248 707 15 ( ) 15 SB\r
 196 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 197 263 706 14 (}) 14 SB\r
 198 248 824 1672 ({    the early versions of library IIUWGRAPH have been elaborated by) 1672 SB\r
 199 248 883 1525 (       Piotr Carlsson, Miroslawa Milkowska, Janina Jankowska,) 1525 SB\r
 200 248 942 1244 (       Michal Jankowski  at  Institute of Informatics,) 1244 SB\r
 201 248 1001 785 (       University of Warsaw 1987,) 785 SB\r
 202 248 1060 1555 (       and added to Loglan system by Danuta Szczepanska 1987,) 1555 SB\r
 203 248 1178 1173 (       the recent versions were done at LITA, Pau,) 1173 SB\r
 204 248 1237 170 (       by) 170 SB\r
 205 248 1296 863 (       Pawel Susicki  \(1991\) for Unix,) 863 SB\r
 206 248 1355 1641 (       Sebastien Bernard \(1992\) for ATARI, see a separate document,) 1641 SB\r
 207 248 1414 1795 (       Eric Becourt et Jer\364me Larrieu \(1993\) for Unix and Xwindows, see a ) 1795 SB\r
 208 398 1473 826 (separate document on Xiiuwgraf ,) 826 SB\r
 209 248 1709 1492 (fait \340 Pau, le 15 Novembre 1994,  par Andrzej Salwicki, LITA}) 1492 SB\r
 210 248 1827 1875 ({ the predefined class IIUWGRAPH is included in all versions of interpreter of) 1875 SB\r
 211 248 1887 410 (Loglan, with the ) 410 SB\r
 212 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 213 658 1888 224 (exception) 224 SB\r
 214 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 215 882 1887 1259 ( of the present version of interpreter for VAX/VMS.}) 1259 SB\r
 216 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 217 248 2131 179 (hidden) 179 SB\r
 218 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 219 427 2132 1311 (   MaxX, MaxY,  current_X, current_Y, is_graphic_On,) 1311 SB\r
 220 248 2191 1712 (              current_Colour, current_Background_Colour,  current_Style,) 1712 SB\r
 221 248 2250 1062 (              current_Palette,  current_Pattern ;) 1062 SB\r
 222 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 223 248 2486 143 (const) 143 SB\r
 224 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 225 391 2487 217 (  MaxX =) 217 SB\r
 226 248 2546 341 (          MaxY =) 341 SB\r
 227 248 2664 760 ({    the screen's coordinates are) 760 SB\r
 228 248 2782 986 (       \(0,0\)   ---------------------->  \(MaxX,0\)) 986 SB\r
 229 248 2841 206 (           \246) 206 SB\r
 230 248 2900 206 (           \246) 206 SB\r
 231 248 2959 206 (           \246) 206 SB\r
 232 248 3018 195 (          V) 195 SB\r
 233 248 3077 1108 (       \(0, MaxY\)                            \(MaxX,MaxY\)) 1108 SB\r
 234 1 #C\r
 235 statusdict begin /manualfeed false store end\r
 236 EJ RS\r
 237 %%PageTrailer\r
 238 %%PageResources: font Bookman-Demi\r
 239 %%+ font Bookman-DemiItalic\r
 240 %%+ font Bookman-Light\r
 241 %%+ font Bookman-LightItalic\r
 242 %%Page: 2 2\r
 243 %%PageResources: (atend)\r
 244 SS\r
 245 0 0 12 16 799 1169 300 SM\r
 246 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 247 0 0 0 fC\r
 248 248 224 14 (}) 14 SB\r
 249 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 250 248 401 82 (var) 82 SB\r
 251 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 252 330 402 1466 (  currentDriver : integer,                     { see NOCARD below }) 1466 SB\r
 253 248 461 1640 (       current_X, current_Y:  integer         { it is the current position }) 1640 SB\r
 254 248 520 719 (       is_graphic_On:  Boolean,) 719 SB\r
 255 998 520 881 (   { evidently tells whether we are in ) 881 SB\r
 256 698 579 387 (graphics mode }) 387 SB\r
 257 248 638 715 (       current_Colour : integer,) 715 SB\r
 258 1148 638 44 ({ }) 44 SB\r
 259 248 697 1038 (       current_Background_Colour : integer,) 1038 SB\r
 260 248 756 671 (       current_Style : integer,) 671 SB\r
 261 1148 756 44 ({ }) 44 SB\r
 262 248 815 716 (       current_Palette : integer,) 716 SB\r
 263 248 874 498 (       current_Pattern) 498 SB\r
 264 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 265 248 992 108 (unit) 108 SB\r
 266 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 267 356 993 217 ( GRON : ) 217 SB\r
 268 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 269 573 992 261 (procedure) 261 SB\r
 270 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 271 834 993 277 ( \(i: integer\);) 277 SB\r
 272 248 1052 1754 (      {  procedure sets the monitor in graphic mode and clears the  buffer) 1754 SB\r
 273 248 1111 16 ( ) 16 SB\r
 274 398 1111 1739 (of screen. The parameter determines the resolution and the number of ) 1739 SB\r
 275 398 1170 195 (colours.) 195 SB\r
 276 248 1229 1887 (The user should assure that the resolution chosen should correspond to that) 1887 SB\r
 277 248 1288 801 (which set by means of command) 801 SB\r
 278 248 1347 1616 (SET go32 drivers {path}<driver.file> <width> <height><noColours>) 1616 SB\r
 279 248 1406 69 (eg.) 69 SB\r
 280 248 1465 1785 (set go32 drivers c:\\loglan\\svga\\drivers\\vesa.grn gw 1024 gh 480 nc 256) 1785 SB\r
 281 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 282 248 1525 861 (    An execution of instruction ) 861 SB\r
 283 32 0 0 58 58 1 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 284 1109 1525 98 (call) 98 SB\r
 285 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 286 1207 1525 216 ( gron\(i\) ) 216 SB\r
 287 32 0 0 58 58 0 0 0 55 /Bookman-DemiItalic /font6 ANSIFont font\r
 288 1423 1524 406 (must precede) 406 SB\r
 289 32 0 0 58 58 0 0 0 54 /Bookman-Demi /font5 ANSIFont font\r
 290 1829 1525 20 ( ) 20 SB\r
 291 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 292 1849 1525 282 (any of the) 282 SB\r
 293 248 1593 1029 (graphic commands described below.) 1029 SB\r
 294 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 295 248 1661 126 (       }) 126 SB\r
 296 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 297 248 1779 108 (unit) 108 SB\r
 298 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 299 356 1780 244 ( GROFF : ) 244 SB\r
 300 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 301 600 1779 261 (procedure) 261 SB\r
 302 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 303 861 1780 16 (;) 16 SB\r
 304 248 1839 1651 (      {  the procedure sets the monitor in the text mode filling it with ) 1651 SB\r
 305 398 1898 180 (spaces.) 180 SB\r
 306 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 307 248 1957 1871 (         DO NOT FORGET to set the monitor in the text mode before) 1871 SB\r
 308 248 2025 820 (you terminate  your program) 820 SB\r
 309 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 310 248 2093 126 (       }) 126 SB\r
 311 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
 312 248 2211 825 (unit NOCARD : function : integer;) 825 SB\r
 313 248 2270 1923 (      { the value given by this function determines the type of the currently used) 1923 SB\r
 314 248 2329 620 (monitor and it is equal to) 620 SB\r
 315 248 2388 223 (            1) 223 SB\r
 316 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
 317 471 2388 80 (     ) 80 SB\r
 318 548 2388 589 (for Hercules mono card,) 589 SB\r
 319 248 2447 160 (          ) 160 SB\r
 320 398 2447 31 (2) 31 SB\r
 321 429 2447 128 (        ) 128 SB\r
 322 548 2447 444 (for IBM CGA color) 444 SB\r
 323 248 2506 160 (          ) 160 SB\r
 324 398 2506 31 (3) 31 SB\r
 325 429 2506 128 (        ) 128 SB\r
 326 548 2506 723 (for IBM CGA mono 320 x 200) 723 SB\r
 327 248 2565 160 (          ) 160 SB\r
 328 398 2565 31 (4) 31 SB\r
 329 429 2565 128 (        ) 128 SB\r
 330 548 2565 723 (for IBM CGA mono 640 x 200) 723 SB\r
 331 248 2624 160 (          ) 160 SB\r
 332 398 2624 31 (5) 31 SB\r
 333 429 2624 128 (        ) 128 SB\r
 334 548 2624 455 (for EGA/VGA card) 455 SB\r
 335 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
 336 248 2683 717 (           6          for ATARI STE) 717 SB\r
 337 248 2742 1431 (           7          for  Unix versions equipped with XWindows) 1431 SB\r
 338 32 0 0 50 50 0 1 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 339 248 2803 1888 (           You can not call the function nocard before GRON sets the graphic mode) 1888 SB\r
 340 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
 341 248 2859 126 (       }) 126 SB\r
 342 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 343 248 2977 108 (unit) 108 SB\r
 344 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 345 356 2978 164 ( CLS : ) 164 SB\r
 346 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 347 520 2977 261 (procedure) 261 SB\r
 348 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 349 781 2978 16 (;) 16 SB\r
 350 248 3037 1386 (       { the screen will be cleared and filled with colour 0  }) 1386 SB\r
 351 1 #C\r
 352 statusdict begin /manualfeed false store end\r
 353 EJ RS\r
 354 %%PageTrailer\r
 355 %%PageResources: font Bookman-Demi\r
 356 %%+ font Bookman-DemiItalic\r
 357 %%+ font Bookman-Light\r
 358 %%+ font Bookman-LightItalic\r
 359 %%Page: 3 3\r
 360 %%PageResources: (atend)\r
 361 SS\r
 362 0 0 12 16 799 1169 300 SM\r
 363 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 364 0 0 0 fC\r
 365 248 224 1080 (unit VIDEO : procedure\( A: array of integer\);) 1080 SB\r
 366 248 283 80 (     ) 80 SB\r
 367 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
 368 328 283 1636 (  { this procedure can not be applied with egaint = EGA/VGA card }) 1636 SB\r
 369 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
 370 248 342 160 (          ) 160 SB\r
 371 398 342 1383 ({ the worktime buffer will be associated with the array A.) 1383 SB\r
 372 248 401 160 (          ) 160 SB\r
 373 398 401 1507 (    A call of VIDEO does not change the contents of the buffer.) 1507 SB\r
 374 248 460 160 (          ) 160 SB\r
 375 398 460 1621 (    All subsequent calls of the procedures modifying the screen will) 1621 SB\r
 376 248 519 160 (          ) 160 SB\r
 377 398 519 1273 (    concern the array A. The screen does not change.) 1273 SB\r
 378 248 578 160 (          ) 160 SB\r
 379 398 578 1505 (    A ready image can be moved to the screen with the help of ) 1505 SB\r
 380 1903 578 160 (          ) 160 SB\r
 381 2048 578 160 (          ) 160 SB\r
 382 248 637 160 (          ) 160 SB\r
 383 398 637 1421 (GETMAP/PUTMAP procedures or it can be stored on disk.) 1421 SB\r
 384 248 696 160 (          ) 160 SB\r
 385 398 696 1387 (    The array should have 16 kBytes for IBM CGA card or) 1387 SB\r
 386 248 755 160 (          ) 160 SB\r
 387 398 755 743 (  32 kBytes for Hercules card.}) 743 SB\r
 388 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 389 248 881 30 ({ ) 30 SB\r
 390 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 391 278 873 1371 (PROCEDURES  CONTROLLING THE COLOURS ) 1371 SB\r
 392 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 393 1649 881 14 (}) 14 SB\r
 394 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 395 248 1000 108 (unit) 108 SB\r
 396 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 397 356 1001 247 ( COLOR : ) 247 SB\r
 398 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 399 603 1000 261 (procedure) 261 SB\r
 400 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 401 864 1001 316 (\(co : integer\);) 316 SB\r
 402 248 1060 14 ({) 14 SB\r
 403 398 1060 563 (sets current color to co) 563 SB\r
 404 398 1119 1365 (for monochrome displays, 0 means black, non-0 - white) 1365 SB\r
 405 398 1178 965 (for color displays, 0 means background) 965 SB\r
 406 248 1237 366 (     see PALLET) 366 SB\r
 407 248 1296 14 (}) 14 SB\r
 408 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 409 248 1414 108 (unit) 108 SB\r
 410 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 411 356 1415 226 ( STYLE : ) 226 SB\r
 412 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 413 582 1414 261 (procedure) 261 SB\r
 414 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 415 843 1415 349 (\(styl : integer\);) 349 SB\r
 416 248 1474 14 ({) 14 SB\r
 417 398 1474 1218 (sets style of lines and fill shades to a combination) 1218 SB\r
 418 398 1533 1214 (of current color and background color \(for mono -) 1214 SB\r
 419 398 1592 1357 (white and black, respectively\) according to 5 predefined) 1357 SB\r
 420 398 1651 221 (patterns:) 221 SB\r
 421 548 1769 31 (0) 31 SB\r
 422 698 1769 64 (....) 64 SB\r
 423 548 1828 31 (1) 31 SB\r
 424 698 1828 88 (****) 88 SB\r
 425 548 1887 31 (2) 31 SB\r
 426 698 1887 82 (***.) 82 SB\r
 427 548 1946 31 (3) 31 SB\r
 428 698 1946 76 (**..) 76 SB\r
 429 548 2005 31 (4) 31 SB\r
 430 698 2005 76 (*.*.) 76 SB\r
 431 548 2064 31 (5) 31 SB\r
 432 698 2064 70 (*...) 70 SB\r
 433 398 2182 1311 (where   '*' means current color,  '.' background colour) 1311 SB\r
 434 248 2241 1934 (When drawing the segments the subsequent pixels will have colour determined) 1934 SB\r
 435 248 2300 1906 (by cyclic application of style pattern. The first and the last pixels of a segment) 1906 SB\r
 436 248 2359 778 (will have always current colour.) 778 SB\r
 437 248 2418 1962 (When filling contours the given style will be applied to horizontal lines with even) 1962 SB\r
 438 248 2477 1540 (coordinate. The style for odd lines is determined automatically.) 1540 SB\r
 439 248 2536 1009 (The same applies for perpendicular lines.) 1009 SB\r
 440 248 2595 14 (}) 14 SB\r
 441 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 442 248 2772 108 (unit) 108 SB\r
 443 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 444 356 2773 289 ( BORDER : ) 289 SB\r
 445 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 446 645 2772 261 (procedure) 261 SB\r
 447 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 448 906 2773 743 ( \(background_Colour: integer\);) 743 SB\r
 449 398 2891 1285 ({  sets actual background color to i  \( i = 0,1,...,15 \)  }) 1285 SB\r
 450 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 451 248 3068 108 (unit) 108 SB\r
 452 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 453 356 3069 256 ( PALLET : ) 256 SB\r
 454 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 455 612 3068 261 (procedure) 261 SB\r
 456 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 457 873 3069 333 ( \(nr : integer\);) 333 SB\r
 458 398 3128 14 ({) 14 SB\r
 459 1 #C\r
 460 statusdict begin /manualfeed false store end\r
 461 EJ RS\r
 462 %%PageTrailer\r
 463 %%PageResources: font Bookman-Demi\r
 464 %%+ font Bookman-Light\r
 465 %%Page: 4 4\r
 466 %%PageResources: (atend)\r
 467 SS\r
 468 0 0 12 16 799 1169 300 SM\r
 469 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 470 0 0 0 fC\r
 471 248 283 799 (the codes of colors are as follows) 799 SB\r
 472 548 342 31 (0) 31 SB\r
 473 698 342 132 (black) 132 SB\r
 474 548 401 31 (1) 31 SB\r
 475 698 401 235 (blue dark) 235 SB\r
 476 548 460 31 (2) 31 SB\r
 477 698 460 263 (green dark) 263 SB\r
 478 548 519 31 (3) 31 SB\r
 479 698 519 362 (turquoise dark) 362 SB\r
 480 548 578 31 (4) 31 SB\r
 481 698 578 208 (red dark) 208 SB\r
 482 548 637 31 (5) 31 SB\r
 483 698 637 129 (violet) 129 SB\r
 484 548 696 31 (6) 31 SB\r
 485 698 696 153 (brown) 153 SB\r
 486 548 755 31 (7) 31 SB\r
 487 698 755 227 (grey light) 227 SB\r
 488 548 814 31 (8) 31 SB\r
 489 698 814 231 (grey dark) 231 SB\r
 490 548 873 31 (9) 31 SB\r
 491 698 873 106 (blue) 106 SB\r
 492 548 932 62 (10) 62 SB\r
 493 698 932 134 (green) 134 SB\r
 494 548 991 62 (11) 62 SB\r
 495 698 991 233 (turquoise) 233 SB\r
 496 548 1050 62 (12) 62 SB\r
 497 698 1050 204 (red light) 204 SB\r
 498 548 1109 62 (13) 62 SB\r
 499 698 1109 102 (rose) 102 SB\r
 500 548 1168 62 (14) 62 SB\r
 501 698 1168 150 (yellow) 150 SB\r
 502 548 1227 62 (15) 62 SB\r
 503 698 1227 132 (white) 132 SB\r
 504 248 1345 110 (      }) 110 SB\r
 505 248 1589 30 ({ ) 30 SB\r
 506 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 507 278 1581 1180 (PROCEDURES CONTROLLING POSITION) 1180 SB\r
 508 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 509 1458 1589 30 ( }) 30 SB\r
 510 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 511 248 1708 108 (unit) 108 SB\r
 512 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 513 356 1709 221 ( MOVE : ) 221 SB\r
 514 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 515 577 1708 261 (procedure) 261 SB\r
 516 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 517 838 1709 333 ( \(x,y :integer\);) 333 SB\r
 518 248 1768 1857 (        { procedure MOVE sets the current position on the screen on the pixel ) 1857 SB\r
 519 398 1827 405 (with coordinates) 405 SB\r
 520 248 1886 503 (             x  - column,) 503 SB\r
 521 248 1945 438 (             y - line   }) 438 SB\r
 522 248 2004 746 (         { precondition of  MOVE:) 746 SB\r
 523 248 2068 303 (                 0) 303 SB\r
 524 32 0 0 50 50 0 0 0 51 /Symbol font\r
 525 gs 578 3396 0 0 CB\r
 526 551 2063 27 (\243) 27 SB\r
 527 gr\r
 528 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 529 578 2068 28 (x) 28 SB\r
 530 32 0 0 50 50 0 0 0 51 /Symbol font\r
 531 gs 633 3396 0 0 CB\r
 532 606 2063 27 (\243) 27 SB\r
 533 gr\r
 534 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 535 633 2068 258 (MaxX  & 0) 258 SB\r
 536 32 0 0 50 50 0 0 0 51 /Symbol font\r
 537 gs 918 3396 0 0 CB\r
 538 891 2063 27 (\243) 27 SB\r
 539 gr\r
 540 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 541 918 2068 27 (y) 27 SB\r
 542 32 0 0 50 50 0 0 0 51 /Symbol font\r
 543 gs 972 3396 0 0 CB\r
 544 945 2063 27 (\243) 27 SB\r
 545 gr\r
 546 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 547 972 2068 135 (MaxY) 135 SB\r
 548 248 2128 174 (          }) 174 SB\r
 549 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 550 248 2246 108 (unit) 108 SB\r
 551 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 552 356 2247 258 ( INXPOS : ) 258 SB\r
 553 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 554 614 2246 221 (function) 221 SB\r
 555 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 556 835 2247 216 (: integer;) 216 SB\r
 557 248 2306 1758 (       { function INXPOS returns the x coordinate of the current position }) 1758 SB\r
 558 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 559 248 2483 108 (unit) 108 SB\r
 560 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 561 356 2484 254 ( INYPOS : ) 254 SB\r
 562 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 563 610 2483 221 (function) 221 SB\r
 564 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 565 831 2484 232 ( : integer;) 232 SB\r
 566 248 2543 1769 (        { function INYPOS returns the y coordinate of the current position }) 1769 SB\r
 567 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 568 248 2720 108 (unit) 108 SB\r
 569 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 570 356 2721 275 ( PUSHXY : ) 275 SB\r
 571 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 572 631 2720 261 (procedure) 261 SB\r
 573 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 574 892 2721 16 (;) 16 SB\r
 575 248 2780 14 ({) 14 SB\r
 576 398 2780 1302 (pushes current position, color & style onto the stack.) 1302 SB\r
 577 398 2839 1094 (The stack is kept internally, max depth is 16) 1094 SB\r
 578 248 2898 14 (}) 14 SB\r
 579 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 580 248 3075 125 (unit ) 125 SB\r
 581 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 582 373 3076 202 (POPXY: ) 202 SB\r
 583 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 584 575 3075 261 (procedure) 261 SB\r
 585 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 586 836 3076 16 (;) 16 SB\r
 587 1 #C\r
 588 statusdict begin /manualfeed false store end\r
 589 EJ RS\r
 590 %%PageTrailer\r
 591 %%PageResources: font Bookman-Demi\r
 592 %%+ font Bookman-Light\r
 593 %%+ font Symbol\r
 594 %%Page: 5 5\r
 595 %%PageResources: (atend)\r
 596 SS\r
 597 0 0 12 16 799 1169 300 SM\r
 598 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 599 0 0 0 fC\r
 600 248 224 14 ({) 14 SB\r
 601 398 224 1288 (restores position, color & style from internal stack   }) 1288 SB\r
 602 248 342 242 ({ Example) 242 SB\r
 603 248 401 699 (unit DIAGONAL : procedure;) 699 SB\r
 604 248 460 506 (    var ix, iy : integer;) 506 SB\r
 605 248 519 132 (begin) 132 SB\r
 606 398 578 328 (call PUSHXY;) 328 SB\r
 607 398 637 331 (ix := INXPOS;) 331 SB\r
 608 398 696 326 (iy := INYPOS;) 326 SB\r
 609 398 755 606 (call DRAW\(ix+10, iy+10\);) 606 SB\r
 610 398 814 271 (call POPXY) 271 SB\r
 611 248 873 394 (end DIAGONAL;) 394 SB\r
 612 248 932 14 (}) 14 SB\r
 613 248 1168 1088 ({ PROCEDURES SERVING POINTS & LINES}) 1088 SB\r
 614 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 615 248 1286 108 (unit) 108 SB\r
 616 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 617 356 1287 220 ( POINT : ) 220 SB\r
 618 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 619 576 1286 261 (procedure) 261 SB\r
 620 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 621 837 1287 317 (\(x,y: integer\);) 317 SB\r
 622 248 1346 14 ({) 14 SB\r
 623 548 1346 1635 (moves current position to pixel \(x,y\) and sets it to the current color) 1635 SB\r
 624 248 1405 30 ( }) 30 SB\r
 625 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 626 248 1523 108 (unit) 108 SB\r
 627 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 628 356 1524 202 ( INPIX : ) 202 SB\r
 629 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 630 558 1523 221 (function) 221 SB\r
 631 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 632 779 1524 565 ( \(x,y : integer\) : integer;) 565 SB\r
 633 398 1583 14 ({) 14 SB\r
 634 548 1642 1179 (moves to pixel \(x,y\) and returns its color setting;) 1179 SB\r
 635 398 1701 14 (}) 14 SB\r
 636 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 637 248 1878 108 (unit) 108 SB\r
 638 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 639 356 1879 222 ( DRAW : ) 222 SB\r
 640 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 641 578 1878 261 (procedure) 261 SB\r
 642 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 643 839 1879 349 (\( x,y : integer\);) 349 SB\r
 644 398 1938 14 ({) 14 SB\r
 645 398 1998 1104 (draws a line from current screen position to \() 1104 SB\r
 646 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 647 1502 1999 72 (x,y) 72 SB\r
 648 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 649 1574 1998 31 (\);) 31 SB\r
 650 398 2058 600 (sets current position to \() 600 SB\r
 651 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 652 998 2059 72 (x,y) 72 SB\r
 653 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 654 1070 2058 31 (\);) 31 SB\r
 655 398 2117 1357 (line is drawn in current color, with both terminal pixels) 1357 SB\r
 656 398 2176 1306 (always turned white \( non-background\) for non-black) 1306 SB\r
 657 398 2235 724 (\( non-background \) line color.) 724 SB\r
 658 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
 659 248 2294 160 (          ) 160 SB\r
 660 398 2294 1558 (Bresenham's algorithm is used, pixels belonging to the segment) 1558 SB\r
 661 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 662 398 2353 1407 (change their state depending on current colour and style.) 1407 SB\r
 663 398 2412 14 (}) 14 SB\r
 664 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 665 248 2530 108 (unit) 108 SB\r
 666 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 667 356 2531 200 ( intens: ) 200 SB\r
 668 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 669 556 2530 261 (procedure) 261 SB\r
 670 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 671 817 2531 1113 (\(Size :integer; xCoord,yCoord:arrayof integer, ) 1113 SB\r
 672 548 2590 545 (Colour,Filled :integer\);) 545 SB\r
 673 248 2649 491 (/* draw a polygon*/) 491 SB\r
 674 248 2708 1924 ({ draw a simple, closed polygon of Size points, the edges of the polygon go from) 1924 SB\r
 675 248 2768 15 (\() 15 SB\r
 676 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 677 263 2769 451 (xCoord[i], yCoord[i]) 451 SB\r
 678 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 679 714 2768 109 (\) to \() 109 SB\r
 680 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 681 823 2769 573 (xCoord[i+1], yCoord[i+1]) 573 SB\r
 682 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 683 1396 2768 482 (\) for i = 1, ..., Size-1) 482 SB\r
 684 248 2828 581 (The colour used will be ) 581 SB\r
 685 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 686 829 2829 155 (Colour) 155 SB\r
 687 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 688 984 2828 713 (. The polygon will be filled iff ) 713 SB\r
 689 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 690 1697 2829 132 (Filled) 132 SB\r
 691 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 692 1829 2828 107 (<>0.) 107 SB\r
 693 248 2887 14 (}) 14 SB\r
 694 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 695 248 3005 108 (unit) 108 SB\r
 696 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 697 356 3006 191 ( CIRB : ) 191 SB\r
 698 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 699 547 3005 261 (procedure) 261 SB\r
 700 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 701 808 3006 925 ( \(xi, yi, rx,ry : integer, alfa, beta : real,) 925 SB\r
 702 998 3065 622 (         cbord, fill : integer\);) 622 SB\r
 703 1 #C\r
 704 statusdict begin /manualfeed false store end\r
 705 EJ RS\r
 706 %%PageTrailer\r
 707 %%PageResources: font Bookman-Demi\r
 708 %%+ font Bookman-Light\r
 709 %%+ font Bookman-LightItalic\r
 710 %%Page: 6 6\r
 711 %%PageResources: (atend)\r
 712 SS\r
 713 0 0 12 16 799 1169 300 SM\r
 714 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 715 0 0 0 fC\r
 716 398 224 14 ({) 14 SB\r
 717 398 283 1566 (draws a circle \(or ellipse, depending on aspect value, see below\),) 1566 SB\r
 718 398 342 680 (optionally filling its interior;) 680 SB\r
 719 398 401 655 (does not preserve position;) 655 SB\r
 720 398 461 15 (\() 15 SB\r
 721 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 722 413 462 100 (xi,yi) 100 SB\r
 723 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 724 513 461 643 (\) -  are center coordinates,) 643 SB\r
 725 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 726 398 522 47 (rx) 47 SB\r
 727 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 728 445 521 780 ( - radius in pixels \(horizontally\),) 780 SB\r
 729 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 730 398 582 50 (ry) 50 SB\r
 731 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 732 448 581 875 ( - radius in pixels \(perpendicularly\),) 875 SB\r
 733 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 734 398 642 228 (alfa, beta) 228 SB\r
 735 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 736 626 641 1095 ( - starting & ending angles; if alfa=beta a full) 1095 SB\r
 737 398 700 1337 (       circle is drawn; values should be given in radians;) 1337 SB\r
 738 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 739 398 761 133 (cbord) 133 SB\r
 740 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 741 531 760 363 ( - border color,) 363 SB\r
 742 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 743 398 821 59 (fill) 59 SB\r
 744 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 745 457 820 1220 ( - if fill <>0, interior is filled in current style&color) 1220 SB\r
 746 398 879 14 (}) 14 SB\r
 747 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 748 248 997 108 (unit) 108 SB\r
 749 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 750 356 998 142 ( hfill: ) 142 SB\r
 751 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 752 498 997 261 (procedure) 261 SB\r
 753 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 754 759 998 306 (\( x : integer\);) 306 SB\r
 755 248 1057 1568 (        {  draw an horizontal line between the current position and) 1568 SB\r
 756 398 1116 1513 (\(x,currentY\) with the current color, after it change the current) 1513 SB\r
 757 398 1175 578 (position to \(x, currentY\)) 578 SB\r
 758 248 1234 142 (        }) 142 SB\r
 759 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 760 248 1352 125 (unit ) 125 SB\r
 761 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 762 373 1353 119 (vfill: ) 119 SB\r
 763 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 764 492 1352 261 (procedure) 261 SB\r
 765 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 766 753 1353 305 (\( y : integer\);) 305 SB\r
 767 248 1412 1467 (       {   draw a vertical line between the current position and) 1467 SB\r
 768 398 1471 1516 (\(currentX,y\) with the current color, after it change the current) 1516 SB\r
 769 398 1530 565 (position to \(currentX,y\)) 565 SB\r
 770 248 1589 126 (       }) 126 SB\r
 771 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 772 248 1707 108 (unit) 108 SB\r
 773 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 774 356 1708 208 ( patern: ) 208 SB\r
 775 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 776 564 1707 261 (procedure) 261 SB\r
 777 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 778 825 1708 649 (\( x1,y1,x2,y2,c,b : integer\);) 649 SB\r
 779 248 1768 356 (      {    draw a ) 356 SB\r
 780 32 0 0 50 50 0 0 0 47 /Bookman-DemiItalic /font6 ANSIFont font\r
 781 604 1767 249 (rectangle) 249 SB\r
 782 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 783 853 1768 509 ( between the points \() 509 SB\r
 784 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 785 1362 1769 134 (x1,y1) 134 SB\r
 786 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 787 1496 1768 155 (\) and \() 155 SB\r
 788 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 789 1651 1769 58 (x2) 58 SB\r
 790 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 791 1709 1768 16 (,) 16 SB\r
 792 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 793 1725 1769 61 (y2) 61 SB\r
 794 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 795 1786 1768 231 (\) with the) 231 SB\r
 796 248 1828 16 ( ) 16 SB\r
 797 398 1828 135 (color ) 135 SB\r
 798 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 799 533 1829 24 (c) 24 SB\r
 800 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 801 557 1828 879 ( \(the current color is not change\). if ) 879 SB\r
 802 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 803 1436 1829 30 (b) 30 SB\r
 804 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 805 1466 1828 442 (=0 then the box is) 442 SB\r
 806 248 1887 16 ( ) 16 SB\r
 807 398 1887 516 (empty else it is filled.) 516 SB\r
 808 248 1946 126 (       }) 126 SB\r
 809 248 2072 30 ({ ) 30 SB\r
 810 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 811 278 2064 938 (Procedures operating on bitmaps) 938 SB\r
 812 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 813 1216 2072 30 ( }) 30 SB\r
 814 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 815 248 2191 108 (unit) 108 SB\r
 816 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 817 356 2192 282 ( GETMAP : ) 282 SB\r
 818 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 819 638 2191 221 (function) 221 SB\r
 820 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 821 859 2192 381 ( \(x,y : integer\) : ) 381 SB\r
 822 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 823 1240 2191 185 (arrayof) 185 SB\r
 824 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 825 1425 2192 200 ( integer;) 200 SB\r
 826 248 2251 128 (        ) 128 SB\r
 827 398 2251 1263 ({saves rectangular area between current position as) 1263 SB\r
 828 398 2310 1179 (top left corner and \(ix,iy\) as bottom right corner,) 1179 SB\r
 829 398 2369 552 (including border lines;) 552 SB\r
 830 398 2428 713 (position remains unchanged.) 713 SB\r
 831 398 2487 686 (array of integer should have) 686 SB\r
 832 548 2551 191 (4+\(rows) 191 SB\r
 833 32 0 0 50 50 0 0 0 51 /Symbol font\r
 834 gs 752 3396 0 0 CB\r
 835 739 2546 13 (\327) 13 SB\r
 836 gr\r
 837 gs 771 3396 0 0 CB\r
 838 752 2546 19 (\351) 19 SB\r
 839 gr\r
 840 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 841 771 2551 270 (columns/8) 270 SB\r
 842 32 0 0 50 50 0 0 0 51 /Symbol font\r
 843 gs 1060 3396 0 0 CB\r
 844 1041 2546 19 (\371) 19 SB\r
 845 gr\r
 846 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 847 1060 2551 16 ( ) 16 SB\r
 848 32 0 0 50 50 0 0 0 51 /Symbol font\r
 849 gs 1089 3396 0 0 CB\r
 850 1076 2546 13 (\327) 13 SB\r
 851 gr\r
 852 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 853 1089 2551 127 (coeff\)) 127 SB\r
 854 398 2611 1601 (bytes. The coefficient coeff is 1 for Hercules, 2 for CGA, 4 for EGA) 1601 SB\r
 855 248 2670 16 ( ) 16 SB\r
 856 398 2670 124 (card.) 124 SB\r
 857 248 2729 1830 (         ATTENTION: in DOS 286 environment a bigger size of the array may ) 1830 SB\r
 858 398 2789 543 (necessitate the use of ) 543 SB\r
 859 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 860 941 2790 145 (loglan) 145 SB\r
 861 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 862 1086 2789 122 ( with) 122 SB\r
 863 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 864 1208 2790 336 ( the option H+) 336 SB\r
 865 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 866 1544 2789 474 (, see also memavail) 474 SB\r
 867 248 2848 190 (           }) 190 SB\r
 868 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 869 248 2966 108 (unit) 108 SB\r
 870 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 871 356 2967 276 ( PUTMAP : ) 276 SB\r
 872 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 873 632 2966 261 (procedure) 261 SB\r
 874 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 875 893 2967 108 ( \( a: ) 108 SB\r
 876 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 877 1001 2966 185 (arrayof) 185 SB\r
 878 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 879 1186 2967 215 ( integer\);) 215 SB\r
 880 398 3026 1256 ({sets rectangular area of screen pixels to that saved) 1256 SB\r
 881 398 3085 569 (by "getmap" in "iarray";) 569 SB\r
 882 398 3144 1267 (same size is restored, with top left corner in current) 1267 SB\r
 883 1 #C\r
 884 statusdict begin /manualfeed false store end\r
 885 EJ RS\r
 886 %%PageTrailer\r
 887 %%PageResources: font Bookman-Demi\r
 888 %%+ font Bookman-DemiItalic\r
 889 %%+ font Bookman-Light\r
 890 %%+ font Bookman-LightItalic\r
 891 %%+ font Symbol\r
 892 %%Page: 7 7\r
 893 %%PageResources: (atend)\r
 894 SS\r
 895 0 0 12 16 799 1169 300 SM\r
 896 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 897 0 0 0 fC\r
 898 398 224 211 (position;) 211 SB\r
 899 398 283 713 (position remains unchanged.) 713 SB\r
 900 398 342 14 (}) 14 SB\r
 901 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 902 248 460 108 (unit) 108 SB\r
 903 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 904 356 461 251 ( ORMAP : ) 251 SB\r
 905 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 906 607 460 261 (procedure) 261 SB\r
 907 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 908 868 461 124 ( \( a : ) 124 SB\r
 909 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 910 992 460 202 (arrayof ) 202 SB\r
 911 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 912 1194 461 199 (integer\);) 199 SB\r
 913 398 520 1355 ({same as putmap, but saved bitmap is or'ed into screen) 1355 SB\r
 914 398 579 494 (rather than just set.) 494 SB\r
 915 398 638 14 (}) 14 SB\r
 916 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 917 248 756 108 (unit) 108 SB\r
 918 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 919 356 757 287 ( XORMAP : ) 287 SB\r
 920 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 921 643 756 261 (procedure) 261 SB\r
 922 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 923 904 757 108 ( \( a: ) 108 SB\r
 924 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 925 1012 756 185 (arrayof) 185 SB\r
 926 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 927 1197 757 215 ( integer\);) 215 SB\r
 928 398 816 1383 ({same as putmap, but saved bitmap is xor'ed into screen) 1383 SB\r
 929 398 875 494 (rather than just set.) 494 SB\r
 930 398 934 14 (}) 14 SB\r
 931 248 1119 14 ({) 14 SB\r
 932 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font\r
 933 262 1111 1348 (Procedures operating on characters and strings) 1348 SB\r
 934 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 935 1610 1119 14 (}) 14 SB\r
 936 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 937 248 1238 108 (unit) 108 SB\r
 938 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 939 356 1239 271 ( outstring: ) 271 SB\r
 940 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 941 627 1238 261 (procedure) 261 SB\r
 942 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 943 888 1239 1236 (\(x,y: integer, s: string, back_col, front_col: integer\);) 1236 SB\r
 944 248 1299 78 (   { ) 78 SB\r
 945 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 946 326 1300 87 (x, y) 87 SB\r
 947 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 948 413 1299 1079 ( are the coordinates where to put the string,) 1079 SB\r
 949 248 1359 96 (      ) 96 SB\r
 950 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 951 344 1360 27 (s) 27 SB\r
 952 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 953 371 1359 780 (     is the string to be shown, in ) 780 SB\r
 954 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 955 1151 1360 202 (front_col) 202 SB\r
 956 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 957 1353 1359 525 ( colour letters on the ) 525 SB\r
 958 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 959 1878 1360 205 (back_col) 205 SB\r
 960 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 961 398 1418 461 (colour background) 461 SB\r
 962 248 1477 78 (    }) 78 SB\r
 963 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 964 248 1595 125 (unit ) 125 SB\r
 965 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 966 373 1596 175 ( track: ) 175 SB\r
 967 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 968 548 1595 261 (procedure) 261 SB\r
 969 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 970 809 1596 559 (\( x,y,c,valeur : integer\);) 559 SB\r
 971 248 1715 62 (   {) 62 SB\r
 972 398 1715 545 (write an integer value ) 545 SB\r
 973 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 974 943 1716 150 (valeur) 150 SB\r
 975 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 976 1093 1715 400 ( at the position \() 400 SB\r
 977 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 978 1493 1716 72 (x,y) 72 SB\r
 979 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 980 1565 1715 382 (\) with the color ) 382 SB\r
 981 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
 982 1947 1716 24 (c) 24 SB\r
 983 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 984 1971 1715 16 (.) 16 SB\r
 985 398 1774 1494 ( It does not change the current position nor the current color) 1494 SB\r
 986 248 1833 62 (   }) 62 SB\r
 987 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 988 248 1951 108 (unit) 108 SB\r
 989 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 990 356 1952 196 ( inkey : ) 196 SB\r
 991 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
 992 552 1951 221 (function) 221 SB\r
 993 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
 994 773 1952 232 ( : integer;) 232 SB\r
 995 248 2070 1257 (    {     returns next character from keyboard buffer;) 1257 SB\r
 996 398 2129 764 (0 is returned if buffer is empty;) 764 SB\r
 997 398 2188 1155 (special keys are returned as negative numbers;) 1155 SB\r
 998 398 2247 1462 (ALT-NUM method may be used for entering character codes) 1462 SB\r
 999 398 2306 1297 (above 127 \(this makes entering special keys 128-132) 1297 SB\r
1000 398 2365 291 (impossible\);) 291 SB\r
1001 398 2424 1069 (if a character is returned, it is also removed) 1069 SB\r
1002 398 2483 1290 (from the buffer, so MS-DOS will not see it \(CTRL-C!\);) 1290 SB\r
1003 398 2542 1020 (typeahead is allowed, echo is suppressed.) 1020 SB\r
1004 248 2601 62 (   }) 62 SB\r
1005 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1006 248 2719 108 (unit) 108 SB\r
1007 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1008 356 2720 242 ( HASCII : ) 242 SB\r
1009 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1010 598 2719 261 (procedure) 261 SB\r
1011 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1012 859 2720 272 (\(c: integer\);) 272 SB\r
1013 398 2779 806 ({'xor's the character = chr\(c\) in a ) 806 SB\r
1014 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
1015 1204 2779 84 (8*8) 84 SB\r
1016 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1017 1288 2779 584 ( box with top left corner) 584 SB\r
1018 398 2838 567 (in the current position;) 567 SB\r
1019 398 2897 652 (moves current position by ) 652 SB\r
1020 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
1021 1050 2897 108 (\(8,0\)) 108 SB\r
1022 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1023 1158 2897 16 (;) 16 SB\r
1024 248 2956 16 ( ) 16 SB\r
1025 398 2956 1403 (call hascii\(0\)- sets complete box to black \( =background \),) 1403 SB\r
1026 398 3015 664 (with no change in position.) 664 SB\r
1027 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
1028 248 3074 160 (          ) 160 SB\r
1029 398 3074 1295 (BIOS ROM font for IBM color card is used. If the font) 1295 SB\r
1030 248 3133 160 (          ) 160 SB\r
1031 398 3133 1315 (table is not at F000:FA6E, the character will probably) 1315 SB\r
1032 1 #C\r
1033 statusdict begin /manualfeed false store end\r
1034 EJ RS\r
1035 %%PageTrailer\r
1036 %%PageResources: font Bookman-Demi\r
1037 %%+ font Bookman-Light\r
1038 %%+ font Bookman-LightItalic\r
1039 %%Page: 8 8\r
1040 %%PageResources: (atend)\r
1041 SS\r
1042 0 0 12 16 799 1169 300 SM\r
1043 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font\r
1044 0 0 0 fC\r
1045 248 224 160 (          ) 160 SB\r
1046 398 224 1112 (be unrecognizable, and most certainly wrong.) 1112 SB\r
1047 248 283 160 (          ) 160 SB\r
1048 398 283 1340 (For codes >127, table pointed to by interrupt vector 31) 1340 SB\r
1049 248 342 160 (          ) 160 SB\r
1050 398 342 190 (is used.) 190 SB\r
1051 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1052 588 342 30 ( }) 30 SB\r
1053 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1054 248 578 125 (unit ) 125 SB\r
1055 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1056 373 579 161 (hfont: ) 161 SB\r
1057 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1058 534 578 221 (function) 221 SB\r
1059 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1060 755 579 1238 (\( x,y,lg,min,max,default,col_f,col_e,col_c : integer\): ) 1238 SB\r
1061 1298 638 344 (          integer;) 344 SB\r
1062 248 757 142 (        {) 142 SB\r
1063 398 757 832 (arrange a small 1 line window for ) 832 SB\r
1064 32 0 0 50 50 0 0 0 47 /Bookman-DemiItalic /font6 ANSIFont font\r
1065 1230 756 205 (reading) 205 SB\r
1066 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1067 1435 757 646 ( an integer value from this) 646 SB\r
1068 248 816 201 (window,) 201 SB\r
1069 248 876 905 (the position of the window corner is \() 905 SB\r
1070 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1071 1153 877 87 (x, y) 87 SB\r
1072 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1073 1240 876 31 (\),) 31 SB\r
1074 248 936 675 (the length of the window is ) 675 SB\r
1075 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1076 923 937 42 (lg) 42 SB\r
1077 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1078 965 936 290 ( characters,) 290 SB\r
1079 248 996 855 (the value v should be greater than ) 855 SB\r
1080 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1081 1103 997 89 (min) 89 SB\r
1082 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1083 1192 996 451 ( and smaller than ) 451 SB\r
1084 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1085 1643 997 102 (max) 102 SB\r
1086 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1087 1745 996 16 (,) 16 SB\r
1088 248 1056 607 (the default value read is ) 607 SB\r
1089 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1090 855 1057 169 (default) 169 SB\r
1091 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1092 1024 1056 16 (,) 16 SB\r
1093 248 1116 675 (the colour of the window is ) 675 SB\r
1094 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1095 923 1117 107 (col_f) 107 SB\r
1096 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1097 1030 1116 16 (,) 16 SB\r
1098 248 1176 623 (the colour of the digits is ) 623 SB\r
1099 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1100 871 1177 132 (col_e,) 132 SB\r
1101 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1102 248 1236 554 (the colour of cursor is ) 554 SB\r
1103 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1104 802 1237 114 (col_c) 114 SB\r
1105 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1106 248 1354 1793 ( reads in graphic mode an integer in the window which begins at the \(x,y\)) 1793 SB\r
1107 398 1413 1609 (position, window is lg caracteres long. the maximum length of the) 1609 SB\r
1108 398 1472 1653 (integer that is read is 10. there is a default value, a minimum value) 1653 SB\r
1109 398 1531 1704 (and a maximum value. the window is drawn with the col_f color, the  ) 1704 SB\r
1110 398 1590 1568 (cursor is in the col_c color and the integer is writing in the col_e) 1568 SB\r
1111 398 1649 1542 (color. you can use 0..9,+,-,backspace,escape and return keys. }) 1542 SB\r
1112 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1113 248 1826 108 (unit) 108 SB\r
1114 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1115 356 1827 245 ( HPAGE : ) 245 SB\r
1116 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1117 601 1826 261 (procedure) 261 SB\r
1118 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1119 862 1827 1332 (\(x,y,long: integer, A: arrayof char, back, front: integer\);) 1332 SB\r
1120 398 1887 1432 ({ this procedure arranges a 1-line high window in position ) 1432 SB\r
1121 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1122 1830 1888 72 (x,y) 72 SB\r
1123 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1124 1902 1887 245 ( of length ) 245 SB\r
1125 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1126 398 1948 100 (long) 100 SB\r
1127 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1128 498 1947 647 ( in which a portion of text ) 647 SB\r
1129 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1130 1145 1948 35 (A) 35 SB\r
1131 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1132 1180 1947 481 ( is shown in colour ) 481 SB\r
1133 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1134 1661 1948 112 (front) 112 SB\r
1135 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1136 1773 1947 187 ( on the ) 187 SB\r
1137 398 2007 477 (background colour ) 477 SB\r
1138 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font\r
1139 875 2008 115 (back) 115 SB\r
1140 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1141 990 2007 16 (.) 16 SB\r
1142 398 2066 1621 (Making use of  keys controlling the cursor {left, right, PgUp, PgDn}) 1621 SB\r
1143 398 2125 1697 (the user can scroll the text \(horizontally\) in the window. Pressing the ) 1697 SB\r
1144 398 2184 884 (Enter key terminates the procedure}) 884 SB\r
1145 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1146 248 2302 95 (end) 95 SB\r
1147 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1148 343 2303 334 ( IIUWGRAPH;) 334 SB\r
1149 1 #C\r
1150 statusdict begin /manualfeed false store end\r
1151 EJ RS\r
1152 %%PageTrailer\r
1153 %%PageResources: font Bookman-Demi\r
1154 %%+ font Bookman-DemiItalic\r
1155 %%+ font Bookman-Light\r
1156 %%+ font Bookman-LightItalic\r
1157 %%Page: 9 9\r
1158 %%PageResources: (atend)\r
1159 SS\r
1160 0 0 12 16 799 1169 300 SM\r
1161 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1162 0 0 0 fC\r
1163 248 283 125 (unit ) 125 SB\r
1164 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1165 373 284 226 (MOUSE: ) 226 SB\r
1166 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
1167 599 283 127 (class) 127 SB\r
1168 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
1169 726 284 16 (;) 16 SB\r
1170 \r
1171 %%BeginResource: font MSTT31c2a0\r
1172 /GreNewFont{10 dict dup 3 1 roll def dup begin 6 1 roll/FontType 3\r
1173 def/FontMatrix exch def/FontBBox exch def/FontInfo 2 dict def FontInfo\r
1174 /UnderlinePosition 3 -1 roll put FontInfo/UnderlineThickness 3 -1\r
1175 roll put/Encoding 256 array def 0 1 255{Encoding exch/.notdef put}for\r
1176 /CharProcs 256 dict def CharProcs/.notdef{}put/Metrics 256 dict def\r
1177 Metrics/.notdef 3 -1 roll put/BuildChar{/char exch def/fontdict exch\r
1178 def/charname fontdict/Encoding get char get def fontdict/Metrics get\r
1179 charname get aload pop setcachedevice fontdict begin Encoding char\r
1180 get CharProcs exch get end exec}def end definefont pop}def/AddChar{begin\r
1181 Encoding 3 1 roll put CharProcs 3 1 roll put Metrics 3 1 roll put end}def\r
1182 /MSTT31c2a0 [42.0 0 0 0 0 0] 47 -115 [-42.0 -42.0 42.0 42.0] [1 42 div 0 0 1 42 div 0 0] /MSTT31c2a0 GreNewFont\r
1183 %%EndResource\r
1184 \r
1185 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
1186 \r
1187 %%BeginResource: font MSTT31c2a0\r
1188 /G7b [20.0 0.0 3.0 -8.0 16.0 28.0]\r
1189 /G7b {\r
1190     13 36 true [1 0 0 -1 -3.0 28.0] {<003800e00180038007000f000f000f000f800f80078007800780070006000c003000c00070000c00\r
1191 0e0007000780078007800f800f800f000f000f000f000700038001c000e00018>} imagemask \r
1192   }\r
1193   123 /G7b MSTT31c2a0 AddChar\r
1194 %%EndResource\r
1195 \r
1196 248 402 20 ({) 20 SB\r
1197 \r
1198 %%BeginResource: font MSTT31c282\r
1199 /MSTT31c282 [42.0 0 0 0 0 0] 47 -115 [-42.0 -42.0 42.0 42.0] [1 42 div 0 0 1 42 div 0 0] /MSTT31c282 GreNewFont\r
1200 %%EndResource\r
1201 \r
1202 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
1203 \r
1204 %%BeginResource: font MSTT31c282\r
1205 /G69 [12.0 0.0 1.0 0.0 10.0 26.0]\r
1206 /G69 {\r
1207     9 26 true [1 0 0 -1 -1.0 26.0] {<038003800380000000000000000007003f0007000e000e000e000e001c001c001c00380038003800\r
1208 7800700072007400f8007000>} imagemask \r
1209   }\r
1210   105 /G69 MSTT31c282 AddChar\r
1211 /G6e [21.0 0.0 0.0 0.0 19.0 19.0]\r
1212 /G6e {\r
1213     19 19 true [1 0 0 -1 0.0 19.0] {<0703c03f0fc00719e00e31e00e61c00e41c00c81c01d03c01e03801e03803c07803c070038070038\r
1214 0f00700e00700e40700e80e01f00e00e00>} imagemask \r
1215   }\r
1216   110 /G6e MSTT31c282 AddChar\r
1217 /G74 [12.0 0.0 1.0 0.0 13.0 25.0]\r
1218 /G74 {\r
1219     12 25 true [1 0 0 -1 -1.0 25.0] {<004000800180018003800f003ff00f000f000e000e001e001c001c001c003c003800380038007800\r
1220 700073007200fc007000>} imagemask \r
1221   }\r
1222   116 /G74 MSTT31c282 AddChar\r
1223 %%EndResource\r
1224 \r
1225 398 402 57 (init) 57 SB\r
1226 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
1227 \r
1228 %%BeginResource: font MSTT31c2a0\r
1229 /G20 [11.0 0.0 0.0 0.0 0.0 0.0]\r
1230 /G20 {\r
1231 } \r
1232   32 /G20 MSTT31c2a0 AddChar\r
1233 /G2d [14.0 0.0 2.0 8.0 13.0 12.0]\r
1234 /G2d {\r
1235     11 4 true [1 0 0 -1 -2.0 12.0] {<ffe0ffe0ffe0ffe0>} imagemask \r
1236   }\r
1237   45 /G2d MSTT31c2a0 AddChar\r
1238 /G6c [12.0 0.0 1.0 0.0 11.0 29.0]\r
1239 /G6c {\r
1240     10 29 true [1 0 0 -1 -1.0 29.0] {<06003e00fe001e001e001e001e001e001e001e001e001e001e001e001e001e001e001e001e001e00\r
1241 1e001e001e001e001e001e001e003f00ffc0>} imagemask \r
1242   }\r
1243   108 /G6c MSTT31c2a0 AddChar\r
1244 /G6f [20.0 0.0 1.0 -1.0 19.0 20.0]\r
1245 /G6f {\r
1246     18 21 true [1 0 0 -1 -1.0 20.0] {<03f0000ffc001e3e00380f00380f80700780700780f003c0f003c0f003c0f003c0f003c0f003c0f8\r
1247 03c07803807803803c07003e07001f0e000ffc0003f000>} imagemask \r
1248   }\r
1249   111 /G6f MSTT31c2a0 AddChar\r
1250 /G72 [15.0 0.0 1.0 0.0 15.0 20.0]\r
1251 /G72 {\r
1252     14 20 true [1 0 0 -1 -1.0 20.0] {<06383e7cfefc1f981f001e001e001e001e001e001e001e001e001e001e001e001e001e003f00ffc0\r
1253 >} imagemask \r
1254   }\r
1255   114 /G72 MSTT31c2a0 AddChar\r
1256 /G73 [16.0 0.0 2.0 -1.0 15.0 20.0]\r
1257 /G73 {\r
1258     13 21 true [1 0 0 -1 -2.0 20.0] {<0f903ff07070e030e010e010f000f8007e007f803fe00ff003f000f880788038c038c030f070ffe0\r
1259 8f80>} imagemask \r
1260   }\r
1261   115 /G73 MSTT31c2a0 AddChar\r
1262 /G64 [21.0 0.0 1.0 -1.0 21.0 29.0]\r
1263 /G64 {\r
1264     20 30 true [1 0 0 -1 -1.0 29.0] {<000180000f80003f8000078000078000078000078000078000078003e7800ff7801e1f801c0f8038\r
1265 0f80780780700780700780f00780f00780f00780f00780f00780f00780f807807807807c0f803e1f\r
1266 803ff7f01fe7e007c700>} imagemask \r
1267   }\r
1268   100 /G64 MSTT31c2a0 AddChar\r
1269 /G65 [18.0 0.0 1.0 -1.0 17.0 20.0]\r
1270 /G65 {\r
1271     16 21 true [1 0 0 -1 -1.0 20.0] {<03e00ff81c3c301e700e600f600fffffe000e000e000e000f000f00178017c037e063ffe1ffc0ff8\r
1272 03e0>} imagemask \r
1273   }\r
1274   101 /G65 MSTT31c2a0 AddChar\r
1275 /G27 [8.0 0.0 2.0 17.0 6.0 29.0]\r
1276 /G27 {\r
1277     4 12 true [1 0 0 -1 -2.0 29.0] {<60f0f0f0f0f0f0f060606060>} imagemask \r
1278   }\r
1279   39 /G27 MSTT31c2a0 AddChar\r
1280 /G69 [12.0 0.0 1.0 0.0 11.0 29.0]\r
1281 /G69 {\r
1282     10 29 true [1 0 0 -1 -1.0 29.0] {<0c001e001e000c000000000000000000000006003e00fe001e001e001e001e001e001e001e001e00\r
1283 1e001e001e001e001e001e001e003f00ffc0>} imagemask \r
1284   }\r
1285   105 /G69 MSTT31c2a0 AddChar\r
1286 /G6e [22.0 0.0 1.0 0.0 22.0 20.0]\r
1287 /G6e {\r
1288     21 20 true [1 0 0 -1 -1.0 20.0] {<061e003e7f00fec7801f07c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e\r
1289 03c01e03c01e03c01e03c01e03c03f03e0ffcff8>} imagemask \r
1290   }\r
1291   110 /G6e MSTT31c2a0 AddChar\r
1292 /G74 [12.0 0.0 0.0 -1.0 12.0 25.0]\r
1293 /G74 {\r
1294     12 26 true [1 0 0 -1 0.0 25.0] {<0200060006000e001e003e00ffe01e001e001e001e001e001e001e001e001e001e001e001e001e00\r
1295 1e001e001e001f300fe00780>} imagemask \r
1296   }\r
1297   116 /G74 MSTT31c2a0 AddChar\r
1298 /G61 [19.0 0.0 1.0 -1.0 19.0 20.0]\r
1299 /G61 {\r
1300     18 21 true [1 0 0 -1 -1.0 20.0] {<07f0001e7800383c00781e00781e00781e00301e00001e00003e0001de00071e001c1e00381e0070\r
1301 1e00f01e00f01e00f01e00f03e00787e407f9f801e0e00>} imagemask \r
1302   }\r
1303   97 /G61 MSTT31c2a0 AddChar\r
1304 /G75 [21.0 0.0 0.0 -1.0 21.0 19.0]\r
1305 /G75 {\r
1306     21 20 true [1 0 0 -1 0.0 19.0] {<fe1fc03e07c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e\r
1307 03c01e03c01e03c01e07c00f1bf807f3e003c300>} imagemask \r
1308   }\r
1309   117 /G75 MSTT31c2a0 AddChar\r
1310 /G2c [11.0 0.0 2.0 -7.0 8.0 3.0]\r
1311 /G2c {\r
1312     6 10 true [1 0 0 -1 -2.0 3.0] {<70f8fc740404081020c0>} imagemask \r
1313   }\r
1314   44 /G2c MSTT31c2a0 AddChar\r
1315 /G70 [21.0 0.0 0.0 -9.0 20.0 20.0]\r
1316 /G70 {\r
1317     20 29 true [1 0 0 -1 0.0 20.0] {<061e003e7f80feffc01e87c01f03e01e01e01e01f01e00f01e00f01e00f01e00f01e00f01e00f01e\r
1318 00f01e00e01e01e01e01c01f03c01f87801eff001e7c001e00001e00001e00001e00001e00001e00\r
1319 003f0000ffc000>} imagemask \r
1320   }\r
1321   112 /G70 MSTT31c2a0 AddChar\r
1322 /Ge9 [18.0 0.0 1.0 -1.0 17.0 29.0]\r
1323 /Ge9 {\r
1324     16 30 true [1 0 0 -1 -1.0 29.0] {<003c003800700060006000c000800000000003e00ff81c3c301e700e600f600fffffe000e000e000\r
1325 e000f000f00178017c037e063ffe1ffc0ff803e0>} imagemask \r
1326   }\r
1327   233 /Ge9 MSTT31c2a0 AddChar\r
1328 /G66 [13.0 0.0 0.0 0.0 17.0 29.0]\r
1329 /G66 {\r
1330     17 29 true [1 0 0 -1 0.0 29.0] {<007c0001ff00038f800707800703000f00000f00000f00000f00000f0000fff8000f00000f00000f\r
1331 00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00\r
1332 001f8000fff000>} imagemask \r
1333   }\r
1334   102 /G66 MSTT31c2a0 AddChar\r
1335 /G76 [20.0 0.0 -1.0 -1.0 20.0 19.0]\r
1336 /G76 {\r
1337     21 20 true [1 0 0 -1 1.0 19.0] {<ffc1f83f00601e00601f00400f00400f808007808007810003c10003c10003e20001e20001e40000\r
1338 f40000f400007800007800007000003000003000>} imagemask \r
1339   }\r
1340   118 /G76 MSTT31c2a0 AddChar\r
1341 /G6d [33.0 0.0 1.0 0.0 33.0 20.0]\r
1342 /G6d {\r
1343     32 20 true [1 0 0 -1 -1.0 20.0] {<061f03c03e7f8fe0fec798f01f07e0781e03c0781e03c0781e03c0781e03c0781e03c0781e03c078\r
1344 1e03c0781e03c0781e03c0781e03c0781e03c0781e03c0781e03c0781e03c0783f03e07cffcff9ff\r
1345 >} imagemask \r
1346   }\r
1347   109 /G6d MSTT31c2a0 AddChar\r
1348 /G71 [21.0 0.0 1.0 -9.0 21.0 20.0]\r
1349 /G71 {\r
1350     20 29 true [1 0 0 -1 -1.0 20.0] {<01e18007fb801e1f803c0f80380780780780700780700780f00780f00780f00780f00780f00780f0\r
1351 0780f807807807807c07803c0f803f37801fe7800787800007800007800007800007800007800007\r
1352 80000fc0003ff0>} imagemask \r
1353   }\r
1354   113 /G71 MSTT31c2a0 AddChar\r
1355 /G67 [21.0 0.0 1.0 -9.0 21.0 20.0]\r
1356 /G67 {\r
1357     20 29 true [1 0 0 -1 -1.0 20.0] {<01f800071ff00e0f001c0f803c07803c07803c07803c07803c07801e07001e0e000f1c0007f8000c\r
1358 00001800001800003c00003fff801fffc00fffe01800e0300060600060600060e000c0f001807c0f\r
1359 003ffe000ff000>} imagemask \r
1360   }\r
1361   103 /G67 MSTT31c2a0 AddChar\r
1362 /G63 [18.0 0.0 1.0 -1.0 17.0 20.0]\r
1363 /G63 {\r
1364     16 21 true [1 0 0 -1 -1.0 20.0] {<01f00ffc1c1e380f300f70076000e000e000e000e000e000f000f00178037c027e0e3ffc1ffc0ff8\r
1365 03e0>} imagemask \r
1366   }\r
1367   99 /G63 MSTT31c2a0 AddChar\r
1368 %%EndResource\r
1369 \r
1370 455 402 11 ( ) 16 SB\r
1371 471 402 88 (-lors ) 93 SB\r
1372 564 402 50 (de ) 55 SB\r
1373 619 402 245 (l'initialisation ) 250 SB\r
1374 869 402 50 (de ) 55 SB\r
1375 924 402 42 (la ) 47 SB\r
1376 971 402 122 (souris, ) 127 SB\r
1377 1098 402 53 (on ) 58 SB\r
1378 1156 402 83 (peut ) 88 SB\r
1379 1244 402 124 (d\351finir ) 129 SB\r
1380 1373 402 57 (les ) 63 SB\r
1381 1436 402 208 (\351v\351nements ) 214 SB\r
1382 1650 402 65 (qui ) 71 SB\r
1383 1721 402 85 (vont ) 91 SB\r
1384 1812 402 88 (faire ) 94 SB\r
1385 1906 402 111 (r\351agir ) 117 SB\r
1386 2023 402 42 (la ) 48 SB\r
1387 2071 402 139 (fonction) 139 SB\r
1388 \r
1389 %%BeginResource: font MSTT31c2a0\r
1390 /G3b [12.0 0.0 3.0 -7.0 9.0 20.0]\r
1391 /G3b {\r
1392     6 27 true [1 0 0 -1 -3.0 20.0] {<60f0f0600000000000000000000000000070f8fc7c0404081020c0>} imagemask \r
1393   }\r
1394   59 /G3b MSTT31c2a0 AddChar\r
1395 /G78 [21.0 0.0 1.0 0.0 21.0 19.0]\r
1396 /G78 {\r
1397     20 19 true [1 0 0 -1 -1.0 19.0] {<ff0fe03e03801e03001f02000f840007c80003d00003e00001f00000f00000f800017c00023e0004\r
1398 1e00081f00100f803007807007c0fc1ff0>} imagemask \r
1399   }\r
1400   120 /G78 MSTT31c2a0 AddChar\r
1401 /Ge8 [18.0 0.0 1.0 -1.0 17.0 29.0]\r
1402 /Ge8 {\r
1403     16 30 true [1 0 0 -1 -1.0 29.0] {<0f00070003800180018000c000400000000003e00ff81c3c301e700e600f600fffffe000e000e000\r
1404 e000f000f00178017c037e063ffe1ffc0ff803e0>} imagemask \r
1405   }\r
1406   232 /Ge8 MSTT31c2a0 AddChar\r
1407 %%EndResource\r
1408 \r
1409 248 450 160 (getpress; ) 162 SB\r
1410 410 450 41 (le ) 43 SB\r
1411 453 450 143 (premier ) 145 SB\r
1412 598 450 41 (et ) 43 SB\r
1413 641 450 41 (le ) 43 SB\r
1414 684 450 173 (deuxi\350me ) 175 SB\r
1415 859 450 181 (param\350tre ) 183 SB\r
1416 1042 450 218 (repr\351sentent ) 220 SB\r
1417 1262 450 264 (respectivement ) 266 SB\r
1418 1528 450 42 (la ) 44 SB\r
1419 1572 450 111 (souris ) 113 SB\r
1420 1685 450 41 (et ) 43 SB\r
1421 1728 450 41 (le ) 43 SB\r
1422 1771 450 136 (clavier, ) 139 SB\r
1423 1910 450 39 (si ) 42 SB\r
1424 1952 450 72 (une ) 75 SB\r
1425 2027 450 116 (valeur ) 119 SB\r
1426 2146 450 64 (non) 64 SB\r
1427 \r
1428 %%BeginResource: font MSTT31c2a0\r
1429 /Ge0 [19.0 0.0 1.0 -1.0 19.0 29.0]\r
1430 /Ge0 {\r
1431     18 30 true [1 0 0 -1 -1.0 29.0] {<07800003800001c00000c00000c00000600000200000000000000007f0001e7800383c00781e0078\r
1432 1e00781e00301e00001e00003e0001de00071e001c1e00381e00701e00f01e00f01e00f01e00f03e\r
1433 00787e407f9f801e0e00>} imagemask \r
1434   }\r
1435   224 /Ge0 MSTT31c2a0 AddChar\r
1436 /G2e [11.0 0.0 3.0 -1.0 7.0 3.0]\r
1437 /G2e {\r
1438     4 4 true [1 0 0 -1 -3.0 3.0] {<60f0f060>} imagemask \r
1439   }\r
1440   46 /G2e MSTT31c2a0 AddChar\r
1441 %%EndResource\r
1442 \r
1443 248 498 1212 (nulle est donn\351e comme param\350tre alors getpress r\351agira \340 l'\351v\351nement.) 1212 SB\r
1444 \r
1445 %%BeginResource: font MSTT31c2a0\r
1446 /G55 [29.0 0.0 0.0 -1.0 29.0 28.0]\r
1447 /G55 {\r
1448     29 29 true [1 0 0 -1 0.0 28.0] {<fff01ff81f8003c00f0001800f0001800f0001800f0001800f0001800f0001800f0001800f000180\r
1449 0f0001800f0001800f0001800f0001800f0001800f0001800f0001800f0001800f0001800f000180\r
1450 0f0001800f00018007800300078003000780070003c00e0001f03c0000fff800003fc000>} imagemask \r
1451   }\r
1452   85 /G55 MSTT31c2a0 AddChar\r
1453 /G28 [14.0 0.0 2.0 -8.0 13.0 28.0]\r
1454 /G28 {\r
1455     11 36 true [1 0 0 -1 -2.0 28.0] {<002000c00180030006000c001c001c00380038007800780070007000f000f000f000f000f000f000\r
1456 f000f0007000700078007800380038001c001c000e0006000300018000c00020>} imagemask \r
1457   }\r
1458   40 /G28 MSTT31c2a0 AddChar\r
1459 /G31 [21.0 0.0 5.0 0.0 17.0 28.0]\r
1460 /G31 {\r
1461     12 28 true [1 0 0 -1 -5.0 28.0] {<07003f00df000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f00\r
1462 0f000f000f000f000f000f001f80fff0>} imagemask \r
1463   }\r
1464   49 /G31 MSTT31c2a0 AddChar\r
1465 /G29 [14.0 0.0 1.0 -8.0 12.0 28.0]\r
1466 /G29 {\r
1467     11 36 true [1 0 0 -1 -1.0 28.0] {<80006000300018000c000e00070007000380038003c003c001c001e001e001e001e001e001e001e0\r
1468 01e001e001c001c003c003c0038003800700070006000c001800300060008000>} imagemask \r
1469   }\r
1470   41 /G29 MSTT31c2a0 AddChar\r
1471 %%EndResource\r
1472 \r
1473 398 594 80 (Une ) 81 SB\r
1474 479 594 96 (paire ) 97 SB\r
1475 576 594 92 (\(1,1\) ) 93 SB\r
1476 669 594 50 (va ) 51 SB\r
1477 720 594 173 (permettre ) 174 SB\r
1478 894 594 50 (de ) 51 SB\r
1479 945 594 141 (prendre ) 142 SB\r
1480 1087 594 51 (en ) 52 SB\r
1481 1139 594 133 (compte ) 134 SB\r
1482 1273 594 30 (\340 ) 31 SB\r
1483 1304 594 42 (la ) 43 SB\r
1484 1347 594 72 (fois ) 73 SB\r
1485 1420 594 57 (les ) 58 SB\r
1486 1478 594 208 (\351v\351nements ) 209 SB\r
1487 1687 594 50 (de ) 51 SB\r
1488 1738 594 42 (la ) 44 SB\r
1489 1782 594 111 (souris ) 113 SB\r
1490 1895 594 41 (et ) 43 SB\r
1491 1938 594 89 (ceux ) 91 SB\r
1492 2029 594 53 (du ) 55 SB\r
1493 2084 594 126 (clavier;) 126 SB\r
1494 \r
1495 %%BeginResource: font MSTT31c2a0\r
1496 /G30 [21.0 0.0 1.0 0.0 19.0 28.0]\r
1497 /G30 {\r
1498     18 28 true [1 0 0 -1 -1.0 28.0] {<01e0000618000c0c001c0e00380700380700780780780380700380f003c0f003c0f003c0f003c0f0\r
1499 03c0f003c0f003c0f003c0f003c0f003c07003807003807807803807003807001c0e000c0c000618\r
1500 0003e000>} imagemask \r
1501   }\r
1502   48 /G30 MSTT31c2a0 AddChar\r
1503 /G50 [23.0 0.0 0.0 0.0 22.0 28.0]\r
1504 /G50 {\r
1505     22 28 true [1 0 0 -1 0.0 28.0] {<ffff001fffc00f03f00f00f00f00780f007c0f003c0f003c0f003c0f003c0f007c0f00780f00f80f\r
1506 03f00fffe00f7f800f00000f00000f00000f00000f00000f00000f00000f00000f00000f00001f80\r
1507 00fff000>} imagemask \r
1508   }\r
1509   80 /G50 MSTT31c2a0 AddChar\r
1510 %%EndResource\r
1511 \r
1512 248 642 72 (une ) 73 SB\r
1513 321 642 96 (paire ) 97 SB\r
1514 418 642 92 (\(1,0\) ) 93 SB\r
1515 511 642 115 (quand ) 116 SB\r
1516 627 642 30 (\340 ) 31 SB\r
1517 658 642 71 (elle ) 72 SB\r
1518 730 642 51 (ne ) 52 SB\r
1519 782 642 142 (prendra ) 144 SB\r
1520 926 642 51 (en ) 53 SB\r
1521 979 642 133 (compte ) 135 SB\r
1522 1114 642 71 (que ) 73 SB\r
1523 1187 642 42 (la ) 44 SB\r
1524 1231 642 122 (souris. ) 124 SB\r
1525 1355 642 90 (Pour ) 92 SB\r
1526 1447 642 72 (une ) 74 SB\r
1527 1521 642 81 (plus ) 83 SB\r
1528 1604 642 127 (grande ) 129 SB\r
1529 1733 642 169 (souplesse ) 171 SB\r
1530 1904 642 221 (d'utilisation, ) 223 SB\r
1531 2127 642 35 (il ) 37 SB\r
1532 2164 642 46 (est) 46 SB\r
1533 \r
1534 %%BeginResource: font MSTT31c2a0\r
1535 /G62 [20.0 0.0 -1.0 -1.0 19.0 29.0]\r
1536 /G62 {\r
1537     20 30 true [1 0 0 -1 1.0 29.0] {<0600003e0000fe00001e00001e00001e00001e00001e00001e00001e1e001e7f801effc01f87c01f\r
1538 03e01e01e01e01f01e00f01e00f01e00f01e00f01e00f01e00f01e00e01e00e01e01e01e01c01f03\r
1539 800f870007fe0001f800>} imagemask \r
1540   }\r
1541   98 /G62 MSTT31c2a0 AddChar\r
1542 /G68 [22.0 0.0 1.0 0.0 22.0 29.0]\r
1543 /G68 {\r
1544     21 29 true [1 0 0 -1 -1.0 29.0] {<0e00007e0000fe00001e00001e00001e00001e00001e00001e00001e1e001e7f001ec7801f07801e\r
1545 03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03\r
1546 c03f03e0ffcff8>} imagemask \r
1547   }\r
1548   104 /G68 MSTT31c2a0 AddChar\r
1549 %%EndResource\r
1550 \r
1551 248 690 146 (possible ) 150 SB\r
1552 398 690 74 (lors ) 78 SB\r
1553 476 690 53 (du ) 57 SB\r
1554 533 690 217 (programme, ) 222 SB\r
1555 755 690 100 (apr\350s ) 105 SB\r
1556 860 690 244 (l'initalisation, ) 249 SB\r
1557 1109 690 50 (de ) 55 SB\r
1558 1164 690 146 (changer ) 151 SB\r
1559 1315 690 89 (cette ) 94 SB\r
1560 1409 690 93 (prise ) 98 SB\r
1561 1507 690 51 (en ) 56 SB\r
1562 1563 690 144 (compte, ) 149 SB\r
1563 1712 690 78 (cela ) 83 SB\r
1564 1795 690 45 (se ) 50 SB\r
1565 1845 690 76 (fera ) 81 SB\r
1566 1926 690 66 (par ) 71 SB\r
1567 1997 690 122 (l'appel ) 127 SB\r
1568 2124 690 50 (de ) 55 SB\r
1569 2179 690 31 (la) 31 SB\r
1570 248 738 178 (procedure ) 178 SB\r
1571 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
1572 \r
1573 %%BeginResource: font MSTT31c282\r
1574 /G67 [21.0 0.0 -2.0 -9.0 22.0 19.0]\r
1575 /G67 {\r
1576     24 28 true [1 0 0 -1 2.0 19.0] {<003f8000e1fe01c0fe0380700700700f00700f00f00e00f00e00e00e01c00703c003870001fc0000\r
1577 c00003000007000007c00007fc0003ff800c7fc03007e07000e0e00060e00060e000407000803c07\r
1578 0007f800>} imagemask \r
1579   }\r
1580   103 /G67 MSTT31c282 AddChar\r
1581 /G65 [19.0 0.0 1.0 0.0 17.0 19.0]\r
1582 /G65 {\r
1583     16 19 true [1 0 0 -1 -1.0 19.0] {<007c018f07070e071c07180e381e7038707073c0fc00e000e000e000f00470187c303fe01f00>} imagemask \r
1584   }\r
1585   101 /G65 MSTT31c282 AddChar\r
1586 /G6d [30.0 0.0 0.0 0.0 28.0 19.0]\r
1587 /G6d {\r
1588     28 19 true [1 0 0 -1 0.0 19.0] {<070781e03f0f83e00713c4f00e23c8f00e4390e00e83a0e00d03a1e01d0741e01e0781c01e0781c0\r
1589 3c0f03c03c0f0380380e0380380e0780701c0710701c0720701c0740e0380f80e0380700>} imagemask \r
1590   }\r
1591   109 /G6d MSTT31c282 AddChar\r
1592 /G6f [21.0 0.0 1.0 0.0 19.0 19.0]\r
1593 /G6f {\r
1594     18 19 true [1 0 0 -1 -1.0 19.0] {<007c000187000703800e01801c01c03c01c03801c07803c07003c0f003c0f00380f00780e00700e0\r
1595 0f00e00e00601c007038003860000f8000>} imagemask \r
1596   }\r
1597   111 /G6f MSTT31c282 AddChar\r
1598 /G76 [19.0 0.0 0.0 0.0 18.0 19.0]\r
1599 /G76 {\r
1600     18 19 true [1 0 0 -1 0.0 19.0] {<1c0180fc03c01c03c01e01c00e00c00e00800e01800e01000e02000f06000f0c0007080007100007\r
1601 200007400007c000078000070000060000>} imagemask \r
1602   }\r
1603   118 /G76 MSTT31c282 AddChar\r
1604 %%EndResource\r
1605 \r
1606 426 738 223 (getmovement) 223 SB\r
1607 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
1608 \r
1609 %%BeginResource: font MSTT31c2a0\r
1610 /G79 [19.0 0.0 -1.0 -9.0 19.0 19.0]\r
1611 /G79 {\r
1612     20 28 true [1 0 0 -1 1.0 19.0] {<ffc3f03f00c01e00801f00800f00800f010007810007810003c20003c20003e40001e40001f40000\r
1613 f80000f8000078000070000070000030000020000020000040000040000040003880007f00007e00\r
1614 003c0000>} imagemask \r
1615   }\r
1616   121 /G79 MSTT31c2a0 AddChar\r
1617 /Gea [18.0 0.0 1.0 -1.0 17.0 29.0]\r
1618 /Gea {\r
1619     16 30 true [1 0 0 -1 -1.0 29.0] {<03e003e0077006300c18080810040000000003e00ff81c3c301e700e600f600fffffe000e000e000\r
1620 e000f000f00178017c037e063ffe1ffc0ff803e0>} imagemask \r
1621   }\r
1622   234 /Gea MSTT31c2a0 AddChar\r
1623 %%EndResource\r
1624 \r
1625 649 738 1385 (, proc\351dure ayant les m\352mes param\350tres \(avec le m\352me ordre\) que la fonction init.) 1385 SB\r
1626 398 834 869 (Pour detecter les \351v\351nements, on utilisa la fonction ) 870 SB\r
1627 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
1628 \r
1629 %%BeginResource: font MSTT31c282\r
1630 /G70 [21.0 0.0 -4.0 -9.0 20.0 19.0]\r
1631 /G70 {\r
1632     24 28 true [1 0 0 -1 4.0 19.0] {<00387c01f9fe007b1e00760f007c0700780700700700f00700e00e00e00e01c00e01c01c01c01c01\r
1633 c0380380300380600380c007c38007fe000700000700000e00000e00000e00001c00001c00003e00\r
1634 00ff8000>} imagemask \r
1635   }\r
1636   112 /G70 MSTT31c282 AddChar\r
1637 /G72 [16.0 0.0 0.0 0.0 16.0 19.0]\r
1638 /G72 {\r
1639     16 19 true [1 0 0 -1 0.0 19.0] {<07073f0f0f1f0e3f0e660e460e801d001d001e003c003c0038003800700070007000e000e000>} imagemask \r
1640   }\r
1641   114 /G72 MSTT31c282 AddChar\r
1642 /G73 [16.0 0.0 0.0 0.0 16.0 19.0]\r
1643 /G73 {\r
1644     16 19 true [1 0 0 -1 0.0 19.0] {<01f1070f06070e020e020f020f8007c003e001e001f000f8407840384038e038e030f0608f80>} imagemask \r
1645   }\r
1646   115 /G73 MSTT31c282 AddChar\r
1647 %%EndResource\r
1648 \r
1649 1268 834 140 (getpress) 140 SB\r
1650 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
1651 1408 834 22 (, ) 23 SB\r
1652 1431 834 65 (qui ) 66 SB\r
1653 1497 834 152 (retourne ) 153 SB\r
1654 1650 834 54 (un ) 55 SB\r
1655 1705 834 141 (bool\351en ) 142 SB\r
1656 1847 834 173 (indiquant ) 174 SB\r
1657 2021 834 42 (la ) 43 SB\r
1658 2064 834 146 (pr\351sence) 146 SB\r
1659 \r
1660 %%BeginResource: font MSTT31c2a0\r
1661 /G49 [14.0 0.0 1.0 0.0 13.0 28.0]\r
1662 /G49 {\r
1663     12 28 true [1 0 0 -1 -1.0 28.0] {<fff01f800f000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f00\r
1664 0f000f000f000f000f000f001f80fff0>} imagemask \r
1665   }\r
1666   73 /G49 MSTT31c2a0 AddChar\r
1667 %%EndResource\r
1668 \r
1669 248 882 52 (ou ) 55 SB\r
1670 303 882 162 (l'absence ) 165 SB\r
1671 468 882 221 (d'\351v\351nement ) 224 SB\r
1672 692 882 278 (\(respectivement ) 281 SB\r
1673 973 882 57 (les ) 60 SB\r
1674 1033 882 132 (valeurs ) 136 SB\r
1675 1169 882 77 (true ) 81 SB\r
1676 1250 882 41 (et ) 45 SB\r
1677 1295 882 114 (false\). ) 118 SB\r
1678 1413 882 37 (Il ) 41 SB\r
1679 1454 882 57 (est ) 61 SB\r
1680 1515 882 73 (bon ) 77 SB\r
1681 1592 882 50 (de ) 54 SB\r
1682 1646 882 98 (noter ) 102 SB\r
1683 1748 882 142 (qu'ainsi ) 146 SB\r
1684 1894 882 127 (d\351finie ) 131 SB\r
1685 2025 882 42 (la ) 46 SB\r
1686 2071 882 139 (fonction) 139 SB\r
1687 \r
1688 %%BeginResource: font MSTT31c2a0\r
1689 /G4c [25.0 0.0 0.0 0.0 24.0 28.0]\r
1690 /G4c {\r
1691     24 28 true [1 0 0 -1 0.0 28.0] {<fff0001f80000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f\r
1692 00000f00000f00000f00000f00000f00000f00000f00010f00030f00020f00060f000e0f801e1fff\r
1693 fcfffffc>} imagemask \r
1694   }\r
1695   76 /G4c MSTT31c2a0 AddChar\r
1696 /G3a [12.0 0.0 4.0 -1.0 8.0 20.0]\r
1697 /G3a {\r
1698     4 21 true [1 0 0 -1 -4.0 20.0] {<60f0f0600000000000000000000000000060f0f060>} imagemask \r
1699   }\r
1700   58 /G3a MSTT31c2a0 AddChar\r
1701 %%EndResource\r
1702 \r
1703 248 930 1790 (getpress n'est pas bloquante. Les param\350tres en retour sont soit nuls \(pas d'\351v\351nement\) soit correspondent:) 1790 SB\r
1704 \r
1705 %%BeginResource: font MSTT31c2a0\r
1706 /G3d [24.0 0.0 1.0 10.0 23.0 19.0]\r
1707 /G3d {\r
1708     22 9 true [1 0 0 -1 -1.0 19.0] {<fffffcfffffc000000000000000000000000000000fffffcfffffc>} imagemask \r
1709   }\r
1710   61 /G3d MSTT31c2a0 AddChar\r
1711 %%EndResource\r
1712 \r
1713 398 1026 600 (bool:=getpress\(v,p,h,l,r,c : integer\);) 600 SB\r
1714 548 1074 485 (v = position en y de la souris) 485 SB\r
1715 \r
1716 %%BeginResource: font MSTT31c2a0\r
1717 /G6b [21.0 0.0 0.0 0.0 21.0 29.0]\r
1718 /G6b {\r
1719     21 29 true [1 0 0 -1 0.0 29.0] {<0e00007e0000fe00001e00001e00001e00001e00001e00001e00001e00001e0ff01e07801e06001e\r
1720 0c001e18001e30001e60001ee0001ff0001ef0001e78001e3c001e1e001e1f001e0f001e07801e03\r
1721 c03f03e0ffcff8>} imagemask \r
1722   }\r
1723   107 /G6b MSTT31c2a0 AddChar\r
1724 /G54 [26.0 0.0 1.0 0.0 25.0 28.0]\r
1725 /G54 {\r
1726     24 28 true [1 0 0 -1 -1.0 28.0] {<ffffffffffffe03c07c03c03c03c03803c01803c01003c00003c00003c00003c00003c00003c0000\r
1727 3c00003c00003c00003c00003c00003c00003c00003c00003c00003c00003c00003c00003c00007e\r
1728 0003ffc0>} imagemask \r
1729   }\r
1730   84 /G54 MSTT31c2a0 AddChar\r
1731 /G5f [21.0 0.0 0.0 -9.0 21.0 -7.0]\r
1732 /G5f {\r
1733     21 2 true [1 0 0 -1 0.0 -7.0] {<fffff8fffff8>} imagemask \r
1734   }\r
1735   95 /G5f MSTT31c2a0 AddChar\r
1736 %%EndResource\r
1737 \r
1738 548 1122 1490 (p = keyboard status \(Touche control_left,control_right, alt, alt_gr, shift_left, shift_right\)) 1490 SB\r
1739 548 1170 489 (h = position en x de la souris) 489 SB\r
1740 548 1218 305 (l  = touche clavier) 305 SB\r
1741 548 1266 142 (r = flags) 142 SB\r
1742 \r
1743 %%BeginResource: font MSTT31c2a0\r
1744 /G32 [21.0 0.0 1.0 0.0 19.0 28.0]\r
1745 /G32 {\r
1746     18 28 true [1 0 0 -1 -1.0 28.0] {<03e0000ff8001ffc00387e00303f00201f00400f00400f00000f00000f00000f00000e00000e0000\r
1747 1c00001c0000380000300000600000e00000c0000180000300000600000c00c01801803fff807fff\r
1748 00ffff00>} imagemask \r
1749   }\r
1750   50 /G32 MSTT31c2a0 AddChar\r
1751 /G33 [21.0 0.0 2.0 0.0 17.0 28.0]\r
1752 /G33 {\r
1753     15 28 true [1 0 0 -1 -2.0 28.0] {<07c01ff03ff8707c403c801c001c001c001800300020004001f007f800fc007c003e001e001e000e\r
1754 000e000e000c000c0018e030f8607f80>} imagemask \r
1755   }\r
1756   51 /G33 MSTT31c2a0 AddChar\r
1757 %%EndResource\r
1758 \r
1759 548 1314 1270 (c = boutons de la souris \(0=aucun, 1=gauche, 2=droite, 3=gauche et droite\)) 1270 SB\r
1760 \r
1761 %%BeginResource: font MSTT31c2a0\r
1762 /G4e [30.0 0.0 0.0 0.0 30.0 28.0]\r
1763 /G4e {\r
1764     30 28 true [1 0 0 -1 0.0 28.0] {<fe000ffc3f0001e00f8000c007c000c007c000c007e000c007f000c006f800c0067c00c0063e00c0\r
1765 063e00c0061f00c0060f80c00607c0c00603e0c00603e0c00601f0c00600f8c006007cc006003ec0\r
1766 06001fc006001fc006000fc0060007c0060003c0060001c00f0000c07fe000c0>} imagemask \r
1767   }\r
1768   78 /G4e MSTT31c2a0 AddChar\r
1769 %%EndResource\r
1770 \r
1771 698 1362 604 (Nb: le bouton central n'est pas g\351r\351.) 604 SB\r
1772 \r
1773 %%BeginResource: font MSTT31c2a0\r
1774 /G4f [30.0 0.0 1.0 -1.0 29.0 29.0]\r
1775 /G4f {\r
1776     28 30 true [1 0 0 -1 -1.0 29.0] {<003fc00000fff00003e07c0007801e000f000f001e0007803e0007c03c0003c07c0003e07c0003e0\r
1777 780001e0f80001f0f80001f0f80001f0f80001f0f80001f0f80001f0f80001f0f80001f0780001e0\r
1778 7c0003e07c0003e03c0003c03e0007c01e0007800f000f0007801e0003e07c0000fff000003fc000\r
1779 >} imagemask \r
1780   }\r
1781   79 /G4f MSTT31c2a0 AddChar\r
1782 /G45 [26.0 0.0 0.0 0.0 25.0 28.0]\r
1783 /G45 {\r
1784     25 28 true [1 0 0 -1 0.0 28.0] {<fffffe001ffffe000f000e000f0006000f0002000f0002000f0000000f0000000f0010000f001000\r
1785 0f0030000f0030000ffff0000ffff0000f0030000f0030000f0010000f0010000f0000000f000000\r
1786 0f0000000f0000800f0001000f0003000f0007000f000e001ffffe00fffffe00>} imagemask \r
1787   }\r
1788   69 /G45 MSTT31c2a0 AddChar\r
1789 /G5a [25.0 0.0 0.0 0.0 24.0 28.0]\r
1790 /G5a {\r
1791     24 28 true [1 0 0 -1 0.0 28.0] {<0fffff0ffffe0c003c08007c1800f81000f01001f00003e00007c0000780000f80001f00001e0000\r
1792 3e00007c0000f80000f00001f00003e00007c0000780010f80011f00031e00023e00067c000effff\r
1793 fefffffe>} imagemask \r
1794   }\r
1795   90 /G5a MSTT31c2a0 AddChar\r
1796 /G42 [27.0 0.0 0.0 0.0 25.0 28.0]\r
1797 /G42 {\r
1798     25 28 true [1 0 0 -1 0.0 28.0] {<ffffc0001ffff8000f00fc000f003e000f001e000f000f000f000f000f000f000f000f000f001f00\r
1799 0f001e000f007c000ffff8000fffe0000f007c000f001e000f000f000f000f000f0007800f000780\r
1800 0f0007800f0007800f000f800f000f000f001f000f007e001ffff800ffffe000>} imagemask \r
1801   }\r
1802   66 /G42 MSTT31c2a0 AddChar\r
1803 /G21 [14.0 0.0 5.0 -1.0 9.0 29.0]\r
1804 /G21 {\r
1805     4 30 true [1 0 0 -1 -5.0 29.0] {<60f0f0f0f0f0f0f0f0f0f0f0f06060606060606060606000000060f0f060>} imagemask \r
1806   }\r
1807   33 /G21 MSTT31c2a0 AddChar\r
1808 %%EndResource\r
1809 \r
1810 248 1459 148 (NOTEZ ) 150 SB\r
1811 398 1459 122 (BIEN! ) 124 SB\r
1812 522 1459 147 (Lorsque ) 149 SB\r
1813 671 1459 57 (les ) 59 SB\r
1814 730 1459 208 (\351v\351nements ) 210 SB\r
1815 940 1459 53 (du ) 55 SB\r
1816 995 1459 125 (clavier ) 127 SB\r
1817 1122 1459 81 (sont ) 83 SB\r
1818 1205 1459 75 (pris ) 77 SB\r
1819 1282 1459 51 (en ) 53 SB\r
1820 1335 1459 133 (compte ) 136 SB\r
1821 1471 1459 89 (dans ) 92 SB\r
1822 1563 1459 41 (le ) 44 SB\r
1823 1607 1459 229 (gestionnaire, ) 232 SB\r
1824 \r
1825 %%BeginResource: font MSTT31c2c7\r
1826 /MSTT31c2c7 [42.0 0 0 0 0 0] 95 -115 [-42.0 -42.0 42.0 42.0] [1 42 div 0 0 1 42 div 0 0] /MSTT31c2c7 GreNewFont\r
1827 %%EndResource\r
1828 \r
1829 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
1830 \r
1831 %%BeginResource: font MSTT31c2c7\r
1832 /G69 [12.0 0.0 1.0 0.0 11.0 29.0]\r
1833 /G69 {\r
1834     10 29 true [1 0 0 -1 -1.0 29.0] {<1e003f003f003f003f001e000000000000000000ff003f003f003f003f003f003f003f003f003f00\r
1835 3f003f003f003f003f003f003f003f00ffc0>} imagemask \r
1836   }\r
1837   105 /G69 MSTT31c2c7 AddChar\r
1838 /G6c [12.0 0.0 1.0 0.0 11.0 28.0]\r
1839 /G6c {\r
1840     10 28 true [1 0 0 -1 -1.0 28.0] {<ff003f003f003f003f003f003f003f003f003f003f003f003f003f003f003f003f003f003f003f00\r
1841 3f003f003f003f003f003f003f00ffc0>} imagemask \r
1842   }\r
1843   108 /G6c MSTT31c2c7 AddChar\r
1844 %%EndResource\r
1845 \r
1846 1839 1458 24 (il) 24 SB\r
1847 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
1848 1863 1459 11 ( ) 14 SB\r
1849 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
1850 \r
1851 %%BeginResource: font MSTT31c2c7\r
1852 /G6e [23.0 0.0 1.0 0.0 22.0 20.0]\r
1853 /G6e {\r
1854     21 20 true [1 0 0 -1 -1.0 20.0] {<000f00ff3f803f7fc03fcfe03f87e03f87e03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f\r
1855 07e03f07e03f07e03f07e03f07e03f07e0ffdff8>} imagemask \r
1856   }\r
1857   110 /G6e MSTT31c2c7 AddChar\r
1858 /G65 [19.0 0.0 1.0 -1.0 18.0 20.0]\r
1859 /G65 {\r
1860     17 21 true [1 0 0 -1 -1.0 20.0] {<03f0000f3c001e3e003c1f003c1f007c1f007c1f80fc1f80ffff80fc0000fc0000fc0000fe0000fe\r
1861 0000fe00007f00807f01803fc7001ffe000ffc0003f000>} imagemask \r
1862   }\r
1863   101 /G65 MSTT31c2c7 AddChar\r
1864 /G20 [11.0 0.0 0.0 0.0 0.0 0.0]\r
1865 /G20 {\r
1866 } \r
1867   32 /G20 MSTT31c2c7 AddChar\r
1868 /G66 [14.0 0.0 0.0 0.0 16.0 29.0]\r
1869 /G66 {\r
1870     16 29 true [1 0 0 -1 0.0 29.0] {<00fc039e079f0f9f0f9f1f8e1f801f801f801f80fff0fff01f801f801f801f801f801f801f801f80\r
1871 1f801f801f801f801f801f801f801f807fe0>} imagemask \r
1872   }\r
1873   102 /G66 MSTT31c2c7 AddChar\r
1874 /G61 [21.0 0.0 2.0 -1.0 21.0 20.0]\r
1875 /G61 {\r
1876     19 21 true [1 0 0 -1 -2.0 20.0] {<03f0000c7c00383e00383f007c3f007c3f007c3f00383f00007f0001bf00073f000e3f003e3f007c\r
1877 3f007c3f00fc3f00fc3f00fe7f00ffbfe07f1fc03c0f00>} imagemask \r
1878   }\r
1879   97 /G61 MSTT31c2c7 AddChar\r
1880 /G75 [22.0 0.0 0.0 -1.0 21.0 19.0]\r
1881 /G75 {\r
1882     21 20 true [1 0 0 -1 0.0 19.0] {<ff1fe03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f\r
1883 07e03f07e03f0fe03f9fe01ff7e00fe7f8078000>} imagemask \r
1884   }\r
1885   117 /G75 MSTT31c2c7 AddChar\r
1886 /G74 [14.0 0.0 0.0 -1.0 13.0 26.0]\r
1887 /G74 {\r
1888     13 27 true [1 0 0 -1 0.0 26.0] {<008001800180038007800f801f807ff8fff81f801f801f801f801f801f801f801f801f801f801f80\r
1889 1f801f801f881f980ff00fe003c0>} imagemask \r
1890   }\r
1891   116 /G74 MSTT31c2c7 AddChar\r
1892 /G70 [23.0 0.0 1.0 -9.0 21.0 20.0]\r
1893 /G70 {\r
1894     20 29 true [1 0 0 -1 -1.0 20.0] {<001e00ff3f803f4fc03f87c03f07e03f03e03f03f03f03f03f03f03f03f03f03f03f03f03f03f03f\r
1895 03f03f03f03f03e03f03e03f07c03f87c03f4f803f3e003f00003f00003f00003f00003f00003f00\r
1896 003f0000ffc000>} imagemask \r
1897   }\r
1898   112 /G70 MSTT31c2c7 AddChar\r
1899 /G73 [16.0 0.0 2.0 -1.0 15.0 20.0]\r
1900 /G73 {\r
1901     13 21 true [1 0 0 -1 -2.0 20.0] {<1f1038f070707070f830fc30fe10ff00ffc07fe03ff01ff00ff807f881f8c0f8c078e070f070f8e0\r
1902 8f80>} imagemask \r
1903   }\r
1904   115 /G73 MSTT31c2c7 AddChar\r
1905 %%EndResource\r
1906 \r
1907 1877 1458 53 (ne ) 56 SB\r
1908 1933 1458 82 (faut ) 85 SB\r
1909 2018 1458 71 (pas ) 74 SB\r
1910 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
1911 2092 1459 118 (utiliser) 118 SB\r
1912 \r
1913 %%BeginResource: font MSTT31c2a0\r
1914 /G38 [21.0 0.0 2.0 0.0 19.0 28.0]\r
1915 /G38 {\r
1916     17 28 true [1 0 0 -1 -2.0 28.0] {<07e0001c3800381e00700e00f00f00f00f00f00f00f80f00fc1e007e1c003f38001fb0000fc00007\r
1917 e00007f8000cfc00187e00383f00701f00f00f80f00f80f00780f00780f00780780700380e001e1c\r
1918 0007f000>} imagemask \r
1919   }\r
1920   56 /G38 MSTT31c2a0 AddChar\r
1921 %%EndResource\r
1922 \r
1923 248 1514 57 (les ) 69 SB\r
1924 317 1514 166 (fonctions ) 178 SB\r
1925 495 1514 159 (d'entr\351es ) 171 SB\r
1926 666 1514 125 (clavier ) 137 SB\r
1927 803 1514 107 (readl, ) 119 SB\r
1928 922 1514 129 (readln, ) 141 SB\r
1929 1063 1514 111 (hfont, ) 123 SB\r
1930 1186 1514 132 (hfont8, ) 145 SB\r
1931 1331 1514 123 (hpage, ) 136 SB\r
1932 1467 1514 161 (inkey,...\) ) 174 SB\r
1933 \r
1934 %%BeginResource: font MSTT31c2d4\r
1935 /MSTT31c2d4 [50.0 0 0 0 0 0] 40 -100 [-50.0 -50.0 50.0 50.0] [1 50 div 0 0 1 50 div 0 0] /MSTT31c2d4 GreNewFont\r
1936 %%EndResource\r
1937 \r
1938 32 0 0 50 50 0 0 1 45 /MSTT31c2d4 font\r
1939 \r
1940 %%BeginResource: font MSTT31c2d4\r
1941 /G73 [19.0 0.0 0.0 0.0 19.0 23.0]\r
1942 /G73 {\r
1943     19 23 true [1 0 0 -1 0.0 23.0] {<007c2001c3e00380e00780e007804007804007c04007e00003f00003f80001f80000fc00007e0000\r
1944 3e00003f00401f00400f00400f00600f00e00e00f01c00f8380087e000>} imagemask \r
1945   }\r
1946   115 /G73 MSTT31c2d4 AddChar\r
1947 /G6f [25.0 0.0 1.0 0.0 24.0 23.0]\r
1948 /G6f {\r
1949     23 23 true [1 0 0 -1 -1.0 23.0] {<000fc00070f001e03803c03c07801c0f001e1e001e3e001e3c003e7c003e7c003e78003cf8007cf8\r
1950 007cf80078f000f8f000f0f001e07803c0780780380f001e1c0007e000>} imagemask \r
1951   }\r
1952   111 /G6f MSTT31c2d4 AddChar\r
1953 /G75 [25.0 0.0 1.0 0.0 24.0 23.0]\r
1954 /G75 {\r
1955     23 23 true [1 0 0 -1 -1.0 23.0] {<0380000fc03e1fc03c23c03c43c07cc7c0780780780780f80f80f00f01f00f01f01f03e01e03e01e\r
1956 05e03e05e03c0bc03c13c07c13c07827887847907887a07f07c03c0780>} imagemask \r
1957   }\r
1958   117 /G75 MSTT31c2d4 AddChar\r
1959 /G20 [13.0 0.0 0.0 0.0 0.0 0.0]\r
1960 /G20 {\r
1961 } \r
1962   32 /G20 MSTT31c2d4 AddChar\r
1963 /G70 [25.0 0.0 -7.0 -11.0 24.0 23.0]\r
1964 /G70 {\r
1965     31 34 true [1 0 0 -1 7.0 23.0] {<0003c1f0007fc7f800078c7c0007b03c0007e03e000f401e000f801e000f801e001f003e001f003e\r
1966 001e003c003e003c003c007c003c0078003c0070007800f0007800e0007801c000f8038000f00700\r
1967 00f80e0001fc3c0001efe00001e0000001e0000003c0000003c0000003c000000780000007800000\r
1968 078000000f8000001fc000007ff80000>} imagemask \r
1969   }\r
1970   112 /G70 MSTT31c2d4 AddChar\r
1971 /G65 [22.0 0.0 1.0 0.0 20.0 23.0]\r
1972 /G65 {\r
1973     19 23 true [1 0 0 -1 -1.0 23.0] {<001f800063c00181e00301e00701e00e01e01c03c01c07803c0700781e00783c0079e000ff0000f0\r
1974 0000f00000f00000f80080f80100fc06007e1c003ff8003ff0000fc000>} imagemask \r
1975   }\r
1976   101 /G65 MSTT31c2d4 AddChar\r
1977 /G69 [14.0 0.0 1.0 0.0 13.0 32.0]\r
1978 /G69 {\r
1979     12 32 true [1 0 0 -1 -1.0 32.0] {<006000f000f000600000000000000000000001e03fe003c003c003c00780078007800f000f000f00\r
1980 1f001e001e003e003c003c007c00788079007a00fc007800>} imagemask \r
1981   }\r
1982   105 /G69 MSTT31c2d4 AddChar\r
1983 /G6e [25.0 0.0 0.0 0.0 24.0 23.0]\r
1984 /G6e {\r
1985     24 23 true [1 0 0 -1 0.0 23.0] {<03e03c3fc0fe03c19f03c20f03c41f07881f07901e07b03e0f603e0f403e0f803c1f807c1f00781f\r
1986 00781e00f83e00f03c00f03c01f07801e27801e47801e8f803f0f001c0>} imagemask \r
1987   }\r
1988   110 /G6e MSTT31c2d4 AddChar\r
1989 /G64 [25.0 0.0 0.0 0.0 29.0 35.0]\r
1990 /G64 {\r
1991     29 35 true [1 0 0 -1 0.0 35.0] {<000000f800000ff0000001f0000001f0000001e0000001e0000001e0000003c0000003c0000003c0\r
1992 00000780000007800007c7800018778000603f0001c01f0003801f0007801e000f003e000e003e00\r
1993 1e003c003c003c003c007c007800f8007800f8007801f800f8037800f002f000f006f000f80cf000\r
1994 f819e100fc71e2007fe1e4003fc1f8001f01e000>} imagemask \r
1995   }\r
1996   100 /G64 MSTT31c2d4 AddChar\r
1997 /G6c [14.0 0.0 1.0 0.0 16.0 35.0]\r
1998 /G6c {\r
1999     15 35 true [1 0 0 -1 -1.0 35.0] {<003e03fc007c003c00780078007800f000f000f001f001e001e003e003c003c003c0078007800780\r
2000 0f000f000f001f001e001e003e003c003c007c40788078807900fe007800>} imagemask \r
2001   }\r
2002   108 /G6c MSTT31c2d4 AddChar\r
2003 /G61 [25.0 0.0 0.0 0.0 25.0 23.0]\r
2004 /G61 {\r
2005     25 23 true [1 0 0 -1 0.0 23.0] {<000f8180003ccf8000606f0001c02f0003803f0007803e000f003e000e003e001e003c003c003c00\r
2006 3c007c0078007c00780078007800f800f801f800f001f000f002f000f004f000f819e200fc31e400\r
2007 7fe1ec003fc1f8001f01e000>} imagemask \r
2008   }\r
2009   97 /G61 MSTT31c2d4 AddChar\r
2010 /G74 [14.0 0.0 2.0 0.0 15.0 29.0]\r
2011 /G74 {\r
2012     13 29 true [1 0 0 -1 -2.0 29.0] {<00300020006000e001c003c00fc07ff8078007800f800f000f001f001e001e003e003e003c003c00\r
2013 7c0078007800f800f180f100f200fc00f000>} imagemask \r
2014   }\r
2015   116 /G74 MSTT31c2d4 AddChar\r
2016 /G67 [25.0 0.0 -2.0 -11.0 27.0 23.0]\r
2017 /G67 {\r
2018     29 34 true [1 0 0 -1 2.0 23.0] {<000ff000003c3ff800f01ff001e01ff003e00f0003c00f0007c00f0007c01f0007801f0007801e00\r
2019 07803e0003c03c0003c0780001e1e000007f80000030000000e0000001c0000003c0000003f80000\r
2020 03ff000001ffe00003fff0000e0ff8003c01fc0078003c0070001c00f0001c00f0001800f0001800\r
2021 780030007c0060001f01800003fe0000>} imagemask \r
2022   }\r
2023   103 /G67 MSTT31c2d4 AddChar\r
2024 %%EndResource\r
2025 \r
2026 1641 1507 101 (sous ) 114 SB\r
2027 1755 1507 121 (peine ) 134 SB\r
2028 1889 1507 60 (de ) 73 SB\r
2029 1962 1507 188 (plantage ) 201 SB\r
2030 2163 1507 47 (de) 47 SB\r
2031 \r
2032 %%BeginResource: font MSTT31c2d4\r
2033 /G27 [11.0 0.0 6.0 21.0 13.0 35.0]\r
2034 /G27 {\r
2035     7 14 true [1 0 0 -1 -6.0 35.0] {<1c3e3e7c7c7c78707060e0c0c080>} imagemask \r
2036   }\r
2037   39 /G27 MSTT31c2d4 AddChar\r
2038 /G72 [19.0 0.0 0.0 0.0 19.0 23.0]\r
2039 /G72 {\r
2040     19 23 true [1 0 0 -1 0.0 23.0] {<03e0e03fe1e007c3e003c7e007c9c00798c007900007a0000f40000f40000f80001f00001f00001e\r
2041 00001e00003e00003c00003c0000780000780000780000f80000f00000>} imagemask \r
2042   }\r
2043   114 /G72 MSTT31c2d4 AddChar\r
2044 %%EndResource\r
2045 \r
2046 248 1564 238 (l'ordinateur) 238 SB\r
2047 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2048 486 1571 11 (.) 11 SB\r
2049 \r
2050 %%BeginResource: font MSTT31c2a0\r
2051 /G7d [20.0 0.0 4.0 -8.0 17.0 28.0]\r
2052 /G7d {\r
2053     13 36 true [1 0 0 -1 -4.0 28.0] {<e00038000e000f0007000780078007800f800f800f000f000f000700030001800060001800700180\r
2054 038007000f000f000f000f800f80078007800780078007000e001c003800c000>} imagemask \r
2055   }\r
2056   125 /G7d MSTT31c2a0 AddChar\r
2057 %%EndResource\r
2058 \r
2059 248 1621 20 (}) 20 SB\r
2060 248 1718 44 (    ) 44 SB\r
2061 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2062 292 1717 82 (unit ) 82 SB\r
2063 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2064 374 1718 81 (init: ) 81 SB\r
2065 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2066 \r
2067 %%BeginResource: font MSTT31c2c7\r
2068 /G72 [19.0 0.0 2.0 0.0 19.0 20.0]\r
2069 /G72 {\r
2070     17 20 true [1 0 0 -1 -2.0 20.0] {<000f00ff1f803f3f803f7f803f4f803f87003f80003f00003f00003f00003f00003f00003f00003f\r
2071 00003f00003f00003f00003f00003f8000ffc000>} imagemask \r
2072   }\r
2073   114 /G72 MSTT31c2c7 AddChar\r
2074 /G6f [20.0 0.0 1.0 -1.0 19.0 20.0]\r
2075 /G6f {\r
2076     18 21 true [1 0 0 -1 -1.0 20.0] {<03f0000f3c001e1e003e0f003c0f807c0f807c0f80fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc\r
2077 0fc07c0f807c0f807c0f803c0f001e1e000f3c0003f000>} imagemask \r
2078   }\r
2079   111 /G6f MSTT31c2c7 AddChar\r
2080 /G63 [19.0 0.0 1.0 -1.0 18.0 20.0]\r
2081 /G63 {\r
2082     17 21 true [1 0 0 -1 -1.0 20.0] {<03f0000f3c001e3e003c3f003c1f007c1f007c0e00fc0000fc0000fc0000fc0000fe0000fe0000fe\r
2083 00007e00007f00007f81803fc3001ffe000ffc0003f000>} imagemask \r
2084   }\r
2085   99 /G63 MSTT31c2c7 AddChar\r
2086 /G64 [23.0 0.0 2.0 -1.0 22.0 28.0]\r
2087 /G64 {\r
2088     20 29 true [1 0 0 -1 -2.0 28.0] {<003fc0000fc0000fc0000fc0000fc0000fc0000fc0000fc007cfc00f2fc01e1fc03e1fc07c0fc07c\r
2089 0fc07c0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc07c0fc07e0fc03e1fc03f3f\r
2090 c01feff0078f00>} imagemask \r
2091   }\r
2092   100 /G64 MSTT31c2c7 AddChar\r
2093 %%EndResource\r
2094 \r
2095 455 1717 183 (procedure) 183 SB\r
2096 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2097 \r
2098 %%BeginResource: font MSTT31c2a0\r
2099 /G4d [37.0 0.0 0.0 0.0 37.0 28.0]\r
2100 /G4d {\r
2101     37 28 true [1 0 0 -1 0.0 28.0] {<ff000007f81f80000fc00f80000f800fc0001f800fc0001f800fe0003f800de00037800df0003780\r
2102 0cf00067800cf80067800c7800c7800c7c00c7800c3c0187800c3e0187800c1e0307800c1e030780\r
2103 0c0f0607800c0f0607800c078c07800c078c07800c07dc07800c03d807800c03f807800c01f00780\r
2104 0c01f007800c00e007801e00e00fc0ffc0407ff8>} imagemask \r
2105   }\r
2106   77 /G4d MSTT31c2a0 AddChar\r
2107 /G4b [30.0 0.0 0.0 0.0 30.0 28.0]\r
2108 /G4b {\r
2109     30 28 true [1 0 0 -1 0.0 28.0] {<fff07fe01f801f000f001e000f0018000f0030000f0060000f00c0000f0180000f0300000f060000\r
2110 0f1c00000f3000000f7000000ff800000f7c00000f3e00000f1f00000f0f80000f07c0000f03e000\r
2111 0f01f8000f00fc000f007e000f003f000f001f800f000fc01f801ff0fff07ffc>} imagemask \r
2112   }\r
2113   75 /G4b MSTT31c2a0 AddChar\r
2114 %%EndResource\r
2115 \r
2116 638 1718 671 (\(checkMouse, checkKeyboard: integer\);) 671 SB\r
2117 \r
2118 %%BeginResource: font MSTT31c2a0\r
2119 /G7a [19.0 0.0 1.0 0.0 18.0 19.0]\r
2120 /G7a {\r
2121     17 19 true [1 0 0 -1 -1.0 19.0] {<7fff80600f00401e00401e00003c0000780000780000f00001e00003c00003c0000780000f00000f\r
2122 00001e00803c0080780180780380ffff80>} imagemask \r
2123   }\r
2124   122 /G7a MSTT31c2a0 AddChar\r
2125 %%EndResource\r
2126 \r
2127 248 1766 605 (         { initializes the Mouse driver.) 605 SB\r
2128 \r
2129 %%BeginResource: font MSTT31c2a0\r
2130 /G77 [29.0 0.0 0.0 -1.0 29.0 19.0]\r
2131 /G77 {\r
2132     29 20 true [1 0 0 -1 0.0 19.0] {<ff9ff0f87e07c0303e03c0201e03c0201e01e0400f01e0400f01e0400f02f0800782f0800784f100\r
2133 0784790003c8790003c87a0003d03e0001f03e0001f03c0001e01c0000e01c0000c0180000c00800\r
2134 >} imagemask \r
2135   }\r
2136   119 /G77 MSTT31c2a0 AddChar\r
2137 %%EndResource\r
2138 \r
2139 248 1814 717 (            tells which events will be checked:) 717 SB\r
2140 \r
2141 %%BeginResource: font MSTT31c2a0\r
2142 /G3c [24.0 0.0 1.0 4.0 23.0 25.0]\r
2143 /G3c {\r
2144     22 21 true [1 0 0 -1 -1.0 25.0] {<00000400001c0000780003e0000f80003c0000f00003c0000f00007c0000e000007c00000f000003\r
2145 c00000f000003c00000f800003e000007800001c000004>} imagemask \r
2146   }\r
2147   60 /G3c MSTT31c2a0 AddChar\r
2148 /G3e [24.0 0.0 1.0 4.0 23.0 25.0]\r
2149 /G3e {\r
2150     22 21 true [1 0 0 -1 -1.0 25.0] {<800000e000007800001f000007c00000f000003c00000f000003c00000f800001c0000f80003c000\r
2151 0f00003c0000f00007c0001f0000780000e00000800000>} imagemask \r
2152   }\r
2153   62 /G3e MSTT31c2a0 AddChar\r
2154 %%EndResource\r
2155 \r
2156 248 1862 1865 (            if checkMouse <>0 then the events of Mouse will be reported to getpress, see below otherwise ignored;) 1865 SB\r
2157 248 1910 1780 (            if checkKeyboard <>0 then the events of Keyboard will be reported to getpress, otherwise ignored) 1780 SB\r
2158 248 1958 187 (                 ) 187 SB\r
2159 \r
2160 %%BeginResource: font MSTT31c2e1\r
2161 /MSTT31c2e1 [42.0 0 0 0 0 0] 95 -115 [-42.0 -42.0 42.0 42.0] [1 42 div 0 0 1 42 div 0 0] /MSTT31c2e1 GreNewFont\r
2162 %%EndResource\r
2163 \r
2164 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font\r
2165 \r
2166 %%BeginResource: font MSTT31c2e1\r
2167 /G41 [28.0 0.0 -3.0 0.0 25.0 29.0]\r
2168 /G41 {\r
2169     28 29 true [1 0 0 -1 3.0 29.0] {<00000040000000c0000001c0000003c0000007c000000fc000000fc000001fc000003fc000006fc0\r
2170 0000efc00001cfc000018fc000030fc000060fc0000c0fc0001c0fc000380fc0003fffc0007fffc0\r
2171 00c00fc001800fc003800fc007000fc006000fc00c000fc01c000fc07c001fe0ff00fff0>} imagemask \r
2172   }\r
2173   65 /G41 MSTT31c2e1 AddChar\r
2174 /G74 [12.0 0.0 0.0 0.0 13.0 25.0]\r
2175 /G74 {\r
2176     13 25 true [1 0 0 -1 0.0 25.0] {<0030006000e001e003e00fc07ff87ff80f800f801f801f001f003f003e003e003e007e007c007c00\r
2177 fc40fcc0f980fe007c00>} imagemask \r
2178   }\r
2179   116 /G74 MSTT31c2e1 AddChar\r
2180 /G65 [19.0 0.0 1.0 0.0 19.0 19.0]\r
2181 /G65 {\r
2182     18 19 true [1 0 0 -1 -1.0 19.0] {<001f8000e7c00187c00787c00f0fc01e0f801e1f003c1e007c3c007cf000ff8000f80000f80000f8\r
2183 0000f80300fc0e007ffc007ff0001fc000>} imagemask \r
2184   }\r
2185   101 /G65 MSTT31c2e1 AddChar\r
2186 /G6e [23.0 0.0 0.0 0.0 21.0 19.0]\r
2187 /G6e {\r
2188     21 19 true [1 0 0 -1 0.0 19.0] {<03c0f03fc3f00fc7f80fcff80f99f80fb1f00fa1f01f43f01fc3e01f83e03f07e03f07c03e07c03e\r
2189 0fc07c0f887c0f907c0fa0fc0fc0f80780>} imagemask \r
2190   }\r
2191   110 /G6e MSTT31c2e1 AddChar\r
2192 /G69 [12.0 0.0 1.0 0.0 12.0 29.0]\r
2193 /G69 {\r
2194     11 29 true [1 0 0 -1 -1.0 29.0] {<03c007e007e007e007e003c0000000000000000007807f801f800f801f001f001f003e003e003e00\r
2195 7e007c007c00fc40f880f980ff00fe007800>} imagemask \r
2196   }\r
2197   105 /G69 MSTT31c2e1 AddChar\r
2198 /G6f [21.0 0.0 1.0 0.0 20.0 19.0]\r
2199 /G6f {\r
2200     19 19 true [1 0 0 -1 -1.0 19.0] {<003e0000e78003c3c00783e00f03e01f03e03e03e03e07e07e07e07c07c0fc07c0fc0f80f80f80f8\r
2201 1f00f81e00f83c007878003c60001f8000>} imagemask \r
2202   }\r
2203   111 /G6f MSTT31c2e1 AddChar\r
2204 /G20 [11.0 0.0 0.0 0.0 0.0 0.0]\r
2205 /G20 {\r
2206 } \r
2207   32 /G20 MSTT31c2e1 AddChar\r
2208 /G70 [21.0 0.0 -5.0 -9.0 20.0 19.0]\r
2209 /G70 {\r
2210     25 28 true [1 0 0 -1 5.0 19.0] {<001e1e0001fe7f00007eff80007f1f80007e0f80007c0f80007c0f8000f80f8000f80f8000f80f00\r
2211 01f81f0001f01e0001f01e0001f03c0003e0780003e0780003e0e00007f1c00007df000007c00000\r
2212 07c000000f8000000f8000000f8000001f8000001f8000003f800000ffe00000>} imagemask \r
2213   }\r
2214   112 /G70 MSTT31c2e1 AddChar\r
2215 /G6c [12.0 0.0 1.0 0.0 13.0 29.0]\r
2216 /G6c {\r
2217     12 29 true [1 0 0 -1 -1.0 29.0] {<00f00ff003f003e003e003e007e007c007c007c00f800f800f801f801f001f003f003e003e003e00\r
2218 7c007c007c00fc00f840f880fb00fe007800>} imagemask \r
2219   }\r
2220   108 /G6c MSTT31c2e1 AddChar\r
2221 /G61 [21.0 0.0 1.0 0.0 21.0 19.0]\r
2222 /G61 {\r
2223     20 19 true [1 0 0 -1 -1.0 19.0] {<0073e001cbe00387e00707e00f07c01e07c03e0fc03c0f807c0f807c1f80781f80f83f00f83f00f8\r
2224 5f00f8fe20f9be40ff3f807e3f003c3e00>} imagemask \r
2225   }\r
2226   97 /G61 MSTT31c2e1 AddChar\r
2227 /G73 [16.0 0.0 0.0 0.0 16.0 19.0]\r
2228 /G73 {\r
2229     16 19 true [1 0 0 -1 0.0 19.0] {<03fb078f0f071f061f821f821fc00fe00ff007f803f801fc40fc40fc607ce078f078f8f08fc0>} imagemask \r
2230   }\r
2231   115 /G73 MSTT31c2e1 AddChar\r
2232 /G21 [16.0 0.0 2.0 0.0 14.0 29.0]\r
2233 /G21 {\r
2234     12 29 true [1 0 0 -1 -2.0 29.0] {<00e001f001f003f003f003e003e003c007c007c007800780070007000600060004000c000c000800\r
2235 0800000000007800fc00fc00fc00fc007800>} imagemask \r
2236   }\r
2237   33 /G21 MSTT31c2e1 AddChar\r
2238 %%EndResource\r
2239 \r
2240 435 1958 297 (Attention please!) 297 SB\r
2241 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2242 \r
2243 %%BeginResource: font MSTT31c2a0\r
2244 /G57 [39.0 0.0 1.0 -1.0 39.0 28.0]\r
2245 /G57 {\r
2246     38 29 true [1 0 0 -1 -1.0 28.0] {<ffc7ff03fc3f01f800f01e00f800701e00f800601f007800600f007800c00f007c00c00f803c00c0\r
2247 07803c018007803e018007c07e018003c07e030003c04f030003e0cf030001e0cf060001e0878600\r
2248 00f187860000f1878c0000f103cc00007b03cc00007b03f800007a01f800003e01f800003e01f000\r
2249 003c00f000001c00f000001c00e00000180060000008006000>} imagemask \r
2250   }\r
2251   87 /G57 MSTT31c2a0 AddChar\r
2252 %%EndResource\r
2253 \r
2254 732 1958 1041 (  While the events of the keyboard are taken under control by ) 1041 SB\r
2255 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2256 1773 1958 57 (init) 57 SB\r
2257 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2258 1830 1958 57 ( or ) 57 SB\r
2259 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2260 1887 1958 223 (getmovement) 223 SB\r
2261 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font\r
2262 \r
2263 %%BeginResource: font MSTT31c2e1\r
2264 /G64 [21.0 0.0 1.0 0.0 24.0 29.0]\r
2265 /G64 {\r
2266     23 29 true [1 0 0 -1 -1.0 29.0] {<00003c0003fc0000fc0000fc0000f80000f80000f80001f00001f00001f0007bf001c7e00387e007\r
2267 87e00f07c01e07c03e07c03e0fc07c0f807c0f807c1f80f81f00f83f00f85f00f87f20f8be40ff3f\r
2268 c07e3f003c1e00>} imagemask \r
2269   }\r
2270   100 /G64 MSTT31c2e1 AddChar\r
2271 /G75 [23.0 0.0 1.0 0.0 21.0 19.0]\r
2272 /G75 {\r
2273     20 19 true [1 0 0 -1 -1.0 19.0] {<0781f03f81f01f83f01f83e01f03e01f03e01f07e03e07c03e0fc03e1fc07e1f807c3f807c6f80fc\r
2274 df80f99f10ff1f20fe1fc0fc1f80701f00>} imagemask \r
2275   }\r
2276   117 /G75 MSTT31c2e1 AddChar\r
2277 %%EndResource\r
2278 \r
2279 548 2006 178 (do not use) 178 SB\r
2280 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2281 726 2006 1420 ( the functions or procedures: read, readln, hfont, hfont8, hpage, inkey that read keys) 1420 SB\r
2282 \r
2283 %%BeginResource: font MSTT31c2a0\r
2284 /G59 [30.0 0.0 0.0 0.0 30.0 28.0]\r
2285 /G59 {\r
2286     30 28 true [1 0 0 -1 0.0 28.0] {<fff00ffc3fc003e00f8001c00f80018007c0030003c0030001e0060001f00c0000f80c0000781800\r
2287 007c1800003e3000001e3000001f6000000fc0000007c00000078000000780000007800000078000\r
2288 000780000007800000078000000780000007800000078000000fc000007ff800>} imagemask \r
2289   }\r
2290   89 /G59 MSTT31c2a0 AddChar\r
2291 %%EndResource\r
2292 \r
2293 548 2054 30 (Y) 30 SB\r
2294 \r
2295 %%BeginResource: font MSTT31c2ee\r
2296 /MSTT31c2ee [33.0 0 0 0 0 0] 60 -120 [-33.0 -33.0 33.0 33.0] [1 33 div 0 0 1 33 div 0 0] /MSTT31c2ee GreNewFont\r
2297 %%EndResource\r
2298 \r
2299 32 0 0 33 33 0 0 1 29 /MSTT31c2ee font\r
2300 \r
2301 %%BeginResource: font MSTT31c2ee\r
2302 /G4f [24.0 0.0 1.0 0.0 23.0 22.0]\r
2303 /G4f {\r
2304     22 22 true [1 0 0 -1 -1.0 22.0] {<00fc000703800e01c01c00e0380070780078780078f00038f0003cf0003cf0003cf0003cf0003cf0\r
2305 003cf000387800387800783800701c00e00e01c007078000fc00>} imagemask \r
2306   }\r
2307   79 /G4f MSTT31c2ee AddChar\r
2308 /G55 [23.0 0.0 0.0 0.0 23.0 22.0]\r
2309 /G55 {\r
2310     23 22 true [1 0 0 -1 0.0 22.0] {<ff80fe3e00381c00101c00101c00101c00101c00101c00101c00101c00101c00101c00101c00101c\r
2311 00101c00101c00101c00100e00200e002007004003818000fe00>} imagemask \r
2312   }\r
2313   85 /G55 MSTT31c2ee AddChar\r
2314 /G20 [8.0 0.0 0.0 0.0 0.0 0.0]\r
2315 /G20 {\r
2316 } \r
2317   32 /G20 MSTT31c2ee AddChar\r
2318 /G52 [22.0 0.0 1.0 0.0 22.0 22.0]\r
2319 /G52 {\r
2320     21 22 true [1 0 0 -1 -1.0 22.0] {<fff8003e1e001c0f001c07001c07801c03801c03801c07801c07001c0f001c3c001ff0001c70001c\r
2321 78001c38001c1c001c1e001c0e001c07001c07803e03c0ff81f8>} imagemask \r
2322   }\r
2323   82 /G52 MSTT31c2ee AddChar\r
2324 /G49 [11.0 0.0 1.0 0.0 10.0 22.0]\r
2325 /G49 {\r
2326     9 22 true [1 0 0 -1 -1.0 22.0] {<ff803e001c001c001c001c001c001c001c001c001c001c001c001c001c001c001c001c001c001c00\r
2327 3e00ff80>} imagemask \r
2328   }\r
2329   73 /G49 MSTT31c2ee AddChar\r
2330 /G53 [18.0 0.0 2.0 0.0 16.0 22.0]\r
2331 /G53 {\r
2332     14 22 true [1 0 0 -1 -2.0 22.0] {<0f8838f87038e018e018e008f008f8087e003f001fc00fe003f001f8807c803cc01cc01cc018e038\r
2333 f8708fc0>} imagemask \r
2334   }\r
2335   83 /G53 MSTT31c2ee AddChar\r
2336 /G4b [23.0 0.0 1.0 0.0 23.0 22.0]\r
2337 /G4b {\r
2338     22 22 true [1 0 0 -1 -1.0 22.0] {<ff87f03e01c01c01001c02001c04001c08001c10001c20001c40001d80001fc0001de0001cf0001c\r
2339 78001c3c001c1e001c0f001c07801c03c01c01e03e01f0ff87fc>} imagemask \r
2340   }\r
2341   75 /G4b MSTT31c2ee AddChar\r
2342 /G54 [21.0 0.0 1.0 0.0 20.0 22.0]\r
2343 /G54 {\r
2344     19 22 true [1 0 0 -1 -1.0 22.0] {<ffffe0e0e0e0c0e06080e02080e02000e00000e00000e00000e00000e00000e00000e00000e00000\r
2345 e00000e00000e00000e00000e00000e00000e00001f00007fc00>} imagemask \r
2346   }\r
2347   84 /G54 MSTT31c2ee AddChar\r
2348 /G48 [24.0 0.0 1.0 0.0 23.0 22.0]\r
2349 /G48 {\r
2350     22 22 true [1 0 0 -1 -1.0 22.0] {<ff87fc3e01f01c00e01c00e01c00e01c00e01c00e01c00e01c00e01c00e01fffe01c00e01c00e01c\r
2351 00e01c00e01c00e01c00e01c00e01c00e01c00e03e01f0ff87fc>} imagemask \r
2352   }\r
2353   72 /G48 MSTT31c2ee AddChar\r
2354 /G41 [23.0 0.0 1.0 0.0 24.0 22.0]\r
2355 /G41 {\r
2356     23 22 true [1 0 0 -1 -1.0 22.0] {<001000003800003800003c00005c00005c00008e00008e00010e0001070002070002038004038004\r
2357 038007ffc00801c00801c01000e01000e03000707000f8fc03fe>} imagemask \r
2358   }\r
2359   65 /G41 MSTT31c2ee AddChar\r
2360 /G4e [24.0 0.0 0.0 0.0 23.0 22.0]\r
2361 /G4e {\r
2362     23 22 true [1 0 0 -1 0.0 22.0] {<fc00fe3e00381f00100f00100f80100bc01009e01008e01008f010087810083c10081e10080e1008\r
2363 0f100807900803d00801d00800f00800f00800701c00307f0010>} imagemask \r
2364   }\r
2365   78 /G4e MSTT31c2ee AddChar\r
2366 /G47 [24.0 0.0 1.0 0.0 24.0 22.0]\r
2367 /G47 {\r
2368     23 22 true [1 0 0 -1 -1.0 22.0] {<00fe200381e00e00e01c00703c0030380030780010700000f00000f00000f003fef000f8f00070f0\r
2369 00707000707800707800703c00701e00700f007007c1e000ff80>} imagemask \r
2370   }\r
2371   71 /G47 MSTT31c2ee AddChar\r
2372 /G59 [24.0 0.0 1.0 0.0 23.0 22.0]\r
2373 /G59 {\r
2374     22 22 true [1 0 0 -1 -1.0 22.0] {<ff01fc7c00f01c00401c00800e008007010007020003820001c40001c40000e80000700000700000\r
2375 700000700000700000700000700000700000700000f80003fe00>} imagemask \r
2376   }\r
2377   89 /G59 MSTT31c2ee AddChar\r
2378 /G45 [20.0 0.0 1.0 0.0 19.0 22.0]\r
2379 /G45 {\r
2380     18 22 true [1 0 0 -1 -1.0 22.0] {<ffff003c03001c03001c01001c01001c00001c00001c08001c08001c18001ff8001c18001c08001c\r
2381 08001c00001c00001c00401c00c01c00801c01803c0380ffff00>} imagemask \r
2382   }\r
2383   69 /G45 MSTT31c2ee AddChar\r
2384 /G4d [29.0 0.0 1.0 0.0 28.0 22.0]\r
2385 /G4d {\r
2386     27 22 true [1 0 0 -1 -1.0 22.0] {<fc0007e03c0007801e000f001e000f001e000f001700170017001700138027001380270011c04700\r
2387 11c0470011c0470010e0870010e087001071070010710700103a0700103a0700103e0700101c0700\r
2388 381c0f80fe083fe0>} imagemask \r
2389   }\r
2390   77 /G4d MSTT31c2ee AddChar\r
2391 %%EndResource\r
2392 \r
2393 578 2063 524 (OU RISK TO HANG YOUR SYSTEM) 524 SB\r
2394 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2395 1102 2054 14 (!) 14 SB\r
2396 248 2102 119 (         }) 119 SB\r
2397 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2398 248 2150 109 (    end) 109 SB\r
2399 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2400 357 2151 69 ( init) 69 SB\r
2401 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2402 248 2247 126 (    unit ) 126 SB\r
2403 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2404 374 2248 250 (getmovement: ) 250 SB\r
2405 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2406 624 2247 183 (procedure) 183 SB\r
2407 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2408 807 2248 671 (\(checkMouse, checkKeyboard: integer\);) 671 SB\r
2409 398 2296 585 (tells which events will be checked:) 585 SB\r
2410 248 2344 1865 (            if checkMouse <>0 then the events of Mouse will be reported to getpress, see below otherwise ignored;) 1865 SB\r
2411 248 2392 1780 (            if checkKeyboard <>0 then the events of Keyboard will be reported to getpress, otherwise ignored) 1780 SB\r
2412 248 2440 187 (                 ) 187 SB\r
2413 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font\r
2414 435 2440 297 (Attention please!) 297 SB\r
2415 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2416 732 2440 1041 (  While the events of the keyboard are taken under control by ) 1041 SB\r
2417 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2418 1773 2440 57 (init) 57 SB\r
2419 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2420 1830 2440 57 ( or ) 57 SB\r
2421 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2422 1887 2440 223 (getmovement) 223 SB\r
2423 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font\r
2424 548 2488 178 (do not use) 178 SB\r
2425 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2426 726 2488 1420 ( the functions or procedures: read, readln, hfont, hfont8, hpage, inkey that read keys) 1420 SB\r
2427 548 2536 30 (Y) 30 SB\r
2428 32 0 0 33 33 0 0 1 29 /MSTT31c2ee font\r
2429 578 2545 524 (OU RISK TO HANG YOUR SYSTEM) 524 SB\r
2430 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2431 1102 2536 14 (!) 14 SB\r
2432 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2433 248 2584 109 (    end) 109 SB\r
2434 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2435 357 2585 250 ( getmovement;) 250 SB\r
2436 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2437 248 2681 115 (    unit) 115 SB\r
2438 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2439 363 2682 171 ( getpress: ) 171 SB\r
2440 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2441 534 2681 147 (function) 147 SB\r
2442 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2443 681 2682 516 (\(v,p,h,l,r,c : integer\): Boolean;) 516 SB\r
2444 398 2730 42 ({  ) 42 SB\r
2445 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2446 440 2730 19 (v) 19 SB\r
2447 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2448 459 2730 498 ( =  y coordinate of the cursor,) 498 SB\r
2449 398 2778 44 (    ) 44 SB\r
2450 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2451 \r
2452 %%BeginResource: font MSTT31c282\r
2453 /G68 [21.0 0.0 0.0 0.0 19.0 29.0]\r
2454 /G68 {\r
2455     19 29 true [1 0 0 -1 0.0 29.0] {<00e00007e00001e00001c00001c00001c0000380000380000380000380000703c0070fc00719e00e\r
2456 31e00e61c00e41c00e81c01d03c01f03801e03803c07803c0700380700380f00700e00700e40700e\r
2457 80e01f00e00e00>} imagemask \r
2458   }\r
2459   104 /G68 MSTT31c282 AddChar\r
2460 %%EndResource\r
2461 \r
2462 442 2778 21 (h) 21 SB\r
2463 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2464 463 2778 500 ( =  x coordinate of the cursor,) 500 SB\r
2465 398 2826 44 (    ) 44 SB\r
2466 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2467 442 2826 21 (p) 21 SB\r
2468 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2469 463 2826 1297 ( =  keybord status control_left,control_right, alt, alt_gr, shift_left, shift_right) 1297 SB\r
2470 248 2874 143 (             ) 143 SB\r
2471 398 2874 44 (    ) 44 SB\r
2472 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2473 \r
2474 %%BeginResource: font MSTT31c282\r
2475 /G6c [12.0 0.0 1.0 0.0 12.0 29.0]\r
2476 /G6c {\r
2477     11 29 true [1 0 0 -1 -1.0 29.0] {<00e007e000e001c001c001c003c00380038003800700070007000e000e000e001e001c001c001c00\r
2478 3800380038007800710072007400f8007000>} imagemask \r
2479   }\r
2480   108 /G6c MSTT31c282 AddChar\r
2481 %%EndResource\r
2482 \r
2483 442 2874 12 (l) 12 SB\r
2484 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2485 454 2874 383 (  = code of key pressed) 383 SB\r
2486 398 2922 44 (    ) 44 SB\r
2487 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2488 442 2922 16 (r) 16 SB\r
2489 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2490 458 2922 127 ( = flags) 127 SB\r
2491 398 2970 44 (    ) 44 SB\r
2492 32 0 0 42 42 0 0 1 38 /MSTT31c282 font\r
2493 \r
2494 %%BeginResource: font MSTT31c282\r
2495 /G63 [19.0 0.0 1.0 0.0 18.0 19.0]\r
2496 /G63 {\r
2497     17 19 true [1 0 0 -1 -1.0 19.0] {<007e0001e1000381800f03801e03801c0300380000700000700000700000f00000e00000e00000e0\r
2498 0200f00600f00c007c38003fe0001f8000>} imagemask \r
2499   }\r
2500   99 /G63 MSTT31c282 AddChar\r
2501 %%EndResource\r
2502 \r
2503 442 2970 19 (c) 19 SB\r
2504 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2505 461 2970 1177 ( = buttons pressed \(0=aucun, 1=gauche, 2=droite, 3=gauche et droite\)) 1177 SB\r
2506 698 3018 807 (Nb: the middle button is not taken into account.) 807 SB\r
2507 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2508 248 3066 120 (    end ) 120 SB\r
2509 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2510 368 3067 137 (getpress) 137 SB\r
2511 1 #C\r
2512 statusdict begin /manualfeed false store end\r
2513 EJ RS\r
2514 %%PageTrailer\r
2515 %%PageResources: font Bookman-Demi\r
2516 %%+ font Bookman-Light\r
2517 %%+ font MSTT31c282\r
2518 %%+ font MSTT31c2a0\r
2519 %%+ font MSTT31c2c7\r
2520 %%+ font MSTT31c2d4\r
2521 %%+ font MSTT31c2e1\r
2522 %%+ font MSTT31c2ee\r
2523 %%Page: 10 10\r
2524 %%PageResources: (atend)\r
2525 SS\r
2526 0 0 12 16 799 1169 300 SM\r
2527 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2528 0 0 0 fC\r
2529 248 224 115 (    unit) 115 SB\r
2530 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2531 363 225 215 ( showcursor:) 215 SB\r
2532 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2533 \r
2534 %%BeginResource: font MSTT31c2c7\r
2535 /G3b [14.0 0.0 3.0 -7.0 11.0 20.0]\r
2536 /G3b {\r
2537     8 27 true [1 0 0 -1 -3.0 20.0] {<387cfefefe7c380000000000003c7efeffff7f7f07060e0c183040>} imagemask \r
2538   }\r
2539   59 /G3b MSTT31c2c7 AddChar\r
2540 %%EndResource\r
2541 \r
2542 578 224 208 ( procedure;) 208 SB\r
2543 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2544 398 273 1181 ({the cursor becomes visible and follows the movements of the mouse}) 1181 SB\r
2545 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2546 248 321 109 (    end) 109 SB\r
2547 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2548 357 322 215 ( showcursor;) 215 SB\r
2549 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2550 248 418 126 (    unit ) 126 SB\r
2551 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2552 374 419 201 (hidecursor: ) 201 SB\r
2553 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2554 575 418 197 (procedure;) 197 SB\r
2555 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2556 398 467 517 ({the cursor becomes invisible}) 517 SB\r
2557 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font\r
2558 248 515 109 (    end) 109 SB\r
2559 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2560 357 516 201 ( hidecursor;) 201 SB\r
2561 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font\r
2562 248 612 95 (end) 95 SB\r
2563 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font\r
2564 343 613 226 ( MOUSE;) 226 SB\r
2565 248 849 894 (Enclosed you find a sample program) 894 SB\r
2566 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2567 \r
2568 %%BeginResource: font MSTT31c2a0\r
2569 /G53 [23.0 0.0 3.0 -1.0 21.0 29.0]\r
2570 /G53 {\r
2571     18 30 true [1 0 0 -1 -3.0 29.0] {<07e1001fff00383f00700f00600700e00300e00100e00100f00100f800007c00007f00003fc0003f\r
2572 f0000ff80007fe0001ff00007f80001f80000fc08003c08003c0c001c0c001c0c001c0e00380f003\r
2573 80fc0f008ffe0083f800>} imagemask \r
2574   }\r
2575   83 /G53 MSTT31c2a0 AddChar\r
2576 /G47 [30.0 0.0 2.0 -1.0 30.0 29.0]\r
2577 /G47 {\r
2578     28 30 true [1 0 0 -1 -2.0 29.0] {<003fc10000fff10003f03f0007c00f000f8007801f0003801e0001803e0001807c0000807c000000\r
2579 78000000f8000000f8000000f8000000f8007ff0f8000fc0f8000780f8000780f80007807c000780\r
2580 7c0007807c0007803e0007803f0007801f0007800f80078007c0078003f81f8000fffe00001ff000\r
2581 >} imagemask \r
2582   }\r
2583   71 /G47 MSTT31c2a0 AddChar\r
2584 %%EndResource\r
2585 \r
2586 248 967 415 (Program SystemeGraph;) 415 SB\r
2587 \r
2588 %%BeginResource: font MSTT31c2a0\r
2589 /G2a [21.0 0.0 3.0 11.0 18.0 29.0]\r
2590 /G2a {\r
2591     15 18 true [1 0 0 -1 -3.0 29.0] {<0180038003800380e38ef19ef93e3d7807c007c03d78f93ef39ee38e0380038003800180>} imagemask \r
2592   }\r
2593   42 /G2a MSTT31c2a0 AddChar\r
2594 /G46 [23.0 0.0 0.0 0.0 22.0 28.0]\r
2595 /G46 {\r
2596     22 28 true [1 0 0 -1 0.0 28.0] {<fffffc1ffffc0f003c0f000c0f000c0f00040f00000f00000f00400f00400f00c00f00c00fffc00f\r
2597 ffc00f01c00f00c00f00400f00400f00000f00000f00000f00000f00000f00000f00000f00001f80\r
2598 00fff000>} imagemask \r
2599   }\r
2600   70 /G46 MSTT31c2a0 AddChar\r
2601 /G39 [21.0 0.0 2.0 0.0 19.0 28.0]\r
2602 /G39 {\r
2603     17 28 true [1 0 0 -1 -2.0 28.0] {<03e0000c3800181c00380e00700e00700f00f00700f00780f00780f00780f00780f0078078078078\r
2604 07803c07801e1f000fef00000f00000e00001e00001c00003c0000780000f00001e0000380000f00\r
2605 00780000>} imagemask \r
2606   }\r
2607   57 /G39 MSTT31c2a0 AddChar\r
2608 /G34 [21.0 0.0 1.0 0.0 19.0 28.0]\r
2609 /G34 {\r
2610     18 28 true [1 0 0 -1 -1.0 28.0] {<001c00003c00003c00007c00007c0000bc00013c00013c00023c00023c00043c00083c00083c0010\r
2611 3c00103c00203c00403c00403c00ffffc0ffffc0ffffc0003c00003c00003c00003c00003c00003c\r
2612 00003c00>} imagemask \r
2613   }\r
2614   52 /G34 MSTT31c2a0 AddChar\r
2615 %%EndResource\r
2616 \r
2617 248 1015 735 (       \(* by Frederic Pataud, October 1994 *\)) 735 SB\r
2618 248 1063 100 (Begin) 100 SB\r
2619 248 1111 983 (Pref iiuwgraph block     \(* inherit the graphic functions *\)) 983 SB\r
2620 248 1159 111 ( Begin) 111 SB\r
2621 248 1207 301 ( Pref mouse block) 301 SB\r
2622 698 1207 554 (\(* inherit the mouse functions *\)) 554 SB\r
2623 248 1351 1678 (   \(*****************************************************************************\)) 1678 SB\r
2624 248 1399 1081 (   \(*                   P r o g r a m  m e   P r i n c i p a l                  *\)) 1081 SB\r
2625 248 1447 1678 (   \(*****************************************************************************\)) 1678 SB\r
2626 248 1495 369 (   var v,p,h,i : integer,) 369 SB\r
2627 248 1543 307 (       l,r,c : integer,) 307 SB\r
2628 248 1591 381 (       rep : arrayof char,) 381 SB\r
2629 248 1639 274 (       d : boolean,) 274 SB\r
2630 248 1687 462 (       xx,yy : arrayof integer,) 462 SB\r
2631 248 1735 697 (       status,code,x,y,flags,button : integer;) 697 SB\r
2632 248 1831 133 (   Begin) 133 SB\r
2633 248 1927 880 (     call gron\(0\);            \(* enter the graphic mode *\)) 880 SB\r
2634 248 1975 1772 (     call init\(1,0\);            \(* initialize the mouse, disregard the keyboard events, check for mouse events *\)) 1772 SB\r
2635 248 2071 331 (     call showcursor;) 331 SB\r
2636 848 2071 295 (\(* show cursor *\)) 295 SB\r
2637 \r
2638 %%BeginResource: font MSTT31c2a0\r
2639 /G35 [21.0 0.0 2.0 0.0 18.0 28.0]\r
2640 /G35 {\r
2641     16 28 true [1 0 0 -1 -2.0 28.0] {<03ff07fe07fe07fe0800080010001e003fc03ff07ff807fc00fe003e001e000f000f000700070007\r
2642 000700060006000c6018f830ffc03f00>} imagemask \r
2643   }\r
2644   53 /G35 MSTT31c2a0 AddChar\r
2645 /G36 [21.0 0.0 1.0 0.0 19.0 28.0]\r
2646 /G36 {\r
2647     18 28 true [1 0 0 -1 -1.0 28.0] {<000f80003c0000f00001c0000380000700000e00001c00003c000038000078000079f8007e3e00f0\r
2648 0f00f00780f00780f007c0f003c0f003c0f003c0f003c07803c07803803803803c07001c0e000f1c\r
2649 0003f000>} imagemask \r
2650   }\r
2651   54 /G36 MSTT31c2a0 AddChar\r
2652 /G37 [21.0 0.0 1.0 0.0 19.0 28.0]\r
2653 /G37 {\r
2654     18 28 true [1 0 0 -1 -1.0 28.0] {<1fffc01fffc03fffc03fff80600180400380800300000300000700000600000600000e00000c0000\r
2655 0c00001c0000180000180000380000300000300000700000600000600000e00000c00000c00001c0\r
2656 00018000>} imagemask \r
2657   }\r
2658   55 /G37 MSTT31c2a0 AddChar\r
2659 %%EndResource\r
2660 \r
2661 248 2119 1270 (     call patern\(5,5,635,475,2,0\);         \(* make a frame around the screen *\)) 1270 SB\r
2662 \r
2663 %%BeginResource: font MSTT31c2a0\r
2664 /G22 [17.0 0.0 3.0 17.0 14.0 29.0]\r
2665 /G22 {\r
2666     11 12 true [1 0 0 -1 -3.0 29.0] {<60c0f1e0f1e0f1e0f1e0f1e0f1e0f1e060c060c060c060c0>} imagemask \r
2667   }\r
2668   34 /G22 MSTT31c2a0 AddChar\r
2669 %%EndResource\r
2670 \r
2671 248 2167 567 (     call outstring\(10,10,"x=",2,0\);) 567 SB\r
2672 248 2215 586 (     call outstring\(100,10,"y=",2,0\);) 586 SB\r
2673 248 2263 664 (     call outstring\(10,30,"status = ",2,0\);) 664 SB\r
2674 248 2311 667 (     call outstring\(10,50,"code   = ",2,0\);) 667 SB\r
2675 248 2359 660 (     call outstring\(10,70,"flags  = ",2,0\);) 660 SB\r
2676 248 2407 675 (     call outstring\(10,90,"button = ",2,0\);) 675 SB\r
2677 248 2455 1394 (     call patern\(100,210,300,320,3,1\);         \(* make a rectangle filled in colour 3 *\)) 1394 SB\r
2678 248 2551 377 (     array xx dim \(1:6\);) 377 SB\r
2679 248 2599 373 (     array yy dim \(1:6\);) 373 SB\r
2680 248 2647 445 (     xx\(1\):=410; yy\(1\):=10;) 445 SB\r
2681 248 2695 445 (     xx\(2\):=450; yy\(2\):=30;) 445 SB\r
2682 248 2743 445 (     xx\(3\):=460; yy\(3\):=50;) 445 SB\r
2683 248 2791 445 (     xx\(4\):=430; yy\(4\):=80;) 445 SB\r
2684 248 2839 445 (     xx\(5\):=420; yy\(5\):=40;) 445 SB\r
2685 248 2887 445 (     xx\(6\):=480; yy\(6\):=30;) 445 SB\r
2686 248 2935 467 (     call intens\(6,xx,yy,8,1\); ) 467 SB\r
2687 998 2935 443 (\(* show a polygon filled*\)) 443 SB\r
2688 248 2983 258 (     for i:=1 to 6) 258 SB\r
2689 248 3031 107 (      do) 107 SB\r
2690 \r
2691 %%BeginResource: font MSTT31c2a0\r
2692 /G2b [24.0 0.0 1.0 3.0 23.0 25.0]\r
2693 /G2b {\r
2694     22 22 true [1 0 0 -1 -1.0 25.0] {<003000003000003000003000003000003000003000003000003000003000fffffcfffffc00300000\r
2695 3000003000003000003000003000003000003000003000003000>} imagemask \r
2696   }\r
2697   43 /G2b MSTT31c2a0 AddChar\r
2698 %%EndResource\r
2699 \r
2700 248 3079 368 (       yy\(i\):=yy\(i\)+100;) 368 SB\r
2701 248 3127 119 (      od;) 119 SB\r
2702 248 3175 477 (     call intens\(6,xx,yy,15,0\);) 477 SB\r
2703 998 3175 578 (\(* show another polygon empty *\)) 578 SB\r
2704 1 #C\r
2705 statusdict begin /manualfeed false store end\r
2706 EJ RS\r
2707 %%PageTrailer\r
2708 %%PageResources: font Bookman-Demi\r
2709 %%+ font Bookman-Light\r
2710 %%+ font MSTT31c2a0\r
2711 %%+ font MSTT31c2c7\r
2712 %%Page: 11 11\r
2713 %%PageResources: (atend)\r
2714 SS\r
2715 0 0 12 16 799 1169 300 SM\r
2716 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font\r
2717 0 0 0 fC\r
2718 248 272 729 (     call cirb\(500,300,50,40,100,3500,10,0\);) 729 SB\r
2719 998 272 647 (\(* draw an empty pie or camembert *\)) 647 SB\r
2720 248 320 1151 (     call cirb\(400,400,40,40,600,4000,11,1\);     \(* draw a filled pie *\)) 1151 SB\r
2721 248 464 1548 (     i:=hfont\(100,350,6,-9999999,9999999,500,9,0,15\);      \(* read integer from a window *\)) 1548 SB\r
2722 248 512 1613 (     call hpage\(100,400,10,unpack\("Il fait beau dans ma verte campagne"\),9,0\);   \(* show text *\)) 1613 SB\r
2723 248 560 980 (     rep:=hfont8\(100,430,10,80,unpack\("tototutu"\),9,0,15\);) 980 SB\r
2724 1448 560 239 (\(* read text *\)) 239 SB\r
2725 248 656 1625 (     call getmovement\(1,1\);           \(* take into consideration both key events and mouse events *\)) 1625 SB\r
2726 248 752 96 (     do) 96 SB\r
2727 248 800 463 (      d:=getpress\(v,p,h,l,r,c\);) 463 SB\r
2728 998 800 404 (\(* ask about an event *\)) 404 SB\r
2729 248 848 151 (      if \(d\)) 151 SB\r
2730 248 896 737 (      then call outstring\(10,400,"Event",2,0\);) 737 SB\r
2731 248 944 647 (           call patern\(80,25,130,100,0,1\);) 647 SB\r
2732 248 992 508 (           call track\(40,10,v,0,4\);) 508 SB\r
2733 998 992 303 (\(* print integer *\)) 303 SB\r
2734 248 1040 530 (           call track\(140,10,p,0,4\);) 530 SB\r
2735 248 1088 510 (           call track\(80,30,h,0,4\);) 510 SB\r
2736 248 1136 500 (           call track\(80,50,l,0,4\);) 500 SB\r
2737 248 1184 503 (           call track\(80,70,r,0,4\);) 503 SB\r
2738 248 1232 506 (           call track\(80,90,c,0,4\);) 506 SB\r
2739 \r
2740 %%BeginResource: font MSTT31c2a0\r
2741 /G43 [28.0 0.0 2.0 -1.0 27.0 29.0]\r
2742 /G43 {\r
2743     25 30 true [1 0 0 -1 -2.0 29.0] {<003f820000ffe60003e07e0007801e000f000e001e0007003e0003003c0003007c0003007c000100\r
2744 78000000f8000000f8000000f8000000f8000000f8000000f8000000f8000000f8000000f8000000\r
2745 7c0000007c0000007c0000003e0000801e0001001f0002000fc00c0003f0380001fff000003f8000\r
2746 >} imagemask \r
2747   }\r
2748   67 /G43 MSTT31c2a0 AddChar\r
2749 %%EndResource\r
2750 \r
2751 248 1280 1891 (           if\(\(h=164 and l=27\) or \(c=3\)\)                 \(* exit if either two buttons were pressed c=3 or Ctrl+Esc key *\)) 1891 SB\r
2752 248 1328 281 (           then exit;) 281 SB\r
2753 248 1376 158 (           fi;) 158 SB\r
2754 248 1424 103 (      fi;) 103 SB\r
2755 248 1472 108 (     od;) 108 SB\r
2756 248 1520 221 (     call groff;) 221 SB\r
2757 998 1520 954 (\(* leave the graphic mode and return to the text mode *\)) 954 SB\r
2758 248 1568 308 (     writeln\("i=",i\);) 308 SB\r
2759 248 1616 570 (     for i:=lower\(rep\) to upper\(rep\)) 570 SB\r
2760 248 1664 107 (      do) 107 SB\r
2761 248 1712 297 (       write\(rep\(i\)\);) 297 SB\r
2762 248 1760 119 (      od;) 119 SB\r
2763 248 1808 187 (     writeln;) 187 SB\r
2764 248 1856 102 (   End) 102 SB\r
2765 248 1904 80 ( End) 80 SB\r
2766 248 1952 80 (End.) 80 SB\r
2767 1 #C\r
2768 statusdict begin /manualfeed false store end\r
2769 EJ RS\r
2770 %%PageTrailer\r
2771 %%PageResources: font MSTT31c2a0\r
2772 %%Trailer\r
2773 SVDoc restore\r
2774 end\r
2775 %%Pages: 11\r
2776 % TrueType font name key:\r
2777 %    MSTT310000 = \r
2778 %    MSTT310000 = \r
2779 %    MSTT310000 = \r
2780 %    MSTT310000 = \r
2781 %    MSTT310000 = \r
2782 %    MSTT310000 = \r
2783 %    MSTT310000 = \r
2784 %    MSTT310000 = \r
2785 %    MSTT310000 = \r
2786 %    MSTT310000 = \r
2787 %    MSTT310000 = \r
2788 %    MSTT310000 = \r
2789 %    MSTT310000 = \r
2790 %    MSTT310000 = \r
2791 %    MSTT31c293 = 2fafDTimes New RomanF00000064000002bc0000\r
2792 %    MSTT31c2a0 = 2fafDTimes New RomanF0000002a000001900000\r
2793 %    MSTT31c2ad = 2fafDTimes New RomanF0000003a000001900000\r
2794 %    MSTT31c2ba = 2fafDTimes New RomanF0000004b000001900000\r
2795 %    MSTT31c282 = 2fafDTimes New RomanF0000002a000001900001\r
2796 %    MSTT31c2c7 = 2fafDTimes New RomanF0000002a000002bc0000\r
2797 %    MSTT31c2d4 = 2fafDTimes New RomanF00000032000001900001\r
2798 %    MSTT31c2e1 = 2fafDTimes New RomanF0000002a000002bc0001\r
2799 %    MSTT31c2ee = 2fafDTimes New RomanF00000021000001900000\r
2800 %%DocumentSuppliedResources: procset Win35Dict 3 1\r
2801 %%+ font MSTT31c282\r
2802 %%+ font MSTT31c2a0\r
2803 %%+ font MSTT31c2c7\r
2804 %%+ font MSTT31c2d4\r
2805 %%+ font MSTT31c2e1\r
2806 %%+ font MSTT31c2ee\r
2807 \r
2808 %%DocumentNeededResources: font Bookman-Demi\r
2809 %%+ font Bookman-DemiItalic\r
2810 %%+ font Bookman-Light\r
2811 %%+ font Bookman-LightItalic\r
2812 %%+ font Symbol\r
2813 \r
2814 %%EOF\r
2815 \ 4