cAN605	;Printervariabelen : nieuwe versie ;%A605; [ 03/20/01  3:00 PM ]
	;
T0	;Printervariabelen ;
	;
T0F	;Variables d'impression ;
	;
T0E	;Printervariabels ;
	;
1	B 0
	; schermvariabelen moeten verwijderd worden, want sommige printprog. 
	; testen erop
	K F,F0,F1,F2,F3,F4,F5,F6,F7,F8,F9,F11,F12,F55,F56,F57,F58,F60,F61,F62,F90,F91,F92,F93,F94,F95,FDL,FIN,FG,FS
	D ^cA105,^cA106 D:'$D(boot) MASTER^cQ5 S io=$G(io,$$IO^cQ5)
	;
2	; ophalen printervariabelen
	I $G(%S1)'?1.N,'$L($G(%S1)) S %S1=" P" 
	I $G(%S1)?1.N S %S1=$P(^cPRINT(boot,$J,%S1,0),D,4)
	I '$L(%S1) S %S1=" P"
	D VAR^cAN600("PRT",%S1)
	;
3	I $D(%LNMAX) S FP=%LNMAX,LNMAX=FP-16
	E  S FP=$P($G(^cPRINT(boot,$J,%S1,0)),D,5),LNMAX=50 I FP S LNMAX=FP-16
	I FP>0 W @F32
	W @F80
	;
	;
YZ	K %S1,%LNMAX B 1 Q
	;
ZZ	; 30.03.01 - 13 u 39 * V7.85