DECIMAL
12 STRING JCAR
 5 STRING ROUTE
VARIABLE VOITURE  ( [0,4])
VARIABLE RANDOMIZE
: CAR NULL$ JCAR S!
64 224 80 80 224 64
 0  14 31 255 31 14
JCAR 12 0
DO
  ROT CHR$ S<&
LOOP
SP! JCAR " CHARSETFORTH$" BASICX ;
: INECRAN
27 EMIT 69 EMIT 27 EMIT 60 EMIT
22 0 DO 128 EMIT LOOP
" WINDOW9,13" BASICX ;
: AFF "      " ROUTE S! CR ( chaine de 5 espaces: en rentrer 6)
129 ROUTE DROP
VOITURE @ 2* + C!
ROUTE TYPE ;
: RND
RANDOMIZE @
DUP
N@ DUP
0= IF DROP 1 THEN
DUP >R
+
RANDOMIZE !
R> ;
: MVTALEA
VOITURE @
RND
8 < IF 1- ELSE 1+ THEN
VOITURE ! ;
: TOUCHE
VOITURE @ KEY
CASE
   8 OF 1- ENDOF ( <-)
  81 OF 1- ENDOF ( Q )
   9 OF 1+ ENDOF ( ->)
  47 OF 1+ ENDOF ( / )
  DROP MVTALEA VOITURE @
ENDCASE VOITURE ! ;
HEX
: COURSE
RANDOMIZE ! ?STACK
2 VOITURE !
CAR INECRAN
" T=TIME" BASICX
BEGIN
  AFF ?TERMINAL
    IF TOUCHE ELSE MVTALEA THEN
  VOITURE @ DUP
  0< SWAP 4 > OR
UNTIL
" WINDOW1" BASICX
1 2F946 C! 1 2F948 C!   ( delay)
CR " TIME-T;" BASICX
0 2F946 C! 0 2F946 C!
;