XUS11.m

XUS11 ;SFISC/RWF - READ AND STORE DA FROM TERMINALS ;3/11/93  07:48 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;;Jul 10, 1995

A W !!,"This routine will get the ANSI DA for your terminal.",!,"And allow you to save it."

 W !,"First lets get the DA response from your terminal",!,">"

 X ^%ZOSF("TYPE-AHEAD") S D1=""

 W $C(27,91,99) R *X:2 I X=27 F  R X#1:2 S D1=D1_X Q:'$T!(X="c")

 I $E(D1,1)'="[" W !!,$C(7)," This doesn't start with a '[' like it should." G EXIT

 S DIC="^%ZIS(3.22,",DIC(0)="MZ",X=D1 D ^DIC S DA=+Y

 G B:DA'>0

 W !,"This DA code is already assigned to terminal type: ",$P(Y(0),U,2)

 S DIR(0)="Y",DIR("A")="Want to change this" D ^DIR G EXIT:$D(DIRUT)!(Y'=1)

B W !,"Now, What terminal type are you on?"

 S DIC="^%ZIS(2,",DIC(0)="AEMQ" D ^DIC G EXIT:Y<1 S T1=$P(Y,U,2)

 W !!,"ANSI DA response of ",D1,!?7," to set sign on to terminal type ",T1

 S DIR(0)="Y",DIR("A")="OK to file this" D ^DIR G EXIT:$D(DIRUT)!(Y'=1)

 S DIC="^%ZIS(3.22,",DIC(0)="MLZ",DLAYGO=3,X=D1 D ^DIC S DA=+Y

 I $P(Y(0),U,2)'=T1 S DIE=DIC,DR="2///"_T1_";3" D ^DIE

 W !,"Done"

 ;

EXIT K DIR,DIE,DIC,T1,D1,Y

 Q

XUS11     ;SFISC/RWF - READ AND STORE DA FROM TERMINALS ;3/11/93  07:48 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

A          WRITE !!,"This routine will get the ANSI DA for your terminal.",!,"And allow you to save it."

 +1        WRITE !,"First lets get the DA response from your terminal",!,">"

 +2        XECUTE ^%ZOSF("TYPE-AHEAD")

           SET D1=""

 +3        WRITE $CHAR(27,91,99)

           READ *X:2

           IF X=27

               FOR 

                   READ X#1:2

                   SET D1=D1_X

                   IF '$TEST!(X="c")

                       QUIT 

 +4        IF $EXTRACT(D1,1)'="["

               WRITE !!,$CHAR(7)," This doesn't start with a '[' like it should."

               GOTO EXIT

 +5        SET DIC="^%ZIS(3.22,"

           SET DIC(0)="MZ"

           SET X=D1

           DO ^DIC

           SET DA=+Y

 +6        IF DA'>0

               GOTO B

 +7        WRITE !,"This DA code is already assigned to terminal type: ",$PIECE(Y(0),U,2)

 +8        SET DIR(0)="Y"

           SET DIR("A")="Want to change this"

           DO ^DIR

           IF $DATA(DIRUT)!(Y'=1)

               GOTO EXIT

B          WRITE !,"Now, What terminal type are you on?"

 +1        SET DIC="^%ZIS(2,"

           SET DIC(0)="AEMQ"

           DO ^DIC

           IF Y<1

               GOTO EXIT

           SET T1=$PIECE(Y,U,2)

 +2        WRITE !!,"ANSI DA response of ",D1,!?7," to set sign on to terminal type ",T1

 +3        SET DIR(0)="Y"

           SET DIR("A")="OK to file this"

           DO ^DIR

           IF $DATA(DIRUT)!(Y'=1)

               GOTO EXIT

 +4        SET DIC="^%ZIS(3.22,"

           SET DIC(0)="MLZ"

           SET DLAYGO=3

           SET X=D1

           DO ^DIC

           SET DA=+Y

 +5        IF $PIECE(Y(0),U,2)'=T1

               SET DIE=DIC

               SET DR="2///"_T1_";3"

               DO ^DIE

 +6        WRITE !,"Done"

 +7       ;

EXIT       KILL DIR,DIE,DIC,T1,D1,Y

 +1        QUIT