看看下面的代码能否帮助你

N10 DEF INT RESULT
N20 DEF BOOL EXTDEVICE
N30 DEF STRING[80] OUTPUT
N40 DEF INT PHASE
N50 EXTOPEN(RESULT， “LOCAL_DRIVE/my_file.txt”， “SYN”， “SHARED”）
N60 IF RESULT > 0
N70 MSG（“EXTOPEN 出错： ” << RESULT）
N80 ELSE
N90 EXTDEVICE=TRUE
N100 ENDIF
…
N200 PHASE=4
N210 IF EXTDEVICE
N220 OUTPUT=SPRINT（“结束相位： %D”， PHASE)
N230 WRITE(RESULT,"LOCAL_DRIVE/my_file.txt",OUTPUT)
N240 ENDIF