cQEURO	;PRINT EURO-SIGN ;cQEURO;
	;
	;I %PRES'["HP",%PRES'["BR" W "EUR" Q  ;only laserprinters
	; This is some check to be sure that we are on a laser
	; printer. If not we just print "EU" as text
	;
	X F70
	W !!
	D PUSH
	D INITGRPH
	D EUROTEK
	D ENDGRPH
	D POP
	W "  "  ;puts cursor two positions to the right in the end
	W !!,# X F71
	;
	Q
PUSH	W *27,"&f0S"
	Q
POP	W *27,"&f1S"
	Q
INITGRPH	W *27,"*t300R"  ;resolution
	W *27,"*r1A"    ;start graphics mode
	W *27,"&a-0.55R" ; go up a little bit, to have the sign properly lined up
	Q
ENDGRPH	W *27,"*rB"     ;einde graphics mode
	Q
	;
EUROTEK	N WRC
	S WRC=$C(27)_"*b4W"
	W WRC_$C(0,0,0,0)
	W WRC_$C(0,3,224,96)
	W WRC_$C(0,31,254,96)
	W WRC_$C(0,127,255,240)
	W WRC_$C(0,255,255,240)
	W WRC_$C(1,248,7,240)
	W WRC_$C(1,240,1,240)
	W WRC_$C(3,224,0,240)
	W WRC_$C(3,224,0,240)
	W WRC_$C(7,192,0,96)
	W WRC_$C(7,192,0,96)
	W WRC_$C(7,192,0,0)
	W WRC_$C(31,255,248,0)
	W WRC_$C(63,255,252,0)
	W WRC_$C(31,255,248,0)
	W WRC_$C(15,128,0,0)
	W WRC_$C(15,128,0,0)
	W WRC_$C(63,255,240,0)
	W WRC_$C(127,255,248,0)
	W WRC_$C(63,255,240,0)
	W WRC_$C(15,128,0,0)
	W WRC_$C(7,192,0,0)
	W WRC_$C(7,192,0,0)
	W WRC_$C(3,224,0,112)
	W WRC_$C(3,240,0,248)
	W WRC_$C(1,252,3,240)
	W WRC_$C(0,255,255,224)
	W WRC_$C(0,63,255,192)
	W WRC_$C(0,15,255,128)
	W WRC_$C(0,0,240,0)
	W WRC_$C(0,0,0,0)
	W WRC_$C(0,0,0,0)
	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9