cyu ;Copyright (c) 1988 CyberTools, Inc. ;12:34 PM  12 Jan 1991
 ;
CTL N (cu) D:'$D(^cy0) ^cyui
 D init
1 D DEV
 D SYS
 Q
 ;
init I '$P(^cy0("site"),"^",3),$D(^cy0("io",$I)),$P(^($I),"^")]""
 E  D SELECT
 Q
 ;
SELECT S a=""
 F b=0:0 S a=$O(^cy0("dev",a)) Q:a=""  I $P(^(a,"zz"),"^",3)="Y" S b=b+1,b(b)=a
 I b=1 S a=1 G S2
 W ! F b=1:1:b W b,". ",b(b)_"  " I $X>60 W !
 W !
S1 W "? " R a I a?1.N,$D(b(a))
 E  W *7,*13 G S1
S2 S $P(^cy0("io",$I),"^",1)=b(a) K b Q
 ;
DEV S dev=$P(^cy0("io",$I),"^") D LOAD
 ;S a=36,b=a*2,c=$C(a,b),b=b*767,@("c="_c) K:c>b ^cy0("att") X:c-5>b $C(a*2)
 F a=0:0 S a=$O(^cy0("kmstr",dev,a)) Q:'a  S cu(a)=^(a)
 X ^cy0("dev",dev)
 Q
 ;
LOAD S b="" F c=0:0 S b=$O(^cy0("dev",dev,b)) Q:b=""  S cu(b)=^(b)
 S cu("ic",1)=$S($D(^("ic",1)):^(1),1:"")
 S att=$P(cu("zz"),"^",2),cu(7)=1
 I $D(^cys1) S $P(cu("zz"),"^",11)=$P(^cys1,"`",6)+3,a=$P(^cys1,"`",7) D:a["," LANG S cu(7)=a,$P(^cy0("io",$I),"^",2)=a
 S $P(cu("zz"),"^",10)=att_cu(7) D YN
LOADATT S b="" F c=0:0 S b=$O(^cy0("att",att,b)) Q:b=""  S cu(b)=^(b)
 S b="" F c=0:0 S b=$O(^cy0("att",att,"g",b)) Q:b=""  S cu("g",b)=^(b) ;graphics
 S b="" F c=0:0 S b=$o(^cy0("att",att,"a",b)) Q:b=""  S cu("a",b)=^(b) ;Video
 S cu=cu("p") K cu("p")
 Q
 ;
LANG I '$P(^cy0("site"),"^",11) S b=$P(^cy0("io",$I),"^",2) I b S a=b Q
 W ! F b=1:1:$L(a,",") W ?(b-1*20),b,". ",$P(^cys1(.2,$P(a,",",b),1),"^")
 W:$X#80>1 !
L1 R "? ",b I b?1.N,b>0,$L(a,",")'<b S a=$P(a,",",b)
 E  W *7,*13,$J("",$L(b)+2) G L1
 Q
 ;
YN I cu(7)=1 S cu(7,"b")="NY"
 E  I $D(^cyst(0,cu(7))) S a=^(cu(7)),cu(7,"b")=$E($P(a,"^",11))_$E($P(a,"^",10))
 Q
 ;
SYS S cu(8)="",b=^cy0("site"),a=$P(b,"^",8),cu(2)=$S('a:8191,1:a),cu(2,0)=cu(2)
 S $P(cu("zz"),"^",17)=$P(b,"^",9)_$J("",$P(b,"^",10)) ;menu pointer
 S $P(cu("zz"),"^",16)=($P(cu("zz"),"^",1,2)["IBM3270")
 S $P(cu("zz"),"^",21)=^cy0
 S (a,cu(9))=$J#256 F a=a-.01:0 S a=$O(^cyz(a)) Q:'a!(a\1>cu(9))  K ^cyz(a)
 S cu("~")=0,cu(0)=^cy0("sys",$S($D(cu(101)):"zb2",1:"zb1"))
 S cu("id")=$J K ^cyr($J) ;***change
 S cu("zd")=";;"_$P(^cy0,"^",5)
 F a="a2","app","s2","sys","z" S cu("zz",a)=""
 Q
 ;
INIT ;TKDEV entry point
 G CTL
 ;