1 integer display_characteristics(2),hi_plane 2 real*4 table_rouge(0:45000) 3 & ,table_vert(0:45000) 4 & ,table_bleu(0:45000) 5 & ,couleur_courante(3),colfond(3) 6 character*256 bufferout 7 character*132 pathrelatif,filtre,nomdulogo 8 character*80 nomfichpost,nomprogramme,fichtmp 9 character*32 chomedir 10 character*16 couleur_fond 11 character*4 gris_fond,mouse(5) 12 logical*4 sauve_graphic,gardefou,accentsok,albion,lebrowser 13 & ,ilestlagifsicle 14 logical*1 couleurtrouvee(0:45000) 15 integer*2 rect_clip(0:1,0:3) 16c 17c 18 common /group1/ display_characteristics,hi_plane,itypterm 19 & ,ixposcurs,iyposcurs,ixposcurs_root,iyposcurs_root 20 & ,iprox0,iproy0,iepais_ligne,ibacking 21 & ,igarde_taille_fen,nbpixx,nbpixy,nbpixx2,nbpixy2 22 & ,icurseur_courant,imix_courant,idebtable,ipseudo 23 & ,i2dfond,iprogre,icoul_questions,ipapercolor 24 & ,iaunlogo,itranslogo,lnomdulogo 25c 26 common / bufferise / bufferout,iptbuf 27 common / souricette / mouse 28 common / interface / facteur_en_x,facteur_en_y 29 & ,origine_x,origine_y 30 & ,taille_x,taille_y,pixx,pixy,xloosetime 31 & ,x0clipmax,x1clipmax,y0clipmax,y1clipmax 32 & ,x0clipmed,x1clipmed,y0clipmed,y1clipmed,zero 33 common / markers / i2box,j2box,marqueur_courant,icoul_courante 34 & ,icoul_pend,icoul_eff,icoul_texte 35 common / postscript / ilaser_file,ipostscript,ifich_laser,isgr 36 & ,nbcouleurs,ifonte_courante_ps 37 & ,ifonte_courante,ifonte_sav 38 common / divers_caract / nomfichpost,nomprogramme,fichtmp 39 & ,nomdulogo,chomedir,couleur_fond,gris_fond 40 common / divers_post_i / lonfichpost,lprog,lprogcourt,lftmp 41 & ,lgris_fond,lcouleur_fond,ityp_ligne 42 & ,ityp_ligne_pend,icoulfond,nloosetime 43 & ,lhomedir 44 common / divers_post_r / table_rouge,table_vert,table_bleu 45 & ,couleur_courante,colfond 46 & ,xcourant,ycourant,angle_texte 47 & ,taille_texte,taille_mark,epais_ligne 48 & ,epais_ligne_pend 49 & ,x0_clip ,x1_clip ,y0_clip ,y1_clip 50 & ,x0_clip2,x1_clip2,y0_clip2,y1_clip2 51 common / leslogical / sauve_graphic,gardefou,accentsok,albion 52 & ,lebrowser,ilestlagifsicle 53 common / specialmarc2/ xdecalmarc,ydecalmarc,facteurmarc 54 common / zone_a_clicker / ix0_zone_click ,ix1_zone_click 55 & ,iy0_zone_click ,iy1_zone_click 56 & ,ix0_zone_click2,ix1_zone_click2 57 & ,iy0_zone_click2,iy1_zone_click2 58 parameter(nfontes_de_base=16) 59 common / fontfont / itrouve(6*nfontes_de_base),lapremierefois 60 common / sauve_la_taille / facteur_en_x_sauve,facteur_en_y_sauve 61 & ,origine_x_sauve,origine_y_sauve 62c 63 common / directcolor / nbcoldebase,nbcoldebase2,nbsoustable 64 & ,sombremini 65 common / directlogic / couleurtrouvee 66 common / menuspopupi / isizecar0,ihautcar0,ibasecar0,ibordpop 67 & ,ibordbrow,idyliste,ilonglistey,ishiftliste 68 & ,ixbrow,iybrow,ilarbrow,ihaubrow,ilarstrfen 69 & ,idfleche,ixfleche,iyfleche1,iyfleche2 70 & ,longpath,lfiltre,nbfaffiche,ipropaffiche 71 & ,nbaffichebrow,ioptliste,nokcancel 72 & ,iyascen1,iyascen2,iyascen3,iyascen4 73 common / menuspopupc / pathrelatif,filtre 74 common / clicliclip / ix_clip_origine,iy_clip_origine,rect_clip 75 common / sauveposition / ixpos,iypos 76 & ,ixpos0,iypos0,ixpos1,iypos1,ixpos2,iypos2 77 & ,ibordx,ibordy,napply 78