BCHRKERM.m

BCHRKERM  ;IHS/TUCSON/LAB - receive file from remote    [ 10/28/96  2:05 PM ]

 ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996

 ;

 ;

START ;EP - called from option

 W:$D(IOF) @IOF

 W !!,"This option is used to receive a file of CHR transactions from a remote",!,"computer.  This option should only be used if you are about to send"

 W !,"a file via the Kermit Protocol.  DO NOT CONTINUE if this is not the case.",!!!

 S DIR(0)="Y",DIR("A")="Do you wish to continue",DIR("B")="Y" K DA D ^DIR K DIR

 G:$D(DIRUT) EXIT

 G:'Y EXIT

 W !!!!,"OKAY ....",!!

 S XTKHL7=1 G R^XTKERMIT

EXIT ;

 ;W !!!!,"All Done"

 Q

BCHRKERM  ;IHS/TUCSON/LAB - receive file from remote    [ 10/28/96  2:05 PM ]

 +1       ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996

 +2       ;

 +3       ;

START     ;EP - called from option

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        WRITE !!,"This option is used to receive a file of CHR transactions from a remote",!,"computer.  This option should only be used if you are about to send"

 +3        WRITE !,"a file via the Kermit Protocol.  DO NOT CONTINUE if this is not the case.",!!!

 +4        SET DIR(0)="Y"

           SET DIR("A")="Do you wish to continue"

           SET DIR("B")="Y"

           KILL DA

           DO ^DIR

           KILL DIR

 +5        IF $DATA(DIRUT)

               GOTO EXIT

 +6        IF 'Y

               GOTO EXIT

 +7        WRITE !!!!,"OKAY ....",!!

 +8        SET XTKHL7=1

           GOTO R^XTKERMIT

EXIT      ;

 +1       ;W !!!!,"All Done"

 +2        QUIT