%!PS-Adobe-3.0 EPSF-3.0 MG421-7
%%BoundingBox: 70 83 392 235
%old BoundingBox: 72 90 392 235
 
%START PDFDE011.EPS
/pdfmark17 where {pop} {userdict /pdfmark17 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: MG421-7)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2010110112000)
  /ModDate (D:2010110112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%END  PDFDE011

%  60mm =  60*72/25.4 = 176; 170+90+8 = 268
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
/Times-Roman findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
 {1 index /FID ne {def} {pop pop} ifelse }forall
 /Encoding ISOLatin1Encoding def
 currentdict end
/TimesBI-ISOL1 exch definefont pop
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
 
%%EndProlog
gsave
%LANINDL2 START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm  {6 lanind ne {pop} if} bind def
 
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm  {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
5 /Times-ISOL1 FS
340 85 moveto
 (MG421-7, BT7_02) show %    ( B7321_7, M8571-7, BT7_02, N=7_2 2x2) show
 
72 90 translate
 
 
/yhoe 5000 def
0.01 MM 0.01 MM scale  %d2:[rr.b4f]bausz8y.eps
/ausz 8 def
15 setlinewidth
0.0 0.0 0.5 0.0 setcmykcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
 
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
 0 yhoe 500 sub  moveto 11200 0 rlineto stroke
 
/tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
 
/nshow {350 /Times-ISOL1 FS  show} bind def
/kshow {350 /TimesI-ISOL1 FS  show} bind def
/bshow {350 /TimesB-ISOL1 FS  show} bind def
/jshow {350 /Times-BoldItalic FS  show} bind def
/sshow {350 /Symbol FS  show} bind def
/ishow {250 /Times-ISOL1 FS 0 -50 rlineto show 0 50 rlineto} bind def
/eshow {250 /Times-ISOL1 FS 0 200 rlineto show 0 -200 rlineto} bind def
 
/TEn {350 /Times-ISOL1 FS tedef} bind def
/TEnC {350 /Courier FS tedef} bind def
/TEk {350 /TimesI-ISOL1 FS tedef} bind def
/TEb {350 /TimesB-ISOL1 FS tedef} bind def
/TEj {350 /Times-BoldItalic FS tedef} bind def
/TEs {350 /Symbol FS tedef} bind def
 
%20% kleiner
/nshow2 {280 /Times-ISOL1 FS  show} bind def
/kshow2 {280 /TimesI-ISOL1 FS  show} bind def
/bshow2 {280 /TimesB-ISOL1 FS  show} bind def
/jshow2 {280 /Times-BoldItalic FS  show} bind def
/ishow2 {200 /Times-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def
/ikshow2 {200 /TimesI-ISOL1 FS 10 -40 rlineto show -10 40 rlineto} bind def
/eshow2 {250 /Times-ISOL1 FS 0 160 rlineto show 0 -160 rlineto} bind def
 
/TEn2 {280 /Times-ISOL1 FS tedef} bind def
/TEk2 {280 /TimesI-ISOL1 FS tedef} bind def
/TEb2 {280 /TimesB-ISOL1 FS tedef} bind def
/TEj2 {280 /Times-BoldItalic FS tedef} bind def
/TEs2 {280 /Symbol FS tedef} bind def
 
/TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def
/yd -400 def %y-Zeilenabstand
 
%Titeltext
 150 4600 moveto
(Basic\255Programmcode f\374r ) popde                           %08571-7 1
(Farbstreifen mit Farbmatrix\255Drucker) popde                  %08571-7 11
(basic program codes for ) popen                                %18571-7 1
(color bands with color matrix printer) popen                   %18571-7 11
(Codigo basico para ) popes                                     %28571-7 1
(lineas de color con la matriz de impresion) popes              %28571-7 11
(basic program codes for ) popfr                                %38571-7 1
(color bands with color matrix printer) popfr                   %38571-7 11
(basic program codes for ) popit                                %48571-7 1
(color bands with color matrix printer) popit                   %48571-7 11
(basic program codes for ) popjp                                %58571-7 1
(color bands with color matrix printer) popjp                   %58571-7 11
exch bshow bshow
 
lanind 0 eq {%ifde
 150 4150 yd 11 TEnC
(110 FOR K=0 TO 6)
(120 LPRINT CHR$(27);"r";CHR$(K);)
(130 LPRINT "Farbbandfarbe";K;)                                 %08571-7 2
(140 LPRINT CHR$(&H1B);"L";CHR$(100);CHR$(0);)
(150 FOR I=0 TO 100)
(160 LPRINT CHR$(&HFF))
(170 NEXT)
(180 LPRINT CHR$(27);"E";":Bit-Bild";CHR$(27);F)                %08571-7 21
(190 NEXT)
(200 LPRINT CHR$(27);"r";CHR$(0))
(210 END)
TEA
} if %ifde
 
lanind 1 ge {%ifen
 150 4150 yd 11 TEnC
(110 FOR K=0 TO 6)
(120 LPRINT CHR$(27);"r";CHR$(K);)
(130 LPRINT "ribbon color";K;)                                  %18571-7 2
(140 LPRINT CHR$(&H1B);"L";CHR$(100);CHR$(0);)
(150 FOR I=0 TO 100)
(160 LPRINT CHR$(&HFF))
(170 NEXT)
(180 LPRINT CHR$(27);"E";":bit image";CHR$(27);F)               %18571-7 21
(190 NEXT)
(200 LPRINT CHR$(27);"r";CHR$(0))
(210 END)
TEA
} if %ifen
 
showpage
grestore
} for %output with langind end
%%Trailer