COLD

HEX

480 DP !

: GREETING ." HELLO WORLD " ;

: LINKDP  404 6 6A CMOVE ;  ( put the new dictionary to user area )

: MAIN
     LINKDP
     BEGIN
        GREETING   
?TERMINAL UNTIL ABORT ;

6 404 6A CMOVE  ( save the new dictionaries in the program reserves area )

400 AUTOSTART MAIN