KTI ; TELEDATA INITIALISATIE [ 07/11/97   1:20 PM ]
 ;
1 K (Q,QM,QN,QO) L  S D="\",U=";",DEV=$I,QN=@("^"_Q_"BA(99,1)"),K=^cLOG(boot,"DEV",DEV),VID=$P(K,D,1),PRT=$P(K,D,2)
10 I ""[(","_$I_",") W !!,"TERMINAL : [] = ADDS   1[] = MACINTOSH : .",*8,*7 R K:200 H:K="-"  G 10:1'[K,10:$L(K)>1 S VID=$P("AD\VI",D,K+1)
12 I ""[(","_$I_",") W !!,"PRINTER  : [] = OKI 2350   1[] = BROTHER : .",*8,*7 R K:200 H:K="-"  G 12:1'[K,12:$L(K)>1 S PRT=$P("O5\BR",D,K+1)
14 S @("^"_Q_"DEV($I)")=VID_D_PRT
2 S K=^cLOG(boot,"DEV",DEV),S1=VID D S0 S S1=PRT D S0
21 I PRT="IW" S F70="S PROG=$ZN D ^KPRT"
3 K VID,PRT Q
 ;
S0 ; Subroutine Opladen Device-parameters
S0A S S2=S1
S0B S S1=$N(^(S1)) G S0Z:$E(S1,1,2)'=S2 S @$E(S1,3,99)=^(S1) G S0B
S0Z K S1,S2 Q
 ;
99 K (Q,QM,QN,QO,DEV) L  S D="\",U=";",QN=@("^"_Q_"BA(99,1)") G 2
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36