/*+M***************************/
/* Zeitausgabe        23:55 h */
/* Probe für Einbaufunktion:  */
/* D U R A S C                */
/* martin damm j.s.bach str.7 */
/* 3060 stadthagen 01.12.1987 */
/******************************/
S=160;
/******************************/
MODULE WATCH;
/*----------------------------*/
SYSTEM; A1;
        SYSTIM: BU(0300088A) <-;
        SYSADD: BU(0300088E) <-;
/*----------------------------------------------*/
PROBLEM; SPC A1 DATION INOUT ALPHIC CONTROL(ALL);
         SPC (SYSTIM,SYSADD) DATION IN BASIC;
/*---------------------------------------------------------*/
         SPC TEXT ENTRY (FIXED,FIXED,FIXED,CHAR(80)) GLOBAL;
         SPC DURASC ENTRY (CHAR(8),DUR) GLOBAL;
/*---------------------------------------------------------*/
WATCH:TASK PRIO 98;
       DCL (TSY,TAD) DUR;
       DCL CLK CHAR(8);

       TAKE TAD FROM SYSADD;
   REPEAT
       TAKE TSY FROM SYSTIM;
       TSY = TSY+TAD;
       CALL DURASC(CLK,TSY);
       CALL TEXT(576,384,1,CLK);
   END;
 END;
MODEND;