Sub MAIN 
ch = DDEInitiate("SUPERFAX", "TOPIC") 
FilePrinterSetup "PIC-Printer on FAX:" 
pnum$ = InputBox$("Enter FAX Number", "SuperFax DDE Demo", "1,818,4412370") 
phonenum$ = Chr$(34) + pnum$ + Chr$(34) 
DDEExecute ch, "[FAX_SETPARM(FAX_PARMBATCH,1)]" 
FilePrint 
cmd$ = "[FAX_FOLDER(" + phonenum$ + ")]" 
DDEExecute ch, cmd$ 
DDEExecute ch, "[FAX_SETPARM(FAX_PARMBATCH,0)]" 
DDETerminate ch 
End Sub 
