Sub MAIN 
ch = DDEInitiate("SUPERFAX", "TOPIC") 
FName$ = InputBox$("Enter file name", "SuperFax DDE Demo", "c:\superfax\1234.001") 
cmd$ = "[DISP_DOSFILE(" + FName$ + ")]" 
DDEExecute ch, cmd$ 
DDETerminate ch 
End Sub 
