节选自"AGO"的帖子


条件：某工厂是中午12：00下班，晚上18：30下班。程序功能，在MDA中运行，显示时间，提示操作者是否到了下班时间。

＝＝＝＝＝

%_N_SHOWTIME_MDF

;$PATH=/_N_MPF_DIR



DEF INT SHI,FEN

SHI=$A_HOUR

FEN=$A_MINUTE

IF (SHI=11) AND (FEN>=50)

MSG("TIME IS : "<<2000+$A_YEAR<<"."<<$A_MONTH<<"."<<$A_DAY<<", "<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND<<" ,Good noon ! Let us have a rest!")

M0

M2

ELSE

IF (SHI=18) AND (FEN>=20)

MSG("TIME IS : "<<2000+$A_YEAR<<"."<<$A_MONTH<<"."<<$A_DAY<<", "<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND<<" ,Good evening ! Let us go home!")

M0

M2

ELSE

MSG("TIME IS : "<<2000+$A_YEAR<<"."<<$A_MONTH<<"."<<$A_DAY<<", "<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND<<" , Let us go on!")

M0

M2

ENDIF

ENDIF