LABEL GAGNE          \ si le joueur a gagne
  TRUE # ax mov      \ AX := -1
  ax push            \ on empile AX
  SCORE #) ax mov    \ valeur de SCORE dans AX
MAX-SCORE # bx mov   \ adresse de MAX-SCORE dans BX
  ax 0 [bx] mov      \ contenu de AX dans adresse point‚e par BX
  NEXT END-CODE      \ retour … FORTH
LABEL PERDU          \ si le joueur a perdu
FALSE # ax mov       \ AX := 0
1PUSH                \ on empile AX
END-CODE             \ retour … FORTH
FORTH
CODE TEST-HIGHTER
  MAX-SCORE #) ax mov   \ valeur de MAX-SCORE dans AX
  SCORE #) bx mov       \ valeur de SCORE dans BX
  bx ax sub             \ comparaison contenu BX AX
  PERDU JG              \ si BX < AX on ex‚cute PERDU
  GAGNE #) JMP          \ sinon on ex‚cute GAGNE
  END-CODE