IINT ;Tied terminal program (Caché) ;IINT; [ 04/27/01  7:45 PM ]
 ;
T0 ;Tied terminal program (Caché) ;
T1 ;De terminal is niet meer verbonden ;
T2 ;Scherm ; Job ;. U mag momenteel niet werken.;
T3 ;Wachtwoord: ;Verkeerd wachtwoord;Verkeerde toegangscode;
 ;
T0F ;Tied terminal program (Caché);
T1F ;Le terminal n'est plus connecté ;
T2F ;Ecran ; Job ;. Actuellement, on ne peut pas travailler.;
T3F ;Mot de passe: ;Mot de passe incorrect;Code d'accès incorrect;
 ;
T0E ;Tied terminal program (Caché) ;
T1E ;The terminal is no longer connected ;
T2E ;Terminal ; Job ;. At this moment, nobody is allowed to work.;
T3E ;Password: ;Password is incorrect;Access Code is incorrect;
 ;
1 B 0 D QQM^cQ6,MASTER^cQ5
 I $D(^cLOG(boot,"LOGIN","QT")) S QT=$TR(^("QT"),"N")
 D QT^cQ5 S $ZT="ER^"_$T(+0),io=$G(io,$$IO^cQ5)
 I '$G(^cLOG(boot,"LOGON",0)) S K=$P($G(^cLOG(boot,"DEV",io),0),"\") I $D(^cLOG(0,"LOGON",K)) X ^(K)
 D BX^cQ13
 I $D(^cLOG(boot,"LOGIN",io)) H:'^(io)  S K=$P(^(io),"\",2) I $L(K),K'["^II" G @K
11 I $D(^cLOG(boot,"MODEM",io)),^(io,1) U 0:(:"S") F I=1:1:20 H 1 R !,K:0 I '$T,'$L(K) Q
12 I io>1!workst I '$G(^cLOG(boot,"TTT"),1) D  G 33
 . W !!?2,$P($T(@("T2"_QT)),";",2),io,$P($T(@("T2"_QT)),";",3),$J,$P($T(@("T2"_QT)),";",4)
 . W !!?2,$P($T(@("T1"_QT)),";",2),!!
 . B 0 U 0:(:"S") R "",*K:2 U 0:(:"") I K=25 W "." R K:9 W !!!!!!!!!!!!!!!!!!!!!!!! D ^cA106 G 12:DD_DM_DJ#$H'=K K  D ^cQQ G 1
13 U 0:(:"")
 ;
2 I $D(^cLOG(boot,"PW",io)),$L(^(io)) D  I K'=P S QU=$P($T(@("T3"_QT)),";",3) D IN^cQLOG G 3
 . S P=^(io) U 0:(:"S") W !!!!!!?2,$P($T(@("T3"_QT)),";",2) R K:10 U 0:(:"")
21 D ^cA5000 S:K QU=$P($T(@("T3"_QT)),";",4) D IN^cQLOG  ;toegangscontrole
 I K G 3  ;toegang geweigerd
 D ^cA501 ;starten menu
25 I $G(^cLOG(cs,"LOGIN",0)) G 21
 ;
3 D MASTER^cQ5 S io=$G(io,$$IO^cQ5)
31 S K=$P($T(@("T1"_QT)),";",2),FP=1318+$L(K) W @F11,@F1,@F,@F5 S FP=1317 W @F,@F4,K,@F5 D OUT^cQLOG
 I $G(QW) D E^cA612    ; End zwintem
32 S K=0 S:$D(^cLOG(boot,"DEV",io)) K=$P(^(io),"\") I $D(^cLOG(0,"LOGOUT",K)) X ^(K)
33 I $D(^cLOG(boot,"MODEM",io)),^(io,1) D  I ^cLOG(boot,"MODEM",io,8) D  U $P:(:"")
 . F I=1:1:^cLOG(boot,"MODEM",io,4) X ^cLOG(boot,"MODEM",io,4,I) F J=1:1:5 R K:1 I '$T,'$L(K) Q
34 H
 ;
YZ Q
 ;
ER S $ZT="ERZ^"_$T(+0),%=$ZE I %["<EDITED>",%[$T(+0) G 25
 S %ZTRAP="ER^"_$T(+0)
 D ^cA400 H:%["<DSCON>"  U 0 W !!?2,"ERROR : ",$ZE,! D KON^cQ4
ERZ W ! R %2 H
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8