function @MicroPrinting(&width:measure, &msgToRepeat:string)
  define(&strmessage,string,'')
  define(&x,integer,1)
  define(&strwidth,measure,0)
  define(&resolution,measure,1200)
  repeat
    &strmessage:= &strmessage + uppercase(mid(&msgToRepeat,&x,1))
    &x:=&x+1
    if(&x>length(&msgToRepeat))
      &x:=1
    endif()
    &strwidth:=inttofloat(length(&strmessage))*8.5/&resolution
  until(&strwidth>=&width)
  if(&printermode=0)
    rlineto(&strwidth,0)
    stroke()
  elseif()
    passthrough('~<< /HalftoneType 3 /HalftoneName (none) /Width 1 /Height 1 /Thresholds (\\200)>> sethalftone')
    passthrough('~/MicroFont findfont setfont ')
    passthrough('~gsave initmatrix ')
    passthrough('~currentpoint transform ceiling exch ceiling exch itransform moveto ')
    passthrough('('+&strmessage+')' )
    passthrough('~$')
    passthrough('~grestore')
  endif()

endfunction()