KLASKERM.m

KLASKERM ;NEW PROGRAM [ 07/30/93  12:05 PM ]

 ;;

 U IO(0) X TERMNORM

 D KERM^XTKERMIT

 ;----------

END U IO(0) X TERMNORM U IO X TERMNORM Q

KLASKERM  ;NEW PROGRAM [ 07/30/93  12:05 PM ]

 +1       ;;

 +2        USE IO(0)

           XECUTE TERMNORM

 +3        DO KERM^XTKERMIT

 +4       ;----------

END        USE IO(0)

           XECUTE TERMNORM

           USE IO

           XECUTE TERMNORM

           QUIT