( fileread)

OSCLI" DIR <rforth$dir>.Support"

10 10 STRING[] all_apps
0 all_apps STRCPY" DFT_App"
1 all_apps STRCPY" FFT_App"

: sel_app
 CR
 ." DFT_App (0)" CR
 ." FFT_App (1)" CR
 ." Enter 0 or 1: " KEY 48 - DUP . CR
 all_apps FLOAD ;




                  