cQLOGO	;Make logo from prn file ;cQLOGO;
	;
START	W !!,"Enter PRN-File to read: " R K I '$L(K)!(K="-") Q
	I $$TST^cQFILE(K) W !,"File ",K," not found or not accesible!",! G START
	S PRN=K,SW=0
	W !!,"Enter kode voor logo : " R K I '$L(K)!(K="-") G START
	S KODE=K K ^logo(K)
	;
READ	S ER=$$ORF^cQFILE(PRN,64)
	F I=1:1 S ER=$$RFF^cQFILE(PRN,.K) Q:ER=99  S ^logo(KODE,I)=K
	S ER=$$CF^cQFILE(PRN)
	;
	F I=1:1:2 K ^logo(KODE,I)
	;S I=8,J="*r1A",K=^logo(KODE,I),L=$C(27)_J_$P(K,J,2),^logo(KODE,I)=L
	;S I=2,J="*t300R",K=^logo(KODE,I),L=$C(27)_J_$P(K,J,2),^logo(KODE,I)=L
	;*r0F$C(27)&l1o1E$C(27)&l0S$C(27)&l0H$C(27)
	S I=3,K=^logo(KODE,I),L=$C(27)_"*r0F"_$C(27)_"*p0x0Y"_$P(K,"*p0x0Y",2),^logo(KODE,I)=L
	F  S I=$O(^logo(KODE,""),-1) I I S K=^(I) Q:K[$C(12)  K ^(I)
	S L=$P(K,$C(12)),^logo(KODE,I)=L
YZ	Q
	;
ZZ	; 30.07.07 - 15 u 21