sprintf(lcd_buffer,"Counter=%ld",Counter);

Counter=(unsigned long)atol(Proba);
sprintf(lcd_buffer,"Counter=%lu",Counter);

PRO sl
   Common Exchange, W_1, alpha_2, alpha_3

   Forward_Function sl_second
   Forward_Function sl_alpha

   z0 = 50.0
   perm = 2.20
   tang = 0.001
   leit = 5.813E7
   wand = 0.0032
   freq = 10E9
   wan2 = 0.00001

   qx = 0
   READ, qx, PROMPT='press [1] for default values or [2] for new:  '

   if qx EQ 2 then begin
   READ, z0, PROMPT='Wellenwiderstand Z0: '
   READ, perm, PROMPT='Relative Substratpermitivität: '
   READ, tang, PROMPT='Verlust-Winkel des Substrats: '
   READ, leit, PROMPT='Leitfähigkeit des Leiters: '
   READ, wand, PROMPT='Wandstärke des Substrats: '
   READ, freq, PROMPT='Betriebsfrequenz: '
   READ, wan2, PROMPT='Wandstärkes des Leiters: '
   endif

   last = 4.E-7*!Pi
   buf = sqrt(perm) * z0

   W_b = sl_second(perm, z0, wand, buf)
   PRINT, 'W/b = ' , W_b
   PRINT, 'W = ' , W_1

   alpha_1 = sl_alpha(z0, perm, tang, leit, wand, freq, wan2, last, buf)
   PRINT, 'alpha (Np/m) = ', alpha_1
   PRINT, 'alpha (dB/m) = ', alpha_2
   PRINT, 'alpha (dB/lambda) = ', alpha_3

END


FUNCTION sl_alpha, z0, perm, tang, leit, wand, freq, wan2, last, buf
   Common Exchange

   R = sqrt((2.*!Pi*freq*last) / (2.*leit))
   A = 1. + (2*W_1/(wand - wan2)) + ((wand + wan2)/(!Pi*wand - !Pi*wan2))*alog((2.*wand - wan2)/wan2)
   B = 1. + (wand/(0.5*W_1 + 0.7*wan2))*(0.5 + (0.414*wan2/W_1) + (alog(4.*!Pi*W_1/wan2)/(2.*!Pi)))

   alpha_d = !Pi*freq*sqrt(perm)*tang/3.E8

   if buf GT 120 then begin
   alpha_c = (0.16*R*B)/(z0*wand)
   endif else begin
   alpha_c = (0.0027*R*perm*z0*A)/(30.*!Pi*(wand - wan2))
   endelse

   alpha = alpha_d + alpha_c
   alpha_2 = alpha * 8.686
   alpha_3 = (3.E8/(10E9*sqrt(perm))) * alpha_2

   RETURN, alpha
END


FUNCTION sl_second, perm, z0, wand, buf
   Common Exchange

   x = (30.*!Pi/buf) - 0.441

   if buf GT 120 then begin
   Wb = 0.85 - sqrt(0.6 - x)
   endif else begin
   Wb = x
   endelse

   W_1 = wand * x

   RETURN, Wb
END