%!PS-Adobe-3.0 %%Creator: Windows PSCRIPT %%Title: Microsoft Word - IUWGRAF3.DOC %%BoundingBox: 9 15 584 830 %%DocumentNeededResources: (atend) %%DocumentSuppliedResources: (atend) %%Pages: (atend) %%BeginResource: procset Win35Dict 3 1 /Win35Dict 290 dict def Win35Dict begin/bd{bind def}bind def/in{72 mul}bd/ed{exch def}bd/ld{load def}bd/tr/translate ld/gs/gsave ld/gr /grestore ld/M/moveto ld/L/lineto ld/rmt/rmoveto ld/rlt/rlineto ld /rct/rcurveto ld/st/stroke ld/n/newpath ld/sm/setmatrix ld/cm/currentmatrix ld/cp/closepath ld/ARC/arcn ld/TR{65536 div}bd/lj/setlinejoin ld/lc /setlinecap ld/ml/setmiterlimit ld/sl/setlinewidth ld/scignore false def/sc{scignore{pop pop pop}{0 index 2 index eq 2 index 4 index eq and{pop pop 255 div setgray}{3{255 div 3 1 roll}repeat setrgbcolor}ifelse}ifelse}bd /FC{bR bG bB sc}bd/fC{/bB ed/bG ed/bR ed}bd/HC{hR hG hB sc}bd/hC{ /hB ed/hG ed/hR ed}bd/PC{pR pG pB sc}bd/pC{/pB ed/pG ed/pR ed}bd/sM matrix def/PenW 1 def/iPen 5 def/mxF matrix def/mxE matrix def/mxUE matrix def/mxUF matrix def/fBE false def/iDevRes 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt def/fPP false def/SS{fPP{ /SV save def}{gs}ifelse}bd/RS{fPP{SV restore}{gr}ifelse}bd/EJ{gsave showpage grestore}bd/#C{userdict begin/#copies ed end}bd/FEbuf 2 string def/FEglyph(G )def/FE{1 exch{dup 16 FEbuf cvrs FEglyph exch 1 exch putinterval 1 index exch FEglyph cvn put}for}bd/SM{/iRes ed/cyP ed /cxPg ed/cyM ed/cxM ed 72 100 div dup scale dup 0 ne{90 eq{cyM exch 0 eq{cxM exch tr -90 rotate -1 1 scale}{cxM cxPg add exch tr +90 rotate}ifelse}{cyP cyM sub exch 0 ne{cxM exch tr -90 rotate}{cxM cxPg add exch tr -90 rotate 1 -1 scale}ifelse}ifelse}{pop cyP cyM sub exch 0 ne{cxM cxPg add exch tr 180 rotate}{cxM exch tr 1 -1 scale}ifelse}ifelse 100 iRes div dup scale 0 0 transform .25 add round .25 sub exch .25 add round .25 sub exch itransform translate}bd/SJ{1 index 0 eq{pop pop/fBE false def}{1 index/Break ed div/dxBreak ed/fBE true def}ifelse}bd/ANSIVec[ 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85 /ellipsis 16#86/dagger 16#87/daggerdbl 16#89/perthousand 16#8A/Scaron 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93 /quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97 /emdash 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe 16#9F/Ydieresis 16#A0/space 16#A4/currency 16#A6/brokenbar 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5 /mu 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2 /Acircumflex 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7 /Ccedilla 16#C8/Egrave 16#C9/Eacute 16#CA/Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve 16#D3/Oacute 16#D4/Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae 16#E7/ccedilla 16#E8/egrave 16#E9/eacute 16#EA /ecircumflex 16#EB/edieresis 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4 /ocircumflex 16#F5/otilde 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis ] def/reencdict 12 dict def/IsChar{basefontdict /CharStrings get exch known}bd/MapCh{dup IsChar not{pop/bullet}if newfont/Encoding get 3 1 roll put}bd/MapDegree{16#b0/degree IsChar{ /degree}{/ring}ifelse MapCh}bd/MapBB{16#a6/brokenbar IsChar{/brokenbar}{ /bar}ifelse MapCh}bd/ANSIFont{reencdict begin/newfontname ed/basefontname ed FontDirectory newfontname known not{/basefontdict basefontname findfont def/newfont basefontdict maxlength dict def basefontdict{exch dup/FID ne{dup/Encoding eq{exch dup length array copy newfont 3 1 roll put}{exch newfont 3 1 roll put}ifelse}{pop pop}ifelse}forall newfont/FontName newfontname put 127 1 159{newfont/Encoding get exch/bullet put}for ANSIVec aload pop ANSIVec length 2 idiv{MapCh}repeat MapDegree MapBB newfontname newfont definefont pop}if newfontname end}bd/SB{FC/ULlen ed/str ed str length fBE not{dup 1 gt{1 sub}if}if/cbStr ed/dxGdi ed /y0 ed/x0 ed str stringwidth dup 0 ne{/y1 ed/x1 ed y1 y1 mul x1 x1 mul add sqrt dxGdi exch div 1 sub dup x1 mul cbStr div exch y1 mul cbStr div}{exch abs neg dxGdi add cbStr div exch}ifelse/dyExtra ed /dxExtra ed x0 y0 M fBE{dxBreak 0 BCh dxExtra dyExtra str awidthshow}{dxExtra dyExtra str ashow}ifelse fUL{x0 y0 M dxUL dyUL rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if fSO{x0 y0 M dxSO dySO rmt ULlen fBE{Break add}if 0 mxUE transform gs rlt cyUL sl [] 0 setdash st gr}if n/fBE false def}bd/font{/name ed/Ascent ed 0 ne/fT3 ed 0 ne/fSO ed 0 ne/fUL ed/Sy ed/Sx ed 10.0 div/ori ed -10.0 div/esc ed/BCh ed name findfont/xAscent 0 def/yAscent Ascent def/ULesc esc def ULesc mxUE rotate pop fT3{/esc 0 def xAscent yAscent mxUE transform /yAscent ed/xAscent ed}if [Sx 0 0 Sy neg xAscent yAscent] esc mxE rotate mxF concatmatrix makefont setfont [Sx 0 0 Sy neg 0 Ascent] mxUE mxUF concatmatrix pop fUL{currentfont dup/FontInfo get/UnderlinePosition known not{pop/Courier findfont}if/FontInfo get/UnderlinePosition get 1000 div 0 exch mxUF transform/dyUL ed/dxUL ed}if fSO{0 .3 mxUF transform /dySO ed/dxSO ed}if fUL fSO or{currentfont dup/FontInfo get/UnderlineThickness known not{pop/Courier findfont}if/FontInfo get/UnderlineThickness get 1000 div Sy mul/cyUL ed}if}bd/min{2 copy gt{exch}if pop}bd/max{2 copy lt{exch}if pop}bd/CP{/ft ed{{ft 0 eq{clip}{eoclip}ifelse}stopped{currentflat 1 add setflat}{exit}ifelse}loop}bd/patfont 10 dict def patfont begin /FontType 3 def/FontMatrix [1 0 0 -1 0 0] def/FontBBox [0 0 16 16] def/Encoding StandardEncoding def/BuildChar{pop pop 16 0 0 0 16 16 setcachedevice 16 16 false [1 0 0 1 .25 .25]{pat}imagemask}bd end/p{ /pat 32 string def{}forall 0 1 7{dup 2 mul pat exch 3 index put dup 2 mul 1 add pat exch 3 index put dup 2 mul 16 add pat exch 3 index put 2 mul 17 add pat exch 2 index put pop}for}bd/pfill{/PatFont patfont definefont setfont/ch(AAAA)def X0 64 X1{Y1 -16 Y0{1 index exch M ch show}for pop}for}bd/vert{X0 w X1{dup Y0 M Y1 L st}for}bd/horz{Y0 w Y1{dup X0 exch M X1 exch L st}for}bd/fdiag{X0 w X1{Y0 M X1 X0 sub dup rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup rlt st}for}bd/bdiag{X0 w X1{Y1 M X1 X0 sub dup neg rlt st}for Y0 w Y1{X0 exch M Y1 Y0 sub dup neg rlt st}for}bd/AU{1 add cvi 15 or}bd/AD{1 sub cvi -16 and}bd/SHR{pathbbox AU/Y1 ed AU/X1 ed AD/Y0 ed AD/X0 ed}bd/hfill{/w iRes 37.5 div round def 0.1 sl [] 0 setdash n dup 0 eq{horz}if dup 1 eq{vert}if dup 2 eq{fdiag}if dup 3 eq{bdiag}if dup 4 eq{horz vert}if 5 eq{fdiag bdiag}if}bd/F{/ft ed fm 256 and 0 ne{gs FC ft 0 eq{fill}{eofill}ifelse gr}if fm 1536 and 0 ne{SHR gs HC ft CP fm 1024 and 0 ne{/Tmp save def pfill Tmp restore}{fm 15 and hfill}ifelse gr}if}bd/S{PenW sl PC st}bd/m matrix def/GW{iRes 12 div PenW add cvi}bd/DoW{iRes 50 div PenW add cvi}bd/DW{iRes 8 div PenW add cvi}bd/SP{/PenW ed/iPen ed iPen 0 eq iPen 6 eq or{[] 0 setdash}if iPen 1 eq{[DW GW] 0 setdash}if iPen 2 eq{[DoW GW] 0 setdash}if iPen 3 eq{[DW GW DoW GW] 0 setdash}if iPen 4 eq{[DW GW DoW GW DoW GW] 0 setdash}if}bd/E{m cm pop tr scale 1 0 moveto 0 0 1 0 360 arc cp m sm}bd /AG{/sy ed/sx ed sx div 4 1 roll sy div 4 1 roll sx div 4 1 roll sy div 4 1 roll atan/a2 ed atan/a1 ed sx sy scale a1 a2 ARC}def/A{m cm pop tr AG m sm}def/P{m cm pop tr 0 0 M AG cp m sm}def/RRect{n 4 copy M 3 1 roll exch L 4 2 roll L L cp}bd/RRCC{/r ed/y1 ed/x1 ed/y0 ed/x0 ed x0 x1 add 2 div y0 M x1 y0 x1 y1 r arcto 4{pop}repeat x1 y1 x0 y1 r arcto 4{pop}repeat x0 y1 x0 y0 r arcto 4{pop}repeat x0 y0 x1 y0 r arcto 4{pop}repeat cp}bd/RR{2 copy 0 eq exch 0 eq or{pop pop RRect}{2 copy eq{pop RRCC}{m cm pop/y2 ed/x2 ed/ys y2 x2 div 1 max def/xs x2 y2 div 1 max def/y1 exch ys div def/x1 exch xs div def/y0 exch ys div def/x0 exch xs div def/r2 x2 y2 min def xs ys scale x0 x1 add 2 div y0 M x1 y0 x1 y1 r2 arcto 4{pop}repeat x1 y1 x0 y1 r2 arcto 4{pop}repeat x0 y1 x0 y0 r2 arcto 4{pop}repeat x0 y0 x1 y0 r2 arcto 4{pop}repeat m sm cp}ifelse}ifelse}bd/PP{{rlt}repeat}bd/OB{gs 0 ne{7 3 roll/y ed /x ed x y translate ULesc rotate x neg y neg translate x y 7 -3 roll}if sc B fill gr}bd/B{M/dy ed/dx ed dx 0 rlt 0 dy rlt dx neg 0 rlt cp}bd /CB{B clip n}bd/ErrHandler{errordict dup maxlength exch length gt dup{errordict begin}if/errhelpdict 12 dict def errhelpdict begin/stackunderflow(operand stack underflow)def /undefined(this name is not defined in a dictionary)def/VMerror(you have used up all the printer's memory)def /typecheck(operator was expecting a different type of operand)def /ioerror(input/output error occured)def end{end}if errordict begin /handleerror{$error begin newerror{/newerror false def showpage 72 72 scale/x .25 def/y 9.6 def/Helvetica findfont .2 scalefont setfont x y moveto(Offending Command = )show/command load{dup type/stringtype ne{(max err string)cvs}if show}exec/y y .2 sub def x y moveto(Error = )show errorname{dup type dup( max err string )cvs show( : )show/stringtype ne{( max err string )cvs}if show}exec errordict begin errhelpdict errorname known{x 1 add y .2 sub moveto errhelpdict errorname get show}if end /y y .4 sub def x y moveto(Stack =)show ostack{/y y .2 sub def x 1 add y moveto dup type/stringtype ne{( max err string )cvs}if show}forall showpage}if end}def end}bd end %%EndResource /SVDoc save def %%EndProlog %%BeginSetup Win35Dict begin ErrHandler statusdict begin 0 setjobtimeout end statusdict begin statusdict /jobname (Microsoft Word - IUWGRAF3.DOC) put end /oldDictCnt countdictstack def {statusdict begin 0 setpapertray end }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if /oldDictCnt countdictstack def {a4 }stopped { countdictstack oldDictCnt lt { Win35Dict begin } {1 1 countdictstack oldDictCnt sub {pop end } for } ifelse } if [{ } /exec load currenttransfer /exec load] cvx settransfer /setresolution where { pop 300 300 setresolution } if %%EndSetup %%Page: 1 1 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 0 0 0 fC 248 283 615 (unit IIUWGRAPH: class;) 615 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 248 401 1399 ({ this predefined class enables basic graphic operations) 1399 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 248 460 95 ( ) 95 SB 32 0 0 58 58 0 0 0 52 /Bookman-LightItalic /font8 ANSIFont font 343 462 17 ( ) 17 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 360 460 810 (for DOS machines based on ) 810 SB 32 0 0 58 58 0 0 0 54 /Bookman-Demi /font5 ANSIFont font 1170 460 114 (486) 114 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 1284 460 560 ( or 386 processors }) 560 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 248 587 1726 ({ this document gives the specification of new version of IIUWGRAPH) 1726 SB 398 647 773 (class made in October 1994 by ) 773 SB 32 0 0 50 50 0 0 0 47 /Bookman-DemiItalic /font6 ANSIFont font 1171 646 444 (Frederic Pataud ) 444 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1615 647 139 (\340 Pau) 139 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 248 707 15 ( ) 15 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 263 706 14 (}) 14 SB 248 824 1672 ({ the early versions of library IIUWGRAPH have been elaborated by) 1672 SB 248 883 1525 ( Piotr Carlsson, Miroslawa Milkowska, Janina Jankowska,) 1525 SB 248 942 1244 ( Michal Jankowski at Institute of Informatics,) 1244 SB 248 1001 785 ( University of Warsaw 1987,) 785 SB 248 1060 1555 ( and added to Loglan system by Danuta Szczepanska 1987,) 1555 SB 248 1178 1173 ( the recent versions were done at LITA, Pau,) 1173 SB 248 1237 170 ( by) 170 SB 248 1296 863 ( Pawel Susicki \(1991\) for Unix,) 863 SB 248 1355 1641 ( Sebastien Bernard \(1992\) for ATARI, see a separate document,) 1641 SB 248 1414 1795 ( Eric Becourt et Jer\364me Larrieu \(1993\) for Unix and Xwindows, see a ) 1795 SB 398 1473 826 (separate document on Xiiuwgraf ,) 826 SB 248 1709 1492 (fait \340 Pau, le 15 Novembre 1994, par Andrzej Salwicki, LITA}) 1492 SB 248 1827 1875 ({ the predefined class IIUWGRAPH is included in all versions of interpreter of) 1875 SB 248 1887 410 (Loglan, with the ) 410 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 658 1888 224 (exception) 224 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 882 1887 1259 ( of the present version of interpreter for VAX/VMS.}) 1259 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2131 179 (hidden) 179 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 427 2132 1311 ( MaxX, MaxY, current_X, current_Y, is_graphic_On,) 1311 SB 248 2191 1712 ( current_Colour, current_Background_Colour, current_Style,) 1712 SB 248 2250 1062 ( current_Palette, current_Pattern ;) 1062 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2486 143 (const) 143 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 391 2487 217 ( MaxX =) 217 SB 248 2546 341 ( MaxY =) 341 SB 248 2664 760 ({ the screen's coordinates are) 760 SB 248 2782 986 ( \(0,0\) ----------------------> \(MaxX,0\)) 986 SB 248 2841 206 ( \246) 206 SB 248 2900 206 ( \246) 206 SB 248 2959 206 ( \246) 206 SB 248 3018 195 ( V) 195 SB 248 3077 1108 ( \(0, MaxY\) \(MaxX,MaxY\)) 1108 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-DemiItalic %%+ font Bookman-Light %%+ font Bookman-LightItalic %%Page: 2 2 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 0 0 0 fC 248 224 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 401 82 (var) 82 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 330 402 1466 ( currentDriver : integer, { see NOCARD below }) 1466 SB 248 461 1640 ( current_X, current_Y: integer { it is the current position }) 1640 SB 248 520 719 ( is_graphic_On: Boolean,) 719 SB 998 520 881 ( { evidently tells whether we are in ) 881 SB 698 579 387 (graphics mode }) 387 SB 248 638 715 ( current_Colour : integer,) 715 SB 1148 638 44 ({ }) 44 SB 248 697 1038 ( current_Background_Colour : integer,) 1038 SB 248 756 671 ( current_Style : integer,) 671 SB 1148 756 44 ({ }) 44 SB 248 815 716 ( current_Palette : integer,) 716 SB 248 874 498 ( current_Pattern) 498 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 992 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 993 217 ( GRON : ) 217 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 573 992 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 834 993 277 ( \(i: integer\);) 277 SB 248 1052 1754 ( { procedure sets the monitor in graphic mode and clears the buffer) 1754 SB 248 1111 16 ( ) 16 SB 398 1111 1739 (of screen. The parameter determines the resolution and the number of ) 1739 SB 398 1170 195 (colours.) 195 SB 248 1229 1887 (The user should assure that the resolution chosen should correspond to that) 1887 SB 248 1288 801 (which set by means of command) 801 SB 248 1347 1616 (SET go32 drivers {path} ) 1616 SB 248 1406 69 (eg.) 69 SB 248 1465 1785 (set go32 drivers c:\\loglan\\svga\\drivers\\vesa.grn gw 1024 gh 480 nc 256) 1785 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 248 1525 861 ( An execution of instruction ) 861 SB 32 0 0 58 58 1 0 0 54 /Bookman-Light /font7 ANSIFont font 1109 1525 98 (call) 98 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 1207 1525 216 ( gron\(i\) ) 216 SB 32 0 0 58 58 0 0 0 55 /Bookman-DemiItalic /font6 ANSIFont font 1423 1524 406 (must precede) 406 SB 32 0 0 58 58 0 0 0 54 /Bookman-Demi /font5 ANSIFont font 1829 1525 20 ( ) 20 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 1849 1525 282 (any of the) 282 SB 248 1593 1029 (graphic commands described below.) 1029 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 248 1661 126 ( }) 126 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1779 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1780 244 ( GROFF : ) 244 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 600 1779 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 861 1780 16 (;) 16 SB 248 1839 1651 ( { the procedure sets the monitor in the text mode filling it with ) 1651 SB 398 1898 180 (spaces.) 180 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 248 1957 1871 ( DO NOT FORGET to set the monitor in the text mode before) 1871 SB 248 2025 820 (you terminate your program) 820 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 248 2093 126 ( }) 126 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 248 2211 825 (unit NOCARD : function : integer;) 825 SB 248 2270 1923 ( { the value given by this function determines the type of the currently used) 1923 SB 248 2329 620 (monitor and it is equal to) 620 SB 248 2388 223 ( 1) 223 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 471 2388 80 ( ) 80 SB 548 2388 589 (for Hercules mono card,) 589 SB 248 2447 160 ( ) 160 SB 398 2447 31 (2) 31 SB 429 2447 128 ( ) 128 SB 548 2447 444 (for IBM CGA color) 444 SB 248 2506 160 ( ) 160 SB 398 2506 31 (3) 31 SB 429 2506 128 ( ) 128 SB 548 2506 723 (for IBM CGA mono 320 x 200) 723 SB 248 2565 160 ( ) 160 SB 398 2565 31 (4) 31 SB 429 2565 128 ( ) 128 SB 548 2565 723 (for IBM CGA mono 640 x 200) 723 SB 248 2624 160 ( ) 160 SB 398 2624 31 (5) 31 SB 429 2624 128 ( ) 128 SB 548 2624 455 (for EGA/VGA card) 455 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 248 2683 717 ( 6 for ATARI STE) 717 SB 248 2742 1431 ( 7 for Unix versions equipped with XWindows) 1431 SB 32 0 0 50 50 0 1 0 45 /Bookman-LightItalic /font8 ANSIFont font 248 2803 1888 ( You can not call the function nocard before GRON sets the graphic mode) 1888 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 248 2859 126 ( }) 126 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2977 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2978 164 ( CLS : ) 164 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 520 2977 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 781 2978 16 (;) 16 SB 248 3037 1386 ( { the screen will be cleared and filled with colour 0 }) 1386 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-DemiItalic %%+ font Bookman-Light %%+ font Bookman-LightItalic %%Page: 3 3 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 0 0 0 fC 248 224 1080 (unit VIDEO : procedure\( A: array of integer\);) 1080 SB 248 283 80 ( ) 80 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 328 283 1636 ( { this procedure can not be applied with egaint = EGA/VGA card }) 1636 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 248 342 160 ( ) 160 SB 398 342 1383 ({ the worktime buffer will be associated with the array A.) 1383 SB 248 401 160 ( ) 160 SB 398 401 1507 ( A call of VIDEO does not change the contents of the buffer.) 1507 SB 248 460 160 ( ) 160 SB 398 460 1621 ( All subsequent calls of the procedures modifying the screen will) 1621 SB 248 519 160 ( ) 160 SB 398 519 1273 ( concern the array A. The screen does not change.) 1273 SB 248 578 160 ( ) 160 SB 398 578 1505 ( A ready image can be moved to the screen with the help of ) 1505 SB 1903 578 160 ( ) 160 SB 2048 578 160 ( ) 160 SB 248 637 160 ( ) 160 SB 398 637 1421 (GETMAP/PUTMAP procedures or it can be stored on disk.) 1421 SB 248 696 160 ( ) 160 SB 398 696 1387 ( The array should have 16 kBytes for IBM CGA card or) 1387 SB 248 755 160 ( ) 160 SB 398 755 743 ( 32 kBytes for Hercules card.}) 743 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 248 881 30 ({ ) 30 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 278 873 1371 (PROCEDURES CONTROLLING THE COLOURS ) 1371 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1649 881 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1000 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1001 247 ( COLOR : ) 247 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 603 1000 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 864 1001 316 (\(co : integer\);) 316 SB 248 1060 14 ({) 14 SB 398 1060 563 (sets current color to co) 563 SB 398 1119 1365 (for monochrome displays, 0 means black, non-0 - white) 1365 SB 398 1178 965 (for color displays, 0 means background) 965 SB 248 1237 366 ( see PALLET) 366 SB 248 1296 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1414 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1415 226 ( STYLE : ) 226 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 582 1414 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 843 1415 349 (\(styl : integer\);) 349 SB 248 1474 14 ({) 14 SB 398 1474 1218 (sets style of lines and fill shades to a combination) 1218 SB 398 1533 1214 (of current color and background color \(for mono -) 1214 SB 398 1592 1357 (white and black, respectively\) according to 5 predefined) 1357 SB 398 1651 221 (patterns:) 221 SB 548 1769 31 (0) 31 SB 698 1769 64 (....) 64 SB 548 1828 31 (1) 31 SB 698 1828 88 (****) 88 SB 548 1887 31 (2) 31 SB 698 1887 82 (***.) 82 SB 548 1946 31 (3) 31 SB 698 1946 76 (**..) 76 SB 548 2005 31 (4) 31 SB 698 2005 76 (*.*.) 76 SB 548 2064 31 (5) 31 SB 698 2064 70 (*...) 70 SB 398 2182 1311 (where '*' means current color, '.' background colour) 1311 SB 248 2241 1934 (When drawing the segments the subsequent pixels will have colour determined) 1934 SB 248 2300 1906 (by cyclic application of style pattern. The first and the last pixels of a segment) 1906 SB 248 2359 778 (will have always current colour.) 778 SB 248 2418 1962 (When filling contours the given style will be applied to horizontal lines with even) 1962 SB 248 2477 1540 (coordinate. The style for odd lines is determined automatically.) 1540 SB 248 2536 1009 (The same applies for perpendicular lines.) 1009 SB 248 2595 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2772 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2773 289 ( BORDER : ) 289 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 645 2772 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 906 2773 743 ( \(background_Colour: integer\);) 743 SB 398 2891 1285 ({ sets actual background color to i \( i = 0,1,...,15 \) }) 1285 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 3068 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 3069 256 ( PALLET : ) 256 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 612 3068 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 873 3069 333 ( \(nr : integer\);) 333 SB 398 3128 14 ({) 14 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-Light %%Page: 4 4 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 0 0 0 fC 248 283 799 (the codes of colors are as follows) 799 SB 548 342 31 (0) 31 SB 698 342 132 (black) 132 SB 548 401 31 (1) 31 SB 698 401 235 (blue dark) 235 SB 548 460 31 (2) 31 SB 698 460 263 (green dark) 263 SB 548 519 31 (3) 31 SB 698 519 362 (turquoise dark) 362 SB 548 578 31 (4) 31 SB 698 578 208 (red dark) 208 SB 548 637 31 (5) 31 SB 698 637 129 (violet) 129 SB 548 696 31 (6) 31 SB 698 696 153 (brown) 153 SB 548 755 31 (7) 31 SB 698 755 227 (grey light) 227 SB 548 814 31 (8) 31 SB 698 814 231 (grey dark) 231 SB 548 873 31 (9) 31 SB 698 873 106 (blue) 106 SB 548 932 62 (10) 62 SB 698 932 134 (green) 134 SB 548 991 62 (11) 62 SB 698 991 233 (turquoise) 233 SB 548 1050 62 (12) 62 SB 698 1050 204 (red light) 204 SB 548 1109 62 (13) 62 SB 698 1109 102 (rose) 102 SB 548 1168 62 (14) 62 SB 698 1168 150 (yellow) 150 SB 548 1227 62 (15) 62 SB 698 1227 132 (white) 132 SB 248 1345 110 ( }) 110 SB 248 1589 30 ({ ) 30 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 278 1581 1180 (PROCEDURES CONTROLLING POSITION) 1180 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1458 1589 30 ( }) 30 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1708 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1709 221 ( MOVE : ) 221 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 577 1708 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 838 1709 333 ( \(x,y :integer\);) 333 SB 248 1768 1857 ( { procedure MOVE sets the current position on the screen on the pixel ) 1857 SB 398 1827 405 (with coordinates) 405 SB 248 1886 503 ( x - column,) 503 SB 248 1945 438 ( y - line }) 438 SB 248 2004 746 ( { precondition of MOVE:) 746 SB 248 2068 303 ( 0) 303 SB 32 0 0 50 50 0 0 0 51 /Symbol font gs 578 3396 0 0 CB 551 2063 27 (\243) 27 SB gr 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 578 2068 28 (x) 28 SB 32 0 0 50 50 0 0 0 51 /Symbol font gs 633 3396 0 0 CB 606 2063 27 (\243) 27 SB gr 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 633 2068 258 (MaxX & 0) 258 SB 32 0 0 50 50 0 0 0 51 /Symbol font gs 918 3396 0 0 CB 891 2063 27 (\243) 27 SB gr 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 918 2068 27 (y) 27 SB 32 0 0 50 50 0 0 0 51 /Symbol font gs 972 3396 0 0 CB 945 2063 27 (\243) 27 SB gr 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 972 2068 135 (MaxY) 135 SB 248 2128 174 ( }) 174 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2246 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2247 258 ( INXPOS : ) 258 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 614 2246 221 (function) 221 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 835 2247 216 (: integer;) 216 SB 248 2306 1758 ( { function INXPOS returns the x coordinate of the current position }) 1758 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2483 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2484 254 ( INYPOS : ) 254 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 610 2483 221 (function) 221 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 831 2484 232 ( : integer;) 232 SB 248 2543 1769 ( { function INYPOS returns the y coordinate of the current position }) 1769 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2720 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2721 275 ( PUSHXY : ) 275 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 631 2720 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 892 2721 16 (;) 16 SB 248 2780 14 ({) 14 SB 398 2780 1302 (pushes current position, color & style onto the stack.) 1302 SB 398 2839 1094 (The stack is kept internally, max depth is 16) 1094 SB 248 2898 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 3075 125 (unit ) 125 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 373 3076 202 (POPXY: ) 202 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 575 3075 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 836 3076 16 (;) 16 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-Light %%+ font Symbol %%Page: 5 5 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 0 0 0 fC 248 224 14 ({) 14 SB 398 224 1288 (restores position, color & style from internal stack }) 1288 SB 248 342 242 ({ Example) 242 SB 248 401 699 (unit DIAGONAL : procedure;) 699 SB 248 460 506 ( var ix, iy : integer;) 506 SB 248 519 132 (begin) 132 SB 398 578 328 (call PUSHXY;) 328 SB 398 637 331 (ix := INXPOS;) 331 SB 398 696 326 (iy := INYPOS;) 326 SB 398 755 606 (call DRAW\(ix+10, iy+10\);) 606 SB 398 814 271 (call POPXY) 271 SB 248 873 394 (end DIAGONAL;) 394 SB 248 932 14 (}) 14 SB 248 1168 1088 ({ PROCEDURES SERVING POINTS & LINES}) 1088 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1286 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1287 220 ( POINT : ) 220 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 576 1286 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 837 1287 317 (\(x,y: integer\);) 317 SB 248 1346 14 ({) 14 SB 548 1346 1635 (moves current position to pixel \(x,y\) and sets it to the current color) 1635 SB 248 1405 30 ( }) 30 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1523 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1524 202 ( INPIX : ) 202 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 558 1523 221 (function) 221 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 779 1524 565 ( \(x,y : integer\) : integer;) 565 SB 398 1583 14 ({) 14 SB 548 1642 1179 (moves to pixel \(x,y\) and returns its color setting;) 1179 SB 398 1701 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1878 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1879 222 ( DRAW : ) 222 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 578 1878 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 839 1879 349 (\( x,y : integer\);) 349 SB 398 1938 14 ({) 14 SB 398 1998 1104 (draws a line from current screen position to \() 1104 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1502 1999 72 (x,y) 72 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1574 1998 31 (\);) 31 SB 398 2058 600 (sets current position to \() 600 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 998 2059 72 (x,y) 72 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1070 2058 31 (\);) 31 SB 398 2117 1357 (line is drawn in current color, with both terminal pixels) 1357 SB 398 2176 1306 (always turned white \( non-background\) for non-black) 1306 SB 398 2235 724 (\( non-background \) line color.) 724 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 248 2294 160 ( ) 160 SB 398 2294 1558 (Bresenham's algorithm is used, pixels belonging to the segment) 1558 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 398 2353 1407 (change their state depending on current colour and style.) 1407 SB 398 2412 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2530 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2531 200 ( intens: ) 200 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 556 2530 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 817 2531 1113 (\(Size :integer; xCoord,yCoord:arrayof integer, ) 1113 SB 548 2590 545 (Colour,Filled :integer\);) 545 SB 248 2649 491 (/* draw a polygon*/) 491 SB 248 2708 1924 ({ draw a simple, closed polygon of Size points, the edges of the polygon go from) 1924 SB 248 2768 15 (\() 15 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 263 2769 451 (xCoord[i], yCoord[i]) 451 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 714 2768 109 (\) to \() 109 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 823 2769 573 (xCoord[i+1], yCoord[i+1]) 573 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1396 2768 482 (\) for i = 1, ..., Size-1) 482 SB 248 2828 581 (The colour used will be ) 581 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 829 2829 155 (Colour) 155 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 984 2828 713 (. The polygon will be filled iff ) 713 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1697 2829 132 (Filled) 132 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1829 2828 107 (<>0.) 107 SB 248 2887 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 3005 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 3006 191 ( CIRB : ) 191 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 547 3005 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 808 3006 925 ( \(xi, yi, rx,ry : integer, alfa, beta : real,) 925 SB 998 3065 622 ( cbord, fill : integer\);) 622 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-Light %%+ font Bookman-LightItalic %%Page: 6 6 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 0 0 0 fC 398 224 14 ({) 14 SB 398 283 1566 (draws a circle \(or ellipse, depending on aspect value, see below\),) 1566 SB 398 342 680 (optionally filling its interior;) 680 SB 398 401 655 (does not preserve position;) 655 SB 398 461 15 (\() 15 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 413 462 100 (xi,yi) 100 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 513 461 643 (\) - are center coordinates,) 643 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 398 522 47 (rx) 47 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 445 521 780 ( - radius in pixels \(horizontally\),) 780 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 398 582 50 (ry) 50 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 448 581 875 ( - radius in pixels \(perpendicularly\),) 875 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 398 642 228 (alfa, beta) 228 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 626 641 1095 ( - starting & ending angles; if alfa=beta a full) 1095 SB 398 700 1337 ( circle is drawn; values should be given in radians;) 1337 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 398 761 133 (cbord) 133 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 531 760 363 ( - border color,) 363 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 398 821 59 (fill) 59 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 457 820 1220 ( - if fill <>0, interior is filled in current style&color) 1220 SB 398 879 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 997 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 998 142 ( hfill: ) 142 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 498 997 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 759 998 306 (\( x : integer\);) 306 SB 248 1057 1568 ( { draw an horizontal line between the current position and) 1568 SB 398 1116 1513 (\(x,currentY\) with the current color, after it change the current) 1513 SB 398 1175 578 (position to \(x, currentY\)) 578 SB 248 1234 142 ( }) 142 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1352 125 (unit ) 125 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 373 1353 119 (vfill: ) 119 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 492 1352 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 753 1353 305 (\( y : integer\);) 305 SB 248 1412 1467 ( { draw a vertical line between the current position and) 1467 SB 398 1471 1516 (\(currentX,y\) with the current color, after it change the current) 1516 SB 398 1530 565 (position to \(currentX,y\)) 565 SB 248 1589 126 ( }) 126 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1707 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1708 208 ( patern: ) 208 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 564 1707 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 825 1708 649 (\( x1,y1,x2,y2,c,b : integer\);) 649 SB 248 1768 356 ( { draw a ) 356 SB 32 0 0 50 50 0 0 0 47 /Bookman-DemiItalic /font6 ANSIFont font 604 1767 249 (rectangle) 249 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 853 1768 509 ( between the points \() 509 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1362 1769 134 (x1,y1) 134 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1496 1768 155 (\) and \() 155 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1651 1769 58 (x2) 58 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1709 1768 16 (,) 16 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1725 1769 61 (y2) 61 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1786 1768 231 (\) with the) 231 SB 248 1828 16 ( ) 16 SB 398 1828 135 (color ) 135 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 533 1829 24 (c) 24 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 557 1828 879 ( \(the current color is not change\). if ) 879 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1436 1829 30 (b) 30 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1466 1828 442 (=0 then the box is) 442 SB 248 1887 16 ( ) 16 SB 398 1887 516 (empty else it is filled.) 516 SB 248 1946 126 ( }) 126 SB 248 2072 30 ({ ) 30 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 278 2064 938 (Procedures operating on bitmaps) 938 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1216 2072 30 ( }) 30 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2191 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2192 282 ( GETMAP : ) 282 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 638 2191 221 (function) 221 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 859 2192 381 ( \(x,y : integer\) : ) 381 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 1240 2191 185 (arrayof) 185 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1425 2192 200 ( integer;) 200 SB 248 2251 128 ( ) 128 SB 398 2251 1263 ({saves rectangular area between current position as) 1263 SB 398 2310 1179 (top left corner and \(ix,iy\) as bottom right corner,) 1179 SB 398 2369 552 (including border lines;) 552 SB 398 2428 713 (position remains unchanged.) 713 SB 398 2487 686 (array of integer should have) 686 SB 548 2551 191 (4+\(rows) 191 SB 32 0 0 50 50 0 0 0 51 /Symbol font gs 752 3396 0 0 CB 739 2546 13 (\327) 13 SB gr gs 771 3396 0 0 CB 752 2546 19 (\351) 19 SB gr 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 771 2551 270 (columns/8) 270 SB 32 0 0 50 50 0 0 0 51 /Symbol font gs 1060 3396 0 0 CB 1041 2546 19 (\371) 19 SB gr 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1060 2551 16 ( ) 16 SB 32 0 0 50 50 0 0 0 51 /Symbol font gs 1089 3396 0 0 CB 1076 2546 13 (\327) 13 SB gr 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1089 2551 127 (coeff\)) 127 SB 398 2611 1601 (bytes. The coefficient coeff is 1 for Hercules, 2 for CGA, 4 for EGA) 1601 SB 248 2670 16 ( ) 16 SB 398 2670 124 (card.) 124 SB 248 2729 1830 ( ATTENTION: in DOS 286 environment a bigger size of the array may ) 1830 SB 398 2789 543 (necessitate the use of ) 543 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 941 2790 145 (loglan) 145 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1086 2789 122 ( with) 122 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1208 2790 336 ( the option H+) 336 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1544 2789 474 (, see also memavail) 474 SB 248 2848 190 ( }) 190 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2966 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2967 276 ( PUTMAP : ) 276 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 632 2966 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 893 2967 108 ( \( a: ) 108 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 1001 2966 185 (arrayof) 185 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1186 2967 215 ( integer\);) 215 SB 398 3026 1256 ({sets rectangular area of screen pixels to that saved) 1256 SB 398 3085 569 (by "getmap" in "iarray";) 569 SB 398 3144 1267 (same size is restored, with top left corner in current) 1267 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-DemiItalic %%+ font Bookman-Light %%+ font Bookman-LightItalic %%+ font Symbol %%Page: 7 7 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 0 0 0 fC 398 224 211 (position;) 211 SB 398 283 713 (position remains unchanged.) 713 SB 398 342 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 460 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 461 251 ( ORMAP : ) 251 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 607 460 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 868 461 124 ( \( a : ) 124 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 992 460 202 (arrayof ) 202 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1194 461 199 (integer\);) 199 SB 398 520 1355 ({same as putmap, but saved bitmap is or'ed into screen) 1355 SB 398 579 494 (rather than just set.) 494 SB 398 638 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 756 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 757 287 ( XORMAP : ) 287 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 643 756 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 904 757 108 ( \( a: ) 108 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 1012 756 185 (arrayof) 185 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1197 757 215 ( integer\);) 215 SB 398 816 1383 ({same as putmap, but saved bitmap is xor'ed into screen) 1383 SB 398 875 494 (rather than just set.) 494 SB 398 934 14 (}) 14 SB 248 1119 14 ({) 14 SB 32 0 0 58 58 0 0 0 54 /Bookman-Light /font7 ANSIFont font 262 1111 1348 (Procedures operating on characters and strings) 1348 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1610 1119 14 (}) 14 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1238 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1239 271 ( outstring: ) 271 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 627 1238 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 888 1239 1236 (\(x,y: integer, s: string, back_col, front_col: integer\);) 1236 SB 248 1299 78 ( { ) 78 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 326 1300 87 (x, y) 87 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 413 1299 1079 ( are the coordinates where to put the string,) 1079 SB 248 1359 96 ( ) 96 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 344 1360 27 (s) 27 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 371 1359 780 ( is the string to be shown, in ) 780 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1151 1360 202 (front_col) 202 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1353 1359 525 ( colour letters on the ) 525 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1878 1360 205 (back_col) 205 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 398 1418 461 (colour background) 461 SB 248 1477 78 ( }) 78 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1595 125 (unit ) 125 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 373 1596 175 ( track: ) 175 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 548 1595 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 809 1596 559 (\( x,y,c,valeur : integer\);) 559 SB 248 1715 62 ( {) 62 SB 398 1715 545 (write an integer value ) 545 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 943 1716 150 (valeur) 150 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1093 1715 400 ( at the position \() 400 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1493 1716 72 (x,y) 72 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1565 1715 382 (\) with the color ) 382 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1947 1716 24 (c) 24 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1971 1715 16 (.) 16 SB 398 1774 1494 ( It does not change the current position nor the current color) 1494 SB 248 1833 62 ( }) 62 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1951 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1952 196 ( inkey : ) 196 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 552 1951 221 (function) 221 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 773 1952 232 ( : integer;) 232 SB 248 2070 1257 ( { returns next character from keyboard buffer;) 1257 SB 398 2129 764 (0 is returned if buffer is empty;) 764 SB 398 2188 1155 (special keys are returned as negative numbers;) 1155 SB 398 2247 1462 (ALT-NUM method may be used for entering character codes) 1462 SB 398 2306 1297 (above 127 \(this makes entering special keys 128-132) 1297 SB 398 2365 291 (impossible\);) 291 SB 398 2424 1069 (if a character is returned, it is also removed) 1069 SB 398 2483 1290 (from the buffer, so MS-DOS will not see it \(CTRL-C!\);) 1290 SB 398 2542 1020 (typeahead is allowed, echo is suppressed.) 1020 SB 248 2601 62 ( }) 62 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2719 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 2720 242 ( HASCII : ) 242 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 598 2719 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 859 2720 272 (\(c: integer\);) 272 SB 398 2779 806 ({'xor's the character = chr\(c\) in a ) 806 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 1204 2779 84 (8*8) 84 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1288 2779 584 ( box with top left corner) 584 SB 398 2838 567 (in the current position;) 567 SB 398 2897 652 (moves current position by ) 652 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 1050 2897 108 (\(8,0\)) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1158 2897 16 (;) 16 SB 248 2956 16 ( ) 16 SB 398 2956 1403 (call hascii\(0\)- sets complete box to black \( =background \),) 1403 SB 398 3015 664 (with no change in position.) 664 SB 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 248 3074 160 ( ) 160 SB 398 3074 1295 (BIOS ROM font for IBM color card is used. If the font) 1295 SB 248 3133 160 ( ) 160 SB 398 3133 1315 (table is not at F000:FA6E, the character will probably) 1315 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-Light %%+ font Bookman-LightItalic %%Page: 8 8 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 1 0 46 /Bookman-Light /font7 ANSIFont font 0 0 0 fC 248 224 160 ( ) 160 SB 398 224 1112 (be unrecognizable, and most certainly wrong.) 1112 SB 248 283 160 ( ) 160 SB 398 283 1340 (For codes >127, table pointed to by interrupt vector 31) 1340 SB 248 342 160 ( ) 160 SB 398 342 190 (is used.) 190 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 588 342 30 ( }) 30 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 578 125 (unit ) 125 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 373 579 161 (hfont: ) 161 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 534 578 221 (function) 221 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 755 579 1238 (\( x,y,lg,min,max,default,col_f,col_e,col_c : integer\): ) 1238 SB 1298 638 344 ( integer;) 344 SB 248 757 142 ( {) 142 SB 398 757 832 (arrange a small 1 line window for ) 832 SB 32 0 0 50 50 0 0 0 47 /Bookman-DemiItalic /font6 ANSIFont font 1230 756 205 (reading) 205 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1435 757 646 ( an integer value from this) 646 SB 248 816 201 (window,) 201 SB 248 876 905 (the position of the window corner is \() 905 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1153 877 87 (x, y) 87 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1240 876 31 (\),) 31 SB 248 936 675 (the length of the window is ) 675 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 923 937 42 (lg) 42 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 965 936 290 ( characters,) 290 SB 248 996 855 (the value v should be greater than ) 855 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1103 997 89 (min) 89 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1192 996 451 ( and smaller than ) 451 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1643 997 102 (max) 102 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1745 996 16 (,) 16 SB 248 1056 607 (the default value read is ) 607 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 855 1057 169 (default) 169 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1024 1056 16 (,) 16 SB 248 1116 675 (the colour of the window is ) 675 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 923 1117 107 (col_f) 107 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1030 1116 16 (,) 16 SB 248 1176 623 (the colour of the digits is ) 623 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 871 1177 132 (col_e,) 132 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 248 1236 554 (the colour of cursor is ) 554 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 802 1237 114 (col_c) 114 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 248 1354 1793 ( reads in graphic mode an integer in the window which begins at the \(x,y\)) 1793 SB 398 1413 1609 (position, window is lg caracteres long. the maximum length of the) 1609 SB 398 1472 1653 (integer that is read is 10. there is a default value, a minimum value) 1653 SB 398 1531 1704 (and a maximum value. the window is drawn with the col_f color, the ) 1704 SB 398 1590 1568 (cursor is in the col_c color and the integer is writing in the col_e) 1568 SB 398 1649 1542 (color. you can use 0..9,+,-,backspace,escape and return keys. }) 1542 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 1826 108 (unit) 108 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 356 1827 245 ( HPAGE : ) 245 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 601 1826 261 (procedure) 261 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 862 1827 1332 (\(x,y,long: integer, A: arrayof char, back, front: integer\);) 1332 SB 398 1887 1432 ({ this procedure arranges a 1-line high window in position ) 1432 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1830 1888 72 (x,y) 72 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1902 1887 245 ( of length ) 245 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 398 1948 100 (long) 100 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 498 1947 647 ( in which a portion of text ) 647 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1145 1948 35 (A) 35 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1180 1947 481 ( is shown in colour ) 481 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 1661 1948 112 (front) 112 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 1773 1947 187 ( on the ) 187 SB 398 2007 477 (background colour ) 477 SB 32 0 0 50 50 0 0 0 45 /Bookman-LightItalic /font8 ANSIFont font 875 2008 115 (back) 115 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 990 2007 16 (.) 16 SB 398 2066 1621 (Making use of keys controlling the cursor {left, right, PgUp, PgDn}) 1621 SB 398 2125 1697 (the user can scroll the text \(horizontally\) in the window. Pressing the ) 1697 SB 398 2184 884 (Enter key terminates the procedure}) 884 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 2302 95 (end) 95 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 343 2303 334 ( IIUWGRAPH;) 334 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-DemiItalic %%+ font Bookman-Light %%+ font Bookman-LightItalic %%Page: 9 9 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 0 0 0 fC 248 283 125 (unit ) 125 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 373 284 226 (MOUSE: ) 226 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 599 283 127 (class) 127 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 726 284 16 (;) 16 SB %%BeginResource: font MSTT31c2a0 /GreNewFont{10 dict dup 3 1 roll def dup begin 6 1 roll/FontType 3 def/FontMatrix exch def/FontBBox exch def/FontInfo 2 dict def FontInfo /UnderlinePosition 3 -1 roll put FontInfo/UnderlineThickness 3 -1 roll put/Encoding 256 array def 0 1 255{Encoding exch/.notdef put}for /CharProcs 256 dict def CharProcs/.notdef{}put/Metrics 256 dict def Metrics/.notdef 3 -1 roll put/BuildChar{/char exch def/fontdict exch def/charname fontdict/Encoding get char get def fontdict/Metrics get charname get aload pop setcachedevice fontdict begin Encoding char get CharProcs exch get end exec}def end definefont pop}def/AddChar{begin Encoding 3 1 roll put CharProcs 3 1 roll put Metrics 3 1 roll put end}def /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 %%EndResource 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font %%BeginResource: font MSTT31c2a0 /G7b [20.0 0.0 3.0 -8.0 16.0 28.0] /G7b { 13 36 true [1 0 0 -1 -3.0 28.0] {<003800e00180038007000f000f000f000f800f80078007800780070006000c003000c00070000c00 0e0007000780078007800f800f800f000f000f000f000700038001c000e00018>} imagemask } 123 /G7b MSTT31c2a0 AddChar %%EndResource 248 402 20 ({) 20 SB %%BeginResource: font MSTT31c282 /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 %%EndResource 32 0 0 42 42 0 0 1 38 /MSTT31c282 font %%BeginResource: font MSTT31c282 /G69 [12.0 0.0 1.0 0.0 10.0 26.0] /G69 { 9 26 true [1 0 0 -1 -1.0 26.0] {<038003800380000000000000000007003f0007000e000e000e000e001c001c001c00380038003800 7800700072007400f8007000>} imagemask } 105 /G69 MSTT31c282 AddChar /G6e [21.0 0.0 0.0 0.0 19.0 19.0] /G6e { 19 19 true [1 0 0 -1 0.0 19.0] {<0703c03f0fc00719e00e31e00e61c00e41c00c81c01d03c01e03801e03803c07803c070038070038 0f00700e00700e40700e80e01f00e00e00>} imagemask } 110 /G6e MSTT31c282 AddChar /G74 [12.0 0.0 1.0 0.0 13.0 25.0] /G74 { 12 25 true [1 0 0 -1 -1.0 25.0] {<004000800180018003800f003ff00f000f000e000e001e001c001c001c003c003800380038007800 700073007200fc007000>} imagemask } 116 /G74 MSTT31c282 AddChar %%EndResource 398 402 57 (init) 57 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font %%BeginResource: font MSTT31c2a0 /G20 [11.0 0.0 0.0 0.0 0.0 0.0] /G20 { } 32 /G20 MSTT31c2a0 AddChar /G2d [14.0 0.0 2.0 8.0 13.0 12.0] /G2d { 11 4 true [1 0 0 -1 -2.0 12.0] {} imagemask } 45 /G2d MSTT31c2a0 AddChar /G6c [12.0 0.0 1.0 0.0 11.0 29.0] /G6c { 10 29 true [1 0 0 -1 -1.0 29.0] {<06003e00fe001e001e001e001e001e001e001e001e001e001e001e001e001e001e001e001e001e00 1e001e001e001e001e001e001e003f00ffc0>} imagemask } 108 /G6c MSTT31c2a0 AddChar /G6f [20.0 0.0 1.0 -1.0 19.0 20.0] /G6f { 18 21 true [1 0 0 -1 -1.0 20.0] {<03f0000ffc001e3e00380f00380f80700780700780f003c0f003c0f003c0f003c0f003c0f003c0f8 03c07803807803803c07003e07001f0e000ffc0003f000>} imagemask } 111 /G6f MSTT31c2a0 AddChar /G72 [15.0 0.0 1.0 0.0 15.0 20.0] /G72 { 14 20 true [1 0 0 -1 -1.0 20.0] {<06383e7cfefc1f981f001e001e001e001e001e001e001e001e001e001e001e001e001e003f00ffc0 >} imagemask } 114 /G72 MSTT31c2a0 AddChar /G73 [16.0 0.0 2.0 -1.0 15.0 20.0] /G73 { 13 21 true [1 0 0 -1 -2.0 20.0] {<0f903ff07070e030e010e010f000f8007e007f803fe00ff003f000f880788038c038c030f070ffe0 8f80>} imagemask } 115 /G73 MSTT31c2a0 AddChar /G64 [21.0 0.0 1.0 -1.0 21.0 29.0] /G64 { 20 30 true [1 0 0 -1 -1.0 29.0] {<000180000f80003f8000078000078000078000078000078000078003e7800ff7801e1f801c0f8038 0f80780780700780700780f00780f00780f00780f00780f00780f00780f807807807807c0f803e1f 803ff7f01fe7e007c700>} imagemask } 100 /G64 MSTT31c2a0 AddChar /G65 [18.0 0.0 1.0 -1.0 17.0 20.0] /G65 { 16 21 true [1 0 0 -1 -1.0 20.0] {<03e00ff81c3c301e700e600f600fffffe000e000e000e000f000f00178017c037e063ffe1ffc0ff8 03e0>} imagemask } 101 /G65 MSTT31c2a0 AddChar /G27 [8.0 0.0 2.0 17.0 6.0 29.0] /G27 { 4 12 true [1 0 0 -1 -2.0 29.0] {<60f0f0f0f0f0f0f060606060>} imagemask } 39 /G27 MSTT31c2a0 AddChar /G69 [12.0 0.0 1.0 0.0 11.0 29.0] /G69 { 10 29 true [1 0 0 -1 -1.0 29.0] {<0c001e001e000c000000000000000000000006003e00fe001e001e001e001e001e001e001e001e00 1e001e001e001e001e001e001e003f00ffc0>} imagemask } 105 /G69 MSTT31c2a0 AddChar /G6e [22.0 0.0 1.0 0.0 22.0 20.0] /G6e { 21 20 true [1 0 0 -1 -1.0 20.0] {<061e003e7f00fec7801f07c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e 03c01e03c01e03c01e03c01e03c03f03e0ffcff8>} imagemask } 110 /G6e MSTT31c2a0 AddChar /G74 [12.0 0.0 0.0 -1.0 12.0 25.0] /G74 { 12 26 true [1 0 0 -1 0.0 25.0] {<0200060006000e001e003e00ffe01e001e001e001e001e001e001e001e001e001e001e001e001e00 1e001e001e001f300fe00780>} imagemask } 116 /G74 MSTT31c2a0 AddChar /G61 [19.0 0.0 1.0 -1.0 19.0 20.0] /G61 { 18 21 true [1 0 0 -1 -1.0 20.0] {<07f0001e7800383c00781e00781e00781e00301e00001e00003e0001de00071e001c1e00381e0070 1e00f01e00f01e00f01e00f03e00787e407f9f801e0e00>} imagemask } 97 /G61 MSTT31c2a0 AddChar /G75 [21.0 0.0 0.0 -1.0 21.0 19.0] /G75 { 21 20 true [1 0 0 -1 0.0 19.0] {} imagemask } 117 /G75 MSTT31c2a0 AddChar /G2c [11.0 0.0 2.0 -7.0 8.0 3.0] /G2c { 6 10 true [1 0 0 -1 -2.0 3.0] {<70f8fc740404081020c0>} imagemask } 44 /G2c MSTT31c2a0 AddChar /G70 [21.0 0.0 0.0 -9.0 20.0 20.0] /G70 { 20 29 true [1 0 0 -1 0.0 20.0] {<061e003e7f80feffc01e87c01f03e01e01e01e01f01e00f01e00f01e00f01e00f01e00f01e00f01e 00f01e00e01e01e01e01c01f03c01f87801eff001e7c001e00001e00001e00001e00001e00001e00 003f0000ffc000>} imagemask } 112 /G70 MSTT31c2a0 AddChar /Ge9 [18.0 0.0 1.0 -1.0 17.0 29.0] /Ge9 { 16 30 true [1 0 0 -1 -1.0 29.0] {<003c003800700060006000c000800000000003e00ff81c3c301e700e600f600fffffe000e000e000 e000f000f00178017c037e063ffe1ffc0ff803e0>} imagemask } 233 /Ge9 MSTT31c2a0 AddChar /G66 [13.0 0.0 0.0 0.0 17.0 29.0] /G66 { 17 29 true [1 0 0 -1 0.0 29.0] {<007c0001ff00038f800707800703000f00000f00000f00000f00000f0000fff8000f00000f00000f 00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00000f00 001f8000fff000>} imagemask } 102 /G66 MSTT31c2a0 AddChar /G76 [20.0 0.0 -1.0 -1.0 20.0 19.0] /G76 { 21 20 true [1 0 0 -1 1.0 19.0] {} imagemask } 118 /G76 MSTT31c2a0 AddChar /G6d [33.0 0.0 1.0 0.0 33.0 20.0] /G6d { 32 20 true [1 0 0 -1 -1.0 20.0] {<061f03c03e7f8fe0fec798f01f07e0781e03c0781e03c0781e03c0781e03c0781e03c0781e03c078 1e03c0781e03c0781e03c0781e03c0781e03c0781e03c0781e03c0781e03c0783f03e07cffcff9ff >} imagemask } 109 /G6d MSTT31c2a0 AddChar /G71 [21.0 0.0 1.0 -9.0 21.0 20.0] /G71 { 20 29 true [1 0 0 -1 -1.0 20.0] {<01e18007fb801e1f803c0f80380780780780700780700780f00780f00780f00780f00780f00780f0 0780f807807807807c07803c0f803f37801fe7800787800007800007800007800007800007800007 80000fc0003ff0>} imagemask } 113 /G71 MSTT31c2a0 AddChar /G67 [21.0 0.0 1.0 -9.0 21.0 20.0] /G67 { 20 29 true [1 0 0 -1 -1.0 20.0] {<01f800071ff00e0f001c0f803c07803c07803c07803c07803c07801e07001e0e000f1c0007f8000c 00001800001800003c00003fff801fffc00fffe01800e0300060600060600060e000c0f001807c0f 003ffe000ff000>} imagemask } 103 /G67 MSTT31c2a0 AddChar /G63 [18.0 0.0 1.0 -1.0 17.0 20.0] /G63 { 16 21 true [1 0 0 -1 -1.0 20.0] {<01f00ffc1c1e380f300f70076000e000e000e000e000e000f000f00178037c027e0e3ffc1ffc0ff8 03e0>} imagemask } 99 /G63 MSTT31c2a0 AddChar %%EndResource 455 402 11 ( ) 16 SB 471 402 88 (-lors ) 93 SB 564 402 50 (de ) 55 SB 619 402 245 (l'initialisation ) 250 SB 869 402 50 (de ) 55 SB 924 402 42 (la ) 47 SB 971 402 122 (souris, ) 127 SB 1098 402 53 (on ) 58 SB 1156 402 83 (peut ) 88 SB 1244 402 124 (d\351finir ) 129 SB 1373 402 57 (les ) 63 SB 1436 402 208 (\351v\351nements ) 214 SB 1650 402 65 (qui ) 71 SB 1721 402 85 (vont ) 91 SB 1812 402 88 (faire ) 94 SB 1906 402 111 (r\351agir ) 117 SB 2023 402 42 (la ) 48 SB 2071 402 139 (fonction) 139 SB %%BeginResource: font MSTT31c2a0 /G3b [12.0 0.0 3.0 -7.0 9.0 20.0] /G3b { 6 27 true [1 0 0 -1 -3.0 20.0] {<60f0f0600000000000000000000000000070f8fc7c0404081020c0>} imagemask } 59 /G3b MSTT31c2a0 AddChar /G78 [21.0 0.0 1.0 0.0 21.0 19.0] /G78 { 20 19 true [1 0 0 -1 -1.0 19.0] {} imagemask } 120 /G78 MSTT31c2a0 AddChar /Ge8 [18.0 0.0 1.0 -1.0 17.0 29.0] /Ge8 { 16 30 true [1 0 0 -1 -1.0 29.0] {<0f00070003800180018000c000400000000003e00ff81c3c301e700e600f600fffffe000e000e000 e000f000f00178017c037e063ffe1ffc0ff803e0>} imagemask } 232 /Ge8 MSTT31c2a0 AddChar %%EndResource 248 450 160 (getpress; ) 162 SB 410 450 41 (le ) 43 SB 453 450 143 (premier ) 145 SB 598 450 41 (et ) 43 SB 641 450 41 (le ) 43 SB 684 450 173 (deuxi\350me ) 175 SB 859 450 181 (param\350tre ) 183 SB 1042 450 218 (repr\351sentent ) 220 SB 1262 450 264 (respectivement ) 266 SB 1528 450 42 (la ) 44 SB 1572 450 111 (souris ) 113 SB 1685 450 41 (et ) 43 SB 1728 450 41 (le ) 43 SB 1771 450 136 (clavier, ) 139 SB 1910 450 39 (si ) 42 SB 1952 450 72 (une ) 75 SB 2027 450 116 (valeur ) 119 SB 2146 450 64 (non) 64 SB %%BeginResource: font MSTT31c2a0 /Ge0 [19.0 0.0 1.0 -1.0 19.0 29.0] /Ge0 { 18 30 true [1 0 0 -1 -1.0 29.0] {<07800003800001c00000c00000c00000600000200000000000000007f0001e7800383c00781e0078 1e00781e00301e00001e00003e0001de00071e001c1e00381e00701e00f01e00f01e00f01e00f03e 00787e407f9f801e0e00>} imagemask } 224 /Ge0 MSTT31c2a0 AddChar /G2e [11.0 0.0 3.0 -1.0 7.0 3.0] /G2e { 4 4 true [1 0 0 -1 -3.0 3.0] {<60f0f060>} imagemask } 46 /G2e MSTT31c2a0 AddChar %%EndResource 248 498 1212 (nulle est donn\351e comme param\350tre alors getpress r\351agira \340 l'\351v\351nement.) 1212 SB %%BeginResource: font MSTT31c2a0 /G55 [29.0 0.0 0.0 -1.0 29.0 28.0] /G55 { 29 29 true [1 0 0 -1 0.0 28.0] {} imagemask } 85 /G55 MSTT31c2a0 AddChar /G28 [14.0 0.0 2.0 -8.0 13.0 28.0] /G28 { 11 36 true [1 0 0 -1 -2.0 28.0] {<002000c00180030006000c001c001c00380038007800780070007000f000f000f000f000f000f000 f000f0007000700078007800380038001c001c000e0006000300018000c00020>} imagemask } 40 /G28 MSTT31c2a0 AddChar /G31 [21.0 0.0 5.0 0.0 17.0 28.0] /G31 { 12 28 true [1 0 0 -1 -5.0 28.0] {<07003f00df000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f000f00 0f000f000f000f000f000f001f80fff0>} imagemask } 49 /G31 MSTT31c2a0 AddChar /G29 [14.0 0.0 1.0 -8.0 12.0 28.0] /G29 { 11 36 true [1 0 0 -1 -1.0 28.0] {<80006000300018000c000e00070007000380038003c003c001c001e001e001e001e001e001e001e0 01e001e001c001c003c003c0038003800700070006000c001800300060008000>} imagemask } 41 /G29 MSTT31c2a0 AddChar %%EndResource 398 594 80 (Une ) 81 SB 479 594 96 (paire ) 97 SB 576 594 92 (\(1,1\) ) 93 SB 669 594 50 (va ) 51 SB 720 594 173 (permettre ) 174 SB 894 594 50 (de ) 51 SB 945 594 141 (prendre ) 142 SB 1087 594 51 (en ) 52 SB 1139 594 133 (compte ) 134 SB 1273 594 30 (\340 ) 31 SB 1304 594 42 (la ) 43 SB 1347 594 72 (fois ) 73 SB 1420 594 57 (les ) 58 SB 1478 594 208 (\351v\351nements ) 209 SB 1687 594 50 (de ) 51 SB 1738 594 42 (la ) 44 SB 1782 594 111 (souris ) 113 SB 1895 594 41 (et ) 43 SB 1938 594 89 (ceux ) 91 SB 2029 594 53 (du ) 55 SB 2084 594 126 (clavier;) 126 SB %%BeginResource: font MSTT31c2a0 /G30 [21.0 0.0 1.0 0.0 19.0 28.0] /G30 { 18 28 true [1 0 0 -1 -1.0 28.0] {<01e0000618000c0c001c0e00380700380700780780780380700380f003c0f003c0f003c0f003c0f0 03c0f003c0f003c0f003c0f003c0f003c07003807003807807803807003807001c0e000c0c000618 0003e000>} imagemask } 48 /G30 MSTT31c2a0 AddChar /G50 [23.0 0.0 0.0 0.0 22.0 28.0] /G50 { 22 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 80 /G50 MSTT31c2a0 AddChar %%EndResource 248 642 72 (une ) 73 SB 321 642 96 (paire ) 97 SB 418 642 92 (\(1,0\) ) 93 SB 511 642 115 (quand ) 116 SB 627 642 30 (\340 ) 31 SB 658 642 71 (elle ) 72 SB 730 642 51 (ne ) 52 SB 782 642 142 (prendra ) 144 SB 926 642 51 (en ) 53 SB 979 642 133 (compte ) 135 SB 1114 642 71 (que ) 73 SB 1187 642 42 (la ) 44 SB 1231 642 122 (souris. ) 124 SB 1355 642 90 (Pour ) 92 SB 1447 642 72 (une ) 74 SB 1521 642 81 (plus ) 83 SB 1604 642 127 (grande ) 129 SB 1733 642 169 (souplesse ) 171 SB 1904 642 221 (d'utilisation, ) 223 SB 2127 642 35 (il ) 37 SB 2164 642 46 (est) 46 SB %%BeginResource: font MSTT31c2a0 /G62 [20.0 0.0 -1.0 -1.0 19.0 29.0] /G62 { 20 30 true [1 0 0 -1 1.0 29.0] {<0600003e0000fe00001e00001e00001e00001e00001e00001e00001e1e001e7f801effc01f87c01f 03e01e01e01e01f01e00f01e00f01e00f01e00f01e00f01e00f01e00e01e00e01e01e01e01c01f03 800f870007fe0001f800>} imagemask } 98 /G62 MSTT31c2a0 AddChar /G68 [22.0 0.0 1.0 0.0 22.0 29.0] /G68 { 21 29 true [1 0 0 -1 -1.0 29.0] {<0e00007e0000fe00001e00001e00001e00001e00001e00001e00001e1e001e7f001ec7801f07801e 03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03c01e03 c03f03e0ffcff8>} imagemask } 104 /G68 MSTT31c2a0 AddChar %%EndResource 248 690 146 (possible ) 150 SB 398 690 74 (lors ) 78 SB 476 690 53 (du ) 57 SB 533 690 217 (programme, ) 222 SB 755 690 100 (apr\350s ) 105 SB 860 690 244 (l'initalisation, ) 249 SB 1109 690 50 (de ) 55 SB 1164 690 146 (changer ) 151 SB 1315 690 89 (cette ) 94 SB 1409 690 93 (prise ) 98 SB 1507 690 51 (en ) 56 SB 1563 690 144 (compte, ) 149 SB 1712 690 78 (cela ) 83 SB 1795 690 45 (se ) 50 SB 1845 690 76 (fera ) 81 SB 1926 690 66 (par ) 71 SB 1997 690 122 (l'appel ) 127 SB 2124 690 50 (de ) 55 SB 2179 690 31 (la) 31 SB 248 738 178 (procedure ) 178 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font %%BeginResource: font MSTT31c282 /G67 [21.0 0.0 -2.0 -9.0 22.0 19.0] /G67 { 24 28 true [1 0 0 -1 2.0 19.0] {<003f8000e1fe01c0fe0380700700700f00700f00f00e00f00e00e00e01c00703c003870001fc0000 c00003000007000007c00007fc0003ff800c7fc03007e07000e0e00060e00060e000407000803c07 0007f800>} imagemask } 103 /G67 MSTT31c282 AddChar /G65 [19.0 0.0 1.0 0.0 17.0 19.0] /G65 { 16 19 true [1 0 0 -1 -1.0 19.0] {<007c018f07070e071c07180e381e7038707073c0fc00e000e000e000f00470187c303fe01f00>} imagemask } 101 /G65 MSTT31c282 AddChar /G6d [30.0 0.0 0.0 0.0 28.0 19.0] /G6d { 28 19 true [1 0 0 -1 0.0 19.0] {<070781e03f0f83e00713c4f00e23c8f00e4390e00e83a0e00d03a1e01d0741e01e0781c01e0781c0 3c0f03c03c0f0380380e0380380e0780701c0710701c0720701c0740e0380f80e0380700>} imagemask } 109 /G6d MSTT31c282 AddChar /G6f [21.0 0.0 1.0 0.0 19.0 19.0] /G6f { 18 19 true [1 0 0 -1 -1.0 19.0] {<007c000187000703800e01801c01c03c01c03801c07803c07003c0f003c0f00380f00780e00700e0 0f00e00e00601c007038003860000f8000>} imagemask } 111 /G6f MSTT31c282 AddChar /G76 [19.0 0.0 0.0 0.0 18.0 19.0] /G76 { 18 19 true [1 0 0 -1 0.0 19.0] {<1c0180fc03c01c03c01e01c00e00c00e00800e01800e01000e02000f06000f0c0007080007100007 200007400007c000078000070000060000>} imagemask } 118 /G76 MSTT31c282 AddChar %%EndResource 426 738 223 (getmovement) 223 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font %%BeginResource: font MSTT31c2a0 /G79 [19.0 0.0 -1.0 -9.0 19.0 19.0] /G79 { 20 28 true [1 0 0 -1 1.0 19.0] {} imagemask } 121 /G79 MSTT31c2a0 AddChar /Gea [18.0 0.0 1.0 -1.0 17.0 29.0] /Gea { 16 30 true [1 0 0 -1 -1.0 29.0] {<03e003e0077006300c18080810040000000003e00ff81c3c301e700e600f600fffffe000e000e000 e000f000f00178017c037e063ffe1ffc0ff803e0>} imagemask } 234 /Gea MSTT31c2a0 AddChar %%EndResource 649 738 1385 (, proc\351dure ayant les m\352mes param\350tres \(avec le m\352me ordre\) que la fonction init.) 1385 SB 398 834 869 (Pour detecter les \351v\351nements, on utilisa la fonction ) 870 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font %%BeginResource: font MSTT31c282 /G70 [21.0 0.0 -4.0 -9.0 20.0 19.0] /G70 { 24 28 true [1 0 0 -1 4.0 19.0] {<00387c01f9fe007b1e00760f007c0700780700700700f00700e00e00e00e01c00e01c01c01c01c01 c0380380300380600380c007c38007fe000700000700000e00000e00000e00001c00001c00003e00 00ff8000>} imagemask } 112 /G70 MSTT31c282 AddChar /G72 [16.0 0.0 0.0 0.0 16.0 19.0] /G72 { 16 19 true [1 0 0 -1 0.0 19.0] {<07073f0f0f1f0e3f0e660e460e801d001d001e003c003c0038003800700070007000e000e000>} imagemask } 114 /G72 MSTT31c282 AddChar /G73 [16.0 0.0 0.0 0.0 16.0 19.0] /G73 { 16 19 true [1 0 0 -1 0.0 19.0] {<01f1070f06070e020e020f020f8007c003e001e001f000f8407840384038e038e030f0608f80>} imagemask } 115 /G73 MSTT31c282 AddChar %%EndResource 1268 834 140 (getpress) 140 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 1408 834 22 (, ) 23 SB 1431 834 65 (qui ) 66 SB 1497 834 152 (retourne ) 153 SB 1650 834 54 (un ) 55 SB 1705 834 141 (bool\351en ) 142 SB 1847 834 173 (indiquant ) 174 SB 2021 834 42 (la ) 43 SB 2064 834 146 (pr\351sence) 146 SB %%BeginResource: font MSTT31c2a0 /G49 [14.0 0.0 1.0 0.0 13.0 28.0] /G49 { 12 28 true [1 0 0 -1 -1.0 28.0] {} imagemask } 73 /G49 MSTT31c2a0 AddChar %%EndResource 248 882 52 (ou ) 55 SB 303 882 162 (l'absence ) 165 SB 468 882 221 (d'\351v\351nement ) 224 SB 692 882 278 (\(respectivement ) 281 SB 973 882 57 (les ) 60 SB 1033 882 132 (valeurs ) 136 SB 1169 882 77 (true ) 81 SB 1250 882 41 (et ) 45 SB 1295 882 114 (false\). ) 118 SB 1413 882 37 (Il ) 41 SB 1454 882 57 (est ) 61 SB 1515 882 73 (bon ) 77 SB 1592 882 50 (de ) 54 SB 1646 882 98 (noter ) 102 SB 1748 882 142 (qu'ainsi ) 146 SB 1894 882 127 (d\351finie ) 131 SB 2025 882 42 (la ) 46 SB 2071 882 139 (fonction) 139 SB %%BeginResource: font MSTT31c2a0 /G4c [25.0 0.0 0.0 0.0 24.0 28.0] /G4c { 24 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 76 /G4c MSTT31c2a0 AddChar /G3a [12.0 0.0 4.0 -1.0 8.0 20.0] /G3a { 4 21 true [1 0 0 -1 -4.0 20.0] {<60f0f0600000000000000000000000000060f0f060>} imagemask } 58 /G3a MSTT31c2a0 AddChar %%EndResource 248 930 1790 (getpress n'est pas bloquante. Les param\350tres en retour sont soit nuls \(pas d'\351v\351nement\) soit correspondent:) 1790 SB %%BeginResource: font MSTT31c2a0 /G3d [24.0 0.0 1.0 10.0 23.0 19.0] /G3d { 22 9 true [1 0 0 -1 -1.0 19.0] {} imagemask } 61 /G3d MSTT31c2a0 AddChar %%EndResource 398 1026 600 (bool:=getpress\(v,p,h,l,r,c : integer\);) 600 SB 548 1074 485 (v = position en y de la souris) 485 SB %%BeginResource: font MSTT31c2a0 /G6b [21.0 0.0 0.0 0.0 21.0 29.0] /G6b { 21 29 true [1 0 0 -1 0.0 29.0] {<0e00007e0000fe00001e00001e00001e00001e00001e00001e00001e00001e0ff01e07801e06001e 0c001e18001e30001e60001ee0001ff0001ef0001e78001e3c001e1e001e1f001e0f001e07801e03 c03f03e0ffcff8>} imagemask } 107 /G6b MSTT31c2a0 AddChar /G54 [26.0 0.0 1.0 0.0 25.0 28.0] /G54 { 24 28 true [1 0 0 -1 -1.0 28.0] {} imagemask } 84 /G54 MSTT31c2a0 AddChar /G5f [21.0 0.0 0.0 -9.0 21.0 -7.0] /G5f { 21 2 true [1 0 0 -1 0.0 -7.0] {} imagemask } 95 /G5f MSTT31c2a0 AddChar %%EndResource 548 1122 1490 (p = keyboard status \(Touche control_left,control_right, alt, alt_gr, shift_left, shift_right\)) 1490 SB 548 1170 489 (h = position en x de la souris) 489 SB 548 1218 305 (l = touche clavier) 305 SB 548 1266 142 (r = flags) 142 SB %%BeginResource: font MSTT31c2a0 /G32 [21.0 0.0 1.0 0.0 19.0 28.0] /G32 { 18 28 true [1 0 0 -1 -1.0 28.0] {<03e0000ff8001ffc00387e00303f00201f00400f00400f00000f00000f00000f00000e00000e0000 1c00001c0000380000300000600000e00000c0000180000300000600000c00c01801803fff807fff 00ffff00>} imagemask } 50 /G32 MSTT31c2a0 AddChar /G33 [21.0 0.0 2.0 0.0 17.0 28.0] /G33 { 15 28 true [1 0 0 -1 -2.0 28.0] {<07c01ff03ff8707c403c801c001c001c001800300020004001f007f800fc007c003e001e001e000e 000e000e000c000c0018e030f8607f80>} imagemask } 51 /G33 MSTT31c2a0 AddChar %%EndResource 548 1314 1270 (c = boutons de la souris \(0=aucun, 1=gauche, 2=droite, 3=gauche et droite\)) 1270 SB %%BeginResource: font MSTT31c2a0 /G4e [30.0 0.0 0.0 0.0 30.0 28.0] /G4e { 30 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 78 /G4e MSTT31c2a0 AddChar %%EndResource 698 1362 604 (Nb: le bouton central n'est pas g\351r\351.) 604 SB %%BeginResource: font MSTT31c2a0 /G4f [30.0 0.0 1.0 -1.0 29.0 29.0] /G4f { 28 30 true [1 0 0 -1 -1.0 29.0] {<003fc00000fff00003e07c0007801e000f000f001e0007803e0007c03c0003c07c0003e07c0003e0 780001e0f80001f0f80001f0f80001f0f80001f0f80001f0f80001f0f80001f0f80001f0780001e0 7c0003e07c0003e03c0003c03e0007c01e0007800f000f0007801e0003e07c0000fff000003fc000 >} imagemask } 79 /G4f MSTT31c2a0 AddChar /G45 [26.0 0.0 0.0 0.0 25.0 28.0] /G45 { 25 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 69 /G45 MSTT31c2a0 AddChar /G5a [25.0 0.0 0.0 0.0 24.0 28.0] /G5a { 24 28 true [1 0 0 -1 0.0 28.0] {<0fffff0ffffe0c003c08007c1800f81000f01001f00003e00007c0000780000f80001f00001e0000 3e00007c0000f80000f00001f00003e00007c0000780010f80011f00031e00023e00067c000effff fefffffe>} imagemask } 90 /G5a MSTT31c2a0 AddChar /G42 [27.0 0.0 0.0 0.0 25.0 28.0] /G42 { 25 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 66 /G42 MSTT31c2a0 AddChar /G21 [14.0 0.0 5.0 -1.0 9.0 29.0] /G21 { 4 30 true [1 0 0 -1 -5.0 29.0] {<60f0f0f0f0f0f0f0f0f0f0f0f06060606060606060606000000060f0f060>} imagemask } 33 /G21 MSTT31c2a0 AddChar %%EndResource 248 1459 148 (NOTEZ ) 150 SB 398 1459 122 (BIEN! ) 124 SB 522 1459 147 (Lorsque ) 149 SB 671 1459 57 (les ) 59 SB 730 1459 208 (\351v\351nements ) 210 SB 940 1459 53 (du ) 55 SB 995 1459 125 (clavier ) 127 SB 1122 1459 81 (sont ) 83 SB 1205 1459 75 (pris ) 77 SB 1282 1459 51 (en ) 53 SB 1335 1459 133 (compte ) 136 SB 1471 1459 89 (dans ) 92 SB 1563 1459 41 (le ) 44 SB 1607 1459 229 (gestionnaire, ) 232 SB %%BeginResource: font MSTT31c2c7 /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 %%EndResource 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font %%BeginResource: font MSTT31c2c7 /G69 [12.0 0.0 1.0 0.0 11.0 29.0] /G69 { 10 29 true [1 0 0 -1 -1.0 29.0] {<1e003f003f003f003f001e000000000000000000ff003f003f003f003f003f003f003f003f003f00 3f003f003f003f003f003f003f003f00ffc0>} imagemask } 105 /G69 MSTT31c2c7 AddChar /G6c [12.0 0.0 1.0 0.0 11.0 28.0] /G6c { 10 28 true [1 0 0 -1 -1.0 28.0] {} imagemask } 108 /G6c MSTT31c2c7 AddChar %%EndResource 1839 1458 24 (il) 24 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 1863 1459 11 ( ) 14 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font %%BeginResource: font MSTT31c2c7 /G6e [23.0 0.0 1.0 0.0 22.0 20.0] /G6e { 21 20 true [1 0 0 -1 -1.0 20.0] {<000f00ff3f803f7fc03fcfe03f87e03f87e03f07e03f07e03f07e03f07e03f07e03f07e03f07e03f 07e03f07e03f07e03f07e03f07e03f07e0ffdff8>} imagemask } 110 /G6e MSTT31c2c7 AddChar /G65 [19.0 0.0 1.0 -1.0 18.0 20.0] /G65 { 17 21 true [1 0 0 -1 -1.0 20.0] {<03f0000f3c001e3e003c1f003c1f007c1f007c1f80fc1f80ffff80fc0000fc0000fc0000fe0000fe 0000fe00007f00807f01803fc7001ffe000ffc0003f000>} imagemask } 101 /G65 MSTT31c2c7 AddChar /G20 [11.0 0.0 0.0 0.0 0.0 0.0] /G20 { } 32 /G20 MSTT31c2c7 AddChar /G66 [14.0 0.0 0.0 0.0 16.0 29.0] /G66 { 16 29 true [1 0 0 -1 0.0 29.0] {<00fc039e079f0f9f0f9f1f8e1f801f801f801f80fff0fff01f801f801f801f801f801f801f801f80 1f801f801f801f801f801f801f801f807fe0>} imagemask } 102 /G66 MSTT31c2c7 AddChar /G61 [21.0 0.0 2.0 -1.0 21.0 20.0] /G61 { 19 21 true [1 0 0 -1 -2.0 20.0] {<03f0000c7c00383e00383f007c3f007c3f007c3f00383f00007f0001bf00073f000e3f003e3f007c 3f007c3f00fc3f00fc3f00fe7f00ffbfe07f1fc03c0f00>} imagemask } 97 /G61 MSTT31c2c7 AddChar /G75 [22.0 0.0 0.0 -1.0 21.0 19.0] /G75 { 21 20 true [1 0 0 -1 0.0 19.0] {} imagemask } 117 /G75 MSTT31c2c7 AddChar /G74 [14.0 0.0 0.0 -1.0 13.0 26.0] /G74 { 13 27 true [1 0 0 -1 0.0 26.0] {<008001800180038007800f801f807ff8fff81f801f801f801f801f801f801f801f801f801f801f80 1f801f801f881f980ff00fe003c0>} imagemask } 116 /G74 MSTT31c2c7 AddChar /G70 [23.0 0.0 1.0 -9.0 21.0 20.0] /G70 { 20 29 true [1 0 0 -1 -1.0 20.0] {<001e00ff3f803f4fc03f87c03f07e03f03e03f03f03f03f03f03f03f03f03f03f03f03f03f03f03f 03f03f03f03f03e03f03e03f07c03f87c03f4f803f3e003f00003f00003f00003f00003f00003f00 003f0000ffc000>} imagemask } 112 /G70 MSTT31c2c7 AddChar /G73 [16.0 0.0 2.0 -1.0 15.0 20.0] /G73 { 13 21 true [1 0 0 -1 -2.0 20.0] {<1f1038f070707070f830fc30fe10ff00ffc07fe03ff01ff00ff807f881f8c0f8c078e070f070f8e0 8f80>} imagemask } 115 /G73 MSTT31c2c7 AddChar %%EndResource 1877 1458 53 (ne ) 56 SB 1933 1458 82 (faut ) 85 SB 2018 1458 71 (pas ) 74 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 2092 1459 118 (utiliser) 118 SB %%BeginResource: font MSTT31c2a0 /G38 [21.0 0.0 2.0 0.0 19.0 28.0] /G38 { 17 28 true [1 0 0 -1 -2.0 28.0] {<07e0001c3800381e00700e00f00f00f00f00f00f00f80f00fc1e007e1c003f38001fb0000fc00007 e00007f8000cfc00187e00383f00701f00f00f80f00f80f00780f00780f00780780700380e001e1c 0007f000>} imagemask } 56 /G38 MSTT31c2a0 AddChar %%EndResource 248 1514 57 (les ) 69 SB 317 1514 166 (fonctions ) 178 SB 495 1514 159 (d'entr\351es ) 171 SB 666 1514 125 (clavier ) 137 SB 803 1514 107 (readl, ) 119 SB 922 1514 129 (readln, ) 141 SB 1063 1514 111 (hfont, ) 123 SB 1186 1514 132 (hfont8, ) 145 SB 1331 1514 123 (hpage, ) 136 SB 1467 1514 161 (inkey,...\) ) 174 SB %%BeginResource: font MSTT31c2d4 /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 %%EndResource 32 0 0 50 50 0 0 1 45 /MSTT31c2d4 font %%BeginResource: font MSTT31c2d4 /G73 [19.0 0.0 0.0 0.0 19.0 23.0] /G73 { 19 23 true [1 0 0 -1 0.0 23.0] {<007c2001c3e00380e00780e007804007804007c04007e00003f00003f80001f80000fc00007e0000 3e00003f00401f00400f00400f00600f00e00e00f01c00f8380087e000>} imagemask } 115 /G73 MSTT31c2d4 AddChar /G6f [25.0 0.0 1.0 0.0 24.0 23.0] /G6f { 23 23 true [1 0 0 -1 -1.0 23.0] {<000fc00070f001e03803c03c07801c0f001e1e001e3e001e3c003e7c003e7c003e78003cf8007cf8 007cf80078f000f8f000f0f001e07803c0780780380f001e1c0007e000>} imagemask } 111 /G6f MSTT31c2d4 AddChar /G75 [25.0 0.0 1.0 0.0 24.0 23.0] /G75 { 23 23 true [1 0 0 -1 -1.0 23.0] {<0380000fc03e1fc03c23c03c43c07cc7c0780780780780f80f80f00f01f00f01f01f03e01e03e01e 05e03e05e03c0bc03c13c07c13c07827887847907887a07f07c03c0780>} imagemask } 117 /G75 MSTT31c2d4 AddChar /G20 [13.0 0.0 0.0 0.0 0.0 0.0] /G20 { } 32 /G20 MSTT31c2d4 AddChar /G70 [25.0 0.0 -7.0 -11.0 24.0 23.0] /G70 { 31 34 true [1 0 0 -1 7.0 23.0] {<0003c1f0007fc7f800078c7c0007b03c0007e03e000f401e000f801e000f801e001f003e001f003e 001e003c003e003c003c007c003c0078003c0070007800f0007800e0007801c000f8038000f00700 00f80e0001fc3c0001efe00001e0000001e0000003c0000003c0000003c000000780000007800000 078000000f8000001fc000007ff80000>} imagemask } 112 /G70 MSTT31c2d4 AddChar /G65 [22.0 0.0 1.0 0.0 20.0 23.0] /G65 { 19 23 true [1 0 0 -1 -1.0 23.0] {<001f800063c00181e00301e00701e00e01e01c03c01c07803c0700781e00783c0079e000ff0000f0 0000f00000f00000f80080f80100fc06007e1c003ff8003ff0000fc000>} imagemask } 101 /G65 MSTT31c2d4 AddChar /G69 [14.0 0.0 1.0 0.0 13.0 32.0] /G69 { 12 32 true [1 0 0 -1 -1.0 32.0] {<006000f000f000600000000000000000000001e03fe003c003c003c00780078007800f000f000f00 1f001e001e003e003c003c007c00788079007a00fc007800>} imagemask } 105 /G69 MSTT31c2d4 AddChar /G6e [25.0 0.0 0.0 0.0 24.0 23.0] /G6e { 24 23 true [1 0 0 -1 0.0 23.0] {<03e03c3fc0fe03c19f03c20f03c41f07881f07901e07b03e0f603e0f403e0f803c1f807c1f00781f 00781e00f83e00f03c00f03c01f07801e27801e47801e8f803f0f001c0>} imagemask } 110 /G6e MSTT31c2d4 AddChar /G64 [25.0 0.0 0.0 0.0 29.0 35.0] /G64 { 29 35 true [1 0 0 -1 0.0 35.0] {<000000f800000ff0000001f0000001f0000001e0000001e0000001e0000003c0000003c0000003c0 00000780000007800007c7800018778000603f0001c01f0003801f0007801e000f003e000e003e00 1e003c003c003c003c007c007800f8007800f8007801f800f8037800f002f000f006f000f80cf000 f819e100fc71e2007fe1e4003fc1f8001f01e000>} imagemask } 100 /G64 MSTT31c2d4 AddChar /G6c [14.0 0.0 1.0 0.0 16.0 35.0] /G6c { 15 35 true [1 0 0 -1 -1.0 35.0] {<003e03fc007c003c00780078007800f000f000f001f001e001e003e003c003c003c0078007800780 0f000f000f001f001e001e003e003c003c007c40788078807900fe007800>} imagemask } 108 /G6c MSTT31c2d4 AddChar /G61 [25.0 0.0 0.0 0.0 25.0 23.0] /G61 { 25 23 true [1 0 0 -1 0.0 23.0] {<000f8180003ccf8000606f0001c02f0003803f0007803e000f003e000e003e001e003c003c003c00 3c007c0078007c00780078007800f800f801f800f001f000f002f000f004f000f819e200fc31e400 7fe1ec003fc1f8001f01e000>} imagemask } 97 /G61 MSTT31c2d4 AddChar /G74 [14.0 0.0 2.0 0.0 15.0 29.0] /G74 { 13 29 true [1 0 0 -1 -2.0 29.0] {<00300020006000e001c003c00fc07ff8078007800f800f000f001f001e001e003e003e003c003c00 7c0078007800f800f180f100f200fc00f000>} imagemask } 116 /G74 MSTT31c2d4 AddChar /G67 [25.0 0.0 -2.0 -11.0 27.0 23.0] /G67 { 29 34 true [1 0 0 -1 2.0 23.0] {<000ff000003c3ff800f01ff001e01ff003e00f0003c00f0007c00f0007c01f0007801f0007801e00 07803e0003c03c0003c0780001e1e000007f80000030000000e0000001c0000003c0000003f80000 03ff000001ffe00003fff0000e0ff8003c01fc0078003c0070001c00f0001c00f0001800f0001800 780030007c0060001f01800003fe0000>} imagemask } 103 /G67 MSTT31c2d4 AddChar %%EndResource 1641 1507 101 (sous ) 114 SB 1755 1507 121 (peine ) 134 SB 1889 1507 60 (de ) 73 SB 1962 1507 188 (plantage ) 201 SB 2163 1507 47 (de) 47 SB %%BeginResource: font MSTT31c2d4 /G27 [11.0 0.0 6.0 21.0 13.0 35.0] /G27 { 7 14 true [1 0 0 -1 -6.0 35.0] {<1c3e3e7c7c7c78707060e0c0c080>} imagemask } 39 /G27 MSTT31c2d4 AddChar /G72 [19.0 0.0 0.0 0.0 19.0 23.0] /G72 { 19 23 true [1 0 0 -1 0.0 23.0] {<03e0e03fe1e007c3e003c7e007c9c00798c007900007a0000f40000f40000f80001f00001f00001e 00001e00003e00003c00003c0000780000780000780000f80000f00000>} imagemask } 114 /G72 MSTT31c2d4 AddChar %%EndResource 248 1564 238 (l'ordinateur) 238 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 486 1571 11 (.) 11 SB %%BeginResource: font MSTT31c2a0 /G7d [20.0 0.0 4.0 -8.0 17.0 28.0] /G7d { 13 36 true [1 0 0 -1 -4.0 28.0] {} imagemask } 125 /G7d MSTT31c2a0 AddChar %%EndResource 248 1621 20 (}) 20 SB 248 1718 44 ( ) 44 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 292 1717 82 (unit ) 82 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 374 1718 81 (init: ) 81 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font %%BeginResource: font MSTT31c2c7 /G72 [19.0 0.0 2.0 0.0 19.0 20.0] /G72 { 17 20 true [1 0 0 -1 -2.0 20.0] {<000f00ff1f803f3f803f7f803f4f803f87003f80003f00003f00003f00003f00003f00003f00003f 00003f00003f00003f00003f00003f8000ffc000>} imagemask } 114 /G72 MSTT31c2c7 AddChar /G6f [20.0 0.0 1.0 -1.0 19.0 20.0] /G6f { 18 21 true [1 0 0 -1 -1.0 20.0] {<03f0000f3c001e1e003e0f003c0f807c0f807c0f80fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc 0fc07c0f807c0f807c0f803c0f001e1e000f3c0003f000>} imagemask } 111 /G6f MSTT31c2c7 AddChar /G63 [19.0 0.0 1.0 -1.0 18.0 20.0] /G63 { 17 21 true [1 0 0 -1 -1.0 20.0] {<03f0000f3c001e3e003c3f003c1f007c1f007c0e00fc0000fc0000fc0000fc0000fe0000fe0000fe 00007e00007f00007f81803fc3001ffe000ffc0003f000>} imagemask } 99 /G63 MSTT31c2c7 AddChar /G64 [23.0 0.0 2.0 -1.0 22.0 28.0] /G64 { 20 29 true [1 0 0 -1 -2.0 28.0] {<003fc0000fc0000fc0000fc0000fc0000fc0000fc0000fc007cfc00f2fc01e1fc03e1fc07c0fc07c 0fc07c0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc0fc07c0fc07e0fc03e1fc03f3f c01feff0078f00>} imagemask } 100 /G64 MSTT31c2c7 AddChar %%EndResource 455 1717 183 (procedure) 183 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font %%BeginResource: font MSTT31c2a0 /G4d [37.0 0.0 0.0 0.0 37.0 28.0] /G4d { 37 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 77 /G4d MSTT31c2a0 AddChar /G4b [30.0 0.0 0.0 0.0 30.0 28.0] /G4b { 30 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 75 /G4b MSTT31c2a0 AddChar %%EndResource 638 1718 671 (\(checkMouse, checkKeyboard: integer\);) 671 SB %%BeginResource: font MSTT31c2a0 /G7a [19.0 0.0 1.0 0.0 18.0 19.0] /G7a { 17 19 true [1 0 0 -1 -1.0 19.0] {<7fff80600f00401e00401e00003c0000780000780000f00001e00003c00003c0000780000f00000f 00001e00803c0080780180780380ffff80>} imagemask } 122 /G7a MSTT31c2a0 AddChar %%EndResource 248 1766 605 ( { initializes the Mouse driver.) 605 SB %%BeginResource: font MSTT31c2a0 /G77 [29.0 0.0 0.0 -1.0 29.0 19.0] /G77 { 29 20 true [1 0 0 -1 0.0 19.0] {} imagemask } 119 /G77 MSTT31c2a0 AddChar %%EndResource 248 1814 717 ( tells which events will be checked:) 717 SB %%BeginResource: font MSTT31c2a0 /G3c [24.0 0.0 1.0 4.0 23.0 25.0] /G3c { 22 21 true [1 0 0 -1 -1.0 25.0] {<00000400001c0000780003e0000f80003c0000f00003c0000f00007c0000e000007c00000f000003 c00000f000003c00000f800003e000007800001c000004>} imagemask } 60 /G3c MSTT31c2a0 AddChar /G3e [24.0 0.0 1.0 4.0 23.0 25.0] /G3e { 22 21 true [1 0 0 -1 -1.0 25.0] {<800000e000007800001f000007c00000f000003c00000f000003c00000f800001c0000f80003c000 0f00003c0000f00007c0001f0000780000e00000800000>} imagemask } 62 /G3e MSTT31c2a0 AddChar %%EndResource 248 1862 1865 ( if checkMouse <>0 then the events of Mouse will be reported to getpress, see below otherwise ignored;) 1865 SB 248 1910 1780 ( if checkKeyboard <>0 then the events of Keyboard will be reported to getpress, otherwise ignored) 1780 SB 248 1958 187 ( ) 187 SB %%BeginResource: font MSTT31c2e1 /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 %%EndResource 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font %%BeginResource: font MSTT31c2e1 /G41 [28.0 0.0 -3.0 0.0 25.0 29.0] /G41 { 28 29 true [1 0 0 -1 3.0 29.0] {<00000040000000c0000001c0000003c0000007c000000fc000000fc000001fc000003fc000006fc0 0000efc00001cfc000018fc000030fc000060fc0000c0fc0001c0fc000380fc0003fffc0007fffc0 00c00fc001800fc003800fc007000fc006000fc00c000fc01c000fc07c001fe0ff00fff0>} imagemask } 65 /G41 MSTT31c2e1 AddChar /G74 [12.0 0.0 0.0 0.0 13.0 25.0] /G74 { 13 25 true [1 0 0 -1 0.0 25.0] {<0030006000e001e003e00fc07ff87ff80f800f801f801f001f003f003e003e003e007e007c007c00 fc40fcc0f980fe007c00>} imagemask } 116 /G74 MSTT31c2e1 AddChar /G65 [19.0 0.0 1.0 0.0 19.0 19.0] /G65 { 18 19 true [1 0 0 -1 -1.0 19.0] {<001f8000e7c00187c00787c00f0fc01e0f801e1f003c1e007c3c007cf000ff8000f80000f80000f8 0000f80300fc0e007ffc007ff0001fc000>} imagemask } 101 /G65 MSTT31c2e1 AddChar /G6e [23.0 0.0 0.0 0.0 21.0 19.0] /G6e { 21 19 true [1 0 0 -1 0.0 19.0] {<03c0f03fc3f00fc7f80fcff80f99f80fb1f00fa1f01f43f01fc3e01f83e03f07e03f07c03e07c03e 0fc07c0f887c0f907c0fa0fc0fc0f80780>} imagemask } 110 /G6e MSTT31c2e1 AddChar /G69 [12.0 0.0 1.0 0.0 12.0 29.0] /G69 { 11 29 true [1 0 0 -1 -1.0 29.0] {<03c007e007e007e007e003c0000000000000000007807f801f800f801f001f001f003e003e003e00 7e007c007c00fc40f880f980ff00fe007800>} imagemask } 105 /G69 MSTT31c2e1 AddChar /G6f [21.0 0.0 1.0 0.0 20.0 19.0] /G6f { 19 19 true [1 0 0 -1 -1.0 19.0] {<003e0000e78003c3c00783e00f03e01f03e03e03e03e07e07e07e07c07c0fc07c0fc0f80f80f80f8 1f00f81e00f83c007878003c60001f8000>} imagemask } 111 /G6f MSTT31c2e1 AddChar /G20 [11.0 0.0 0.0 0.0 0.0 0.0] /G20 { } 32 /G20 MSTT31c2e1 AddChar /G70 [21.0 0.0 -5.0 -9.0 20.0 19.0] /G70 { 25 28 true [1 0 0 -1 5.0 19.0] {<001e1e0001fe7f00007eff80007f1f80007e0f80007c0f80007c0f8000f80f8000f80f8000f80f00 01f81f0001f01e0001f01e0001f03c0003e0780003e0780003e0e00007f1c00007df000007c00000 07c000000f8000000f8000000f8000001f8000001f8000003f800000ffe00000>} imagemask } 112 /G70 MSTT31c2e1 AddChar /G6c [12.0 0.0 1.0 0.0 13.0 29.0] /G6c { 12 29 true [1 0 0 -1 -1.0 29.0] {<00f00ff003f003e003e003e007e007c007c007c00f800f800f801f801f001f003f003e003e003e00 7c007c007c00fc00f840f880fb00fe007800>} imagemask } 108 /G6c MSTT31c2e1 AddChar /G61 [21.0 0.0 1.0 0.0 21.0 19.0] /G61 { 20 19 true [1 0 0 -1 -1.0 19.0] {<0073e001cbe00387e00707e00f07c01e07c03e0fc03c0f807c0f807c1f80781f80f83f00f83f00f8 5f00f8fe20f9be40ff3f807e3f003c3e00>} imagemask } 97 /G61 MSTT31c2e1 AddChar /G73 [16.0 0.0 0.0 0.0 16.0 19.0] /G73 { 16 19 true [1 0 0 -1 0.0 19.0] {<03fb078f0f071f061f821f821fc00fe00ff007f803f801fc40fc40fc607ce078f078f8f08fc0>} imagemask } 115 /G73 MSTT31c2e1 AddChar /G21 [16.0 0.0 2.0 0.0 14.0 29.0] /G21 { 12 29 true [1 0 0 -1 -2.0 29.0] {<00e001f001f003f003f003e003e003c007c007c007800780070007000600060004000c000c000800 0800000000007800fc00fc00fc00fc007800>} imagemask } 33 /G21 MSTT31c2e1 AddChar %%EndResource 435 1958 297 (Attention please!) 297 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font %%BeginResource: font MSTT31c2a0 /G57 [39.0 0.0 1.0 -1.0 39.0 28.0] /G57 { 38 29 true [1 0 0 -1 -1.0 28.0] {} imagemask } 87 /G57 MSTT31c2a0 AddChar %%EndResource 732 1958 1041 ( While the events of the keyboard are taken under control by ) 1041 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font 1773 1958 57 (init) 57 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 1830 1958 57 ( or ) 57 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font 1887 1958 223 (getmovement) 223 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font %%BeginResource: font MSTT31c2e1 /G64 [21.0 0.0 1.0 0.0 24.0 29.0] /G64 { 23 29 true [1 0 0 -1 -1.0 29.0] {<00003c0003fc0000fc0000fc0000f80000f80000f80001f00001f00001f0007bf001c7e00387e007 87e00f07c01e07c03e07c03e0fc07c0f807c0f807c1f80f81f00f83f00f85f00f87f20f8be40ff3f c07e3f003c1e00>} imagemask } 100 /G64 MSTT31c2e1 AddChar /G75 [23.0 0.0 1.0 0.0 21.0 19.0] /G75 { 20 19 true [1 0 0 -1 -1.0 19.0] {<0781f03f81f01f83f01f83e01f03e01f03e01f07e03e07c03e0fc03e1fc07e1f807c3f807c6f80fc df80f99f10ff1f20fe1fc0fc1f80701f00>} imagemask } 117 /G75 MSTT31c2e1 AddChar %%EndResource 548 2006 178 (do not use) 178 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 726 2006 1420 ( the functions or procedures: read, readln, hfont, hfont8, hpage, inkey that read keys) 1420 SB %%BeginResource: font MSTT31c2a0 /G59 [30.0 0.0 0.0 0.0 30.0 28.0] /G59 { 30 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 89 /G59 MSTT31c2a0 AddChar %%EndResource 548 2054 30 (Y) 30 SB %%BeginResource: font MSTT31c2ee /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 %%EndResource 32 0 0 33 33 0 0 1 29 /MSTT31c2ee font %%BeginResource: font MSTT31c2ee /G4f [24.0 0.0 1.0 0.0 23.0 22.0] /G4f { 22 22 true [1 0 0 -1 -1.0 22.0] {<00fc000703800e01c01c00e0380070780078780078f00038f0003cf0003cf0003cf0003cf0003cf0 003cf000387800387800783800701c00e00e01c007078000fc00>} imagemask } 79 /G4f MSTT31c2ee AddChar /G55 [23.0 0.0 0.0 0.0 23.0 22.0] /G55 { 23 22 true [1 0 0 -1 0.0 22.0] {} imagemask } 85 /G55 MSTT31c2ee AddChar /G20 [8.0 0.0 0.0 0.0 0.0 0.0] /G20 { } 32 /G20 MSTT31c2ee AddChar /G52 [22.0 0.0 1.0 0.0 22.0 22.0] /G52 { 21 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 82 /G52 MSTT31c2ee AddChar /G49 [11.0 0.0 1.0 0.0 10.0 22.0] /G49 { 9 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 73 /G49 MSTT31c2ee AddChar /G53 [18.0 0.0 2.0 0.0 16.0 22.0] /G53 { 14 22 true [1 0 0 -1 -2.0 22.0] {<0f8838f87038e018e018e008f008f8087e003f001fc00fe003f001f8807c803cc01cc01cc018e038 f8708fc0>} imagemask } 83 /G53 MSTT31c2ee AddChar /G4b [23.0 0.0 1.0 0.0 23.0 22.0] /G4b { 22 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 75 /G4b MSTT31c2ee AddChar /G54 [21.0 0.0 1.0 0.0 20.0 22.0] /G54 { 19 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 84 /G54 MSTT31c2ee AddChar /G48 [24.0 0.0 1.0 0.0 23.0 22.0] /G48 { 22 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 72 /G48 MSTT31c2ee AddChar /G41 [23.0 0.0 1.0 0.0 24.0 22.0] /G41 { 23 22 true [1 0 0 -1 -1.0 22.0] {<001000003800003800003c00005c00005c00008e00008e00010e0001070002070002038004038004 038007ffc00801c00801c01000e01000e03000707000f8fc03fe>} imagemask } 65 /G41 MSTT31c2ee AddChar /G4e [24.0 0.0 0.0 0.0 23.0 22.0] /G4e { 23 22 true [1 0 0 -1 0.0 22.0] {} imagemask } 78 /G4e MSTT31c2ee AddChar /G47 [24.0 0.0 1.0 0.0 24.0 22.0] /G47 { 23 22 true [1 0 0 -1 -1.0 22.0] {<00fe200381e00e00e01c00703c0030380030780010700000f00000f00000f003fef000f8f00070f0 00707000707800707800703c00701e00700f007007c1e000ff80>} imagemask } 71 /G47 MSTT31c2ee AddChar /G59 [24.0 0.0 1.0 0.0 23.0 22.0] /G59 { 22 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 89 /G59 MSTT31c2ee AddChar /G45 [20.0 0.0 1.0 0.0 19.0 22.0] /G45 { 18 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 69 /G45 MSTT31c2ee AddChar /G4d [29.0 0.0 1.0 0.0 28.0 22.0] /G4d { 27 22 true [1 0 0 -1 -1.0 22.0] {} imagemask } 77 /G4d MSTT31c2ee AddChar %%EndResource 578 2063 524 (OU RISK TO HANG YOUR SYSTEM) 524 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 1102 2054 14 (!) 14 SB 248 2102 119 ( }) 119 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 2150 109 ( end) 109 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 357 2151 69 ( init) 69 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 2247 126 ( unit ) 126 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 374 2248 250 (getmovement: ) 250 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 624 2247 183 (procedure) 183 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 807 2248 671 (\(checkMouse, checkKeyboard: integer\);) 671 SB 398 2296 585 (tells which events will be checked:) 585 SB 248 2344 1865 ( if checkMouse <>0 then the events of Mouse will be reported to getpress, see below otherwise ignored;) 1865 SB 248 2392 1780 ( if checkKeyboard <>0 then the events of Keyboard will be reported to getpress, otherwise ignored) 1780 SB 248 2440 187 ( ) 187 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font 435 2440 297 (Attention please!) 297 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 732 2440 1041 ( While the events of the keyboard are taken under control by ) 1041 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font 1773 2440 57 (init) 57 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 1830 2440 57 ( or ) 57 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font 1887 2440 223 (getmovement) 223 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2e1 font 548 2488 178 (do not use) 178 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 726 2488 1420 ( the functions or procedures: read, readln, hfont, hfont8, hpage, inkey that read keys) 1420 SB 548 2536 30 (Y) 30 SB 32 0 0 33 33 0 0 1 29 /MSTT31c2ee font 578 2545 524 (OU RISK TO HANG YOUR SYSTEM) 524 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 1102 2536 14 (!) 14 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 2584 109 ( end) 109 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 357 2585 250 ( getmovement;) 250 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 2681 115 ( unit) 115 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 363 2682 171 ( getpress: ) 171 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 534 2681 147 (function) 147 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 681 2682 516 (\(v,p,h,l,r,c : integer\): Boolean;) 516 SB 398 2730 42 ({ ) 42 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font 440 2730 19 (v) 19 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 459 2730 498 ( = y coordinate of the cursor,) 498 SB 398 2778 44 ( ) 44 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font %%BeginResource: font MSTT31c282 /G68 [21.0 0.0 0.0 0.0 19.0 29.0] /G68 { 19 29 true [1 0 0 -1 0.0 29.0] {<00e00007e00001e00001c00001c00001c0000380000380000380000380000703c0070fc00719e00e 31e00e61c00e41c00e81c01d03c01f03801e03803c07803c0700380700380f00700e00700e40700e 80e01f00e00e00>} imagemask } 104 /G68 MSTT31c282 AddChar %%EndResource 442 2778 21 (h) 21 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 463 2778 500 ( = x coordinate of the cursor,) 500 SB 398 2826 44 ( ) 44 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font 442 2826 21 (p) 21 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 463 2826 1297 ( = keybord status control_left,control_right, alt, alt_gr, shift_left, shift_right) 1297 SB 248 2874 143 ( ) 143 SB 398 2874 44 ( ) 44 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font %%BeginResource: font MSTT31c282 /G6c [12.0 0.0 1.0 0.0 12.0 29.0] /G6c { 11 29 true [1 0 0 -1 -1.0 29.0] {<00e007e000e001c001c001c003c00380038003800700070007000e000e000e001e001c001c001c00 3800380038007800710072007400f8007000>} imagemask } 108 /G6c MSTT31c282 AddChar %%EndResource 442 2874 12 (l) 12 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 454 2874 383 ( = code of key pressed) 383 SB 398 2922 44 ( ) 44 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font 442 2922 16 (r) 16 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 458 2922 127 ( = flags) 127 SB 398 2970 44 ( ) 44 SB 32 0 0 42 42 0 0 1 38 /MSTT31c282 font %%BeginResource: font MSTT31c282 /G63 [19.0 0.0 1.0 0.0 18.0 19.0] /G63 { 17 19 true [1 0 0 -1 -1.0 19.0] {<007e0001e1000381800f03801e03801c0300380000700000700000700000f00000e00000e00000e0 0200f00600f00c007c38003fe0001f8000>} imagemask } 99 /G63 MSTT31c282 AddChar %%EndResource 442 2970 19 (c) 19 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 461 2970 1177 ( = buttons pressed \(0=aucun, 1=gauche, 2=droite, 3=gauche et droite\)) 1177 SB 698 3018 807 (Nb: the middle button is not taken into account.) 807 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 3066 120 ( end ) 120 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 368 3067 137 (getpress) 137 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-Light %%+ font MSTT31c282 %%+ font MSTT31c2a0 %%+ font MSTT31c2c7 %%+ font MSTT31c2d4 %%+ font MSTT31c2e1 %%+ font MSTT31c2ee %%Page: 10 10 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 0 0 0 fC 248 224 115 ( unit) 115 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 363 225 215 ( showcursor:) 215 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font %%BeginResource: font MSTT31c2c7 /G3b [14.0 0.0 3.0 -7.0 11.0 20.0] /G3b { 8 27 true [1 0 0 -1 -3.0 20.0] {<387cfefefe7c380000000000003c7efeffff7f7f07060e0c183040>} imagemask } 59 /G3b MSTT31c2c7 AddChar %%EndResource 578 224 208 ( procedure;) 208 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 398 273 1181 ({the cursor becomes visible and follows the movements of the mouse}) 1181 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 321 109 ( end) 109 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 357 322 215 ( showcursor;) 215 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 418 126 ( unit ) 126 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 374 419 201 (hidecursor: ) 201 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 575 418 197 (procedure;) 197 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 398 467 517 ({the cursor becomes invisible}) 517 SB 32 0 0 42 42 0 0 1 39 /MSTT31c2c7 font 248 515 109 ( end) 109 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 357 516 201 ( hidecursor;) 201 SB 32 0 0 50 50 0 0 0 47 /Bookman-Demi /font5 ANSIFont font 248 612 95 (end) 95 SB 32 0 0 50 50 0 0 0 46 /Bookman-Light /font7 ANSIFont font 343 613 226 ( MOUSE;) 226 SB 248 849 894 (Enclosed you find a sample program) 894 SB 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font %%BeginResource: font MSTT31c2a0 /G53 [23.0 0.0 3.0 -1.0 21.0 29.0] /G53 { 18 30 true [1 0 0 -1 -3.0 29.0] {<07e1001fff00383f00700f00600700e00300e00100e00100f00100f800007c00007f00003fc0003f f0000ff80007fe0001ff00007f80001f80000fc08003c08003c0c001c0c001c0c001c0e00380f003 80fc0f008ffe0083f800>} imagemask } 83 /G53 MSTT31c2a0 AddChar /G47 [30.0 0.0 2.0 -1.0 30.0 29.0] /G47 { 28 30 true [1 0 0 -1 -2.0 29.0] {<003fc10000fff10003f03f0007c00f000f8007801f0003801e0001803e0001807c0000807c000000 78000000f8000000f8000000f8000000f8007ff0f8000fc0f8000780f8000780f80007807c000780 7c0007807c0007803e0007803f0007801f0007800f80078007c0078003f81f8000fffe00001ff000 >} imagemask } 71 /G47 MSTT31c2a0 AddChar %%EndResource 248 967 415 (Program SystemeGraph;) 415 SB %%BeginResource: font MSTT31c2a0 /G2a [21.0 0.0 3.0 11.0 18.0 29.0] /G2a { 15 18 true [1 0 0 -1 -3.0 29.0] {<0180038003800380e38ef19ef93e3d7807c007c03d78f93ef39ee38e0380038003800180>} imagemask } 42 /G2a MSTT31c2a0 AddChar /G46 [23.0 0.0 0.0 0.0 22.0 28.0] /G46 { 22 28 true [1 0 0 -1 0.0 28.0] {} imagemask } 70 /G46 MSTT31c2a0 AddChar /G39 [21.0 0.0 2.0 0.0 19.0 28.0] /G39 { 17 28 true [1 0 0 -1 -2.0 28.0] {<03e0000c3800181c00380e00700e00700f00f00700f00780f00780f00780f00780f0078078078078 07803c07801e1f000fef00000f00000e00001e00001c00003c0000780000f00001e0000380000f00 00780000>} imagemask } 57 /G39 MSTT31c2a0 AddChar /G34 [21.0 0.0 1.0 0.0 19.0 28.0] /G34 { 18 28 true [1 0 0 -1 -1.0 28.0] {<001c00003c00003c00007c00007c0000bc00013c00013c00023c00023c00043c00083c00083c0010 3c00103c00203c00403c00403c00ffffc0ffffc0ffffc0003c00003c00003c00003c00003c00003c 00003c00>} imagemask } 52 /G34 MSTT31c2a0 AddChar %%EndResource 248 1015 735 ( \(* by Frederic Pataud, October 1994 *\)) 735 SB 248 1063 100 (Begin) 100 SB 248 1111 983 (Pref iiuwgraph block \(* inherit the graphic functions *\)) 983 SB 248 1159 111 ( Begin) 111 SB 248 1207 301 ( Pref mouse block) 301 SB 698 1207 554 (\(* inherit the mouse functions *\)) 554 SB 248 1351 1678 ( \(*****************************************************************************\)) 1678 SB 248 1399 1081 ( \(* P r o g r a m m e P r i n c i p a l *\)) 1081 SB 248 1447 1678 ( \(*****************************************************************************\)) 1678 SB 248 1495 369 ( var v,p,h,i : integer,) 369 SB 248 1543 307 ( l,r,c : integer,) 307 SB 248 1591 381 ( rep : arrayof char,) 381 SB 248 1639 274 ( d : boolean,) 274 SB 248 1687 462 ( xx,yy : arrayof integer,) 462 SB 248 1735 697 ( status,code,x,y,flags,button : integer;) 697 SB 248 1831 133 ( Begin) 133 SB 248 1927 880 ( call gron\(0\); \(* enter the graphic mode *\)) 880 SB 248 1975 1772 ( call init\(1,0\); \(* initialize the mouse, disregard the keyboard events, check for mouse events *\)) 1772 SB 248 2071 331 ( call showcursor;) 331 SB 848 2071 295 (\(* show cursor *\)) 295 SB %%BeginResource: font MSTT31c2a0 /G35 [21.0 0.0 2.0 0.0 18.0 28.0] /G35 { 16 28 true [1 0 0 -1 -2.0 28.0] {<03ff07fe07fe07fe0800080010001e003fc03ff07ff807fc00fe003e001e000f000f000700070007 000700060006000c6018f830ffc03f00>} imagemask } 53 /G35 MSTT31c2a0 AddChar /G36 [21.0 0.0 1.0 0.0 19.0 28.0] /G36 { 18 28 true [1 0 0 -1 -1.0 28.0] {<000f80003c0000f00001c0000380000700000e00001c00003c000038000078000079f8007e3e00f0 0f00f00780f00780f007c0f003c0f003c0f003c0f003c07803c07803803803803c07001c0e000f1c 0003f000>} imagemask } 54 /G36 MSTT31c2a0 AddChar /G37 [21.0 0.0 1.0 0.0 19.0 28.0] /G37 { 18 28 true [1 0 0 -1 -1.0 28.0] {<1fffc01fffc03fffc03fff80600180400380800300000300000700000600000600000e00000c0000 0c00001c0000180000180000380000300000300000700000600000600000e00000c00000c00001c0 00018000>} imagemask } 55 /G37 MSTT31c2a0 AddChar %%EndResource 248 2119 1270 ( call patern\(5,5,635,475,2,0\); \(* make a frame around the screen *\)) 1270 SB %%BeginResource: font MSTT31c2a0 /G22 [17.0 0.0 3.0 17.0 14.0 29.0] /G22 { 11 12 true [1 0 0 -1 -3.0 29.0] {<60c0f1e0f1e0f1e0f1e0f1e0f1e0f1e060c060c060c060c0>} imagemask } 34 /G22 MSTT31c2a0 AddChar %%EndResource 248 2167 567 ( call outstring\(10,10,"x=",2,0\);) 567 SB 248 2215 586 ( call outstring\(100,10,"y=",2,0\);) 586 SB 248 2263 664 ( call outstring\(10,30,"status = ",2,0\);) 664 SB 248 2311 667 ( call outstring\(10,50,"code = ",2,0\);) 667 SB 248 2359 660 ( call outstring\(10,70,"flags = ",2,0\);) 660 SB 248 2407 675 ( call outstring\(10,90,"button = ",2,0\);) 675 SB 248 2455 1394 ( call patern\(100,210,300,320,3,1\); \(* make a rectangle filled in colour 3 *\)) 1394 SB 248 2551 377 ( array xx dim \(1:6\);) 377 SB 248 2599 373 ( array yy dim \(1:6\);) 373 SB 248 2647 445 ( xx\(1\):=410; yy\(1\):=10;) 445 SB 248 2695 445 ( xx\(2\):=450; yy\(2\):=30;) 445 SB 248 2743 445 ( xx\(3\):=460; yy\(3\):=50;) 445 SB 248 2791 445 ( xx\(4\):=430; yy\(4\):=80;) 445 SB 248 2839 445 ( xx\(5\):=420; yy\(5\):=40;) 445 SB 248 2887 445 ( xx\(6\):=480; yy\(6\):=30;) 445 SB 248 2935 467 ( call intens\(6,xx,yy,8,1\); ) 467 SB 998 2935 443 (\(* show a polygon filled*\)) 443 SB 248 2983 258 ( for i:=1 to 6) 258 SB 248 3031 107 ( do) 107 SB %%BeginResource: font MSTT31c2a0 /G2b [24.0 0.0 1.0 3.0 23.0 25.0] /G2b { 22 22 true [1 0 0 -1 -1.0 25.0] {<003000003000003000003000003000003000003000003000003000003000fffffcfffffc00300000 3000003000003000003000003000003000003000003000003000>} imagemask } 43 /G2b MSTT31c2a0 AddChar %%EndResource 248 3079 368 ( yy\(i\):=yy\(i\)+100;) 368 SB 248 3127 119 ( od;) 119 SB 248 3175 477 ( call intens\(6,xx,yy,15,0\);) 477 SB 998 3175 578 (\(* show another polygon empty *\)) 578 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font Bookman-Demi %%+ font Bookman-Light %%+ font MSTT31c2a0 %%+ font MSTT31c2c7 %%Page: 11 11 %%PageResources: (atend) SS 0 0 12 16 799 1169 300 SM 32 0 0 42 42 0 0 1 38 /MSTT31c2a0 font 0 0 0 fC 248 272 729 ( call cirb\(500,300,50,40,100,3500,10,0\);) 729 SB 998 272 647 (\(* draw an empty pie or camembert *\)) 647 SB 248 320 1151 ( call cirb\(400,400,40,40,600,4000,11,1\); \(* draw a filled pie *\)) 1151 SB 248 464 1548 ( i:=hfont\(100,350,6,-9999999,9999999,500,9,0,15\); \(* read integer from a window *\)) 1548 SB 248 512 1613 ( call hpage\(100,400,10,unpack\("Il fait beau dans ma verte campagne"\),9,0\); \(* show text *\)) 1613 SB 248 560 980 ( rep:=hfont8\(100,430,10,80,unpack\("tototutu"\),9,0,15\);) 980 SB 1448 560 239 (\(* read text *\)) 239 SB 248 656 1625 ( call getmovement\(1,1\); \(* take into consideration both key events and mouse events *\)) 1625 SB 248 752 96 ( do) 96 SB 248 800 463 ( d:=getpress\(v,p,h,l,r,c\);) 463 SB 998 800 404 (\(* ask about an event *\)) 404 SB 248 848 151 ( if \(d\)) 151 SB 248 896 737 ( then call outstring\(10,400,"Event",2,0\);) 737 SB 248 944 647 ( call patern\(80,25,130,100,0,1\);) 647 SB 248 992 508 ( call track\(40,10,v,0,4\);) 508 SB 998 992 303 (\(* print integer *\)) 303 SB 248 1040 530 ( call track\(140,10,p,0,4\);) 530 SB 248 1088 510 ( call track\(80,30,h,0,4\);) 510 SB 248 1136 500 ( call track\(80,50,l,0,4\);) 500 SB 248 1184 503 ( call track\(80,70,r,0,4\);) 503 SB 248 1232 506 ( call track\(80,90,c,0,4\);) 506 SB %%BeginResource: font MSTT31c2a0 /G43 [28.0 0.0 2.0 -1.0 27.0 29.0] /G43 { 25 30 true [1 0 0 -1 -2.0 29.0] {<003f820000ffe60003e07e0007801e000f000e001e0007003e0003003c0003007c0003007c000100 78000000f8000000f8000000f8000000f8000000f8000000f8000000f8000000f8000000f8000000 7c0000007c0000007c0000003e0000801e0001001f0002000fc00c0003f0380001fff000003f8000 >} imagemask } 67 /G43 MSTT31c2a0 AddChar %%EndResource 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 248 1328 281 ( then exit;) 281 SB 248 1376 158 ( fi;) 158 SB 248 1424 103 ( fi;) 103 SB 248 1472 108 ( od;) 108 SB 248 1520 221 ( call groff;) 221 SB 998 1520 954 (\(* leave the graphic mode and return to the text mode *\)) 954 SB 248 1568 308 ( writeln\("i=",i\);) 308 SB 248 1616 570 ( for i:=lower\(rep\) to upper\(rep\)) 570 SB 248 1664 107 ( do) 107 SB 248 1712 297 ( write\(rep\(i\)\);) 297 SB 248 1760 119 ( od;) 119 SB 248 1808 187 ( writeln;) 187 SB 248 1856 102 ( End) 102 SB 248 1904 80 ( End) 80 SB 248 1952 80 (End.) 80 SB 1 #C statusdict begin /manualfeed false store end EJ RS %%PageTrailer %%PageResources: font MSTT31c2a0 %%Trailer SVDoc restore end %%Pages: 11 % TrueType font name key: % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT310000 = % MSTT31c293 = 2fafDTimes New RomanF00000064000002bc0000 % MSTT31c2a0 = 2fafDTimes New RomanF0000002a000001900000 % MSTT31c2ad = 2fafDTimes New RomanF0000003a000001900000 % MSTT31c2ba = 2fafDTimes New RomanF0000004b000001900000 % MSTT31c282 = 2fafDTimes New RomanF0000002a000001900001 % MSTT31c2c7 = 2fafDTimes New RomanF0000002a000002bc0000 % MSTT31c2d4 = 2fafDTimes New RomanF00000032000001900001 % MSTT31c2e1 = 2fafDTimes New RomanF0000002a000002bc0001 % MSTT31c2ee = 2fafDTimes New RomanF00000021000001900000 %%DocumentSuppliedResources: procset Win35Dict 3 1 %%+ font MSTT31c282 %%+ font MSTT31c2a0 %%+ font MSTT31c2c7 %%+ font MSTT31c2d4 %%+ font MSTT31c2e1 %%+ font MSTT31c2ee %%DocumentNeededResources: font Bookman-Demi %%+ font Bookman-DemiItalic %%+ font Bookman-Light %%+ font Bookman-LightItalic %%+ font Symbol %%EOF  .