source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUS11.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1XUS11 ;SFISC/RWF - READ AND STORE DA FROM TERMINALS ;3/11/93 07:48
2 ;;8.0;KERNEL;;Jul 10, 1995
3A 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)
12B 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 ;
20EXIT K DIR,DIE,DIC,T1,D1,Y
21 Q
Note: See TracBrowser for help on using the repository browser.