ENUM daytime_t=(MORNING=0, NOON, AFTERNOON, EVENING, NIGHT)
CONST daytimes$=("morning", "noon", "afternoon", "evening", "night")
PROC show_daytime daytime\daytime_t
PRINT daytimes[INT(daytime)]
IF daytime=#NIGHT THEN
POWEROFF
ENDIF
ENDP
show_daytime #NOON |