Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUS11

XUS11.m

Go to the documentation of this file.
  1. 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
  1. ;;8.0;KERNEL;;Jul 10, 1995
  1. A W !!,"This routine will get the ANSI DA for your terminal.",!,"And allow you to save it."
  1. W !,"First lets get the DA response from your terminal",!,">"
  1. X ^%ZOSF("TYPE-AHEAD") S D1=""
  1. W $C(27,91,99) R *X:2 I X=27 F R X#1:2 S D1=D1_X Q:'$T!(X="c")
  1. I $E(D1,1)'="[" W !!,$C(7)," This doesn't start with a '[' like it should." G EXIT
  1. S DIC="^%ZIS(3.22,",DIC(0)="MZ",X=D1 D ^DIC S DA=+Y
  1. G B:DA'>0
  1. W !,"This DA code is already assigned to terminal type: ",$P(Y(0),U,2)
  1. S DIR(0)="Y",DIR("A")="Want to change this" D ^DIR G EXIT:$D(DIRUT)!(Y'=1)
  1. B W !,"Now, What terminal type are you on?"
  1. S DIC="^%ZIS(2,",DIC(0)="AEMQ" D ^DIC G EXIT:Y<1 S T1=$P(Y,U,2)
  1. W !!,"ANSI DA response of ",D1,!?7," to set sign on to terminal type ",T1
  1. S DIR(0)="Y",DIR("A")="OK to file this" D ^DIR G EXIT:$D(DIRUT)!(Y'=1)
  1. S DIC="^%ZIS(3.22,",DIC(0)="MLZ",DLAYGO=3,X=D1 D ^DIC S DA=+Y
  1. I $P(Y(0),U,2)'=T1 S DIE=DIC,DR="2///"_T1_";3" D ^DIE
  1. W !,"Done"
  1. ;
  1. EXIT K DIR,DIE,DIC,T1,D1,Y
  1. Q