HEX                        \ on bascule en hexad‚cimal
CODE PAGE ( n ---)
  ax pop                   \ r‚cupŠre num‚ro de page dans AX
  3 # ax and               \ masque sur AX pour limiter num‚ro de page 0..3
  5 # ah mov               \ num‚ro fonction s‚lection de page
  10 int                   \ appel interruption 10h
  NEXT END-CODE            \ retour … FORTH
  DECIMAL

DARK 1000 65 REPLICATE     \ affiche 1000 caractŠres A en page 0
1 PAGE 1000 66 REPLICATE   \ affiche 1000 caractŠres B en page 1
0 PAGE                     \ revient … l'affichage de la page
1 PAGE                     \ revient … l'affichage de la page 1