| 1 | XUS11 ;SFISC/RWF - READ AND STORE DA FROM TERMINALS ;3/11/93 07:48
|
---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
---|
| 3 | A W !!,"This routine will get the ANSI DA for your terminal.",!,"And allow you to save it."
|
---|
| 4 | W !,"First lets get the DA response from your terminal",!,">"
|
---|
| 5 | X ^%ZOSF("TYPE-AHEAD") S D1=""
|
---|
| 6 | W $C(27,91,99) R *X:2 I X=27 F R X#1:2 S D1=D1_X Q:'$T!(X="c")
|
---|
| 7 | I $E(D1,1)'="[" W !!,$C(7)," This doesn't start with a '[' like it should." G EXIT
|
---|
| 8 | S DIC="^%ZIS(3.22,",DIC(0)="MZ",X=D1 D ^DIC S DA=+Y
|
---|
| 9 | G B:DA'>0
|
---|
| 10 | W !,"This DA code is already assigned to terminal type: ",$P(Y(0),U,2)
|
---|
| 11 | S DIR(0)="Y",DIR("A")="Want to change this" D ^DIR G EXIT:$D(DIRUT)!(Y'=1)
|
---|
| 12 | B W !,"Now, What terminal type are you on?"
|
---|
| 13 | S DIC="^%ZIS(2,",DIC(0)="AEMQ" D ^DIC G EXIT:Y<1 S T1=$P(Y,U,2)
|
---|
| 14 | W !!,"ANSI DA response of ",D1,!?7," to set sign on to terminal type ",T1
|
---|
| 15 | S DIR(0)="Y",DIR("A")="OK to file this" D ^DIR G EXIT:$D(DIRUT)!(Y'=1)
|
---|
| 16 | S DIC="^%ZIS(3.22,",DIC(0)="MLZ",DLAYGO=3,X=D1 D ^DIC S DA=+Y
|
---|
| 17 | I $P(Y(0),U,2)'=T1 S DIE=DIC,DR="2///"_T1_";3" D ^DIE
|
---|
| 18 | W !,"Done"
|
---|
| 19 | ;
|
---|
| 20 | EXIT K DIR,DIE,DIC,T1,D1,Y
|
---|
| 21 | Q
|
---|