cQLST	;Logboek start and stop system ;cQLST;
	;
T0	;Logboek starten en stoppen systeem ;
T1	;Start/Stop| Datum        Uur  | Lic.  ;h ;u;
T2	;do;vr;za;zo;ma;di;wo;
T3	;Plaats smal blanko papier op de printer\"[] = ok   ,[] = hernemen";
T4	;Blz :;
T5	;Afdrukken\"[] = scherm   P[] = printer   -[] = einde programma";
T6	;Starten;Stoppen;Reset;
	;
T0F	;Journal démarrage et arrêt du système ;
T1F	;Démm./Arr.| Date         Heure| Lic.  ;u ;h;
T2F	;je;ve;sa;di;lu;ma;me;
T3F	;Placez dur papier A4 sur l'imprimante\"[] = ok   ,[] = á reprendre";
T4F	;Page:;
T5F	;Afficher\"[] = écran   P[] = imprimante   -[] = fin du programme";
T6F	;Démarrer;Arrêter;Reset;
	;
T0E	;Log start and stop system ;
T1E	;Start/Stop| Date         Hour | Lic.  ;h ;h;
T2E	;th;fr;sa;su;mo;tu;we;
T3E	;Put A4 paper on the printer\"[] = ok   ,[] = go back";
T4E	;Blz :;
T5E	;Print\"[] = screen   P[] = printer   -[] = end program";
T6E	;Start;Stop;Reset;
	;
T0D	;Log start and stop system ;
T1D	;Start/Stop| Date         Hour | Lic.  ;h ;h;
T2D	;th;fr;sa;su;mo;tu;we;
T3D	;Put A4 paper on the printer\"[] = ok   ,[] = go back";
T4D	;Blz :;
T5D	;Print\"[] = screen   P[] = printer   -[] = end program";
T6D	;Start;Stop;Reset;
	;
1	D INI^cQ6
11	S K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	;
2	S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-P""[K\\\1" D R0 G YZ:K="-",3:K=""
	S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,""[K\" D R0 I K="-"!(K=",") G 2
	S NM1=QN,NM2=$G(@("^"_Q_"BA(99,2)")),NM3=$G(^(3))
	S B=78,C=41,BLZ=1,PR=1 X F70 W @F80 D HDR,DISP
	D LN W $$FF^cA334 X F71 G 11
	;
3	W @F61,@F11,@F1 S FP=202 W @F,@F4,$P($T(@("T1"_QT)),U,2),"|",$P($T(@("T1"_QT)),U,2)," ",@F5
	S R=102_D_2380,RV="113#2313\133#2333\141#2341\152#2352\172#2372" D ^cA319
	S K=$P($T(@("T0"_QT)),U,2)_QN,FP=141-($L(K)\2) W @F," ",K," " B 1
	;
4	S X=3,Y=3,PR=0 D DISP
41	S FP=2403 W @F,"[] = ok : .",@F2,*8 R K G 11
	;
YZ	Q
	;
DISP	S (DAG,UUR)="",LOG="^cLOG("""_$ZCVT($ZU(110),"U")_""",""STUSSD"")"
	F I=1:1 S DAG=$O(@LOG@(DAG),-1) Q:DAG=""  D
	. F I=I:1 S UUR=$O(@LOG@(DAG,UUR),-1) Q:UUR=""!(I>41)  S R=^(UUR) D
	.. I 'PR S FP=X*100+Y W @F
	.. I PR D NL W @F30
	.. S K=$P(R,D),K=$S(K="SSD":3,K="RES":4,1:2)
	.. W $J($P($T(@("T6"_QT)),U,K),K=3*10)
	.. I 'PR S FP=FP+11 W @F
	.. I PR W ?11,@F30
	.. W $P($T(@("T2"_QT)),U,DAG#7+2)," ",$P(R,D,2)," "
	.. W $J($TR($P(R,D,3),$P($T(@("T1"_QT)),U,3),$P($T(@("T1"_QT)),U,4)),5)
	.. I 'PR S FP=FP+20 W @F
	.. I PR W ?20,@F30," "
	.. W $J($P($P($P(R,D,5),",",2),U),7)
	.. I 'PR S X=X+1 S:X>22 X=3,Y=42
	.. I PR W @F30
DISPZ	Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
HDR	S K=$P($T(@("T0"_QT)),U,2) W !,NM1,?B-8,$P($T(@("T4"_QT)),U,2),$J(BLZ,3)
	W !,NM2,$$CR^cA334,?B-$L(K)\2,@F85,K,@F83,$$CR^cA334,?B-8,DT,!,NM3,?B-7,TD,! W:$D(ISO) ?B-$L(ISO),ISO S $Y=0
	D LN W !,@F30,$P($T(@("T1"_QT)),U,2)," ",@F30 D LN
HDRZ	Q
	;
LN	S K="",$P(K,"-",C)="-" F I=1,12,32,C S $E(K,I)="+"
	W !,K S K=""
LNZ	Q
	;
NL	W ! I $Y-12>LNMAX W $$FF^cA334 S BLZ=BLZ+1 D HDR
NLZ	Q
	;
MS	U 0 S FP=2403 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R *K
MSZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9