: JOUR ( n --- adr long) 7 MOD \ intervalle d‚fini entre 0 et 6 CASE 0 OF " DIMANCHE " ENDOF 1 OF " LUNDI " ENDOF 2 OF " MARDI " ENDOF 3 OF " MERCREDI " ENDOF 4 OF " JEUDI " ENDOF 5 OF " VENDREDI " ENDOF 6 OF " SAMEDI " ENDOF ENDCASE ;