KLAS.m

KLAS ;NEW PROGRAM [ 04/22/93  11:32 AM ]

 ;;

 W !,"waiting for 3 seconds of clear line to be established",!

 F  R X:3 I '$T,X="" Q

 D ^KLASSTU

 Q

KLAS      ;NEW PROGRAM [ 04/22/93  11:32 AM ]

 +1       ;;

 +2        WRITE !,"waiting for 3 seconds of clear line to be established",!

 +3        FOR 

               READ X:3

               IF '$TEST

                   IF X=""

                       QUIT 

 +4        DO ^KLASSTU

 +5        QUIT