integer ecran,pilote
 ecran = 1
 pilote = 8
 call gopks(6,10000)        ! ouverture de GKS
 call gopwk(ecran,1,pilote) ! ouverture X-window
 call gacwk(ecran)          ! activation du poste de travail
  ...
  Programme GKS
  ...
 call gclrwk(ecran,1)       ! effacement de l'ecran/avance papier
 call gdawk(ecran)          ! desactivation poste de travai
 call gclwk(ecran)          ! fermeture du poste de travail
 call gclks                 ! fermeture de GKS