( Outil pour telechargement de code source. Version 1.02 du 10 Decembre 2000. Ecrit par jpb.forth . ) DECIMAL : TELECHARGEMENT ." Chargement" HERE 32768+ 100 OVER BEGIN KEYBOARD IF KEY DUP 13 = IF 46 EMIT THEN OVER C! 1+ >R DROP 100 R> ELSE 10 TEMPO >R 1- R> THEN OVER 0< UNTIL 3 SWAP C! DROP CR ." Compilation..." CR LOAD ; ( FIN )