DEF INT ZBEGIN=150 ;Beginn der verwendeten R-Parameter,
DEF STRING[320] ZEITPROT= "/_N_MPF_DIR/_N_Zeitprot_MPF" ;Name der Protokolldatei
DEF INT ZVAR1, ZVAR2
DEF REAL ZVARGES, ZVAREND
DEF INT ERRF
DEF STRING[150] ZEILE
ZVAREND=($A_HOUR*3600)+($A_MINUTE*60)+$A_SECOND+($A_MSECOND/1000)
ZVARGES=ZVAREND-R[ZBEGIN+1]
IF R[ZBEGIN]==0 GOTOF ENDE
IF R[ZBEGIN]==-1
DELETE(ERRF,ZEITPROT)
R[ZBEGIN]=1
ENDIF

ZVAR1=(ZVARGES*1000) ZVAR2=(R[ZBEGIN+2]*1000)
ZEILE=$A_DAY<<"."<<$A_MONTH<<"."<<$A_YEAR<<";"<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND<<","<<$A_MSECOND<<";"
ZEILE=ZEILE<
WRITE(ERRF,ZEITPROT,ZEILE)
ENDE:
R[ZBEGIN+1]=0
R[ZBEGIN+1]=($A_HOUR*3600)+($A_MINUTE*60)+$A_SECOND+($A_MSECOND/1000)
RET
这是一个记录节拍的子程序，DELETE(ERRF,ZEITPROT)这段程序执行时可以把ZEITPROT.MPF程序删除，但是WRITE(ERRF,ZEITPROT,ZEILE）这段执行了，没有输出是什么原因呢？