/*****************************************************************/
/*    Funktionstasten belegen und Uhrzeit stellen                */
/*                                                               */
/*  Stefan Seeboth, Voelklingerstr. 9, 4000 Duesseldorf          */
/*                                                               */
/*****************************************************************/

MODULE TASTEN;

SYSTEM;
XC->;
TERM: A1 (TFU=2)<->;

PROBLEM;
SPC XC DATION OUT ALPHIC CONTROL(ALL);
SPC TERM DATION INOUT ALPHIC CONTROL(ALL);

FT:TASK PRIO 1;
DCL (STUNDEN,MINUTEN,SEKUNDEN) CHAR(2);
       PUT 'f1 ^AP ED.' TO XC BY A,SKIP;
       PUT 'f2 ^AED ED.' TO XC BY A,SKIP;
       PUT 'f3 ^ADIR F0^M' TO XC BY A,SKIP;
       PUT 'f4 ^ALOAD^M' TO XC BY A,SKIP;
       PUT 'f5 ^ACOPY ' TO XC BY A,SKIP;
       PUT 'f6 ^AUNLOAD ' TO XC BY A,SKIP;
       PUT 'f7 ^AERASE ' TO XC BY A,SKIP;
       PUT 'f8 ^AL^M' TO XC BY A,SKIP;
       PUT 'f9 ^AS^M' TO XC BY A,SKIP;
       PUT 'f10 ^ALU^M' TO XC BY A,SKIP;
AFTER 1 SEC RESUME;
PUT 'GEBEN SIE BITTE DIE STUNDEN EIN >' TO TERM BY SKIP,A;
GET STUNDEN FROM TERM;
PUT 'GEBEN SIE BITTE DIE MINUTEN EIN >' TO TERM BY SKIP,A;
GET MINUTEN FROM TERM;
PUT 'GEBEN SIE BITTE DIE SEKUNDEN EIN >' TO TERM BY SKIP,A;
GET SEKUNDEN FROM TERM;
PUT 'CLOCKSET ',STUNDEN,':',MINUTEN,':',SEKUNDEN TO XC BY A,A,A,A,A,A,
SKIP;
PUT TO TERM BY (5)SKIP;
PUT 'DIR F0--UNLOAD TASTEN*' TO XC BY A,SKIP;

END;

MODEND;