( INTERNAL EEPROM AUTOSTART EXAMPLE FOR FORTH V3.5 )
( Restore new Dictionaries on power up )

COLD

HEX

VARIABLE RAM       

161 RAM !  EEWORD    ( all variables should be in ram )

: BYTES ( n -- addr )        
    RAM @ SWAP RAM +! ; EEWORD

2 BYTES CONSTANT NUM1 EEWORD        

: DELAY 2000 0 DO LOOP ; EEWORD 

: MESS1 ." HELLO WORLD! "  CR ;
EEWORD

: RESTORE-DIC B700 6 6A CMOVE ;
EEWORD

: MAIN
    0 NUM1 !
    RESTORE-DIC
    BEGIN
      CR
      MESS1 
      NUM1 @ U. 
      NUM1 1+!
      DELAY 
    ?TERMINAL UNTIL ABORT
;
EEWORD

 ' MAIN CFA  
 DUP >< B602 EEC!
 B603 EEC!
 A4 B600 EEC!
 4A B601 EEC!

1F0 DP !     ( PUT DP BACK TO FREE RAM )

6 B700 6A EEMOVE  ( COPY USER AREA TO EEPROM )