( Logiciel pour validation de l'interface VGA sur la carte.
  Version 2.00 du 10 Decembre 2006.
  Ecrit par jpb.forth .
)

DECIMAL

ECHO"

Passer en mode VGA et attendre la fin de l'initialisation...
"

BINAIRE_CHARGE

T_SUSPEND DUP @ SWAP -1 OVER ! 6 5 LSH 30+ 5 LSH 30+ 2* T_RHM_CONNECTE
1234567890 CW_PNTT CW@ CW@ -
[IF]
 20+
[ELSE]
 18+
[THEN]
HERE
]
 XMODEM_ETAT @ 0=
 IF
  BEGIN
   RS232_RECEIVE_FILE DUP @ SWAP 2+ @ -
  WHILE
   RS232_RECOIT 255 AND DUP [ 128 15+ LITERAL ] =
   IF
    DROP -1 RS232_RECOIT 8 LSH RS232_RECOIT 255 AND + 8 LSH RS232_RECOIT 255 AND +
    DUP 1 AND NOT NOT V_BOUTON_DROIT >R DUP 0=
    IF
     R@ @
     IF
      DROP R@ 2+ @ 0= DUP
      IF
       >R >R DROP 0 R> R>
      THEN
     THEN
    THEN
    R> ! 0 V_BOUTON_MILIEU ! 2/ DUP 1 AND NOT NOT V_BOUTON_GAUCHE >R DUP 0=
    IF
     R@ @
     IF
      DROP R@ 2+ @ 0= DUP
      IF
       >R >R DROP 0 R> R>
      THEN
     THEN
    THEN
    R> ! SWAP
    IF
     2/ DUP 1023 AND 0 MAX ECRAN 6+ @ MIN V_DY_SOURIS !
     -10 LSH 1023 AND 0 MAX ECRAN 4+ @ MIN V_DX_SOURIS !
    ELSE
     DROP
    THEN
   ELSE
    >R KEYBOARD_FILE 4+ DUP 4- @ R> 3 PICK 3 PICK + C! 1+ 255 AND SWAP 4- !
   THEN
  REPEAT
 THEN
 9 T_RHM_CONNECTE T_ACTIVE
 EXIT
[ 1+ SWAB OVER 2! 4+ ! !

A_FORTH INSTALLE_FOND_ECRAN
CALCULETTE BECANE TXT_EDIT MEM_EDIT XMD_EDIT
PWD

( FIN
)