KLASTIM.m

KLASTIM ;DSD/PDW TIMER FOR CLASS WELCOME [ 09/02/93  11:04 AM ]

 ;;

 ; This routine prints out a welcome message continually

 R !,"CLASS NAME ? : ",KLASX:DTIME

 R !,"STARTING TIME ? : ",KLAST:DTIME

 W !,"You may enter any character to interupt the welcome message.",!

 S KLASZ=""

 F I=1:1 Q:KLASZ>0  F J=0:1:5 W:J=0 !,"Class Starts at ",KLAST,?40,"Current Time is : " D:J=0 ^%T W !,?(J*5),"Welcome to the ",KLASX," Class!" D  R "",*KLASZ:9 Q:KLASZ>0

 .;

 K KLAST,KLASX,KLASZ

 Q

KLASTIM   ;DSD/PDW TIMER FOR CLASS WELCOME [ 09/02/93  11:04 AM ]

 +1       ;;

 +2       ; This routine prints out a welcome message continually

 +3        READ !,"CLASS NAME ? : ",KLASX:DTIME

 +4        READ !,"STARTING TIME ? : ",KLAST:DTIME

 +5        WRITE !,"You may enter any character to interupt the welcome message.",!

 +6        SET KLASZ=""

 +7        FOR I=1:1

               IF KLASZ>0

                   QUIT 

               FOR J=0:1:5

                   IF J=0

                       WRITE !,"Class Starts at ",KLAST,?40,"Current Time is : "

                   IF J=0

                       DO ^%T

                   WRITE !,?(J*5),"Welcome to the ",KLASX," Class!"

                   Begin DoDot:1

 +8       ;

                   End DoDot:1

                   READ "",*KLASZ:9

                   IF KLASZ>0

                       QUIT 

 +9        KILL KLAST,KLASX,KLASZ

 +10       QUIT