cTTSC ;Tied Terminal Program (Scanner) ;cTTSC; [ 04/27/01  7:45 PM ]
 ;
T0 ;Tied Terminal Program (Scanner) ;
T1 ;Verbinding verbroken;
T2 ;Scherm ;, Job ;U mag momenteel;niet werken.;
T3 ;Code : ;Verkeerd paswoord;Verkeerde toegangskode;
 ;
T0F ;Tied Terminal Program (Scanner) ;
T1F ;Liaison interrompue;
T2F ;Ecran ;, Job ;Actuellement, on ne;peut pas travailler.;
T3F ;Code : ;Mot de passe incorrect;Code d'accès incorrect;
 ;
T0E ;Tied Terminal Program (Scanner) ;
T1E ;Connection lost;
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,O^cA612(1,1,8,20,0,1,1,1) S $ZT="ER^"_$T(+0),io=$G(io,$$IO^cQ5)
12 I io>1!workst I '$G(^cLOG(boot,"TTT"),1) D  G 34
 . W !,$P($T(@("T2"_QT)),";",2),io,$P($T(@("T2"_QT)),";",3),$J,"."
 . W !,$P($T(@("T2"_QT)),";",4),!,$P($T(@("T2"_QT)),";",5)
 . W !!,$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=^cLOG(boot,"PW",io)
 . F I=1:1:3 U 0:(:"S") W !!!!!!?2,$P($T(@("T3"_QT)),";",2) R K:10 U 0:(:"") Q:K=P
21 D ^cA5000SC S:K QU=$P($T(@("T3"_QT)),";",4) D IN^cQLOG  ;toegangscontr.
 I K G 3    ;toegang geweigerd
 D ^cA501SC ;starten menu
 ;
3 S K=$P($T(@("T1"_QT)),";",2) W !,@F1,!,K,! D OUT^cQLOG H 2
 I $G(QW) D E^cA612    ; End zwintem
34 H
 ;
YZ Q
 ;
ER S $ZT="ERZ^"_$T(+0) I $ZE["<EDITED>" S K=$P($P($ZE,">",2),"^",1) G @K
 U 0 W !!?2,"ERROR : ",$ZE,! D KON^cQ4
 U 0 R %2 D ^cA106 I DD_DM_DJ#$H\2=%2 B 1 S $ZT="" X ^c G YZ
ERZ W ! R %2 H
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8